diff --git a/RoloLudo.package/LudoBot.class/README.md b/RoloLudo.package/LudoBot.class/README.md
index e69de29..c3a88a2 100644
--- a/RoloLudo.package/LudoBot.class/README.md
+++ b/RoloLudo.package/LudoBot.class/README.md
@@ -0,0 +1 @@
+I model a simple bot to automatize some tasks related with rolling oracles, character creation and playin in general.
\ No newline at end of file
diff --git a/RoloLudo.package/LudoBot.class/class/newRandomPlayerCharacter.st b/RoloLudo.package/LudoBot.class/instance/newRandomPlayerCharacter.st
similarity index 56%
rename from RoloLudo.package/LudoBot.class/class/newRandomPlayerCharacter.st
rename to RoloLudo.package/LudoBot.class/instance/newRandomPlayerCharacter.st
index 626f8d6..805f1b8 100644
--- a/RoloLudo.package/LudoBot.class/class/newRandomPlayerCharacter.st
+++ b/RoloLudo.package/LudoBot.class/instance/newRandomPlayerCharacter.st
@@ -1,7 +1,9 @@
 accessing
 newRandomPlayerCharacter
 	^ SfPlayerCharacter new
-		momentum;
+		momentum: 2;
+		maxMomentum: 10;
+		momentumReset: 2;
 		health: 5;
 		spirit: 5;
 		supply: 5.
