Code: Select all
set #lpc 200
OnHotkey x alt
{
event macro 15 21
set %t #SYSTIME
set %dist #false
set %jrnl #jindex
while #targCurs <> 1 && #SYSTIME < %t + 2000 && %dist = #false
{
gosub getxy
gosub read_journal
}
event macro 22 0
}
sub getxy
{
set %o #CHARDIR
set %n 11
set %m 11
if %o = 0 ; N
{
set #lTargetX #charPosX
set #lTargetY #charPosY - %m
}
if %o = 1 ; N-E
{
set #lTargetX #charPosX + %n
set #lTargetY #charPosY - %m
}
if %o = 2 ; E
{
set #lTargetX #charPosX + %n
set #lTargetY #charPosY
}
if %o = 3 ; S-E
{
set #lTargetX #charPosX + %n
set #lTargetY #charPosY + %m
}
if %o = 4 ; S
{
set #lTargetX #charPosX
set #lTargetY #charPosY + %m
}
if %o = 5 ; S-w
{
set #lTargetX #charPosX - %n
set #lTargetY #charPosY + %m
}
if %o = 6 ; W
{
set #lTargetX #charPosX - %n
set #lTargetY #charPosY
}
if %o = 7 ; N-W
{
set #lTargetX #charPosX - %n
set #lTargetY #charPosY - %m
}
;tile Get #lTargetX #lTargetY 1
set #lTargetZ #tileZ
set #LTARGETKIND 2
return
}
sub read_journal
{
if #jindex > %jrnl
{
scanjournal %jrnl
set %jrnl %jrnl + 1
if disturbed in #journal
set %dist #true
}
return
}