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
|
||||
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