#SYSMSGCOL 65event sysmessage Va ate o local onde voce deseja ir minerar apos guarda os ores e precione ENTER.goto tempo2tempo2:OnHotkey ENTERgoto continuerotas2goto tempo2continuerotas2:set %trajeto_doisx #CHARPOSXset %trajeto_doisy #CHARPOSYwait 4sgoto teste4;======================;===== RELATORIO ======;======================teste4:set #SYSMSGCOL 65event sysmessage Rotas finalizadas e gravadas.wait 2sevent sysmessage Relatorio das Variveis:IF %alimentar = 1{set #SYSMSGCOL 65event sysmessage Alimento ao Char ON.}ELSEIF %alimentar = 0{set #SYSMSGCOL 65event sysmessage Alimento ao Char OFF.}wait 1sIF %hiding = 1{set #SYSMSGCOL 65event sysmessage Modo Stealth ON.}ELSEIF %hiding = 0{set #SYSMSGCOL 65event sysmessage Modo Stealth OFF.}wait 5sgoto rotasok;=====================;===== ROTAS OK ======;=====================rotasok:set #SYSMSGCOL 65event sysmessage Voce marcou as Rotas, agora, escolha qual a Bag que voce ira guardar os Ores!wait 2sgoto Bagconfig;=======================================;===== Configuracao - BAG de Ores ======;=======================================Bagconfig:set #SYSCOLMSG 65move %trajeto_umx %trajeto_umywait 3smsg Bank$set %Banco #CONTIDwait 3scontpos 10 10Event SysMessage Deixe o mouse sobre onde sera descarregado os ORES e aperte ENTER.tempoenter:OnHotkey ENTERgoto continueconfiggoto tempoentercontinueconfig:set %click_positionx #CURSORXset %click_positiony #CURSORYwait 2sEvent SysMessage Ok! Iniciando o macro...event macro 5 5goto BANKCONFIG;=========================================;===== CONFIGURACAO DA BAG NO BANCO ======;=========================================BANKCONFIG:set #SYSMSGCOL 40event sysmessage Verificando BAG! Vai aparecer o nome da Bag que voce escolheu!move %trajeto_umx %trajeto_umywait 1smsg bankKey Enterwait 3scontpos 10 10wait 10click %click_positionx %click_positionywait 4sfinditem CUDset #LOBJECTID #FINDIDset #findY #FINDIDset #findX #FINDIDif #findkind = 0set %X #FINDXset %Y #FINDYset %X %X + 20set %Y %Y + 20event sysmessage Bag OK! Indo Mineirar!move %trajeto_doisx %trajeto_doisywait 1s;===================================;===== CONFIGURACAO - MINERAR ======;===================================if #MAXHITS > #HITS{msg Guards ! $Key Enterwait 8s}; Pickaxesset %pickaxe NPF_QPF_TWF_WWF; Numero de tentativasset %tentativas 3; Tempo maximo de espera em cada tentativa (em segundos)set %tempo_max_tentativa 8; Tempo entre cada tentativa (pode ser usado no lag ou em servidores que nao aceitam minerar muito rapido)set %tempoPickaxe 1; Distancia maxima a minerar (distancia em tiles); Padrao 2 (corresponde a 25 posicoes diferentes sem caminhar)set %target_max_distance 1; ========== CONFIGURACOES - ALIMENTAR; Alimentar? (Sim ou Nao)Set %alimentar Sim; ComidasSet %comida RUD_FUD_BDF_GQE_IQE_ZPE_SQD_OQE_KPE_VQE_TQE_YSD_JQE_YWI_AXI_PQD_QQD_MQE_SPE_RQE_END_RGG_AQD_FUD_ZBG_WLI_QRD_YLI_NRD_PRD_XLI_ACG_IGI_GUD_HND_QSD; ========== CONFIGURACOES - HIDING; Hiding? (Sim ou Nao)Set %hiding Nao; ========== CONFIGURACOES - ANDAR; Distancia a andarSet %distancia_andar 5; ========== CONFIGURACOES - FIXAS (nao alterar)Set %target_tmp_X %target_max_distanceSet %target_tmp_Y %target_max_distanceSet #ltargetid 0Set #ltargetz 0Set #ltargetkind 3; ========== Title Ultima - Status do Char e Skillsub titleset %delta #skill - %skillsetuotitle Mining Bank Macro | Skill: %Skill : ( Valor Base: %skillr1 pontos e %skillr3 decimos ) | Peso: #weight / #maxweight | .::. Mining Bank by ForSek .::.return; ========== INICIOInicio:gosub ajusta_targetChooseSkill %SkillGoSub comidaGoSub skillrGoSub skillvSet %Skill MiningGoSub skilliSet %tentativa_atual 0goto mine; ========== MINEmine:if #MAXHITS > #HITS{msg Guards ! $Key Enterwait 8s}gosub titlehiding:if #charstatus <> H && %hiding = Sim{event macro 13 21wait 3sgoto hiding}wait %TempoPickaxeSet %tentativa_atual %tentativa_atual + 1if %tentativa_atual > %tentativas{goto inicio}gosub pickaxeSet #SCNT 0goto jornal;==========================;===== GUARDAR BANCO ======;==========================banco:set #SYSMSGCOL 40event sysmessage Voce esta muito pesado!!! Vamos visitar o banqueiro!?key escevent macro 8 7contpos 600 400set %Backpack #CONTIDmove %trajeto_umx %trajeto_umywait 2smsg $Bankkey enterset %Banco #CONTIDwait 2scontpos 10 10GO:FINDITEM TVJ_GWJ_EWJ_DWJ_EVF_UVF_HVF_GVF_FVF_OVF_BVF_VUF C_ , %Backpackif #findkind = 1{ignoreitem #findidgoto find}if #findkind = 0{event drag #FINDIDwait 1skey enterwait 2sclick %click_positionx %click_positionygoto GO}if #findkind = -1{wait 1smove %trajeto_doisx %trajeto_doisywait 1sreturn; ========== JORNALjornal:if #MAXHITS > #HITS{msg Guards !$Key Enterwait 8s}deleteJournalscanJournal 1;quando atacadoif #sysmsg = YOU_ARE_PREOCCUPIED_WITH_THOUGHTS_OF_BATTLE.{event Macro 6 0return}if #WEIGHT > 350{goto banco}if #SCNT >= %tempo_max_tentativa{goto mine};mining_losif you_have_no_line_of_sight_to_that_location in #journal ||