;
; PICAXE Water Cup School Electronics Program Code 
; Chip: PICAXE-08MLE2
;
;
; I don't even know what to classify this code in the pastebin syntax highlighter as. #firstworldproblems
;
;

low 0
low 1
low 2
low 4
b4 = 1
b8 = 50
gosub setinterrupt

selector:
if b4 = 1 then gosub mode_dice
if b4 = 2 then gosub mode_w_increment
if b4 = 3 then gosub mode_flash
if b4 = 4 then gosub mode_still
if b4 = 5 then gosub mode_random
goto selector

mode_dice:
random w0
for b5 = 1 to 5
gosub mode_w_increment
next
if b1 > 210 then let pins = %10011
elseif b1 > 168 then let pins = %10110
elseif b1 > 126 then let pins = %10010
elseif b1 > 84 then let pins = %10100
elseif b1 > 42 then let pins = %10000
else let pins = %00100 endif
wait 5
return

mode_w_increment:
let pins = %00100
pause b8
mode_increment:
let pins = %00101
pause b8
let pins = %10100
pause b8
let pins = %00110
pause b8
let pins = %00101
pause b8
let pins = %10100
pause b8
let pins = %00110
pause b8
return

mode_flash:
let pins = %10110
pause b8
let pins = %00000
pause b8
return

mode_still:
let pins = %10111
return

mode_random:
random w3
w4 = w3 // 2
if w4 = 0 then
random w6
w7 = w6 // 2
if w7 = 0 then
	b8 = 100
gosub mode_w_increment
b8 = 50
else
gosub mode_w_increment
endif
elseif w4 = 1 then
for b5 = 1 to 5
gosub mode_flash
next
endif
sleep 1
return

interrupt:
inc b4
gosub setinterrupt
if b4 = 6 then let b4 = 1 endif
pause b8
return

setinterrupt:
setint %01000, %01000
return