@program prover.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna 
( Give priority to these dirs )
$def DIRS { "Special" "Jobs" "Caps" } array_make
lvar param

: prover ( s -- )         
var target
var targetdir         
var value
var tmp
param @ not if "Invalid syntax, +prove <stat>" "Prove" pretty tellme exit then         
param @ target !

0 targetdir !
me @ "/@rp/" target @ strcat getprop value !
value @ not if      
me @ "/@rp/" array_get_propdirs DIRS array_union foreach tmp !
 me @ "/@rp/" tmp @ "/" target @ strcat strcat strcat getprop dup if 
  value ! tmp @ targetdir ! 
 else 
  pop 
 then
repeat
then


value @ if
str
 "<^YELLOW^*^GREEN^Official^YELLOW^*^NORMAL^> " 
 me @ " proves that they posess a stat named ^CYAN^" target @ "^NORMAL^"
      " with a value of ^GREEN^" value @ "^NORMAL^"
      value @ int? if value @ 16777215 > if 
       " (^YELLOW^Date value: " "%X %x" value @ timefmt ", " systime value @ - timex " ago^NORMAL^)" 
      then then
      "."
 targetdir @ if " [Found in: " targetdir @ "]" then
cat tellhere
else
str
 "<^YELLOW^*^GREEN^Official^YELLOW^*^NORMAL^> " 
 me @ " proves that they do ^RED^NOT^NORMAL^ possess any stats named ^CYAN^" target @ "^NORMAL^."
cat tellhere
then
;

: main
param ! prover
;
.
c
q