Teleport as a retard [EUO]

Share your guides, how-tos, FAQs, and so forth. This is not for support -- post questions in General Discussion.
Post Reply
User avatar
Llama Vortex
Posts: 149

Teleport as a retard [EUO]

Post by Llama Vortex »

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
}
koziar likes this.
Top
Post Reply