Firelights: Main character info.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-12-08 13:28:59 -05:00
parent 7c454b41c2
commit 03cb4609eb
7 changed files with 30 additions and 1 deletions

View File

@ -0,0 +1,9 @@
accessing
approaches
^ approaches ifNil: [
approaches := OrderedDictionary new
at: 'Strong' put: 0;
at: 'Patient'put: 0;
at: 'Quick' put: 0;
yourself
]

View File

@ -0,0 +1,3 @@
as yet unclassified
name: aString
name := aString

View File

@ -0,0 +1,3 @@
accessing
patient: anInteger
self approaches at: 'Patient' put: anInteger

View File

@ -0,0 +1,3 @@
accessing
pronouns: aString
pronouns := aString

View File

@ -0,0 +1,3 @@
accessing
strong: anInteger
self approaches at: 'Strong' put: anInteger

View File

@ -1,3 +1,3 @@
accessing accessing
namesOracle namesOracle
^ SfOracle new ^ SfOracle new loadCharacterNames options

View File

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