72家族网-手游源码论坛

查看:【923】 回复:【0】 发表于 2020-5-20 11:16 存档时间:2022-07-02
本主题由 族长 于 2021-11-6 02:20 反删除
头条
8天前
头条
15天前
头条
26天前
头条
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. {$I WarehouseAndMbind.pas}
  6. {$I ActiveValidateCom.pas}
  7. {$I goToMonMap.pas}

  8. procedure _DoExit;
  9. begin
  10.   This_Npc.CloseDialog(This_Player);
  11. end;

  12. procedure _Exit;
  13. begin
  14.   This_Npc.CloseDialog(This_Player);
  15. end;

  16. procedure domain;
  17. begin
  18.     This_NPC.NpcDialog(This_Player,
  19.     '比奇城是玛法大陆上最繁华的城市\'
  20.     +'|{cmd}<确定/@exit>            ^<提升信用分/@xinyong>\'
  21.     );
  22. end;


  23. Procedure _xinyong;
  24. Begin
  25.     if This_Player.GoldNum >= 10000 then
  26.     This_Player.DecGold(10000);
  27.      This_Player.IncActivePoint(1);  //增加信用分1

  28. end;

  29. begin
  30. domain;
  31. end.
复制代码


使用道具

关闭

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

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

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