Szukasz skryptu? Zajrzyj tutaj!

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

Cytuj:

---

artix1234 napisał

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

---

Niestety nie przechodzi przez parcele ani ognie ....

msisz zeedytowac tibia.dat przez np noxitu sprite editor




Prosze o skrypta na smieciarza do blackd tzw raz rzuca gp a raz arrow :) z gory dziekuje

potrzebuje skryptu że nie atakuje potowrow które maja więcej niż x hp

Cytuj:

---

Czerez napisał

potrzebuje skryptu że nie atakuje potowrow które maja więcej niż x hp

---

Cytuj:

---

Const
StopAt=40;//przestaje bic na 40%.
AttackAt=45;// zaczyna bic jak ma 80% hp.
TrainName=['Monk'];//zalezy o jakiego trainera chodzi ~
var
creature:tcreature;

function GetCreatureByNameHPHIGH(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 ABS(Self.x-Creatures.Creature[x].x)<=1 then
if ABS(Self.y-Creatures.Creature[x].y)<=1 then
if Creatures.Creature[x].Name = Name then
if Creatures.Creature[x].z=Self.Z then
if Creatures.Creature[x].Health>AttackAt then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
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;
function GetAttackedCreature: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].Attacking=true then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;


begin

while not Terminated do
begin
UpdateWorld;
if not attacking then
begin
For x:=low(TrainName) to high(trainName) do
begin
If self.attacking<>0 then break;
Creature:=GetCreatureByNameHPHIGH(TrainName[x]);
if Creature <> nil then
creature.attacking:=true;
sleep(100); updateworld;
end;
end;
if attacking then
begin
Creature:=GetAttackedCreature;
if Creature <> nil then
if creature.Health < StopAt then creature.attacking:=false;
end;
sleep(1000);
end;
end;

---

x
x
x
xxsadsa

Hi.
Szukam skryptu na trolle pod Ab, dokładniej niech postać chodzi z sword/clubem/axe gdy lotnie spera bije z niego.
Proszę też o waypointy do tego.
Jeśli napisałem coś źle lub coś niedobrze :D proszę mi to wybaczyć bo dopiero dzisiaj dostałem NG.

Poprostu chce skrypta wkleić i włączyć.

Witajcie, potrzebuje skryptu ktory zmnienia z broni do skilowania na mocna bron gdzy mam mniej niz x hp.

Potrzebuje rowniez czegos takiego, jak mnie atakuja 2 potwory bije z slabej broni (sickle) a jak przyjdzie 3 potwor ubija go z mocnej broni tak aby zostaly tylko 2

Siema potrzebuje skryptu ktory bedzie podnosil itemki ktore ja zechce w zaleznosci gdzie expie PRoSZe O SCTYPT BARDZO ;d :** pod tibie 8.1 ;=]

Ściągnij TibiaBot NG (crackuj lub kup) lub TA, i ustaw żeby lootował itemki,tylko ustaw dobre ID..

Cytuj:

---

Mozzi napisał

Hi.
Szukam skryptu na trolle pod Ab, dokładniej niech postać chodzi z sword/clubem/axe gdy lotnie spera bije z niego.
Proszę też o waypointy do tego.
Jeśli napisałem coś źle lub coś niedobrze :D proszę mi to wybaczyć bo dopiero dzisiaj dostałem NG.

Poprostu chce skrypta wkleić i włączyć.

---

to samo...............

Cytuj:

---

Mozzi napisał

to samo...............

---

Cytuj:

---

const
WeaponID = 3319
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;

---

to moze takie cacko...
musisz miec bron w miejscu na strzaly, podnosi speary a jak nie masz spearow to uzywa broni
trzymaj w prawiej rece

Poproszę o skrypt to TA 8.4 na Darashie [rotwormy] na północ od miasta.

szukam skrypta na small stonsy.. a dokładniej takiego w którym postać gdy lootnie small stonsa bierze go w rękę i bije z niego gdy nie będzie już stonsów zakłada znowu sworda..
Please help

poporosze o Skrypt na anty-bot monster działający najlepiej na merkliny i kongry

