home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Applications / Romance.hb (.txt) < prev    next >
Encoding:
HyperBook  |  1990-10-07  |  26.9 KB  |  381 lines
  1. 6/* When an edit button is pressed, this macro is called. */
  2. btn = initiator()
  3. num  = sequencenumber(btn)
  4. se   = searchpagename('1:', 'Self-Expression')
  5. fe   = searchname(':', 'Finished editing')
  6. list = searchname(se, 'Phrase' num || '.')
  7. se   = parent(list)
  8. left   = getleft(list)
  9. top    = gettop(list)
  10. width  = getwidth(list)
  11. height = getheight(list)
  12. pg = searchpagename(':','Phrase List page')
  13. call setposition(list, 40, 20)
  14. call scaletosize(list,480,120)
  15. list = relocate(list, pg)
  16. newfe = searchname(pg, 'Finished Editing')
  17. cmd1 = "pl=relocate(searchname(':','Phrase'),'" || se || "');"
  18. cmd2 = "call return();"
  19. cmd3 = "call scaletosize(pl," || width || "," || height || ");"
  20. cmd4 = "call setposition(pl," || left || "," || top || ");"
  21. call setactionrexx(newfe, cmd1 || cmd2 || cmd3 || cmd4)
  22. call callpage(pg)
  23. Edit phrase
  24. v/* Create memorable prose passage from phrases in 25 lists */
  25. call beginprompt('Please wait... making up memorable prose')
  26. if length(searchname(':', 'Phrases')) == 0 then do
  27.    say "Can't find group containing phrase text."
  28.    EXIT
  29.    end
  30. note = searchname(':', 'Memorable prose')
  31. if length(note) == 0 then do
  32.    note = createnote()
  33.    call setname(note, 'Memorable prose')
  34.    call scaletosize(note, 640, 190)
  35.    call setposition(note,   0,   0)
  36.    end
  37. else do
  38.    note = relocate(note, '0:')
  39.    call cleartext(note)
  40.    end
  41. call rand(1,100)
  42. call inserttext(note, 'Waiting alone in the' randomitem(1), -1)
  43. call inserttext(note, ',' 'with the' randomitem(2), -1)
  44. call inserttext(note, ' wafting in from outside,' randomitem(3), -1)
  45. call inserttext(note, ' thought once more of' randomitem(4), -1)
  46. call inserttext(note, ',' 'the' randomitem(5), -1)
  47. call inserttext(note, '.' 'He was now, according to' randomitem(6), -1)
  48. call inserttext(note, ',' randomitem(7) || '.' || '0a0a'x, -1)
  49. call inserttext(note, 'Then came' randomitem(8), -1)
  50. call inserttext(note, ',' 'and she' randomitem(9), -1)
  51. call inserttext(note, '.' 'He was here! "' || randomitem(10), -1)
  52. call inserttext(note, ',' randomitem(11), -1)
  53. call inserttext(note, '!"' 'he' randomitem(12), -1)
  54. call inserttext(note, ',' randomitem(13), -1)
  55. call inserttext(note, ',' 'and as' randomitem(14), -1)
  56. call inserttext(note, ',' 'she' randomitem(15) || '.' || '0a'x, -1)
  57. call endprompt()
  58. call interactive(0)
  59. call objecttoback(relocate(note,':'))
  60. return
  61. randomitem: procedure
  62.    list = searchname(':','Phrase' arg(1) || '.')
  63.    return getitemtext(objectnumber(list, rand(1,numelements(list))))
  64. Create Prose
  65. Note1
  66. "Romance"
  67. The AHA! Romance Novel Generator
  68. Note2
  69. This notebook will generate two paragraphs of text in the style of a
  70. pulp romance novel.
  71. Turn to the next page to read an example, then click on the "Write
  72. new text" to generate a new story. You can generate new text any
  73. number of times - no two are alike!
  74. To add to or modify the database of phrases, turn to the page after
  75. next, where you'll see an example of prose in the standard style. The
  76. parts of the text contained in the database are underlined; click on
  77. one of these to view the list and modify it. There are 15 sets of
  78. these phrases, each stored in an invisible List.
  79. Group1
  80. Drawing1
  81. Button1
  82. Continue
  83. "Introduction"
  84. 8elp.txt
  85. "Memorable prose"
  86. Waiting alone in the quiet chapel where they had first met, with the
  87. sprightly piping of the Vicar's flageolet wafting in from outside, the
  88. terrified Violetta thought once more of Doctor Ken, the bold bandito
  89. who had been so gentle in her arms. He was now, according to
  90. Countess Genevieve, dancing away the hot Rio nights with the sultry
  91. Sophia.
  92. Then came the sound of her own name being called, and she dropped
  93. the brimming wine glass heedlessly on the rug. He was here! "I've
  94. thought of you every minute I've been away, you sweet little morsel of
  95. girl-flesh!" he said quietly, sweeping her into his arms, and as he
  96. went down on his knees and implored her to forgive him, she
  97. wordlessly let her body melt against his own.
  98. Button1
  99. Write new text
  100.     "Phrases"
  101. "Phrase 9."
  102. whirled around
  103. gasped
  104. nearly swooned
  105. 5dropped the brimming wine glass heedlessly on the rug
  106. 4felt her heart suddenly beat with a new, wild rhythm
  107. 4somehow knew that her heart had been right all along
  108. 3shut her eyes tight for one moment of silent prayer
  109. 5leapt to her feet with hope - and alarm - in her eyes
  110. %instinctively checked her fingernails
  111. 'struggled in vain with her sudden panic
  112. rose to face the inevitable
  113. 5realized, in a single instant, what was now to happen
  114. "Phrase 11."
  115. my darling
  116. you little fool
  117. sweetheart
  118. my angel - my porcelain angel
  119. beloved
  120. %you sweet little morsel of girl-flesh
  121. my perfect little carrot
  122.     baby doll
  123. my dewy, doll-faced delight
  124.     honey bun
  125. my Oriental pearl
  126. Adored One
  127. my giddy little goose
  128. "Phrase 10."
  129. Kiss me
  130. Come to me
  131. I couldn't stay away
  132. /I've thought of you every minute I've been away
  133. Our love will outlast eternity
  134. There's only ever been you
  135. We marry tonight
  136. I worship you
  137. Without you I am nothing
  138. %I tried to forget you, but I couldn't
  139. All I have is yours
  140. .Even the crafty Luiz couldn't keep me from you
  141. "Phrase 13."
  142. sweeping her into his arms
  143. pressing his lips to hers
  144. flexing his sweaty biceps
  145. -blowing a perfect smoke ring in her direction
  146. &nervously adjusting his artificial leg
  147. "signalling his porters to withdraw
  148. $his eyes alive in the slanting light
  149. ,oblivious of the lava-red eyes at the window
  150. )tilting her oval face up to meet his lips
  151. $passion igniting his strong features
  152. .drawing her to him as a moth to a lantern wick
  153. .setting her aglow with the heat of his passion
  154. "Phrase 15."
  155. Cknew that at last he was hers - and that only death could part them
  156. 7began to wonder how she would explain all this to Colin
  157. :started to think about what they would call their children
  158. @made a mental note to call Mitzi later and tell her all about it
  159. ,wordlessly let her body melt against his own
  160. 3woke up. Incredibly enough, it had all been a dream
  161. Htook a moment to plan some of the details of their pre-nuptial agreement
  162. Swondered if this would be a good time to remind him about the books he had borrowed
  163. Gallowed her willing mind to sink into a rose-colored maelstrom of bliss
  164. >vowed never again to do anything spiteful, foolish or immature
  165. Prealized thankfully that, in the end, things always work out really, really well
  166. Oat last understood that for the two of them, life was only now really beginning
  167. "Phrase 12."
  168. chuckled
  169. breathed
  170. :said with his eyes (for his voice was now silent for ever)
  171. said in his halting Spanish
  172. boomed
  173. intoned
  174. blurted
  175. husked
  176. -murmured in that unforgettable hypnotic drawl
  177. said simply
  178. said quietly
  179.     stammered
  180. "Phrase 14."
  181. the band began to play
  182. ;the music in her heart rose to a new crescendo of happiness
  183. :the horror of these last months vanished in a blaze of joy
  184. Jthe glow of renewed love gradually overcame her mounting desire for dinner
  185. 'he slid the little ring onto her finger
  186. 9he went down on his knees and implored her to forgive him
  187. 6it dawned on her that her days of loneliness were over
  188. 5the truth - the whole truth - slowly come home to her
  189. Ihe dabbed at her tears with the handkerchief she herself had made for him
  190. Ihe excitedly began to show her his plans for the villa they were to share
  191. Ihe once again began to woo her with the sensual voice of his Stradivarius
  192. "Phrase 4."
  193. Edwin
  194.     Long John
  195. Lyle `Sneaky Legs' Malone
  196. Doctor Ken
  197. "former U.S. President Jimmy Carter
  198. Reginald Fortescue
  199. Baron Otto
  200. the Chief's handsome son
  201. young Simon
  202. the fearless Francisco
  203. tall Trader Tom
  204. the `Parisian Pirate', Pierre
  205. Senator Sam
  206. dashing David DeFoe
  207. "Phrase 6."
  208. father
  209. Brother Boris
  210.     The Times
  211. persistent rumours
  212. Countess Genevieve
  213. the gypsy woman
  214. the best salon gossip
  215. his scheming partner, Reg
  216. that television program
  217. three independent witnesses
  218. her horoscope
  219. the letter on the bureau
  220. the message on the dagger
  221. Roger's shocking revelation
  222. "Phrase 5."
  223. "only man she had ever really loved
  224. &mysterious stranger with the large dog
  225. "one person left who could help her
  226. '`hooded visitor' in her recurring dream
  227. "man who had taught her how to feel
  228. Jmasterful tutor who had transformed her from a mere girl into a real woman
  229. 2loving suitor she had turned so thoughtlessly away
  230. %man she had belonged to so completely
  231. /bold bandito who had been so gentle in her arms
  232. Csensitive genius who had known her in ways even she did not suspect
  233. <brilliant scholar who had wanted to make her his life's work
  234. (soldier-lover of her youthful imaginings
  235. "Phrase 2."
  236. 'scent of almond blossoms and frangipani
  237.  cries of the frolicking children
  238. faint traffic hum
  239. shouts of the street hawkers
  240. rank odour of decay
  241. smell of new-cut grass
  242. fragrance of a new spring
  243. %far-off clamour of the playing fields
  244. )sprightly piping of the Vicar's flageolet
  245. %plaintive braying of the Don's llamas
  246. $rhythmic strumming of Pedro's guitar
  247. sweet orchard smell
  248. aroma of fresh mulberry pies
  249. "Phrase 7."
  250. 'lost forever in the wilds of the Amazon
  251. .struggling for life in the intensive care ward
  252. ;in the clutches of Cesar Marquez and his gang of cutthroats
  253. 6dancing away the hot Rio nights with the sultry Sophia
  254. #prospecting for silver in the Andes
  255. away again on safari
  256. 2the hapless captive of mind-devouring space aliens
  257. 3marooned by his own crew on the Isle of Retribution
  258. /a prisoner in the very castle he had once owned
  259. 2starring in yet another film with F
  260. lice Contraire
  261. 2recklessly endangering her life as well as his own
  262. <drinking himself to death in the company of the hateful Luiz
  263. 2on a collision course with the High Council itself
  264. +seeking a new life as a Foreign Legionnaire
  265. "Phrase 3."
  266. the frightened girl
  267. Mindy West, Student Nurse,
  268. Serena
  269. the still-proud Princess
  270. Lady Pamela
  271. the softly-sobbing Clarissa
  272. the wholly heartbroken Heather
  273. 4Belinda, even lovelier - if possible - in her grief,
  274. the terrified Violetta
  275. the twice-jilted Juliet
  276. -Alicia - she who had always seemed so cold! -
  277. "Phrase 8."
  278. a knock at the door
  279. a sudden clatter of hooves
  280. /an abrupt fanfare from the long-silent trumpets
  281. a peal of mighty bells
  282. &the sound she had been longing to hear
  283. 1a confused chorus of greetings from the courtyard
  284. a flurry of activity
  285. &the sound of her own name being called
  286. /a sudden commotion, heavy footsteps in the hall
  287. 0an inrush of cool air as the door was flung open
  288. an eerie chill of premonition
  289. :the thud of fists, a muffled cry, fighting on the stairway
  290. "Phrase 1."
  291. great, oak-panelled library
  292. chill gloom of the crypt
  293. !humble comfort of old Ben's hovel
  294. )now-familiar confines of Maku's grass hut
  295. &gleaming, antiseptic operating theatre
  296. %quiet chapel where they had first met
  297. little walled garden
  298. 6study, by the fiercely-staring portrait she so loathed
  299. 1room where Constance had witnessed the apparition
  300. 0secret alcove they had both come to know so well
  301. +Red Chamber, remembering its bloody history
  302. (frost-blue frock he had so often praised
  303. %midst of her uncle's grotesque curios
  304. +full knowledge that her fate was now sealed
  305. Group2
  306. Drawing1
  307. Button1
  308. Intro
  309. Group3
  310. Drawing1
  311. Button1
  312. Edit phrases
  313. "Self-Expression"
  314. "Finished editing"
  315. qpl=relocate(searchname(':','Phrase'),'2:5');call return();call scaletosize(pl,200,80);call setposition(pl,15,15);
  316. Finished editing
  317. Group1
  318. Note1
  319. Click on a red word or phrase in the above example to
  320. modify the built-in list of words and phrases
  321. Drawing1
  322. "WriteText"
  323. Write text
  324. Group2
  325. "Memorable prose"
  326. Waiting alone in the
  327. library
  328. , with the
  329. scent of flowers
  330. wafting in from outside,
  331.  thought once more of
  332. Harold
  333. , the
  334. debonair lounge singer
  335. , now, according to
  336. Maurice
  337. away skiing in Austria
  338. Then came 
  339. a rapping at the door
  340. , and she
  341. jumped up
  342. He was here! "
  343. Kiss me
  344. my love
  345. !" he 
  346. whispered
  347. drawing her close
  348. , and as 
  349. the sun slowly set
  350. , she
  351. realized that he really did love her
  352. Group1
  353. Button1
  354. Button2
  355. Button3
  356. Button4
  357. Button5
  358. Button6
  359. Button7
  360. Button8
  361. Button9
  362. Button10
  363. Button11
  364. Button12
  365. Button13
  366. Button14
  367. Button15
  368. "Edit phrases"
  369. "Finished editing"
  370. rpl=relocate(searchname(':','Phrase'),'2:3');call return();call scaletosize(pl,200,80);call setposition(pl,139,34);
  371. Finished editing
  372. Note1
  373. (Hold down the SHIFT key and double-click on
  374. the above list to edit the phrases. After
  375. editing, click the button on the left.) 
  376. "Phrase List page"
  377. h:wbstuff/dpaint
  378. TransEdit -k1
  379. garnet.font
  380. garnet.font
  381.