Willus.com
Home
|
Archive
|
About
WIZCAST3.BAS
(13496 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD 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.
j 150:AF,HZ:K#(7,7),C$(33),R$(4),W$(8),E$(8),C(3,4),T(8):I0::T(128):20 j I(K#(X1,Y1))Z1: k I(I)100((I)99): k II8((I9)(I0)): <k II(I19)18(I18): _k X(8):Y(8):6:(I)10110 jk I,Q: Fl :(64,"*"),:21)"THE WIZARD'S CASTLE":(64,"*"),"Copyright (C) 1979 by Joseph R Power":Y$"** ANSWER YES OR NO":X$"DO YOU WANT A POTION OF ":Q$" FOR 1000 GP'S":ST$"STRENGTH":IQ$"INTELLIGENCE":DX$"DEXTERITY" el "LAST REVISED 08/26/80": lP :Q133:C$(Q):Q:I$:Z18:Y18:X18:6:I,101:X,Y,Z:Q18:W$(Q),E$(Q):Q:Q14:R$(Q):Q:"PLEASE BE PATIENT - ";:X1:Y4:Z1 m 6:I,2:"IN";:Z17:Q112:Q104:10:I1,103:Q1:Z:"I";:Z18:Q113124:10:Q:Q113:Q105112:10:Q:Q125:10:Q1:O$:O$;:Z 6n Q126133:Z(8):10:Q:"G";:Q101:A13:Z(8):10:C(A,1)X:C(A,2)Y:C(A,3)Z:C(A,4)0:O$:O$;:A:"S";:RC0:ST2:DX14:R$(3)"MAN":Q112(12):Z(8):10:R1X:R2Y:R3Z nQ109:Z(8):10:O1X:O2Y:O3Z:"TLE":BF0:OT8:AV0:HT0:T1:VF0:LF0:TC0:GP60:RF0:OF0:BL0:IQ8:SX0:Q18:T(Q)0:Q::;"ALL RIGHT, BOLD ONE" o@"YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT":8005 ;oJQ14:(R$(Q),1)O$RCQ:STST2Q:DXDX2Q joTQ:OTOT4(RC1):RC0R$(3)"HUMAN":390 or"** THAT WAS INCORRECT. PLEASE TYPE E, D, M, OR H.":320 p"SEX ";:8010:O$"M"SX1::O$"F"ʲ"** CUTE ";R$(RC);", REAL CUTE. TRY M OR F":390 p:"OK ";R$(RC);", YOU HAVE THESE STATISTICS:":ST$;"= ";ST,IQ$;"= ";IQ,DX$;"= ";DX:"AND ";OT;" OTHER POINTS TO ALLOCATE AS YOU WISH." pZ$IQ$:8020:IQIQQ:OTZ$ST$:8020:STSTQ:OTZ$DX$:8020:DXDXQ q :"OK, ";R$(RC);", YOU HAVE 60 GOLD PIECES (GP's)" q&Z$"ARMOR":8100:AV0:WV0:FL0:WC0:"PLATE<30> CHAINMAIL<20> LEATHER<10> NOTHING<0>":8005:O$"N"640 qNAV3(O$"P")2(O$"C")(O$"L"):AV0ʲ"** ARE YOU A ";R$(RC);" OR A TURKEY ? TYPE P,C,L, OR N":550 9rAHAV7:GPGPAV10::"OK, BOLD ";R$(RC);", YOU HAVE ";GP;" GP's LEFT" rZ$"WEAPONS":8100:"SWORD<30> MACE<20> DAGGER<10> NOTHING<0>":8005:O$"N"740 rWV3(O$"S")2(O$"M")(O$"D"):WV0ʲ"** IS YOUR IQ REALLY ";IQ;"? TYPE S,M,D, OR N":650 sGPGPWV10::GP20800 ks"WANT TO BUY A LAMP FOR 20 GP's ";:8010:O$"Y"LF1:GPGP20:800::O$"N"ʲY$:760 s :GP1Q0:850 s*"OK, ";R$(RC);", YOU HAVE ";GP;" GOLD PIECES LEFT" t4"FLARES COST 1 GP EACH. HOW MANY DO YOU WANT ";O$:Q(O$):Q0(O$)48840 At>"** IF YOU DON'T WANT ANY JUST TYPE 0 (ZERO)":820 ntHQGPʲ"** YOU CAN ONLY AFFORD ";GP:820 tR:FLFLQ:GPGPQ:X1:Y4:Z1:"OK ";R$(RC);", YOU ENTER THE CASTLE AND BEGIN.":2740 tpTT1:RFOF0910 tuC(1,4)T(1)TT1 uzC(2,4)T(3)GPGP(5):GP0GP0 LuC(3,4)T(5)I(512)8000:QI:7:Q,I100 uQ13:C(Q,4)C(Q,4)(C(Q,1)X)(C(Q,2)Y)(C(Q,3)Z):C(Q,4)(C(Q,4)0):Q u(5)11050 u"YOU ";:Q(7)BL:Q7Q4 uQ940,925,930,920,945,960,965:1050 v"STEPPED ON A FROG": Sv"HEAR ";("A SCREAM FOOTSTEPSA WUMPUS THUNDER",(4)98,9): dv"SNEEZED": ~v"SEE A BAT FLY BY": v"SMELL ";C$(12(13));" FRYING": v"FEEL LIKE YOU'RE BEING WATCHED": v"ARE PLAYING WIZARD'S CASTLE": &wBLT(4)2ʲC$(29);" CURES YOUR BLINDNESS":BL0 Xw$BFT(6)2ʲC$(31);" DISSOLVES THE BOOK":BF0 w8:"YOUR MOVE ";O$:(O$,2)"DR"1630::O$(O$,1):O$"N"1290 Kx`(O$"S")(O$"W")(O$"E")1300::O$"U"1380::O$"D"1400::O$"M"1420::O$"F"ʡ1BL1470,1420::O$"L"ʡ1BL1520,1420::O$"O"1850::O$"G"ʡ1BL2010,1420 xO$"T"ʡ1RF2130,2150::O$"Q"2190::"** STUPID ";R$(RC);" THAT WASN'T A VALID COMMAND":880 x 6:(I)24240 yIX(O$"N")(O$"S"):8:XI:IY(O$"W")(O$"E"):8:YI:2740 $yd6:(I)3ZZ1:2740 6ynZ$"UP":1410 [yxZ$"DOWN":6:(I)4ZZ1:2740 y"** OH ";R$(RC);", NO STAIRS GOING ";Z$;" IN HERE":880 yBL1ʲ"** YOU CAN'T SEE ANYTHING, DUMB ";R$(RC):880 z::AX:BY:X18:Y18:6:Q(I):Q99Q34 ,zXAYBʲ"<";(I$,Q,1);">";:1443 Dz" ";(I$,Q,1);" "; ^zY::X:XA:YB:1510 zFL0ʲ"** HEY BRIGHT ONE, YOU'RE OUT OF FLARES":880 {:FLFL1:AX:BY:Q1A1A1:IQ1:8:XI:Q2B1B1:IQ2:8:YI:6:QI:7:Q,I:(I$,I,1);" ";:Q2::Q1:XA:YB {8110:880 S{LF0ʲ"** YOU DON'T HAVE A LAMP, ";R$(RC):880 |"WHERE DO YOU SHINE THE LAMP (N,S,E, OR W) ";:8010:AX:BY:IX(O$"N")(O$"S"):8:XI:IY(O$"W")(O$"E"):8:YI:(AX)(BY)0ʲ"** TURKEY! THAT'S NOT A DIRECTION":880 x|J"THE LAMP SHINES INTO (";X;",";Y;") LEVEL ";Z:6:QI:7:XI:"THERE YOU WILL FIND ";C$(X):XA:YB:Q,I:880 |^6:(I)5ʲ"** IF YOU WANT A DRINK, FIND A POOL":880 |hQ(8):"YOU TAKE A DRINK AND ";:Q7ʲ"FEEL "; }rQ1660,1690,1710,1740,1755,1780,1800,1820 >}|IST(3):9:STI:"STRONGER":880 j}STST(3):"WEAKER":1(ST1)880,4180 }IIQ(3):9:IQI:"SMARTER":880 }IQIQ(3):"DUMBER":1(IQ1)880,4180 }IDX(3):9:DXI:"NIMBLER":880 ~DXDX(3):"CLUMSIER":1(DX1)880,4180 &~Q(4):QRC1800 H~RCQ:"BECOME A ";R$(RC):880 r~ SX1SX:"TURN INTO A ";:SX0ʲ"FE"; ~&"MALE ";R$(RC):880 ~:6:(I)6ʲ"YOU OPEN THE CHEST AND":1950 ~?6:(I)12ʲ"YOU OPEN THE BOOK AND":1870 %D"** THE ONLY THING YOU OPENED WAS YOUR BIG MOUTH":880 MN(6)1880,1890,1900,1910,1920,1930 X"FLASH! OH NO! YOU ARE NOW A BLIND ";R$(RC):BL1:1940 b"ITS ANOTHER VOLUME OF ZOT'S POETRY! - YEECH!":1940 l"ITS AN OLD COPY OF PLAY";R$((4)):1940 v"ITS A MANUAL OF DEXTERITY!":DX18:1940 M"ITS A MANUAL OF STRENGTH !":ST18:1940 "THE BOOK STICKS TO YOUR HANDS SO YOU CAN'T DRAW YOUR WEAPON!":BF1 6:I,1:880 ŀ(4)1960,1980,1990,1980 "KABOOM! IT EXPLODES":Q(6):4150:1(ST1)1940,4180 7Q(1000):"FIND ";Q;" GOLD PIECES":GPGPQ:1940 "GAS! YOU STAGGER FROM THE ROOM":6:I,1:TT20:O$("NSEW",(4),1):1300 6:(I)11ʲ"** NO ORB - NO GAZE":880 "YOU SEE ";:(6)2030,2050,2060,2070,2090,2120 '"YOURSELF IN A BLOODY HEAP":STST(2):1(ST1)880,4180 l"YOURSELF DRINKING FROM A POOL AND BECOMING ";C$(12(13)):880 C$(12(13));" GAZING BACK AT YOU":880 AX:BY:CZ:X(8):Y(8):Z(8):6:QI:7:Q,I:C$(I);" AT (";X;",";Y;") LEVEL ";Z:XA:YB:ZC:880 2*A(8):B(8):C(8):(8)4AO1:BO2:CO3 g>"THE ORB OF ZOT AT (";A;",";B;") LEVEL ";C:880 H"A SOAP OPERA RERUN":880 ŃRRF0ʲ"** YOU CAN'T TELEPORT WITHOUT THE RUNESTAFF!":880 lfZ$"X-COORD (1=FAR NORTH 8=FAR SOUTH) ":8060:XQ:Z$"Y-COORD (1=FAR WEST 8=FAR EAST ) ":8060:YQ:Z$"LEVEL (1=TOP 8=BOTTOM ) ":8060:ZQ:O$"T":2740 Ȅ"DO YOU REALLY WANT TO QUIT ";:8010:O$"Y"ʲ"** THEN DON'T SAY YOU DO":880::4280 BL0ʑ8110 G "ST= ";ST;" IQ= ";IQ;" DX= ";DX;" FLARES= ";FL;" GP's= ";GP:W$(WV1);" / ";W$(AV5);:LF1ʲ" / A LAMP"; :WC0:6:QI:7:Q,I:Z$"YOU HAVE ":"HERE YOU FIND ";C$(I):QI:(Q7)(Q11)(Q12)880 Dž Q7GPGP(10):Z$;GP:1940 Q8FLFL(5):Z$;FL:1940 Q92860 & (O1X)(O2Y)(O3Z)ʡ1(O$"T")1300,4410 E" X(8):Y(8):Z(8):2740 b, Q10IZ1:8:ZI:2740 T Q25Q34ʲ"ITS NOW YOURS":T(Q25)1:TCTC1:1940 ĆY 6:A(I)12:WC0:(A13)(VF1)3572 ^ "YOU MAY TRADE WITH, ATTACK, OR IGNORE THE VENDOR":8005:O$"I"880 E| O$"A"VF1:"YOU'LL BE SORRY YOU DID THAT":3572 q O$"T"ʲ"** NICE SHOT, ";R$(RC):2910 Q18:A(Q1500):T(Q)03020 "DO YOU WANT TO SELL ";C$(Q25);" FOR ";A;" GP's ";:8010:O$"Y"TCTC1:T(Q)0:GPGPA:3020 O$"N"ʲY$:2980 I Q:GP1E3ʲ"YOU'RE TOO POOR TO TRADE, ";R$(RC):880 [ GP12503240 "OK, ";R$(RC);", YOU HAVE ";GP;" GOLD PIECES AND ";W$(AV5) Z$"ARMOR":8100:"NOTHING<0> LEATHER<1250> ";:GP1499ʲ"CHAINMAIL<1500> ";:GP1999ʲ"PLATE<2000>"; :8005:O$"N"3130 F O$"L"GPGP1250:AV1:AH7:3130 O$"C"GP1500ʲ"** YOU HAVEN'T GOT THAT MUCH CASH":3060 O$"C"GPGP1500:AV2:AH14:3130 ! O$"P"GP2000ʲ"** YOU CAN'T AFFORD PLATE":3060 & O$"P"GPGP2000:AV3:AH21:3130 ?5 "** DON'T BE SILLY. CHOOSE A SELECTION":3080 Q: GP12503240 ? "YOU HAVE ";GP;" GP's LEFT WITH ";W$(WV1);" IN HAND" D Z$"WEAPONS":8100:"NOTHING<0> DAGGER<1250> ";:GP1499ʲ"MACE<1500> ";:GP1999ʲ"SWORD<2000>"; X :8005:O$"N"3240 -l O$"D"GPGP1250:WV1:3240 lv O$"M"GP1500ʲ"** SORRY SIR, I DON'T GIVE CREDIT":3140 O$"M"GPGP1500:WV2:3240 O$"S"GP2000ʲ"** DUNGEON EXPRESS CARD - YOU LEFT HOME WITHOUT IT!":3140 O$"S"GP2000ʲ"YOU LEFT HOME WITHOUT IT!":3140 9 O$"S"GPGP2000:WV3:3240 b "** TRY CHOOSING A SELECTION":3160 s GP1000880 Z$ST$:8080:O$"Y"3290 Ì GPGP1E3:IST(6):9:STI:QST:8090:3240 ڌ O$"N"ʲY$:3250 GP1000880 Z$IQ$:8080:O$"Y"3360 ; GPGP1E3:IIQ(6):9:IQI:QIQ:8090:3300 R O$"N"ʲY$:3310 c* GP1000880 4 Z$DX$:8080:O$"Y"3420 H GPGP1E3:IDX(6):9:DXI:QDX:8090:3370 ʍ\ O$"N"ʲY$:3380 䍎 (GP1000)(LF1)880 2 "WANT A LAMP";Q$;:8010:O$"Y"3510 J GPGP1000:LF1:"ITS GUARANTEED TO OUTLIVE YOU!":880 a O$"N"ʲY$:3480 j 880 Q11(A2):Q2A2:Q31:(C(1,4)T(1))(BL1)(DX(9)(9))4030 ! 2 :"YOU'RE FACING ";C$(A12):"YOU MAY ATTACK OR RETREAT";:Q31ʲ", OR BRIBE";:IQ14ʲ", OR CAST A SPELL"; h:"YOUR ";ST$;" IS ";ST;" AND ";DX$;" IS ";DX:8005:O$"A"3730 WV0ʲ"** POUNDING ON A MONSTER WON'T HURT IT":4030 ߏ BF1ʲ"** YOU CAN'T BEAT IT TO DEATH WITH A BOOK":4030 $DX(20)(BL3)ʲ" DRAT! MISSED":4030 ." YOU HIT THE LOUSY ";(C$(A12),(C$(A12))2):Q2Q2WV:(A9A12)(8)1ʲ"OH NO! YOUR ";W$(WV1);" BROKE":WV0 =Q204030 ҐVMCMC1:C$(A12);" LIES DEAD AT YOUR FEET":HTT603690 e"YOU SPEND AN HOUR EATING ";C$(A12);E$((8)):HTT 5jXR1YR2ZR3ʡ1(A13)3710,4640 lt"GREAT ZOT! YOU'VE FOUND THE RUNESTAFF":R10:RF1 ~Q(1000):"YOU NOW GET HIS HOARD OF ";Q;" GP's":GPGPQ:1940 O$"R"4030 ԑ(O$"C")3860 IQ15Q31ʲ"** YOU CAN'T CAST A SPELL NOW!":3580 T"WHICH SPELL (WEB, FIREBALL, OR DEATHSPELL) ";:8010:O$"W"3800 ~STST1:WC(8)1:1(ST1)4030,4180 O$"F"3830 Q(7)7:STST1:IQIQ1:(IQ1)(ST1)4180 " IT DOES ";Q;" POINTS OF DAMAGE.":Q2Q2Q:3645 .O$"D"ʲ"** TRY ONE OF THE OPTIONS GIVEN":3580 c "DEATH - - - ";:IQ15(4)ʲ"YOURS":IQ0:4180 y "HIS":Q20:3670 O$"B"Q31ʲ"** CHOOSE ONE OF THE LISTED OPTIONS":3580 TC0ʲ"'ALL I WANT IS YOUR LIFE!'":4030 (Q(8):T(Q)03880 F2"I WANT ";C$(Q25);", WILL YOU GIVE IT TO ME ";:8010:O$"N"4030 ]8O$"Y"ʲY$:3890 <T(Q)0:TCTC1:"OK, JUST DON'T TELL ANYONE":6:VFVF((I)25):880 ڔQ32:WC0WCWC1:WC0ʲ"THE WEB JUST BROKE!" Z$(C$(12A),(C$(12A))2):WC04047 9"THE ";Z$;" IS STUCK AND CAN'T ATTACK":4070 p"THE ";Z$;" ATTACKS":DX(7)(7)(7)BL34060 " HAH! HE MISSED YOU":4070 " OUCH! HE HIT YOU":QQ1:4150:ST14180 ԕO$"R"3580 "YOU HAVE ESCAPED" K"DO YOU GO NORTH, SOUTH, EAST, OR WEST ";:8010:(O$"N")(O$"S")(O$"E")(O$"W")1300 y,"** DON'T PRESS YOUR LUCK ";R$(RC):4090 6AV04175 @QQAV:AHAHAV:Q0AHAHQ:Q0 EAH0AH0:AV0:"YOUR ARMOR IS DESTROYED - GOOD LUCK" OSTSTQ: BTQ1750:Q::(64,"="):"A NOBLE EFFORT, OH FORMERLY LIVING ";R$(RC) h"YOU DIED FROM A LACK OF ";:ST1ʲST$::IQ1ʲIQ$::DX$ Q31:"WHEN YOU DIED YOU HAD:":4310 ߗQ30:"YOU LEFT THE CASTLE WITH";:OF0ʲ"OUT"; " THE ORB OF ZOT":OF04280 J"A GLORIOUS VICTORY!":"YOU ALSO GOT OUT WITH THE FOLLOWING:":4300 "A LESS THAN AWE-INSPIRING DEFEAT.":"WHEN YOU LEFT THE CASTLE YOU HAD:" Q30ʲ"YOUR MISERABLE LIFE" טQ18:T(Q)1ʲC$(Q25), Q::W$(WV1):W$(AV5):LF1ʲ"A LAMP" 9FL;" FLARES":GP;" GP's":RF1ʲ"THE RUNESTAFF" ]"AND IT TOOK YOU ";T;" TURNS!" :"PLAY AGAIN ";:8010:O$"Y"ʲ"SOME ";R$(RC);"S NEVER LEARN"::Q11000:Q:20 ˙ O$"N"ʲY$:4360 &"MAYBE DUMB ";R$(RC);" NOT SO DUMB AFTER ALL":: o:"GREAT UNMITIGATED ZOT!":"YOU JUST FOUND THE ORB OF ZOT":"THE RUNESTAFF IS GONE":RF0:OF1:O10:1940 ZAN EMPTY ROOM,THE ENTRANCE,STAIRS GOING UP,STAIRS GOING DOWN,A POOL,A CHEST,GOLD PIECES,FLARES,A WARP,A SINKHOLE,A CRYSTAL ORB,A BOOK,A KOBOLD,AN ORC,A WOLF,A GOBLIN,AN OGRE,A TROLL,A BEAR,A MINOTAUR,A GARGOYLE,A CHIMERA,A BALROG @A DRAGON,A VENDOR,THE RUBY RED,THE NORN STONE,THE PALE PEARL,THE OPAL EYE,THE GREEN GEM,THE BLUE FLAME,THE PALANTIR,THE SILMARIL,".EUDPCGFWSOBMMMMMMMMMMMMVTTTTTTTT?",NO WEAPON,WICH,DAGGER," STEW",MACE," SOUP",SWORD," BURGER" NO ARMOR," ROAST",LEATHER," MUNCHY",CHAINMAIL," TACO",PLATE," PIE",HOBBIT,ELF,MAN,DWARF,T,I,A,L,I,Z,I,N," ",C,A J "YOU GET ALL HIS WARES:":"PLATE ARMOR":AV3:AH21:"A SWORD":WV3:"A ";ST$;" POTION":IST(6):9:STI:"AN ";IQ$;" POTION":IIQ(6):9:IQI H"A ";DX$;" POTION":IDX(6):9:DXI:LF0ʲ"A LAMP":LF1 f3710 E "YOUR CHOICE "; J O$:O$(O$,1): T "HOW MANY POINTS DO YOU ADD TO ";Z$;:O$:Q(O$):(Q0)((O$)48)Q1 5c (Q0)(QOT)(Q(Q))ʲ"** ";:8020 Ch OTOTQ: j| Z$;:O$:Q((O$)):(Q0)(Q9)ʒ "** TRY A NUMBER FROM 1 TO 8":8060 X$;Z$;Q$;:8010 Ǟ "YOUR ";Z$;" IS NOW ";Q: "HERE IS A LIST OF ";Z$;" YOU CAN BUY (WITH COST IN <>)": 2 "YOU ARE AT (";X;",";Y;") LEVEL ";Z: