72家族网-手游源码论坛

查看:【707】 回复:【1】 发表于 2020-5-24 10:26 存档时间:2022-06-30
本主题由 族长 于 2021-11-6 02:20 反删除
头条
5天前
头条
13天前
头条
24天前
头条
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

战神引擎手游源码

战神引擎战士补偿脚本-3.pas


战神引擎战士补偿脚本-3.pas
  1.                       {********************************************************************

  2. *******************************************************************}

  3. program Mir2;
  4. {$I common.pas}


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

  9. function getSkillNameByJob(HumOrHero , jobId , SkillId : integer) : string;
  10. begin
  11.     result := '';
  12.     case HumOrHero of
  13.         1 :
  14.         begin
  15.             case jobId of
  16.                 0 :
  17.                 begin
  18.                     case SkillId of
  19.                     1 : result := '基本剑术';
  20.                     2 : result := '攻杀剑术';
  21.                     3 : result := '刺杀剑术';
  22.                   
  23.            
  24.    
  25.          
  26.                     end;
  27.                 end;
  28.               
  29.                     
  30.                
  31.                
  32.             end;
  33.         end;
  34.       
  35.                
  36.     end;
  37. end;


  38. procedure _deBug_Skill_1();
  39. begin
  40.    if This_Player.Level >= 35 then
  41.    begin
  42.     This_Npc.NpcDialog(This_Player,
  43.     '|<提升战士技能/@deBug_Skill_1_1~0>    \\||');  
  44.    


  45.   
  46.    end else

  47.      begin
  48.          
  49.          This_Npc.NpcDialog(This_Player,
  50.         '你的等级不到35,无法使用此功能!  ');

  51.      end;
  52. end;


  53. procedure _deBug_Skill_1_1(str_job : string);
  54. var temp_job , n : integer;
  55. str_xx , str_skill : string;
  56. begin
  57.     str_xx := '';
  58.    
  59.     temp_job := StrToIntDef(str_job,-1);
  60.    
  61.     This_Player.SetV(1,48,temp_job);
  62.    
  63.     for n := 0 to 21 do
  64.     begin
  65.         str_skill := getSkillNameByJob(1,temp_job,n);
  66.         if str_skill <> '' then
  67.         begin
  68.             str_xx := str_xx +'<---/@skillDown~' + str_skill + '>' + str_skill +  inttostr(This_Player.GetSkillLevelExt(str_skill,false)) + '级' + '<+++/@skillUP~' + str_skill + '>'  + addSpace('', 11- length(str_skill));
  69.             
  70.             if (n mod 2) = 1 then
  71.             str_xx := str_xx + '^';
  72.             
  73.             if (n mod 2) = 0 then
  74.             str_xx := str_xx + '\|';
  75.             
  76.             
  77.         end;
  78.     end;
  79.    
  80.     This_NPC.NpcDialog(This_Player,'|' + str_xx);
  81. end;

  82. procedure _skillUP(str_Skill : string);
  83. begin
  84.     if This_Player.GetSkillLevelExt(str_Skill,false) < 0 then
  85.     This_Player.Give(str_Skill,1)
  86.     else
  87.     This_Player.ChgSkillLv(str_Skill,This_Player.GetSkillLevelExt(str_skill,false) + 1 ,0);
  88.    
  89.                                                                                                    
  90.     _deBug_Skill_1_1(inttostr(This_Player.GetV(1,48)));  
  91. end;

  92. procedure _skillDown(str_Skill : string);
  93. begin
  94.     if This_Player.GetSkillLevelExt(str_Skill,false) = 0 then
  95.     This_Player.DeleteSkill(str_Skill)
  96.     else
  97.     This_Player.ChgSkillLv(str_Skill,This_Player.GetSkillLevelExt(str_skill,false) - 1 ,0);
  98.    
  99.                                                                                                    
  100.     _deBug_Skill_1_1(inttostr(This_Player.GetV(1,48)));  
  101. end;

  102. procedure _deBug_Skill_2_1(str_job : string);
  103. var temp_job , n : integer;
  104. str_xx , str_skill : string;
  105. begin
  106.     str_xx := '';
  107.    
  108.     temp_job := StrToIntDef(str_job,-1);
  109.    
  110.     This_Player.SetV(1,48,temp_job);
  111.    
  112.     if This_Player.HeroLevel < 1 then
  113.     begin
  114.         This_NPC.NpcDialog(This_Player,
  115.         '请召唤出你的英雄。');
  116.         exit;
  117.     end;   
  118.    
  119.     for n := 0 to 21 do
  120.     begin
  121.         str_skill := getSkillNameByJob(2,temp_job,n);                                                
  122.         if str_skill <> '' then
  123.         begin
  124.             str_xx := str_xx +'<---/@HeroskillDown~' + str_skill + '>' + str_skill +  inttostr(This_Player.GetSkillLevelExt(str_skill,true)) + '级' + '<+++/@HeroskillUP~' + str_skill + '>'  + addSpace('', 11- length(str_skill));
  125.             
  126.             if (n mod 2) = 1 then
  127.             str_xx := str_xx + '^';
  128.             
  129.             if (n mod 2) = 0 then
  130.             str_xx := str_xx + '\|';
  131.             
  132.             
  133.         end;
  134.     end;
  135.    
  136.     This_NPC.NpcDialog(This_Player,'|' + str_xx);
  137. end;

  138. procedure _HeroskillUP(str_Skill : string);
  139. begin
  140.     if This_Player.GetSkillLevelExt(str_Skill,true) < 0 then
  141.     This_Player.Give(str_Skill,1)
  142.     else
  143.     This_Player.ChgSkillLv(str_Skill,This_Player.GetSkillLevelExt(str_skill,true) + 1 ,0);

  144.                                                                                                    
  145.     _deBug_Skill_1_1(inttostr(This_Player.GetV(1,48)));  
  146. end;

  147. procedure _HeroskillDown(str_Skill : string);
  148. begin
  149.     if This_Player.GetSkillLevelExt(str_Skill,false) = 0 then
  150.     This_Player.DeleteSkill(str_Skill)
  151.     else
  152.     This_Player.ChgSkillLv(str_Skill,This_Player.GetSkillLevelExt(str_skill,false) - 1 ,0);
  153.    
  154.                                                                                                    
  155.     _deBug_Skill_1_1(inttostr(This_Player.GetV(1,48)));  
  156. end;




  157. Begin

  158.       This_Npc.NpcDialog(This_Player,
  159.        '近期大量测试玩家反映战士属性低下,打不动人,各种被风筝死等情况,特设置战士补偿NPC,可以加强战士技能威力,以提升战士生存环境  \\||'
  160.        +'|{cmd}<提升技能/@deBug_Skill_1>   '   );
  161. end.
复制代码


使用道具

关闭

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

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

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