Wyrzucanie Pustych Viali - www.elfngboot.fora.pl

Strona glówna • FAQ • Szukaj • Użytkownicy • Grupy • Galerie • Rejestracja • Profil • Zaloguj się, by sprawdzić wiadomości • Zaloguj

Wyrzucanie Pustych Viali

Forum www.elfngboot.fora.pl Strona Główna -> Bot NG / Skrypty

Zobacz poprzedni temat :: Zobacz następny temat

Autor

Wiadomość

jabol123
Administrator

Dołączył: 05 Mar 2009
Posty: 26
Przeczytał: 0 tematów

Ostrzeżeń: 0/5

Wysłany: Czw 21:14, 05 Mar 2009

Wyrzucanie Pustych Viali

Kod:

const
VialID = 283 //Type the ID of the vial you want to throw

function GetItemFromOpenBackpack(ItemID, ItemType: integer): TItem;
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 = ItemID then
begin
if Self.Containers.Container[x].Item[y].Amount = ItemType then
begin
Result := Self.Containers.Container[x].Item[y];
Exit;
end;
end;
end;
end;
end;

while not Terminated do
begin
UpdateWorld;
EmptyVial := GetItemFromOpenBackpack(VialID, 0);
if EmptyVial <> nil then
begin
EmptyVial.MoveToGround(Self.X, Self.Y, Self.Z, 1);
Sleep(300);
end;
Sleep(300);
end;

Post został pochwalony 0 razy

Powrót do góry

Wyświetl posty z ostatnich:

	Forum www.elfngboot.fora.pl Strona Główna -> Bot NG / Skrypty	Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

Opcje

Zezwolenia

Opcje

Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

Jumpbox

fora.pl - załóż własne forum dyskusyjne za darmo
Theme FrayCan created by spleen & Download
Powered by phpBB © 2001, 2005 phpBB Group

Regulamin