传奇单机版,GM论坛,传奇版本库,GM基地

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

[复制链接]
查看: 620   回复: 3     # 登录器源码

197

主题

199

帖子

7614

积分

霸王教主

Rank: 9Rank: 9Rank: 9

积分
7614
2022-4-22 23:56:07   显示全部楼层   阅读模式  
EI.jpg
2.jpg
3.jpg
[Delphi] 纯文本查看 复制代码
procedure TFrmDll.BitBtn5Click(Sender: TObject); //修改人物物品属性    2015-6-17
var
 Actor: TActor;
 I, Index: Integer;
 ListMemItem: TListMemItem;
 AItem: PTUserItem;
 AStditem: PTStdItem;
 S: string;
begin
 Index := ListBox2.ItemIndex;
 if Index = -1 then Exit;
 Actor := GetSelectHuman;
 if not Assigned(Actor) then Exit;
 ListMemItem := TListMemItem(ListBox2.Items.Objects[Index]);
 if Assigned(ListMemItem) then
 begin
  if Actor.UserName <> ListMemItem.UserName then Exit;
  AItem := nil;
  S := '';
  if ListMemItem.Mode >= $1000 then
  begin
   for I := Actor.SaveItems.Count - 1 downto 0 do
   begin
    if PTUserItem(Actor.SaveItems.Items[I]).MakeIndex = ListMemItem.DBItem.MakeIndex then
    begin
     AItem := PTUserItem(Actor.SaveItems.Items[I]);
     AStditem := EiFunc.UserEngine.GetStdItem(AItem.Index);
     if Assigned(AStditem) then
     begin
      S := EiFunc._GetStrByShortStr(@AStditem.Name);
      S := Format('(仓库)%s', [S]);
      break;
     end;
    end;
   end;
  end else if ListMemItem.Mode >= $100 then
  begin
   for I := 0 to $A do
   begin
    if (Actor.UseItems[I].Index <> 0) and (Actor.UseItems[I].MakeIndex = ListMemItem.DBItem.MakeIndex) then
    begin
     AItem := @Actor.UseItems[I];
     S := tbItemUseNames[I];
     break;
    end;
   end;
  end else
  begin
   for I := Actor.ItemList.Count - 1 downto 0 do
   begin
    if PTUserItem(Actor.ItemList.Items[I]).MakeIndex = ListMemItem.DBItem.MakeIndex then
    begin
     AItem := PTUserItem(Actor.ItemList.Items[I]);
     AStditem := EiFunc.UserEngine.GetStdItem(AItem.Index);
     if Assigned(AStditem) then
     begin
      S := EiFunc._GetStrByShortStr(@AStditem.Name);
      S := Format('(包裹)%s', [S]);
      break;
     end;
    end;
   end;
  end;
  if Assigned(AItem) then
  begin
   AItem.Dura := Min(High(Word), StrToIntDef(Edit14.Text, AItem.Dura));
   AItem.DuraMax := Min(High(Word), StrToIntDef(Edit15.Text, AItem.DuraMax));
   AItem.ColorR := Min(High(Byte), StrToIntDef(Edit16.Text, AItem.ColorR));
   AItem.ColorG := Min(High(Byte), StrToIntDef(Edit17.Text, AItem.ColorG));
   AItem.ColorB := Min(High(Byte), StrToIntDef(Edit18.Text, AItem.ColorB));
   ZeroMemory(@AItem.Prefix, 12);
   StrPCopy(@AItem.Prefix, Copy(Edit19.Text, 1, 12)); //Copy是复制Char字符
   for I := 0 to $D do
   begin
    AItem.Desc[I] := Min(High(Byte), StrToIntDef(StringGrid1.Cells[1, I + 1], AItem.Desc[I]));
   end;
   if ListMemItem.Mode >= $100 then
    Actor.SendUseItems
   else Actor.SendBagItems;
   Actor.SysMsg(Format('管理员正在调整你的 %s 装备属性。', [S]), 2);
   GetHumanInfo(Actor);
  end;
 end;
end;


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












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

使用道具 举报

0

主题

6

帖子

60

积分

旋风流星刀

Rank: 1

积分
60
2022-4-22 23:58:40   显示全部楼层  
EI3.0插件代码

回复 支持 反对

使用道具 举报

0

主题

1

帖子

23

积分

旋风流星刀

Rank: 1

积分
23
2022-11-12 22:40:16   显示全部楼层  
       
EI3.0插件代码

回复 支持 反对

使用道具 举报

197

主题

199

帖子

7614

积分

霸王教主

Rank: 9Rank: 9Rank: 9

积分
7614
夜游神 (楼主)
2022-11-12 23:09:50   显示全部楼层  

喊你水帖子你跑来下插件

回复 支持 反对

使用道具 举报

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

高级模式

Powered by Discuz! X3.4 © Comsenz Inc.

Archiver|手机版|小黑屋|美林传奇GM论坛 ( 蜀ICP备2020030293号-2 )