传奇3官方1.45引擎源代码 - 小火炬源码

夜游神 · 发表于 2022-4-22 22:44:19

传奇3官方1.45引擎源代码 - 小火炬引擎源码

unit comman;
interface
uses Classes, SysConst, SysUtils, tList32, Windows, Hum_Unit_Wide;

var Player:TList_;
implementation
procedure OnLoginProc(PID:Cardinal);
var Hum:HumWide;
begin
  if Player.IndexOf(PID)=-1 then
begin
   Hum:=HumWide.Create;
   Hum.ID:=PID;
   Player.AddObject(Hum.ID,Hum);
end;
end;

procedure OnLogOutProc(PID:Cardinal);
var Hum:HumWide;
begin
  if Player.IndexOf(PID)<>-1 then
begin
   Hum:= Player.IndexOfObject(PID) as HumWide;
   Hum.Free;
   Player.Delete(Player.IndexOf(PID));
end;
end;

Initialization
Player:=TList_.Create;
end.

分享名称：1.45官方引擎源代码.zip
分享链接：http://pan.zxdll.cn:88/#s/9bcbbA5g
访问密码：

游客，如果您要查看本帖隐藏内容请回复