Bot Ng Nie Otwiera Zabitych Potworów

[Roovis]

Witajcie. Mam problem. Najnowszy bot NG nie chce otwierać zabitych przeze mnie potworów (w tym wypadku orc, orc spearman, orc warrior) a co za tym idzie nie zbiera loota, który jest dla mnie ważny. Czy moglibyście mi w jakiś sposób pomóc? Choćby napisać skrypt, który otwierałby zabite potwory. Bardzo proszę o szybką odpowiedź i pomoc.

[Roovis]

Powiedzcie też, czy wam NG działa normalnie. PROSZĘ POMÓŻCIE!

[scarp2]

z tym co ja dalem ta? że mojego posta usuneli a nieliczni go ściągneli to też nie zdążylem napisać.

var

Loot: array of integer;

LootCount: integer;

function GetTileFromXYZ(X, Y, Z: integer): TTile;

begin

Result := nil;

if abs((Self.X - 7) - X) > 14 then Exit;

if abs((Self.Y - 5) - Y) > 11 then Exit;

if Self.Z <> Z then Exit;

Result := Screen.Tile[abs((Self.X - 7) - X), abs((Self.Y - 5) - Y)];

end;

function GetItemOnTile(ID: integer; Tile: TTile): TItem;

var

Z: integer;

begin

Result := nil;

for Z := 0 to Tile.Count - 1 do

begin

if Z >= Tile.Count then Break;

if Tile.Item[Z].ID = ID then

begin

Result := Tile.Item[Z];

Break;

end;

end;

end;

function GetItemFromOpenBackpack(Index, ID: integer): TItem;

var

y: integer;

begin

Result := nil;

if Index >= Self.Containers.Count then Exit;

for y := 0 to Self.Containers.Container[index].Count - 1 do

begin

if y >= Self.Containers.Container[index].Count then Break;

if Self.Containers.Container[index].Item[y].ID = ID then

begin

Result := Self.Containers.Container[index].Item[y];

Exit;

end;

end;

end;

procedure Event_ContainerOpened(Index, ID: integer; Name: string);

var

x: integer;

Found: boolean;

begin

if Index = 0 then Exit;

repeat

Found := False;

for x := 0 to LootCount - 1 do

begin

UpdateWorld;

Item := GetItemFromOpenBackpack(Index, Loot[x]);

if Item <> nil then

begin

Found := True;

Item.MoveToContainer(Self.Containers.Container[0], 0, 0);

Sleep(200);

end;

end;

until not Found;

end;

procedure Event_ItemCreated(ID, X, Y, Z: integer);

var

Corpse: TItem;

Tile: TTile;

begin

UpdateWorld;

if abs(Self.X - X) > 1 then Exit;

if abs(Self.Y - Y) > 1 then Exit;

if Self.Z <> Z then Exit;

Tile := GetTileFromXYZ(X, Y, Z);

if Tile = nil then Exit;

Corpse := GetItemOnTile(ID, Tile);

if Corpse = nil then Exit;

if (Corpse.Properties.Container) and (not Corpse.Properties.Movable) then Corpse.Open;

end;

begin

Loot := [3031, 3492]; //gold = 3031 and worms = 3492

LootCount := 2; //2 loot items

while not Terminated do

begin

ProcessEvents;

Sleep(100);

end;

end;

poprosze o + i 5

to jest skrypt.

i prosze o odpowiedź dlaczego moj post z tibią bot ng, został skasowany, bo admin nie odpisuje na pw.

[Roovis]

DZIAŁA! Dziękuję + 5

[scarp2]

zapomnial bym. Ten skrypt od czasu do czasu może przestać działać, ale to tylko przy odpalaniu, należy ponownie uruchomić tibie bądz ten skrypt.