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;
内容来自dedecms
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');
copyright dedecms
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);
copyright dedecms 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 ' + '玩家【';
copyright dedecms
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
copyright dedecms 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 + '】获得';
copyright dedecms
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 ' + '玩家【';
copyright dedecms 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');
copyright dedecms 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');
dedecms.com
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
dedecms.com
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 + '】获得';
内容来自dedecms
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');
copyright dedecms
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 ' + '玩家【';
copyright dedecms 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;
内容来自dedecms
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');
内容来自dedecms 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 + '】杀死了一直扰乱新手村的妖村长';
内容来自dedecms
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;
dedecms.com
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');
dedecms.com
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');
copyright dedecms 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 ' + '玩家【';
dedecms.com 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
内容来自dedecms
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');
内容来自dedecms
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 + '】获得';
copyright dedecms
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 ' + '玩家【';
dedecms.com 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
内容来自dedecms 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');
内容来自dedecms 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);
copyright dedecms 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.
本文来自织梦