建立一个传送员
-
可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷
在 tgs1000\init\npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,在tgs1000\script文件加里创建一个文本 名字:传送员
里面内容
-----------------------------------------
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 OnLeftClick (aStr : String);
procedure OnGetResult (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 1';
print (Str);
exit;
end;
end;procedure OnGetResult (aStr : String);
var
Str, Name : String;
iCount, iKind : Integer;
begin
if aStr = 'close' then begin
exit;
end;
if aStr = 'goroom' then begin
print ('mapregen 32');
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 32 23 18';
print (Str);
exit;
end;
if aStr = 'goshamu' then begin
print ('mapregen 44');
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 44 110 120';
print (Str);
exit;
end;
if aStr = 'goshigu' then begin
print ('mapregen 46');
Name := callfunc ('getsendername');
Str := 'movespace ' + Name;
Str := Str + ' user 46 35 35';
print (Str);
exit;
end;
end;
end.------------------------------------------------
在tgs1000\script文件夹里得script.sdb里
最后一行加入
--------------------
72,传送员.txt,,
--------------------然后在tgs1000\help里建个文本文件 名字: 传送员
内容如下
------------------------------------------------
<trade>
<title>传送员</title>
<image name=z81 value=235>
<text>
想要传送到哪里？我可以帮忙
</text>
<command send='close'>关闭</command>
<command send="goroom">太极密室</command>
<command send="goshamu">黄金沙漠</command>
<command send="goshigu">帝王石谷</command>
</trade>
-----------------------------------------------------最后在tgs1000\Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
79,传送员,500,500,1,5,72,,
-----------------------------
(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行)
