Scripts, hotkeys e shortkeys de ng e elfbot

[thiago campos]

1° Quem tem ng crackeado 4.5.0, não tem opção de usar os potions novos, strong e great potions.
Vai em tools-->scripter e coloca isso:

-----------Potion Healing -------------

Minimum_Potion_Health = 1
Health_Potion_ID = 236

------------ Spell Healing --------------

Minimum_Spell_Health = 1
Healing_Spell = 'exura'
Mana_Needed = 20

Restore_Mana_At = 250
Mana_Potion_ID = 237
---------------------------------------
while not Terminated do
begin
UpdateWorld;
if (Self.Health < Minimum_Potion_Health) then Self.Containers.UseItemWithSelf(Health_Potion_ID);
if (Self.Health < Minimum_Spell_Health) and (Self.Mana >= Mana_Needed) then
begin
Self.Say(Healing_Spell);
Sleep(1000);
end;
else if (Self.Mana < Restore_Mana_At) and (Self.Health > Minimum_Potion_Health) then
begin
Self.Containers.UseItemWithSelf(Mana_Potion_ID);
Sleep(1000);
end;
Sleep(100);
end;

Para saber os ids dos potions entra no tibiabot



2°Hotkeys para elf bot.
-----------------------------------------------------------------------------------------


---> auto 200 healparalysis utani gran hur | safe sio 70 friend - Essa vai curar seu paralyze com 'utani gran hur' e dar sio em qualquer um da lista de amigos que tiver com life abaixo de 70%, mas se o bot não estiver tentando se healar. Usa essa se você for druid.

---> auto 200 healparalysis utani gran hur | safe uhpc 70 friend - Essa vai curar seu paralyze com 'utani gran hur' e vai usar UH em qualquer um da lista de amigos que tiver com life abaixo de 70%, mas se o bot não estiver tentando se healar. Usa essa se você for sorcerer.

---> safe aimgfb | wait 1000 - Não é muito útil, mas taca GFB no SQM que acertar mais inimigos, o wait 1000 é pra não freezar enquanto você estiver segurando a hotkey.

---> safe attack enemy | sd enemy | wait 1000 - Essa vai tacar SD no melhor inimigo da tela e atacá-lo, contanto que o bot não esteja tentando se healar.

---> safe attack enemy | paralyze enemy | wait 1500 - Essa vai paralisar o melhor inimigo da tela e atacá-lo, contanto que o bot não esteja tentando se healar, e o delay é pra não tacar 2 paralyzes sem querer.

-->NUM7 = movenw
-->NUM8 = moven
-->NUM9 = movene
-->NUM4 = movew
-->NUM6 = movee
-->NUM1 = movesw
-->NUM2 = moves
-->NUM3 = movese
-->NUM/ = auto 200 healparalysis utani gran hur | stronghaste
-->NUM*= auto 200 manashield
-->DEL = safe attack enemy | sd enemy | wait 1000
-->END = safe attack enemy | paralyze enemy | wait 1500

---> exivalast | wait 1000 - Essa vai dar exiva no último cara que você exivou.

---> safe magwall enemy | wait 1000 - Vai tacar um magic wall 2 SQMs na frente do melhor inimigo.

---> safe magwall target | wait 1000 - Vai tacar um magic wall 2 SQMs na frente do target.

---> spyup - Vai mostrar o andar de cima.
---> spydown - Vai mostrar o andar de baixo.

---> mana self | wait 1000 - Essa vai usar uma mana potion em você mesmo. Usa essa se você for level 50-.
---> smana self | wait 1000 - Essa vai usar uma strong mana potion em você mesmo. Usa essa se você for level 50+.
---> gmana self | wait 1000 - Essa vai usar uma great mana potion em você mesmo. Usa essa se você for level 80+.

---> uh self | wait 1000 - Essa vai usar uma UH em você mesmo.
---> say exani hur up - Essa vai te fazer dizer 'exani hur up'.
---> say exani hur down - Essa vai te fazer dizer 'exani hur down'.

---> movenw - Essa vai te fazer da um passo pra north-west, eu gosto dessa hotkey porque te faz andar com ping perto de 0.
---> moven - Essa vai te fazer da um passo pra north, eu gosto dessa hotkey porque te faz andar com ping perto de 0.
---> movene - Essa vai te fazer da um passo pra north-east, eu gosto dessa hotkey porque te faz andar com ping perto de 0.
---> movew - Essa vai te fazer da um passo pra west, eu gosto dessa hotkey porque te faz andar com ping perto de 0.
---> movee - Essa vai te fazer da um passo pra east, eu gosto dessa hotkey porque te faz andar com ping perto de 0.
---> movesw - Essa vai te fazer da um passo pra south-west, eu gosto dessa hotkey porque te faz andar com ping perto de 0.
---> moves - Essa vai te fazer da um passo pra south, eu gosto dessa hotkey porque te faz andar com ping perto de 0.
---> movese - Essa vai te fazer da um passo pra south-east, eu gosto dessa hotkey porque te faz andar com ping perto de 0.

