千年服务端怪物攻城全部脚本代码

内容介绍

千年服务端怪物攻城全部脚本代码

Help  文件夹，怪物攻城.txt。

1. 怪物攻城
   
2. 
   
3. 真的要启动怪物攻城吗？
   
4. 
   
5. 关闭
   
6. 
   
7. 递上金月魂 启动东方怪物攻城
   
8. 递上赤月魂 启动南方怪物攻城
   
9. 递上银月魂 启动北方怪物攻城
   
10. 递上翠月魂 启动西方怪物攻城
    
11. 递上蓝月魂 启动中央怪物攻城
    

复制代码

script 文件夹，怪物攻城.txt。

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 OnGetResult (aStr : String);
    
15. procedure OnLeftClick (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 0';
    
26.       print (Str);
    
27.       exit;
    
28.    end;
    
29. end;
    
30. procedure OnGetResult (aStr : String);
    
31. var
    
32.    Str, Name : String;
    
33.    iRandom : Integer;
    
34. begin
    
35.    if aStr = 'close' then begin
    
36.       exit;
    
37.    end;
    
38.    if aStr = 'nanfang' then begin
    
39.   Str := callfunc ('getsenderitemexistence 赤月魂:1');
    
40.       if Str = 'false' then begin
    
41.          print ('say 用15个月之灵20个月之环加15个月之音合成赤月魂才能启动');
    
42.          exit;
    
43.       end;
    
44.    print ('mapaddobjbyname monster 王冠守护者 493 498 2 0 false');
    
45.    print ('mapaddobjbyname monster 祭天死神 497 495 2 0 false');
    
46.    print ('mapaddobjbyname monster 祭天使者 500 492 2 0 false');
    
47.    print ('mapaddobjbyname monster 神母 507 499 2 0 false');
    
48.    print ('mapaddobjbyname monster 恐惧魔王 503 500 2 0 false');
    
49.    print ('mapaddobjbyname monster 深渊魔王 500 503 2 0 false');
    
50.       Str := 'getsenderitem 赤月魂:1';
    
51.             print (Str);
    
52.             Name := callfunc ('getsendername');
    
53.             Str := 'sendsendertopmsg ' + Name;
    
54.             Str := Str + '提醒您，南方怪物攻城告急!!';
    
55.             print (Str);
    
56.       exit;
    
57.    end;  
    
58.    if aStr = 'dongfang' then begin
    
59.   Str := callfunc ('getsenderitemexistence 金月魂:1');
    
60.       if Str = 'false' then begin
    
61.          print ('say 用15个月之流20个月之华加15个月之音合成金月魂才能启动');
    
62.          exit;
    
63.       end;
    
64.    print ('mapaddobjbyname monster 聂风 545 501 2 0 false');
    
65.    print ('mapaddobjbyname monster 第二梦 543 499 2 0 false');
    
66.    print ('mapaddobjbyname monster 楚楚 541 497 2 0 false');
    
67.    print ('mapaddobjbyname monster 步惊云 546 492 2 0 false');
    
68.    print ('mapaddobjbyname monster 刀皇 548 494 2 0 false');
    
69.    print ('mapaddobjbyname monster 剑圣 550 496 2 0 false');
    
70.       Str := 'getsenderitem 金月魂:1';
    
71.             print (Str);
    
72.             Name := callfunc ('getsendername');
    
73.             Str := 'sendsendertopmsg ' + Name;
    
74.             Str := Str + '提醒您，东方怪物攻城告急!!';
    
75.             print (Str);
    
76.       exit;
    
77.    end;  
    
78.    if aStr = 'beifang' then begin
    
79.   Str := callfunc ('getsenderitemexistence 银月魂:1');
    
80.       if Str = 'false' then begin
    
81.          print ('say 用15个月之华20个月之流加15个月之环合成银月魂才能启动');
    
82.          exit;
    
83.       end;
    
84.    print ('mapaddobjbyname monster 张飞 546 448 2 0 false');
    
85.    print ('mapaddobjbyname monster 关羽 544 450 2 0 false');
    
86.    print ('mapaddobjbyname monster 赵云 542 452 2 0 false');
    
87.    print ('mapaddobjbyname monster 隐龙 547 457 2 0 false');
    
88.    print ('mapaddobjbyname monster 国王 550 454 2 0 false');
    
89.    print ('mapaddobjbyname monster 神剑守护者 544 460 2 0 false');
    
90.       Str := 'getsenderitem 银月魂:1';
    
91.             print (Str);
    
92.             Name := callfunc ('getsendername');
    
93.             Str := 'sendsendertopmsg ' + Name;
    
94.             Str := Str + '提醒您，北方怪物攻城告急!!';
    
95.             print (Str);
    
96.       exit;
    
97.    end;  
    
98.    if aStr = 'xifang' then begin
    
99.   Str := callfunc ('getsenderitemexistence 翠月魂:1');
    
100.       if Str = 'false' then begin
     
101.          print ('say 用15个月之灵15个月之流加20个月之音合成翠月魂才能启动');
     
102.          exit;
     
103.       end;
     
104.    print ('mapaddobjbyname monster 怀空 493 448 2 0 false');
     
105.    print ('mapaddobjbyname monster 怀灭 496 451 2 0 false');
     
106.    print ('mapaddobjbyname monster 白伶 498 453 2 0 false');
     
107.    print ('mapaddobjbyname monster 断浪 504 449 2 0 false');
     
108.    print ('mapaddobjbyname monster 剑晨 501 446 2 0 false');
     
109.    print ('mapaddobjbyname monster 左护法 498 443 2 0 false');
     
110.       Str := 'getsenderitem 翠月魂:1';
     
111.             print (Str);
     
112.             Name := callfunc ('getsendername');
     
113.             Str := 'sendsendertopmsg ' + Name;
     
114.             Str := Str + '提醒您，西方怪物攻城告急!!';
     
115.             print (Str);
     
116.       exit;
     
117.    end;  
     
118.    if aStr = 'zhongyang' then begin
     
119.   Str := callfunc ('getsenderitemexistence 蓝月魂:1');
     
120.       if Str = 'false' then begin
     
121.          print ('say 用20个月之灵15个月之华加15个月之环合成翠月魂才能启动');
     
122.          exit;
     
123.       end;
     
124.    print ('mapaddobjbyname monster 纯一狼 533 466 2 0 false');
     
125.    print ('mapaddobjbyname monster 瑤池聖母 527 472 2 0 false');
     
126.    print ('mapaddobjbyname monster 杨过 529 479 2 0 false');
     
127.    print ('mapaddobjbyname monster 小龙女 520 478 2 0 false');
     
128.    print ('mapaddobjbyname monster 人王伏羲 520 469 2 0 false');
     
129.    print ('mapaddobjbyname monster 破天弓箭手 524 477 2 0 false');
     
130.       Str := 'getsenderitem 蓝月魂:1';
     
131.             print (Str);
     
132.             Name := callfunc ('getsendername');
     
133.             Str := 'sendsendertopmsg ' + Name;
     
134.             Str := Str + '提醒您，中央怪物攻城告急!!';
     
135.             print (Str);
     
136.       exit;
     
137.    end;  
     
138.    end;
     
139. end.
     

复制代码

其他的在Setting  Init 文件夹中的文件自己设置即可。

恢复规划规范化规范化