Temat: Szukasz skryptu? Zajrzyj tutaj!

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;

while not terminated do
begin
UpdateWorld;
for i := 0 to Self.Containers.Count - 1 do
begin
if terminated then break;
for g := 0 to Self.Containers.Container[i].Count - 1 do
begin
if terminated then break;
if Self.Containers.Container[i].Item[g].Amount = 100 then
if (Self.Containers.Container[i].Item[g].ID = 3031) or (Self.Containers.Container[i].Item[g].ID = 3035) then
Self.Containers.Container[i].Item[g].Use;
sleep(10);
end;
sleep(10);
end;
sleep(500);
end;

Potrzebuję skryptu do NG na uciekanie przed potworami (Frost Dragon) oraz na wykrywanie niewidzialnych potworów (Warlock).

Witam, potrzebuje skryptu do tibia NG, który bedzie wrzucal czar Utito Tempo, gdy ten sie skonczy.

Const
Spell = 'Utani Hur' //Utani Hur or Utani Gran Hur
while not terminated do
begin
UpdateWorld;
if not Self.Hasting then
begin
Self.Say(Spell);
Sleep(2500);
end;
sleep(100);
end;