阿瑞斯传奇乐园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

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

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

[复制链接]

17

主题

33

帖子

6144

积分

超级版主

417317972

Rank: 8Rank: 8

积分
6144

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

QQ
发表于 2022-6-10 12:13:47 | 显示全部楼层 |阅读模式
本帖最后由 淫威 于 2022-6-11 14:09 编辑

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.   g_HeroTrainItem: TClientitem;
  6.   g_heroTrainMagIndex: Integer;
  7.   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;
复制代码
效果图 233822t07h1ycy0thooyg0.gif

代码出处:论坛用户:vkdfkc大佬
417317972

0

主题

38

帖子

78

积分

注册会员

Rank: 2

积分
78
发表于 2022-6-11 07:47:27 | 显示全部楼层

感谢分享棒棒哒
回复

使用道具 举报

1

主题

190

帖子

453

积分

中级会员

Rank: 3Rank: 3

积分
453
发表于 2022-6-11 13:45:43 | 显示全部楼层
来看大佬的分享!!
回复

使用道具 举报

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

本版积分规则

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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