RoloLudo/RoloLudo.package/SfOracle.class/instance/roll.st

7 lines
139 B
Smalltalk
Raw Normal View History

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