千年服务器经验怎么修改,千年服务端加入江湖等级的脚本

第1次看脚本 我模仿的某个服做的 他说独家脚本。呵呵

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

procedure OnLeftClick (aStr : String);

implementation

procedure OnLeftClick (aStr : String);

var

Str : String;

Race : Integer;

begin

Str := callfunc ('getsenderrace');

Race := StrToInt (Str);

if Race = 1 then begin

Str := 'showwindow .\help\江湖老人.txt 0';

print (Str);

exit;

end;

end;

procedure OnGetResult (aStr : String);

var

Str, Name : String;

nValue : Integer;

begin

if aStr = 'close' then begin

exit;

end;

if aStr = 'zhuangbei' then begin

Str := 'showwindow .\help\江湖老人1.txt 0';

print (Str);

exit;

end;

if aStr = 'jianghudengji1' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:50');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:100');

if Str = 'false' then begin

Str := 'say 有没有100金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级:1');

if Str = 'false' then begin

Str := 'say 没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:50';

print (Str);

Str := 'getsenderitem 金元:100';

print (Str);

Str := 'getsenderitem 江湖等级:1';

print (Str);

Str := 'putsendermagicitem 江湖等级(1级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到一级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji2' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:100');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:200');

if Str = 'false' then begin

Str := 'say 没有200金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(1级):1');

if Str = 'false' then begin

Str := 'say 没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:100';

print (Str);

Str := 'getsenderitem 金元:100';

print (Str);

Str := 'getsenderitem 江湖等级(1级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(2级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到二级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji3' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:150');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:300');

if Str = 'false' then begin

Str := 'say 没有300金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(2级):1');

if Str = 'false' then begin

Str := 'say 没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:150';

print (Str);

Str := 'getsenderitem 金元:300';

print (Str);

Str := 'getsenderitem 江湖等级(2级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(3级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到三级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji4' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:200');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:400');

if Str = 'false' then begin

Str := 'say 没有300金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(3级):1');

if Str = 'false' then begin

Str := 'say 没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:200';

print (Str);

Str := 'getsenderitem 金元:400';

print (Str);

Str := 'getsenderitem 江湖等级(3级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(4级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到四级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji5' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:400');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:600');

if Str = 'false' then begin

Str := 'say 没有金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(4级):1');

if Str = 'false' then begin

Str := 'say 没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:400';

print (Str);

Str := 'getsenderitem 金元:600';

print (Str);

Str := 'getsenderitem 江湖等级(4级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(5级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到五级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji6' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:600');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:800');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(5级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:600';

print (Str);

Str := 'getsenderitem 金元:800';

print (Str);

Str := 'getsenderitem 江湖等级(5级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(6级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到六级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji7' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:900');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:1000');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(6级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:900';

print (Str);

Str := 'getsenderitem 金元:1000';

print (Str);

Str := 'getsenderitem 江湖等级(6级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(7级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到七级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji8' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:1200');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:1200');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(7级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:1200';

print (Str);

Str := 'getsenderitem 金元:1200';

print (Str);

Str := 'getsenderitem 江湖等级(7级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(8级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到八级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji9' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:1500');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:1500');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(8级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:1500';

print (Str);

Str := 'getsenderitem 金元:1500';

print (Str);

Str := 'getsenderitem 江湖等级(8级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(9级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到九级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji10' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:1800');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:1800');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(9级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:1800';

print (Str);

Str := 'getsenderitem 金元:1800';

print (Str);

Str := 'getsenderitem 江湖等级(9级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(10级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji11' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:2100');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:2100');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(10级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:2100';

print (Str);

Str := 'getsenderitem 金元:2100';

print (Str);

Str := 'getsenderitem 江湖等级(10级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(11级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十一级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji12' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:2400');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:2400');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(11级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:2400';

print (Str);

Str := 'getsenderitem 金元:2400';

print (Str);

Str := 'getsenderitem 江湖等级(11级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(12级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十二级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji13' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:2700');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:2700');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(12级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:2700';

print (Str);

Str := 'getsenderitem 金元:2700';

print (Str);

Str := 'getsenderitem 江湖等级(12级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(13级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十三级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji14' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:3200');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:3200');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(13级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:3200';

print (Str);

Str := 'getsenderitem 金元:3200';

print (Str);

Str := 'getsenderitem 江湖等级(13级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(14级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十四级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji15' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:3500');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:3500');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(14级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:3500';

print (Str);

Str := 'getsenderitem 金元:3500';

print (Str);

Str := 'getsenderitem 江湖等级(14级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(15级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十五级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji16' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:4000');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:4000');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(15级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:4000';

print (Str);

Str := 'getsenderitem 金元:4000';

print (Str);

Str := 'getsenderitem 江湖等级(15级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(16级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十六级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji17' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:5000');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:5000');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(16级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:5000';

print (Str);

Str := 'getsenderitem 金元:5000';

print (Str);

Str := 'getsenderitem 江湖等级(16级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(17级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十七级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji18' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:6000');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:6000');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(17级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:6000';

print (Str);

Str := 'getsenderitem 金元:6000';

print (Str);

Str := 'getsenderitem 江湖等级(17级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(18级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十八级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji19' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:7000');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:7000');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(18级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:7000';

print (Str);

Str := 'getsenderitem 金元:7000';

print (Str);

Str := 'getsenderitem 江湖等级(18级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(19级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到十九级!';

print (Str);

exit;

end;

if aStr = 'jianghudengji20' then begin

Str := callfunc ('getsenderitemexistence 江湖经验:8000');

if Str = 'false' then begin

Str := 'say 你没有足够的江湖经验';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 金元:8000');

if Str = 'false' then begin

Str := 'say 你没有足够的金元';

print (Str);

exit;

end;

Str := callfunc ('getsenderitemexistence 江湖等级(19级):1');

if Str = 'false' then begin

Str := 'say 你没有等级牌子';

print (Str);

exit;

end;

Str := 'getsenderitem 江湖经验:8000';

print (Str);

Str := 'getsenderitem 金元:8000';

print (Str);

Str := 'getsenderitem 江湖等级(19级):1';

print (Str);

Str := 'putsendermagicitem 江湖等级(20级):1 @江湖老人 4';

print (Str);

print ('say 江湖等级提升了!');

Name := callfunc ('getsendername');

Str := 'sendsendertopmsg ' + '恭喜【';

Str := Str + Name;

Str := Str + '】江湖等级升级到二十级!';

print (Str);

exit;

end;

end;

exit;

end;

if aStr = 'zhuangbei' then begin

print ('showwindow .\help\江湖老人.txt 0');

exit;

end;

end;

end.

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值