Wear Stone Skin Amulet when key pressed
var
  AmuletID: integer;

function GetItemFromOpenBackpack(ID: integer): TItem;
var
  y: integer;
begin
  Result := nil;
  for x := 0 to Self.Containers.Count - 1 do
  begin
    if x >= Self.Containers.Count then Break;
    for y := 0 to Self.Containers.Container[x].Count - 1 do
    begin
      if y >= Self.Containers.Container[x].Count then Break;
      if Self.Containers.Container[x].Item[y].ID = ID then
      begin
        Result := Self.Containers.Container[x].Item[y];
        Exit;
      end;
    end;
  end;
end;

procedure Event_KeyDown(Key: integer);
var
  Amulet: TItem;
begin
  UpdateWorld;
  if Key = 9 then //Change number to hotkey of your likeing currently TAB
  begin
    if Self.Amulet.ID <> AmuletId then
    begin
      Amulet := GetItemFromOpenBackpack(AmuletID);
      if Amulet <> nil then Amulet.MoveToBody(Self.Amulet, 0);
    end
  end;
end;

begin
  AmuletID := 3081; //item id for your Amulet
  while not Terminated do
  begin
    ProcessEvents;
    Sleep(100);
  end;
end;
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-NonCommercial-ShareAlike 3.0 License