@program ispy.muf
1 1000 d
i
$include $lib/alynna
lvar param

: main
var target
param !

command @ tolower case
 "@up" smatch when
   me @ #1 dbcmp not if
    "huh_mesg" sysparm tellme exit
   then
   param @ resolve target !
   target @ #-1 dbcmp if "Target not found" "Spy" pretty tellme exit then
   target @ #-2 dbcmp if "Target matches more than one, please be more specific." "Spy" pretty tellme exit then
   target @ "@alisten/setech" prog setprop
   prog "/@/mail/se/t/e/c/h/" target @ int intostr strcat me @ setprop
   str "You are now watching " target @ cat "Spy" pretty tellme
  end

 "@down" smatch when
   me @ #1 dbcmp not if
    "huh_mesg" sysparm tellme exit
   then
   param @ resolve target !
   target @ #-1 dbcmp if "Target not found" "Spy" pretty tellme exit then
   target @ #-2 dbcmp if "Target matches more than one, please be more specific." "Spy" pretty tellme exit then
   target @ "@alisten/setech" 0 setprop
   prog "/@/mail/se/t/e/c/h/" target @ int intostr strcat 0 setprop
   str "You are no longer watching " target @ cat "Spy" pretty tellme
  end
  default
   prog "/@/mail/se/t/e/c/h/" trig int intostr strcat getprop str trig "> " param @ cat ansi_notify
  end
endcase
;
.
c
q