Hey guys, I wrote this script to make it a bit easier to get keys for Medusa. Everything works perfectly except when it goes to target the snake nest on the ground. I either get a message that target cannot be seen, or it targets a random tile. I cannot get the script to actually target the nest. I've tried to set the #ltargetkind to 1, 2, and 3 to no avail. Anyone have any suggestions?;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; Script Name: Raz's Auto-Snake Charmer
; Author: Razeial
; Version: 1.0
; Purpose: Makes getting keys for Medusa easy!
;
;Instructions: Press Play
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;======================================================
; Setup
;======================================================
if %setup <> #true
{
set %snake QE_JD
set %hole PBN
set %flute RGP_PGP
set %maxDist 8
set %setup #true
}
;======================================================
; Mainloop
;======================================================
mainloop:
finditem %snake G_8
if #findcnt < 1
goto mainloop
set %targsnake #findid
wait 10
for %i 0 %maxDist
{
finditem %hole G_ , %i
if #findkind <> -1
{
event Property #findid
}
if nest in #property
{
set %targholeid #findid
break
}
}
wait 10
gosub FindFlute
gosub TargSnake
gosub TargHole
if #result = #false
goto mainloop
wait 10s
goto mainloop
return
;======================================================
; Sub TargHole
;======================================================
Sub TargHole
if #targcurs = 1
{
set %ltargetkind 2
set #ltargetid %targholeid
wait 10
event macro 22 0
)
else
return #false
return
;======================================================
; Sub TargSnake
;======================================================
Sub TargSnake
set #lobjectid %useflute
set %js #jindex
event macro 17 0
target
set #ltargetid %targsnake
set #ltargetkind 1
event macro 22 0
set %je #jindex
wait 10
for %cantPersuade %js %je
{
scanjournal %cantPersuade
if you_dont't_seem in #journal
gosub TargSnake
if
}
target
return
;======================================================
; Sub FindFlute
;======================================================
SUB FindFlute
finditem %flute C_ , #backpackid
event Property #findid
if charmer in #property
set %useflute #findid
else
{
ignoreitem #findid
gosub FindFlute
}
if #findcnt < 1
{
display You have no flutes! Halting!
halt
}
return