Szukasz skryptu? Zajrzyj tutaj!

za pierwszym razem moj post zostal zignorowany wiec po jego usunieciu sprubuje jeszcze raz...


Czy wie ktoś moze jak ustawić tempo picia Great Mana Potion w ApolloBot?

Albo czy jest skrypt na picie great mana potion w TibiaAuto bez koniecznosci otwarcia bp w ktorym znajduja sie potki?

Chyba ze ktos zna jakis darmowy bot w ktorym mozna trenowac mlvl. (picie great mana potion[z mozliwoscia ustawienia tempa picia]+uzywanie czaru gdy mana osiagnie wartosc X)

Cytuj:

---

Uziel napisał

za pierwszym razem moj post zostal zignorowany wiec po jego usunieciu sprubuje jeszcze raz...


Czy wie ktoś moze jak ustawić tempo picia Great Mana Potion w ApolloBot?

Albo czy jest skrypt na picie great mana potion w TibiaAuto bez koniecznosci otwarcia bp w ktorym znajduja sie potki?

Chyba ze ktos zna jakis darmowy bot w ktorym mozna trenowac mlvl. (picie great mana potion[z mozliwoscia ustawienia tempa picia]+uzywanie czaru gdy mana osiagnie wartosc X)

---

Darmowy jest Ng / xD jak scarckujesz

macie tu linka do bota ng 8.31 ale i tak wam na niewiele sie przyda bo jutro update

Piszę post;) od ostatniej prośby minęło już 24/h

Trzeba mi scrypt na to żeby bot ng zamianiał z golda na
platinum coin przez klikniecie (ots) Był gdzieś tens krypt ale niemoge znaleźć;\

Potrzebuje skryptu na antybot system czyli ignorowanie potworow tych co nie da zabic

Cytuj:

---

Czerez napisał

Potrzebuje skryptu na antybot system czyli ignorowanie potworow tych co nie da zabic

---

zależne od bota wszytsko którego nie podałeś ale jak myśle jeszcze niema takich skryptów lecz może opcja taka jest w ng wystarczy niemieć zaznaczonego w ataku - target all

Cytuj:

---

KlaViuS napisał

Trzeba mi scrypt na to żeby bot ng zamianiał z golda na
platinum coin przez klikniecie (ots) Był gdzieś ten krypt ale nie mogę znaleźć;\

---

Też szukam takiego skryptu, że jak uzbiera 100 gp, to zmienia go na Platinum Coin (RMB - USE).

Proszę o pomoc.

Kod PHP:

---

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;

---

Witam, potrzebuje najlepszego jakiego używaliście auto-respondera, czyli odpowiedzi prawie na wszystko, jeśli takowy istnieje, i jak dodac własne pytanie i odpowiedź.. ;)<--- TibiaBot NG

Cytuj:

---

Gray napisał

Kod PHP:

---

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;

---

---

O kurde, dzięki :).

@down
Dziękuje :)

Cytuj:

---

DrakoOsek napisał

O kurde, dzięki :).

A czy masz jakiś skrypt, który złącza platinum coiny w kupę ?

---

Kod PHP:

---

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;

---

Cytuj:

---

MatikMatrix napisał

zależne od bota wszytsko którego nie podałeś ale jak myśle jeszcze niema takich skryptów lecz może opcja taka jest w ng wystarczy niemieć zaznaczonego w ataku - target all

---

mam ng ale target all nic mi nie daje na malpach bo sinbagow nie zawsze atakuje i jak sie uzbiera kupa to dead na combo bez antybot monsters

czy ma ktoś skrypt żeby cave bot chodził po parcelach pudełkach z przedmiotami do domku etc. ?

Cytuj:

---

Tosik napisał

czy ma ktoś skrypt żeby cave bot chodził po parcelach pudełkach z przedmiotami do domku etc. ?

---

jaki cave bot? ng samo chodzi no i blackd...wiec nie widze problemu :P


potrzebuej skryptu, ze jezeli zabraknie mi spearow w rece, to zmienia bron na mace(albo cokolwiek) a jezeli znajdzie speara to chowa mace do bp i zaklada spear a potem je do reki zbiera.

#down
ty

Kod:

---

const
  WeaponID = 3271 <- Tu daj id Twojej broni
  SpearID = 3277
  SpearOz = 20
  SpearAmount = 1
  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;

---

Musisz mieć broń w arrow slocie, a speary w prawej ręce z tego co pamiętam. :p