添加王陵3老侠客任务脚本
-
tgs1000\Script\老侠客2.txt
-----------------------------------
unit 老侠客2;
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\老侠客2.txt 1';
print (Str);
exit;
end;
end;procedure OnGetResult (aStr : String);
var
Str, Name : String;
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'findyiwu' then begin
Str := callfunc ('getsenderitemexistence 玉仙的无情双刀:1');
if Str = 'false' then begin
Str := 'say 拿玉仙的无情双刀 ';
print (Str);
exit;
end;
if Str = 'true' then begin
Str := callfunc ('getsenderitemexistence 黑马武士:20');
if Str = 'false' then begin
Str := 'say 对不起你20个黑马武士';
print (Str);
exit;
end;
if Str = 'true' then begin
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
print ('say 物品栏已满');
exit;
end;Str := 'getsenderitem 玉仙的无情双刀:1';
print (Str);
Str := 'getsenderitem 黑马武士:20';
print (Str);
Str := 'putsendermagicitem 青铜武士矗立像:1 @老侠客2 4';
print (Str);
Str := 'say 给你青铜武士矗立像';
print (Str);
exit;
end;
end;
exit;
end;
if aStr = 'makebumie' then begin
Str := callfunc ('getsenderitemexistence 珍品玉玺:1');
if Str = 'false' then begin
Str := 'say 拿1个珍品玉玺来 ';
print (Str);
exit;
end;
if Str = 'true' then begin
Str := callfunc ('getsenderitemexistence 珍品新罗金冠:1');
if Str = 'false' then begin
Str := 'say 对不起你没珍品新罗金冠';
print (Str);
exit;
end;
if Str = 'true' then begin
Str := callfunc ('getsenderitemexistence 牌王:1');
if Str = 'false' then begin
Str := 'say 对不起你没牌王';
print (Str);
exit;
end;
if Str = 'true' then begin
Str := callfunc ('getsenderitemexistence 侠客指环一:1');
if Str = 'false' then begin
Str := 'say 对不起你没侠客指环';
print (Str);
exit;
end;
if Str = 'true' then begin
Str := callfunc ('checkenoughspace');
if Str = 'false' then begin
print ('say 物品栏已满');
exit;
end;Str := 'getsenderitem 珍品玉玺:1';
print (Str);
Str := 'getsenderitem 珍品新罗金冠:1';
print (Str);
Str := 'getsenderitem 牌王:1';
print (Str);
Str := 'getsenderitem 侠客指环一:1';
print (Str);
Str := 'putsendermagicitem 不灭的活力:1 @老侠客2 4';
print (Str);
Str := 'say 给不灭的活力';
print (Str);
exit;
end;
end;
end;
end;
end;
exit;
end;end.
-------------------------------------------help 下面 老侠客2.txt<trade>
<title>老侠客</title>
<image name=z24 value=144>
<text>
幸会. 在下乃新罗唯一幸存的花郎老侠客.
我的使命是协助雨中客完成守护王陵.
</text>
<command send='close'>关闭</command>
<command send="findyiwu">找回新罗遗失的遗物</command>
<command send="makebumie">帮我做[不灭]</command>
</trade>--------------------------------------Script下面 Script.SDB 里面加行79是你最后一个数字序号
79,老侠客2.txt,,
------------------------------------Setting下面 CreateNpc1.sdb -----95也是你最后一个数字序号
------------------------------------我这里是刷在 长城以南 500 500 这个坐标上 没刷进王3方便大家测试
95,老侠客2,500,500,1,5,79,,
------------------------------------在 Init下面 npc.sdb里面加上
老侠客2,老侠客,0,,老侠客2.txt,TRUE,,TRUE,TRUE,,,TRUE,8,24,144,1400,400,,,,10000,0,0,0,0,,4,,,,,,,,,,,,,,,TRUE,
--------------------------------------Init下面 Item.sdb加上 暂缺黑马武士的物品信息
王子宝剑,王子宝剑,28,[王陵4大宝物]<br>宝石镶嵌的剑气腾空的王子宝剑,,,,,,TRUE,FALSE,466,,,,,,,,,,2000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,,,,,,
王妃金冠,王妃金冠,28,[王陵 4大宝物]<br>新罗王妃戴过的金冠,,,,,,TRUE,FALSE,464,,,,,,,,,,2000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,,,,,,
公主戒指,公主戒指,28,[王陵4大 宝物]<br>七宝镶嵌的公主名贵的宝石戒指,,,,,,TRUE,FALSE,465,,,,,,,,,,2000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,,,,,,
公主的项链,公主的项链1,28,[王陵4大宝物]<br>纯金打造的公主的金项链,,,,,,TRUE,FALSE,467,,,,,,,,,,2000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,,,,,,
珍品玉玺,珍品玉玺,28,黄金图章乃是新罗王帝位的象征,,,,,,TRUE,FALSE,460,,,,,,,,,,2000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,,,,,,
珍品新罗金冠,珍品新罗金冠,28,新罗王头上戴的一顶纯金王冠,,,,,,TRUE,FALSE,461,,,,,,,,,,2000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,,,,,,
玉仙的无情双刀,无情双刀,28,玉仙的无情双刀,,,,,,TRUE,FALSE,367,,,,,,,,,,2000,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,TRUE,TRUE,,,,,,
