【千年服务端】情侣任务之《司仪》，核心HELP文件公布！

情侣任务之《司仪》，核心HELP文件公布！

这一段必须男女两个玩家配合才能完成。
如果没有男女两个人登记完，是不能启动公告的！！

需要增加的物品有
成人证明、新郎证书、新娘证书
//----====help部分ql司仪.txt====------

<trade>
<title>司仪</title>
<image name=z42 value=126>
<text>
祝福你们这对新人。
</text>
<command send='close'>关闭</command>
<command send="qldengji">情侣登记</command>
<command send="qlyishi">邀请好友参加婚礼</command>
</trade>


//----====脚本主体部分===-------

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.       print ('showwindow .\help\ql司仪.txt 1');  //弹出help文件对话框
    
26.       exit;
    
27.    end;
    
28. end;
    
29. procedure OnGetResult (aStr : String);
    
30. var
    
31.    Str, Name : String;
    
32.    nnName, vvName : String = '无名氏';
    
33. begin
    
34.    if aStr = 'close' then begin
    
35.       exit;
    
36.    end;
    
37.    //下面是输入双方的姓名的
    
38.    if aStr = 'qldengji' then begin
    
39.       Str := callfunc ('getsenderitemexistence 成人证明:1');
    
40.       if Str = 'false' then begin
    
41.          Str := 'say 未成年人凑什么热闹?';
    
42.          print (Str);
    
43.          exit;
    
44.       end;
    
45.       //获取性别来自主判断弹出什么对话框
    
46.       Str := callfunc ('getsendersex');
    
47.       if Str = '1' then begin
    
48.          Str := callfunc ('getsenderitemexistence 新郎证书:1');
    
49.          if Str = 'true' then begin
    
50.             Str := 'say 接完婚的人还来这里胡闹成何体统?';
    
51.             print (Str);
    
52.             exit;
    
53.          end;
    
54.          nnName := callfunc ('getsendername');
    
55.          print ('getsenderitem 成人证明:1');
    
56.          print ('putsendermagicitem 新郎证书:1 @司仪 4');
    
57.          print ('say 新郎，快准备结婚典礼吧!');
    
58.          exit;
    
59.       end;
    
60.       
    
61.       if Str = '2' then begin
    
62.           Str := callfunc ('getsenderitemexistence 新娘证书:1');
    
63.           if Str = 'true' then begin
    
64.               Str := 'say 接完婚的人还来这里胡闹成何体统?';
    
65.               print (Str);
    
66.               exit;
    
67.           end;
    
68.           vvName := callfunc ('getsendername');
    
69.           print ('getsenderitem 成人证明:1');
    
70.           print ('putsendermagicitem 新娘证书:1 @司仪 4');
    
71.           print ('say 新娘，快准备结婚典礼吧!');
    
72.           exit;
    
73.        end;
    
74.       
    
75.       exit;
    
76.    end;   
    
77.    //公告部分。如果没有男女两个玩家登记完，这里是不能生效的
    
78.    if aStr = 'qlyishi' then begin
    
79.       if nnName = '无名氏' then begin
    
80.           print ('say 新郎还没有登记吧!');
    
81.          exit;
    
82.       end;
    
83.       if vvName = '无名氏' then begin
    
84.           print ('say 新娘还没有登记吧!');
    
85.          exit;
    
86.       end;
    
87.       Str := callfunc ('getsendersex');
    
88.       if Str = '1' then begin
    
89.       Name := callfunc ('getsendername');
    
90.       if Name  nnName then begin
    
91.           print ('say 似乎你不是刚才那位新郎吧!');
    
92.          exit;
    
93.       end;
    
94.          Str := 'sendsendertopmsg ' + '新郎【';
    
95.          Str := Str + nnName;
    
96.          Str := Str + '】和新娘【';
    
97.          Str := Str + vvName;
    
98.          Str := Str + '】的结婚典礼马上开始!';
    
99.          print (Str);
    
100.          exit;
     
101.       end;
     
102.       if Str = '2' then begin
     
103.       Name := callfunc ('getsendername');
     
104.       if Name  vvName then begin
     
105.           print ('say 似乎你不是刚才那位新娘吧!');
     
106.          exit;
     
107.       end;
     
108.          Str := 'sendsendertopmsg ' + '新郎【';
     
109.          Str := Str + nnName;
     
110.          Str := Str + '】和新娘【';
     
111.          Str := Str + vvName;
     
112.          Str := Str + '】的结婚典礼马上开始!';
     
113.          print (Str);
     
114.          exit;
     
115.       end;
     
116.       exit;
     
117.   end;
     
118. end;
     
119. end.

复制代码

下载地址

情侣任务之《司仪》，核心HELP文件公布！.doc

网盘失效？举报有奖

立即下载

免费

您已购买

金币

【年费VIP仅需28元】   【购买VIP会员】  
【充值金币】  【免费领取金币】 
【解压密码在此下载文档内，请仔细阅读！】