Ir para conteúdo
Faça parte da equipe! (2024) ×

Scripts, hotkeys e shortkeys de ng e elfbot

thiago campos

Por ,
em RPG Zone - Lixão

 Compartilhar

Posts Recomendados

thiago campos Novato

thiago campos 0

Postado
Denunciar
Postado

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:

4shared.com - online file sharing and storage - download Slime Train.elft

SCAN AQUI

3° passo:

Faça download desse arquivo:

4shared.com - online file sharing and storage - download Slime Train.elfc

SCAN AQUI

 

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);

If Creature<> nil then

begin

if (Creature.Health < MinPlayerHP) and (Self.Mana > 140) then

begin

Self.Say('Exura Sio "'+PlayerName)

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.

ﾠﾠTroféus e Medalhasﾠﾠ
Link para o comentário
Compartilhar em outros sites
Este tópico está impedido de receber novos posts.
 Compartilhar
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.

 Accept Cookies  Reject Cookies