传奇单机版,GM论坛,传奇版本库,GM基地

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

[复制链接]
查看: 469   回复: 0     # 登录器源码

197

主题

199

帖子

7614

积分

霸王教主

Rank: 9Rank: 9Rank: 9

积分
7614
2022-4-22 22:44:19   显示全部楼层   阅读模式  
[Delphi] 纯文本查看 复制代码
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传奇3RSR插件Delphi源代码道格拉斯完整版
下一篇:Delphi台湾2005源码小火炬传奇3引擎代码
回复 关闭延时

使用道具 举报

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

高级模式

Powered by Discuz! X3.4 © Comsenz Inc.

Archiver|手机版|小黑屋|美林传奇GM论坛 ( 蜀ICP备2020030293号-2 )