- Pozostałe [Inne]Skrypty do Tibi

[Active]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

@up

Zdaj? mi si?, ?e chodzi Ci o ten skrypt:

const
MonsterName = ['Dragon Lord']// Nazwa potwora 
Attack_Spell = 'Exori hur' // Jakim czarem
Min_Mana = 250 // Je?eli mana jest mniejsza ni? tu to nie b?dzie uderza?
Min_Monster_HP = 0   
Max_Monster_HP = 100
Range = 5 
var
   x: Integer;
   Creature:TCreature;
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;
function IsCreatureAttackable(c: TCreature): boolean;
begin
   UpdateWorld;
   Result := False;
   if (c.Z = self.Z) and (abs(c.X-self.X) <= Range) and (abs(c.Y-self.Y) <= Range) and (c.outfit<>0) and (c.Health >= Min_Monster_HP) and (c.Health <= Max_Monster_HP) then  
     begin
     Result := True;
     end;
end; 
while not Terminated do
begin
  UpdateWorld;
  Creature := GetCreatureByID(Self.Attacking); 
  if (Self.Mana >= Min_Mana) and (Creature <> nil) then 
  for i := low(monstername) to high(monstername) do
    begin
      if (MonsterName[i] = Creature.Name) and (IsCreatureAttackable(Creature)) then 
          begin
          Self.Say(Attack_Spell);
          sleep(2000);
          end;
    end;       
    sleep(100);
end;

@scarp

Zobacz ten:

const
SpearID=3277;
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;

while not terminated do
begin
updateworld;
if Self.RightHand.Amount<=3 then
begin
Item:=GetItemFromOpenBackpack(SpearID);
if Item<>nil then
Item.MoveToBody(Self.RIghtHand,0);
end;
sleep(1000);
end;

 

[bartek-orale]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Chcial bym poprosic o 2 srypty;

1. Skrypt na zbieranie Free-Itemsu, tylko to co spadnie a nie to co lezy
2. Skrypt chodze po ogniu cave hunting

 

[Damianq]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Ja z kolei mam tak? pro?b?, ot?? prosi?bym o skrypta, kt?ry polega?by na tym, ?e podczas skillowania, moja posta? nie b?dzie atakowa? potwora/gracza z mniejszym, ni? 30% HP. Z g?ry dzi?kuj?

 

[FerN]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Potrzebny mi skrypt na to, ?e kiedy m?j knight b?dzie skillowa?, hp mu spadnie poni?ej 200 lub zobaczy ghula, to za?o?y knight axe do czasu kiedy b?dzie mia? 400 hp, wtedy za?o?y zn?w sickle. Mam nadzieje, ?e si? da zrobi? ;]

 

[MackoSawko]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Ja bym poprosi? skrypta w kt?rym zmienisz id manafluida na dowolne id kt?re b?de m?g? sobie wpisa?

 

[1michcio1]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Ja bym prosi? o skrypt na uh i mega manasy pod pewien ots a mianowicie Armia podkarpacki OTS z G?ry THX

 

[bartol92]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Witam poprosi? bym o skrypt do NG dla palladyna ot?? Jak przysta?o na palladyna w koncu royal speary sie koncza na expowisku a nikomu nie chce sie biegac po speary zwlaszcza w nocy kiedy postac sobie biega sama. Poprosi? bym o taki skrypt ?eby m?j pall bra? sobie z 1 miejsca te Royalki i smiga? przez ca?? noc.

 

[Osa12]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Witam potrzebuje skryptu mianowicie chodzi mi o to ?e:
Gdy posta? ma ponad 80% many, bije j? jaki? monster i niema nikogo na ekranie to bije z exevo mas san. Bardzo potrzebuje takiego skryptu wiec b?d? bardzo wdzi?czny za podanie mi go.
Z G?ry dzi?kuje.;]

 

