Willus.com
Home
|
Archive
|
About
CASTLADV.BAS
(14039 bytes)
EMULATE AS:
DEFAULT TYPE (CMD)
|
BASIC program
|
Program on Disk
|
2-Disk Debug
|
Disk Download
SHOW BELOW AS:
BASIC program
(download)
|
Text File
(download)
|
Z-80 Program
(download)
|
EDTASM File
(download)
|
Graphic
(download)
|
Hex File
(download)
|
SCRIPSIT File
(download)
Return to TRS-80 software list.
: CASTLE ADVENTURE ? "Do you want to restore a previous game";Z$: p( (Z$,)"Y" (Z$,)"y" FLAG: v2 < :S:B:N:E:G:SI :BO:P:J:CH:SV :R:F:Z: 4 F Y(): Y ::: @ (,),""; P FLAG:Y$"":Q$"":A$"":LL: L , -Z L ] Ad :"Command: "; n A$: I (A$): ((A$,I,))Z (A$,I,)(((A$,I,)) ) x ҅ LE(A$):J$(A$,): J$" " A$(A$,LE): LE(A$):J$(A$,): J$" " A$(A$,LE): T Q$(A$,): A (A$):J$(A$,A,): J$" " Y$(A$,A,) Z (A$) K: : Q$"YES" K b Q$"YES" : Q$"NO" K v 톾 Q$"NO" : K: Q$"GET" 6 * Q$"DRO" 8 : Q$"THR" 8 : Q$"LOO" 4 g Q$"OPE" p : Q$"TAK" 6 : Q$"CAR" 6 Q$"REA" : Q$"HIT" : Q$"JUM" N Q$"ASK" : Q$"SMA" : Q$"INV" Q$"DIG" : Q$"KIL" : Q$"FIG" [ Q$"DRI" p : Q$"CLI" L : Q$"FIN" 6 Q$"SAY" : Q$"HEL" ~ : Q$"EAT" > Ո Q$"LEF" | : Q$"RIG" | : Q$"QUI" Q$"STA" Y$"OVE" < 6" Q$"SAV" Y$"GAM" < : Q$"RES" Y$"GAM" @, h }6 Y$"SWO" : Y$"BOO" : Y$"NOT" @ Y$"EME" : Y$"GOL" : Y$"SIL" J Y$"WAT" : Y$"JEW" : Y$"POR" T Y$"SKE" Z 2^ Y$"SKE" Z oh Y$"PAN" : Y$"BOA" : Y$"DRA" r Y$"CHE" : Y$"SHO" : Y$"ROP" ܊| Y$"FOO" : Y$"MAN" R : r S : SZ S: @ : SZ F B : BZ B: @ : BZ { N : NZ N: @ : NZ E : EZ E: @ : EZ 勮 G : GZ G: @ : GZ SI : SIZ SI: @ : SIZ S J : JZ J: @ : JZ P : PZ P: @ : PZ BO : BOZ BO: @ : BOZ CH : CD CHZ CH: @ : CHZ CD B SV : SVZ SV: @ : SVZ w R : RZ R: @ : RZ F : FZ F: @ : FZ č Z : Y$"POR" P & Y$"POR" Z &0 Y$"POR" P B: Y$"SKE" D : bD Z : Z N Z Q$"JUM" :"Do you really think you can make it?":K: F X HbK::"Well sorry, you didn't!! The pit was much too large to jump over. Your funeral service will be held in a couple of days." Տl"Why don't you try to escape from the castle again, only this time bring something with you to help you cross the pit...": < 0vK::"That was a wise decision! The last adventurer that tried to jump over the pit" "was never heard from again. Try using something to help you cross the pit.": F Y$"BOO" B Ð Y$"BOO" B Y$"NOT" N Y$"NOT" N Y$"SWO" S 9 Y$"SWO" S C _ Y$"HEL" : ֑ Z :"The old man replies, "(")"Heed my advice young adventurer,":"the night holds many secrets!"(") Z :"There is no one to talk to!" F d SV : Z : CD :"There is nothing to dig up.": F Z SV :"You have uncovered a chest.":CD: F Y$"DRA" Z Y$"DRA" Z Y$"EME" E S Z G1: /* Y$"EME" E {4 Y$"EME" E Z S :"You don't have the sword.": F > Y$"SKE" Z H Y$"SKE" Z ԓR Y$"MAN" Z \ Y$"MAN" Z f p Y$"PAN" Z zZ::"The panel opens and a passage is behind it. You are magically transported to the library. The panel slams shut behind you." DE o:: 0 ֔ Y$"PAN" Y$"CHE" CH J Y$"CHE" CH V:"You are currently carrying the following items:" y S "Jewel-studded sword" B "Large leather-bound book" N "Note" ԕ E "Glowing emerald" G "Gold nuggets" SI "Silver bars" ( BO "Large board" L P "Portrait of a knight" J "Jewels (diamonds, rubies, and sapphires)" CH "Chest filled with coins" ͖$ SV "Old rusty shovel" . R "Magic rope" 8 F "Exotic food" B F ;L Z R Y$"ROP" R:Z: YV R Y$"ROP" w` Y$"ROP" R j R Y$"ROP" ^ t Y$"ROP" ~ Z P :"You are holding a clue for getting by the dragon.": F E Z P :"There is a clue in one of the other rooms.": F p:"I'm as confused as you are!": F Z : Z Z : Z 瘰 A$"E" A$"W" A$"N" A$"S" : ) Z ,,,,, ,(,2,<,F,d,n,x,* a A$"E" Z: : A$"S" Z: : k D A$"E" Z: : A$"S" Z: : ݙ A$"W" Z: 0 : A$"N" BO Z: b A$"S" BO Z: l ! A$"E" BO Z: 3 BO = u A$"N" Z: : A$"E" Z: : A$"S" Z: : A$"W" Z: b : ( A$"N" Z: : A$"W" Z: : A$"S" Z: : 2 A$"W" Z: l : V< A$"N" Z: : A$"E" Z : : F A$"S" Z : : A$"E" G1 Z : P A$"W" A$"N" G1 ɛZ G1 d A$"S" Z : : A$"N" Z : : <n A$"W" Z: : A$"N" Z : : x A$"W" Z : : A$"S" : A$"N" : A$"E" : :"No.": F ߜ:"I don't know how to apply that word here.": F :"I don't understand.":LL: F (:"Surely you jest!": F _:"You don't have anything to carry it in.": F :"You already have it!": F :"You can't be serious!": F ʝ:"You don't have it!": F :"I don't know how to unlock such a thing!": F ':"There isn't one here.": F :"The skeleton replies, "(")"To escape from the dungeon you must":"use all the reasoning skills at your disposal."("): F :"As you approach the man, he begins to sway back and forth while muttering" T"a strange incantation. In a puff of smoke, you turn into a marble statue." ޟ"The castle has claimed another inexperienced adventurer. I'll give you another chance to escape from the castle....": < :"You don't have a shovel.": F Z:"Your attack infuriates the skeleton! He wraps his bony fingers around your" ""neck and strangles you until you are dead. Obviously you weren't a worthy" !,"opponent. Maybe next time you won't feel that you are invincible. Try escaping from the castle again...": < {6:"I can only describe what I see, I cannot tell you where remote things are.": F @:"OK": F J:"The chest is full of coins.": F T:"The rope slowly uncoils as it winds its way down to the bottom of the pit.": F R^:"How can you climb a rope that you're not holding": F h:"I don't understand your command!":LL: F r:"I don't know that word.": F |:"I don't know what direction you are facing. Please use compass points.": F 8:"You can't dig through a rock floor.": F ~: (")"Hit the emerald"(")", the painting whispers.": F ˣ:"The book says, "(")"There are jewels in the dungeon."("): F :"The note says, "(")"You must escape the dragon!"("): F V:"The inscription reads, "(")"Made in Japan!"("): F z:"I see no panel here!": F ͤ:"The emerald gives off a magical light which forces the dragon away.": : ();" You are in the hall. ";();: a BO "There is a path across the pit.":"Exits are to the north, east, south, and west." BO "There is a large pit barring the way." R "A rope is stretching from the floor to the bottom of the pit." V: ();" You are in the Queen's chambers. ";();::"The only obvious exit is to the west." "There is a skeleton moving about in the center of the room.": Ҧ:"The skeleton will not let you pass!": F : ();" You are in the galley. ";();: &"You notice that the floor is moving. You realize that it is a trap, but it is too late! You fall into a damp, dark dungeon.": : 0: ();" You are in the library. ";();::"Exits are to the east and south.": : DE o: ~D: ();" You are in the dungeon. ";();::"A panel appears on the west wall of the dungeon." N"Passages lead off in all directions." X b: ();" You are in a small, dark chapel. ";();::"Exits are to the east and south.": }l: ();" You are in the King's chambers. ";();::"Exits are to the north and east." v"Silvery water cascades down a fountain.": : ();" You are in the banquet room. ";();::"Exits are to the north, south, and west.": Q:"There is no exit in that direction!": F :"There is no way across the pit yet.": F 媞: ();" You are in the crown room. ";();::"Exits are to the south and west": B: ();" You are in the armory. ";();::"Exits are to the north and east": w: ();" You are in the bedroom. ";();: ޫ"Exits are to the north and west.":"An old man in a wizard costume sits crosslegged on the bed." (")"Greetings"(")", says the old man.": : ();" You are in the servant's quarters. ";();::"Exits are to the north and south.": : ();" You are in the dressing room. ";();: G1 "There is a fierce dragon here." : "There are exits to the east and south." $ : (); "You are in the tower. ";();::"Exits are to the west and down.": :"The dragon will not let you pass.": F :"You find a window and climb down the rope into the courtyard. Congratulations!!" S :"After you climb down the rope, it vanishes into thin air." *"You are at the bottom of a large pit.": Ȯ4 Z 0,D,b,,l,,,,,,,,,* > Y$"FOO" F \ H Y$"FOO" F -R Y$"EAT" : Y$"FOO" \:"The food wasn't too bad, but it was full of arsenic! You slowly die......" ܯf"Why don't you try to escape from the castle again without making that mistake.": < 8p Y$"WAT" Z L::"Suddenly your strength is renewed." : Z : Bz F ذ"You feel as though you are getting weak. You can't last much longer! You better find some water to drink as soon as possible!": F :"You are so tired and weak that you collapse from exhaustion!" f"Evidently you weren't an experienced enough adventurer to escape" "from the castle. Don't give up...I'll give you another chance to try.": < SZ "A jewel-studded sword lies on the floor." $ BZ "A large leather-bound book is here." O NZ "A note may be found nearby." EZ "There is a glowing emerald sitting on the floor." Ȳ GZ "Gold nuggets lay in a pile in the corner." SIZ "A pile of silver bars is stacked on the floor." ? Z : BOZ "A large board is nearby." PZ "A portrait of a knight with piercing eyes is on the floor nearby." JZ "You see diamonds, rubies, and sapphires glinting in the dim light." 6 CD : CHZ "A chest filled with coins is sitting on the floor." w SVZ "An old rusty shovel is leaning against the wall." R $ : RZ "A magic rope is floating in the air." $ FZ "A variety of exotic food releases a tantalizing aroma." . F G8 Y$"SWO" j : Y$"BOO" t : Y$"NOT" ~ B Y$"EME" : Y$"GOL" : Y$"SIL" L Y$"BOA" : Y$"POR" : Y$"JEW" V Y$"CHE" : Y$"SHO" : Y$"ROP" ` Y$"FOO" : r 8j S : SZ: @ Vt B : BZ: @ t~ N : NZ: @ E : EZ: @ G : GZ: @ ж SI : SIZ: @ BO : BOZ: Z : @ P : PZ: @ 9 J : JZ: @ Y CH : CHZ: @ y SV : SVZ: @ ʷ R : Z : SI S J G E CH RZ: Z : @ F : FZ: @ / :"Restoring previously saved game..." : "I",,"MAGIC/DAT": : #,CH,S,SV,L,Z,B,R,N,F,E,K,G,CD,SI,G1,J,B1,P,C1,BO,D1::: 4 ˸ : ,: FLAG 2 " "A disk error was detected. Make sure there's a previous game and disk is ready." 7( DE o:: 2 :"A disk error was detected. Make sure there is a previous game and disk is ready.";: F < :"Saving game to disk..." $F P : "O",,"MAGIC/DAT": : #,CH,S,SV,L,Z,B,R,N,F,E,K,G,CD,SI,G1,J,B1,P,C1,BO,D1:: F .P Z yZ ::"A disk error was detected. Please check the disk setup!" d "Make sure the diskette does not have a write-protect tab.": F