sm

立即登录 | 账号注册

积分: 0 |用户组: 游客

搜索
服务器租用 传奇3一条龙 996 支付平台源码 无法下载点击此处反馈
查看: 1772|回复: 4

[传奇3源码] EI3.0插件代码5.0插件Delphi源码

[复制链接]

826

主题

36

回帖

23万

积分

霸王教主

积分
231815
发表于 2022-4-22 23:56:07 | 显示全部楼层 |阅读模式
EI.jpg
2.jpg
3.jpg
  1. procedure TFrmDll.BitBtn5Click(Sender: TObject); //修改人物物品属性    2015-6-17
  2. var
  3. Actor: TActor;
  4. I, Index: Integer;
  5. ListMemItem: TListMemItem;
  6. AItem: PTUserItem;
  7. AStditem: PTStdItem;
  8. S: string;
  9. begin
  10. Index := ListBox2.ItemIndex;
  11. if Index = -1 then Exit;
  12. Actor := GetSelectHuman;
  13. if not Assigned(Actor) then Exit;
  14. ListMemItem := TListMemItem(ListBox2.Items.Objects[Index]);
  15. if Assigned(ListMemItem) then
  16. begin
  17.   if Actor.UserName <> ListMemItem.UserName then Exit;
  18.   AItem := nil;
  19.   S := '';
  20.   if ListMemItem.Mode >= $1000 then
  21.   begin
  22.    for I := Actor.SaveItems.Count - 1 downto 0 do
  23.    begin
  24.     if PTUserItem(Actor.SaveItems.Items[I]).MakeIndex = ListMemItem.DBItem.MakeIndex then
  25.     begin
  26.      AItem := PTUserItem(Actor.SaveItems.Items[I]);
  27.      AStditem := EiFunc.UserEngine.GetStdItem(AItem.Index);
  28.      if Assigned(AStditem) then
  29.      begin
  30.       S := EiFunc._GetStrByShortStr(@AStditem.Name);
  31.       S := Format('(仓库)%s', [S]);
  32.       break;
  33.      end;
  34.     end;
  35.    end;
  36.   end else if ListMemItem.Mode >= $100 then
  37.   begin
  38.    for I := 0 to $A do
  39.    begin
  40.     if (Actor.UseItems[I].Index <> 0) and (Actor.UseItems[I].MakeIndex = ListMemItem.DBItem.MakeIndex) then
  41.     begin
  42.      AItem := @Actor.UseItems[I];
  43.      S := tbItemUseNames[I];
  44.      break;
  45.     end;
  46.    end;
  47.   end else
  48.   begin
  49.    for I := Actor.ItemList.Count - 1 downto 0 do
  50.    begin
  51.     if PTUserItem(Actor.ItemList.Items[I]).MakeIndex = ListMemItem.DBItem.MakeIndex then
  52.     begin
  53.      AItem := PTUserItem(Actor.ItemList.Items[I]);
  54.      AStditem := EiFunc.UserEngine.GetStdItem(AItem.Index);
  55.      if Assigned(AStditem) then
  56.      begin
  57.       S := EiFunc._GetStrByShortStr(@AStditem.Name);
  58.       S := Format('(包裹)%s', [S]);
  59.       break;
  60.      end;
  61.     end;
  62.    end;
  63.   end;
  64.   if Assigned(AItem) then
  65.   begin
  66.    AItem.Dura := Min(High(Word), StrToIntDef(Edit14.Text, AItem.Dura));
  67.    AItem.DuraMax := Min(High(Word), StrToIntDef(Edit15.Text, AItem.DuraMax));
  68.    AItem.ColorR := Min(High(Byte), StrToIntDef(Edit16.Text, AItem.ColorR));
  69.    AItem.ColorG := Min(High(Byte), StrToIntDef(Edit17.Text, AItem.ColorG));
  70.    AItem.ColorB := Min(High(Byte), StrToIntDef(Edit18.Text, AItem.ColorB));
  71.    ZeroMemory(@AItem.Prefix, 12);
  72.    StrPCopy(@AItem.Prefix, Copy(Edit19.Text, 1, 12)); //Copy是复制Char字符
  73.    for I := 0 to $D do
  74.    begin
  75.     AItem.Desc[I] := Min(High(Byte), StrToIntDef(StringGrid1.Cells[1, I + 1], AItem.Desc[I]));
  76.    end;
  77.    if ListMemItem.Mode >= $100 then
  78.     Actor.SendUseItems
  79.    else Actor.SendBagItems;
  80.    Actor.SysMsg(Format('管理员正在调整你的 %s 装备属性。', [S]), 2);
  81.    GetHumanInfo(Actor);
  82.   end;
  83. end;
  84. end;
复制代码

获取EI3.0插件代码5.0插件Delphi源码





上一篇:传奇Wil客户端编辑器Delphi源代码
下一篇:老C插件版Lyy冷雨夜登录器Delphi源码,King1.4
回复

使用道具 举报

8

主题

12

回帖

3375

积分

裁决

积分
3375
发表于 2022-4-22 23:58:40 | 显示全部楼层
EI3.0插件代码
回复 支持 反对

使用道具 举报

0

主题

2

回帖

3

积分

旋风流星刀

积分
3
发表于 2022-11-12 22:40:16 | 显示全部楼层
       
EI3.0插件代码
回复 支持 反对

使用道具 举报

826

主题

36

回帖

23万

积分

霸王教主

积分
231815
 楼主| 发表于 2022-11-12 23:09:50 | 显示全部楼层

喊你水帖子你跑来下插件
回复 支持 反对

使用道具 举报

2

主题

8

回帖

136

积分

旋风流星刀

积分
136
发表于 2023-1-6 17:53:13 来自手机 | 显示全部楼层
学习学习,感谢大佬!
回复 支持 反对

使用道具 举报

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

本版积分规则

手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

GMT+8, 2024-3-28 20:40 , Processed in 0.333507 second(s), 68 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024, Tencent Cloud.

快速回复 返回顶部 返回列表