Importing truths from JSON and exporting assets to WikiText.

RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiText.st

@@ -0,0 +1,10 @@
+converting
+abilitiesAsWikiText
+	| output |
+	output := '' writeStream.
+	output 
+		nextPutAll: '<ul style="list-style-type:none;">'; cr;
+		nextPutAll: (self abilitiesAsWikiTextFor: self currentAbilities);
+		nextPutAll: (self abilitiesAsWikiTextFor: self pendingAbilities);
+		nextPutAll: '</ul>'.
+	^ output contents

RoloLudo.package/SfAsset.class/instance/abilitiesAsWikiTextFor..st

@@ -0,0 +1,12 @@
+utilities
+abilitiesAsWikiTextFor: abilitiesSubset
+
+	| aStream |
+	aStream := '' writeStream.
+	abilitiesSubset do: [:abi|
+		aStream 
+			nextPutAll: '  <li> ⬢'; cr;
+			nextPutAll: '    ';
+			nextPutAll: abi; cr;
+			nextPutAll: '  </li>'; cr ].
+	^ aStream contents

RoloLudo.package/SfAsset.class/instance/asTiddler.st

@@ -0,0 +1,6 @@
+converting
+asTiddler
+	^ Tiddler new
+		title: self name;
+		tags: 'Starforged ' , self category;
+		text: self abilitiesAsWikiText

RoloLudo.package/SfAsset.class/instance/currentAbilities.st

@@ -0,0 +1,3 @@
+converting
+currentAbilities
+	^ self abilities at: 'enabled'

RoloLudo.package/SfAsset.class/instance/pendingAbilities.st

@@ -0,0 +1,3 @@
+converting
+pendingAbilities
+	^ self abilities at: 'disabled'

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

@@ -0,0 +1,6 @@
+printing
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPutAll: ' ( ' , self name , ' | ';
+		nextPutAll: self category, ' )'

RoloLudo.package/SfTruth.class/instance/character..st

@@ -0,0 +1,3 @@
+accessing
+character: optionsPhrase
+	character := optionsPhrase

RoloLudo.package/SfTruth.class/instance/fromDictionary..st

@@ -0,0 +1,6 @@
+accessing
+fromDictionary: aDictionary
+	name := aDictionary at: 'Name'.
+	character := aDictionary at: 'Character'.
+	(aDictionary at: 'Truths') collect: [:truth | self options add: ((SfTruthOption new fromDictionary: truth))].
+	self refineOptionIntervals.

RoloLudo.package/SfTruth.class/instance/name..st

@@ -0,0 +1,3 @@
+accessing
+name: aString 
+	name := aString

RoloLudo.package/SfTruth.class/instance/name.st

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

RoloLudo.package/SfTruth.class/instance/options..st

@@ -0,0 +1,3 @@
+accessing
+options: anOrderedCollection
+	options := anOrderedCollection

RoloLudo.package/SfTruth.class/instance/options.st

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

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

@@ -0,0 +1,5 @@
+accessing
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPutAll: ' ( ', self name, ' ) '

RoloLudo.package/SfTruth.class/instance/refineOptionIntervals.st

@@ -0,0 +1,13 @@
+accessing
+refineOptionIntervals
+	| endings |
+	endings := self options collect: [:opt | opt chance ].
+	endings doWithIndex: [:end :i | 
+		 
+			(i = 1) 
+			ifTrue: [(self options at: i) chance: (1 to: end)]
+			ifFalse: [
+				(self options at: i) chance: (((endings at: (i-1)) + 1) to: (endings at: i))
+			]
+
+	].

RoloLudo.package/SfTruth.class/properties.json

@@ -0,0 +1,15 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "RoloLudo",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"options",
+		"name",
+		"character"
+	],
+	"name" : "SfTruth",
+	"type" : "normal"
+}

RoloLudo.package/SfTruthExamples.class/instance/emptyTruth.st

@@ -0,0 +1,7 @@
+accessing
+emptyTruth
+	<gtExample>
+	| testSfTruth |
+	testSfTruth := SfTruth new.
+	self assert: testSfTruth isEmpty.
+	^ testSfTruth

RoloLudo.package/SfTruthExamples.class/properties.json

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

RoloLudo.package/SfTruthOption.class/instance/brief..st

@@ -0,0 +1,3 @@
+accessing
+brief: shortText
+	brief := shortText

RoloLudo.package/SfTruthOption.class/instance/brief.st

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

RoloLudo.package/SfTruthOption.class/instance/chance..st

@@ -0,0 +1,3 @@
+accessing
+chance: integerInterval
+	chance := integerInterval

RoloLudo.package/SfTruthOption.class/instance/chance.st

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

RoloLudo.package/SfTruthOption.class/instance/details..st

@@ -0,0 +1,3 @@
+accessing
+details: longerText
+	details := longerText

RoloLudo.package/SfTruthOption.class/instance/fromDictionary..st

@@ -0,0 +1,9 @@
+accessing
+fromDictionary: aDictionary
+	brief := aDictionary at: 'Description'.
+	details := aDictionary at: 'Details'.
+	questStarter := aDictionary at: 'Quest Starter'.
+	subtable := aDictionary at: 'Table' ifAbsent: [ subtable := nil ].
+	"Because of JSON original data this only puts the end of the chance interval.
+	This needs to be refined at 'container' object SfTruth."
+	chance := aDictionary at: 'Chance'

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

@@ -0,0 +1,6 @@
+accessing
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPutAll: ' ( ', self brief, ' )'
+	

RoloLudo.package/SfTruthOption.class/instance/subtable..st

@@ -0,0 +1,3 @@
+accessing
+subtable: aDictionary
+	subtable := aDictionary

RoloLudo.package/SfTruthOption.class/instance/subtable.st

@@ -0,0 +1,3 @@
+accessing
+subtable
+	^ subtable ifNil: [ subtable := OrderedDictionary new]

RoloLudo.package/SfTruthOption.class/properties.json

@@ -0,0 +1,17 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "RoloLudo",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"brief",
+		"details",
+		"subtable",
+		"questStarter",
+		"chance"
+	],
+	"name" : "SfTruthOption",
+	"type" : "normal"
+}