关灯
开启左侧

[端游] 【千年服务端】情侣任务之《司仪》,核心HELP文件公布!

[复制链接]
admin实名认证 发表于 2025-8-12 15:40:51 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
 
情侣任务之《司仪》,核心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.
复制代码

 
VIP介绍
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 最佳新人

    注册账号后积极发帖的会员
  • 活跃会员

    经常参与各类话题的讨论,发帖内容较有主见
  • 热心会员

    经常帮助其他会员答疑
  • 推广达人

    积极宣传本站,为本站带来更多注册会员
  • 宣传达人

    积极宣传本站,为本站带来更多的用户访问量
  • 灌水之王

    经常在论坛发帖,且发帖量较大
  • 突出贡献

    长期对论坛的繁荣而不断努力,或多次提出建设性意见
  • 优秀版主

    活跃且尽责职守的版主
  • 荣誉管理

    曾经为论坛做出突出贡献目前已离职的版主
  • 论坛元老

    为论坛做出突出贡献的会员

0关注

7粉丝

3752帖子

排行榜
作者专栏

QQ交流群&&微信订阅号

QQ交流群

微信订阅号

吾爱尚玩资源基地永久域名:

Www.523.Games

在线管理员QQ:1589479632

邮箱:Email@523play.com

QQ交流群:558936238

Copyright   ©2015-2116  吾爱尚玩资源基地|523.Games