Szukasz skryptu? Zajrzyj tutaj!

Mozzi · 13-02-2009 14:14

Mozzi napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Hiyaa.
Potrzebuję waypointsów na rookgard ( NG ).
Chodzi mi już o takie bardziej zaawansowane wpt...

Baju94 napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Witam wiem że ja się wtrącam do poprzedniego tematu,ale niestety nie znam odpowiedzi i sam również potrzebuje Waypointa na rookgard chodzi mi oto żeby chodził na lewej stronie rooka
rookgard lewa strona-Wasp tower,Orc tower,Bugi,Beary,Posion Cave =)

Z góry dzięki i Przepraszam =)

REFFF
szukamy tego samego ;D

Baju94 · 13-02-2009 17:09

Hehe to świetnie,może znajdzie sie ktoś,kto ma,albo zrobi nam taki waypoint Czekam z niecierpliwością =)

zmulas · 13-02-2009 17:48

potrzebuje scryptu na frosty ... elf bot...

Nefra Xani · 14-02-2009 10:47

Potrzebuje skryptu na robienie loot baga. Chce aby zbierał steel helmety, scale armor, battle shield, double axe, battle hammer a gdy będzie 100 capa odnosił to to baga i zbierał dalej

Master Dziadek · 14-02-2009 21:32

Witam!
Od dłuższego czasu bardzo dużo czasu spędzałem na Google, powód można znaleźć w temacie, do rzeczy.

Potrzebuję skrypty na ciągłe atakowanie, a mianowicie, jak zaznaczę jakiegoś gracza, ten ucieknie mi z ekranu... dogonię go i zaś jest zaznaczony.

Gram na OTS enfo(pvp-enfo.no-ip.org), więc nie chcę żadnego skryptu co się nick podaję czy coś.

Aaaa! Najważniejsze! Chciałbym, aby tą opcję można było wyłączyć - najlepiej ESC.

Z wyrazami szacunku,
Master Dziadek

Muuciek · 15-02-2009 01:24

Szczaleczka juz ci podaje skrypt

Kod :

var   
LockID:integer;   

function GetCreatureByID(ID: integer): TCreature;   
var   
  x: integer;   
begin   
  Result := nil;   
  for x := 0 to Creatures.Count - 1 do   
  begin   
    if x >= Creatures.Count then Break;   
    if Creatures.Creature[x].ID = ID then   
    begin   
      Result := Creatures.Creature[x];   
      Exit;   
    end;   
  end;   
end;   

begin   
updateworld;   
while self.attacking=0 do   
begin   
sleep(200);   
updateworld;   
end;   
LockID:=self.attacking;   
while not terminated do   
   begin   
   updateworld;   
   ProcessEvents;   
   if ((self.attacking)<>(LockID)) and ((self.attacking)<>(0))  then   
   LockID:=Self.Attacking; 
   If Self.Attacking=0 then 
   begin 
    Creature:=GetCreatureByID(LockID);  
     If Creature<>nil then Creature.Attacking:=true; 
      end; 
       
   sleep(100);   
   end;   
end;

do scriptera i exute script

Master Dziadek · 15-02-2009 09:30

Mam ten skrypt, ale potrzebuję taki, by można wyłączyć te ciągłe atakowanie klawiszem ESC! Poooomooocy!

felek159 · 16-02-2009 18:59

potrezbuje skryptu ktory bedzie zmieniał broń na mocniejszą kiedy x potwor na ekranie a kiedy go zabijie to zeby zakładał zpowrotem słabszą broń
bot: tibiabot NG

**Gray** · 16-02-2009 19:07

felek159 napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

potrezbuje skryptu ktory bedzie zmieniał broń na mocniejszą kiedy x potwor na ekranie a kiedy go zabijie to zeby zakładał zpowrotem słabszą broń
bot: tibiabot NG

Kod PHP:

Const  
  //Enter the settings for when to change to DEFENSIVE//  
  MonsterName = 'nazwa potwora'  
  weapon1_ID = xxxx  
  //Enter the settings for when to change to OFFENSIVE back//  
  Weapon2_ID = xxxx  
    
function GetItemFromOpenBackpack(ID: integer): TItem;  
var  
  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;  

function GetCreatureByID(ID: integer): TCreature;  
var  
  x: integer;  
begin  
  Result := nil;  
  for x := 0 to Creatures.Count - 1 do  
  begin  
    if x >= Creatures.Count then Break;  
    if Creatures.Creature[x].ID = ID then  
    begin  
      Result := Creatures.Creature[x];  
      Exit;  
    end;  
  end;  
end;  

function GetCreatureByName(Name: string): TCreature; 
var 
  x: integer; 
begin 
  Result := nil; 
  for x := 0 to Creatures.Count - 1 do 
  begin 
    if x >= Creatures.Count then Break; 
    if Creatures.Creature[x].Name = Name then 
    begin 
      Result := Creatures.Creature[x]; 
      Exit; 
    end; 
  end; 
end; 


