Apple-2-SW/jewel-of-kaldun
1
0
Fork 0
mirror of https://github.com/a2geek/jewel-of-kaldun.git synced 2025-03-21 14:29:33 +00:00
Code Issues Projects Releases Wiki Activity
jewel-of-kaldun/story.s

275 lines
11 KiB
ArmAsm
Executable File
Raw Permalink Blame History

* External references
; graphics.s
HGRCLEAR EXT
********************************
* The story behind the Jewel *
* of Kaldun along with the *
* instructions for play. *
* Uses: IO *
* IO.MAC *
* CASTLES *
********************************
STORY JSR CLRSCRN
LDA #0
STA TLINE
JSR TEXTADDR
CENTER TITLE00
PRINT STORYP1
JSR GETRET
JSR CLRMID
PRINT STORYP2
JSR HGRCLEAR
JSR CASTLE1
JSR GETRET
JSR CLRMID
JSR SETHGR
PRINT STORYP3
JSR GETRET
JSR CLRMID
PRINT STORYP4
JSR DRAWBRID
JSR GETRET
JSR CLRMID
PRINT STORYP5
JSR LEAVEC1
JSR GETRET
JSR CLRMID
JSR TEXT
PRINT STORYP6
JSR GETRET
JSR CLRMID
PRINT STORYP7
JSR HGRCLEAR
JSR CASTLE2
JSR GETRET
JSR CLRMID
JSR SETHGR
PRINT STORYP8
JSR ARRIVEC2
JSR GETRET
JSR CLRSCRN
PRINT STORYP9
LDA #%10000000
STA ESCABORT
JSR GETRET
JSR CLRSCRN
JSR TEXT
LDA #0
STA TLINE
JSR TEXTADDR
CENTER INSTR00
PRINT INSTRP1
JSR GETRET
JSR CLRMID
PRINT INSTRP2
JSR GETRET
JSR CLRMID
PRINT INSTRP3
JSR GETRET
JSR CLRMID
PRINT INSTRP4
LDA #%10000000
STA ESCABORT
JSR GETRET
JSR CLRSCRN
LDA #0
STA TLINE
JSR TEXTADDR
CENTER PLAY00
PRINT PLAYP1
LDA #%10000000
STA ESCABORT
JSR GETRET
JSR CLRSCRN
LDA #0
STA TLINE
JSR TEXTADDR
CENTER GPL00
PRINT GPLP1
LDA #%10000000
STA ESCABORT
JSR GETRET
JSR CLRSCRN
RTS
GPL00 ASC "CONTACT & LICENSE"00
PLAY00 ASC "PLAYING NOTES"00
INSTR00 ASC "INSTRUCTIONS"00
TITLE00 ASC "THE STORY"00
STORYP1 HEX 43
ASC "For many years, there had been a legend"8D
ASC "of a magical emerald, entitled the"8D
ASC "'Jewel of Kaldun.' This gem had been"8D
ASC "lost in a deserted castle that was once"8D
ASC "occupied by the great magician Kaldun."8D
HEX 8D
ASC "This castle is rumored to be haunted"8D
ASC "with ghosts, zombies and magical bats,"8D
ASC "and has been acclaimed as being 'fates"8D
ASC "friend or foe.' It has been said that"8D
ASC "whatever kingdom possesses this 'Jewel"8D
ASC "of Kaldun' shall have only peace and"8D
ASC "health for the rest of its days."8D
HEX 8D
ASC "King Aradea was ruling during troubled"8D
ASC "times. Famine and disease plagued his"8D
ASC "kingdom. When he heard of this jewel,"8D
ASC "he announced the following proclamation:"8D00
STORYP2 HEX 4305
ASC "Whosoever finds the Jewel of"8D05
ASC "Kaldun shall be given the hand"8D05
ASC "of my beautiful daughter Lydia"8D05
ASC "in marriage and will follow as"8D05
ASC "my successor. However, there"8D05
ASC "is one stipulation to this"8D05
ASC "quest: he whoever tries must"8D05
ASC "begin his search in the deserted"8D05
ASC "castle at sunset and return to"8D05
ASC "me by noon the following day."8D05
ASC "For whosoever accomplishes this"8D05
ASC "task must be quick of mind and"8D05
ASC "stout of heart. The one who is"8D05
ASC "capable of this task will be"8D05
ASC "worthy of my daughter, and of my"8D05
ASC "kingdom."8D14
ASC "- King Aradea"00
STORYP3 HEX 54
ASC "The kingdom stirred with hope and"8D
ASC "intrigue. Many men attempted the quest"8D
ASC "and were never seen again."00
STORYP4 HEX 54
ASC "One day a local peasant named Meltok"8D
ASC "decided to undertake the proclaimed"8D
ASC "search."00
STORYP5 HEX 54
ASC "After telling King Aradea of his plans,"8D
ASC "he leaves the castle in hopes of the"8D
ASC "Jewel of Kaldun ..."00
STORYP6 HEX 43
ASC "As Meltok left the castle, he realized"8D
ASC "that he needed to know more about this"8D
ASC "castle and the wizard, Kaldun..."8D
HEX 8D
ASC "As you talk to your fellow peasants,"8D
ASC "you notice that noone really knows of"8D
ASC "the wizard Kaldun -- it's all made up!"8D
HEX 8D
ASC "However, about the Castle of Kaldun and"8D
ASC "the Jewel of Kaldun, there is plenty to"8D
ASC "tell. For one, it is said that the"8D
ASC "castle lies deserted. However, it is"8D
ASC "also told that the moment a live creature"8D
ASC "sets foot upon the castles' ground,"8D
ASC "monsters begin to appear. From where,"8D
ASC "noone can tell..."00
STORYP7 HEX 43
ASC "There is a rumor that makes you stop"8D
ASC "in your tracks. 'It is said,' an old"8D
ASC "man says, 'that if the Jewel of Kaldun"8D
ASC "is removed from the castle, the land"8D
ASC "will prosper but a few years before all"8D
ASC "of mankind is lost! Be careful, my"8D
ASC "son.' And with that, he leaves you."8D
ASC "When you look around for the man, he is"8D
ASC "no where to be seen..."00
STORYP8 HEX 55
ASC "Finally, Meltok arrived at the Castle of"8D
ASC "Kaldun."00
STORYP9 HEX 54
ASC "It is time for you to help Meltok find"8D
ASC "the Jewel of Kaldun. Are you capable"8D
ASC "of this formidable task?"00
INSTRP1 HEX 43
ASC "To move Meltok, use the I, J, K, and M"8D
ASC "keys:"8D83
ASC "(north)"8D83
ASC "I"8D83
ASC "(west) J K (east)"8D83
ASC "M"8D83
ASC "(south)"8D
HEX 8D
ASC "When Meltok is on a ladder, press:"8D05
ASC "[A] to ascend (go up) and"8D05
ASC "[D] to descend (go down)"8D
HEX 8D
ASC "When you are unsure of what an item on"8D
ASC "the screen is, press [L] for look."8D
HEX 8D
ASC "To open a chest, press [O], but beware:"8D
ASC "Some treasure chests have traps in them"8D
ASC "that can hurt Meltok!"00
INSTRP2 HEX 43
ASC "To search for secret doors, press [S]"8D
ASC "and the direction you wish to search in."8D
HEX 8D
ASC "When Meltok has found keys, he may"8D
ASC "unlock some of the locked doors in the"8D
ASC "castle by pressing [U] and the direction"8D
ASC "of the door. (There are some special"8D
ASC "doors that will not be opened by the"8D
ASC "general keys ... you must find those.)"8D
HEX 8D
ASC "To heal Meltok, press [R] to rest him."8D
ASC "Hit Points will slowly heal."8D
HEX 8D
ASC "When the JEWEL OF KALDUN is found, press"8D
ASC "[T] and the direction of the gem to take"8D
ASC "it."00
INSTRP3 HEX 43
ASC "To get a numerical status, press:"8D05
ASC "[H] for health, or"8D05
ASC "[W] for wealth"8D
ASC "Health consists of Hit Points, Exper-"8D
ASC "ience and level. Wealth consists of"8D
ASC "Gold Pieces, Keys, and any special"8D
ASC "items."8D
HEX 8D
ASC "When Meltok encounters those vile"8D
ASC "creatures that inhabit the Castle of"8D
ASC "Kaldun, press [F] and a direction key"8D
ASC "to fight them. You will do more damage"8D
ASC "as you go up levels, and will even gain"8D
ASC "automatic hits -- if you live that long."00
INSTRP4 HEX 43
ASC "Whenever you are asked for the direc-"8D
ASC "tion you wish to perform an action in,"8D
ASC "use the movement keys to indicate the"8D
ASC "direction (I, J, K, and M)."8D
HEX 8D
ASC "To get a summary of the commands"8D
ASC "available to Meltok, press [?]."8D
HEX 8D83
ASC "We hope you enjoy the Jewel of Kaldun!"8D83
ASC "A2 Geek / BShagle"00
PLAYP1 HEX 43
ASC "For those of you interested, here are"8D
ASC "all of the monster statistics:"8D
HEX 8D05
ASC "Name HP XP Movement"8D05
ASC "------- -- -- --------"8D05
ASC "Blob 2 10 4"8D05
ASC "Zombie 16 75 1"8D05
ASC "Ghost 8 30 2"8D
HEX 8D
ASC "Movement is how many turns Meltok can"8D
ASC "make before the monster will move. It"8D
ASC "should be said, however, that the mon-"8D
ASC "sters can attack on every move!!"00
GPLP1 HEX 43
ASC "This program is licensed under the GPL."8D
ASC "Please see the LICENSE file available"8D
ASC "in the source code."8D
HEX 8D
ASC "Visit us to report bugs, make"8D
ASC "suggestions, or to just grab the code"8D
ASC "to hack on!"8D
HEX 8D83
ASC "github.com/a2geek/jewel-of-kaldun"8D
HEX 00
Reference in New Issue View Git Blame Copy Permalink