Firelights: Main character info.
This commit is contained in:
parent
7c454b41c2
commit
03cb4609eb
@ -0,0 +1,9 @@
|
|||||||
|
accessing
|
||||||
|
approaches
|
||||||
|
^ approaches ifNil: [
|
||||||
|
approaches := OrderedDictionary new
|
||||||
|
at: 'Strong' put: 0;
|
||||||
|
at: 'Patient'put: 0;
|
||||||
|
at: 'Quick' put: 0;
|
||||||
|
yourself
|
||||||
|
]
|
@ -0,0 +1,3 @@
|
|||||||
|
as yet unclassified
|
||||||
|
name: aString
|
||||||
|
name := aString
|
@ -0,0 +1,3 @@
|
|||||||
|
accessing
|
||||||
|
patient: anInteger
|
||||||
|
self approaches at: 'Patient' put: anInteger
|
@ -0,0 +1,3 @@
|
|||||||
|
accessing
|
||||||
|
pronouns: aString
|
||||||
|
pronouns := aString
|
@ -0,0 +1,3 @@
|
|||||||
|
accessing
|
||||||
|
strong: anInteger
|
||||||
|
self approaches at: 'Strong' put: anInteger
|
@ -1,3 +1,3 @@
|
|||||||
accessing
|
accessing
|
||||||
namesOracle
|
namesOracle
|
||||||
^ SfOracle new
|
^ SfOracle new loadCharacterNames options
|
@ -0,0 +1,8 @@
|
|||||||
|
accessing
|
||||||
|
randomName
|
||||||
|
| response|
|
||||||
|
response := self namesOracle.
|
||||||
|
^ {'Given name' -> (response at: 'givenNames') atRandom.
|
||||||
|
'callsign' -> (response at: 'callsigns') atRandom.
|
||||||
|
'Familiy name' -> (response at: 'familyNames') atRandom.
|
||||||
|
} asDictionary.
|
Loading…
Reference in New Issue
Block a user