- Skrypt Spis skrypt?w do TibiaBot NG

[Uzar]

Odp: Spis skrypt?w do TibiaBot NG

33.Ucieczka w wyznaczone miejsce

Jak ustawi? ten skrypt ????????

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

33.Ucieczka w wyznaczone miejsce
Jak ustawi? ten skrypt ????????

Ucieczka w wyznaczone miejsce gdy kto? nas zaatakuje oraz powr?t gdy kto? nas przesunie. Na pocz?tku idziemy w miejsce gdzie ma ucieka? i wpisujemy w dowolnym kanale "destpos" (wielko?? liter ma znaczenie, no i oczywi?cie bez "") powinno nam wy?wietli? jaki jest X,Y,Z miejsca ucieczki, a potem idziemy w miejsce kt?re ma by? startowa pozycj? i wpisujemy "startpos". Od tej chwili je?eli kto? nas zaatakuje, bot ucieknie w miejsce w kt?rym wpisali?my "destpos", a je?eli si? ruszymy, albo kto? nas przesunie (oczywi?cie z wy??czeniem ucieczki) bot wr?ci na miejsce w kt?rym wpisali?my "startpos"). ?eby sko?czy?, albo stopujemy skrypt w Scripterze (w dolnym prawym rogu sa pokazane uruchomione skrypty, klikamy prawym na nazw? i "stop script") albo piszemy "stop" tez w oboj?tnym kanale.

Ja tego nie kumam;/ nie mozesz napisac np.
Auto 200 mphigher 20 say exori gran
bo ja nie rozumiem tak rozbudowanego;d mozesz podac proste haslo zebym wyci?? i wklei? co mam zrobic jesli na okolo mnie jest x potworkow zeby uzylo exori gran
z g?ry wielkie dzi?ki
napisz mi takie cos na gg 7795594.

To nie jest ElfBot, tylko NG

Witam, chyba nie znalaz?em tutaj takiego skrypta, ale mo?e kto? mi pomo?e, natomiast potrzebuj? skrypt, ?e jak np. wpisze ID potwora do skryptu i komputer da mi znak, ?e pojawi? si? ten potw?r albo jakie? podobne " Monster on screen " . Potrzebuj? na OTS, bo siedz? na Horned Foxie xd. Bot ma by? NG.
Z g?ry :thx:

Skrypt:

function IsCreatureVisible(Name: string): boolean;
var
  x: integer;
begin
  Result := False;
  for x := 0 to Creatures.Count - 1 do
  begin
    if x >= Creatures.Count then Break;
    if Creatures.Creature[x].Name = Name then
    begin
      if Creatures.Creature[x].Visible then
      begin
        Result := True;
        Exit;
      end;
    end;
  end;
end;

begin
  while not Terminated do
  begin
    UpdateWorld;
    if IsCreatureVisible('Scarab') then PlaySound('c:\windows\media\notify.wav');
    Sleep(1000);
  end;
end;

To jest skrypt, kt?ry zawyje, gdy b?dzie ten potw?r.
Tam gdzie:

if IsCreatureVisible('Scarab') then

To zamiast Scarab wpisz nazw? potwora

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

Nazwa:
Uciekanie przed potworkiem
Opis:
Skrypt, kt?ry ucieka x SQM przed potworkiem.
Link:

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

jak to wgra??:curse:

Ten skrypt nie dzia?a, ale ten tak:

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

[Nie mog? da? w wiadomo?ci, bo ma ponad 15 tysi?cy znak?w]

Zaraz poprawi? link w spisie

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

Czy m?g? by mi kto? da? skrypta do otwierania ded?w potwora??
:thx::thx::thx::thx:

Masz taki, mam nadziej?, ?e dzia?a:

var
Loot: array of integer;
LootCount: integer;

function GetTileFromXYZ(X, Y, Z: integer): TTile;
begin
Result := nil;
if abs((Self.X - 7) - X) > 14 then Exit;
if abs((Self.Y - 5) - Y) > 11 then Exit;
if Self.Z <> Z then Exit;
Result := Screen.Tile[abs((Self.X - 7) - X), abs((Self.Y - 5) - Y)];
end;