Cytuj:

---

Czerez napisał

poporosze o Skrypt na anty-bot monster działający najlepiej na merkliny i kongry

---

Cytuj:

---

// Ignores anti-botter creatures based on time to kill
// @since Dec 14, 2008
// @author Pardall BR
// @colaboration Fal Dragonheart, cavalogrande

const
// Time in seconds to kill a creature. If it takes more than it, script will assume that creature as an anti-botter.
AverageTimeKill = 25;

// Play alarm in case of an anti-botter detected? 1 = yes / 0 = no
SoundAlarm = 1;
// Alarm Path
AlertSound = 'c:\windows\media\notify.wav';

// Don't change this
IgnoreLimit = 250;

var
CreaturesIgnore: array of integer;
CreatureAttacking : integer;
CreatureAttackingBefore : integer;
TimeAttack, TimeStamp, TimeElapsed : integer;
y : integer;

// @credits http://forums.tibiabot.com/showthread.php?t=77814
function TimeNow:integer;
var
hours, minutes, seconds, miliseconds:integer;
begin
DecodeTime(Now, hours, minutes, seconds, miliseconds);
Result := hours * 60 * 60 * 1000 + minutes * 60 * 1000 + seconds * 1000 + miliseconds;
end;

procedure PlayAlarm;
begin
if SoundAlarm then
begin
if (Pos('.wav', AlertSound) <> 0) then
begin
try
PlaySound(AlertSound);
except
ShowMessage('Please enter a valid path for the sound file!');
end;
end;
end;
end;

// Check if player is attacking something, if yes return attacked creature id
function CheckAttacking: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
if CreatureAttackingBefore > 0 and CreatureAttackingBefore <> Creatures.Creature[x].ID then
CreatureAttackingBefore := CreatureAttacking;

Result := Creatures.Creature[x].ID;
Exit;
end;
end;
Result := 0;
Exit;
end;

//Check if an ID is in ignore list
function CheckIgnored(ID : integer) : boolean;
var x : integer;
begin
if y >= 1 then
begin
for x := 0 to y-1 do
begin
if ID = CreaturesIgnore[x] then // ignored creature
begin
Result := true;
Exit;
end;
end;
end;
Result := false;
end;


// Add an ID to the ignore list
procedure IgnoreCreature(ID : integer);
begin
Self.DisplayText('IgnoreCreature #' + IntToStr(ID));
CreaturesIgnore[y] := ID;
y := y + 1;
if y > IgnoreLimit then y := 1;
end;

procedure StopAttack;
begin
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
Creatures.Creature[x].Attacking := false;
Exit;
end;
end;
end;

// Check if the player has been attacked, then attack the attacker if it isn't a player
procedure Event_Attacked(ID: integer);
begin
if not CheckIgnored(ID) then
begin
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID = ID and
(not Creatures.Creature[x].WhiteSkull and not Creatures.Creature[x].RedSkull and not Creatures.Creature[x].YellowSkull) // ignore player attack (is there a better way?)
then
begin
TimeAttack := TimeNow;
Creatures.Creature[x].Attacking := True;
Exit;
end;
end;
end;
end;

begin
CreatureAttackingBefore := 0;
CreatureAttacking := 0;
y := 0;
CreaturesIgnore := VarArrayCreate([y, IgnoreLimit], $C);

UpdateWorld;
while not Terminated do
begin
UpdateWorld;

if not CheckAttacking then
begin
ProcessEvents;
CreatureAttacking := CheckAttacking;
end;

if CheckAttacking then
begin
TimeStamp := TimeNow;
TimeElapsed := TimeStamp - TimeAttack;

if CreatureAttacking = CreatureAttackingBefore and (TimeElapsed > (AverageTimeKill*1000)) then
begin
IgnoreCreature(CreatureAttacking);
StopAttack;
PlayAlarm;
end;

CreatureAttackingBefore := CreatureAttacking;
end;

sleep(500);
end;
end;

---