\ No newline at end of file
diff --git a/RoloLudo.package/LudoBot.class/instance/rollDice.st b/RoloLudo.package/LudoBot.class/instance/rollDice.st
new file mode 100644
index 0000000..11e0355
--- /dev/null
+++ b/RoloLudo.package/LudoBot.class/instance/rollDice.st
@@ -0,0 +1,11 @@
+accessing
+rollDice
+	"For the moment, I will model a dice roll in Ironsworn Starforged.
+	A more abstract vocabulary should be deviced allowing the roll of 
+	dice pool"	
+			
+	^ OrderedDictionary new
+	 	at: 'challenge die (1):' put: 10 atRandom;  
+	 	at: 'action die:' put: 6 atRandom;
+	 	at: 'challenge die (2):' put:  10 atRandom;
+	 	yourself.
\ No newline at end of file
diff --git a/RoloLudo.package/LudoBot.class/properties.json b/RoloLudo.package/LudoBot.class/properties.json
index 2466221..bf98e1e 100644
--- a/RoloLudo.package/LudoBot.class/properties.json
+++ b/RoloLudo.package/LudoBot.class/properties.json
@@ -1,5 +1,5 @@
 {
-	"commentStamp" : "",
+	"commentStamp" : "<historical>",
 	"super" : "Object",
 	"category" : "RoloLudo",
 	"classinstvars" : [ ],
diff --git a/RoloLudo.package/SfOracle.class/instance/fromDictionary..st b/RoloLudo.package/SfOracle.class/instance/fromDictionary..st
index c4e407a..b5f081e 100644
--- a/RoloLudo.package/SfOracle.class/instance/fromDictionary..st
+++ b/RoloLudo.package/SfOracle.class/instance/fromDictionary..st
@@ -1,7 +1,8 @@
 accessing
 fromDictionary: aDictionary
 	| optionsTable |
-	name := aDictionary at: 'Name' ifAbsent: [ name := aDictionary at: 'Display name' ]. 
+	name := aDictionary at: 'Name' ifAbsent: [ name := aDictionary at: 'Display name' ].
+	intro := aDictionary at: 'Description'.
 	optionsTable := aDictionary at: 'Table'.
 	optionsTable doWithIndex: [:opt :i | | key value prevKey | 
 		(i = 1) 
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/edge..st b/RoloLudo.package/SfPlayerCharacter.class/instance/edge..st
new file mode 100644
index 0000000..7543762
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/edge..st
@@ -0,0 +1,4 @@
+accessing
+edge: anRagedInteger
+	"Edge: Quickness, agility, and prowess when fighting at a distance"
+	edge := anRagedInteger
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/edge.st b/RoloLudo.package/SfPlayerCharacter.class/instance/edge.st
new file mode 100644
index 0000000..cf98a74
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/edge.st
@@ -0,0 +1,4 @@
+accessing
+edge
+
+	^ edge
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/heart..st b/RoloLudo.package/SfPlayerCharacter.class/instance/heart..st
new file mode 100644
index 0000000..5f231b9
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/heart..st
@@ -0,0 +1,4 @@
+accessing
+heart: integerBetween1and3
+	"Heart: Courage, willpower, empathy, sociability, and loyalty"
+	heart := integerBetween1and3
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/heart.st b/RoloLudo.package/SfPlayerCharacter.class/instance/heart.st
new file mode 100644
index 0000000..6757b07
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/heart.st
@@ -0,0 +1,4 @@
+accessing
+heart
+
+	^ heart
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/iron..st b/RoloLudo.package/SfPlayerCharacter.class/instance/iron..st
new file mode 100644
index 0000000..fb9775a
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/iron..st
@@ -0,0 +1,4 @@
+accessing
+iron: integerBetween1and3
+	"Iron: Physical strength, endurance, aggressiveness, and prowess when fighting at close quarters"
+	iron := integerBetween1and3
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/iron.st b/RoloLudo.package/SfPlayerCharacter.class/instance/iron.st
new file mode 100644
index 0000000..446adc6
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/iron.st
@@ -0,0 +1,4 @@
+accessing
+iron
+
+	^ iron
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/maxMomentum..st b/RoloLudo.package/SfPlayerCharacter.class/instance/maxMomentum..st
new file mode 100644
index 0000000..e52c674
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/maxMomentum..st
@@ -0,0 +1,4 @@
+accessing
+maxMomentum: anObject
+
+	maxMomentum := anObject
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/maxMomentum.st b/RoloLudo.package/SfPlayerCharacter.class/instance/maxMomentum.st
new file mode 100644
index 0000000..f478f1e
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/maxMomentum.st
@@ -0,0 +1,4 @@
+accessing
+maxMomentum
+
+	^ maxMomentum
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/momentum..st b/RoloLudo.package/SfPlayerCharacter.class/instance/momentum..st
index f0808d8..398e1c6 100644
--- a/RoloLudo.package/SfPlayerCharacter.class/instance/momentum..st
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/momentum..st
@@ -1,4 +1,4 @@
 accessing
-momentum: anObject
+momentum: anInteger
 
-	momentum := anObject
\ No newline at end of file
+	momentum := anInteger
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/momentum.st b/RoloLudo.package/SfPlayerCharacter.class/instance/momentum.st
index 2effe5e..98aa584 100644
--- a/RoloLudo.package/SfPlayerCharacter.class/instance/momentum.st
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/momentum.st
@@ -1,8 +1,3 @@
 accessing
 momentum
-	^ momentum ifNil: [ 
-		momentum := Dictionary new
-			at: 'max' put: 10;
-			at: 'reset' put: 2;
-			at: 'current' put: 2. 
-	]
\ No newline at end of file
+	^ momentum
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/momentumReset..st b/RoloLudo.package/SfPlayerCharacter.class/instance/momentumReset..st
new file mode 100644
index 0000000..8dea78f
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/momentumReset..st
@@ -0,0 +1,4 @@
+accessing
+momentumReset: anObject
+
+	momentumReset := anObject
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/momentumReset.st b/RoloLudo.package/SfPlayerCharacter.class/instance/momentumReset.st
new file mode 100644
index 0000000..d28e971
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/momentumReset.st
@@ -0,0 +1,4 @@
+accessing
+momentumReset
+
+	^ momentumReset
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/shadow..st b/RoloLudo.package/SfPlayerCharacter.class/instance/shadow..st
new file mode 100644
index 0000000..f0a4698
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/shadow..st
@@ -0,0 +1,4 @@
+accessing
+shadow: integerBetween1And3
+	"Shadow: Sneakiness, deceptiveness, and cunning"
+	shadow := integerBetween1And3
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/shadow.st b/RoloLudo.package/SfPlayerCharacter.class/instance/shadow.st
new file mode 100644
index 0000000..87020ac
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/shadow.st
@@ -0,0 +1,4 @@
+accessing
+shadow
+
+	^ shadow
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/stats..st b/RoloLudo.package/SfPlayerCharacter.class/instance/stats..st
deleted file mode 100644
index 224e130..0000000
--- a/RoloLudo.package/SfPlayerCharacter.class/instance/stats..st
+++ /dev/null
@@ -1,4 +0,0 @@
-accessing
-stats: anObject
-
-	stats := anObject
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/stats.st b/RoloLudo.package/SfPlayerCharacter.class/instance/stats.st
index 392c1c4..3d06598 100644
--- a/RoloLudo.package/SfPlayerCharacter.class/instance/stats.st
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/stats.st
@@ -1,4 +1,12 @@
 accessing
 stats
 
-	^ stats
\ No newline at end of file
+	^ Dictionary new 
+			addAll: {
+				'Edge' -> self edge .
+				'Heart' -> self heart.
+				'Iron' -> self iron.
+				'Shadow' -> self shadow.
+				'Wits' -> self wits
+			};
+			yourself 
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/vows..st b/RoloLudo.package/SfPlayerCharacter.class/instance/vows..st
index 7ea3b1f..eeac0f8 100644
--- a/RoloLudo.package/SfPlayerCharacter.class/instance/vows..st
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/vows..st
@@ -1,4 +1,4 @@
 accessing
-vows: anObject
+vows: aDictionary
 
-	vows := anObject
\ No newline at end of file
+	vows := aDictionary
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/wits..st b/RoloLudo.package/SfPlayerCharacter.class/instance/wits..st
new file mode 100644
index 0000000..5cc1548
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/wits..st
@@ -0,0 +1,4 @@
+accessing
+wits: aRangedInteger
+	"Wits: Expertise, knowledge, and observation"
+	wits := aRangedInteger
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/instance/wits.st b/RoloLudo.package/SfPlayerCharacter.class/instance/wits.st
new file mode 100644
index 0000000..8c00890
--- /dev/null
+++ b/RoloLudo.package/SfPlayerCharacter.class/instance/wits.st
@@ -0,0 +1,4 @@
+accessing
+wits
+
+	^ wits
\ No newline at end of file
diff --git a/RoloLudo.package/SfPlayerCharacter.class/properties.json b/RoloLudo.package/SfPlayerCharacter.class/properties.json
index 73864bd..9274c33 100644
--- a/RoloLudo.package/SfPlayerCharacter.class/properties.json
+++ b/RoloLudo.package/SfPlayerCharacter.class/properties.json
@@ -10,12 +10,18 @@
 		"pronouns",
 		"callsign",
 		"assets",
-		"stats",
+		"edge",
+		"heart",
+		"iron",
+		"shadow",
+		"wits",
 		"vows",
-		"momentum",
 		"health",
 		"spirit",
-		"supply"
+		"supply",
+		"momentum",
+		"momentumReset",
+		"maxMomentum"
 	],
 	"name" : "SfPlayerCharacter",
 	"type" : "normal"