---> auto 200 altnavdisplay - Essa vai mostrar o navigation com o nome das pessoas a sua volta, aperte PRINTSCREEN pra ativar e PRINTSCREEN novamente pra desativar.

---> setautocombo toggle - Essa hotkey vai pausar o Combo Leader. Aperte PAUSE pra pausar, e PAUSE novamente pra reativar.

---> auto 200 displaymap - Essa vai mostrar o mapa do Tibia pra você poder ver seus amigos/inimigos no navigation, aperte \ pra ativar e \ novamente pra desativar.

---> dash - Essa buga o mapa, te faz muito mais rápido.
-----------------------------------------------------------------------------------------

Ataque:
-->auto 200 attack target | aimgfb -> Vai travar a mira, e vai ficar usando/usar a runa "Great Fireball" no alvo.Você pode optar por escolher tais opções da função "Aimbot" e "List" para que o BOT preveja o melhor lugar para atirar a GFB sem acertar nenhum de seus amigos.

-->auto 200 attack target | aimavalanche -> Vai travar a mira, e vai ficar usando/usar a runa "Avalanche" no alvo.Você também pode optar por escolher tais opções da função "Aimbot" e "List" para que o BOT preveja o melhor lugar para atirar a GFB sem acertar nenhum de seus amigos.

-->auto 200 attack target | aimstoneshower -> Vai travar a mira, e vai ficar usando/usar a runa "Stone Shower" no alvo.Você também pode optar por escolher tais opções da função "Aimbot" e "List" para que o BOT preveja o melhor lugar para atirar a GFB sem acertar nenhum de seus amigos.

-->auto 200 attack target | aimtype Dragon -> Vai travar a mira, e vai ficar usando/usar uma certa ação/magia selecionado na parte de "Aimbot" numa creatura.Você pode mudar o nome da creatura, bom para STRIKE SPELLS para certos tipos de imunidades/fraquezas.

-->auto 200 attack target | ewave -> Irá ficar usando/usar a magia "Exevo Vis Hur" somente se o seu alvo estiver na área do efeito da magia.

-->auto 200 stopattack -> Irá parar de atacar a creatura que você estava/estiver atacando.

-->auto 200 attack target -> Trava a mira no alvo.

-->auto 200 attack target | explo target -> Trava a mira, e fica usando/usa "Explosion" alvo.

-->auto 200 attack target | exoricon 50 -> Trava a mira, e fica usando/usa "Exori Con" quando o alvo estiver com 50% de pontos de vida ou abaixo.

-->auto 200 attack target | exorihur 50 -> Trava a mira, e fica usando/usa a magia "Exori Hur" quando o alvo estiver com 50% de pontos de vida ou abaixo.

-->auto 200 attack target | istargeting mphigher 340 exorigran 50 -> Trava a mira, e fica usando/usa a magia "Exori Gran" quando o alvo estiver com 50% de pontos de vida
ou abaixo e você estiver colado nele, e ter pelo menos 340 de mana.

-->auto 200 attack target | hmm target -> Trava a mira, e fica usando/usa a runa "High Magic Missile" no alvo.

-->auto 200 attack target | icicle target -> Trava a mira, e fica usando/usa a runa "Icicle" no alvo.

-->auto 200 attack target | paralyze target -> Trava a mira, e fica usando/usa a runa "Paralyze" alvo.

-->auto 200 attack target | sd target -> Trava a mira, e fica usando/usa a runa "Sudden Death" no alvo.

-->auto 200 attack target | soulf target -> Trava a mira, e fica usando/usa a runa "Soulfire" no alvo.

-->auto 200 attack target | stalagmite target -> Trava a mira, e fica usando/usa a runa "Stalagmite" no alvo.
-----------------------------------------------------------------------------------------

Suporte:
-->auto 200 mphigher 400 makerune 400 'adura vita' -> Essa vai ficar runando automaticamente pra você, mas pra que funcione você terá que deixar a parte de felchas sem itens nenhum!Você pode mudar a mana necessária/nome da magia da runa/e a mana que gasta pra criar tal runa.Para fazer a runa de "Sudden Death" por exemplo irá ficar assim -
-> 200 mphigher 985 makerune 985 'adori gran mort'.

-->auto 200 say 'hi' -> Irá dizer "exori vis" no Default Chat.Pode ser uma frase ou até mesmo uma magia.

