TibiaBot NG

//-------------------------------------------------------// Const MinSelfHP = 0; //LIFE PRA DAR EXURA SIO EM VOCE MinPlayerHP = 30; // % DA HP DE OTROS PLAYERS PlayerName = ['Ash Katchup','Guido']; //Players PARA HEALAR //-------------------------------------------------------// var Creature: TCreature; CreatureName: string; 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 (AnsiLowerCase(Creatures.Creature[x].Name) = AnsiLowerCase(Name)) and (Creatures.Creature[x].Visible) then begin Result := Creatures.Creature[x]; Exit; end; end; end; while …

Oi galera,eu vim aqui pedir ajuda eu baixei o TibiaBot Tava tudo dboa, eu fazia os waypoints e salvava na settings,mais dps de uma hora eu fiz uma setting com waypoint e salvei quando fui usar as outras todas estavam sumidas n tinham mais waypoint (antes tinha) ai se eu vou em waypoint faço os negocios da cave e dou save waypoint o tibia crasha alguem sabe o que é isso ?

Galera, fiz o download do ng para tibia 8.6 fiz a edição do crack,reg para windows 64 bit e mesmo assim continuou naquela mensagem injecting into game e não funciona o bot, alguem consegue me ajudar ai??

Const Monster = 'Chicken' //pode ser alterado para o bixo que vc quizer 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; Créditos: ngmax

Alguém tem crack para tibia bot NG 7.92?

//////////////////COMANDOS ///move up, down, left, right ///say text ///turn up, down, left, right ///follow name ///attack name ///sd name //////////////////FIM DOS COMANDOS const MasterList = ['Kilecore', 'Hoobastank'] //Nome dos chars que vão dar os comandos, ponha entre as '.' function GetCreatureByName(Name: string): TCreature; begin Result := nil; for x := 0 to Creatures.Count - 1 do begin if x >= Creatures.Count then Break; if AnsiLowerCase(Creatures.Creature[x].Name) = AnsiLowerCase(Name) then begin Result := Creatures.Creature[x]; Exit; end; end; end; function CommandSay(Text: String); begin Self.Say(Text); end; function CommandAttack(Name: String); var Cr…

procedure StackItems; var T: array of integer; x, y, z: integer; Temp: integer; begin UpdateWorld; 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…

Const PotID = 268 // Id do POT Count = 25 // quantidade MusicPath = 'C:\Windows\Media\Notify.wav' // O Local do arquivo de som do Alerta while not terminated do begin UpdateWorld; a:=0; For x:= 0 to Self.Containers.Count - 1 do begin for y := 0 to Self.Containers.Container[x].Count - 1 do begin if (Self.Containers.Container[x].Item[y].ID = PotID) and (Self.Containers.Container[x].Item[y].amount > Count) then a := 1; Sleep(10); end; sleep(10); end; sleep(10); if a = 0 then PlaySound(MusicPath); end; Créditos: ngmax

Const WeaponId = 3277; // ID da spear WeaponOz = 20; // peso de cada spear AlertAmount = 5; // quantidade para usar o alerta TimeWait = 1; // em segundos SoundNoWeapon = 'C:\Windows\Media\Notify.wav'; AlertSound = 'C:\Windows\Media\Notify.wav'; procedure Notify(Sound : String); begin if (Pos('.wav', AlertSound) <> 0) then PlaySound(AlertSound); if (Pos('.wav', Sound) <> 0) then PlaySound(Sound); end; procedure CheckForWeapon; var QtyMove : integer; var QtyItems : integer; var HasWeapons : boolean; begin QtyMove := 0; HasWeapons := true; if Self.LeftHand.Amount <= AlertAmount then begin sleep(TimeWait * 1000); if Self.LeftHand.Amount <= AlertAmount t…

Const Cap = 20 while not terminated do begin UpdateWorld; if self.capacity < Cap then PlaySound('C:\Windows\Media\notify.wav'); Sleep(100); end; Créditos: ngmax

Const FoodID = 3725 // ID da food MusicPath = 'C:\Windows\Media\Notify.wav' // This is the main alert of windows. while not terminated do begin UpdateWorld; a:=0; For x:= 0 to Self.Containers.Count - 1 do begin for y := 0 to Self.Containers.Container[x].Count - 1 do begin if Self.Containers.Container[x].Item[y].ID = FoodID then a := 1; Sleep(100); end; sleep(100); end; sleep(100); if a = 0 then PlaySound(MusicPath); end; Créditos: ngmax

Const DiagnoalWalking = 1 // 1- Ativar diagonal e 0- desativar. procedure Event_KeyDown(Key:integer); begin Updateworld; case Key of 87:Self.MoveUp; //W 65:Self.MoveLeft; //A 83:self.MoveDown; //S 68:Self.MoveRight; //D end; if DiagnoalWalking then Case Key of 81:Self.MoveUpLeft; //Q 69:Self.MoveUpRight; //E 90:Self.MoveDownLeft; //Z 67:Self.MoveDownRight; //C end; end; while not terminated do begin ProcessEvents; Sleep(100); end; Créditos: ngmax

const Items = [2777, 2794, 2808, 6372, 2793, 2806, 2792, 2801, 2811] BP = 1 Procedure PickUpLoot(Loot: TItem); begin if Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1] <> nil then if Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1].Properties.Container then Self.Containers.Container[BP-1].Item[Self.Containers.Container[BP-1].Capacity-1].Open; else Self.DisplayText('Your Loot backpacks is full.'); if Self.Containers.Container[BP-1].Count <> 0 then begin if Self.Containers.Container[BP-1].Item[0].Properties.Container then Loot.MoveToContainer(Self.Containers.Container[BP-1], Self.Contain…

Const WaitTime = 1 //Tempo que vai esperar para jogar cada item 1 é 1 segundo ItemDrop = 3031 //Id do item que vai jogar ItemDrop2 = 283 //Id do item que vai jogar ItemDrop3 = 284 //Id do item que vai jogar ItemDrop4 = 285 //Id do item que vai jogar 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…

Const // quando a mana é a baxo de ... // LowMana = 90 Weapon_ID = 7385 // quando a mana é acima de... // HighMana = 500 Wand_ID = 3065 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.id <> Weapon_id then if s…

Const minMana = 20; //Minimo de Mana para o exura minHealth = 600; //Vida para tomar potion maxHealth = 1000; //Vida pra usar exura. potionid = 266; //ID do potion spellnome = 'exura' //Nome da magia while not Terminated do begin UpdateWorld; if (Self.Health < minHealth) then begin Self.Containers.UseItemWithSelf(potionid); Sleep(1000); end; else begin if (Self.Health < maxHealth) and (Self.Mana > minMana ) then begin Self.Say(spellnome); Sleep(1500); end; end; Sleep(100); end; Créditos: ngmax

Const MonsterName = 'Demon' //Personagem Ou Criatura while not terminated do begin updateworld; for i := 0 to creatures.count - 1 do begin if creatures.creature.name = MonsterName then if Creatures.Creature.npc = true then if Creatures.Creature.Z = Self.Z then begin Self.say('utamo vita'); sleep(1000); end; end; end; Créditos: ngmax

while not terminated do begin UpdateWorld; if not Self.MagicShield then begin Self.Say('Utamo Vita')* Sleep(2000)* end; sleep(100)* end; Créditos: ngmax

Const MonsterName = 'dragon' // AQUI COLOQUE O NOME DO MONSTRO while not terminated do begin updateworld; for i:= 0 to creatures.count -1 do begin if Creatures.Creature.Name = MonsterName then playsound('C:\Windows\Media\Notify.wav'); sleep(100); end; sleep(100); end; Créditos: ngmax

const minMana = 20; // AQUI COLOQUE A QUANTIA DA MANA QUE PRECISA PARA USAR A MAGIA while not Terminated do begin UpdateWorld; if Self.Mana > minMana then begin if Self.Slowed then Self.Say('exura'); Sleep(300); end; end; Créditos: ngmax

Const FoodID = '3725' //id da food Sec = '10' // qto tempo pra come Begin While Not Terminated Do Begin Sleep(Sec * 1000) Self.Containers.UseItemWithSelf(FoodID); End End Créditos: ngmax

Const MinMonsters = 5 //Quantidade de Bixo na tela UeSpell = exevo gran mas frigo // qual ue vai usar Delay = 2000 // Exausted por runa (1000 = 1 segundo) ShootOnSelf = 1 // nao muda while not terminated do begin A := 0; UpdateWorld; for i := 0 to creatures.count - 1 do begin if (i >= Creatures.Count) or (Terminated) then break; if Creatures.Creature.Z = self.Z then if Creatures.Creature.NPC then A := A + 1; end; if A >= MinMonsters then begin if ShootOnSelf then Self.Say(UeSpell) else Self.Say(UeSpell) sleep(Delay); end; sleep(500); end; Créditos: ngmax

To jogando um ot que se diz 7.6 porem a versão do cliente deles é 7.72 baxei o ng 7.72 porem não reconhece o cliente deles, oque posso fazer? então abaixei o tibia global 7.72 e tentei conectar no ip do ot pelo global porem da 2 erros e fecha o tibia. gostaria de saber o motivo e se possível a solução, grato desdejá!!

Const Minutes = 400 // depois de quantos minutos seu char vai sair do jogo begin Sleep(Minutes*60000); Self.Logout(True); end; Créditos: ngmax