Starting main character creation.

RoloLudo.package/FirelightsCharacter.class/properties.json

@@ -0,0 +1,16 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "RoloLudo",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"name",
+		"pronouns",
+		"relics",
+		"approaches"
+	],
+	"name" : "FirelightsCharacter",
+	"type" : "normal"
+}

RoloLudo.package/FirelightsGame.class/instance/characters.st

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

RoloLudo.package/FirelightsGame.class/instance/namesOracle.st

@@ -0,0 +1,3 @@
+accessing
+namesOracle
+	^ SfOracle new

RoloLudo.package/FirelightsGame.class/instance/newMainCharacter.st

@@ -0,0 +1,4 @@
+accessing
+newMainCharacter
+	self characters ifEmpty: [ self characters add: FirelightsCharacter new].
+	^ self characters first.

RoloLudo.package/FirelightsGame.class/properties.json

@@ -10,7 +10,8 @@
 		"dice",
 		"wordMap",
 		"oracles",
-		"wiki"
+		"wiki",
+		"characters"
 	],
 	"name" : "FirelightsGame",
 	"type" : "normal"

RoloLudo.package/SfOracle.class/instance/fromRepository.st

@@ -0,0 +1,3 @@
+accessing
+fromRepository
+	^ STONJSON fromString: 'https://raw.githubusercontent.com/rsek/dataforged/main/src/starforged/oracles.json' asUrl retrieveContents

RoloLudo.package/SfOracle.class/instance/loadCharacterNames.st

@@ -0,0 +1,14 @@
+accessing
+loadCharacterNames
+	| dataSlice response |
+	dataSlice := (self fromRepository second at: 'Oracles') sixth.
+	self name: (dataSlice at: 'Display' at: 'Title').
+	self intro: (dataSlice at: 'Description').
+	response := OrderedDictionary new.
+	#('givenNames' 'callsigns' 'familyNames') doWithIndex: [ :key :i |
+		response 
+			at: key
+			put: ((((dataSlice at: 'Oracles') at: i) at: 'Table') collect: [ :each | each at: 'Result' ]).
+	].
+	self options: response.
+	^ self

RoloLudo.package/SfOracle.class/instance/printOn..st

@@ -1,5 +1,7 @@
 accessing
 printOn: aStream
+	| currentName |
+	currentName := self name ifNil: ['Unammed'].
 	super printOn: aStream.
 	aStream
-		nextPutAll: '( ', self name, ' )'.
+		nextPutAll: '( ', currentName, ' )'.