Rolling dice support started.

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

@@ -0,0 +1,3 @@
+accessing
+dice
+	^ dice ifNil: [dice := Array with: (Die with: 6) with: (Die with: 6) ]

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

@@ -0,0 +1,3 @@
+accessing
+roll
+	^ self dice collect: [:each | each roll ]

RoloLudo.package/DicePool.class/properties.json

@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "RoloLudo",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"dice"
+	],
+	"name" : "DicePool",
+	"type" : "normal"
+}

RoloLudo.package/Die.class/class/with..st

@@ -0,0 +1,4 @@
+accessing
+with: anInteger
+	^ self new
+		faces: anInteger 

RoloLudo.package/Die.class/instance/faces..st

@@ -0,0 +1,3 @@
+accessing
+faces: anInteger
+	faces := anInteger

RoloLudo.package/Die.class/instance/faces.st

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

RoloLudo.package/Die.class/instance/roll.st

@@ -0,0 +1,3 @@
+accessing
+roll
+	^ self faces atRandom

RoloLudo.package/Die.class/properties.json

@@ -0,0 +1,13 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "RoloLudo",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"faces"
+	],
+	"name" : "Die",
+	"type" : "normal"
+}

RoloLudo.package/Firelights.class/instance/dice.st

@@ -0,0 +1,3 @@
+accessing
+dice
+	^ dice ifNil: [ dice := DicePool new ]

RoloLudo.package/Firelights.class/instance/loadOraclesFromRepository.st

@@ -0,0 +1,3 @@
+accessing
+loadOraclesFromRepository
+	^ STON fromString: 'https://mutabit.com/repos.fossil/502Lab/raw/f0c299?at=oracles.ston' asUrl retrieveContents utf8Decoded

RoloLudo.package/Firelights.class/instance/oracles.st

@@ -1,3 +1,3 @@
 accessing
 oracles
-	^ oracles ifNil: [ oracles := self loadOraclesFromWikiTemplate]
+	^ oracles ifNil: [ oracles := self loadOraclesFromRepository]

RoloLudo.package/Firelights.class/instance/roll.st

@@ -0,0 +1,3 @@
+accessing
+roll
+	^ self dice roll