72家族网-手游源码论坛

6.9
查看:【968】 回复:【0】 发表于 2019-8-5 01:01
全站
9小时前
全站
1天前
全站
1天前
全站
2天前
全站
3天前
全站
3天前
全站
4天前
全站
4天前
全站
5天前
全站
6天前
全站
7天前
全站
7天前
全站
9天前
全站
10天前
全站
10天前
全站
11天前
全站
12天前
全站
16天前
全站
16天前
全站
16天前

战神引擎手游源码

战神引擎升级触发实例

  1. 说明:
  2. 角色每次升级将会触发 D:\mud2.0\Mir200\Envir\PsMapQuest\RunQuest.pas 文件中的 PlayerExpLevelUp()方法
  3. procedure PlayerExpLevelUp();
  4. var
  5.   iLev : integer;
  6. begin
  7.    iLev := This_Player.Level;
  8.    
  9.    case iLev of
  10.        7:
  11.        begin
  12.            case This_Player.Job of
  13.                0 :
  14.                begin
  15.                    This_Player.Give('基本剑术',1);                  
  16.                end;
  17.                1 :
  18.                begin
  19.                    This_Player.Give('火球术',1);
  20.                    This_Player.GiveBindItem('魔血石(小)',1);                 
  21.                end;
  22.                2 :
  23.                begin
  24.                   
  25.                    This_Player.Give('治愈术',1);
  26.                    This_Player.Give('精神力战法',1);
  27.                end;
  28.            end;
  29.        end;
  30.        15:
  31.        begin
  32.            case This_Player.Job of
  33.                0 :
  34.                begin
  35.                    This_Player.Give('八荒',1);
  36.                    This_Player.Give('攻杀剑术',1);
  37.                    if This_Player.Gender = 0 then
  38.                    This_Player.Give('中型盔甲(男)',1)
  39.                    else
  40.                    This_Player.Give('中型盔甲(女)',1);
  41.                end;
  42.                1 :
  43.                begin
  44.                    This_Player.Give('海魂',1);
  45.                    This_Player.Give('雷电术',1);
  46.                    if This_Player.Gender = 0 then
  47.                    This_Player.Give('中型盔甲(男)',1)
  48.                    else
  49.                    This_Player.Give('中型盔甲(女)',1);
  50.                end;
  51.                2 :
  52.                begin
  53.                    This_Player.Give('半月',1);
  54.                    This_Player.Give('灵魂火符',1);
  55.                    if This_Player.Gender = 0 then
  56.                    This_Player.Give('中型盔甲(男)',1)
  57.                    else
  58.                    This_Player.Give('中型盔甲(女)',1);
  59.                end;
  60.            end;
  61.        end;
  62.    end;
  63. end;
  64. begin
  65. end.
  66. 改文件入口函数为空,对应方法程序会直接调用
  67. 该文件中不可以使用This_NPC对象调用接口,只能使用This_Player对象调用
  68. 角色每次登录聊天框都会显示“欢迎登陆战神传奇”
复制代码

使用道具

关闭

72家族网欢迎您-手游源码开发者论坛上一条 /1 下一条

综合统计   资源量:696833   会员数:108436   今日活跃:571   昨日活跃:624   同时在线:218

9年老站欢迎您,已运行,感谢一路相伴

域名:72jz.com 年龄:9年 世界排名:1,091,577 日均访问[PV]:15000  创建于2011年04月20日,过期时间为2029年04月20日[待续] 皖ICP备11014237号

本站专注为新手提供手游源码、网页游戏源码、游戏一键端资源教程开发技术交流学习论坛

本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
若有侵权与文章中不妥之处,请联系邮箱:admjz@vip.qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!

2011-2020 72家族网 版权所有 Powered by Discuz!
本站部分资源系统会自动采集第三方,若不小心侵权了品牌请及时联系我们邮箱,会在第一时间删除。