千年流氓大哥的宝箱脚本

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,,,,,,,,,,,,,,,,,,