Testing changes in the repository.
This commit is contained in:
parent
9f8556bfa3
commit
ada2d9c5d2
@ -1,4 +0,0 @@
|
||||
accessing
|
||||
abilities: abilitiesDictionary
|
||||
"Keys are 'enabled' and 'disbled' and both contain arrays of text with abities."
|
||||
abilities := abilitiesDictionary
|
||||
@ -1,6 +0,0 @@
|
||||
accessing
|
||||
abilities
|
||||
^ abilities ifNil: [ abilities := Dictionary new
|
||||
at: 'enabled' put: OrderedCollection new;
|
||||
at: 'disabled' put: OrderedCollection new;
|
||||
yourself ]
|
||||
@ -1,10 +0,0 @@
|
||||
converting
|
||||
abilitiesAsWikiText
|
||||
| output |
|
||||
output := '' writeStream.
|
||||
output
|
||||
nextPutAll: '<ul style="list-style-type:none;">'; lf;
|
||||
nextPutAll: (self abilitiesAsWikiTextFor: self currentAbilities marked: '⬢');
|
||||
nextPutAll: (self abilitiesAsWikiTextFor: self pendingAbilities marked: '⬡');
|
||||
nextPutAll: '</ul>'.
|
||||
^ output contents
|
||||
@ -1,12 +0,0 @@
|
||||
utilities
|
||||
abilitiesAsWikiTextFor: abilitiesSubset marked: unicodeSymbol
|
||||
|
||||
| aStream |
|
||||
aStream := '' writeStream.
|
||||
abilitiesSubset do: [:abi|
|
||||
aStream
|
||||
nextPutAll: ' <li> ', unicodeSymbol ; cr;
|
||||
nextPutAll: ' ';
|
||||
nextPutAll: abi; cr;
|
||||
nextPutAll: ' </li>'; cr ].
|
||||
^ aStream contents
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
asJsonTiddler
|
||||
^ self asTiddler asJson
|
||||
@ -1,7 +0,0 @@
|
||||
converting
|
||||
asTiddler
|
||||
^ Tiddler new
|
||||
title: self name;
|
||||
tags: 'Starforged ' , self category;
|
||||
text: self abilitiesAsWikiText;
|
||||
created: DateAndTime now asString.
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
category: anObject
|
||||
category := anObject
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
category
|
||||
^ category
|
||||
@ -1,3 +0,0 @@
|
||||
converting
|
||||
currentAbilities
|
||||
^ self abilities at: 'enabled'
|
||||
@ -1,6 +0,0 @@
|
||||
accessing
|
||||
fromDictionary: aDictionary
|
||||
name := aDictionary at: #Name.
|
||||
category := aDictionary at: #Category.
|
||||
abilities := self populateAbilities: (aDictionary at: #Abilities)
|
||||
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
language: anObject
|
||||
language := anObject
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
language
|
||||
^ language
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
name: anObject
|
||||
name := anObject
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
name
|
||||
^ name
|
||||
@ -1,3 +0,0 @@
|
||||
converting
|
||||
pendingAbilities
|
||||
^ self abilities at: 'disabled'
|
||||
@ -1,10 +0,0 @@
|
||||
accessing
|
||||
populateAbilities: abilitiesDictionary
|
||||
|
||||
| enabled disabled |
|
||||
enabled := abilitiesDictionary select: [ :abi | abi keys includes: 'Enabled' ].
|
||||
disabled := abilitiesDictionary reject: [ :abi | abi keys includes: 'Enabled' ].
|
||||
^ self abilities
|
||||
at: 'enabled' put: (enabled collect: [:abi | (abi at: 'Text') ]);
|
||||
at: 'disabled' put: (disabled collect: [:abi | (abi at: 'Text') ]);
|
||||
yourself.
|
||||
@ -1,6 +0,0 @@
|
||||
printing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: ' ( ' , self name , ' | ';
|
||||
nextPutAll: self category, ' )'
|
||||
@ -1,4 +0,0 @@
|
||||
accessing
|
||||
translations: translationsDictory
|
||||
"Keys are ISO two letters language codes and values are the names of the asset in such language."
|
||||
translations := translationsDictory
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
translations
|
||||
^ translations
|
||||
@ -1,8 +0,0 @@
|
||||
accessing
|
||||
fromUrlString: aString language: isoCode
|
||||
|
||||
| rawData |
|
||||
rawData := STON fromString: aString asUrl retrieveContents.
|
||||
self items: ((rawData at: 'Assets') collect: [:assetDict |
|
||||
SfAsset new fromDictionary: assetDict; language: isoCode ])
|
||||
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
items: anObject
|
||||
items := anObject
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
items
|
||||
^ items ifNil: [ items := OrderedCollection ]
|
||||
@ -1,7 +0,0 @@
|
||||
accessing
|
||||
asTiddler
|
||||
^ Tiddler new
|
||||
title: self name;
|
||||
tags: 'Starforged ' ,'[[', self category,']]';
|
||||
text: self text;
|
||||
created: DateAndTime now asString.
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
category
|
||||
^ category
|
||||
@ -1,8 +0,0 @@
|
||||
accessing
|
||||
fromDictionary: aDictionary
|
||||
| tempText |
|
||||
tempText := (WikiText new content: (aDictionary at: 'Text')) convertMarkdownBold; convertMarkdownLinks.
|
||||
category := aDictionary at: 'Category'.
|
||||
name := aDictionary at: 'Name'.
|
||||
text := tempText content.
|
||||
(aDictionary includesKey: 'Progress Move') ifTrue: [ self progress: true ]
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
name
|
||||
^ name
|
||||
@ -1,4 +0,0 @@
|
||||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream nextPutAll: '( ', self name, ' ) '.
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
progress: aBoolean
|
||||
progress := aBoolean
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
progress
|
||||
^ progress
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
text
|
||||
^ text
|
||||
@ -1,7 +0,0 @@
|
||||
accessing
|
||||
asTiddler
|
||||
^ Tiddler new
|
||||
title: self name;
|
||||
tags: 'Starforged';
|
||||
text: self intro, String lf, String lf, self optionsWikiTextTable;
|
||||
created: DateAndTime now asString.
|
||||
@ -1,15 +0,0 @@
|
||||
accessing
|
||||
fromDictionary: aDictionary
|
||||
| optionsTable |
|
||||
name := aDictionary at: 'Name'.
|
||||
optionsTable := aDictionary at: 'Table'.
|
||||
optionsTable doWithIndex: [:opt :i | | key value prevKey |
|
||||
(i = 1)
|
||||
ifTrue: [key := 1 to: (opt at: 'Chance') asInteger]
|
||||
ifFalse: [
|
||||
prevKey := ((optionsTable at: (i-1)) at: 'Chance').
|
||||
key := (prevKey asInteger + 1) to: (opt at: 'Chance') asInteger.
|
||||
].
|
||||
value := (opt at: 'Description') capitalized.
|
||||
self options at: key put: value .
|
||||
].
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
intro: longerText
|
||||
intro := longerText
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
intro
|
||||
^ intro
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
name: shortText
|
||||
name := shortText
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
name
|
||||
^ name
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
options: anOrderedDictionary
|
||||
options := anOrderedDictionary
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
options
|
||||
^ options ifNil: [ options := OrderedDictionary new ]
|
||||
@ -1,10 +0,0 @@
|
||||
accessing
|
||||
optionsWikiTextTable
|
||||
| output |
|
||||
output := '' writeStream.
|
||||
self options keysAndValuesDo: [:k :v |
|
||||
output
|
||||
nextPutAll: '| ', k first asString, ' - ', k last asString, ' |';
|
||||
nextPutAll: v, ' |'; cr
|
||||
].
|
||||
^ output contents
|
||||
@ -1,5 +0,0 @@
|
||||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: '( ', self name, ' )'.
|
||||
@ -1,7 +0,0 @@
|
||||
accessing
|
||||
roll
|
||||
| diceRoll |
|
||||
diceRoll := 100 atRandom.
|
||||
self options keysAndValuesDo: [:k :v |
|
||||
(k includes: diceRoll) ifTrue: [ ^ v ]
|
||||
]
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
asJson
|
||||
^ STONJSON toStringPretty: (self asTiddlers collect: [:each | each asDictionary]) asArray
|
||||
@ -1,23 +0,0 @@
|
||||
accessing
|
||||
asTiddlers
|
||||
| tiddlers transcluderText transcluder |
|
||||
tiddlers := OrderedCollection new.
|
||||
transcluderText := '' writeStream.
|
||||
self options doWithIndex: [:opt :i | | tiddler |
|
||||
tiddler := Tiddler new
|
||||
title: self name, 'Option', i asString;
|
||||
text: opt asWikiText;
|
||||
created: DateAndTime now asString.
|
||||
transcluderText nextPutAll: '{{', tiddler title, '}}'; cr; cr.
|
||||
tiddlers add: tiddler.
|
||||
].
|
||||
transcluderText
|
||||
nextPutAll: '----'; cr;
|
||||
nextPutAll: '👤 ', self character.
|
||||
transcluder := Tiddler new
|
||||
title: self name;
|
||||
tags: 'Starforged Truths';
|
||||
text: transcluderText contents;
|
||||
created: DateAndTime now asString.
|
||||
tiddlers add: transcluder.
|
||||
^ tiddlers
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
character: optionsPhrase
|
||||
character := optionsPhrase
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
character
|
||||
^ character
|
||||
@ -1,6 +0,0 @@
|
||||
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.
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
name: aString
|
||||
name := aString
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
name
|
||||
^ name
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
options: anOrderedCollection
|
||||
options := anOrderedCollection
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
options
|
||||
^ options ifNil: [ options := OrderedCollection new ]
|
||||
@ -1,5 +0,0 @@
|
||||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: ' ( ', self name, ' ) '
|
||||
@ -1,13 +0,0 @@
|
||||
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))
|
||||
]
|
||||
|
||||
].
|
||||
@ -1,7 +0,0 @@
|
||||
accessing
|
||||
emptyTruth
|
||||
<gtExample>
|
||||
| testSfTruth |
|
||||
testSfTruth := SfTruth new.
|
||||
self assert: testSfTruth isEmpty.
|
||||
^ testSfTruth
|
||||
@ -1,19 +0,0 @@
|
||||
accessing
|
||||
asWikiText
|
||||
| stream |
|
||||
stream := '' writeStream.
|
||||
stream
|
||||
nextPutAll: '<b>';
|
||||
nextPutAll: self chance first asString, '-', self chance last asString;
|
||||
nextPutAll: ' | ', self brief;
|
||||
nextPutAll: '</b>'; cr;
|
||||
nextPutAll: String cr;
|
||||
nextPutAll: self details;
|
||||
nextPutAll: String cr;
|
||||
nextPutAll: self subtableAsWikiText.
|
||||
stream
|
||||
nextPutAll: String cr;
|
||||
nextPutAll: '<$details summary="Quest Starter">'; cr;
|
||||
nextPutAll: '//', self questStarter, '//'; cr;
|
||||
nextPutAll: '</$details>'.
|
||||
^ stream contents
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
brief: shortText
|
||||
brief := shortText
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
brief
|
||||
^ brief
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
chance: integerInterval
|
||||
chance := integerInterval
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
chance
|
||||
^ chance
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
details: longerText
|
||||
details := longerText
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
details
|
||||
^ details
|
||||
@ -1,9 +0,0 @@
|
||||
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'
|
||||
@ -1,6 +0,0 @@
|
||||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: ' ( ', self brief, ' )'
|
||||
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
questStarter
|
||||
^ questStarter
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
subtable: aDictionary
|
||||
subtable := aDictionary
|
||||
@ -1,3 +0,0 @@
|
||||
accessing
|
||||
subtable
|
||||
^ subtable ifNil: [ subtable := OrderedDictionary new]
|
||||
@ -1,10 +0,0 @@
|
||||
accessing
|
||||
subtableAsWikiText
|
||||
| stream chances |
|
||||
stream := '' writeStream.
|
||||
self subtable ifEmpty: [ ^ stream contents ].
|
||||
chances := self subtable collect: [ :each | each at: 'Chance' ].
|
||||
chances doWithIndex: [:ch :i |
|
||||
stream nextPutAll: '| ', ch asString, ' |', ((self subtable at: i) at: 'Description'), ' |' ; cr
|
||||
].
|
||||
^ stream contents
|
||||
Loading…
Reference in New Issue
Block a user