【BluePXL】强化技能代码补充，以及淫威未经我授权转帖的事

vkdfkc

在我发帖之前的5个BluePXL代码贴加一个3K控件转BluePXL控件帖全是我弄的，转我的东西甚至连我的名字都懒得标一下是吧？算了，大不了我停更就是了。哦对，隔壁还有我发的最后一个代码贴，你要不要也转过来啊？（前面的帖子均已录屏取证，你删掉也没用）
不是别人告诉我的话，我都不知道我写这点玩意被人给转了M2部分（ObjBase）

1. //乾坤玉璧修炼技能  20220608 Changed by vkdfkc
   
2. procedure TPlayObject.ClientTrainSkill(idx, mid: Integer);
   
3. var
   
4.   i, ii: Integer;
   
5.   b: Boolean;
   
6.   UserItem: pTUserItem;
   
7.   pStdItem: pTStdItem;
   
8. begin
   
9.   { if not (mid in [6, 7, 10..12, 14, 15, 17, 23, 25]) then begin
   
10.     SendDefMessage(SM_TRAINSKILL, -6, 0, 0, 0, '');
    
11.     Exit;
    
12.     end; }
    
13.   //刷物品？临界区呆着去吧！信我的，防止刷东西进临界区准没错 20220608 changed by vkdfkc
    
14.   EnterCriticalSection(ProcessMsgCriticalSection);
    
15.   //MainOutMessageAPI(Format('%d,%d',[idx,mid]));
    
16.   if m_MagicArr[0][mid] <> nil then
    
17.   begin
    
18.     if not(m_MagicArr[0][mid].btLevel in [3 .. 14]) then
    
19.     begin
    
20.       //技能未达到3级或者已达到最大修炼等级 vkdfkc分析
    
21.       SendDefMessage(SM_TRAINSKILL, -8, 0, 0, 0, '');
    
22.       Exit;
    
23.     end;
    
24.   end
    
25.   else
    
26.   begin
    
27.     //尚未学习该技能 vkdfkc分析
    
28.     SendDefMessage(SM_TRAINSKILL, -7, 0, 0, 0, '');
    
29.     Exit;
    
30.   end;
    
31. 
    
32.   ii := -1;
    
33.   for i := m_ItemList.Count - 1 downto 0 do
    
34.   begin
    
35.     UserItem := m_ItemList.Items[i];
    
36.     if UserItem.MakeIndex = idx then
    
37.     begin
    
38.       if m_btRaceServer = RC_PLAYOBJECT then
    
39.       begin
    
40.         if TPlayObject(Self).IsOnSaleItem(UserItem.MakeIndex) then
    
41.         begin
    
42.           //该物品不存在或者正在出售 vkdfkc分析
    
43.           SendDefMessage(SM_TRAINSKILL, -1, 0, 0, 0, '');
    
44.           Exit;
    
45.         end;
    
46.       end;
    
47.       ii := i;
    
48.       Break;
    
49.     end;
    
50.   end;
    
51.   if ii >= 0 then
    
52.   begin
    
53.     UserItem := m_ItemList.Items[ii];
    
54.     pStdItem := UserEngine.GetStdItem(UserItem.wIndex);
    
55.     if pStdItem <> nil then
    
56.     begin
    
57.       if (pStdItem.StdMode = 2) and (pStdItem.Shape = 12) then
    
58.       begin
    
59.         if UserItem.Dura = UserItem.DuraMax then
    
60.         begin
    
61.           if UserItem.btValue[0] > 0 then
    
62.           begin
    
63.             if m_MagicArr[0][mid].MagicInfo.TrainLevel
    
64.               [m_MagicArr[0][mid].btLevel] <= m_Abil.Level then
    
65.             begin
    
66.               //加的修炼点为 Dura * 100 vkdfkc 修改
    
67.               Inc(m_MagicArr[0][mid].nTranPoint, UserItem.Dura * 100);
    
68.               DelBagItem(ii, True, '修炼技能');
    
69.               // 记录物品
    
70.               SendDefMessage(SM_TRAINSKILL, 0, 0, 0, 0, '');
    
71. 
    
72.               if not CheckMagicLevelup(m_MagicArr[0][mid], True) then
    
73.               begin
    
74.                 SendDelayMsg(Self, RM_MAGIC_LVEXP,
    
75.                   m_MagicArr[0][mid].MagicInfo.btClass,
    
76.                   m_MagicArr[0][mid].MagicInfo.wMagicId,
    
77.                   m_MagicArr[0][mid].btLevel,
    
78.                   m_MagicArr[0][mid].nTranPoint, '', 10);
    
79.               end;
    
80. 
    
81.             end
    
82.             else
    
83.               //未达到修炼等级 vkdfkc分析
    
84.               SendDefMessage(SM_TRAINSKILL, -9, 0, 0, 0, '');
    
85.           end
    
86.           else
    
87.             //请使用已解封的玉璧 vkdfkc分析
    
88.             SendDefMessage(SM_TRAINSKILL, -5, 0, 0, 0, '');
    
89.         end
    
90.         else
    
91.           //请使用蓄满的乾坤玉璧 vkdfkc分析
    
92.           SendDefMessage(SM_TRAINSKILL, -4, 0, 0, 0, '');
    
93.       end
    
94.       else
    
95.         //请放入乾坤玉璧 vkdfkc分析
    
96.         SendDefMessage(SM_TRAINSKILL, -3, 0, 0, 0, '');
    
97.     end
    
98.     else
    
99.       //该物品数据不存在（StdItem内） vkdfkc分析
    
100.       SendDefMessage(SM_TRAINSKILL, -2, 0, 0, 0, '');
     
101.   end
     
102.   else
     
103.     ////该物品不存在或者正在出售 vkdfkc分析
     
104.     SendDefMessage(SM_TRAINSKILL, -1, 0, 0, 0, '');
     
105.   //记得退出临界区 by vkdfkc
     
106.   LeaveCriticalSection(ProcessMsgCriticalSection);
     
107. end;

复制代码

vkdfkc

补两张图，懒得费口舌

sander2018

厉害了   

vkdfkc

听说贵站没少干这种事了是吧？

混沌虚无

大佬多来论坛发帖，让我们观摩学习！！！！！！！

淫威

大佬威武

纳兰白衣

大佬牛逼，真心佩服你们这些会技术的人。

admin

大佬多来论坛发帖，让我们观摩学习！！！！！！！

魅影之刃

支持V大佬，BluePXL代码有你更精彩