- 游戏资料
- android-killer 最新的1.30+ 视频教程 2023-12-23
- 各位好人大哥,能发一个新月城风云链接吗? 2024-5-18
- 991引擎三端优化免费UI-高清版 2024-9-6
- 战神引擎自动回收脚本 2021-12-9
- 兑换元宝备份 2021-3-3
- 传奇3影魅传说-启航正式版v1.62 3月前
- 战神引擎
- V8
- lua
- 脚本
- 安卓
- Linux
- 传奇
- 天花板
- 冰雪
- 手工端
- 手游
- 系统
- unity
- 666
- 原神
- 游戏
- 传奇3
- 单机
- zircon
- 176
- 复古
- 野径云俱黑赶快
- 群服
- CentOS
- 特色
- 存档
- 破解版
- 问题
- 盘古
- 白猪
- 离线版
- 话题
- 图片
- 格式
- 沉默
- 光芒引擎
- 说明书
- 富士康
- iPhone
- 君临
- 阅读
- 小说
- 水晶传奇
- Controller
- 代码
- TeamViewer
- 向日葵
- 真三国
- sql
- 攻略
- 雷神
- 新春
- 情怀
- 魔兽
- 单机传奇
- 酷狗
- 探秘
- 3proxy
- 登录
- sxg
- Gee
- 丛林肉搏
- 第一版
- 苹果
- XO引擎
- socks5
- 硬盘
- 检测
- 翻墙
- 黑神话
- 黑神话悟空
- 热血传奇
- 客户端
1194
1
0
返回
GOD引擎备份资料
夜
发布于 2023-6-18

procedure TFrmMain.Timer1Timer(Sender: TObject); var I: Integer; nRow: LongWord; GateInfo: pTGateInfo; nCode: Byte; tTimeCount: Currency; Msg: string; pmc: PROCESS_MEMORY_COUNTERS_EX; begin if boTimer1TimerBusy then Exit; boTimer1TimerBusy:= True; nCode:= 0; try g_boLogIt := FileExists('../开关/LogIt.txt'); g_boMonNoMove := FileExists('../开关/MonNoMove.txt'); g_boNoDmg := FileExists('../开关/NoDmg.txt'); g_boAllGM := FileExists('../开关/AllGM.txt'); g_boLogTime := True;//FileExists('../开关/消耗时间日志.txt'); g_boKeepMapItem := FileExists('../开关/掉落不消失.txt'); SendGameCenterMsg(SG_FORMHANDLE, IntToStr(Self.Handle)); try if Assigned(g_GateSocket) and (g_GateSocket.Active = False) then begin g_GateSocket.Active := True; //打开网关端口 MainOutMessage(Format('{日志} 游戏网关端口(%s:%d)打开成功', [g_GateSocket.Address, g_GateSocket.Port])); end; except on E: Exception do begin MainOutMessage(Format('{异常} 游戏网关端口(%s:%d)打开失败', [g_GateSocket.Address, g_GateSocket.Port])); end; end; Try ShowMainLogMsg(); nCode:= 17; nRow := ((GetNowTickCount() - g_dwStartTick).val) div 1000; LbRunTime.Caption := '[引擎:' + IntToStr(nRow div 3600) + ':' + IntToStr((nRow div 60) mod 60) + ':' + IntToStr(nRow mod 60) + '秒]'{ + sCaption}; LbUserCount.Caption := '[刷怪:' + IntToStr(UserEngine.MonsterCount) + ']'; MemStatus.Caption := '[在线人数:' + IntToStr(UserEngine.OnlinePlayObject) + '/挂机人数' + IntToStr(UserEngine.AutoAddExpPlayCount) + '/加载总数' + IntToStr(UserEngine.LoadPlayCount) + '/释放总数' + IntToStr(UserEngine.m_PlayObjectFreeList.Count) + ']'; nCode:= 18; if GetProcessMemoryInfo(GetCurrentProcess(), @pmc, SizeOf(pmc)) then begin end; Label1.Caption := Format('处理:%d/%d 传输:%d/%d 角色:%d/%d 内存:%f MB', [g_nRunTimeMin, g_nRunTimeMax, g_nSockCountMin, g_nSockCountMax, g_nUsrTimeMin, g_nUsrTimeMax,(pmc.WorkingSetSize / (1024 * 1024))]);
uses Windows, Messages, SysUtils, Graphics, Controls, Forms, Dialogs, Buttons, StdCtrls, IniFiles, GSShare, Grobal, Grobal2, SDK, HUtil32, RunSock, Envir, ItmUnit, Magic, NoticeM, Guild, Event, Castle, FrnEngn, UsrEngn, Mudutil, Menus, ComCtrls, Grids, Common, Classes, JSocket, ExtCtrls, Winapi.PsApi, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, IdGlobal, VMProtectSDK, System.Generics.Collections;
随便看看
最新回复 (0)
版块热门