REBOL[Title: "Yahtzee"]

random/seed now
num: 0
roll:  func["Roll a die"  dienum [word!] "die number" /local die][
	die: get to-word :dienum
	if die/edge/color <> red [
		img: rejoin["dice" (random 6) ".jpg"]
		die/image: load to-file img show die
	]]
swap: func["Swap the colors"  dienum [word!] "die number" /local die][
	die: get to-word :dienum
	if num > 0 [either die/edge/color = red [die/edge/color: 110.120.130][die/edge/color: red] show die]
]
view layout[
	backdrop 239.235.222
	origin space 4x4 across
	text "Roll Number:"	rn: text "0" return
	d1: button %"dice1.jpg" 55x55 [swap 'd1]
	d2: button %"dice2.jpg" 55x55 [swap 'd2]
	d3: button %"dice3.jpg" 55x55 [swap 'd3]
	d4: button %"dice4.jpg" 55x55 [swap 'd4]
	d5: button %"dice5.jpg" 55x55 [swap 'd5]
	return
	b: button "Roll" [
		if num < 3[
			rn/text: num: num + 1 show rn
			roll 'd1 roll 'd2 roll 'd3 roll 'd4 roll 'd5
		]]
	button "Restart"[rn/text: num: 0 show rn
		d1/edge/color: d2/edge/color: d3/edge/color: d4/edge/color: d5/edge/color: 110.120.130 
		show d1 show d2 show d3 show d4 show d5
	]
]