@program stomp.muf
1 1000 d
i
$include $lib/alynna
$def Dinosorceror #125
lvar param

: main
param !
param @ not if
 { "Stomper: stomp <target>" }cat tellme
 exit
then

param @ resolve var! target

target @ int 0 < if
 { "I cant figure out who the heck that is!" }cat tellme
 exit
then


me @ pennies 5 < if
 { "You dont have enough pennies to stomp anyone!" }cat tellme
 exit
then

random 5 % ++ var! stompcost
me @ 0 stompcost @ - addpennies
target @ stompcost @ addpennies
{ me @ " stomps " target @ "!  " target @ " caught " stompcost @ " kruft!" }cat tellhere
;
.
c
q