function GetItemOnTile(ID: integer; Tile: TTile): TItem;
var
Z: integer;
begin
Result := nil;
for Z := 0 to Tile.Count - 1 do
begin
if Z >= Tile.Count then Break;
if Tile.Item[Z].ID = ID then
begin
Result := Tile.Item[Z];
Break;
end;
end;
end;

function GetItemFromOpenBackpack(Index, ID: integer): TItem;
var
y: integer;
begin
Result := nil;
if Index >= Self.Containers.Count then Exit;
for y := 0 to Self.Containers.Container[Index].Count - 1 do
begin
if y >= Self.Containers.Container[Index].Count then Break;
if Self.Containers.Container[Index].Item[y].ID = ID then
begin
Result := Self.Containers.Container[Index].Item[y];
Exit;
end;
end;
end;

procedure Event_ContainerOpened(Index, ID: integer; Name: string);
var
x: integer;
Found: boolean;
begin
if Index = 0 then Exit;
repeat
Found := False;
for x := 0 to LootCount - 1 do
begin
UpdateWorld;
Item := GetItemFromOpenBackpack(Index, Loot[x]);
if Item <> nil then
begin
Found := True;
Item.MoveToContainer(Self.Containers.Container[0], 0, 0);
Sleep(200);
end;
end;
until not Found;
end;

procedure Event_ItemCreated(ID, X, Y, Z: integer);
var
Corpse: TItem;
Tile: TTile;
begin
UpdateWorld;
if abs(Self.X - X) > 1 then Exit;
if abs(Self.Y - Y) > 1 then Exit;
if Self.Z <> Z then Exit;
Tile := GetTileFromXYZ(X, Y, Z);
if Tile = nil then Exit;
Corpse := GetItemOnTile(ID, Tile);
if Corpse = nil then Exit;
if (Corpse.Properties.Container) and (not Corpse.Properties.Movable) then Corpse.Open;
end;

begin
Loot := [3031, 3492]; //gold = 3031 and worms = 3492
LootCount := 2; //2 loot items
while not Terminated do
begin
ProcessEvents;
Sleep(100);
end;
end;

 

[alban94]

Odp: Spis skrypt?w do TibiaBot NG

Thomasonek mam pytanie, a jak zrobic zeby mi bil z exori flama w danego potwora? bo probowalem pozmieniac tego exoru hura i mi sie nie udalo ;/

 

[Vortti]

Odp: Spis skrypt?w do TibiaBot NG

@up
Poprostu w cave hunting dajesz na spell attacku exori flam.


Dlaczego nie dzia?a auto SSA skrypt ? Kopiuje go, daje execute script i jest b??d. Co? tam trzeba zmieni?/podmieni? ?

Prosz? o odpowied?.

 

[alban94]

Odp: Spis skrypt?w do TibiaBot NG

ALe mi chodzi o to zeby mi bil tylko w 1 potwora z exori flama

 

[Vortti]

Odp: Spis skrypt?w do TibiaBot NG

Spr?buj to : zmie? nazw? potwora na jak? chcesz

function Attacking : boolean;
var x : integer;
begin
Result := False;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Attacking then
begin
Result := True;
Exit;

end;
end;
end;

While not terminated do
begin
UpdateWorld;
for i:= 0 to Creatures.Count - 1 do
begin
If (Creatures.Creature[i].Name = 'Hellhound') and (attacking) then
begin
Self.Say('exori flam');
end;
sleep(100);
end;
sleep(1000);
end;

Dlaczego nie dzia?a auto SSA skrypt ? Kopiuje go, daje execute script i jest b??d. Co? tam trzeba zmieni?/podmieni? ?

Prosz? o odpowied?.

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

Dzieki przydalo sie, tylko mam teraz 2 problem bo chce zeby mi bil w 3 wybrane potwory : Mumie, Crypt Shamblery i Scaraby i nie wiem jak zrobic ;/ moglbys mi podac skrypta na te 3 potwory? Ogolnie mam tam 7 rodzai potworow ale chce zeby bil w 3 podane wyzej.
Z gory dzieki:thx:

Skrypt:

Const
Monster = ['Mummy','Scarab','Crypt Shambler']

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].Z <> Self.Z then Continue;
if Creatures.Creature[x].Name = Name then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

while not Terminated do
begin
UpdateWorld;
if not Self.Attacking then
begin
Creature := GetCreatureByName(Monster);
if Creature <> nil then Creature.Attacking := True;
end;
Sleep(1000);
end;

 

[macieq233]

Odp: Spis skrypt?w do TibiaBot NG

ja mam pro?b? skryptu z piciem potion?w bo w ng nie mam czego? takiego aby ustawi? to...

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

ja mam pro?b? skryptu z piciem potion?w bo w ng nie mam czego? takiego aby ustawi? to...

Skrypt:

const
minMana = 10800 
while not terminated do
begin
UpdateWorld;
if Self.Mana < minMana then
Self.Containers.UseItemWithSelf(238);
Sleep(1000);
end;

Zamiast 238 wpisz ID potiona ;p

 

[timur]

Odp: Spis skrypt?w do TibiaBot NG

Nazwa:
Uciekanie przed potworkiem
Opis:
Skrypt, kt?ry ucieka x SQM przed potworkiem.
Link:

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

dlaczego ten srypt nie dziala ? bardzo by mi sie przydal ;(

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

Nazwa:
Uciekanie przed potworkiem
Opis:
Skrypt, kt?ry ucieka x SQM przed potworkiem.
Link:

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

dlaczego ten srypt nie dziala ? bardzo by mi sie przydal ;(

Skrypt ju? zosta? poprawiony, tak samo jak par? innych.
Je?li znajdziecie jakie? b??dne skrypty to zg?o?cie mi na PW.
Pozdrawiam.
Thomass

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

ja potrzebuje tego scryptu na uciekanie? da mi ktos?

Nazwa:
Ucieczka w wyznaczone miejsce
Opis:
Ucieczka w wyznaczone miejsce gdy kto? nas zaatakuje oraz powr?t gdy kto? nas przesunie. Na pocz?tku idziemy w miejsce gdzie ma ucieka? i wpisujemy w dowolnym kanale "destpos" (wielko?? liter ma znaczenie, no i oczywi?cie bez "") powinno nam wy?wietli? jaki jest X,Y,Z miejsca ucieczki, a potem idziemy w miejsce kt?re ma by? startowa pozycj? i wpisujemy "startpos". Od tej chwili je?eli kto? nas zaatakuje, bot ucieknie w miejsce w kt?rym wpisali?my "destpos", a je?eli si? ruszymy, albo kto? nas przesunie (oczywi?cie z wy??czeniem ucieczki) bot wr?ci na miejsce w kt?rym wpisali?my "startpos"). ?eby sko?czy?, albo stopujemy skrypt w Scripterze (w dolnym prawym rogu sa pokazane uruchomione skrypty, klikamy prawym na nazw? i "stop script") albo piszemy "stop" tez w oboj?tnym kanale.
Link:

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

Ma mo?e kto? skrypt na haste(runa)

Nazwa:
Auto Utani Gran Hur
Opis:
Posta? automatycznie w??cza czar Utani Gran Hur
Link:

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

Pozdrawiam.
Thomass

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

Ale mam problem z exori hur. M?g?by kto? mi powiedziec jak go ustawic na ghoule? Thx

const
MonsterName = 'Ghoul' ;
Attack_Spell = 'exori hur' ;
Min_Mana = 100 ;
Min_Monster_HP = 1 ; 
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;

Witam Mam Problem Ze Scryptem Tzn : Mam Scrypta Lecz niewiem czemu mi niedziala a nieznam sie natym , chodzi mi o scrypta takiego ktory bedzie mi podbiegal do potworow bo gdy zaznacze to na tibi to on po jakims czasie przestaje podbiegac mam takiego scrypta ale mi niedziala prosze o nowego

Const
Monster = 'Chicken'

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].Z <> Self.Z then Continue;
if Creatures.Creature[x].Name = Name then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

