accessing
roll
	| diceRoll |
	diceRoll := 100 atRandom.
	self options keysAndValuesDo: [:k :v |
		(k includes: diceRoll) ifTrue: [ ^ v ]
	]