传奇一条龙,复古传奇,GM基地,传奇服务端

 找回密码
 立即注册

QQ登录

只需一步,快速开始

网友自助信息发布区,请自行甄别

查看: 736|回复: 8

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

[复制链接]

624

帖子

2145

钻石

1359

积分

管理员

Rank: 9Rank: 9Rank: 9

在线时间
114 小时
发表于 2018-12-3 00:21:21 | 显示全部楼层 |阅读模式
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;

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


回复

使用道具 举报

38

帖子

5

钻石

48

积分

初级GM

Rank: 1

在线时间
2 小时
发表于 2019-3-11 11:17:30 | 显示全部楼层
Ei3.0服务端引擎源代码+登陆网关+客户端插件
回复

使用道具 举报

22

帖子

32

钻石

86

积分

中级GM

Rank: 2

在线时间
3 小时
发表于 2019-3-13 15:35:20 | 显示全部楼层
sssssssssssssssssssss
回复

使用道具 举报

22

帖子

2020

钻石

27

积分

初级GM

Rank: 1

在线时间
5 小时
发表于 2019-3-14 21:04:46 | 显示全部楼层
传奇3手游服务端1.45双端互通 PC+安卓客户端
回复

使用道具 举报

17

帖子

64

钻石

20

积分

初级GM

Rank: 1

在线时间
3 小时
发表于 2019-12-24 01:02:46 | 显示全部楼层
Ei3.0服务端引擎源代码+登陆网关+客户端插件
回复

使用道具 举报

17

帖子

52

钻石

18

积分

初级GM

Rank: 1

在线时间
1 小时
发表于 2020-3-20 18:18:57 | 显示全部楼层
瞧瞧。插件代码。
回复

使用道具 举报

5

帖子

26

钻石

5

积分

初级GM

Rank: 1

在线时间
0 小时
发表于 2020-5-21 22:51:29 | 显示全部楼层
ddddddddddddd
回复

使用道具 举报

201

帖子

144

钻石

224

积分

中级GM

Rank: 2

在线时间
24 小时
发表于 2020-8-31 09:55:35 | 显示全部楼层
客户端和服务器C++工程使用
回复

使用道具 举报

19

帖子

454

钻石

21

积分

初级GM

Rank: 1

在线时间
2 小时
发表于 2020-9-2 22:00:46 | 显示全部楼层
学习了学习了学习了学习了学习了学习了学习了
回复

使用道具 举报

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

本版积分规则

QQ|Archiver|手机版|小黑屋|八五GM论坛专业的传奇私服GM技术交流基地 ( 粤ICP备11015868号-18 ) 传奇私服 Array7.2 版权所有 © 八五论坛 Comsenz Inc.

|网站地图
快速回复 快速发帖 返回顶部 返回列表