适用于神武奇章---具体传送点可以自己修改
传送员脚本
可以传太极密室、 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建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是我里面得最后一行 具体数字可以设定你这个文件里得最后一行