while not Terminated do
begin
UpdateWorld;
if not Self.Attacking then
begin
Creature := GetCreatureByName(Monster);
if Creature <> nil then Creature.Attacking := True;
end;
Sleep(1000);
end;

Pozdrawiam.
Thomass

 

[bigilek]

Odp: Spis skrypt?w do TibiaBot NG

Dzieki Bardzo mi sie przyda?o


Tu jest skrypt na exori hur MI sie bardzo przydaje

begin
while not Terminated do
begin
UpdateWorld;
if (Self.Attacking) then
begin

if (Self.Mana >= 70) then
Self.Say('exori hur');
sleep(300);
end;
Sleep(100);
end;
end;


a tu jest skrypt ,ze was nie wyloguje na trajnach bo postac bedzie sie ruszac Nazwa Tanczenie


begin
while not terminated do begin
sleep(10000);
self.facedown;
sleep(10000);
self.faceup;
sleep(10000);
self.faceleft;
sleep(10000);
self.faceright;
end;
end;

 

[Borsuk]

Odp: Spis skrypt?w do TibiaBot NG

M?g?by kto? uaktualni? skrypt na anty parala ? bo mi nie dzia?a

 

[DaNoNeK]

Odp: Spis skrypt?w do TibiaBot NG

M?g?by kto? uaktualni? skrypt na anty parala ? bo mi nie dzia?a

const
minMana = 250;
while not Terminated do
begin
UpdateWorld;
if Self.Mana > minMana then
begin
if Self.Slowed then
Self.Say('tu wpisz czar'); //
end;
Sleep(300);
end;

Mi dzia?a, nie wiem jak Tobie.

 

[Thomass]

Odp: Spis skrypt?w do TibiaBot NG

M?g?by kto? uaktualni? skrypt na anty parala ? bo mi nie dzia?a

Skrypt:

const
minMana = 100;
while not Terminated do
begin
UpdateWorld;
if Self.Mana > minMana then
begin
Self.Say('Utani Gran Hur');
end;
Sleep(14000);
end;

Wyja?nienie: Strong Haste trwa bodaj?e 15 sekund, wi?c co 14 sekund b?dzie wrzuca?o ten czar.

Mam problem ustawilem bota na dl ale bot nie chce chodzic po ogniu moze ktos wiej jaki jest na to skrypt czy cos takiego prosze o szybka odpowiedz !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!![gracz][gracz][gracz][gracz][gracz][gracz][gracz][gracz][gracz][gracz][gracz][gracz][/gracz][/gracz][/gracz][/gracz][/gracz][/gracz][/gracz][/gracz][/gracz][/gracz][/gracz][/gracz]

Zapraszam do tego tematu: http://tibia.net.pl/boty/200890-tibiabot-ng-chodzenie-po-fieldach-sposob-dziala-na-100-a.html

chcem sie spyta czy jest mozliwoesc zeby walil z exori san ?? jak sie da prosze o gotowca dzienki

Skrypt:

const
MonsterName = 'Nazwa Potwora' ;
Attack_Spell = 'exori san' ;
Min_Mana = 200 ;
Min_Health = 300 ;
Min_Monster_HP = 1 ; 
Max_Monster_HP = 9999 ;
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 (Self.Health >= Min_Health) 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;

 

[Szara Eminencja]

Odp: Spis skrypt?w do TibiaBot NG

Witam!
Chcia?bym si? zapyta? czy w ng jest taka opcja lub skrypt je?li jaki? m?j nieprzyjaciel zaloguje w vip to w??czy si? alarm ??

Jest taka mo?liwo??, ale je?eli potrzebujesz takiego skryptu to proponuj? poszuka? na g??wnym forum bota, albo poprosi? w tym temacie bo osobi?cie go nie mam ale jestem niemal?e pewien o takiej mo?liwo?ci bo mia?em podobny kt?ry dzia?a? na zasadzie leczenia znajomych z zielon? tarcz?.