sprobuj tego. Pamietaj by miec alerty testujac ten skrypt, wrazie gdyby nie dzialal poprawnie.
Skrypt dziala tak:
bije moby ktore bija ciebie, jak po x czasie (zmienia sie w skrypcie) nie moze zabic dodaje go do ignore list.
Nie zaznaczaj target all.

szukam skryptu do ng zeby char automatycznie jedl co ma w backpacku

#zbysio
Skrypt Nie Chodzi Caly Czas Mi Dzwoni Alert ;//

Cytuj:

---

Czerez napisał

#zbysio
Skrypt Nie Chodzi Caly Czas Mi Dzwoni Alert ;//

---

to zmien sound allarm na 0
SoundAlarm = 1 zmien na SoundAlarm = 0

Cytuj:

---

twoja stara napisał

szukam skryptu do ng zeby char automatycznie jedl co ma w backpacku

---

nie wystarczy zaznaczyc "eat food"?

Poszukuje nadal skryptu na chdozenie po ogniach na cave bocie do TibaiaBot NG oraz 2 skryptów:

-strzelanie z SD w potwory powyzej X HP
-strzelanie z exori frigo i i flam i tera w potwory

Najważniejsze dla mnie są jednak SD-ki.

Najlepsze by było gdybym np. na numpadzie wciskał 1 i włącza exori mort, wciskam 2 włącza frigo etc. wciskam 5 wale z sdkow

Pozdrawiam

Cytuj:

---

tosik napisał

-strzelanie z exori frigo i i flam i tera w potwory

---

Kod PHP:

---

const frigo = ['banshee', 'bear', 'behemoth', 'betrayed wraith', 'blue djinn', 'dark torturer', 'demon', 'destroyer', 'diabolic imp', 'dragon', 'dragon hatchling', 'dragon lord', 'dragon lord hatchling', 'dwarf geomancer', 'demon skeleton','fire devil', 'fire elemental', 'green djinn', 'hand of cursed fate', 'hellfire fighter', 'hellhound', 'kongra', 'lion', 'marid', 'merlkin', 'nomad', 'plaguesmith', 'priestess', 'rat', 'sibang', 'son of verminor', 'stone golem', 'tiger', 'undead dragon', 'war wolf','wyvern']; flam = ['ancient scarab','crypt shambler', 'azure frog', 'beholder', 'blightwalker', 'blood crab', 'bonebeast', 'braindeath', 'bug', 'carniphila', 'carrion worm', 'cave rat', 'centipede', 'crab', 'crocodile', 'dark monk', 'defiler', 'dwarf', 'dwarf guard', 'dwarf soldier', 'dworc fleshhunter', 'dworc venomsniper', 'dworc voodoomaster', 'elder beholder', 'gargoyle', 'gazer', 'ghoul', 'giant spider', 'hunter', 'larva', 'lich', 'lizard sentinel', 'lizard snakecharmer', 'lizard templar', 'mammoth', 'monk', 'mummy', 'necromancer', 'nightmare', 'panda', 'phantasm', 'pirate buccaneer', 'pirate corsair', 'pirate cutthroat', 'pirate ghost', 'pirate marauder', 'pirate skeleton', 'poacher', 'poison spider', 'scarab', 'serpent spawn', 'slime', 'spectre', 'spit nettle', 'stalker', 'swamp troll', 'tarantula', 'terror bird', 'thornback tortoise', 'toad', 'tortoise', 'vampire', 'wasp']; tera = ['cyclops', 'cyclops drone', 'cyclops smith', 'elf arcanist', 'frost troll', 'fury', 'orc', 'orc berserker', 'orc leader', 'orc rider', 'orc shaman', 'orc spearman', 'orc warlord', 'orc warrior', 'quara constrictor', 'quara hydromancer', 'quara mantassin', 'quara pincher', 'quara predator', 'quara constrictor scout', 'quara hydromancer scout', 'quara mantassin scout', 'quara pincher scout', 'quara predator scout', 'troll', 'troll champion']; vis = ['acolyte of the cult', 'adept of the cult', 'chakoya toolshaper', 'chakoya tribewarden', 'chakoya windcaller', 'crystal spider', 'elephant', 'enlightened of the cult', 'frost dragon', 'frost dragon hatchling', 'frost giant', 'frost giantess', 'ghost', 'hydra', 'ice golem', 'ice witch', 'juggernaut', 'lost soul', 'novice of the cult', 'penguin', 'polar bear', 'water elemental', 'winter wolf']; mort = ['black knight','amazon', 'assassin', 'bandit', 'barbarian bloodwalker', 'barbarian brutetamer', 'barbarian headsplitter', 'barbarian skullhunter', 'dark apprentice', 'dark magician', 'elf', 'elf scout', 'goblin', 'hero', 'minotaur', 'minotaur archer', 'minotaur guard', 'minotaur mage', 'rotworm', 'smuggler', 'valkyrie', 'warlock', 'wild warrior', 'witch']; useWand = 1 // 1 to attack with wand also, 0 to do not attack with wand. function GetExoriType(Crea: TCreature): String; begin Result := ''; for z := Low(frigo) to High(frigo) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(frigo[z]) then Result := 'exori frigo'; end; for z := Low(flam) to High(flam) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(flam[z]) then Result := 'exori flam'; end; for z := Low(tera) to High(tera) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(tera[z]) then Result := 'exori tera'; end; for z := Low(vis) to High(vis) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(vis[z]) then Result := 'exori vis'; end; for z := Low(mort) to High(mort) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(mort[z]) then Result := 'exori mort'; 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; begin sleepTime := 1100; if useWand = 0 then sleepTime := 1000; while not terminated do begin updateworld; if Self.Attacking <> nil then begin creature := GetCreatureByID(self.attacking); if creature <> nil then begin exori := GetExoriType(creature); if exori <> '' then begin updateworld; if (abs(creature.x - self.x) <= 3) and (abs(creature.y - self.y) <= 3) and (self.z = creature.z) then begin if Self.Attacking > 0 then if creature.visible then self.say(exori); end; end; end; end; sleep(sleepTime); end; end;

