######################################################################################################
###################################     FLAMER QUESTS TOPS    ########################################
######################################################################################################
# Créditos: FLAMER / FARAÔNICO.
# Desenvolvido por Erick Rodrigo. Vulgo FLAMER. bRO @Thor @Meu Peru.
# Versão 1.1 Beta
# Criado em Março de 2015.
# Codificação:  ANSI -> UTF8 Without boom
#
# Caso haja erros, escreva na console: conf autoTalkResp 0
######################################################################################################
######################################################################################################
######################################################################################################
########################### INFORMAÇÕES SOBRE AS MACROS/AUTOMACROS.|Mais Informações em InfoMacros.txt
#
#Quest01 = Coletando Cristais - Modo Difícil - Monstro Naga
#Quest02 = ************
#Quest03 = ************
### RandomMapDrops01 = ama_dun03
### RandomMapDrops02 = **********************************************
### RandomMapDrops03 = **********************************************
####################################################################################
####################################################################################
####################################            ####################################
##################################   QUEST TOP1   ##################################
####################################            ####################################


##################################
#
### Rota para chegar até o Edden.
#

automacro IniciarQuest01 {
	eval not ($::questList->{5180}->{'active'}) or ($varStack{".time"} > $::questList->{5174}->{time} && ($::questList->{5174}->{active}?1:0) == 1)
	location not ama_dun03
	location not ama_dun02
	location not ama_dun01
	location not ama_in01
	location not ama_in02
	location not ama_in03
	exclusive 1
	run-once 1
	priority 1
	call edden
}

automacro TerminandoQuest01 {
	console /- Naga (.*) 100/i
	location not ama_dun01
	location not ama_in01
	location not ama_in02
	location not ama_in03
	priority 0
	run-once 1
	exclusive 1
	call edden
}

automacro DelayQuest01 {
eval ($varStack{".time"} > $::questList->{5174}->{time} && ($::questList->{5174}->{active}?1:0) == 1)
	location moc_para01
	exclusive 1
	run-once 1
	priority 1
	call edden
}

macro edden {
################ INICIO DOS COMANDOS
		do conf lockMap spl_fild01
		do conf sellAuto 0
		do tele 2
pause 3
		do ai manual
	$mymap = $.map
log Verificando o Mapa para Escolher os Comandos! --------------------------------
	if ($.map == spl_fild01) goto splfild01
	if ($.map == spl_fild02) goto splfild02
	if ($.map == mid_camp) goto midcamp
	if ($.map == alberta) goto alberta
	if ($.map == prontera) goto prontera
	if ($.map == geffen) goto geffen
	if ($.map == aldebaran) goto aldebaran
	if ($.map == izlude) goto izlude
	if ($.map == payon) goto payon

################################################ SPL_FILD01
### Rota para o Edden.
:splfild01
	$x = @random ("291")
	$y = @random ("25")
	do move spl_fild01 $x $y

################################################ SPL_FILD02
### Rota para o Edden.
:splfild02
	$x = @random ("383")
	$y = @random ("216")
	do move spl_fild02 $x $y

################################################ MID_CAMP
### Rota para o Edden.
:midcamp
	$x = @random ("54","55","56","57","58","59","60")
	$y = @random ("120","121","122","123","124","125")
	do move mid_camp $x $y
pause 1
	do ai on
	do talknpc 62 125 c r2 c r0 n

################################################ ALBERTA
### Teleportando para o Edden.
:alberta
	$mymap = alberta
   $x = @random ("123","124","125","126")
   $y = @random ("68","69","70")
   do move alberta $x $y
   do talknpc 124 67 c r0 c n
   goto fim

################################################ PRONTERA
### Teleportando para o Edden.
:prontera
	$mymap = prontera
   $x = @random ("112","113","114","115","116","117","118","119","120","121","122","123")
   $y = @random ("68","69","70","71","72","73","74","75","76","77","78","79","80","81","82","83","84","85")
   do move prontera $x $y
pause 3
   do talknpc 124 76 c r0 c n
   goto fim

############################################## GEFFEN
### Teleportando para o Edden.
:geffen
	$mymap = geffen
	$x = @random ("124","125","126","127","128","129","130","131","132","133","134","135","136","137","138","139","140","141","142")
	$y = @random ("58","59","60","61","62","63","64","65","66","67","68","69","70","71","72","73","74")
	do move geffen $x $y
pause 3
   do talknpc 132 66 c r0 c n
   goto fim

############################################## IZLUDE
### Teleportando para o Edden.
:izlude
	$mymap = izlude
	$x = @random ("122","123","124","125","126","127","128","129","130","131","132","133")
	$y = @random ("88","89","90","91","92","93","94","95","96","99","98","99","100","101","102","103","104","105")
	do move izlude $x $y
pause 3
   do talknpc 134 98 c r0 c n
   goto fim

############################################# PAYON
### Teleportando para o Edden.
:payon
	$mymap = payon
	$x = @random ("168","169","170","171","172","173","174","175","176","177","178","179")
	$y = @random ("110",111",112",113",114",115",116",117",118",119",120")
	do move payon $x $y
pause 3
   do talknpc 177 111 c r0 c n
   goto fim

################################################# ALDEBARAN
### Teleportando para o Edden.
:aldebaran
	$mymap = aldebaran
	$x = @random ("134","135","136","137","138","139","140")
	$y = @random ("110",111",112",113",114",115",116",117",118",119",120")
	do move aldebaran $x $y
pause 3
   do talknpc 133 119 c r0 c n
   goto fim

##### Encerrando a Macro.   #####
:fim
stop
}


