19 lines
525 B
Smalltalk
19 lines
525 B
Smalltalk
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 |