72家族网-手游源码论坛

6.9
查看:【65】 回复:【1】 发表于 2020-5-20 11:19
本主题由 族长 于 2020-5-24 11:12 分类
全站
10小时前
全站
1天前
全站
1天前
全站
2天前
全站
3天前
全站
4天前
全站
4天前
全站
4天前
全站
5天前
全站
6天前
全站
7天前
全站
7天前
全站
8天前
全站
10天前
全站
11天前
全站
11天前
全站
12天前
全站
13天前
全站
17天前
全站
17天前

战神引擎手游源码

战神引擎幸运使者幸运项链修复脚本

战神引擎幸运使者幸运项链修复脚本
  1. {项链加幸运
  2. 作者:开心就好 and 孩子气
  3. 内容:项链升级幸运,每次鉴定请间隔5秒,待鉴定装备属性越高,鉴定消耗的元宝也越多,成功率越低
  4. +1 99%成功 +2 50% +3 15%成功
  5. }
  6. program mir2;
  7. procedure _DoExit;
  8. begin
  9.   This_Npc.CloseDialog(This_Player);
  10. end;
  11. procedure _Exit;
  12. begin
  13.   This_Npc.CloseDialog(This_Player);
  14. end;
  15. var
  16. ck_name : array[1..3 ]of string;
  17. ck_value : array[1..3] of integer;
  18. procedure OnInitialize; //这下面可以继续添加可以升级幸运的项链
  19. begin
  20. ck_name[1] :='白色虎齿项链';
  21. ck_name[2] :='灯笼项链';
  22. ck_name[3] :='记忆项链';
  23. ck_value[1] :=400;  //这下面可以继续添加可以升级所需元宝或者修改
  24. ck_value[2] :=400;
  25. ck_value[3] :=800;
  26. end;
  27. procedure _Checkup;
  28. begin
  29.   This_Npc.NpcDialog(This_Player,
  30.   '|可以鉴定的装备:\'
  31.   +'|<白色虎齿项链、灯笼项链,记忆项链/c=red>\'
  32.   +'|鉴定成功有几率增加以下属性:<幸运/c=red>\'
  33.   +'|每次鉴定消耗一定数量的元宝:\'
  34.   +'<普通白色虎齿项链:400元宝/c=red>\'
  35.   +'<普通灯笼项链:400元宝/c=red>\'
  36.   +'<普通记忆项链:800元宝/c=red>\'
  37.   +'|<待鉴定装备属性越高,鉴定消耗的元宝也越多,成功率越低。/c=red>\'
  38.   +'|<注意:每次鉴定请间隔5秒,如果多次点击没反应,请关掉NPC重新放入装备升级/c=red>\'
  39.   +'|{cmd}<开始鉴定/@Checkup_1>        ^<关闭/@doexit>'
  40.   );
  41. end;
  42. procedure _Checkup_1;
  43. begin
  44.    This_NPC.Click_CommitItem(This_Player,1,'待升级装备:');
  45. end;
  46. procedure CommitItem(AType:word);
  47. var
  48. i,ck_num,ck_kind,ck_gold,ck_rand:integer;
  49. ck_str,ck_red:string;
  50. begin
  51.      ck_gold := 0;  //初始化
  52.      ck_str := '';  //初始化
  53.      ck_red := '';  //初始化
  54.      for ck_kind := 1 to 3 do  //如果上面添加到了10个  则这里的3改成10
  55.      begin
  56.        if ck_name[ck_kind] = This_Item.ItemName then
  57.        begin                             
  58.          ck_num := This_Item.AddPa2;
  59.          ck_gold := ck_value[ck_kind];
  60.           if (ck_num > 0) and (ck_num < 3) then //有添加的话这里相应改到10,下同
  61.          begin
  62.            for i:= 1 to ck_num  do
  63.            begin
  64.            ck_gold := ck_gold*2;
  65.            end;
  66.          end;  
  67.        end;
  68.      end;
  69.      if ck_num >= 3 then
  70.      begin
  71.      This_Player.NotifyClientCommitItem(0,'无法鉴定:你的'+This_Item.ItemName+'已激发出所有属性!');  
  72.      end else
  73.      if ck_gold > 0 then
  74.      begin ck_rand := random(100)                                                                                       
  75.        if This_Player.YBNum>= ck_gold then
  76.         case ck_num of
  77.         0 :
  78.         begin  
  79.          if ck_rand < 1then
  80.             begin
  81.          This_Player.PsYBConsum(This_NPC,'xin',20152,ck_gold,1);  
  82.          This_Player.NotifyClientCommitItem(0,'升级失败,你的项链属性未发生变化');
  83.          This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
  84.          This_NPC.Click_CommitItem(This_Player,1,'待升级装备:');
  85.            end else
  86.            if ck_rand < 99 then
  87.             begin
  88.          This_Item.AddPa2 := This_Item.AddPa2 + 1;   //幸运+1
  89.            This_Player.PsYBConsum(This_NPC,'xin',20153,ck_gold,1);  
  90.          ck_str :='幸运+1';
  91.          ck_red :='红字公告';
  92.          This_Player.NotifyClientCommitItem(0,'升级成功:你的'+This_Item.ItemName+'提升到了'+ck_str+'!');
  93.          This_NPC.NpcNotice('恭喜:'+This_Player.Name+'在幸运使者处把'+This_Item.ItemName+'的幸运提升到了'+ck_str+'!');
  94.          This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
  95.          This_NPC.Click_CommitItem(This_Player,1,'待升级装备:');
  96.             end;
  97.         end;
  98.        1 : begin  
  99.          if ck_rand < 50 then
  100.             begin
  101.          This_Player.PsYBConsum(This_NPC,'xin',20152,ck_gold,1);  
  102.          This_Player.NotifyClientCommitItem(0,'升级失败,你的项链属性未发生变化');
  103.          This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
  104.          This_NPC.Click_CommitItem(This_Player,1,'待升级装备:');
  105.            end else
  106.          if ck_rand < 99 then
  107.          begin
  108.          This_Item.AddPa2 := This_Item.AddPa2 + 1;   //幸运+2
  109.            This_Player.PsYBConsum(This_NPC,'xin',20153,ck_gold,1);  
  110.          ck_str :='幸运+2';
  111.          ck_red :='红字公告';
  112.          This_Player.NotifyClientCommitItem(0,'升级成功:你的'+This_Item.ItemName+'提升到了'+ck_str+'!');
  113.          This_NPC.NpcNotice('恭喜:'+This_Player.Name+'在幸运使者处把'+This_Item.ItemName+'的幸运提升到了'+ck_str+'!');
  114.          This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
  115.          This_NPC.Click_CommitItem(This_Player,1,'待升级装备:');
  116.          end;
  117.          end;
  118.          2:begin  ck_rand := random(100);
  119.            if ck_rand < 85 then
  120.             begin
  121.          This_Player.PsYBConsum(This_NPC,'xin',20152,ck_gold,1);  
  122.          This_Player.NotifyClientCommitItem(0,'升级失败,你的项链属性未发生变化');
  123.          This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
  124.          This_NPC.Click_CommitItem(This_Player,1,'待升级装备:');
  125.            end else
  126.            if ck_rand < 99 then
  127.             begin
  128.          This_Item.AddPa2 := This_Item.AddPa2 + 1;   //幸运+3
  129.          This_Player.PsYBConsum(This_NPC,'xin',20153,ck_gold,1);  
  130.          ck_str :='幸运+3';
  131.          ck_red :='红字公告';
  132.          This_Player.NotifyClientCommitItem(0,'升级成功:你的'+This_Item.ItemName+'提升到了'+ck_str+'!');
  133.          This_NPC.NpcNotice('恭喜:'+This_Player.Name+'在幸运使者处把'+This_Item.ItemName+'的幸运提升到了'+ck_str+'!');
  134.          This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
  135.          This_NPC.Click_CommitItem(This_Player,1,'待升级装备:');
  136.             end;
  137.          end;
  138.       end else
  139.        begin
  140.          This_Player.NotifyClientCommitItem(0,'无法鉴定:你的元宝不足,需要'+inttostr(ck_gold)+'元宝。!');
  141.        end;
  142.       end else
  143.      begin
  144.         This_Player.NotifyClientCommitItem(0,'该物品不可升级,请投入可升级的装备!');   
  145.      end;     
  146.   end;
  147. function xin(price, num: Integer):boolean;
  148. begin
  149.    result := true;
  150. end;
  151. begin
  152.   This_Npc.NpcDialog(This_Player,
  153.   '|我云游一生,见识过玛法大陆上的各种奇珍异宝,但是只对三种宝物\'
  154.   +'|感兴趣,一种名为<白色虎齿项链/c=red>,另外两种名为<灯笼项链和记忆项链/c=red>。\'
  155.   +'|我曾习得一种鉴宝秘术,可以激发出宝物隐藏的力量,不过也可能会\'
  156.   +'|使其烟消云散。如果你手中有这三种种宝物,不妨交给我鉴定一番,当\'
  157.   +'|然,我会收取你一定远程的手续费,如果失败了也千万不要怪我。\ \'
  158.   +'|{cmd}<开始鉴定/@Checkup>\'
  159.   );
  160. end.
复制代码


使用道具

关闭

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

综合统计   资源量:697398   会员数:108510   今日活跃:526   昨日活跃:616   同时在线:211

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!
本站部分资源系统会自动采集第三方,若不小心侵权了品牌请及时联系我们邮箱,会在第一时间删除。