1501
Resource Farming / Re: neo's Ter Mur Area Lumberjack v2.0 out 09/26 added multi-book support
« on: August 04, 2013, 08:44:23 PM »
It miss and match, you need to be careful of where you recall. Lot populated area help.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
;======================================================
; 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
;==========================
.
; ver 1.3d _Someone_else_is_already_taming_this. don't work in journal
;==================================
gosub Setup
;---------------------------------- Main Loop --------
repeat
gosub targethole
gosub HuntEgg
until #charghost = yes
; *********************************
sub Setup
; set %nest PBN
set %flute RGP_PGP ; Charmer Flute
set %snakes QE_JD_FB
gosub TM_AdvJournalSync snake 100
return
;==================================
; Sub Taget Hole
;===================================
sub targethole
; event SysMessage Target the hole
display Hover mouse over Nest
wait 3s
set %lootx #cursorx
set %looty #cursory
return
;======================================================
; Sub Find Charmer Flute and Snake
;======================================================
sub HuntEgg
UseFlute:
gosub TM_AdvJournalScan snake VALID _Someone_else_is_already_taming_this. ; where_it_was_instructed_to
if #RESULT = #TRUE
{
event SysMessage SERPENT new one
pause
gosub TM_AdvJournalSync snake
ignoreitem %snake
; pause
wait 6s
goto UseFlute
}
gosub TM_AdvJournalScan snake VALID the_nest_collapses Target_cannot_be_seen
if #RESULT = #TRUE
{
event SysMessage perdu trou
gosub TM_AdvJournalSync snake
; pause
gosub ignore
Return ; go back to beginning to target a new hole
}
;======================================================
; Goto Target Snake
;======================================================
FindSnake:
finditem %snakes G_8
set #ltargetid #findid
set #ltargetkind 1
set %snake #findid
target
event macro 22 ; Last Target
wait 5
click %lootx %looty d
wait 1s
gosub TM_AdvJournalScan snake VALID to_persuade_that_to_move moment_for_it_to_recharge
if #RESULT = #TRUE
{
event SysMessage refuse de bouger
gosub TM_AdvJournalSync snake
; pause
wait 6s
goto UseFlute
}
event SysMessage back to Flute
goto UseFlute
;======================================================
; Sub Ignore snake
;======================================================
sub ignore
ignoreitem reset ;Reset all snake
return
;=================================================================
; Script Name: TrailMyx's Advanced Journal Scanner
; Author: TrailMyx
; Version: 1.2
sub HuntEgg
UseFlute:
gosub TM_AdvJournalScan snake VALID_ADVANCE the_nest_collapses Target_cannot_be_seen
if #RESULT = #TRUE
{
gosub TM_AdvJournalSync snake
; pause
gosub ignore
Return ; go back to beginning to target a new hole
}
finditem %flute C_ , #BACKPACKID ; Charmer Flute
event property #findid
if Charmer in #property
set %flute #findid ; find only charmer flute
else
{
ignoreitem #findid
event macro 8 7 ; Open main pack
wait 15
contpos 1050 320
goto UseFlute
}
set #lobjectid %flute
event macro 17 0
;======================================================
; S Goto Target Snake
;======================================================
FindSnake:
finditem %snakes G_10
set #ltargetid #findid
set #ltargetkind 1
set %snake #findid
; if %snakes <> #ltargetid
; event exmsg %snakes 3 30 Pick
target
event macro 22 ; Last Target
; event exmsg %snakes 3 30 Pick
wait 5
click %lootx %looty d
wait 1s
gosub TM_AdvJournalScan snake VALID_ADVANCE to_persuade_that_to_move it_to_recharge
if #RESULT = #TRUE
{
gosub TM_AdvJournalSync snake
; pause
wait 6s
goto UseFlute
}
gosub TM_AdvJournalScan snake VALID_ADVANCE The_animal_walks already_taming where_it_was_instructed_to.
if #RESULT = #TRUE
{
gosub TM_AdvJournalSync snake
ignoreitem %snake
; pause
wait 6s
goto UseFlute
}
goto UseFlute
;======================================================
; Sub Ignor snake
;======================================================
sub ignore
ignoreitem reset ;Reset all snake
return
;============