bolty

[kubabooboo]

potrzebuje scripta zeby mi bolty łaczył bo jak daje nab ota zeby je robil to jest po 5 sztuk i niechca sie laczyc musze recznie. dobra znalazłem ale teraz potrzebuje żeby jak zostaje 1 bolt żeby uzupełniał do 100 (ammo restack) ma ktoś scripta do ng??

[tymek]

Proszę oto i skrypt.

 

procedure StackItems;

var

T: array of integer;

x, y, z: integer;

Temp: integer;

begin

T := VarArrayCreate([0, 19] , 3);

Temp := -1;

for x := 0 to Self.Containers.Count - 1 do

begin

if x >= Self.Containers.Count then Break;

for z := 0 to Self.Containers.Container[x].Count - 1 do

begin

T[z] := Self.Containers.Container[x].Item[z].ID;

end;

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].Properties.Pilable then

begin

if Self.Containers.Container[x].Item[y].Amount < 100 then

begin

for z := y + 1 to Self.Containers.Container[x].Count - 1 do

begin

if T[z] = Self.Containers.Container[x].Item[y].ID then

begin

if Self.Containers.Container[x].Item[z].Amount < 100 then

begin

Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x

, z, 0);

end;

end;

end;

end;

end;

end;

end;

end;

 

begin

while not Terminated do

begin

UpdateWorld;

StackItems;

Sleep(1000);

end;

end;