@program prove.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$include $lib/case
$include $lib/strings

lvar cur
lvar target
lvar entered
lvar value
lvar tprop

: bms ( i -- adjusted-i )
target @ tolower "body" smatch if
 me @ "bodyplus" getstatint +
then
target @ tolower "mind" smatch if
 me @ "mindplus" getstatint +
then
target @ tolower "spirit" smatch if
 me @ "spiritplus" getstatint +
then
;
 
: espend 
target @ toint 0 = if
 ( Check if this is a valid quality )
else
then
;
 
: main ( s -- )
strip target !
target @ entered !
target @ not if 
 "Alynna's Fools Moon Prover 3.0" .tell
 "Format: " .tell
 " prove <stat>                 Proves to everyone in the world that you have" .tell
 "                              the specified stat at that level." .tell
 exit then

me @ me @ target @ "level" lookupstat if
 me @ me @ target @ "level" lookupstat dup "" "/level" subst tprop ! getstat value !
else
 me @ me @ target @ "?" lookupstat if
  me @ target @ "?" lookupstat "" "/?" subst tprop !
  -1 value !
 else
  "Not a valid stat." "Yerf" pretty tellme exit
 then
then

str 
 "^GREEN^" me @ name "^NORMAL^ proves they have a stat called ^YELLOW^" entered @ "^NORMAL^. "
 "(^CYAN^" tprop @ "^NORMAL^)"
cat "Official" pretty tellhere

str 
 value @ toint -1 = if
  "It does not have a rank value."
 else
 tprop @ case
  "quality/*" smatch when
   "It costs ^GREEN^" value @ "^NORMAL^ essence for them to use." end
  "{skill/*|spellbook/*|ability/*|kata/*|boon/*|bane/*}" smatch when
   "Its rank value is ^GREEN^" value @ "^NORMAL^.  (^CYAN^1d" value @ toint ldie "^NORMAL^)" end
  "/essence" smatch when
   "They have ^GREEN^" value @ "^NORMAL^ essence points remaining." end
  "{/body|/mind|/spirit}" smatch when
   value @ toint bms value !
   "Its rank value is ^GREEN^" value @ "^NORMAL^.  (^CYAN^1d" value @ toint ldie "^NORMAL^)" end
  "/nature" smatch when
   "Their nature is ^GREEN^" value @ ", " ":" subst "^NORMAL^." end
  default
   pop "Its value is: ^GREEN^" value @ "^NORMAL^" end
 endcase
 then
cat "Official" pretty tellhere

me @ tprop @ "/special" strcat getstat value !
value @ if str 
 "Its special information is: ^CYAN^" value @ "^NORMAL^"
cat "Official" pretty tellhere then

me @ tprop @ "/focus" strcat getstat value !
value @ if str 
 "Its focuses are: ^CYAN^" value @ ", " ":" subst "^NORMAL^"
cat "Official" pretty tellhere then

;
.
c
q