[Nbot] Zakładanie ss i m ringów.

PRzeSteR

[Nbot] Zakładanie ss i m ringów.
  Siema.
Mogl by mi ktos wytlumaczyc jak ustawic na zmiane ss i m ringow?

Pozdrawiam.

---

  ZMIANA RINGÓW! Tylko musisz pozmieniac tam id ringa itp pouzupełniać.
MUSISZ MIEC OTWARTY BP Z RINGAMI
Const
Ring_ID = 3049

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;

while not terminated do
begin
UpdateWorld;
if Self.Ring.ID = 0 then
begin
Ring := GetItemFromOpenBackpack(Ring_ID);
if Ring <> nil then
Ring.MoveToBody(Self.Ring,0);
else Self.Displaytext('The wanted ring wasnt found in backpack!');
end;
sleep(100);
end;

AUTO STONE SKIN AMULET - Zmiana stone skinow po skonczeniu sie jednego
MUSISZ MIEC OTWARTY BP Z STONE SKINAMI

var
Item: TItem;

function GetItemFromOpenBackpack(ID: integer): TItem;
var
x: integer;
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;

while not Terminated do
begin
UpdateWorld;
if Self.Amulet.ID = 0 then
begin
Item := GetItemFromOpenBackpack(3081);
if Item <> nil then
Item.MoveToBody(Self.Amulet, 0);
else
begin
Item := GetItemFromOpenBackpack(3057);
if Item <> nil then
Item.MoveToBody(Self.Amulet, 0);
end;
end;
Sleep(100);
end;

Mam nadzieje ze pomoglem ;)