阿瑞斯传奇乐园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

游戏开服表 申请开服
游戏名称 游戏描述 开服状态 游戏福利 运营商 游戏链接
经典热血传奇百区 经典热血传奇百区秒卡1倍养老区 刚开一秒 淫威 进入游戏
km2三清体验服 仿韩四职业-昆仑三清-km2 不删档测试 LV9 进入游戏
奇迹MUS16群服 别问我什么都不知道 开放中 迷样的UI 进入游戏
韩版沉默 昆仑城、三清道场等你来战!!! 刚开一秒... 三清沉默 进入游戏
08梦幻西游 1:1仿官方 梦幻西游怀旧经典三染版本 正常开放 凡尘 进入游戏
广告
【腾讯云618采购季】爆款1核2G云服务器首年48元
收玩家群
查看: 3961|回复: 8

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

[复制链接]

1

主题

6

帖子

13

积分

新手上路

Rank: 1

积分
13
发表于 2022-6-10 23:31:28 | 显示全部楼层 |阅读模式
本帖最后由 vkdfkc 于 2022-6-11 09:07 编辑

在我发帖之前的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.   ii := -1;
  32.   for i := m_ItemList.Count - 1 downto 0 do
  33.   begin
  34.     UserItem := m_ItemList.Items[i];
  35.     if UserItem.MakeIndex = idx then
  36.     begin
  37.       if m_btRaceServer = RC_PLAYOBJECT then
  38.       begin
  39.         if TPlayObject(Self).IsOnSaleItem(UserItem.MakeIndex) then
  40.         begin
  41.           //该物品不存在或者正在出售 vkdfkc分析
  42.           SendDefMessage(SM_TRAINSKILL, -1, 0, 0, 0, '');
  43.           Exit;
  44.         end;
  45.       end;
  46.       ii := i;
  47.       Break;
  48.     end;
  49.   end;
  50.   if ii >= 0 then
  51.   begin
  52.     UserItem := m_ItemList.Items[ii];
  53.     pStdItem := UserEngine.GetStdItem(UserItem.wIndex);
  54.     if pStdItem <> nil then
  55.     begin
  56.       if (pStdItem.StdMode = 2) and (pStdItem.Shape = 12) then
  57.       begin
  58.         if UserItem.Dura = UserItem.DuraMax then
  59.         begin
  60.           if UserItem.btValue[0] > 0 then
  61.           begin
  62.             if m_MagicArr[0][mid].MagicInfo.TrainLevel
  63.               [m_MagicArr[0][mid].btLevel] <= m_Abil.Level then
  64.             begin
  65.               //加的修炼点为 Dura * 100 vkdfkc 修改
  66.               Inc(m_MagicArr[0][mid].nTranPoint, UserItem.Dura * 100);
  67.               DelBagItem(ii, True, '修炼技能');
  68.               // 记录物品
  69.               SendDefMessage(SM_TRAINSKILL, 0, 0, 0, 0, '');

  70.               if not CheckMagicLevelup(m_MagicArr[0][mid], True) then
  71.               begin
  72.                 SendDelayMsg(Self, RM_MAGIC_LVEXP,
  73.                   m_MagicArr[0][mid].MagicInfo.btClass,
  74.                   m_MagicArr[0][mid].MagicInfo.wMagicId,
  75.                   m_MagicArr[0][mid].btLevel,
  76.                   m_MagicArr[0][mid].nTranPoint, '', 10);
  77.               end;

  78.             end
  79.             else
  80.               //未达到修炼等级 vkdfkc分析
  81.               SendDefMessage(SM_TRAINSKILL, -9, 0, 0, 0, '');
  82.           end
  83.           else
  84.             //请使用已解封的玉璧 vkdfkc分析
  85.             SendDefMessage(SM_TRAINSKILL, -5, 0, 0, 0, '');
  86.         end
  87.         else
  88.           //请使用蓄满的乾坤玉璧 vkdfkc分析
  89.           SendDefMessage(SM_TRAINSKILL, -4, 0, 0, 0, '');
  90.       end
  91.       else
  92.         //请放入乾坤玉璧 vkdfkc分析
  93.         SendDefMessage(SM_TRAINSKILL, -3, 0, 0, 0, '');
  94.     end
  95.     else
  96.       //该物品数据不存在(StdItem内) vkdfkc分析
  97.       SendDefMessage(SM_TRAINSKILL, -2, 0, 0, 0, '');
  98.   end
  99.   else
  100.     ////该物品不存在或者正在出售 vkdfkc分析
  101.     SendDefMessage(SM_TRAINSKILL, -1, 0, 0, 0, '');
  102.   //记得退出临界区 by vkdfkc
  103.   LeaveCriticalSection(ProcessMsgCriticalSection);
  104. end;
复制代码


3.png 4.png




评分

参与人数 1金钱 +1 收起 理由
一支笔 + 1 支持开源精神,打击盗版淫威!.

查看全部评分

1

主题

6

帖子

13

积分

新手上路

Rank: 1

积分
13
 楼主| 发表于 2022-6-10 23:36:17 | 显示全部楼层
本帖最后由 vkdfkc 于 2022-6-10 23:38 编辑

补两张图,懒得费口舌
5.png
6.png
回复

使用道具 举报

0

主题

38

帖子

78

积分

注册会员

Rank: 2

积分
78
发表于 2022-6-11 07:41:30 | 显示全部楼层
厉害了   
回复

使用道具 举报

1

主题

6

帖子

13

积分

新手上路

Rank: 1

积分
13
 楼主| 发表于 2022-6-11 09:06:48 | 显示全部楼层
听说贵站没少干这种事了是吧?
回复

使用道具 举报

1

主题

190

帖子

453

积分

中级会员

Rank: 3Rank: 3

积分
453
发表于 2022-6-11 13:50:07 | 显示全部楼层
大佬多来论坛发帖,让我们观摩学习!!!!!!!
回复

使用道具 举报

17

主题

33

帖子

6144

积分

超级版主

417317972

Rank: 8Rank: 8

积分
6144

最佳新人活跃会员热心会员推广达人宣传达人灌水之王突出贡献优秀版主荣誉管理论坛元老

QQ
发表于 2022-6-11 14:03:55 | 显示全部楼层
大佬威武
417317972
回复

使用道具 举报

7

主题

59

帖子

338

积分

中级会员

Rank: 3Rank: 3

积分
338
发表于 2022-6-11 19:36:20 | 显示全部楼层
大佬牛逼,真心佩服你们这些会技术的人。
回复

使用道具 举报

168

主题

426

帖子

6601

积分

管理员

韩逼天团成员

Rank: 9Rank: 9Rank: 9

积分
6601

最佳新人活跃会员

QQ
发表于 2022-6-11 20:28:01 | 显示全部楼层
大佬多来论坛发帖,让我们观摩学习!!!!!!!

宝贝不要放在硬盘或网盘里藏灰了,放着也是浪费,发在这里一起交流分享,还能提现换钱,还不是美滋滋!!!
回复

使用道具 举报

0

主题

9

帖子

23

积分

新手上路

Rank: 1

积分
23
发表于 2022-6-24 00:39:59 | 显示全部楼层
支持V大佬,BluePXL代码有你更精彩
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表