第1次看脚本 我模仿的某个服做的 他说独家脚本。呵呵
织梦好,好织梦
unit 江湖老人;
interface dedecms.com
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; dedecms.com
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';
内容来自dedecms
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 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'); 内容来自dedecms
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';
内容来自dedecms
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';
织梦好,好织梦
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';
织梦内容管理系统
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';
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'); dedecms.com
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'; copyright dedecms
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'); 内容来自dedecms
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'); dedecms.com
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'; copyright dedecms
print (Str);
print ('say 江湖等级提升了!');
Name := callfunc ('getsendername');
Str := 'sendsendertopmsg ' + '恭喜【';
Str := Str + Name;
Str := Str + '】江湖等级升级到九级!';
print (Str);
exit;
end; 内容来自dedecms
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');
织梦内容管理系统
内容来自dedecms
dedecms.com
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');
织梦内容管理系统
copyright dedecms
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'); 内容来自dedecms
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';
内容来自dedecms
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'); copyright dedecms
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';
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'); dedecms.com
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'; dedecms.com
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';
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'; dedecms.com
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'); dedecms.com
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';
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'); 内容来自dedecms
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';
dedecms.com
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 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';
织梦好,好织梦
end.
织梦好,好织梦
1.76精品传奇_1.76天下毁灭_1.76复古传奇_英雄合击_中变靓装传奇_无忧传奇
传奇花屏补丁,花屏补丁,土城花屏补丁,盟重土城花屏补丁下载,土城花屏补丁下载,沙巴克花屏补丁,传奇土城花屏补丁下载
网站每天发布最新、最好的传奇版本下载和与传奇服务端配套开区传奇模版,网游技术教程全部免费下载!
无忧网络是目前唯一家所有的传奇服务端,传奇私服花屏补丁,盟重花屏补丁和传奇客户端下载都经过站长亲自测试并配有真实测试图!
所有的工具软件和传奇版本在发布之前,都会经过站长亲自测试,保证chuanqisf可以进入游戏,所有软件都无毒无插件!
本站声明:本站所有技术资料与下载资源均为网络搜集整理,并不代表本站的观点与立场,如有侵犯您的权益,请来信指出,本站将立即改正Copyright © 2002-2014 无忧网络 版权所有蜀ICP备09041899号