c语言传奇引擎源码,Ei3.0服务端引擎源代码+登陆网关+客户端插件

Ei3.0服务端引擎源代码+登陆网关+客户端插件

procedure TPANEL.Button3Click(Sender: TObject);

var P:integer;

mItem:DWORD;

begin

if Name.Text<>'' then

case ctype of

1:begin

P:=FindPointer(Name.Text);

if P<>-1 then

begin

if MessageboxA(0,'原有数据库已经包含此物品,是否覆盖?','警告:',MB_YESNO or MB_ICONQuestion)=IDYES         then

begin

_index:=P;

_Item:=GetTLItem(_Tlist,_index);

List.ItemIndex:=_index;

Button2click(self);

end;

end

else

begin

mItem:=_GetMem($4C);

_Item:=mItem;

SetPStr_(_Item,Name.Text);

Pbyte(_Item+$1F)^:=StrToInt(v1.Text);

Pbyte(_Item+$20)^:=StrToInt(v2.Text);

Pbyte(_Item+$21)^:=StrToInt(v3.Text);

Pbyte(_Item+$22)^:=StrToInt(v4.Text);<