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

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

1.                       {********************************************************************
   
2. 
   
3. *******************************************************************}
   
4. 
   
5. program Mir2;
   
6. {$I common.pas}
   
7. 
   
8. 
   
9. procedure _DoExit;
   
10. begin
    
11.   This_Npc.CloseDialog(This_Player);
    
12. end;
    
13. 
    
14. function getSkillNameByJob(HumOrHero , jobId , SkillId : integer) : string;
    
15. begin
    
16.     result := '';
    
17.     case HumOrHero of
    
18.         1 :
    
19.         begin
    
20.             case jobId of
    
21.                 0 :
    
22.                 begin
    
23.                     case SkillId of
    
24.                     1 : result := '基本剑术';
    
25.                     2 : result := '攻杀剑术';
    
26.                     3 : result := '刺杀剑术';
    
27.                   
    
28.            
    
29.    
    
30.          
    
31.                     end;
    
32.                 end;
    
33.               
    
34.                     
    
35.                
    
36.                
    
37.             end;
    
38.         end;
    
39.       
    
40.                
    
41.     end;
    
42. end;
    
43. 
    
44. 
    
45. procedure _deBug_Skill_1();
    
46. begin
    
47.    if This_Player.Level >= 35 then
    
48.    begin
    
49.     This_Npc.NpcDialog(This_Player,
    
50.     '|<提升战士技能/@deBug_Skill_1_1~0>    \\||');  
    
51.    
    
52. 
    
53. 
    
54.   
    
55.    end else
    
56. 
    
57.      begin
    
58.          
    
59.          This_Npc.NpcDialog(This_Player,
    
60.         '你的等级不到35，无法使用此功能!  ');
    
61. 
    
62.      end;
    
63. end;
    
64. 
    
65. 
    
66. procedure _deBug_Skill_1_1(str_job : string);
    
67. var temp_job , n : integer;
    
68. str_xx , str_skill : string;
    
69. begin
    
70.     str_xx := '';
    
71.    
    
72.     temp_job := StrToIntDef(str_job,-1);
    
73.    
    
74.     This_Player.SetV(1,48,temp_job);
    
75.    
    
76.     for n := 0 to 21 do
    
77.     begin
    
78.         str_skill := getSkillNameByJob(1,temp_job,n);
    
79.         if str_skill <> '' then
    
80.         begin
    
81.             str_xx := str_xx +'<---/@skillDown~' + str_skill + '>' + str_skill +  inttostr(This_Player.GetSkillLevelExt(str_skill,false)) + '级' + '<+++/@skillUP~' + str_skill + '>'  + addSpace('', 11- length(str_skill));
    
82.             
    
83.             if (n mod 2) = 1 then
    
84.             str_xx := str_xx + '^';
    
85.             
    
86.             if (n mod 2) = 0 then
    
87.             str_xx := str_xx + '\|';
    
88.             
    
89.             
    
90.         end;
    
91.     end;
    
92.    
    
93.     This_NPC.NpcDialog(This_Player,'|' + str_xx);
    
94. end;
    
95. 
    
96. procedure _skillUP(str_Skill : string);
    
97. begin
    
98.     if This_Player.GetSkillLevelExt(str_Skill,false) < 0 then
    
99.     This_Player.Give(str_Skill,1)
    
100.     else
     
101.     This_Player.ChgSkillLv(str_Skill,This_Player.GetSkillLevelExt(str_skill,false) + 1 ,0);
     
102.    
     
103.                                                                                                    
     
104.     _deBug_Skill_1_1(inttostr(This_Player.GetV(1,48)));  
     
105. end;
     
106. 
     
107. procedure _skillDown(str_Skill : string);
     
108. begin
     
109.     if This_Player.GetSkillLevelExt(str_Skill,false) = 0 then
     
110.     This_Player.DeleteSkill(str_Skill)
     
111.     else
     
112.     This_Player.ChgSkillLv(str_Skill,This_Player.GetSkillLevelExt(str_skill,false) - 1 ,0);
     
113.    
     
114.                                                                                                    
     
115.     _deBug_Skill_1_1(inttostr(This_Player.GetV(1,48)));  
     
116. end;
     
117. 
     
118. procedure _deBug_Skill_2_1(str_job : string);
     
119. var temp_job , n : integer;
     
120. str_xx , str_skill : string;
     
121. begin
     
122.     str_xx := '';
     
123.    
     
124.     temp_job := StrToIntDef(str_job,-1);
     
125.    
     
126.     This_Player.SetV(1,48,temp_job);
     
127.    
     
128.     if This_Player.HeroLevel < 1 then
     
129.     begin
     
130.         This_NPC.NpcDialog(This_Player,
     
131.         '请召唤出你的英雄。');
     
132.         exit;
     
133.     end;   
     
134.    
     
135.     for n := 0 to 21 do
     
136.     begin
     
137.         str_skill := getSkillNameByJob(2,temp_job,n);                                                
     
138.         if str_skill <> '' then
     
139.         begin
     
140.             str_xx := str_xx +'<---/@HeroskillDown~' + str_skill + '>' + str_skill +  inttostr(This_Player.GetSkillLevelExt(str_skill,true)) + '级' + '<+++/@HeroskillUP~' + str_skill + '>'  + addSpace('', 11- length(str_skill));
     
141.             
     
142.             if (n mod 2) = 1 then
     
143.             str_xx := str_xx + '^';
     
144.             
     
145.             if (n mod 2) = 0 then
     
146.             str_xx := str_xx + '\|';
     
147.             
     
148.             
     
149.         end;
     
150.     end;
     
151.    
     
152.     This_NPC.NpcDialog(This_Player,'|' + str_xx);
     
153. end;
     
154. 
     
155. procedure _HeroskillUP(str_Skill : string);
     
156. begin
     
157.     if This_Player.GetSkillLevelExt(str_Skill,true) < 0 then
     
158.     This_Player.Give(str_Skill,1)
     
159.     else
     
160.     This_Player.ChgSkillLv(str_Skill,This_Player.GetSkillLevelExt(str_skill,true) + 1 ,0);
     
161. 
     
162.                                                                                                    
     
163.     _deBug_Skill_1_1(inttostr(This_Player.GetV(1,48)));  
     
164. end;
     
165. 
     
166. procedure _HeroskillDown(str_Skill : string);
     
167. begin
     
168.     if This_Player.GetSkillLevelExt(str_Skill,false) = 0 then
     
169.     This_Player.DeleteSkill(str_Skill)
     
170.     else
     
171.     This_Player.ChgSkillLv(str_Skill,This_Player.GetSkillLevelExt(str_skill,false) - 1 ,0);
     
172.    
     
173.                                                                                                    
     
174.     _deBug_Skill_1_1(inttostr(This_Player.GetV(1,48)));  
     
175. end;
     
176. 
     
177. 
     
178. 
     
179. 
     
180. Begin
     
181. 
     
182.       This_Npc.NpcDialog(This_Player,
     
183.        '近期大量测试玩家反映战士属性低下，打不动人，各种被风筝死等情况，特设置战士补偿NPC，可以加强战士技能威力，以提升战士生存环境  \\||'
     
184.        +'|{cmd}<提升技能/@deBug_Skill_1>   '   );
     
185. end.

复制代码

抱歉！您尚未登录，无法查看回复内容！点击此处登录本站