1. set #lpc 20
2. set %d 9
3. set %Journal #jindex
4.  
5. loop:
6. if #jindex > %Journal
7.   {
8.    set %Journal %Journal + 1
9.    scanjournal %Journal
10.    if ( you_have_been_knocked_of in #journal || you_fall_off_of_your_mount in #journal ) && #jcolor = 946
11.      gosub teleport
12.   }
13. goto loop
14.  
15. sub teleport
16. set %ltarget #ltargetid
17. set %lkind #LTARGETKIND
18.  ; if #AR > 60
19. ;    {
20.  ;    event macro 15 14
21.   ;   wait 12
22.   ;  }
23.   event macro 15 21
24.   if ( 1 = 1 )
25.   {
26.      target 30
27.      set %x #CHARPOSX
28.      set %y #CHARPOSY
29.      set %z #CHARPOSZ
30.      if #CHARDIR = 0 1 ;N
31.         set %y %y - %d
32.      if #CHARDIR = 1 2 ;NE
33.         set %y %y - %d
34.         set %x %x + %d
35.      if #CHARDIR = 2 1 ;E
36.         set %x %x + %d
37.      if #CHARDIR = 3 2 ;SE
38.         set %x %x + %d
39.         set %y %y + %d
40.      if #CHARDIR = 4 1 ;S
41.         set %y %y + %d
42.      if #CHARDIR = 5 2 ;SW
43.         set %y %y + %d
44.         set %x %x - %d
45.      if #CHARDIR = 6 1 ;W
46.         set %x %x - %d
47.      if #CHARDIR = 7 2 ;WN
48.         set %x %x - %d
49.         set %y %y - %d
50.      set #ltargetx %x
51.      set #ltargety %y
52.      set #ltargetz %z
53.      set #ltargetkind 2
54.      event macro 22 0
55. _telefarExit:
56. set #LTARGETKIND %lkind
57. set #ltargetid %ltarget
58. set %Journal #jindex
59. }
60. return