---

Cytuj:

---

tosik napisał

Poszukuje nadal skryptu na chdozenie po ogniach na cave bocie do TibaiaBot NG oraz 2 skryptów:

---

http://forum.tibia.org.pl/showthread.php?t=289097

Edytuj plik tibia.dat, znajdź Fire Field i odznacz 'blocking for pathfinder'.

Cytuj:

---

tosik napisał

Najważniejsze dla mnie są jednak SD-ki.

---

I przy okazji najtrudniejsze do znalezienia ^^



&#64;dół
Nie dziwię się, bo ja też nie znalazłem ;p

przysięgam na sdki nic nie znalazłem ;/ szukam i szukam, zalazlem tlyko tematy bez odpowiedzi ...

Chciałbym do SD coś w stylu exori mort czyli auto ataku :)


tu coś znalazłem ale nie wiem jak przerobić żebym sobie włączał auto atak z sd i wyłączał :)
Attack Monster list:

Kod PHP:

---

Const MonsterList = ['Demon','Dragon Lord','Hydra','Dragon','Ice Dragon'] function GetCreatureByName: 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 for i := low(MonsterList) to high(monsterlist) do if Creatures.Creature[x].Name = MonsterList[i] then begin Result := Creatures.Creature[x]; Exit; end; end; end; While not terminated do begin UpdateWorld; C := GetCreatureByName; if C <> nil then if not self.attacking then C.Attacking := true; sleep(100); end;

---

Oraz Runes Attack

Kod PHP:

---

const delay = 1.5 // delay to wait between shooting SDs on the demon. MonsterName = 'Bonebeast' MinHP = 0 // if YOU have under this HP you will not shoot sd. MonsterHP = 0 // if MONSTER has this % of HP or less it will not shoot on it. RuneID = 3155 // enter the ID of rune. 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; procedure Attack(Name:string); var Player:TCreature; x:integer; begin updateworld; Monster :=GetCreatureByName(Name); if monster <> nil then if Self.Health>MinHp then begin Self.Containers.UseItemWithCreature(RuneID, Monster); updateworld; end end; while not terminated do begin Yes := false; UpdateWorld; for i := 0 to creatures.Count - 1 do begin if creatures.Creature[i].Z = Self.Z then If Creatures.Creature[i].Name = MonsterName then begin Yes := true; repeat Attack(MonsterName); Sleep(Delay * 1000); UpdateWorld; for g := 0 to creatures.Count -1 do begin if creatures.Creature[i].Z = Self.Z then If Creatures.Creature[i].Name = MonsterName then Yes := True else Yes := false; else yes := false; end; until Yes = false; end; sleep(100); end; Sleep(100); end;

