台湾版的火炬引擎源代码,带内挂、摆摊

2023-03-12 17:12:42  阅读 847 次 评论 1 条

image.png

更换hge客户端 支持多种分辨率 界面切割到Prguse.pak

客户端读取Prguse.pak。删除Prguse2.wil

解决穿人重叠, if not InSafeZone then allowdup := FALSE

增加通讯密匙,解决小退黑屏!

爆率改成文本暴率,增加SQL爆率控制开关

自动放药

屏幕截图

双击穿戴,分为手动穿戴和双击穿戴,已修复

在卖东西的窗口上拿起物品再右键,物品消失

游戏内注册到SQL表

全套改2007编译

道士狗趴下去显示三根血条

高级物品掉落提示

增加技能ctrl+f1-9快捷键。

增加元宝到GAME库里,增加元宝NPC变量,增加元宝脚本GAMEGOLD 控制符(=,+,-)

体验模式爆率和经验改成原始倍数

地图左下角不显示地图名字

C++两个弄配置文件

毒符不能带到6格上。

创建完帐号、修改完密码,点击确定后光标定位在输入状态

增大游戏音量

武器持久到了外观内观都没有刷新

退出行会没有刷新

神兽趴下去当前HP未恢复

等级从高变低MP图片超出问题 

右上角的X提示战斗无法退出

左下角显示蓝红HPMP数值   右边显示攻击模式  时间。

邀请组队客户端:GroupTimeout变量

M2:CM_CREATEGROUPREQ_TIMEOUT  新建队友超时

    CM_ADDGROUPMEMBERREQ_TIMEOUT  添加队友超时

GM刷东西包裹重量刷新  

包裹负重坐标显示

交易金币框取消鼠标指上去显示图片  (绘图里交易框里金币框属性改了 未改代码)

调试模式下神兽趴下去报错,未返回值 playscn.pas

  if IsChangingFace(chrid) then

    begin

    Result:=nil;    //调试神兽趴下去报错未返回值

    exit;  //函脚吝...

    end;

自定义脚本文字颜色

----------------------------------------------------------------------------------

自动解包

解包RUNGATE限制做的改动:

客户端

procedure SendEat(idx, itmindex: integer; itmname: string; tag: Integer = 0);

        SendEat(i, ItemArr[i].MakeIndex, ItemArr[i].S.Name, 1);

procedure TFrmMain.SendEat(idx, itmindex: integer; itmname: string; tag: Integer);

  msg := MakeDefaultMsg(CM_EAT, itmindex, 0, tag, 0);

RUNGATE:

原来是  CM_EAT: if g_pConfig.m_fEatInterval then begin

改动为  CM_EAT: if g_pConfig.m_fEatInterval and (DefMsg.Tag <> 1) then begin


--------------------------------------------------------------------------------------

开始按钮图片仿BLUE   2020.2.1

修复队友攻击BB灰名   2020.2.1

修复攻击模式问题     2020.2.1

增加快捷组队快捷删除右键开关 2020.2.2 

修复选择角色界面反复点击门的问题 2020.2.2

石墓阵假火 客户端 EventMan.ClearEvents; 2020.2.3

地面物品消失时间设置为5分钟 5 * 60 * 1000  2020.2.4

修改法师宝宝叛变时间*4   2020.2.4

取消红名不能攻击10级以下玩家  2020.2.4

PK值2分钟掉1点改1分钟    2020.2.4

提交头像攻城为三天后晚上8点,改为第二晚上8点   2020.2.4

沙巴克战争三小时改成2小时  2020.2.4

人物属性支持到255不归零,武器属性到255不归零,练功师吃魔法  objbase.pas and itmunit.pas 2020.2.4

修复运9状态没发挥最大攻击   objbase.pas2020.2.5

修复战法道装备负重和腕力负重超过255溢出  RecalcLevelAbilitys   2020.2.5

修复腰带靴子宝石佩戴和属性显示  2020.2.5

修正防御 魔御破255溢出,衣服、首饰属性显示破255溢出  2020.2.6

GetHitStruckDamage、shortint改integer。

GetMagStruckDamage、shortint改integer。

