Synchronizing local changes after getting "Detached..." warning at Iceberg.
This commit is contained in:
parent
dbe6d3fc10
commit
611f94a7c6
|
|
@ -4,7 +4,7 @@ abilitiesAsWikiText
|
|||
output := '' writeStream.
|
||||
output
|
||||
nextPutAll: '<ul style="list-style-type:none;">'; cr;
|
||||
nextPutAll: (self abilitiesAsWikiTextFor: self currentAbilities);
|
||||
nextPutAll: (self abilitiesAsWikiTextFor: self pendingAbilities);
|
||||
nextPutAll: (self abilitiesAsWikiTextFor: self currentAbilities marked: '⬢');
|
||||
nextPutAll: (self abilitiesAsWikiTextFor: self pendingAbilities marked: '⬡');
|
||||
nextPutAll: '</ul>'.
|
||||
^ output contents
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
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 +1,3 @@
|
|||
accessing
|
||||
asJsonTiddler
|
||||
^ STON toStringPretty: self asTiddler asDictionary.
|
||||
^ self asTiddler asJson
|
||||
|
|
@ -3,4 +3,5 @@ asTiddler
|
|||
^ Tiddler new
|
||||
title: self name;
|
||||
tags: 'Starforged ' , self category;
|
||||
text: self abilitiesAsWikiText
|
||||
text: self abilitiesAsWikiText;
|
||||
created: DateAndTime now asString.
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
accessing
|
||||
asTiddler
|
||||
^ Tiddler new
|
||||
title: self name;
|
||||
tags: 'Starforged ' ,'[[', self category,']]';
|
||||
text: self text;
|
||||
created: DateAndTime now asString.
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
category
|
||||
^ category
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
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 ]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
name
|
||||
^ name
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream nextPutAll: '( ', self name, ' ) '.
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
progress: aBoolean
|
||||
progress := aBoolean
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
progress
|
||||
^ progress
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
text
|
||||
^ text
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
{
|
||||
"commentStamp" : "",
|
||||
"super" : "Object",
|
||||
"category" : "RoloLudo",
|
||||
"classinstvars" : [ ],
|
||||
"pools" : [ ],
|
||||
"classvars" : [ ],
|
||||
"instvars" : [
|
||||
"category",
|
||||
"name",
|
||||
"text",
|
||||
"progress"
|
||||
],
|
||||
"name" : "SfMove",
|
||||
"type" : "normal"
|
||||
}
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
accessing
|
||||
asTiddler
|
||||
^ Tiddler new
|
||||
title: self name;
|
||||
tags: 'Starforged';
|
||||
text: self intro, String lf, String lf, self optionsWikiTextTable;
|
||||
created: DateAndTime now asString.
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
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 .
|
||||
].
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
intro: longerText
|
||||
intro := longerText
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
intro
|
||||
^ intro
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
name: shortText
|
||||
name := shortText
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
name
|
||||
^ name
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
options: anOrderedDictionary
|
||||
options := anOrderedDictionary
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
options
|
||||
^ options ifNil: [ options := OrderedDictionary new ]
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
accessing
|
||||
optionsWikiTextTable
|
||||
| output |
|
||||
output := '' writeStream.
|
||||
self options keysAndValuesDo: [:k :v |
|
||||
output
|
||||
nextPutAll: '| ', k first asString, ' - ', k last asString, ' |';
|
||||
nextPutAll: v, ' |'; cr
|
||||
].
|
||||
^ output contents
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: '( ', self name, ' )'.
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
accessing
|
||||
roll
|
||||
| diceRoll |
|
||||
diceRoll := 100 atRandom.
|
||||
self options keysAndValuesDo: [:k :v |
|
||||
(k includes: diceRoll) ifTrue: [ ^ v ]
|
||||
]
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
{
|
||||
"commentStamp" : "",
|
||||
"super" : "Object",
|
||||
"category" : "RoloLudo-RoloLudo",
|
||||
"classinstvars" : [ ],
|
||||
"pools" : [ ],
|
||||
"classvars" : [ ],
|
||||
"instvars" : [
|
||||
"name",
|
||||
"intro",
|
||||
"options"
|
||||
],
|
||||
"name" : "SfOracle",
|
||||
"type" : "normal"
|
||||
}
|
||||
Loading…
Reference in New Issue