Temat: Szukasz skryptu? Zajrzyj tutaj!

Const
IDs=[3031]; // Jakie ID (dodatkowe ID oddzielamy przecinkiem
BPNumber = 2 //Do ktorego bp

Procedure Pickup(ID:integer);
var
x, y, z, i: integer;
Tile: TTile;
begin
UpdateWorld;
if Self.Containers.Container[BPNumber - 1] <> nil then
if Self.Containers.Container[BPNumber - 1].Item[Self.Containers.Container[BPNumber - 1].Capacity-1] <> nil then
if Self.Containers.Container[BPNumber - 1].Item[Self.Containers.Container[BPNumber - 1].Capacity-1].Properties.Container then
begin
Self.Containers.Container[BPNumber - 1].Item[Self.Containers.Container[BPNumber - 1].Capacity-1].Open;
Sleep(100);
UpdateWorld;
end;
for x := -1 to 1 do
begin
for y := -1 to 1 do
begin
Tile := Screen.Tile[x + 7, y + 5];
begin
if Tile.Count > 0 then
if Tile.Item[Tile.Count - 1].ID = ID then
if Self.Containers.Container[BPNumber - 1] <> nil then
if Self.Containers.Container[BPNumber - 1].Item[0].Properties.Container then
begin
Tile.Item[Tile.Count - 1].MoveToContainer(Self.Containers.Container[BPNumber - 1], Self.Containers.Container[BPNumber - 1].Capacity-1, 0);
end;
else
begin
Tile.Item[Tile.Count - 1].MoveToContainer(Self.Containers.Container[BPNumber - 1], 0, 0);
end;
end;
end;
end;
end;


while not terminated do
begin
for i := Low(IDs) to High(IDs) do
begin
Pickup(IDs[i]);
sleep(100);
end;
end;