千年服务端传送员脚本的实现方法

内容介绍

可以传太极密室(直接去挑公子 有2分时间 随便说明 传太极密室某固定点 里面得老人可以喊开始别得点好象不行) 黄金沙漠 帝王石谷 (主要本人知道可以传送得地图点少估建3个)
在tgs1000/init/npc.sdb里加

1. 传送员,传送员,0,,,,,,,,,,62,81,235,0,0,,,,20000,0,0,0,0,,0,,,,,,,,,,,,,,,TRUE,

复制代码

在tgs1000/script文件加里创建一个文本 名字:传送员
里面内容：

1. unit 传送员;
   
2. interface
   
3. function  GetToken (aStr, aToken, aSep : String) : String;
   
4. function  CompareStr (aStr1, aStr2 : String) : Boolean;
   
5. function  callfunc (aText: string): string;
   
6. procedure print (aText: string);
   
7. function  Random (aScope: integer): integer;
   
8. function  Length (aText: string): integer;
   
9. procedure Inc (aInt: integer);
   
10. procedure Dec (aInt: integer);
    
11. function  StrToInt (astr: string): integer;
    
12. function  IntToStr (aInt: integer): string;
    
13. procedure exit;
    
14. procedure OnLeftClick (aStr : String);
    
15. procedure OnGetResult (aStr : String);
    
16. implementation
    
17. procedure OnLeftClick (aStr : String);
    
18. var
    
19.    Str : String;
    
20.    Race : Integer;
    
21. begin
    
22.    Str := callfunc ('getsenderrace');
    
23.    Race := StrToInt (Str);
    
24.    if Race = 1 then begin
    
25.       Str := 'showwindow ./help/传送员.txt 1';
    
26.       print (Str);
    
27.       exit;
    
28.    end;
    
29. end;
    
30. procedure OnGetResult (aStr : String);
    
31. var
    
32.    Str, Name : String;
    
33.    iCount, iKind : Integer;
    
34. begin
    
35.    if aStr = 'close' then begin
    
36.       exit;
    
37.    end;
    
38.    if aStr = 'goroom' then begin
    
39.       print ('mapregen 32');
    
40.       Name := callfunc ('getsendername');
    
41.       Str := 'movespace ' + Name;
    
42.       Str := Str + ' user 32 23 18';
    
43.       print (Str);
    
44.        exit;
    
45.       end;
    
46.    if aStr = 'goshamu' then begin
    
47.       print ('mapregen 44');
    
48.       Name := callfunc ('getsendername');
    
49.       Str := 'movespace ' + Name;
    
50.       Str := Str + ' user 44 110 120';
    
51. print (Str);      
    
52.    exit;
    
53.       end;
    
54.    if aStr = 'goshigu' then begin
    
55.       print ('mapregen 46');
    
56.       Name := callfunc ('getsendername');
    
57.       Str := 'movespace ' + Name;
    
58.       Str := Str + ' user 46 35 35';
    
59. print (Str);
    
60.        exit;
    
61.       end;
    
62. end;
    
63. end.

复制代码

在tgs1000/script文件夹里得script.sdb里
最后一行加入：

1. 72,传送员.txt,,

复制代码

然后在tgs1000/help里建个文本文件 名字: 传送员
内容如下：

1. 想要传送到哪里？我可以帮忙
   
2. 关闭
   
3. 太极密室
   
4. 黄金沙漠
   
5. 帝王石谷

复制代码

最后在tgs1000/Setting文件夹里得CreateNpc1.sdb里加

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

复制代码

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