---

I jak przerobić te 2 żeby 10sec przed końcem czaru dopiero rzucal nowy:

Kod PHP:

---

Const Spell = 'Utamo Vita' // Spell words MinMana = 50 // Mana needed Seconds = 20 // Sleep time (Magic Shield wears off after 200s) while not terminated do begin UpdateWorld; if (Self.Mana >= MinMana) then begin self.say(Spell); end; Sleep(Seconds*1000); end;

---

oraz utani gran hur:

Kod PHP:

---

Const Spell = 'utani gran hur' MinMana = 100 while not terminated do begin UpdateWorld; if not self.hasting then if self.mana >= MinMana then Self.Say(Spell); sleep(1000); end;

---

PS co zaznaczyć żeby bot nie zaznaczał follow ?

Witam a ja potrzebuje skryptu do NG by chodził po speary do dp lub kupował. Np. expi, expi i zostaje mu 2 speary idzie do dp (lub kupuje) i bierze z 7 i wraca spowrotem expi i tak wkółko :) a jeśli tto możliwe to by przy okazji zostawial tez kase w dp ta co uzbierał :) No i jeszcze 1 skrypt by mi byl potrzebny by mój palladyn walił potwora z odległości...

Cytuj:

---

kamxp125 napisał

Witam a ja potrzebuje skryptu do NG by chodził po speary do dp lub kupował. Np. expi, expi i zostaje mu 2 speary idzie do dp (lub kupuje) i bierze z 7 i wraca spowrotem expi i tak wkółko :) a jeśli tto możliwe to by przy okazji zostawial tez kase w dp ta co uzbierał :) No i jeszcze 1 skrypt by mi byl potrzebny by mój palladyn walił potwora z odległości...

---

nie jestem pewien , ale sa chyba takie skrypty , wiem ze napewno w bocie BlackD jest takie cos i latwo nawet to ustawic , a powiedz nam czy masz oryginalne ng czy crack ? bo jest jakas tam roznica w tym

crack :) i jak taki sprypt sie ładuje?

Cytuj:

---

kamxp125 napisał

crack :) i jak taki sprypt sie ładuje?

---

jesli chcesz zaladowac skrpyt to szukasz zakladki podajrze to jest 3 zakladka , klikasz na nia i bierzesz scripter , nastepnie kopiujesz caly skrypt i wklejasz go w ta 1 ramke i gotowe : ] jesli masz z czyms problemy to pisz na pw , niechce warmow za niby spam , chodz bardziej tymi postami to pomagam ; D

Cytuj:

---

Tosik napisał

PS co zaznaczyć żeby bot nie zaznaczał follow ?

---

To znaczy, żeby nie chodził za potworem np. jak ucieka albo skilujesz na slimach to żeby nie szedł do slima tylko czekał aż on podejdzie.

Potrzebnuje skryptu na Mintwallin zeby chodzil ubijal, zbieral loota ,wycinal skorki i zeby skladal loota do baga ktorego gdzies wrzuce.
JCT 93 Knight z k setem c shieldem i fire axem.

Cytuj:

---

Power Is Back!! napisał

Potrzebnuje skryptu na Mintwallin zeby chodzil ubijal, zbieral loota ,wycinal skorki i zeby skladal loota do baga ktorego gdzies wrzuce.
JCT 93 Knight z k setem c shieldem i fire axem.

---

mam na obsidian knife zeby wycinal skorki

const
obsidian_knife = 5908;
skin_body = [4011, 4047, 4052, 4057];