while not terminated do 
begin  
  UpdateWorld; 
  Creature := GetCreatureByName(MonsterName);  
  if Creature <> nil then  
  if Creature.Z = Self.Z then 
  begin 
    A := 0;  
    Self.Defensive; 
    Weapon := GetItemFromOpenBackpack(Weapon1_ID);  
    if Self.RightHand.ID <> Weapon1_ID then  
    if Weapon = nil then  
    self.DisplayText('Weapon1 wasnt found in open backpack!');  
    else Weapon.MoveToBody(Self.RightHand,0);  
    A := 1;  
  end; 
  else    
  begin  
    Self.Offensive;  
    if Self.RightHand.ID <> Weapon2_ID then  
    begin  
      Weapon := GetItemFromOpenBackpack(Weapon2_ID);  
      if Weapon <> nil then  
      Weapon.MoveToBody(Self.RightHand,0);  
      else Self.DisplayText('Weapon2 wasnt found in opened backpack!');  
    end;  
  end;  
  sleep(600);
end;

Sov'leg · 16-02-2009 20:26

witam potrzebuje skrypt na elf boota ;p dokladnie na soldy w kazo
jezeli ktos ma to halp xD

Master Dziadek · 17-02-2009 07:35

@up, @down
Witam!
Od dłuższego czasu bardzo dużo czasu spędzałem na Google, powód można znaleźć w temacie, do rzeczy.

Potrzebuję skrypty na ciągłe atakowanie, a mianowicie, jak zaznaczę jakiegoś gracza, ten ucieknie mi z ekranu... dogonię go i zaś jest zaznaczony.

Gram na OTS enfo(pvp-enfo.no-ip.org), więc nie chcę żadnego skryptu co się nick podaję czy coś.

Aaaa! Najważniejsze! Chciałbym, aby tą opcję można było wyłączyć - najlepiej ESC.

Z wyrazami szacunku,
Master Dziadek

Xiraz · 17-02-2009 11:09

Master Dziadek:
nie jestem pewien czy działa na 100%

Kod PHP:

var   
LockID:integer;   

function GetCreatureByID(ID: integer): TCreature;   
var   
  x: integer;   
begin   
  Result := nil;   
  for x := 0 to Creatures.Count - 1 do   
  begin   
    if x >= Creatures.Count then Break;   
    if Creatures.Creature[x].ID = ID then   
    begin   
      Result := Creatures.Creature[x];   
      Exit;   
    end;   
  end;   
end;   

begin   
updateworld;   
while self.attacking=0 do   
begin   
sleep(200);   
updateworld;   
end;   
LockID:=self.attacking;   
while not terminated do   
   begin   
   updateworld;   
   ProcessEvents;   
   if ((self.attacking)<>(LockID)) and ((self.attacking)<>(0))  then   
   LockID:=Self.Attacking; 
   If Self.Attacking=0 then 
   begin 
    Creature:=GetCreatureByID(LockID);  
     If Creature<>nil then Creature.Attacking:=true; 
      end;
       
   sleep(100);   
   end;   
end;

JA bym prosił o skrypta który atakuje potworki z dystansu (chodzi mi o 3 kratki czy na ile tam jest teraz po ubdate ustawione.) dla Palla

Master Dziadek · 17-02-2009 16:13

Ten Twój skrypt, tzn. nie wiem czy Twój działa prawie prawidłowo.

Dobrze:
- nie odznacza

Źle:
- po kliknięciu w klawisz ESC postać odznacza się i zaś zaznacza.

Proszę o pomoc od WSZYSTKICH!

Z wyrazami szacunku,
Master Dziadek

DOWWWWWWWWWWWWWN:
HEEEEEEELP

Poducha · 17-02-2009 20:53

Ja szukam skryptu aby zamieniał kasę na playtnki i kolekcjonował. Jak ktoś może to jeszcze dziś. (NG jak coś)
@down:
Thx ;d ale jak go "wgrać"
@down:
dobra mam , działa ;D THXXX :D

**Gray** · 17-02-2009 20:59

Poducha napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

Ja szukam skryptu aby zamieniał kasę na playtnki i kolekcjonował. Jak ktoś może to jeszcze dziś.

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;

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;

Muszą być oba.

#down:
Thx ;d ale jak go "wgrać"

Tools > Scripter > Paste > Execute Script (trza pojedynczo)

Temat: Szukasz skryptu? Zajrzyj tutaj!

Narzędzia tematu

Oceń ten temat

TibiaBot_NG 4.8.5 - poszukuję skryptu na ciągłe atakowanie!

Proszę o tą pomoc!

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

Szukasz teamu? Zajrzyj tutaj!

Jaka to piosenka? Zajrzyj tutaj, jeśli szukasz tytułu zasłyszanego gdzieś kawałka.

Szukasz Mappera? Zajrzyj tu!

[7.4] Szukasz oldschoolowego ots'a pod 7.4? Zajrzyj!

Nie wiesz gdzie trenić? Zajrzyj tutaj!

Zakładki

Zakładki

Zasady postowania