神武新章整点刷摇钱树脚本

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 OnTimer (aStr : String);

var
   nn : Integer

implementation

procedure OnTimer (aStr : String);
begin
   nn := nn + 1;
   if nn = 3600 then begin
      print ('mapaddobjbyname monster 摇钱树1 493 498 2 0 false');
      print ('mapaddobjbyname monster 摇钱树2 497 495 2 0 false');
      print ('mapaddobjbyname monster 摇钱树3 500 492 2 0 false');
      print ('mapaddobjbyname monster 摇钱树4 499 2 0 false');
      print ('mapaddobjbyname monster 摇钱树5 503 500 2 0 false');
      print ('sendsendertopmsg 系统公告！有怪物入侵中央请注意！');
      exit;
   end;
zhuangtai : Integer = 0;
implementation
procedure Onregen (aStr : String);
begin
   zhuangtai := 0;
   exit;
end;
procedure OnHit (aStr : String);
var
   Str, Name : String;
begin
   Str := callfunc ('getsenderrace');

   if Str <> '1' then exit;
   Inc(zhuangtai);
   if zhuangtai = 3 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得xxx';
            print (Str);
      exit;
   end;
   if zhuangtai = 10 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得xxx';
            print (Str);
      exit;
   end;
   if zhuangtai = 11 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得XXX';
            print (Str);
      exit;
   end;
   if zhuangtai = 12 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 13 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 14 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 15 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 16 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 20 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 21 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 22 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 23 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 24 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 25 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 26 then begin

      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 30 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 31 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 32 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 33 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 34 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 35 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 36 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 37 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 38 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 39 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 34 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 40 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 43 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 45 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 46 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';

            print (Str);
      exit;
   end;
   if zhuangtai = 47 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 49 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 50 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 53 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 55 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 57 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 60 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 63 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 64 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 65 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 66 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 70 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
procedure OnBow (aStr : String);
var
   Str, Name : String;
begin
   Str := callfunc ('getsenderrace');
   if Str <> '1' then exit;
   Inc(zhuangtai);
   if zhuangtai = 3 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】杀死了一直扰乱新手村的妖村长';
            print (Str);
      exit;
   end;
   if zhuangtai = 10 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';

            Str := Str + Name;
            Str := Str + '】杀死了一直扰乱新手村的妖村长';
            print (Str);
      exit;
   end;
   if zhuangtai = 11 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】杀死了一直扰乱新手村的妖村长';
            print (Str);
      exit;
   end;
   if zhuangtai = 12 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 13 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;

            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 14 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 15 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 16 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 20 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 21 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 22 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 23 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 24 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';

            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 25 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 26 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 30 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 31 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 32 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');

            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 33 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 34 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 35 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 36 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 37 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 38 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 39 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 34 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 40 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;

            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 43 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 45 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 46 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 47 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 49 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');

            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 50 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 53 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 55 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';

            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 57 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 60 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 63 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;

            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 64 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');
            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
   if zhuangtai = 65 then begin
      print ('putsendermagicitem 金元:1 @摇钱树 4');

            Name := callfunc ('getsendername');
            Str := 'sendsendertopmsg ' + '玩家【';
            Str := Str + Name;
            Str := Str + '】获得';
            print (Str);
      exit;
   end;
end;
end.
 

商业版发布站程序下载：发布站程序下载：

Tags：

作者：佚名