@program mset.muf
1 100 d
i
$include $lib/rp
$include $lib/alynna
lvar param

: main
var target
var myministry
var myrank
param @ not if str "Format: " command @ " <player>" cat "House" pretty tellme exit then
param @ resolve target @
target @ int 0 < if str "Unknown or ambiguous target." cat "House" pretty tellme exit then
me @ "ministry" getstat toint myministry !
me @ "rank" getstat toint myrank !
myrank @ 5 >= if
command @ "+madd" smatch if
 target @ "ministry" myministry @ setstat
 target @ "rank" 4 setstat
 str target @ " was added to your ministry." cat "House" pretty tellme
then
command @ "+mdel" smatch if
target @ "ministry" getstat toint myministry @ = if
 target @ "ministry" 0 setstat
 target @ "rank" 0 setstat
 str target @ " was removed your ministry." cat "House" pretty tellme
else
 str "You can't." cat "House" pretty tellme
then
then
else
 str "You can't." cat "House" pretty tellme
then 
;
.
c
q