-->auto 200 setcaption 'Web Cheats' -> Irá mudar o nome da janela do seu Tibia!Você pode mudar o nome como você

quiser.
-->auto 200 spydown -> Irá olhar os andares de baixo.
-->auto 200 spyup -> Irá olhar os andares de cima.

-->auto 200 xlog -> Irá automaticamente desconectar-se do Tibia sem precisar fechar o Tibia.

-->auto 200 exivalast -> Irá ficar usando/usa a magia "Exiva" na última pessoa que você exivou.
-->auto 200 exivatarget -> Irá usar a magia "Exiva" na pessoa que você estava/estiver atacando.

-->auto 200 keepmagwall -> Vai ficar usando a "Magic Wall" no último lugar que você usou.Útil para manter Magic Walls.
-->auto 200 magwall target -> Vai usar a "Magic Wall" a 2 SQM's a frente do alvo.

-->auto 200 reconnect -> Vai reconectar seu personagem após o ServerSave, ou ser kikado.

-->auto 200 ifgm {say 'hello' | wait 2000 | say 'whats up' | turnoff} | ifplayeronscreen {say 'hello' | wait 2000 | say 'whats up' | turnoff} -> Auto Fala - Se alguem aparece na tela ele fala "Hello" e logo em seguida "What´s Up?"

-----------------------------------------------------------------------------------------

Movimentos:
-->auto 200 haste -> Irá usar a magia "utani hur" se você não estiver, também irá usar se for paralizado por qualquer tipo de criatura.
-->auto 200 stronghaste -> Irá usar a magia "utani gran hur" se você não estiver, também irá usar se for paralizado por qualquer tipo de criatura.
-----------------------------------------------------------------------------------------

Inventório:
-->auto 200 closeallwindows -> Irá fechar todas as janelas de conversas, como "Game-Chat", "Trade" etc..

-->auto 200 eatfood -> Irá comer a comida automaticamente, a "backpack" no qual está sua food deverá estar aberta para que funcione.

-->auto 200 equipammy 3057 -> Irá automaticamente equipar um certo amuleto que você escolheu.Você pode mudar o ID do amuleto, no caso coloquei o ID do "Amulet of Loss".

-->auto 200 equipboots 3554 -> Irá equipar uma certa bota que você escolheu.Você pode mudar o ID da bota, no caso coloquei o ID da "Steel Boots"

-->auto 200 equiplhand 3319 -> Irá equipar um certo item usados no slot da mão esquerda.Você pode mudar o ID, no caso coloquei o ID do "Stonecutter Axe".

-->auto 200 equiprhand 3414 -> Irá equipar um certo item usados no slot da mão direita.Você pode mudar o ID, no caso coloquei o ID do "Mastermind Shield".

-->auto 200 equipbelt 1047 -> Irá equipar um tipo de munição que você escolher.No caso não coloquei nenhum :P.Você pode mudar o ID.

-->auto 200 equipring 3092 -> Irá equipar um certo tipo de anél (rings) que você escolher.Você pode mudar o ID, no caso coloquei o ID do "Axe Ring".

-->auto 200 equipsring 3092 3095 -> Irá equipar um certo tipo de anél (rings) que você escolher.No caso essa Hot/Shortkeys é diferentente da que postei logo acima dessa, o primeiro ID do ring é quando ela está na sua "Backpack" e o segundo ID é quando ela está sendo usada no lugar/slot dos anéis (rings).Você pode mudar o item do ID, no caso coloquei novamente o ID do "Axe Ring".
-----------------------------------------------------------------------------------------

Outras utilidades:
-->auto 100 ifnot $lv set $lv $level | if [$hp == 0 && $tookssdead == 0] {savescreen | set $tookssdead 1} | if [$level != $lv] {set $lv $level | savescreen} -> Se voce upar level ou morrer tira screenshoot.

-->auto 100 if [$mcount."$m.distance <= 7" >= 3] {useoncreature 3161 self | wait 900} -> Se tiver 3 monstros em sua volta atirar avalanche rune em voce mesmo

