@program timecube.ffa2rps.muf 1 10000 d i $include $lib/alynna $include $lib/rp $def COLOR "^RED^(^PURPLE^" "(" subst "^RED^)^ ^" ")" subst $def COLOR2 "^BLUE^[^PURPLE^" "[" subst "^BLUE^]^ ^" "]" subst : main pop 0 array_make_dict var! init1 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 { "name" target @ name "stat" target @ init toint dup var! stat 0 var! reroll begin "luck" random 12 % ++ dup var! luck init1 @ stat @ luck @ + [] not if break else pop pop reroll ++ then repeat "total" over 5 pick + dup var! order "reroll" reroll @ }dict init1 @ order @ ->[] init1 ! then then repeat init1 @ array_count var! tc init1 @ foreach swap pop init2 @ tc @ ->[] init2 ! tc -- repeat "Initiative! Rolling for turn order ([init] + [1d12])..." header tellhere init2 @ foreach turn ! tc ! { "^PURPLE^" tc @ intostr 2 rj ") " "^WHITE^" turn @ "name" [] 16 lj "^YELLOW^" { "Init(" turn @ "stat" [] ")" }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