[grzela200]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Potrzebuje dw?ch skrypt?w:
1.Kiedy mam mniej xxx many postac idzie w wyznaczone miejsce a kiedy w trakcie drogi mana sie odnowi do yyy dalej expi
2. kiedy jest mniej niz xxx many manaryne odnawia ja do na max'a i nastepnie czeka az sie ja rozladuje do do xxx i znowu robi to samo tak w k??ko
Prosze o jak najszybsz? odpowied?

 

[bartek-orale]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

chyba maja na nas wyjebane xDD

 

[Vontroba]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Poszukuje skrypta na zmiane SSA je?eli zostaje 1 ?adunek to zmienia na ssa o ?adunku 5 i tak w k??ko ;o

Prosz? o szybk? odpowied?!!!!

 

[Michalekk]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Poszukuje skrypta na zmiane SSA je?eli zostaje 1 ?adunek to zmienia na ssa o ?adunku 5 i tak w k??ko ;o
Prosz? o szybk? odpowied?!!!!

Nie da si? zrobi?, gdy zostanie 1 ?adunek.

var
   Item: TItem;

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;

while not Terminated do
begin
   UpdateWorld;
   if Self.Amulet.ID = 0 then
   begin
      Item := GetItemFromOpenBackpack(3081);
      if Item <> nil then
         Item.MoveToBody(Self.Amulet, 0);
      else
      begin
         Item := GetItemFromOpenBackpack(3057);
         if Item <> nil then
            Item.MoveToBody(Self.Amulet, 0);
      end;
   end;
   Sleep(100);
end;

 

[Damain1996]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

A ja bardzo bym chcia? skrypt kt?ry zamienia gp w platynki na OTS, oraz ?eby sam "kompletowa?" mi itemy czyli np. mam w bp 3gp i 7gp i ?eby on sam zamienia? to w 10gp. Jak cos id GP to "3031" a platynek to "3035"

 

[Michalekk]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Zamiana GP na platynki:

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;

??czenie:

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;

 

[nieznany212]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Prosba o skrypt na Utamo vita co iles sekund(nie gdy sie skonczy)

 

[Michalekk]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Prosba o skrypt na Utamo vita co iles sekund(nie gdy sie skonczy)

while not terminated do 
begin
UpdateWorld;
if not self.hasting then
if self.mana >= 80 then
   self.say('utamo vita');
Sleep(2000);
end;

#down
Zmieni?em czas ze 100, na 2000.

 

[nieznany212]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

A m?g?by? mi napisac zeby bylo co 10sec. bo mi bez przerwy wlacza utamo vita.

 

[Damain1996]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Mo?e ju? by?o to przepraszam...

Mianowicie skrypt kt?ry wpisuje tekst na podstawie wiadomo?ci ,albo pro?ciej anty-anty-AFK Na serwerze pokazuje si? taka wiadomo?c po paru minutach

Please type '/train xxxx' to prove that you are actually playing the game.
Not doing so will get you banned for 1 hour.

gdzie xxxx to wylosowana liczba, sam tekst ( 8.5 ) pojawia si? na ?rodku ekranu, oraz w kanale defaul. Skrypt mia?by wpisywa? "/train xxxx" bez " i z wylosowan? liczb? Je?li to mo?liwe to prosz? o jego napisanie.
Pozdrawiam, Damian.

 

[Gepard154]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Nie wiem czy by?o ale je?li by?o to przepraszam.
Poszukuj? skryptu na utamo vita by si? nie ko?czy?o

 

[Michalekk]

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Odp: [Zam?wienia]Skrypty do TibiaBotNG

Nie wiem czy by?o ale je?li by?o to przepraszam.
Poszukuj? skryptu na utamo vita by si? nie ko?czy?o

By?o to wa?kowane tyle razy. ;/

while not terminated do
begin
  UpdateWorld;
  if not Self.MagicShield then
  begin
    Self.Say('Utamo Vita');
    Sleep(2000);
  end;     
  sleep(100);
end;