set #lpc 20
set %d 12
set %Journal #jindex
set %auto 1 ;se volete che lo faccia in automatico di fronte a voi sostituite 0 con 1

loop:
if #jindex > %Journal
{
set %Journal %Journal + 1
scanjournal %Journal
if ( you_have_been_knocked_of in #journal || you_fall_off_of_your_mount in #journal ) && #jcolor = 946
{
set %lpc 200
gosub teleport
set %lpc 20
}
}
goto loop

sub teleport
;event exmsg #charid 3 30 ora va
set %ltarget #ltargetid
set %lkind #LTARGETKIND
; if #AR > 60
; {
; event macro 15 14
; wait 12
; }
;event macro 15 21

;wait 1
finditem UTL _C , #backpackid
if #findkind = -1 2
{
event exmsg #charid 3 30 Teleport Finite!!!
return
}
set #lobjectid #findid
event macro 17 0
if ( %auto = 1 )
{
;event exmsg #charid 3 30 ora anche
target 40
set %x #CHARPOSX
set %y #CHARPOSY
set %z #CHARPOSZ
if #CHARDIR = 0 1 ;N
set %y %y - %d
if #CHARDIR = 1 2 ;NE
set %y %y - %d
set %x %x + %d
if #CHARDIR = 2 1 ;E
set %x %x + %d
if #CHARDIR = 3 2 ;SE
set %x %x + %d
set %y %y + %d
if #CHARDIR = 4 1 ;S
set %y %y + %d
if #CHARDIR = 5 2 ;SW
set %y %y + %d
set %x %x - %d
if #CHARDIR = 6 1 ;W
set %x %x - %d
if #CHARDIR = 7 2 ;WN
set %x %x - %d
set %y %y - %d
set #ltargetx %x
set #ltargety %y
set #ltargetz %z
set #ltargetkind 2
event macro 22 0
}
set #LTARGETKIND %lkind
set #ltargetid %ltarget
set %Journal #jindex
return