275 lines
11 KiB
ArmAsm
Executable File
275 lines
11 KiB
ArmAsm
Executable File
* 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
|
|
|