###
###### Aqui o bot vai até o npc e cancela o delay da quest.
###
automacro Cancelar_Delay_Quest01 {
	eval ($varStack{".time"} > $::questList->{5174}->{time} && ($::questList->{5174}->{active}?1:0) == 1)
	location moc_para01
	priority 0
	macro_delay 0.2
	exclusive 1
	run-once 1
	call RetirarDelay
}
macro RetirarDelay {
	$x = @random ("48","47")
	$y = @random ("164","165","166","167")
	do move $x $y
pause 0.1
	do ai on
	do talknpc 41 169 c r1 c r2 c c r5 n
	pause 1
	release AtivarQuest01
	}

###
###### Aqui vai iniciar a quest.
###
automacro AtivarQuest01 {
	eval not $::questList->{5180}->{active}
	location moc_para01
	priority 1
	exclusive 1
	run-once 1
	call {
	$x = @random ("48","47")
	$y = @random ("164","165","166","167")
	do move moc_para01 $x $y
pause 0.1
		do conf autoTalkCont 0
		do conf route_teleport 0
pause 0.1
		do ai on
		do talknpc 41 169 c r1 c r2 c c r5 n
		pause 1
		do move prontera
		pause 1
		do tele 2
stop
	}
}

###
###### Aqui vai iniciar a quest.
###
automacro FinalizarQuest01 {
	eval $::questList->{5180}->{active}
	location moc_para01
	priority 1
	exclusive 1
	call {
	$x = @random ("48","47")
	$y = @random ("164","165","166","167")
	do move moc_para01 $x $y
pause 0.1
		do conf autoTalkCont 0
		do conf route_teleport 0
pause 0.1
		do ai on
		do talknpc 41 169 c r1 c r2 c c r5 n
		pause 1
		do move prontera
		pause 1
		do tele 2
stop
	}
}
####
####### REINICIANDO A QUEST
####

automacro VerificandoQuest01 {
eval ($::questList->{5180}->{'active'})
	hook attack_end
	timeout 30
	call {
	do quest list
	}
}

##################################
### CONTAGEM DE MONSTROS DA QUEST#
##################################
automacro ContagemDeMonstros {
   eval ($::questList->{5180}->{inactive}?0:0) == 0 && ($::questList->{5180}->{missions}->{5174}->{count}) == 100)
   location spl_fild01
   hook attack_end
   macro_delay 0.5
   exclusive 1
   call {
      $monCountLimit = 100   #Numero Limite da Quantidade de Monstros a serem Mortos
      $monCount = @eval ($::monsters_Killed[0]{count})
      $monName = @eval ($::monsters_Killed[0]{name})
      $total = $monCount
      $mName = $monName
      $target = Naga    #Coloque aqui o Nome do Monstro a ser contado
      if ($target == $mName) goto continue
      if ($target != $mName) goto expReset

      :expReset
         do exp reset
         pause 0
         stop

      :continue
         [
            log **************************************
            log ***** Verificando Monstro Mortos *****
            log ***** Monstro: $monName
            log ***** Mortos: 0$total - À Matar: $monCountLimit
            log ***** Total: 0$total --- Faltam: 0@eval ($monCountLimit-$total)
            log **************************************
            log **************************************
         ]
      if ($total < $monCountLimit) stop
      if ($total > $monCountLimit) goto parando

      :parando
         [
            log **************************************
            log ********** Meta Atigida... ***********
            log ***** Continuando Quest Cristais *****
            log * Abandonando Rotina da Missao Atual *
            log **************************************
            log **************************************
         ]
   }
}


######################################################################################################
######################################################################################################
######################################################################################################
######################################################################################################
######################################################################################################
######################################################################################################
######################################################################################################
######################################################################################################
######################################################################################################
####################################################################################
####################################################################################
####################################            ####################################
###################################  MAPA DROP01  ##################################
####################################            ####################################

automacro MapaDrops01 {
	eval ($varStack{".time"} < $::questList->{5174}->{time} && ($::questList->{5174}->{active}?1:0) == 1)
	location not ama_dun03
	location not ama_dun02
	location not ama_dun01
	location not ama_in01
	location not ama_in02
	location not ama_in03
	run-once 1
	exclusive 1
	priority 3
	call amatsu
}

macro amatsu {
	do conf lockMap ama_dun03
	do conf sellAuto 1
	do conf sellAuto_npc ama_in01 102 28
pause 1
	do tele 2
pause 1
	do ai manual
log Verificando o Mapa para Escolher os Comandos! --------------------------------

	if ($.map == mid_camp) goto midcampdrop01
	if ($.map == alberta) goto albertadrop01
	if ($.map == prontera) goto pronteradrop01

################################################ MID_CAMP
### Rota para o Edden.
:midcampdrop01
	$x = @random ("54","55","56","57","58","59","60")
	$y = @random ("120","121","122","123","124","125")
	do move mid_camp $x $y
pause 1
	do ai on
	pause 0.5
	do talknpc 62 125 c r2 c r0 n

################################################ ALBERTA
### Teleportando para o Edden.
:albertadrop01
   $x = @random ("123","124","125","126")
   $y = @random ("68","69","70")
   do move alberta $x $y
	goto fim
################################################ PRONTERA
### Teleportando para o Edden.
:pronteradrop01
   $x = @random ("112","113","114","115","116","117","118","119","120","121","122","123")
   $y = @random ("68","69","70","71","72","73","74","75","76","77","78","79","80","81","82","83","84","85")
   do move prontera $x $y
pause 3
   goto fim

##### Encerrando a Macro.   #####
:fim
	stop
}

##################################################################
#################################### ARMAZENANDO NA KAFRA
automacro kafra {
	console /Armazenagem automática devido a excesso de peso./i
	run-once 1
	exclusive 1
	priority 0
	call Tele2
}

macro Tele2 {
	do tele 2
	pause 1
	do autostorage
	pause 1
	stop
}
##################################################################
##################################################################