【BluePXL】传奇外传强化技能技能修炼代码

淫威

M2部分是现成的，只需要对客户端的代码进行修复即可（为了防止有些刷物品的情况，可以对M2内的相关操作部分设置临界区）
M2部分（ObjBase）

1. <blockquote>//乾坤玉璧修炼技能  20220608 Changed by vkdfkc

复制代码

MShare定义新增

1.   //技能修炼相关
   
2.   g_MyTrainItem: TClientItem;
   
3.   g_MyTrainMagIndex: Integer;
   
4.   g_MyTrainItemWait: TMovingItem; //TClientItem;
   
5. 
   
6.   g_HeroTrainItem: TClientitem;
   
7.   g_heroTrainMagIndex: Integer;
   
8.   g_HeroTrainItemWait: TMovingItem; //TClientItem;

复制代码

ClMain处理返回消息

1.     //20220608
   
2.     SM_TRAINSKILL: begin
   
3. //      DScreen.AddChatBoardString(Format('错误代码: %d' ,[msg.recog]),clwhite,clred);
   
4.         case msg.Recog of
   
5.           -1: DScreen.AddChatBoardString('该物品正在出售或已被使用！',clwhite,clred);
   
6.           -2: DScreen.AddChatBoardString('数据库内不存在此物品！！',clwhite,clred);
   
7.           -3: DScreen.AddChatBoardString('只能使用玉璧修炼技能！',clwhite,clred);
   
8.           -4: DScreen.AddChatBoardString('请放入蓄满的乾坤玉璧！',clwhite,clred);
   
9.           -5: DScreen.AddChatBoardString('请放入已解封的乾坤玉璧！',clwhite,clred);
   
10.           //-6:: DScreen.AddChatBoardString('该技能不能修炼！',clwhite,clred);
    
11.           -7: DScreen.AddChatBoardString('你尚未学习此技能！',clwhite,clred);
    
12.           -8: DScreen.AddChatBoardString('技能未达到3级或已达到最大修炼等级！',clwhite,clred);
    
13.           -9: DScreen.AddChatBoardString('未达到技能所需的修炼等级！',clwhite,clred);
    
14.         end;      <blockquote>        if msg.Recog < -2 then begin

复制代码

修炼按钮代码(FState)

1. procedure TFrmDlg.DStrengthSkillMouseUp(Sender: TObject; Button: TMouseButton;
   
2.   Shift: TShiftState; X, Y: Integer);
   
3. var
   
4.   idx:Integer;
   
5.   pm: PTClientMagic;
   
6. begin
   
7.   //20220608 by vkdfkc
   
8.   with TDButton(Sender) do begin
   
9.     if not Enabled then exit;
   
10.     idx := g_MyTrainMagIndex;
    
11.     //DScreen.AddChatBoardString(IntToStr(odx),clwhite,clred);
    
12.     if idx < g_MagicList.Count then begin
    
13.       pm := PTClientMagic(g_MagicList[idx]);
    
14.       //DScreen.AddChatBoardString(IntToStr(pm.Def.wMagicId),clwhite,clred);
    
15.       if g_MyTrainItem.s.Name <> '' then
    
16.         frmMain.SendTrainMySkill(g_MyTrainItem.MakeIndex, pm.def.wMagicId);
    
17.       //对当前物品进行备份
    
18.       g_MyTrainItemWait.item := g_MyTrainItem;
    
19.       //移除该物品
    
20.       g_MyTrainItem.s.Name := '';
    
21.     end;
    
22.   end;
    
23. end;
    

复制代码

效果图

代码出处：论坛用户：vkdfkc大佬

sander2018

感谢分享棒棒哒

混沌虚无

来看大佬的分享！！