@program #4173
1 1000 d
i
( Legacy stuff )
$def pcheck me @ swap #1249 "have-package?" call
$def rpsys "$rpsystem" match
$include #2123
$include $lib/rp
$include $lib/alynna
lvar target    
lvar result    
lvar roll1 
lvar roll2 
lvar roll4
lvar roll3 
lvar fumbles 
lvar crits 
lvar succs 
lvar repeat 
lvar temp
lvar bonusstat
lvar entered 
lvar dice
lvar max
lvar curr
lvar toggle
lvar private
lvar message
lvar modulous
: main 
dup entered !
me @ swap roller succs !
str
 "^RED^<^GREEN^Dice/Official^RED^>^NORMAL^ " 
 me @ " rolls ^CYAN^" entered @ "^NORMAL^ and scores ^YELLOW^"
 succs @ crits @ + fumbles @ - private @ target @ / +
 "^NORMAL^ successes."
cat tellhere 
str "Dice: ^GREEN^" me @ "lastrolled" getstat "^NORMAL^" cat tellme
;
.
c
q