Willus.com
Home
|
Archive
|
About
CASEDT
(4422 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.
Oj 100 jj I(K#(X1,Y1))Z1: j I(I)100((I)99): j II8((I9)(I0)): j( II(I19)18(I18): j2 X(8):Y(8):10:(I)10150 j< I,Q: )kd 350:AF,HZ:K#(7,7),C$(33),RP(33),C(3,4):I0::T(128) [kn :16);"CASTLE DUNGEON MAKER. 12/29/82":: wks :Q133:C$(Q):Q:I$ kx DF$"CASDUN/DAT":"WHAT FILENAME DO YOU WANT TO USE FOR YOUR DUNGEON";DF$ k DF$"" 120 k (DF$)12120 k "R",1,DF$,"MU" l (1)$1 : 170 Nl Q 0 7 : 1,,51000 : Q : 1,,,O1,O2,O3; bl 1,,,R1,R2,R3; l Q 1 3 : 1,,51010 : Q : : 2000 l Z18:Y18:X18:10:I,101:X,Y,Z l X1:Y4:Z1:Q2 l 10:60 l Q 3 33 ;m A$"":"DO YOU WANT '";C$(Q);"' RANDOMLY PLACED AROUND THE DUNGEON";:A$ Tm A$"Q"Q33 : 320 m A$""220:(A$,1)"Y"A$"":"DO YOU WISH TO ADD MORE";A$:A$""240:A$"N"300 m Q2 500,500,600,600,600,600,600,600,600,600 m Q12 Q25 700 n Q25 600 !n Q25 800 3n"RP(Q)1:310 ?n,RP(Q)0 bn6Q26 "LESS HOW MANY";RP(Q) jn@ Q znB Q 1 3 nD"WHERE DO YOU WHAT THE 3 CURSES PLACED?" nF 10000 nHC(Q,1)X:C(Q,2)Y:C(Q,3)Z:C(Q,4)0 nIQ oJ"WHERE DO YOU WANT THE ORB OF ZOT PLACED?" oT3000 Ko`"WHERE DO YOU WANT THE RUNSTAFF PLACED?" Uob4000 od"WHAT MONSTER DO YOU WANT IT PLACED UNDER (1-12)";Q : Q1 Q12 356 oeQQ112: 10 : 60 oh Q34 33 orRP(Q3)1 430 o| Q34 900 p Q34 Q313 1000 ,p Q312 Q325 1100 Ap Q325 1200 Vp Q325 1300 ^pQ3 rp"O",1,DF$,"MU" p Q0 7 p1,,51000 p Q p1,,,O1,O2,O3; p1,,,R1,R2,R3; p Q 1 3 : 1,,51010 : Q p:"DONE.": 0q"NORMALLY 2 SETS OF UP/DOWN STAIRS ARE PLACED ON A LEVEL." }qA$"":"WHEN PLACING STAIRS, DO YOU WISH A COUNTER PAIR OF STEPS SET";A$ qA$""510:(A$,1)"Y"Q21:Q20 q 11000 q X0Y0 q&I,100Q q0 Q21 Q3 Z1 I1,104 r: Q21 Q4 Z8 I1,103 rD530 IrX"THERE ARE NORMALLY THREE PER LEVEL." Urb 11000 frlX0Y0 srvI,Q100 |r610 r"THERE IS NORMALLY 1 OF EACH MONSTER PER LEVEL." r11000 rI,Q100 rX0Y0 r710 s "THERE IS ONE OF EACH TREASURE.":710 sRP(Q3)0ʒ NsZ17:Q112:Q104:50:I1,103:Q1:Z: as RP(Q3)2 sZ18:Q113RP(Q3):QQ3100:50:Q1:Z: sL RP(Q3)7 sVZ18:QQ3100 s` (RP(Q3))1 50 sjZ: s RP(Q3)7 tZ18:Q113:Q125 t (RP(Q3))1 50 -tQ1:Z: @t RP(Q3)0 Zt QQ3100:Z(8):50: `t t"CHOOSE A THING TO PUT IN THE DUNGEON." t Q1111 t"##";Q1;:" ";C$(Q1); t21);:"##";Q111;:" ";C$(Q111); u43);:"##";Q122;:" ";C$(Q122) u Q1 :u"34 RUNSTAFF";21);:"35 ORB OF ZOT" ]u20);:"NUMBER (0 TO QUIT)";Q ~u Q0 Q35 (27);:2070 u%Q0 440 u&Q35 3000 : 2000 u'Q34 4000 : 2000 u*11000 u4 X0 Y0 Z0 2000 u910 v> I,Q100 vH 2090 v 10000 8v O1X:O2Y:O3Z:10:I,109 >v [v 10000 : R1X:R2Y:R3Z av v'"0,0,0 TO STOP, -1,-1,(LVL) FOR MAP" v'"(X,Y,Z)";X,Y,Z v$' X0 Y0 Z0 v.' (X1 Y1) Z9 Z0 10070 w8' X9 X1 Y9 Y1 Z9 Z1 10010 wB' 10 : RwL':MAP DRAWER. ON ENTRY 'Z' HOLDS LVL TO DRAW wwV'SQQ::"MAP OF LEVEL";Z:AX:BY w['X18:Y18:10:Q(I):Q99 QQ100 w`':IFX=AANDY=BTHENPRINT"<";MID$(I$,Q,1);">";:GOTO10100 wj'" ";(I$,Q,1);" "; xt'Y::X:QSQ:10010 Vx*"WHERE DO YOU WANT TO PLACE ";C$(Q);:(C$(Q),1)"S"ʲ"S?":"?" ax+10000 {x+ X0 Y0 Z0 x +(I)101 x+"THERE IS ALREADY ";C$((I)((I)99)100);" THERE, DO YOU WISH TO OVER-WRITE IT";:A$ y +A$""11030:(A$,1)"N"11010 y*+ ]yRN:IF LEFT$(A$,1)="Y" THEN FORQ=126TO133:Z=RND(8):GOSUB50:NEXTQ:GOTO y@ZZ1536015360255:ZZ,ZZ15360:: tzPÈAN 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,A HALFLING,A TROLL,A JACKEL,A MINOTAUR,A VAMPIRE,A CHIMERA,A NYMPH {ZÈ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,".E[\PC$FSOBkowghtjmvcndVTTTTTTTT?" d{8K#(Q,0),K#(Q,1),K#(Q,2),K#(Q,3),K#(Q,4),K#(Q,5),K#(Q,6),K#(Q,7); {BC%(Q,1),C%(Q,2),C%(Q,3),C%(Q,4);