添加换取英雄装备的脚本
-
首先
在D:\1000yServer\tgs1000\Init\ Item这里加入
英雄丹,英雄丹,4,,,,,,,TRUE,FALSE,209,,,,,,28,,,,8000,,,,,,,,,,,,,,,,,,,,,,,,,,,,FALSE,,,FALSE,,,,,,,,,,,,,,,
在D:\1000yServer\tgs1000\Init\npc.sdb里 加入
英雄大人,英雄大人,0,,英雄大人.txt,TRUE,,TRUE,,,,TRUE,35,54,133,150,30,,,,3500,-10,0,-70,0,,4,,,,,
然后在D:\1000yServer\tgs1000\Help\
创建一个TXT的记事本命名为 英雄大人 然后将以下代码复制进去
<trade>
<title>英雄大人</title>
<image name=z24 value=235>
<text>
拿英雄丹给我，我给你好东西
</text>
<command send='close'>关闭</command>
<command send="changeweapon">交换英雄丹</command>
</trade>然后 在 X:\1000yServer\tgs1000\Script 里Script 加
72,英雄大人.txt,,
然后 创建一个文本文件 命名为 英雄大人 然后把下面的复制
if aStr = 'changeweapon' then begin
Str := callfunc ('getsenderitemexistence 英雄丹:1');
if Str = 'false' then begin
print ('say 拿英雄丹再来!');
exit;
end;
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
print ('say 物品栏已满~');
exit;
end;print ('getsenderitem 英雄丹:1');
iKind:= Random (14);
if iKind = 0 then begin
Str := 'putsendermagicitem 男子英雄战甲 @英雄大人 4';
print (Str);
end;
if iKind = 1 then begin
Str := 'putsendermagicitem 女子英雄战甲 @英雄大人 4';
print (Str);
end;
if iKind = 2 then begin
Str := 'putsendermagicitem 男子英雄头盔 @英雄大人 4';
print (Str);
end;
if iKind = 3 then begin
Str := 'putsendermagicitem 男子英雄头盔 @英雄大人 4';
print (Str);
end;
if iKind = 4 then begin
Str := 'putsendermagicitem 男子英雄头盔 @英雄大人 4';
print (Str);
end;
if iKind = 5 then begin
Str := 'putsendermagicitem 女子英雄护腕 @英雄大人 4';
print (Str);
end;
if iKind = 6 then begin
Str := 'putsendermagicitem 男子英雄战靴 @英雄大人 4';
print (Str);
end;
if iKind = 7 then begin
Str := 'putsendermagicitem 男子英雄战靴 @英雄大人 4';
print (Str);
end;
if iKind = 8 then begin
Str := 'putsendermagicitem 跳影手 @英雄大人 4';
print (Str);
end;
if iKind = 9 then begin
Str := 'putsendermagicitem 青月天剑 @英雄大人 4';
print (Str);
end;
if iKind = 10 then begin
Str := 'putsendermagicitem 天云宝刀 @英雄大人 4';
print (Str);
end;
if iKind = 11 then begin
Str := 'putsendermagicitem 白骨魔凤枪 @英雄大人 4';
print (Str);
end;
if iKind = 12 then begin
Str := 'putsendermagicitem 天龙月斧 @英雄大人 4';
print (Str);
end;
if iKind = 13 then begin
Str := 'putsendermagicitem 鬼魂斗甲 @英雄大人 4';
print (Str);
end;
if iKind = 14 then begin
Str := 'putsendermagicitem 大脉神弓 @英雄大人 4';
print (Str);
end;
print ('say 贵重物品。。。要妥善保管,继续努力噢^_^!');
end;
end;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 1';
print (Str);
exit;
end;
end;end.
最后再 D:\1000yServer\tgs1000\Setting 这里 打开CreateNpc1这个文件夹最后一行加入 79,英雄大人,531,460,1,3,14,,
在爆怪的文件夹里设置 爆英雄丹 这样就可以啦！ 呵呵^_^
爆东西在D:\1000yServer\tgs1000\Init 的Monster这里
比如让太极公子爆出 英雄丹 就
太极公子,太极公子,6360,7500,3000,,0,8,63,82,100,4000,,,,1000,65000,-20,30,-70,,10,,TRUE,TRUE,TRUE,,,,,,0,10,TRUE,,,,,,透视,TRUE,,9158,9159,,9160,,,,小丸丹一:4:4:银丹:4:4:银钞:2:4,1,太极明珠三:1:100:骸骨:1:12:英雄丹:1:10,,,,,,115,,,,,,,,,,,,,,,,,,,,,
