传送员脚本的实现方法

快要发癫啦 · 发表于 2023-1-6 09:36:01

可以传太极密室(直接去挑公子有2分时间随便说明传太极密室某固定点里面得老人可以喊开始别得点好象不行) 黄金沙漠帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在 tgs1000/init/npc.sdb里加
传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,
在tgs1000/script文件加里创建一个文本名字:传送员
里面内容
-----------------------------------------
unit 传送员;
inte**ce
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里建个文本文件名字: 传送员
内容如下
------------------------------------------------

想要传送到哪里？我可以帮忙
关闭
太极密室
黄金沙漠
帝王石谷
-----------------------------------------------------
最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加
-----------------------------
79,传送员,500,500,1,5,72,,
-----------------------------
(79是我里面得最后一行具体数字可以设定你这个文件里得最后一行)

已有账号？

注册后更精彩

客服微信

电子邮件

《星之海洋：神圣力量》评测：归来时仍以游

2009年的六一！英雄妖刀独树一帜！

千年手游：关于副本的秘密你了解吗？

20年的千年，20年的梦，玩千年20年的日记

说一说那些年私服的故事吧

[安全工具] 传送员脚本的实现方法

浏览过的版块