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

八五论坛

传奇三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.

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

MooCa

这是传奇2的吧？

dianpula

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

jxw208

客户端和服务器C++工程使用