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

夜游神

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源码

传奇霸主

EI3.0插件代码

a4122

       
EI3.0插件代码

夜游神

a4122 发表于 2022-11-12 22:40
EI3.0插件代码

喊你水帖子你跑来下插件

zz382020272

学习学习，感谢大佬！