So look like I scan to much. I need to learn how and where to insert the scan journal. Did a few run and it work, seen a bit slow but it work.
;======================================================
; Sub Find Charmer Flute and Snake
;======================================================
sub HuntEgg
UseFlute:
gosub TM_AdvJournalScan snake VALID nest_collapses
if #RESULT = #TRUE
{
gosub TM_AdvJournalSync snake
gosub ignore
Return
}
; ignoreitem %snake
finditem %flute C_ , #BACKPACKID ; Charmer Flute fcing west, north
event property #findid
if Charmer in #property
set %flute #findid ; find only charmer flute
else
{
ignoreitem #findid
goto UseFlute
}
set #lobjectid %flute
event macro 17 0
;======================================================
; S Goto Target Snake
;======================================================
FindSnake:
finditem %snakes G_8
set #ltargetid #findid
set #ltargetkind 1
set %snake #findid
target
event macro 22
wait 5
click %lootx %looty d
wait 1s
gosub TM_AdvJournalScan snake NONE already_taming
if #RESULT = #TRUE
{
gosub TM_AdvJournalSync snake
ignoreitem %snake
wait 5s
goto UseFlute
}
goto UseFlute
;======================================================
; Sub Ignor snake
;======================================================
sub ignore
ignoreitem reset ;Reset all snake
return
;==========================