blob: f97a827ebfb7b7463f37a229ef4a373df3a20fa6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
Extension { #name : #Integer }
{ #category : #'*Dice' }
Integer >> D20 [
self D: 20
]
{ #category : #'*Dice' }
Integer >> D4 [
^ self D: 4
]
{ #category : #'*Dice' }
Integer >> D6 [
^ self D: 6
]
{ #category : #'*Dice' }
Integer >> D: anInteger [
| handle |
handle := DieHandle new.
self timesRepeat: [ handle addDie: (Die withFaces: anInteger) ].
^ handle
]
|
