/loaded nimscan.tf ; ; $Id: scan.tf, v0.4 -- 06/01/2004 16:33:00 ; ; Rescan to F1 ;/bind ~ = /if (_scan_exp !~ "") /scan %_scan_exp%; /endif ;/bind ~ = /scan red aura /def -i scan = \ /def -F -ag -mregexp -t"SCAN_END" scan_end = \ /if (_scan) \ /undef scan_match%%; \ /undef scan_dir%%; \ /unset _scan%%; \ /unset _scan_dir%%; \ /echo End of Scan%%; \ /endif %%; \ /undef scan_end %; \ /if ({#} == 0) \ /echo -aB Error: Scan for what?%; /undef scan_end %;\ /elseif (_scan) \ /echo -aB Error: Already scanning.%; \ /else \ /echo Scanning for: '%{*}'%; \ /set _scan_exp=%{*}%; \ /set _scan=1%; \ /def -F -ag -mregexp -t"(.+ here) you see:|SCAN END" scan_dir = \ /if (_scan & {P1} !~ "") \ /set _scan_dir=$$[pad(replace(' from here', '', {P1}), -10)]%%; \ /endif%; \ /def -F -ag -mregexp -t" - (.+)" scan_match = \ /let mob=%%P1%%; \ /if (_scan & regmatch(tolower(_scan_exp), tolower({P1}))) \ /echo -a -p @{B}@{Ccyan}%%_scan_dir @{n}@{Cwhite}- @{n}%%mob%%; \ /endif%; \ scan%; \ echo SCAN_END%; \ /endif