itmunit单元,衣服首饰_MIN(255, 

修复交易输入金币点两次确定,SetDCapture(nil);  2020.2.6

修复行会编辑框编辑后不返回聊天界面焦点 PlayScene.EdChat.SetFocus; 2020.2.6

法师宝宝叛变后立即阵亡。 2020.2.6

修复交易框不显示对方名字   2020.2.6

-------------------------------------------------------------------------------------------

在1152*864分辨率下显示偏移.自定义分辨率下显示偏移.瞬移的光标和地上物品显示以及技能效果偏移   2020.2.9  Mshare.pas

  Result := Round((g_FScreenHeight - 150) / UNITY / 2) * UNITY- HALFY;

  if (g_FScreenHeight>=810) and (g_FScreenHeight<890) then

      inc(Result,UNITY);


取消绿毒高亮  DrawEffSurface   2020.2.9

修复F9 10。  2020.2.9

鼠标指向界面按钮等字体模糊显示   TextOut (hx+4, hy+3+(TextHeight('A')+1)*i, HintColor, HintList[i]);   2020.2.10

重写GOTO、Recall命令  2020.2.10 

武器升级最多7次 TCreature.HitHit  2020.2.11

---------------------------------------------------------------------------------------------------------------

增加全景地图,坐标显示、透明 地图死亡灰  2020.2.12

游戏走路跑步速度调整   if GetTickCount - MoveTime >= 120 then   //游戏跑动速度 默认是100   2020.2.12

自己视角面释放技能面向鼠标  dir := GetNextDirection(Myself.XX, Myself.YY, targx, targy);   2020.2.12

组队的队友死亡后退出小组。 2020.2.12

诱惑之光难度调整(需观察) 2020.2.12

修复人物位置不在中心点 整体下移一步  2020.2.12

TPlayScene.PlayTextureSurface

defy := -UNITY * 2 - MySelf.ShiftY+UNITY; 

下移后技能、瞬移、物品、等坐标问题修复

function ShiftYOffset(): Integer;

begin

  Result := Round((g_FScreenHeight - 150) / UNITY / 2) * UNITY- HALFY+UNITY;   //人位中心置下移后加 UNITY

  if (g_FScreenHeight>=810) and (g_FScreenHeight<890) then

      inc(Result,UNITY);

end; 

被发现字体调整,登录界面字体调整   2020.2.12

---------------------------------------------------------------------------------------------------------------

选区界面颜色调整(TFrmDlg.DSServer1DirectPaint),游戏NPC字体调整(TFrmDlg.DMerchantDlgDirectPaint)    2020.2.14

修复神兽防魔能定住 ElfMagic:Boolean;    2020.2.14

无声音运行报错  2020.2.14

修复地图调整人物位置下移地图问题,修复人物位置右偏移显示问题  2020.2.15

取消游戏渐变小退,进入游戏渐变未完不允许小退  2020.2.15

人物名飞随机发送显示 2020.2.15

客户端和M2:SM_SPACEMOVE_SHOW, SM_SPACEMOVE_SHOW2:

红名没有及时显示  2020.2.15

TCreature.GetThisCharColor

 if cret.PKLevel < 2 then begin

地上物品居中显示  2020.2.15

TFrmMain.FormMouseMove

---------------------------------------------------------------------------------------------------------------

增加摆摊  2020.02.21

----------------------------------------------

查看别人装备的时候无法显示信息输出 2020.02.21

TFrmDlg.DUserState1DirectPaint

2.3:    else if not UserState1.bExistLover then

     DScreen.ClearHint(True); //@@@@@  

台湾:DScreen.ClearHint;

----------------------------------------------

修复摆摊购买界面远了关闭购买窗口  2020.02.21

自加ClMain.pas

  g_nStallX,g_nStallY: Integer;

--------------------------------------------------------------------------------------------

    if g_nStallX <> -1 then begin

      if (abs(g_nStallX - MySelf.XX) >= 8) or (abs(g_nStallY - MySelf.YY) >= 8) then begin

        g_nStallX := -1;

        FrmDlg.DBUserStallCloseClick(nil, 0, 0);

      end;

    end;

--------------------------------------------------------------------------------------------

          if g_nStallX <> -1 then begin

            g_nStallX := -1;

            FrmDlg.DBUserStallCloseClick(nil, 0, 0);

          end;

-------------------------------------------------------------------------------------------

  if g_nStallX <> -1 then begin

    g_nStallX := -1;

    FrmDlg.DBUserStallCloseClick(nil, 0, 0);

  end;

-------------------------------------------------------------------------------------------

        if FrmDlg.DWUserStall.Visible then begin

          g_nStallX := MySelf.XX;

          g_nStallY := MySelf.YY;

        end;

--------------------------------------------------------------------------------------------


增加魔法释放范围  2020.02.23

去除BoldTextOut描边,HGEFontManager.pas描边八边去四边, 摆摊按钮去黑色描边00C6E2F0,false)    2020.3.4 

元宝输入控件的长度从10改成9 .  2020.3.4


恢复cliutil.pas  2020.3.16

  WProgUse2_IMAGEFILE = 'Data\Prguse2.wil';

  WProgUse2: TWMImages;

  g_ClientImages: array[0..44] of TWMImages;

  41: g_ClientImages[I] := WProgUse2;

  WProgUse2 := CreateWMImages(t_wmM2Def);

  WProgUse2.Finalize;

  WProgUse2.Free;

  WProgUse2.FileName := WProgUse2_IMAGEFILE;

  WProgUse2.LibType := ltUseCache;

  InitializeImage(WProgUse2);



付费内容
售价:10 游戏币
开通终生土豪或更高级的会员可免费查看该内容

登录注册购买

手机扫描二维码访问

本文地址:https://www.uc845.com/post/1482.html
版权声明:本文为原创文章,版权归 大D精修 所有,欢迎分享本文,转载请保留出处!
  • 盟重
  • 您需要 登录账户 后才能发表评论

    发表评论


    表情

    评论列表

    1. 学习传奇引擎
      学习传奇引擎  @回复
      这个传奇引擎很不错,留名备用玩玩看看,先把uc845引擎,刺客引擎研究明白再说。。