function searchIntArray(id:integer): boolean;
var
i: integer;
begin
result := false;
for i := low(skin_body) to high(skin_body) do begin
if skin_body[i] = id then result := true;
end;
end;

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 SkinBodies(id:integer): Boolean;
var
x, y: integer;
knife: TItem;
t: integer;
begin
UpdateWorld;
knife := GetItemFromOpenBackpack(obsidian_knife);
if knife = nil then
begin
Self.DisplayText('An Obsidian Knife could not be found, please open a container with it.');
exit;
end;
t := -1;
for x := -1 to 1 do begin
for y := -1 to 1 do begin
// if Screen.Tile[7+x, 5+y].Count >= 3 then begin
// t := -2
// end else t := -1;
if searchIntArray(Screen.Tile[7+x, 5+y].Item[Screen.Tile[7+x, 5+y].Count+t].ID) = true then begin
UpdateWorld;
knife := GetItemFromOpenBackpack(obsidian_knife);
if knife <> nil then begin
knife.UseWithGround(Self.X+X, Self.Y+Y, Self.Z);
Self.DisplayText('Attempted to skin a creature with the ID ' + IntToStr(Screen.Tile[7+x, 5+y].Item[Screen.Tile[7+x, 5+y].Count-1].ID) + '.');
Sleep(100);
UpdateWorld;
end;
end;
end;
end;
end;

begin
while not terminated do begin
UpdateWorld;
SkinBodies(skin_body);
Sleep(100);
end;
end;


Sam prosze o skrypt aby rzucal na depo raz jajko raz 1 gp na przemian

Cytuj:

---

xyrdion napisał

Sam prosze o skrypt aby rzucal na depo raz jajko raz 1 gp na przemian

---

http://forums.tibiabot.com/showthread.php?t=84097
http://forums.tibiabot.com/showthread.php?t=84099

Mam nadzieję, że się połapiesz w x i y, jeśli nie to PW.

Cytuj:

---

Oli22 napisał

Witajcie, potrzebuje skryptu ktory zmnienia z broni do skilowania na mocna bron gdzy mam mniej niz x hp.

Potrzebuje rowniez czegos takiego, jak mnie atakuja 2 potwory bije z slabej broni (sickle) a jak przyjdzie 3 potwor ubija go z mocnej broni tak aby zostaly tylko 2

---

To samo :)

Szukam skryptu do tibia auto hellgate
proszę o małą arenę
Napiszcie co da się zrobić.

poszukuje skrypta na napis jaki mam loot na h tak jak z expem mialem kiedyś ten skrypt ale miałem formata i nie moge go teraz znaleść

Cytuj:

---

Czerez napisał

poszukuje skrypta na napis jaki mam loot na h tak jak z expem mialem kiedyś ten skrypt ale miałem formata i nie moge go teraz znaleść

---

Cytuj:

---

//Item per Hour Script Version 1
//By ExpertMace, and an, as of yet unknown, creator of the script this was adapted from!
const
ItemName = 'Small Stones'; //Nazwa przedmiotu
ItemNumber = 1781; //ID przedmiotu

var
seconds, min, mini, hours, count, item, AverageItem, total: integer;
hourText,minText,secText: string;

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;

begin
UpdateWorld;
AverageItem := 0;
item := CountItemAmountFromOpenBackpack(ItemNumber);
count := 0;
seconds := 0;
min := 0;
hours := 0;
while not terminated do
begin
sleep(1000);
UpdateWorld;
count := count+1;
Seconds := count mod 60;
if count>=60 then min := count div 60;
mini := min mod 60;
if min>=60 then Hours := min div 60;
total := (CountItemAmountFromOpenBackpack(ItemNumber)-Item);
AverageItem := total/count*60*60;
HourText := IntToStr(Hours);
MinsText := IntToStr(mini);
SecText := IntToStr(seconds);
if Length(HourText) = 1 then HourText := '0' + HourText;
if Length(MinsText) = 1 then MinsText := '0' + MinsText;
if Length(SecText) = 1 then SecText := '0' + SecText;
self.displayText('Running for '+HourText+':'+MinsText+':'+SecText+' | '+ItemName+' collected: '+inttostr(total)+' | '+ItemName+' average/h: '+inttostr(AverageItem)+'.');
ProcessEvents;
end;
end;

