1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
;;;; Mapping.
;;;; This file implements mapping and movement ("speedwalking") commands
;;;; similar to those found in tintin. Once mapping is enabled with /mark,
;;;; all movement commands (n,s,e,w,ne,sw,nw,se,u,d) will be remembered in
;;;; your "path".
;;;; usage:
;;; /map <dir> Add <dir> to remembered path.
;;; /mark Reset path and enable mapping.
;;; /path Display remembered path.
;;; /revert Move in the opposite direction of the last remembered
;;; movement, and remove that last movement from the path.
;;; /savepath <name> Create a macro <name> to execute the current path.
;;; Note: macro is not written to a file.
;;; /unpath Remove the last movement from the path.
;;; /unmark Disable maping.
;;; /dopath <path> Execute <path>, where <path> is a space-separated list
;;; of commands with optional repeat counts. E.g.,
;;; "/dopath 10 n 3 e d 2 w" will execute "n" 10
;;; times, "e" 3 times, "d" once, and "w" twice.
/loaded __TFLIB__/map.tf
/set path=
/def -i mark = \
/echo -e %% Will start mapping here.%;\
/set path=%;\
; note: _map_hook can also be called from speedwalk.tf.
/def -iFp9999 -mglob -h'send {n|s|e|w|ne|sw|nw|se|u|d}' _map_hook = \
/map %%*%;\
; _map_send catches and sends anything _map_hook caught, unless there was
; a non-fall-thru hook of intermediate priority that blocked it.
; note: _map_send is tested by speedwalk.tf.
/def -i -mglob -h'send {n|s|e|w|ne|sw|nw|se|u|d}' _map_send = \
/send %%*
/def -i map = /set path=%path %1
/def -i unmark =\
/set path=%;\
/undef _map_hook%;\
/undef _map_send%;\
/echo -e %% Mapping disabled.
/def -i path = /echo -e %% Path: %path
/def -i savepath= /def -i %1 = /dopath %path
/def -i dopath = \
/while ({#}) \
/if ( {1} =/ '[0-9]*' & {#} >= 2 ) \
/for i 1 %1 %2%; \
/shift 2%; \
/else \
%1%; \
/shift%; \
/endif%; \
/done
/def -i unpath = /set path=$(/all_but_last %path)
/def -i revert = \
/let _dir=$(/last %path)%;\
/unpath%;\
; These directions must be listed in complementary pairs.
/_revert_aux n s e w ne sw nw se u d%;
/def -i _revert_aux = \
/while ({#}) \
/if ( _dir =~ {1} ) /send - %2%; /return%; \
/elseif ( _dir =~ {2} ) /send - %1%; /return%; \
/else /shift 2%;\
/endif%; \
/done%; \
/echo -e %% Don't know how to revert from "%_dir".%;\
/set path=%path %_dir
/def -i all_but_last = /echo - %-L
|
