72家族网-手游源码论坛

查看:【1092】 回复:【2】 发表于 2020-5-20 11:05 存档时间:2022-07-03
本主题由 族长 于 2021-11-6 02:20 反删除
头条
9天前
头条
17天前
头条
28天前
头条
2022-05-30
头条
2022-05-30
头条
2022-05-30
头条
2022-05-19
头条
2022-05-02
头条
2022-04-22
头条
2022-04-18
头条
2022-04-13
头条
2022-04-02
头条
2022-04-01
头条
2022-03-28
头条
2022-03-24
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23

战神引擎手游源码

战神引擎纯净卡密兑换充值元宝使者,自助充值脚本

战神引擎纯净卡密兑换充值元宝使者,自助充值脚本
  1. {
  2. *******************************************************************}

  3. program Mir2;

  4. {$I common.pas}


  5. procedure _DoExit;
  6. begin
  7.   This_Npc.CloseDialog(This_Player);
  8. end;




  9. Procedure _DoInputDialog1;
  10. var wrongStr : string;
  11. d1 , d2 , d3 : integer;
  12. s1 , td : double;
  13. temp_2 : integer;
  14. begin
  15.       s1 := GetNow;
  16.       d2 := This_Player.GetS(23,1);
  17.       //将getnow的浮点数转换为整型进行保存;

  18.       td := ConvertDBToDateTime(d2);

  19.       d3 := minusDataTime(s1,td);

  20.       temp_2 := This_Player.GetS(23,2);


  21.    if (d3 >= 300) then
  22.    wrongStr := ''
  23.    else
  24.    wrongStr := '错误次数' + inttostr(This_Player.GetS(23,2)) + '/3';

  25.    This_Npc.InputDialog(This_Player,'请输入卡密:' + wrongStr , 0 , 100);
  26. end;


  27. Procedure P100;
  28. var
  29. d1 , d2 , d3 : integer;
  30. s1 , td : double;
  31. temp_2 : integer;
  32. begin
  33.       s1 := GetNow;
  34.       d2 := This_Player.GetS(23,1);
  35.       //将getnow的浮点数转换为整型进行保存;

  36.       td := ConvertDBToDateTime(d2);

  37.       d3 := minusDataTime(s1,td);

  38.       temp_2 := This_Player.GetS(23,2);


  39.    if (d3 >= 300) or (This_Player.GetS(23,2) < 3) then
  40.    begin
  41.        If This_Npc.InputOK then
  42.        begin
  43.           //This_Player.PlayerNotice(This_Npc.InputStr,0);
  44.           This_Player.QueryAwardCode(This_Npc.InputStr);
  45.        end;
  46.    end else
  47.    begin


  48.    This_Npc.NpcDialog(This_Player,
  49.    '你已连续输入错误卡密3次,将锁定5分钟!请' + inttostr(300 - d3) + '秒后再次尝试!'
  50.    );
  51.    end;
  52. end;



  53. Begin     
  54.     This_Npc.NpcDialog(This_Player,
  55.     '您好,有什么可以效劳的?我可以为您提供关于元宝的各类服务。\ \'
  56.     +'|{cmd}<使用卡密兑换元宝/@DoInputDialog1>'
  57.     );

  58. end.
复制代码


使用道具

关闭

72家族网 - 游戏开发者学习平台上一条 /1 下一条

本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
本站仅提供信息存储空间服务,软件的复制品持有人不知道也没有合理的理由应当知道展示的作品侵权!
本站所有资源仅限用于研究产品软件内含、设计思想和原理为目的用途,禁止任何商用行为,违者后果自负!
若有侵权与文章中不妥之处,请联系邮箱:zhende5555@qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!

2011-2022 私服论坛 www.sifubbs.com 手游源码技术讨论平台 Powered by Discuz!