---

Musisz tylko zmienic Id i ewentualnie nazwe.

Szukam skryptu na Horned Foxa, tj. coś, co będzie stało w tej wieży, sprawdzało czy nie ma bossa, zabijało go, wracało tam, gdzie wcześniej było, i wylogowywało.

Cytuj:

---

Micmic napisał

Szukam skryptu na Horned Foxa, tj. coś, co będzie stało w tej wieży, sprawdzało czy nie ma bossa, zabijało go, wracało tam, gdzie wcześniej było, i wylogowywało.

---

Nie łatwiej po prostu stanąć w na miejscu respa Foxa (tu) i włączyć auto-attack? Boss zrespi się nawet jak będziesz tam stał i przy włączonym auto-attack bot automatycznie zaatakuje go jak się pojawi.



&#64;edit
Gdyby Fox respił się z jakąś obstawą, to masz skrypt, który będzie atakował najpierw Foxa.

Kod PHP:

---

Const Name=['The Horned Fox']; SwitchAt=30;// the % of the current attacked monster //that if the monster has lass % hp than this, we Will NOt change to the stronger monster. function GetPlace(st:string):integer; var x:integer; begin Result:=1000; for x:=Low(Name) To High(Name) do begin if Name[x]=st then Result:=x; 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 IsCreatureBesideYou(c: TCreature): boolean; begin UpdateWorld; Result := False; if (abs(c.X-self.X) <= 1) and (abs(c.Y-self.Y) <= 1) then begin if c.Z = self.Z then begin Result := True; end; end; end; var x:integer; b:boolean; begin while not terminated do begin b:=false; updateworld; If (Self.Attacking<>0) then begin Creature:=GetCreatureByID(Self.Attacking); if Creature<>nil then if SwitchAt<Creature.Health then begin for x := 0 to Creatures.Count - 1 do begin updateworld; if b then break; if x >= Creatures.Count then Break; if Creatures.Creature[x].NPC then if Creatures.Creature[x].z=self.z then if Creatures.Creature[x].Name<>self.name then if Creatures.Creature[x].Attacking = false then if IsCreatureBesideYou(Creatures.Creature[x]) then if GetPlace(Creature.Name)>GetPlace(Creatures.Creature[x].Name) then begin sleep(100); updateworld; Creatures.Creature[x].attacking:=true; B:=true; end; end; end; end; Sleep(100); end; end;

---

Potrzebuje banalny skrypt lecz niemam czasu go szukac.

Otoz jezeli mam ponizej 150 hp wpisuje czar "exura"

ja szukam skryptu zeby atakowal potwora uciekajac np 2 kratki oraz
i jesli macie to jeszcze na auto skill na tibi ng :D

mozna prosic o skrypty do blackd ? bo nie wiem
jak tak to prosze o skrypt na trenowanie na monku
w trainerze sie ustawia do 35% zeby przestał walic monka a w cavebocie biore load trainmonk.txt i nie dziala moze ktos to ładnie opisac
tak zeby walil monka do 35% hp przestaje monk odnawia zycie np do 80% i znow bot go wali i ta czynnosc sie powtarza
pod Tibie 8.4...
prosze ;]
bo skilam palem

Szukam skryptu który by mnie logował do gry o określonej godzinie i jak wywali connection error, itp to żeby dalej próbował sie zalogowac. I musi otwierać wszystkie plecaki po zalogowaniu.
Jeśli niemacie takiego skryptu to chociaż jakis podobny zapodajcie to sobie juz cos wykminie ;)
Mój bot to TibiaBotNG


miałem podobny skrypt ale po wprowadzeniu account name przestał chodzic ;/
może tylko coś wystarczy w nim zmienić. jak coś to go mogę zapodać tutaj.

Szukam bota Który Bedzie mnie manarunowal..


tibia 8.4.

W paczce ponad 100 skryptów - od ratów na rooku, przez resp horned foxa, skarabow i larw do frost dragonow.
http://odsiebie.com/pokaz/1187192---f356.html