千年传送员脚本收藏

适用于神武奇章---具体传送点可以自己修改
传送员脚本
可以传太极密室、 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)

在 tgs1000initnpc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,

在tgs1000script文件加里创建一个文本 名字传送员

里面内容

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.

---

在tgs1000script文件夹里得script.sdb里

最后一行加入

72,传送员.txt,,

然后在tgs1000help里建个文本文件 名字 传送员

内容如下

想要传送到哪里？我可以帮忙

关闭
太极密室
黄金沙漠
帝王石谷

---

最后在tgs1000Setting文件夹里得CreateNpc1.sdb里加

79,传送员,500,500,1,5,72,,

(79是我里面得最后一行 具体数字可以设定你这个文件里得最后一行