72家族网-手游源码论坛

查看:【621】 回复:【1】 发表于 2020-5-20 11:19 存档时间: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. 作者:开心就好 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 下一条

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

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