- TibiaBot NG [NG] Pytania Co do Ng.

[urbexx]

Mam pro?b? o pomoc co do Ng.
1.Jak ustawie na cave hunting zeby zbiera?o loota chodzi zabija moby ale ich nie otwiera... musze sam to robi? wtedy zbiera loot,nie wiem ock.Jak ustawi? ?eby otwiera? sam moby?
2.To to jak ustawie bota na dragon lordach i szczela fire bomb postac staje i nie rusza sie do znikniecia owego fielda... nie moze chodzic po nich.
Prosz? o szybk? pomoc,za ow? bardzo serdecznie dzi?kuj?.

Pozdrawiam Urbexx.

 

[Rygiel]

Odp: Pytania Co do Ng.

Odp: Pytania Co do Ng.

Hmm Napisz mi jaka Wersja tibia bot ng

Napisz mi co chcesz zeby locil i ci powiem wszystko

waiypointy umiesz stawiac co nie ?

 

[urbexx]

Odp: Pytania Co do Ng.

Odp: Pytania Co do Ng.

Posiadam craknieta wersje 4.5.0 pod 8.4 tibie.
Weiypointy umiem robi? chce ?eby zbiera? mi kase i najlepiej zamienia? j? na platynki od razu jak na ots.

Chcia?bym jeszcze wiedzie? jak zrobi? ?eby nie stawa? mi jak walna dl'e f bombe..
Nie chce chodzi? mi po fieldach ;/

 

[jazza]

Odp: Pytania Co do Ng.

Odp: Pytania Co do Ng.

Mam pro?b? o pomoc co do Ng.
1.Jak ustawie na cave hunting zeby zbiera?o loota chodzi zabija moby ale ich nie otwiera... musze sam to robi? wtedy zbiera loot,nie wiem ock.Jak ustawi? ?eby otwiera? sam moby?
2.To to jak ustawie bota na dragon lordach i szczela fire bomb postac staje i nie rusza sie do znikniecia owego fielda... nie moze chodzic po nich.
Prosz? o szybk? pomoc,za ow? bardzo serdecznie dzi?kuj?.
Pozdrawiam Urbexx.

1. Na otsach nie otwiera ci cial, tylko pelna wersja otwiera.
2.

Nie masz wystarczających uprawnień, aby zobaczyć link. Zaloguj or Rejestracja

Co do skryptu na zmiane platynek, prosze bardzo:

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;

TO CI BEDZIE UKLADAC PLATYNKI!

         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;

Pozdrawiam.