Registro

Se esta é sua primeira visita, por favor clique no botão Registre-se para iniciar o processo de criação de sua conta para que você possa começar a postar em nosso fórum e fazer downloads! O Registo é rápido só vai ocupar cerca de um minuto de seu tempo.

Follow us on Facebook Follow us on Twitter Watch us on YouTube







Resultados 1 a 10 de 10
  1. #1
    Membro Avançado Avatar de thiago campos
    Data de Ingresso
    Dec 2008
    Posts
    1.437
    Agradecer
    257
    Agradecido
    777 vezes

    Padrão Scripts, hotkeys e shortkeys de ng e elfbot

    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.
    Última edição por thiago campos; 01-06-2009 às 07:48 PM.

  2. Os seguintes 10 Usuários disseram Obrigado thiago campos por essa útil mensagem:


  3. #2
    Membro Avançado Avatar de AlissonDelCastillo
    Data de Ingresso
    Oct 2008
    Localização
    -
    Posts
    853
    Agradecer
    93
    Agradecido
    250 vezes

    Padrão

    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 ?

  4. #3
    Membro Avançado Avatar de thiago campos
    Data de Ingresso
    Dec 2008
    Posts
    1.437
    Agradecer
    257
    Agradecido
    777 vezes

    Padrão

    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

  5. #4
    Membro Novo Avatar de ismabvb
    Data de Ingresso
    Dec 2008
    Posts
    28
    Agradecer
    0
    Agradecido
    0 vezes

    Padrão

    Gosto de poneis.
    Última edição por DariusXXY; 08-04-2009 às 07:22 AM.

  6. #5
    Membro Avançado Avatar de thiago campos
    Data de Ingresso
    Dec 2008
    Posts
    1.437
    Agradecer
    257
    Agradecido
    777 vezes

    Padrão

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

  7. #6
    Membro Novo Avatar de Pimpollho
    Data de Ingresso
    Dec 2008
    Posts
    31
    Agradecer
    0
    Agradecido
    41 vezes

    Padrão

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

  8. #7
    Membro Novo Avatar de Ciso Dias
    Data de Ingresso
    Feb 2009
    Posts
    13
    Agradecer
    3
    Agradecido
    0 vezes

    Padrão

    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.

  9. #8
    Membro Avançado Avatar de thiago campos
    Data de Ingresso
    Dec 2008
    Posts
    1.437
    Agradecer
    257
    Agradecido
    777 vezes

    Padrão

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

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

  10. #9
    Membro Novo Avatar de erichmarx
    Data de Ingresso
    Jan 2009
    Posts
    4
    Agradecer
    0
    Agradecido
    0 vezes

    Padrão

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

  11. #10
    Membro Avançado Avatar de thiago campos
    Data de Ingresso
    Dec 2008
    Posts
    1.437
    Agradecer
    257
    Agradecido
    777 vezes

    Padrão

    Obrigado, esse navigation, não consigo achar, estou na procura ainda, se eu achar eu posto.
    Última edição por thiago campos; 11-04-2009 às 12:36 AM.


Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •  
Todos horários são GMT -3. Hora atual: 08:44 PM.
Powered by vBulletin™ Version 4.2.0
Traduzido por vB-Brasil.Org & Lucas Zgoda
Copyright © 2014 vBulletin Solutions, Inc. All rights reserved.
Content Relevant URLs by vBSEO
Forum Modifications By Marco Mamdouh
vBulletin Mods by vBSocial.com
vBulletin Skin By: PurevB.com