@program buyprimary.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna
$def PRIMARY "{Appearance|Intelligence|Magery|Willpower|Strength|Stamina|Perception|Dexterity}"
lvar param

: buyprimary
var stat
var value
var jp
var jpspent
var jpavail

param @ PRIMARY smatch not if
 "That isnt a primary stat valid to raise." "BuyPrimary" pretty tellme exit
 then

me @ param @ getstat stat !

stat @ 10 = if 
 "You cant raise a stat over 10." "BuyPrimary" pretty tellme exit
 then

stat @ 5 > if
  100 value !
 else
  50 value !
 then
 
me @ "jobs/" me @ "job" getstat strcat getstat jp !
me @ "jobs/" me @ "job" getstat "spent" strcat strcat getstat jpspent !

jp @ jpspent @ - jpavail !

stat @ jpavail @ < if
 str "Insufficient JP to raise that stat, it costs " value @ "." cat "BuyPrimary" pretty tellme exit 
 then

me @ "primaryspent" getstat toint value @ + me @ "primaryspent" rot setstat
me @ "jobs/" me @ "job" getstat jp @ value @ - setstat
me @ param @ stat @ 1 + setstat

str 
 "Primary stat ^Yellow^" param @ "^ ^ increased to ^Green^" me @ param @ getstat "^ ^." 
cat "BuyPrimary" pretty tellme
;

: main
param !
command @ "+buyprimary" smatch if buyprimary exit then
;
.
c
q