Firelights: Character approaches and starting world map.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2023-12-08 14:03:28 -05:00
parent 03cb4609eb
commit 02d36190c2
11 changed files with 46 additions and 0 deletions

View File

@ -0,0 +1,3 @@
accessing
name
^ name

View File

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

View File

@ -0,0 +1,10 @@
accessing
printOn: aStream
super initialize.
aStream
nextPutAll: '- Name: ', self name; cr;
nextPutAll: '- Pronouns: ', self pronouns; cr;
nextPutAll: '- Approaches'; cr;
nextPutAll: ' - Strong: ', self strong asString; cr;
nextPutAll: ' - Patient: ', self patient asString; cr;
nextPutAll: ' - Quick: ', self quick asString; cr

View File

@ -0,0 +1,3 @@
accessing
pronouns
^ pronouns

View File

@ -0,0 +1,3 @@
as yet unclassified
quick: anInteger
self approaches at: 'Quick' put: anInteger.

View File

@ -0,0 +1,3 @@
accessing
quick
^ self approaches at: 'Quick'

View File

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

View File

@ -0,0 +1,6 @@
accessing
uiViewFor: aView
<gtView>
^ aView text
title: 'Character Info';
text: [ self printString ]

View File

@ -0,0 +1,3 @@
accessing
deck
^ deck ifNil: [ deck := DeckOfCards initialize]

View File

@ -0,0 +1,3 @@
accessing
worldMap
^ wordMap ifNil: [ wordMap := OrderedCollection new ]

View File

@ -0,0 +1,6 @@
accessing
worldMapDraw
| currentPlace |
currentPlace := self deck draw.
self worldMap add: currentPlace.
^ currentPlace