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);

Pbyte(_Item+$23)^:=StrToInt(v5.Text);

Pbyte(_Item+$24)^:=StrToInt(v6.Text);

Pbyte(_Item+$25)^:=StrToInt(v7.Text);

PWord(_Item+$26)^:=StrToInt(v8.Text);

PWord(_Item+$28)^:=StrToInt(v9.Text);

Pbyte(_Item+$2a)^:=StrToInt(v10.Text);

Pbyte(_Item+$2b)^:=StrToInt(v11.Text);

Pbyte(_Item+$2c)^:=StrToInt(v12.Text);

Pbyte(_Item+$2e)^:=StrToInt(v13.Text);

Pbyte(_Item+$2f)^:=StrToInt(v14.Text);

Pbyte(_Item+$30)^:=StrToInt(v15.Text);

Pbyte(_Item+$31)^:=StrToInt(v16.Text);

Pbyte(_Item+$32)^:=StrToInt(v17.Text);

Pbyte(_Item+$34)^:=StrToInt(v18.Text);

Pbyte(_Item+$35)^:=StrToInt(v19.Text);

Pbyte(_Item+$36)^:=StrToInt(v20.Text);

Pbyte(_Item+$37)^:=StrToInt(v21.Text);

PDWord(_Item+$38)^:=StrToInt(v22.Text);

Pbyte(_Item+$3c)^:=StrToInt(v23.Text);

Pbyte(_Item+$3d)^:=StrToInt(v24.Text);

AddTLItem(_TList,_Item);

StdItem1Click(self);

List.ItemIndex:=List.Items.IndexOf(Name.Text);

Listclick(self);

if SQL.Checked then

begin

SQLQury.close;

SQLQury.SQL.Text:=format(sInsert,[

Name.Text,

StrToInt(v1.Text),

StrToInt(v2.Text),

StrToInt(v3.Text),

StrToInt(v4.Text),

StrToInt(v5.Text),

StrToInt(v6.Text),

StrToInt(v7.Text),

StrToInt(v8.Text),

StrToInt(v9.Text),

StrToInt(v10.Text),

StrToInt(v11.Text),

StrToInt(v12.Text),

StrToInt(v13.Text),

StrToInt(v14.Text),

StrToInt(v15.Text),

StrToInt(v16.Text),

StrToInt(v17.Text),

StrToInt(v18.Text),

StrToInt(v19.Text),

StrToInt(v20.Text),

StrToInt(v21.Text),

StrToInt(v22.Text),

StrToInt(v23.Text),

StrToInt(v24.Text)

]);

SQLQury.ExecSQL;

SQLQury.Close;

end;

end;

end;

2: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($38);

_Item:=mItem;

SetPStr_(_Item,Name.Text);

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

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

PWord(_Item+$12)^:=StrToInt(v3.Text);

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

Pbyte(_Item+$15)^:=StrToInt(v5.Text);

Pbyte(_Item+$16)^:=StrToInt(v6.Text);

Pbyte(_Item+$17)^:=StrToInt(v7.Text);

PWord(_Item+$18)^:=StrToInt(v8.Text);

PWord(_Item+$1a)^:=StrToInt(v9.Text);

PWord(_Item+$1c)^:=StrToInt(v10.Text);

Pbyte(_Item+$1e)^:=StrToInt(v11.Text);

Pbyte(_Item+$1f)^:=StrToInt(v12.Text);

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

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

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

Pbyte(_Item+$23)^:=StrToInt(v16.Text);

Pbyte(_Item+$24)^:=StrToInt(v17.Text);

Pbyte(_Item+$25)^:=StrToInt(v18.Text);

Pbyte(_Item+$27)^:=StrToInt(v19.Text);

Pbyte(_Item+$28)^:=StrToInt(v20.Text);

PWord(_Item+$2a)^:=StrToInt(v21.Text);

PWord(_Item+$2c)^:=StrToInt(v22.Text);

PWord(_Item+$2e)^:=StrToInt(v23.Text);

PWord(_Item+$30)^:=StrToInt(v24.Text);

AddTLItem(_TList,_Item);

Monster1Click(self);

List.ItemIndex:=List.Items.IndexOf(Name.Text);

Listclick(self);

if SQL.Checked then

begin

SQLQury.close;

SQLQury.SQL.Text:=format(mInsert,[

Name.Text,

StrToInt(v1.Text),

StrToInt(v2.Text),

StrToInt(v3.Text),

StrToInt(v4.Text),

StrToInt(v5.Text),

StrToInt(v6.Text),

StrToInt(v7.Text),

StrToInt(v8.Text),

StrToInt(v9.Text),

StrToInt(v10.Text),

StrToInt(v11.Text),

StrToInt(v12.Text),

StrToInt(v13.Text),

StrToInt(v14.Text),

StrToInt(v15.Text),

StrToInt(v16.Text),

StrToInt(v17.Text),

StrToInt(v18.Text),

StrToInt(v19.Text),

StrToInt(v20.Text),

StrToInt(v21.Text),

StrToInt(v22.Text),

StrToInt(v23.Text),

StrToInt(v24.Text)

]);

SQLQury.ExecSQL;

SQLQury.Close;

end;

end;

end;

end;

end;

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