@program timecube-px.muf
1 10000 d
i
$include $lib/alynna
$include $lib/rps
$include $lib/rps2
$include $lib/rps3
$def COLOR "^RED^(^PURPLE^" "(" subst "^RED^)^ ^" ")" subst
$def COLOR2 "^BLUE^[^PURPLE^" "[" subst "^BLUE^]^ ^" "]" subst
: main
pop
0 array_make_dict var! init 
0 array_make_dict var! init2
var turn

me @ location contents_array foreach var! target pop
 target @ player? target @ thing? target @ "Z" flag? and or if target @ awake? if 0 
   { "name"     target @ name 
     "stat"     target @ "speed" getpokestat
     "speed"    random target @ "speed" getpokestat % ++ dup var! speed
     0 var! reroll
     begin 
     "luck"     random 10 reroll @ + % reroll @ - dup var! luck
                init @ speed @ luck @ + [] not if break else pop pop reroll ++ then
     repeat
     "total"    over 5 pick + dup var! order
     "reroll"   reroll @
   }dict init @ order @ ->[] init !
  then then
repeat
init @ array_count var! tc
init @ foreach swap pop init2 @ tc @ ->[] init2 ! tc -- repeat
"Initiative!  Rolling for turn order (1d[Speed] + [0..9])..." header tellhere
init2 @ foreach turn ! tc !
{
 "^PURPLE^" tc @ intostr 2 rj ") "
 "^WHITE^" turn @ "name" [] 16 lj
 "^YELLOW^" { "Speed[" turn @ "stat" [] "]:(" turn @ "speed" [] ")" }cat 20 lj COLOR COLOR2
 "^GREEN^" { "Luck[" turn @ "reroll" [] "]:(" turn @ "luck" [] ")" }cat 20 lj COLOR COLOR2
 "^CYAN^" { "Total(" turn @ "total" [] ")" }cat 20 lj COLOR
}atell
repeat
"Timecube v1.0" footer tellhere
;
.
c
q