From 03cb4609eb18b0a04578dc91b76f2fd4874f1a2f Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 8 Dec 2023 13:28:59 -0500
Subject: [PATCH] Firelights: Main character info.

---
 .../FirelightsCharacter.class/instance/approaches.st     | 9 +++++++++
 .../FirelightsCharacter.class/instance/name..st          | 3 +++
 .../FirelightsCharacter.class/instance/patient..st       | 3 +++
 .../FirelightsCharacter.class/instance/pronouns..st      | 3 +++
 .../FirelightsCharacter.class/instance/strong..st        | 3 +++
 .../FirelightsGame.class/instance/namesOracle.st         | 2 +-
 .../FirelightsGame.class/instance/randomName.st          | 8 ++++++++
 7 files changed, 30 insertions(+), 1 deletion(-)
 create mode 100644 RoloLudo.package/FirelightsCharacter.class/instance/approaches.st
 create mode 100644 RoloLudo.package/FirelightsCharacter.class/instance/name..st
 create mode 100644 RoloLudo.package/FirelightsCharacter.class/instance/patient..st
 create mode 100644 RoloLudo.package/FirelightsCharacter.class/instance/pronouns..st
 create mode 100644 RoloLudo.package/FirelightsCharacter.class/instance/strong..st
 create mode 100644 RoloLudo.package/FirelightsGame.class/instance/randomName.st

diff --git a/RoloLudo.package/FirelightsCharacter.class/instance/approaches.st b/RoloLudo.package/FirelightsCharacter.class/instance/approaches.st
new file mode 100644
index 0000000..dec6224
--- /dev/null
+++ b/RoloLudo.package/FirelightsCharacter.class/instance/approaches.st
@@ -0,0 +1,9 @@
+accessing
+approaches
+	^ approaches ifNil: [ 
+		approaches := OrderedDictionary new
+			at: 'Strong' put: 0;
+			at: 'Patient'put: 0;
+			at: 'Quick' put: 0;
+			yourself
+	]
\ No newline at end of file
diff --git a/RoloLudo.package/FirelightsCharacter.class/instance/name..st b/RoloLudo.package/FirelightsCharacter.class/instance/name..st
new file mode 100644
index 0000000..0c8a475
--- /dev/null
+++ b/RoloLudo.package/FirelightsCharacter.class/instance/name..st
@@ -0,0 +1,3 @@
+as yet unclassified
+name: aString 
+	name := aString
\ No newline at end of file
diff --git a/RoloLudo.package/FirelightsCharacter.class/instance/patient..st b/RoloLudo.package/FirelightsCharacter.class/instance/patient..st
new file mode 100644
index 0000000..19f5bc9
--- /dev/null
+++ b/RoloLudo.package/FirelightsCharacter.class/instance/patient..st
@@ -0,0 +1,3 @@
+accessing
+patient: anInteger
+	self approaches at: 'Patient' put: anInteger
\ No newline at end of file
diff --git a/RoloLudo.package/FirelightsCharacter.class/instance/pronouns..st b/RoloLudo.package/FirelightsCharacter.class/instance/pronouns..st
new file mode 100644
index 0000000..45656aa
--- /dev/null
+++ b/RoloLudo.package/FirelightsCharacter.class/instance/pronouns..st
@@ -0,0 +1,3 @@
+accessing
+pronouns: aString
+	pronouns := aString
\ No newline at end of file
diff --git a/RoloLudo.package/FirelightsCharacter.class/instance/strong..st b/RoloLudo.package/FirelightsCharacter.class/instance/strong..st
new file mode 100644
index 0000000..23c43e3
--- /dev/null
+++ b/RoloLudo.package/FirelightsCharacter.class/instance/strong..st
@@ -0,0 +1,3 @@
+accessing
+strong: anInteger
+	self approaches at: 'Strong' put: anInteger
\ No newline at end of file
diff --git a/RoloLudo.package/FirelightsGame.class/instance/namesOracle.st b/RoloLudo.package/FirelightsGame.class/instance/namesOracle.st
index 4e1067f..b49dc70 100644
--- a/RoloLudo.package/FirelightsGame.class/instance/namesOracle.st
+++ b/RoloLudo.package/FirelightsGame.class/instance/namesOracle.st
@@ -1,3 +1,3 @@
 accessing
 namesOracle
-	^ SfOracle new
\ No newline at end of file
+	^ SfOracle new loadCharacterNames options
\ No newline at end of file
diff --git a/RoloLudo.package/FirelightsGame.class/instance/randomName.st b/RoloLudo.package/FirelightsGame.class/instance/randomName.st
new file mode 100644
index 0000000..bbc66b8
--- /dev/null
+++ b/RoloLudo.package/FirelightsGame.class/instance/randomName.st
@@ -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.
\ No newline at end of file