Tibia, NG Bot, Elf Bot, IBot, NeoBot, Redbot Waypointy, Skrypty, Tutoriale, Poradniki, Problemy Strona Główna


Poprzedni temat «» Następny temat
Podnosi free items
Autor Wiadomość
Semran 


Dołączył: 03 Sie 2009
Posty: 113
Skąd: Konin
Wysłany: 2009-08-06, 23:58   Podnosi free items

Skrypt sam podnosi wszystkie itemki które leżą na ziemi

Kod:
var
integer : cnt;
begin
while not terminated do begin
UpdateWorld;
cnt := Screen.Tile[6, 4].Count;
if ((cnt > 1) and (Screen.Tile[6, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[6, 5].Count;
if ((cnt > 1) and (Screen.Tile[6, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[6, 6].Count;
if ((cnt > 1) and (Screen.Tile[6, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[6, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 4].Count;
if ((cnt > 1) and (Screen.Tile[7, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 5].Count;
if ((cnt > 2) and (Screen.Tile[7, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[7, 6].Count;
if ((cnt > 1) and (Screen.Tile[7, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[7, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 4].Count;
if ((cnt > 1) and (Screen.Tile[8, 4].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 4].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 5].Count;
if ((cnt > 1) and (Screen.Tile[8, 5].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 5].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
cnt := Screen.Tile[8, 6].Count;
if ((cnt > 1) and (Screen.Tile[8, 6].Item[cnt - 1].Properties.Carryable)) then
Screen.Tile[8, 6].Item[cnt - 1].MoveToContainer(Self.Containers.Container[0], 0, 0);
Sleep(50);
end;
end;
_________________
jestem jak kot na pustyni...nie ogarniam tej kuwety

 
 
robert21 

Dołączył: 03 Lis 2009
Posty: 22
Wysłany: 2010-03-07, 12:07   

Ten skrypt zbiera wszystko, a jak zrobic tak zeby zbieral to co chce (id itemow ktore wpisze) z ta sama szybkosia.
prosze o odp.
 
     
marconi15 

Dołączył: 04 Cze 2010
Posty: 3
Wysłany: 2010-06-04, 08:27   

Dobre!
;D
Tego szukałem <3
 
     
B0MBEL
[Usunięty]

Wysłany: 2010-06-04, 09:58   

Przyłączam sie do pytania @@UP ;]
 
     
robert21 

Dołączył: 03 Lis 2009
Posty: 22
Wysłany: 2010-08-08, 12:19   

je wam tez ten skrypt przestal zbierac itemki z eq armory legi shieldy,
np. addonkowe mi zbiera ale nie zbiera armorow itd czemu??
 
     
Severius 

Dołączył: 19 Lut 2010
Posty: 6
Wysłany: 2010-08-30, 14:28   

może capa nie masz?
Też bym prosił o to aby podnosiło tylko dane itemy xD
 
     
FABIANEK 

Dołączył: 10 Lis 2010
Posty: 1
Wysłany: 2010-11-10, 19:27   

KURDE GDZIE GO WKLEISC BO JAK WKLEJAM W HOTKEYS TO NIE WKLEJA MI CALEGO :/
 
     
Damik 
Administrator


Wiek: 26
Dołączył: 10 Lip 2009
Posty: 180
Skąd: Rzeszów
Wysłany: 2010-11-10, 21:38   

Bo to skrypt do NG ? Pisz z małych bo warn poleci.
 
     
Soszy 

Dołączył: 30 Sie 2011
Posty: 1
Wysłany: 2012-05-26, 19:42   

Gdzie to wkleic, żeby dzialalo?
 
     
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie 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
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group - recenzje anime - Mapa Forum
Style created by Kula & Gozda