Renaming before introducing characters and world map.

RoloLudo.package/DicePool.class/instance/uiDiceFor..st

@@ -1,12 +1,14 @@
 accessing
 uiDiceFor: aView
 	<gtView>
-	| response currentRoll |
+	| response currentRoll dicePool |
 	response := '' writeStream.
 	currentRoll := self roll.
+	dicePool := self dice collect: [:each | each faces ].
 	response
-		nextPutAll: 'Rolls: ', currentRoll printString; cr;
-		nextPutAll: 'Sums: ', currentRoll sum asString.
+		nextPutAll: 'Dice: ', dicePool printString ; cr;
+		nextPutAll: 'Roll: ', currentRoll printString; cr;
+		nextPutAll: 'Sum: ', currentRoll sum asString.
 	^ aView text
 		title: 'Dice';
 		text: [ response contents  ]

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

@@ -0,0 +1,5 @@
+accessing
+queryOracles
+	| currentRoll |
+	currentRoll := self roll.
+	^ self oracles detect: [ :each | (each at: 'dice') = currentRoll ] ifNone: [ ^ currentRoll ]

RoloLudo.package/FirelightsGame.class/properties.json

@@ -12,6 +12,6 @@
 		"oracles",
 		"wiki"
 	],
-	"name" : "Firelights",
+	"name" : "FirelightsGame",
 	"type" : "normal"
 }