- TibiaBot NG [NG] Tibia NG Pomoc

[Paczek0086]

Witam.

Chcia?bym was spyta? czy jest mo?liwo?? aby:

Bot bil gobliny z kamieni i je?li jaki? kamie? wypadnie to daje go do r?ki a je?li kamieni jest 100 (FULL) w r?ce to daje do backpacka i jak kamieni bedzie mniej ni? 100 to dodaje ich z backpacka znowu do r?ki i tak w k??ko?

Nie wiem czy to script czy co trzeba ale prosz? was o pomoc bo nie wiem jak to ustawi? ;/

Jeszcze raz prosz? o pomoc

Dzi?kuje

 

[baambaam]

Odp: Tibia NG Pomoc

Odp: Tibia NG Pomoc

stones musisz miec w prawej ?apie
skrypt doladowuje jak masz mniej niz 20 w rece

onst
  WeaponID = 3297
  SpearID = 1781
  SpearOz = 3.60
  SpearAmount = 20
  Fluid = [99, 2886, 2887, 2887, 2888, 2889, 2890, 2891]


Procedure PickUpSpears(Spears: TItem);
begin
  if (Self.Capacity <= (Spears.Amount * SpearOz)) then
  begin
    if (Self.Capacity/SpearOz) > 1 then
      Spears.MoveToContainer(Self.Containers.Container[0], 0, Int(Self.Capacity/SpearOz));
  end else Spears.MoveToContainer(Self.Containers.Container[0], 0, 0);
  Sleep(500);
end;

Procedure FindSpears;
var
  x, y, z, i, f: integer;
  Tile: TTile;
begin
  for x := -1 to 1 do
  begin
    for y := -1 to 1 do
    begin
      Tile := Screen.Tile[x + 7, y + 5];
      begin
        for i := 0 to Tile.Count-1 do
        begin
          if i >= Tile.Count then Break;
          if Tile.Item[i].ID = SpearID then
          begin
            if i = 1 then PickUpSpears(Tile.Item[i]);
            else for f := Low(Fluid) to High(Fluid) do if Tile.Item[i-1].ID = Fluid[f] then PickUpSpears(Tile.Item[i]);
            else Tile.Item[i-1].MoveToGround(Self.X+Random(-2,3), Self.Y+Random(-2,3), Self.Z, 0);
          end;
        end;
      end;
    end;
  end;
end;


Function GetItemFromOpenBackpack(ID, Index: 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;
    if x = Index then Continue;
    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;


function CountItemAmountFromOpenBackpack(ID: integer): integer;
var
  x: integer;
  y: integer;
begin
  Result := 0;
  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 := Result + Self.Containers.Container[x].Item[y].Amount;
      end;
    end;
  end;
end;


while not terminated do
begin
  UpdateWorld;
  FindSpears;
  
  Weapon := GetItemFromOpenBackpack(WeaponID, Self.Containers.Count);
  if Weapon <> nil then Weapon.MoveToBody(Self.Arrow, 0);
  Spear := GetItemFromOpenBackpack(SpearID, 0);
  if Spear <> nil then Spear.MoveToContainer(Self.Containers.Container[0], 0, 0);
    
  if (Self.RightHand.ID = SpearID) then
  begin
    if (Self.RightHand.Amount < 90) then
    begin
      Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
      if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
    end;
  end else begin
    SpearCount := CountItemAmountFromOpenBackpack(SpearID);
    if SpearCount >= SpearAmount then
    begin
      Self.RightHand.MoveToBody(Self.Arrow, 0);
      Sleep(500);
      Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
      if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
    end else if Self.RightHand.ID = 0 then Self.Arrow.MoveToBody(Self.RightHand, 0);
  end;

  Sleep(500);
end;

 

[Paczek0086]

Odp: Tibia NG Pomoc

Odp: Tibia NG Pomoc

Dzi?kuje ;d To musze wkleic tam do Tools > Scripting (co? takiego?)

A czy to bedzie mi samo podnosi?o stones? jak nie to jaki id ma kamie? i do kt?rego bp ma mi wsadzac je po zabraniu z cia?a goblina?

Kamienie w ktorej lapie ?? 1 lapa <.> 2 lapa

 

[Bialkoo]

Odp: Tibia NG Pomoc

Odp: Tibia NG Pomoc

@nie do tematu

Chcia?bym si? zapyta? czy jest jaki? ' 3 dniowy trial ' tak jak to by?o kiedy? do NG, stronka.
Prosz? pisa? pw. Z g?ry dzi?ki.


@up
Poczytaj poradniki gdzie skrypty, sam nie wiem bo u?ywa?em elfa.

 

[Paczek0086]

Odp: [NG] Tibia NG Pomoc

Tibiabot.com tam chyba jest ;p

@down

Po co nabijasz se posty jak da?em mu ju? t? stron??

 

[Bottersoft]

Odp: [NG] Tibia NG Pomoc

You do not have permission to view link please Log in or Register

tutaj masz triale