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


Poprzedni temat «» Następny temat
skrypt na stop fishing przy x cap
Autor Wiadomość
Semran 


Dołączył: 03 Sie 2009
Posty: 113
Skąd: Konin
Wysłany: 2009-08-07, 00:08   skrypt na stop fishing przy x cap

Kod:
CapToStop = 50

////////// Auto Fishing //////////

//////////////////////////////////


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

Var
WaterID: Integer;
Rod,Worm: TItem;

begin
WaterID := [4597,4598,4599,4600,4601,4602];
  while not terminated do
  begin
    updateworld;
    if self.Capacity > CapToStop then
    begin
      Rod := GetItemFromOpenBackpack(3483);
      if Rod <> nil then
      begin
        Worm := GetItemFromOpenBackpack(3492);
        if Worm <> nil then
        begin
          X := Random(-7, 8);
          Y := Random(-5, 6);
          For i:=low(WaterID) to High(WaterID) do
          begin
            If Screen.Tile[X+7, Y+5].Item[0].ID=WaterID[i] then
            begin
              Rod.UseWithGround(Self.X+X, Self.Y+Y,self.Z);
              break;
            end;
          end;
        end else Self.DisplayText('TibiaBot NG Emulation Script -> Auto-Fishing -> Error: Worms Not Found In Backpack');
      end else Self.DisplayText('TibiaBot NG Emulation Script -> Auto-Fishing -> Error: Fishing Rod Not Found In Backpack');
    end;
    Sleep(100);
  end;
end;
_________________
jestem jak kot na pustyni...nie ogarniam tej kuwety

 
 
jonii165 
Najważniejsza Kasa


Wiek: 23
Dołączył: 05 Lut 2011
Posty: 45
Skąd: eLBe
Wysłany: 2011-03-14, 17:21   

U mnie to nie działa .. czemu ??
_________________
Wszystko na wariackich papierach :p
 
 
     
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 - Mapa Forum
Style created by Kula & Gozda