worlds/haxima-1.002/books.scm

   1 ;; ----------------------------------------------------------------------------
   2 ;; books.scm -- reading material
   3 ;; ----------------------------------------------------------------------------
   4
   5 (kern-mk-sprite-set 'ss_books 32 32 2 2 0 0 "books.png")
   6
   7 (kern-mk-sprite 's_lexicon ss_books 1 0 #f 0)
   8 (kern-mk-sprite 's_manual  ss_books 1 1 #f 0)
   9 (kern-mk-sprite 's_scroll  ss_books 1 2 #f 0)
  10
  11 ;; Fixme: see if something like this will work for books:
  12 (define (mk-book tag name . text)
  13   (mk-reusable-item
  14    tag name s_manual norm
  15    (lambda ()
  16      (kern-ui-page-text text))))
  17
  18 ;;----------------------------------------------------------------------------
  19 ;; player manual
  20 (define (basic-survival-manual-commands)
  21   (kern-ui-page-text
  22    "Command Summary"
  23    "Use the arrow keys to indicate direction."
  24    "Use the ESC key to cancel commands."
  25    "Use the first letter to start a command."
  26    "For detailed info see the Users Guide."
  27    ""
  28    "A)ttack something"
  29    "B)oard a ship or other vehicle"
  30    "C)ast a spell"
  31    "E)nter a town or dungeon"
  32    "F)ire a ship's cannon or other ordnance"
  33    "G)et something on the ground"
  34    "H)andle a lever or other mechanism"
  35    "L)oiter a few hours"
  36    "N)ew-Order (rearrange party order)"
  37    "O)pen a chest, door or other closed object"
  38    "Q)uit and optionally save the game"
  39    "R)eady arms for a party member"
  40    "S)earch for hidden stuff"
  41    "T)alk to somebody"
  42    "U)se an item in inventory"
  43    "Z)tats (show party status)"
  44    "X)amine around"
  45    "@)AT (info about place & time)"
  46    "<space> (pass a turn)"
  47    "CTRL-S)ave the game"
  48    "CTRL-R)eload a game"
  49    "SHIFT+ARROWKEY pan viewer"
  50    )
  51   result-ok)
  52
  53 (mk-reusable-item 't_manual "Basic Survival Manual" s_manual (/ norm 3)
  54                   basic-survival-manual-commands)
  55
  56 ;;----------------------------------------------------------------------------
  57 ;; letter from enchanter
  58 (mk-reusable-item
  59  't_letter_from_enchanter "Important Letter" s_lexicon norm
  60  (lambda (klexicon kuser)
  61    (kern-ui-page-text
  62     "To the Wanderer -- IMPORTANT"
  63    ""
  64    "It is most ^c+rcritical^c- that you FIND ME. "
  65    "The peasant who cares for this shrine can "
  66    "point the way. Beware."
  67    ""
  68    "--Enchanter\n"
  69    )
  70    (quest-data-assign-once 'questentry-calltoarms)
  71    result-ok))
  72
  73 ;;----------------------------------------------------------------------------
  74 ;; book of the demon gate
  75 (mk-reusable-item
  76  't_demon_gate_book "Ragged Text" s_scroll v-hard
  77  (lambda (kbook kuser)
  78    (kern-ui-page-text
  79    "THE DEMON GATE"
  80    ""
  81    "...the Wise of old locked the Demon Gate and scattered the keys... "
  82    "the Shrine of the Demon Gate was not to be revealed again until the world is made ANEW... "
  83    "they concealed the road to the Shrine with an illusion... "
  84    "where there is a path, the unwise see only a mountain... "
  85    ""
  86    "... the River of Stars, and follow it to its source... "
  87    ""
  88    "...to he who opens the Gate, power unimaginable..."
  89    ""
  90    "...Nossifer awaits."
  91    ""
  92    "--Fildex the Unclean\n"
  93    )
  94    result-ok))
  95
  96 ;;----------------------------------------------------------------------------
  97 ;; Kathryn's Letter
  98 (mk-reusable-item
  99  't_kathryns_letter "Letter" s_scroll norm
 100  (lambda (kletter kuser)
 101    (kern-ui-page-text
 102    "Letter"
 103    "K,"
 104    "The Enchanter has one of the Runes. Acquire "
 105    "it by any means necessary, and leave no one "
 106    "to tell the tale. Not even a ghost."
 107    "--S")
 108    result-ok))
 109
 110
 111 ;;----------------------------------------------------------------------------
 112 ;; The soliloquy from Hamlet:
 113 (mk-reusable-item
 114  't_playbook_hamlet "Playbook" s_scroll norm
 115  (lambda (kletter kuser)
 116    (kern-ui-page-text
 117    "A partial playbook"
 118
 119    "To be, or not to be: that is the question:"
 120    "Whether 'tis nobler in the mind to suffer"
 121    "The slings and arrows of outrageous fortune,"
 122    "Or to take arms against a sea of troubles,"
 123    "And by opposing end them? To die: to sleep;"
 124    "No more; and by a sleep to say we end"
 125    "The heart-ache and the thousand natural shocks"
 126    "That flesh is heir to, 'tis a consummation"
 127    "Devoutly to be wish'd. To die, to sleep;"
 128    "To sleep: perchance to dream: ay, there's the rub;"
 129    ""
 130    "For in that sleep of death what dreams may come"
 131    "When we have shuffled off this mortal coil,"
 132    "Must give us pause: there's the respect"
 133    "That makes calamity of so long life;"
 134    ""
 135    "For who would bear the whips and scorns of time,"
 136    "The oppressor's wrong, the proud man's contumely,"
 137    "The pangs of despised love, the law's delay,"
 138    "The insolence of office and the spurns"
 139    "That patient merit of the unworthy takes,"
 140    "When he himself might his quietus make"
 141    "With a bare bodkin? who would fardels bear,"
 142    "To grunt and sweat under a weary life,"
 143    "But that the dread of something after death,"
 144    "The undiscover'd country from whose bourn"
 145    "No traveller returns, puzzles the will"
 146    "And makes us rather bear those ills we have"
 147    "Than fly to others that we know not of?"
 148    ""
 149    "Thus conscience does make cowards of us all;"
 150    "And thus the native hue of resolution"
 151    "Is sicklied o'er with the pale cast of thought,"
 152    "And enterprises of great pith and moment"
 153    "With this regard their currents turn awry,"
 154    "And lose the name of action.--Soft you now!"
 155    "The fair Ophelia! Nymph, in thy orisons"
 156    "Be all my sins remember'd."
 157    )))
 158
 159 ;;----------------------------------------------------------------------------
 160 ;; Spell books
 161 (mk-reusable-item
 162  't_ylem_an_ex_book "spell book: YAE" s_manual hard
 163  (lambda (kletter kuser)
 164    (kern-ui-page-text
 165    "Web Spell- Ylem An Ex"
 166    ""
 167    "A useful spell for beginning spellcasters, "
 168    "web allows a distant opponent to be "
 169    "entangled and made helpless for a short "
 170    "period of time."
 171    ""
 172    "If used correctly, it can also block an "
 173    "area with webs temporarily, although this is "
 174    "hard for novices to achieve."
 175    ""
 176    "The spell requires spider silk, of course, "
 177    "and also black pearl, to project the web at "
 178    "the desired target."
 179    ""
 180    "With the appropriate mixture, intone "
 181    "Ylem An Ex (Matter to Negate Freedom) and "
 182    "hurl the net of web at your foe."
 183    )
 184    result-ok))
 185
 186 (mk-reusable-item
 187  't_bet_flam_hur_book "spell book: BFH" s_manual hard
 188  (lambda (kletter kuser)
 189    (kern-ui-page-text
 190    "Fire Spray- Bet Flam Hur"
 191    ""
 192    "While the effectiveness of the Flame Wind spell is renowned, it is difficult to cast, exhausting, and well beyond the means of all but the greatest mages."
 193    ""
 194    "The Fire Spray spell is an adaption of the Flame Wind spell to more modest requirements. While it cannot be cast by an absolute beginner, it requires minimal ability. The effectiveness of the spell increases, of course, with the caster's ability."
 195    ""
 196    "The Fire Spray spell has a limited range- not much greater than a polearm- and does not have sufficient power to leave the blazing fields associated with the Flame Wind spell."
 197    ""
 198    "The spell requires sulphurous ash to power the flame. The initial launch of the spell is provided by black pearl, and blood moss instills the motion of the spreading cone of fire."
 199    ""
 200    "With this mixture, intone Bet Flam Hur (Small Fire Wind) and direct the cone to engulf your foes."
 201    )
 202    result-ok))
 203
 204 (mk-reusable-item
 205  't_ranger_orders "Ranger orders" s_scroll norm
 206  (lambda (kletter kuser)
 207    (kern-ui-page-text
 208     "Ranger Orders"
 209     ""
 210     "The bearer of this letter may conscript "
 211     "one (1) ranger into limited temporary "
 212     "service.")
 213    result-ok))
 214
 215 (mk-reusable-item
 216  't_prisoner_receipt "Prisoner Receipt" s_scroll norm
 217  (lambda (kletter kuser)
 218    (kern-ui-page-text
 219     "Prisoner Receipt"
 220     ""
 221     "The bearer of this letter has delivered "
 222     "one (1) prisoner to the gaoler.")
 223    result-ok))
 224
 225
 226 ;;;;;;;;;;;;;;;;;;;; White Magick ;;;;;;;;;;;;;;;;;;;;
 227
 228 (mk-reusable-item
 229  't_spell_book_white_magick_1 "White Magick: Booke I" s_manual (/ norm 3)
 230  (lambda (kbook kuser)
 231    (kern-ui-page-text
 232     "White Magick: Booke I"
 233     "Spells of Healing, of the First Circle"
 234     "+-----------------------------------------+"
 235     "|  M)ix thy reagents to craft a spell,    |"
 236     "|  then C)ast it in thine hour of need.   |"
 237     "|  Through lore of WHITE shall ye HEAL,   |"
 238     "|  though as ye MEND be ye yet WISE!      |"
 239     "+-----------------------------------------+"
 240     "Cure Poison <AN NOX>"
 241     "- Mix Ginseng and Garlic"
 242     ""
 243     "Awaken <AN ZU>"
 244     "- Mix Ginseng and Garlic"
 245     ""
 246     "Minor Healing <MANI>"
 247     "- Mix Ginseng and Spider Silk"
 248     )
 249    result-ok))
 250
 251 (mk-reusable-item
 252  't_spell_book_white_magick_2 "White Magick: Booke II"  s_manual (/ norm 3)
 253  (lambda (kbook kuser)
 254    (kern-ui-page-text
 255     "White Magick: Booke II"
 256     "Spells of Healing and Protection"
 257     "+-----------------------------------------+"
 258     "|  The Lore ye know to Mix and Cast.      |"
 259     "|  Well-served by these chants be.        |"
 260     "|  Yet forget not, oh Wise, of Duty,      |"
 261     "|  to Heal all which come to thee.        |"
 262     "+-----------------------------------------+"
 263     "Poison Ward <SANCT NOX>"
 264     "- Mix Garlic, Nightshade and Royal Cape"
 265     ""
 266     "Fire Ward <IN FLAM SANCT>"
 267     "- Mix Sulphurous Ash, Garlic, "
 268     "- and forget ye not: [SMUDGED WORD]"
 269     ""
 270     "Dispel Magic <An Ort Xen>"
 271     "- Mix Sulphurous Ash, Garlic, Mandrake"
 272     ""
 273     "Protection <IN SANCT>"
 274     "- Mix Sulphurous Ash, Garlic, Ginseng"
 275     ""
 276     "Mass Cure Poison <VAS AN NOX>"
 277     "- Mix Garlic, Ginseng, Mandrake"
 278     ""
 279     "Great Heal <VAS MANI>"
 280     "- Mix Ginseng, Spider Silk, Mandrake"
 281     )
 282    result-ok))
 283
 284 (mk-reusable-item
 285  't_spell_book_white_magick_3 "White Magick: Booke III"  s_manual (/ norm 3)
 286  (lambda (kbook kuser)
 287    (kern-ui-page-text
 288     "White Magick: Booke III"
 289     "Spells of Healing, of High Magick"
 290     "+-----------------------------------------+"
 291     "|  Mix ye now, and Crowned Master, Cast!  |"
 292     "|   But beckon, Power to thee hastens!    |"
 293     "|    If ye be Wise, then act ye thus:     |"
 294     "|  KAL WIS - IN MANI - AN CORP - ZU QUAS  |"
 295     "+-----------------------------------------+"
 296     "Mass Cure Poison <VAS AN NOX>"
 297     "- Mix Ginseng, Garlic, Mandrake"
 298     ""
 299     "Mass Poison Ward <VAS SANCT NOX>"
 300     "- Mix Garlic, Nightshade, Mandrake and Royal Cape"
 301     ""
 302     "Great Heal <VAS MANI>"
 303     "- Mix Ginseng, Spider Silk, Mandrake"
 304     ""
 305     ""
 306     "--------------- HIGH MAGICK --------------"
 307     ""
 308     "Resurrection <IN MANI CORP>"
 309     "- Mix Ginseng, Garlic, Spider Silk"
 310     "-     Sulphurous Ash, Blood Moss, Mandrake"
 311     ""
 312     "  -- Slay not that which should live! -- "
 313     "  -- Raise not that which ought rest! -- "
 314
 315     )
 316    result-ok))
 317
 318
 319 ;;;;;;;;;;;;;;;;;;;; Force Magick ;;;;;;;;;;;;;;;;;;;;
 320
 321 (mk-reusable-item
 322  't_spell_book_force_magick_12 "Magick of Force: Booke I" s_manual (/ norm 3)
 323  (lambda (kbook kuser)
 324    (kern-ui-page-text
 325     "Magick of Force: Booke I"
 326     "Spells of Might, of the Circles I, II      "
 327     "+-----------------------------------------+"
 328     "|  M)ix thy reagents to craft a spell,    |"
 329     "|  then C)ast it in thine hour of need.   |"
 330     "|  By FORCE shall thy foes know FEAR,     |"
 331     "|  yet FOOLS thus casting shall know WOE! |"
 332     "+-----------------------------------------+"
 333     "Spells of the Circle I:"
 334     "-----------------------"
 335     "Magic Missile <GRAV POR>"
 336     "- Mix Sulphurous Ash and Black Pearl"
 337     ""
 338     "Light <IN LOR>"
 339     "- Mix Sulphurous Ash"
 340     ""
 341     "------------------------"
 342     "Spells of the Circle II:"
 343     "------------------------"
 344     "Change Wind <REL HUR>"
 345     "- Mix Sulphurous Ash and Blood Moss"
 346     ""
 347     "Fire Spray <BET FLAM HUR>"
 348     "- Mix Sulphurous Ash, Blood Moss, "
 349     "-     and Black Pearl"
 350     ""
 351     "Poison Bolt <IN NOX POR>"
 352     "- Mix Nightshade, Blood Moss, "
 353     "-     and Black Pearl"
 354     )
 355    result-ok))
 356
 357 (mk-reusable-item
 358  't_spell_book_force_magick_battle "Magick of Force: Of Battle"  s_manual (/ norm 3)
 359  (lambda (kbook kuser)
 360    (kern-ui-page-text
 361     "Magick of Force: Of Battle"
 362     "+-----------------------------------------+"
 363     "|    Battle near: Chant runes and Mix     |"
 364     "|      Battle on: Cast and hurl           |"
 365     "|  Thy foes know pain, and death indeed   |"
 366     "|  Yet wield ye but Might, or be ye Wise? |"
 367     "+-----------------------------------------+"
 368     "Spells of the Circle I:"
 369     "-----------------------"
 370     "Magic Missile <GRAV POR>"
 371     "- Mix Sulphurous Ash and Black Pearl"
 372     ""
 373     "Lightning Bolt <ORT GRAV>"
 374     "- Mix Sulphurous Ash, Black Pearl, Mandrake"
 375     ""
 376     "-------------------------"
 377     "Spells of the Circle III:"
 378     "-------------------------"
 379     "Fire Ball <VAS FLAM>"
 380     "- Mix Sulphurous Ash, Black Pearl"
 381     ""
 382     "Fire Ward <IN FLAM SANCT>"
 383     "- Mix Sulphurous Ash, [CHARRED WORD], "
 384     "- and forget ye not: Royal [ASHY SMUDGE]"
 385     ""
 386     "------------------------"
 387     "Spells of the Circle VI:"
 388     "------------------------"
 389     "Tremor <IN VAS POR YLEM>"
 390     "- Mix Sulphurous Ash, Blood Moss, Mandrake"
 391     )
 392    result-ok))
 393
 394
 395 (mk-reusable-item
 396 't_spell_book_force_magick_winds "Magick of Force: Deadly Winds"  s_manual (/ norm 3)
 397  (lambda (kbook kuser)
 398    (kern-ui-page-text
 399     "Magick of Force: Deadly Winds"
 400     "+-----------------------------------------+"
 401     "|  For Wind ye shall Mix, for Wind Cast!  |"
 402     "|  Thy foe, sleeping, shall know naught,  |"
 403     "|  Thy foe, struck, shall burn or fester, |"
 404     "|       Yet, can ye Change the Wind?      |"
 405     "|  For what Wind changes not, blows not.  |"
 406     "|      Shall ye then have Changed it?     |"
 407     "+-----------------------------------------+"
 408     "Spells of the Circle I and II:"
 409     "------------------------------"
 410     "Conjure Smoke <Bet Ylem Hur>"
 411     "- Mix Sulphurous Ash"
 412     ""
 413     "Change Wind <REL HUR>"
 414     "- Mix Sulphurous Ash, Blood Moss"
 415     ""
 416     "Fire Spray <BET FLAM HUR>"
 417     "- Mix Sulphurous Ash, Blood Moss, "
 418     "-     and Black Pearl"
 419     ""
 420     "-------------------------"
 421     "Spells of the Circle VII:"
 422     "-------------------------"
 423     "Wind of Sleep <IN ZU HUR>"
 424     "- Mix Ginseng, Blood Moss, Mandrake"
 425     ""
 426     "Poison Wind <IN NOX HUR>"
 427     "- Mix Sulphurous Ash, Blood Moss, "
 428     "-     and Nightshade"
 429     ""
 430     "--------------------------"
 431     "Spells of the Circle VIII:"
 432     "--------------------------"
 433     "Flame Wind <IN FLAM HUR>"
 434     "- Mix Sulphurous Ash, Blood Moss, "
 435     "-     and Mandrake"
 436     )
 437    result-ok))
 438 (mk-reusable-item
 439 't_spell_book_force_magick_matter "Magick of Force: Upon Matter"  s_manual (/ norm 3)
 440  (lambda (kbook kuser)
 441    (kern-ui-page-text
 442     "Magick of Force: Upon Matter"
 443     "+-----------------------------------------+"
 444     "|  Mix and Cast, by Force control Matter. |"
 445     "|  Powers subtle and grand both wield.    |"
 446     "|  If ye be wise then riddle this rede:   |"
 447     "|    What secret, steel? (Flesh is soft)  |"
 448     "|    What sound, one hand? (Butterfly)    |"
 449     "+-----------------------------------------+"
 450     "Spells of the Circles I and II:"
 451     "-------------------------------"
 452     "Disarm Trap <AN SANCT YLEM>"
 453     "- Mix Blood Moss"
 454     ""
 455     "Unlock <AN SANCT>"
 456     "- Mix Sulphurous Ash, Blood Modd"
 457     ""
 458     "Lock <SANCT>"
 459     "- Mix Sulphurous Ash, Spider Silk"
 460     ""
 461     "Change Wind <REL HUR>"
 462     "- Mix Sulphurous Ash, Blood Moss"
 463     ""
 464     "------------------------"
 465     "Spells of the Circle VI:"
 466     "------------------------"
 467     "Tremor <IN VAS POR YLEM>"
 468     "- Mix Sulphurous Ash, Blood Moss, Mandrake"
 469     ""
 470     "Telekinesis <IN REL POR>"
 471     "- Mix Spider Silk, Blood Moss, Black Pearl"
 472     ""
 473     "----------------"
 474     "[Scrawled Notes]"
 475     "----------------"
 476     "Raise Matter Above Water <VAS UUS YLEM>"
 477     "- Trial 1: Mix Ash, Pearl, Mandrake ???"
 478     "- Trial 2: Mix [CHARRED], Eye of Newt ?"
 479     "- Gazer eyes? Dragon spleen? Ogre spittle?"
 480     )
 481    result-ok))
 482
 483 (mk-reusable-item
 484 't_spell_book_force_magick_mechanismus "Magick of Force: Mechanismus"  s_manual (/ norm 3)
 485  (lambda (kbook kuser)
 486    (kern-ui-page-text
 487     "Magick of Force: Mechanismus"
 488     "+-----------------------------------------+"
 489     "|  Knowing, Mix, and with craft, Cast!    |"
 490     "|  Fear ye luggage? Chest dangers, past!  |"
 491     "|  Keys bereft? Claviger be thou despite! |"
 492     "|    Glowing portal bar not this wight!   |"
 493     "|      Keep in tempo, keep in vogue       |"
 494     "|        Keep in Time (or its Lord)       |"
 495     "|      With such runes, let no wrogue     |"
 496     "|     snatch the closing [MISSING WORD]   |"
 497     "+-----------------------------------------+"
 498     "Spells of the Circles I and II:"
 499     "-------------------------------"
 500     "Disarm Trap <An Sanct Ylem>"
 501     "- Mix Blood Moss"
 502     ""
 503     "Unlock <An Sanct>"
 504     "- Mix Sulphurous Ash, Blood Moss"
 505     ""
 506     "Lock <Sanct>"
 507     "- Mix Sulphurous Ash, Spider Silk"
 508     ""
 509     "-----------------------"
 510     "Spells of the Circle V:"
 511     "-----------------------"
 512     "Magic Unlock <In Ex Por>"
 513     "- Mix Sulphurous Ash, Blood Moss"
 514     ""
 515     "Magic Lock <An Ex Por>"
 516     "- Mix Sulphurous Ash, Garlic, Blood Moss"
 517     )
 518    result-ok))
 519
 520 (mk-reusable-item
 521 't_spell_book_force_magick_fields "Magick of Force: Upon Fields"  s_manual (/ norm 3)
 522  (lambda (kbook kuser)
 523    (kern-ui-page-text
 524     "Magick of Force: Upon Fields"
 525     "+-----------------------------------------+"
 526     "|  Mix and Cast, by powers form Fields.   |"
 527     "|  Conjure Sleep, Poison, Fire, or Force, |"
 528     "|  or should such bar ye, then Dispel.    |"
 529     "|  IN GRAV - AN POR - AN GRAV - EX POR    |"
 530     "+-----------------------------------------+"
 531     "Spells of the Circle III:"
 532     "-------------------------"
 533     "Sleep Field <In Zu Grav>"
 534     "- Mix Ginseng, Spider Silk, Black Pearl"
 535     ""
 536     "Poison Field <In Nox Grav>"
 537     "- Mix Spider Silk, Black Pearl, Nightshade"
 538     ""
 539     "Fire Field <In Flam Grav>"
 540     "- Mix Sulphurous Ash, Spider Silk, "
 541     "-     Black Pearl"
 542     ""
 543     "------------------------"
 544     "Spells of the Circle IV:"
 545     "------------------------"
 546     "Force Field <In Sanct Grav>"
 547     "- Mix Spider Silk, Black Pearl, Mandrake"
 548     ""
 549     "Dispel Field <An Grav>"
 550     "- Mix Sulphurous Ash, Black Pearl"
 551     )
 552    result-ok))
 553
 554 (mk-reusable-item
 555 't_spell_book_force_magick_high_magick "Magick of Force: High Magick"  s_manual (/ norm 3)
 556  (lambda (kbook kuser)
 557    (kern-ui-page-text
 558     "Magick of Force: High Magick"
 559     "+-----------------------------------------+"
 560     "|  BE WARE, be ye not Mighty in deed!     |"
 561     "|    BEWARE, be ye not Wise indeed!       |"
 562     "|  Written here are runes of HIGH MAGICK  |"
 563     "|  If ye be a FOOL, ye shall know DEATH   |"
 564     "|  Yet if you would, here is graven POWER |"
 565     "+-----------------------------------------+"
 566     "Circle VI - Negate Magic <In An>"
 567     "- Mix Sulphurous Ash, Garlic, Mandrake"
 568     ""
 569     "Circle VII - Death Bolt <Xen Corp>"
 570     "- Mix Black Pearl, Mandrake"
 571     ""
 572     "Circle VIII - Death Wind <In Vas Grav Corp>"
 573     "- Mix Sulphurous Ash, Nighthsade, Mandrake"
 574     ""
 575     "Circle VIII - Time Stop <An Tym>"
 576     "- Mix Garlic, Blood Moss, Mandrake"
 577     )
 578    result-ok))
 579
 580
 581 ;;;;;;;;;;;;;;;;;;;; Necromancy ;;;;;;;;;;;;;;;;;;;;
 582
 583 (mk-reusable-item
 584  't_spell_book_necromancy "Mysteries of Death and Undeath" s_manual (/ norm 3)
 585  (lambda (kbook kuser)
 586    (kern-ui-page-text
 587     "Mysteries of DEATH and UNDEATH             "
 588     "+-----------------------------------------+"
 589     "| Sanctus Corporem ex Nihilo, Rel Oculume |"
 590     "| De Vermiis Mysteriis, Astralis Sangrem  |"
 591     "+-----------------------------------------+"
 592     "II - Turn Undead <An Xen Corp>"
 593     "- Mix Sulphurous Ash, Garlic"
 594     ""
 595     "VIII - Summon Undead <Kal Xen Corp>"
 596     "- Mix Spider Silk, Nightshade, Mandrake"
 597     ""
 598     "II - Poison Bolt <In Nox Por>"
 599     "- Mix Blood Moss, Black Pearl, Nightshade"
 600     ""
 601     "VII - Poison Wind <In Nox Hur>"
 602     "- Mix Sulphrous Ash, Blood Moss, Nightshade"
 603     ""
 604     "VII - Death Bolt <Xen Corp>"
 605     "- Mix Black Pearl, Nightshade"
 606     ""
 607     "VII - Clone <In Quas Xen>"
 608     "- Mix Sulphurous Ash, Ginseng, Spider Silk,"
 609     "-     Blood Moss, Nightshade, Mandrake"
 610     ""
 611     "VIII - Resurrection <In Mani Corp>"
 612     "- Mix Sulphurous Ash, Ginseng, Garlic, "
 613     "-     Spider Silk, Blood Moss, Mandrake"
 614     )
 615    result-ok))
 616
 617
 618 ;;;;;;;;;;;;;;;;;;;; Summoning ;;;;;;;;;;;;;;;;;;;;
 619
 620 (mk-reusable-item
 621  't_spell_book_summoning "Summoning: Beasts and Entities" s_manual (/ norm 3)
 622  (lambda (kbook kuser)
 623    (kern-ui-page-text
 624     "Summoning: Beasts and Entities"
 625     "+-----------------------------------------+"
 626     "| KAL     To the Summoner - BEWARE    KAL |"
 627     "| CORP         Lest ye Call Up,       XEN |"
 628     "| BET  That which ye cannot Send Back ORT |"
 629     "| SANCT  [ABRAD] - [ACAD] - [ABRA]   YLEM |"
 630     "+-----------------------------------------+"
 631     "II - Summon Vermin <In Bet Xen>"
 632     "- Mix Sulphurous Ash, Blood Moss, "
 633     "-     Spider Silk"
 634     ""
 635     "V - Summon Beast <Kal Xen>"
 636     "- Mix Spider Silk, Mandrake"
 637     ""
 638     "VIII - Summon Slime <Kal Xen Nox>"
 639     "- Mix Spider Silk, Nightshade, Mandrake"
 640     ""
 641     "VIII - Summon Undead <Kal Xen Corp>"
 642     "- Mix Spider Silk, Nightshade, Mandrake"
 643     )
 644    result-ok))
 645
 646
 647 ;;;;;;;;;;;;;;;;;;;; Dimensions and Gate Magick ;;;;;;;;;;;;;;;;;;;;
 648
 649 (mk-reusable-item
 650  't_spell_book_gate_magick "Upon Dimensions: Gates" s_manual (/ norm 3)
 651  (lambda (kbook kuser)
 652    (kern-ui-page-text
 653     "Upon Dimensions: Gates"
 654     "+-----------------------------------------+"
 655     "| In Travel, is Freedom indeed, oh Seeker |"
 656     "|       IN POR - IN WIS - EX POR WIS      |"
 657     "|                                         |"
 658     "| The Lore of Moons - Controls the Gates! |"
 659     "|      SUN - FYER  Radiant 24  (12,12)    |"
 660     "|     MOON - LUMIS Yellow  60, (5)x8      |"
 661     "|     MOON - ORD   Blue    36, (9)x8      |"
 662     "|                                         |"
 663     "| If ye be Wise        Watch Wax and Wane |"
 664     "+-----------------------------------------+"
 665     "Locate <In Wis>"
 666     "- Mix Nightshade"
 667     ""
 668     "Vision <In Quas Wis>"
 669     "- Mix Nightshade, Mandrake"
 670     ""
 671     "Blink <Bet Por>"
 672     "- Mix Blood Moss, Black Pearl"
 673     ""
 674     "Ascend <Uus Por>"
 675     "- Mix it not, cast it not! Space tears!"
 676     ""
 677     "Descend <Des Por>"
 678     "- Beware the warp! Seek ye not this lore!"
 679     ""
 680     "Quickness <Rel Tym>"
 681     "- Mix Sulphurous Ash, Blood Moss, Mandrake"
 682     ""
 683     "Teleport Party <Vas Por>"
 684     "- Mix Blood Moss, Black Pearl, Mandrake"
 685     ""
 686     "Gate <Vas Rel Por>"
 687     "- Mix Sulphurous Ash, Black Pearl, Mandrake"
 688     )
 689    result-ok))
 690
 691
 692 ;;;;;;;;;;;;;;;;;;;; Enchantment ;;;;;;;;;;;;;;;;;;;;
 693
 694 (mk-reusable-item
 695  't_spell_book_enchantment_wards "Enchantment: Wards" s_manual (/ norm 3)
 696  (lambda (kbook kuser)
 697    (kern-ui-page-text
 698     "Enchantment: Wards"
 699     "+-----------------------------------------+"
 700     "| SANCT -     Protect Thyself!    - SANCT |"
 701     "|  Mix Wards!  Cast spells of Protection! |"
 702     "|  Surround thyself with Fields of Force  |"
 703     "| Seeker   - Ye are in Danger! -  Beware! |"
 704     "+-----------------------------------------+"
 705     "Poison Ward <Sanct Nox>"
 706     "- Mix Garlic, Nightshade, Royal Cape"
 707     ""
 708     "Fire Ward <In Flam Sanct>"
 709     "- Mix [BLURRED], [SMEARED],"
 710     "      and the Cap of the Coastal Prince"
 711     ""
 712     "Mass Poison Ward <Vas Sanct Nox>"
 713     "- Mix Garlic, Nightshade, Mandrake, Royal Cape"
 714     ""
 715     "Protection <In Sanct>"
 716     "- Mix Sulphurous Ash, Ginseng, Garlic"
 717     ""
 718     "Dispel Magic <An Ort Xen>"
 719     "- Mix Sulphurous Ash, Garlic, Mandrake"
 720     ""
 721     "Negate Magic <In An>"
 722     "- Mix Sulphurous Ash, Garlic, Mandrake"
 723     ""
 724     "Force Field <In Sanct Grav>"
 725     "- Mix Spider Silk, Black Pearl, Mandrake"
 726     )
 727    result-ok))
 728
 729 (mk-reusable-item
 730  't_spell_book_enchantment_curses "Enchantment: Curses" s_manual (/ norm 3)
 731  (lambda (kbook kuser)
 732    (kern-ui-page-text
 733     "Enchantment: Curses"
 734     "+-----------------------------------------+"
 735     "|             To the Reader               |"
 736     "|    Be ye ACCURSED, I strike ye BLIND!   |"
 737     "|    ----------------------------------   |"
 738     "|        Gentle Reader - Be ye Wise       |"
 739     "|     Mix and Cast these Runes at Need    |"
 740     "+-----------------------------------------+"
 741     "Web <Ylem An Ex>"
 742     "- Mix Spider Silk, Black Pearl"
 743     ""
 744     "Calm Spiders <An Xen Bet>"
 745     "- Mix Garlic, Spider Silk"
 746     ""
 747     "Sleep <Xen Zu>"
 748     "- Mix Ginseng, Spider Silk"
 749     ""
 750     "Charm Monster <An Xen Ex>"
 751     "- Mix Spider Silk, Black Pearl, Nightshade"
 752     ""
 753     "Confusion <Quas An Wis>"
 754     "- Mix Nightshade, Mandrake"
 755     ""
 756     "Fear <In Quas Corp>"
 757     "- Mix Garlic, Nightshade, Mandrake"
 758     )
 759    result-ok))
 760
 761 (mk-reusable-item
 762  't_spell_book_enchantment_miscellanea "Enchantment: Miscellanea" s_manual (/ norm 3)
 763  (lambda (kbook kuser)
 764    (kern-ui-page-text
 765     "Enchantment: Miscellanea"
 766     "+-----------------------------------------+"
 767     "| [SMUDGED TEXT] the Secrets!   [BLURRED] |"
 768     "| Conceal the [STAIN] from [SMEARED WORD] |"
 769     "| AN EX WIS -                  - KAL QUAS |"
 770     "+-----------------------------------------+"
 771     "Quickness <Rel Tym>"
 772     "- Mix Sulphurous Ash, Blood Moss, Mandrake"
 773     ""
 774     "X-Ray Vision <Wis An Ylem>"
 775     "- Mix Sulphurous Ash, Mandrake"
 776     ""
 777     "Invisibility <Sanct Lor>"
 778     "- Mix Blood Moss, Nightshade, Mandrake"
 779     ""
 780     "Telekinesis <In Rel Por>"
 781     "- Mix Spider Silk, Blood Moss, Black Pearl"
 782     ""
 783     "Poison Wind <In Nox Hur>"
 784     "- Mix Sulphurous Ash,Blood Moss, Nightshade"
 785     ""
 786     "Wind of Sleep <In Zu Hur>"
 787     "- Mix Ginseng, Blood Moss, Mandrake"
 788     ""
 789     "Time Stop <An Tym>"
 790     "- Mix Garlic, Blood Moss, Mandrake"
 791     )
 792    result-ok))
 793
 794
 795 ;;;;;;;;;;;;;;;;;;;; Illusions, Misdirections, and Schemes ;;;;;;;;;;;;;;;;;;;;
 796
 797 (mk-reusable-item
 798  't_spell_book_illusion_1 "Illusions: Lesser Secrets" s_manual (/ norm 3)
 799  (lambda (kbook kuser)
 800    (kern-ui-page-text
 801     "Illusions: Lesser Secrets"
 802     "+-----------------------------------------+"
 803     "|          Be ye Wrogue, or Mage?         |"
 804     "|   By Artifice, by Cunning, ye Survive   |"
 805     "| Use well these Runes, Mix and Cast them |"
 806     "+-----------------------------------------+"
 807     "Conjure Smoke <Bet Ylem Hur>"
 808     "- Mix Sulphurous Ash"
 809     ""
 810     "Detect Traps <Wis Sanct>"
 811     "- Mix Sulphurous Ash"
 812     ""
 813     "Sleep <Xen Zu>"
 814     "- Mix Ginseng, Spider Silk"
 815     ""
 816     "Calm Spiders <An Xen Bet>"
 817     "- Mix Garlic, Spider Silk"
 818     )
 819    result-ok))
 820
 821 (mk-reusable-item
 822 't_spell_book_illusion_2 "Illusions: Greater Secrets" s_manual (/ norm 3)
 823  (lambda (kbook kuser)
 824    (kern-ui-page-text
 825     "Illusions: Greater Secrets"
 826     "+-----------------------------------------+"
 827     "|   Be ye Master Thief, or Cloaked Mage?  |"
 828     "| Artifice Superlative                    |"
 829     "|     Cunning Extraordinary               |"
 830     "|         Survival Quotidian              |"
 831     "|             Mix and Cast the Runes      |"
 832     "|                 CAVEAT LECTOR           |"
 833     "| NON CARBORUNDUM ILLEGITEMI              |"
 834     "+-----------------------------------------+"
 835     "Confusion <Quas An Wis>"
 836     "- Mix Nightshade, Mandrake"
 837     ""
 838     "Charm Monster <An Xen Ex>"
 839     "- Mix Spider Silk, Black Pearl, Nightshade"
 840     ""
 841     "Fear <In Quas Corp>"
 842     "- Mix Garlic, Nightshade, Mandrake"
 843     ""
 844     "Invisibility <Sanct Lor>"
 845     "- Mix Blood Moss, Nightshade, Mandrake"
 846     )
 847    result-ok))
 848
 849
 850 ;;;;;;;;;;;;;;;;;;;; Divination Magick ;;;;;;;;;;;;;;;;;;;;
 851
 852 (mk-reusable-item
 853 't_spell_book_divination "Mysteries of Divination" s_manual (/ norm 3)
 854  (lambda (kbook kuser)
 855    (kern-ui-page-text
 856     "Mysteries of Divination"
 857     "+-----------------------------------------+"
 858     "|     IN WIS - AN QUAS - VAS KAL EX WIS   |"
 859     "| Oh Seeker, are ye Wise? Riddle me then  |"
 860     "|   I Seek the Seeker,  I Slay the Slayer |"
 861     "|   I Wreak the Wrogue, I Work the Wright |"
 862     "|              What then am I?            |"
 863     "+-----------------------------------------+"
 864     "Detect Traps <Wis Sanct>"
 865     "- Mix Sulphurous Ash"
 866     ""
 867     "Disarm Trap <An Sanct Ylem>"
 868     "- Mix Blood Moss"
 869     ""
 870     "Locate <In Wis>"
 871     "- Mix Nightshade"
 872     ""
 873     "Vision <In Quas Wis>"
 874     "- Mix Nightshade Mandrake"
 875     ""
 876     "Reveal <Wis Quas>"
 877     "- Mix Sulphurous Ash, Nightshade"
 878     ""
 879     "X-Ray Vision <Wis An Ylem>"
 880     "- Mix Sulphurous Ash, Mandrake"
 881     )
 882    result-ok))
 883
 884
 885 ;;;;;;;;;;;;;;;;;;;; Master Spellbook ;;;;;;;;;;;;;;;;;;;;
 886
 887 (mk-reusable-item
 888  't_basic_spell_book "Spell Book" s_manual (/ norm 3)
 889  (lambda (kbook kuser)
 890    (kern-ui-page-text
 891     "Spell Book"
 892     ""
 893     "+-----------------------------------------+"
 894     "|   M)ix thy reagents to craft a spell,   |"
 895     "|   then C)ast it in thine hour of need.  |"
 896     "|   This tome will always serve thee well |"
 897     "|   but oh so carefully thou must read!   |"
 898     "+-----------------------------------------+"
 899     "                                           "
 900     "................ Reagents ................."
 901     "GI Ginseng                   SS Spider Silk"
 902     "GA Garlic                    BP Black Pearl"
 903     "SA Sulphurous Ash            BM Blood Moss "
 904     "NI Nightshade                MA Mandrake   "
 905     "................. Spells .................."
 906     "-------------- First Circle ---------------"
 907     "An Nox           Cure Poison    GI, GA     "
 908     "An Zu            Awaken         GI, GA     "
 909     "Grav Por         Magic Missile  SA, BP     "
 910     "In Lor           Light          SA         "
 911     "Mani             Heal           GI, SS     "
 912     "Wis Sanct        Detect Trap    SA         "
 913     "An Sanct Ylem    Disarm Trap    BM         "
 914     "-------------- Second Circle --------------"
 915     "An Sanct         Unlock         SA, BM     "
 916     "An Xen Corp      Repel Undead   GA, SA     "
 917     "In Wis           Locate         NI         "
 918     "Rel Hur          Change Wind    SA, BM     "
 919     "In Nox Por       Poison Missile NI, BM, BP "
 920     "In Bet Xen       Summon Vermin  SS, BM, SA "
 921     "-------------- Third Circle ---------------"
 922     "In Flam Grav     Fire Field     SA, BP, SS "
 923     "In Zu Grav       Sleep Field    GI, BP, SS "
 924     "In Nox Grav      Poison Field   NI, BP, SS "
 925     "Vas Flam         Fire Ball      BP, SA     "
 926     "Vas Lor          Great Light    SA, MA     "
 927     "-------------- Fourth Circle --------------"
 928     "An Grav          Dispel Field   BP, SA     "
 929     "In Sanct Grav    Energy Field   MA, BP, SS "
 930     "In Sanct         Protection     SA, GI, GA "
 931     "Wis Quas         Reveal Hidden  NI, SA     "
 932     "Bet Por          Blink (Caster) BP, BM     "
 933     "-------------- Fifth Circle ---------------"
 934     "In Ex Por        Unlock Magic   SA, BM     "
 935     "An Ex Por        Magic Lock     SA, BM, GA "
 936     "In Zu            Sleep          GI, NI, SS "
 937     "Vas Mani         Great Heal     GI, SS, MA "
 938     "Rel Tym          Quickness      SA, BM, MA "
 939     "Kal Xen          Summon Beast   SS, MA     "
 940     "-------------- Sixth Circle ---------------"
 941     "An Xen Ex        Charm          BP, NI, SS "
 942     "In An            Negate Magic   GA, MA, SA "
 943     "In Vas Por Ylem  Earthquake     BM, MA, SA "
 944     "Quas An Wis      Confuse        MA, NI     "
 945     "Wis An Ylen      Xray Vision    MA, SA     "
 946     "In Rel Por       Telekinesis    BP, BM, SS "
 947     "Vas Por          Teleport Party MA, BP, BM "
 948     "------------- Seventh Circle --------------"
 949     "In Nox Hur       Poison Wind    NI, SA, BM "
 950     "In Quas Corp     Fear           NI, MA, GA "
 951     "In Quas Wis      Peer           NI, MA     "
 952     "In Quas Xen      Clone          NI, MA, SA,"
 953     "...              ...            SS, BM, GI "
 954     "Sanct Lor        Invisibility   NI, MA, BM "
 955     "Xen Corp         Kill           NI, BP     "
 956     "-------------- Eighth Circle --------------"
 957     "An Tym           Time Stop      MA, GA, BM "
 958     "In Flam Hur      Flame Wind     MA, SA, BM "
 959     "In Vas Grav Corp Energy Wind    MA, SA, NI "
 960     "In Mani Corp     Resurrect      GA, GI, SS,"
 961     "...              ...            SA, BM, MA "
 962     "Kal Xen Corp     Summon Undead  SS, MA, NI "
 963     "Vas Rel Por      Gate Travel    SA, MA, BP "
 964     )
 965    result-ok))
 966
 967 ;;----------------------------------------------------------------------------
 968 ;; Anaxes letters
 969 (mk-reusable-item
 970  't_anaxes_letter "Letter to Anaxes" s_scroll v-hard
 971  (lambda (kletter kuser)
 972    (kern-ui-page-text
 973     "Letter"
 974     ""
 975     "Anaxes,                                      "
 976     "                                             "
 977     "My dearest love. The Twelve have cast you out"
 978     "(Luximene has them thoroughly cowed). He hath"
 979     "issued an edict that the old religion is     "
 980     "illegal, and all who show piety to any god   "
 981     "but he are Accursed.                         "
 982     "                                             "
 983     "As I write, the legions of Glasdrin and      "
 984     "Tulemane march on Brundegardt. I go to       "
 985     "destroy them before they reach you. Seal the "
 986     "entrance lest my sacrifice be in vain.       "
 987     "                                             "
 988     "Know, my love, that I never betrayed you. May"
 989     "our spirits meet in the void, and Vale exact "
 990     "his price from our enemies.                  "
 991     "                                             "
 992     "Love,                                        "
 993     "  Isin                                       "
 994     "                                             "
 995     "P.S. The Titans are safe. I have seen that   "
 996     "those who knew of them were slain.           "
 997     )
 998    result-ok))
 999
1000 ;;----------------------------------------------------------------------------
1001 ;; Stewardess's Journal
1002 ;;
1003 ;; TODO: update last entry time to match when warritrix quest becomes available
1004 ;; Journal should not be updated if stolen by wanderer (This would also destroy its applicability as evidence)
1005 ;;
1006 (mk-reusable-item
1007  't_stewardess_journal "Victoria's Journal" s_lexicon norm
1008  (lambda (klexicon kuser)
1009    (kern-ui-page-text
1010     "Victoria's Journal"
1011     ""
1012     "1.3.1610"
1013     "I fear that if the Warritrix grows more      "
1014     "popular, then the next time she defies me it "
1015     "will lead to open revolt. Extreme measures   "
1016     "must be taken, I fear. I must be most        "
1017     "careful. Perhaps 'our friends' can help us.  "
1018     "They owe us a large debt. Not that they can  "
1019     "be trusted. "
1020     ""
1021     "..."
1022     ""
1023     "11.13.1610"
1024     "I finally managed to get that pest Valus     "
1025     "out of the way. A little evidence in the     "
1026     "right place, a few nasty rumours, and the    "
1027     "people are ready to accept that he has become"
1028     "a deviant drunkard. I believe the desperate  "
1029     "fool would have had the temerity to strike   "
1030     "the statue if I had not detained him in a    "
1031     "cell. The statue's powers are probably a     "
1032     "myth, but I see no point in taking chances.  "
1033     ""
1034     "..."
1035     ""
1036     "4.1.1611"
1037     "S. has warned me that rumours of a Wanderer  "
1038     "are afoot. S. is such a useful tool. I do    "
1039     "wonder where he gets his information. I don't"
1040     "know why he is worked up about a Wanderer,   "
1041     "anyway. I'm sure the legends about them are  "
1042     "greatly exaggerated. The last time a Wanderer"
1043     "appeared, the Old Gods still walked the      "
1044     "Shard, if the myths are true.                "
1045     ""
1046     "..."
1047     ""
1048     "6.12.1611"
1049     "I have received word from S. All is prepared."
1050     "I will suggest to Jeffries that the rumours  "
1051     "of feral gints occupying the Lost Halls must "
1052     "be investigated, and will insist on the      "
1053     "Warritrix leading the expedition. They will  "
1054     "expect gint riff-raff, not sorcery, and S.   "
1055     "will ensure the way is shut behind them.     "
1056     "There will be no escape, and if there is, I  "
1057     "am not culpable. If anything, that fool      "
1058     "Jeffries will go down for incompetence.      "
1059     ""
1060     "The only thing that could condemn me is this "
1061     "journal. But no one will ever find it, and   "
1062     "when I am queen of all the Shard the scribes "
1063     "will need it for their histories.            "
1064     ""
1065     "..."
1066    )
1067    result-ok))