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

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

mybbsky

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

llruby

sssssssssssssssssssss

langsha

传奇3手游服务端1.45双端互通 PC+安卓客户端

cailiaock

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

MooCa

瞧瞧。插件代码。

qweqwe826

ddddddddddddd

jxw208

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

迷失的木东

学习了学习了学习了学习了学习了学习了学习了

ryancg

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