-->auto 200 if [$friend.hppc <= 50 && $mppc >= 80] {say exura sio "$friend.name | wait 800} ->
Exura Sio "Friend para druids:
antes vamos entendela:
50 = 50% HP do seu amigo para usar sio.
80 = 80% sua mana
200 = Tempo em ms para usar esta açao.
1000 ms = 1 second
-->auto 200 dontlist | if [$amuletslot.id != 3081] equipammy 3081 -> se equipa com ssa.
-----------------------------------------------------------------------------------------
Outros:
-->auto 100 isattacking {if [$target.distance <= 4 && $mp >= 20] {say 'Exori San' | wait 2400}
Exori san - Utiliza exori san se o alvo estiver dentro do alcance (4 sqm)

-->auto 100 foreach 'shootableplayers' $tgt {if [($tgt.isenemy || $tgt.issubenemy) && $tgt.hppc <= 50 && $tgt.distx <=1 && $tgt.disty <= 1] {attack $tgt.id | say 'Exori Gran' | wait 2000 | break} | if [($tgt.isenemy || $tgt.issubenemy) && $tgt.hppc <= 40 && $tgt.distx <=5 && $tgt.disty <= 5] {attack $tgt.id | say 'Exori Hur' | wait 2000 | break}
Exori gran / Exori hur - Se o inimigo estiver com 50% ou menos de hp, e estiver perto ira dar exori gran, mas se estiver longe dara exori hur

-->auto 2000 set $highesthp 0 | foreach 'shootablemonsters' $monk {if [$monk.hppc > $highesthp] {set $highesthp $monk.hppc | set $targetmonk $monk}} | if [$targetmonk.hppc < 50] {stopattack | end} | if [$targetmonk != $attacked] {attack $targetmonk.id}
Monk Trainer - Se o monk estiver com menos de 505 para de atacar e aca o otro monk

-->auto 100 if [$mp >= $maxmp-20] {swapequip 'rhand' 'belt' | wait 800 | equiprhand 3277 1 | wait 800 | say 'Exeta Con' | wait 500 | unequip '7367' 'Backpack of Holding' | swapequip 'belt' 'rhand' | wait 1000 | stackitems}
Enchanted spears maker - Faz enchanted spear
-----------------------------------------------------------------------------------------
3° Para war:
Bom, primeiramente vo botar as hotkeys de WAR q eh o objetivo do elf, dps as outras

tacar magic wall na frente do alvo.
-->magwall target | wait 1000

Tempo de runa - Ira contar quanto tempo você vai demorar para acabar a bp de runa
Mude:
$manareg: Quanto de mana voce enxe por segundo
$runemp: hQuanto de mana a runa requer
$runespell: Qual a spells word
-->auto 1000 set $manareg 2 | set $runemp 460 | set $runespell 'Adori Frigo' | set $timetofinish [($runemp*2/$manareg)*$itemcount.3147] | makerune [$maxmp-20] $runespell

renova Magic shield e Strong haste.
-->auto 200 manashield | stronghaste

equipar SSA constantemente.
-->auto 200 equipammy 3081

para corre muito mais rapido.
-->dash

essa hotkey ataca o target com exori hur se estiver longe e se estiver a 1 sqm de vc usa exori gran.
-->auto 100 set $lowest 100 | foreach 'shootableplayers' $tgt {if [($tgt.isenemy || ($tgt.issubenemy && $tgt.skull))&& $tgt.hppc <= 50 && $tgt.hppc < $lowest] {set $lowest $tgt.hppc | set $tagt $tgt}} | if $tagt {if [$attacked != $tagt] attack $tagt.id | if [$tagt.distance == 1 && $mp >= 340] {say 'Exori Gran' | wait 1000 | end} | if [$tagt.distance <= 5 && $mp >= 40] {say 'Exori Hur' | wait 1000 | end}}

Sio em qualquer amigo com menos de 70% de life.
-->auto 400 sio 70 friend

Olhar andar de cima
-->spyup

Olhar andar de baixo.
-->spydown

Exiva a ultima pessoa q vc exivou.
-->exivalast

Exiva o target.
-->exivatarget

Permite q vc olhe 2 sqm a mais da sua tela.
-->scrollview

Muda a roupa do comander (para open war), troque COMANDER pelo nick do comander.
-->auto 500 setoutfit 'COMANDER' 12

Taca magic wall entre o time adversario (para open war)
-->magwall enemy | wait 1000

Usa UH em qualquer amigo com menos de 40% de vida.
-->auto 200 uhpc 40 friend

Esse eh um combo lider especial para poucos eh completamente sincronizado e soh funfa com navigation.
-->auto 100 foreach 'newmessages' $comb {if [$cutstr.'$comb.content'.1.2 == '!!'] exec '$cutstr."$comb.content".3'}

Muda outfit do enemy de acordo com vocaçao (pra open war).
-->auto 200 foreach 'screenplayers' $x { if [$x.isenemy && $x.haslookinfo] {if [$x.isdruid] {setoutfit $x.name 'Male Druid'} | if [$x.issorcerer] {setoutfit $x.name 'Male Mage'} | if [$x.isknight] {setoutfit $x.name 'Male Warrior'} | if [$x.ispaladin] {setoutfit $x.name 'Male Assassin'}}

Recupera mana do Friend no navigation.
-->auto 1000 refillmana 2200 5
-----------------------------------------------------------------------------------------

4° slimer treiner elfbot

1° Coloca na hotkeys
auto 100 dontlist | if [$followed.id == 0] {statusmessage 'ElfBot NG - You need to follow the mother slime to set the ID'} | else {set $motherslime $followed.id | ignoretarget $followed.id | loadtargeting 'Slime Train' | settargeting on | loadcavebot 'Slime Train' | setcavebot on | turnoff}
2° passo:
Faça download desses arquivo:


3° passo:
Faça download desse arquivo:



Para funcionar o slime treiner, da follow na slime mãe e coloca 1°passo nas hotkeys, agora você abre cavebot e da load e execute esse arquivo Slime Train.elfc e aperta abrir o arquivo e o último passo abre targeting, aperta load e execute Slime Train.elft e aoerta Slime Train.elft e onde está target selection, onde está proximity coloca tudo para o lado direito.
Obs: Você deve extrair os arquivos baixados na pasta de scripts e se não funciona o follow, não da follow e executa os arquivos.
-----------------------------------------------------------------------------------------
5° Scripts para ng
SCRIPT DE MULTI EXURA SIO !! \/

//-------------------------------------------------------//
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 not Terminated do
begin
UpdateWorld;
if (Self.Health < MinSelfHP) and (Self.Mana>140) then
begin
Self.Say('exura sio "'+Self.Name);
Sleep(1000);
end else for i := Low(PlayerName) to High(PlayerName) do
begin
Creature := GetCreatureByName(PlayerName[i]);
If Creature<> nil then
begin
if (Creature.Health < MinPlayerHP) and (Self.Mana > 140) then
begin
Self.Say('Exura Sio "'+PlayerName[i])
Sleep(1000);
break;
end;
end;
end;
Sleep(100);
end;
----------------------------------------
Colocar Stone Skin Amulet e Might Ring

var
RingID: integer;
AmuletID: integer;
ShieldID: integer;
XbowID: integer;


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;

begin
RingID := 3048; //ID Number de algum anel que vc queira no caso mana ou migth
AmuletID := 3081; //ID number do stone skin amulet
while not Terminated do
begin
UpdateWorld;
if RingID <> 0 then
begin
if Self.Ring.ID = 0 then
begin
Ring := GetItemFromOpenBackpack(RingID);
if Ring <> nil then
begin
Ring.MoveToBody(Self.Ring, 0);
end;
end;
end;
UpdateWorld;
if AmuletID <> 0 then
begin
if Self.Amulet.ID = 0 then
begin
Amulet := GetItemFromOpenBackpack(AmuletID);
if Amulet <> nil then
begin
Amulet.MoveToBody(Self.Amulet, 0);
end;
end;
end;
Sleep(100);
end;
end;
----------------------------------------
Combo UE ( exevo gran mas vis , flam , frigo , tera )

Const
Leader='NOME DE QM VAI DA A UE';//set the leader name.
KeyWord='agora!';//key word to triger ue casting.

procedure Event_Message(Channel: integer; Name, Text: String);
begin
If Name=Leader then
If Pos(KeyWord, Text) <> 0 then
Self.Say('exevo gran mas vis');
end;

begin
while not terminated do
begin
processEvents;
sleep(100);
end;
end;
----------------------------------------
Dar Utamo Vita Quando Acabar

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

Const
Minutes = 400 // logout after how many minutes since loaded script?

begin
Sleep(Minutes*60000);
Self.Logout(True);
end;
----------------------------------------
Health Potions e Mana Potions

const
////////// Potion Healing //////////

Minimum_Potion_Health = 800
Health_Potion_ID = 239

////////////////////////////////////

////////// Spell Healing //////////

Minimum_Spell_Health = 1500
Healing_Spell = 'exura'
Mana_Needed = 20

Restore_Mana_At = 1400
Mana_Potion_ID = 237

////////////////////////////////////



while not Terminated do
begin
UpdateWorld;
if (Self.Health < Minimum_Potion_Health) then Self.Containers.UseItemWithSelf(Health_Potion_ID);
if (Self.Health < Minimum_Spell_Health) and (Self.Mana >= Mana_Needed) then
begin
Self.Say(Healing_Spell);
Sleep(1000);
end;
else if (Self.Mana < Restore_Mana_At) and (Self.Health > Minimum_Potion_Health) then
begin
Self.Containers.UseItemWithSelf(Mana_Potion_ID);
Sleep(1000);
end;
Sleep(100);
end;
----------------------------------------
Se GM aparecer falar Laaaag e logar

Const
TextToSay = 'laagggg'
DelayBeforeLog = 10 //in seconds

function GMDetected: boolean;
begin
Result := False;
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.count then break;
if Creatures.Creature[x].GM then
begin
Result := True;
exit;
end;
end;
end;

while not terminated do
Begin
UpdateWorld;
if GMDetected then
begin
Self.Say(TextToSay);
sleep(DelayBeforeLog*1000);
Self.Logout(true);
break;
end;
sleep(2000);
end;
----------------------------------------
Reconectar e Abrir Backpack

const
Account = 1234567; // Sua conta
Password = 'xxxxxxxx'; // Sua senha
Character = 'xxxxxxxx'; // Nome do Char
World = 'Antica'; // Mundo Que vc Joga
ServerIP = ''; // Deixa em branco
procedure Login
var x: integer;
begin
repeat
Self.Login(Account, Password, Character, World, ServerIP);
Sleep(7000);
for x := 0 to 200 do
begin
if Self.Connected then Break;
Sleep(100);
end;
until Self.Connected;
end;
var x: integer;
while not Terminated do
begin
UpdateWorld;
if not Self.Connected then
begin
Login;
Sleep(2000);
UpdateWorld;
Self.Backpack.Open;
Sleep(2000)
UpdateWorld;
for x := 0 to Self.Containers.Container[0].Count do
begin
if x >= Self.Containers.Container[0].Count then Break;
if Self.Containers.Container[0].Item[x].Properties.Container then
begin
Self.Containers.Container[0].Item[x].OpenInNewWindow;
Sleep(2000);
end;
end;
end;
Sleep(1000);
end;
----------------------------------------
Em War Voce coloca para atacar alguem e o Script taca MW na frente

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
while not Terminated do
begin
UpdateWorld;
if Self.Attacking <> 0 then
begin
Creature := GetCreatureByID(Self.Attacking);
if Creature <> nil then
begin
case Creature.Direction of
0: Self.Containers.UseItemWithGround(3180, Creature.X, Creature.Y - 2, Creature.Z);
1: Self.Containers.UseItemWithGround(3180, Creature.X + 2, Creature.Y, Creature.Z);
2: Self.Containers.UseItemWithGround(3180, Creature.X, Creature.Y + 2, Creature.Z);
3: Self.Containers.UseItemWithGround(3180, Creature.X - 2, Creature.Y, Creature.Z);
end;
end;
end;
Sleep(2000);
end;
end;
----------------------------------------
Alerta quando tive poucas Spears

const
WeaponId = 3277; // Spear = 3277
WeaponOz = 20; // Spear = 20
AlertAmount = 5;
TimeWait = 3;
SoundNoWeapon = 'C:\Windows\Media\Windows XP Battery Critical.wav';
AlertSound = 'C:\Windows\Media\Windows XP Battery Critical.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 then
begin
HasWeapons := false;

for x := 0 to Self.Containers.Count - 1 do
begin
if HasWeapons then Break;

if Self.Containers.Container[x].Count - 1 then
begin

for y := 0 to Self.Containers.Container[x].Count - 1 do
begin
if Self.Containers.Container[x].Item[y].ID = WeaponId then
begin
QtyItems := Abs(Self.Capacity / WeaponOz);

if QtyItems >= 1 then
begin
if Self.Containers.Container[x].Item[y].Amount >= QtyItems then QtyMove := QtyItems;
else QtyMove := Self.Containers.Container[x].Item[y].Amount;

QtyMove := QtyMove - 1;

if QtyMove then
begin
Self.Containers.Container[x].Item[y].MoveToBody(Self.LeftHand, QtyMove);
HasWeapons := true;
Break;
end;
end;
end;
end;
end;
end;
end;
end;

if not HasWeapons then Notify(SoundNoWeapon);
end;

begin
while not Terminated do
begin
UpdateWorld;
CheckForWeapon;
sleep(1000);
end;
end;
----------------------------------------
Alerta quando acabar food

Const
FoodID = 1111 // Coloke aki o 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;
----------------------------------------
Auto Hmm vs Stalker

Const
Hmm=3333; // Coloke o Id da HMM
MiniHealth=400;//valor minimo de Vida.. caso vc tenha menos que 400 usará uh sosinho
var
Creature:TCreature;
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;


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;
----------------------------------------
Exura Sio em voce ou em um amigo

Const MiniCreatureHP =50; //Medido Em Porcentagem.. se o char tiver 1500 de life estando 50 ali ele dara o sio com

750 de life
const ITEM_RUNE_UH = 3160; //caso ele nao solte Exura Sio Ele Soltarar uma Uh
const Name='Nome Do Char'; //Coloke o Nome do char
var
Creature: TCreature;
CreatureName: string;

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;

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;

begin
while not Terminated do
begin
UpdateWorld;
Creature := GetCreatureByName(Name);
If Creature<> nil then
If IsCreatureVisible(Name) then
begin
if ((Creature.Health) <(MiniCreatureHP)) and ((Self.Mana)>(70)) then
Self.Say('[red[exura sio "'+Name)
else
if ((Creature.Health) <(MiniCreatureHP)) then Self.Containers.UseItemWithCreature(ITEM_RUNE_UH, Creature);
end;
Sleep(1000);
end;
end;
----------------------------------------
Ignore Spells Mensagem

const
SpellList = ['exiva', 'utevo lux', 'exani tera', 'exura', 'exana pox',
'exori mort', 'exura gran', 'exani hur', 'exori flam', 'exori vis',
'utevo gran lux', 'exevo con', 'utamo vita', 'utani hur', 'exevo pan',
'exevo con pox', 'exevo con mort', 'exevo flam hur', 'exura sio',
'exeta res', 'exura vita', 'utani gran hur', 'exevo vis lux',
'utevo res ina', 'utevo res', 'exevo con flam', 'exana ina', 'utevo vis lux',
'exevo grav vita', 'exevo gran vis lux', 'exana mas mort', 'utana vid',
'exori', 'exori con', 'exori gran', 'exori hur', 'exori gran',
'exura gran mas res', 'exevo mort hur', 'exeta vis', 'exevo gran mas pox',
'adevo grav pox', 'adana pox', 'adura gran', 'adevo grav flam', 'adori',
'adeta sio', 'adori flam', 'adito grav', 'adevo grav vis', 'adevo res pox',
'adito tera', 'adori gran flam', 'adura vita', 'adevo mas pox', 'adori gran',
'adevo res flam', 'adevo ina', 'adevo mas flam', 'adana mort',
'adevo mas grav pox', 'adevo mas hur', 'adevo grav tera',
'adevo mas grav flam', 'adevo mas vis', 'adevo mas grav vis',
'adori vita vis', 'adana ani'];

procedure Event_Message(Channel: integer; Name, Text: String);
begin
UpdateWorld;
if (Channel = 1) and (Name <> Self.Name) then
begin
for x := Low(SpellList) to High(SpellList) do
begin
if (Pos(AnsiLowerCase(SpellList[x]), AnsiLowerCase(Text)) = 1) then
begin
if AnsiLowerCase(SpellList[x]) = AnsiLowerCase(Text) then
Break;
if (Text[Length(SpellList[x]) + 1] = ' ') and (Text[Length(SpellList[x]) + 2] = '"') then
Break;
end;
if x = High(SpellList) then
PlaySound('C:\WINDOWS\Media\Notify.wav');
end;
end;
end;

while not Terminated do
begin
UpdateWorld;
ProcessEvents;
Sleep(100);
end;
----------------------------------------
Solta exana pox com mais de 5 de Poison

var
MaxPoison: integer;

procedure Event_Notice(Text: string);
var
PoisonAmount: string;
begin
UpdateWorld;
if Self.Mana < 30 then Exit;
if not Self.Poisoned then Exit;
if Pos('You lose ', Text) = 0 then Exit;
if Pos(' hitpoints.', Text) = 0 then Exit;
PoisonAmount := Text;
Delete(PoisonAmount, 1, 9);
PoisonAmount := Copy(PoisonAmount, 1, Pos(' ', PoisonAmount) - 1);
if IntToStr(PoisonAmount) > MaxPoison then Self.Say('exana pox');
end;

begin
MaxPoison := 5;
while not Terminated do
begin
ProcessEvents;
Sleep(100);
end;
end;
----------------------------------------
Solta Exori Con

const
Delay = 2000; //exaut para cada exori con 2 sec
MinimumManaToCast = 60; // mana que precisa para soltar exori con
MinimumMonsterHealth = 60; // Contado em Pircentagem se o monstro tiver 1k de lifer com 60 soltara exori com com 600

de life..
SpellRange = 3; // soltara 3 exori con

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

var
Attacking : TCreature;
Range: Integer;
begin
while not Terminated do
begin
UpdateWorld;

Attacking:=GetCreatureByID(Self.Attacking);
if (Assigned(Attacking)) then
begin
Range := Round(Sqrt(Sqr(Self.X - Attacking.X) + Sqr(Self.Y - Attacking.Y)));
if (Range <= SpellRange) and (Attacking.Health >= MinimumMonsterHealth) and (Self.Mana >= MinimumManaToCast) then
Self.Say('exori con');
end;

Sleep(Delay);
end;
end;
----------------------------------------
Monk Treiner

Const
StopAt=50;//para de atacar qn tiver com 50% de vida
AttackAt=60;// ataca monk/player com mais de 50% de Life
TrainName=['Monk','FrinedName1','FriendName2'];//vc pode alterar caso nao seja em mundo pvp
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 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;
----------------------------------------
Rainbow Outfit

var
head, primary, secondary, detail: integer;
begin
while not Terminated do
begin
UpdateWorld;
head := Random(0,110);
primary := Random(0,110);
secondary := Random(0,110);
detail := Random(0,110);
Self.ChangeOutfit(Self.Outfit, head, primary, secondary, detail, 0);
Sleep(100);
end;
end;
-----------------------------------------------------------------------------------------
6°TREINO COM SLIME DO NG: (OBS: ANTES DE ATIVAR O SCRIPT DÊ FOLLOW NA SLIME VERDADEIRA):

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

function GetFollowedCreatureID: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Following then
begin
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
end;

var
MotherSlime, X1, Y1: integer;
begin
MotherSlime := GetFollowedCreatureID;
while not Terminated do
begin
UpdateWorld;
if not Attacking then

begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID <> MotherSlime then
begin
if (Creatures.Creature[x].Name <> Self.Name) and Creatures.Creature[x].NPC then
begin
UpdateWorld;
X1 := Creatures.Creature[x].X;
Y1 := Creatures.Creature[x].Y;
if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then
begin
UpdateWorld;
if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then
begin
Creatures.Creature[x].Attacking := true;
Break;
end;
end;
end;
end;
end;
end;
Sleep(1000);
end;
end;
-----------------------------------------------------------------------------------------

7°Pescar nas shortkeys do elfbot
-->Autofisher = auto 1000 listas 'Autofisher' | if [$fishspots != 0 && $cap > 5] {set $fishc [$itemcount.3578] | fish | wait 500 | if [$fishc < [$itemcount.3578] {stackitems | wait 500 | eatfood}}
Hotkey:
-->auto 500 caphigher 6 fish
ou:
-->auto 200 fish rod
-----------------------------------------------------------------------------------------

8°Shortkey do elf:

Pega spear - Pega spear da bag, mude o 20 para quantas spears voce quer na mão, e o 5 para quando você quer pegar mais spears:

if [$itemcount.7378 >= 5] skip
set $wantedspears 20
if [$rhandslot.id == 7378] set $hand 'right' | if [$lhandslot.id == 7378] set $hand 'left'
reachgrounditem 2853
opengrounditem 2853
wait 1000
if [$hand == 'right'] equiprhand 7378 [$wantedspears-$itemcount.7378] | if [$hand == 'left'] equiplhand 7378 [$wantedspears-$itemcount.7378]


Obs¹: Para que as hotkeys/shortkeys funcionem vocês tem que ativar a opção "Activated hotkeys/shortkeys" no menu "HUD".

Obs²: As hotkeys/shortkeys que coloquei aqui estão somente na função "auto", ou seja o BOT faz as funções de uma determinada hotkeys/shortkeys automaticamente.

Obs³: Se dash não funcionar, coloca "dash" onde você movimenta o boneco, nas setas.

CRÉDITOS: TIM MAIA PELOS SCRIPTS DO NG,
Futuramente mais hotkeys, scripts.
COMENTAM DO QUE ACHARAM, SE GOSTARAM AGRADEÇAM.

[AlissonDelCastillo]

bom, foram uteis pra mim (:
principalmente a de 2 sqm a mais lá , fora da tela,
gostei, merece fixo ;

mais alguem pode me ensinar mexer no navigation ?

[thiago campos]

Add treiner slime do ng e pescar do elfbot.
Obrigado de ter gostado do tópico, eu estou pesquisando sobre isso, até agora não achei nada

[ismabvb]

Gosto de poneis.

[thiago campos]

Dei uma reformulada, essa semana vou procurar mais e coloco.

[Pimpollho]

É muito util
Só que eu acho que o topico ta um pouco mal organizado
Mais ta de parabéns mesmo assim

[Ciso Dias]

Isso ta uma zona, devia deixar em negrito ou em italico o titulo do escript, mais para quem quizer um bom escript tem que perder um tempo olhando esse topico.
Dava pra organizar melhor.

[thiago campos]

Coloquei em negrito, é ficou melhor do que antes .
E obrigado.

Obs:
SE GOSTARAM OU NÃO, RESPONDAM DO QUE ACHARAM.

[erichmarx]

Muuito Bom..Mas kero aprende a mexe no navigation!

[thiago campos]

Obrigado, esse navigation, não consigo achar, estou na procura ainda, se eu achar eu posto.