Script里加入
Script.SDB
214,流氓的宝箱.txt,,
流氓的宝箱.txt
unit 流氓的宝箱;
interface
function GetToken (aStr, aToken, aSep : String) : String;
function CompareStr (aStr1, aStr2 : String) : Boolean;
function callfunc (aText: string): string;
procedure print (aText: string);
function Random (aScope: integer): integer;
function Length (aText: string): integer;
procedure Inc (aInt: integer);
procedure Dec (aInt: integer);
function StrToInt (astr: string): integer;
function IntToStr (aInt: integer): string;
procedure exit;
procedure OnDie (aStr : String);
procedure OnChangeState (aStr : String);
procedure OnApproach (aStr : String); 织梦好,好织梦
procedure OnAway (aStr : String);
procedure OnHit (aStr : String);
procedure OnRegen (aStr : String);
var
Str : String;
implementation
procedure OnHit (aStr : String);
var
Str : String;
begin
Str := callfunc ('getsenderrace');
if Str <> '1' then exit;
print ('putsendermagicitem 金元:1 @流氓的宝箱 4');
end;
end.
setting里加入
CreateMonster1.sdb
1,流氓的宝箱,519,479,1,1,,214,
Monster.sdb里加入
流氓的宝箱,流氓的宝箱,,0,0,0,,,,,,0,0,103,118,0,0,,,,20000,200000,0,0,0,,10,,TRUE,,TRUE,TRUE,,,,,0,10,,,,,,,,,,,9427,,9426,,,,,,,,,,,100,70000,70000,50000,50000,1,6000,3000,1200,1,,,,,,,,,,,,,,,,,,
dedecms.com
织梦内容管理系统
本文来自织梦