Listing des Monats: Castle of Doom

0 goto5
1 goto!!!!
2 rem
3 rem zeilen 0 und 1 nicht aendern !!!!
4 rem
5 dimv$(14),h$(21),ri$(19),zi$(19),g$(12),g(12)
6 l$="{rvon}                        "
7 cl$="{CBM-G}                      {CBM-M}"
8 ef$="                                       "
10 poke53280,14:poke53281,14:poke53272,23:p=15:qq=54272:vi=53248
15 pokevi+21,0:print"{clr}"spc(12)"{blk}{down}{down}{down}{down}{down}{down}{down}{down}CASTLE{$a0}OF{$a0}DOOM":rem castle of doom
20 print"{down}{down}{wht}    Ein Adventure von B.Weissbecker"
25 printspc(11)"{down}{down}* Bitte warten *"
30 fori=1to14:readv$(i)
35 ifi<10thenreadkb$(i)
40 next
45 fori=1to21:readh$(i):next
50 fori=1to19:readri$(i),zi$(i):next
55 fori=1to12:g$(i)=h$(i):readg(i):next
60 fori=1to4:readzx$(i),zy$(i):next
65 fori=13to15
70 forj=0to62:readk:poke64*i+j,k:next:next
85 print"{up}  Moechten Sie eine Erklaerung ? (J/N)"
90 geta$:ifa$="j"then7500
95 ifa$<>"n"then90
100 print"{clr}{blk}"spc(10)"{down}CASTLE{$a0}OF{$a0}DOOM"
105 print"{down}{down}{cyn} Bei diesem Adventure koennen Sie zwi-"
110 print"{down} schen drei Versionen waehlen :":print"{down}  Wollen Sie :"
115 print"{down}  1 - Eine verzauberte Prinzessin":printspc(6)"{down}retten"
120 print"{down}  2 - Einen boesen Zauberer besiegen"
125 print"{down}  3 - Einen Schatz suchen"
130 print"{down}{down} Bitte geben Sie die entsprechende"
135 print"{down} Kennziffer ein."
140 poke198,0:wait198,1
145 geti$:ifasc(i$)<49orasc(i$)>51then140
150 v=val(i$):ifv<>2then160
155 ri$(13)="w-o":zi$(13)="1214":ri$(9)="w-o-r":zi$(9)="081018"
157 ri$(8)="n-s-o":zi$(8)="051209"
160 ifv=1theng(7)=1
165 fori=1to4:j(i)=1+4*rnd(ti):next
170 z1$=zx$(j(1))+zy$(j(2))
175 z2$=zx$(j(3))+zy$(j(4))
176 ifz1$=z2$then165
177 ti$="000000"
179 rem **** bilder zeichnen ****
180 print"{clr}{blk}";:poke53272,21:pokevi+21,0:pokevi+23,0:pokevi+29,0
185 fori=1to20:printspc(8)cl$:next
190 fori=1824to1863:pokei,99:pokei+qq,0:next
195 ifp>11then415
197 poke53280,5:poke53281,5
200 print"{home}";:fori=1to4:printspc(8+i)"M"spc(22-2*i)"N":next
205 printspc(13)"{up}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
210 fori=1to10:printspc(12)"{CBM-M}"spc(14)"{CBM-G}":next
215 printspc(13)"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{up}"
220 fori=1to5:printspc(13-i)"N"spc(12+2*i)"M":next
225 fori=1tolen(ri$(p))step2:a$=mid$(ri$(p),i,1)
230 ifa$="n"then250
235 ifa$="w"then260
240 ifa$="o"then265
245 next:goto270
250 forj=1402to1562step40:fork=0to3:pokej+k,160:pokej+k+qq,0:next:next
255 poke1402,254:poke1405,252:goto245
260 forj=1552to1752step40:pokej,160:pokeqq+j,0:next:poke1752,105:goto245
265 forj=1575to1775step40:pokej,160:pokeqq+j,0:next:poke1775,95:goto245
270 onpgoto275,740,300,315,740,325,345,740,355,375,395
275 onvgoto740,280,285
280 poke2040,15:pokevi+39,0:pokevi,150:pokevi+1,140:pokevi+29,1:pokevi+23,1
282 pokevi+21,1:zb=1:goto740
285 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(13)"{CBM-P}{CBM-P}{CBM-P}{CBM-P}":printspc(12)"N   N{CBM-H}"
290 printspc(11)"N   N {CBM-H}":printspc(11)"O{CBM-Y}{CBM-Y}P  {CBM-H}":printspc(11)"{CBM-H}$${CBM-N} N"
295 printspc(11)"L{CBM-P}{CBM-P}{SHIFT-@}N schatz":fori=1to2000:next:goto7830
300 ifleft$(ri$(3),1)="n"then740
305 forj=1402to1562step40:fork=0to3
310 pokej+k,160:pokej+k+qq,06:next:next:printspc(16)"{up}{up}{up}{up}{blk}spiegel":goto740
315 print"{home}{down}{down}"spc(13)"{CBM-*}{rvon}    {rvof}{SHIFT-POUND}":printspc(14)"{CBM-*}{rvon}  {rvof}{SHIFT-POUND}":printspc(15)"{CBM-H}{CBM-N}"
320 fori=1to10:printspc(15)"OP":next:goto740
325 print"{home}{brn}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(13)"{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}":printspc(13)"L{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}"
330 printspc(12)"N    N{CBM-H}":printspc(11)"N    NN{CBM-H}":printspc(10)"N    NN{CBM-Y}"
335 printspc(9)"O{CBM-Y}{CBM-Y}{CBM-Y}PNN":printspc(9)"{CBM-H}   {CBM-N}N":printspc(9)"L{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}  schlafzimmer"
340 goto740
345 ifge=1then740
350 poke2040,13:pokevi+39,1:pokevi,150:pokevi+1,150:pokevi+23,1:pokevi+29,1
351 pokevi+21,1:ifg(12)<>0thenfori=1to2000:next:goto7630
352 gs=1:goto740
355 print"{home}{blk}{down}"spc(11)"burghof / brunnen":printspc(13)"{down}OLOLOLOP{SHIFT-@}P{SHIFT-@}P{SHIFT-@}P"
360 printspc(17)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{CBM-@}{CBM-P}{CBM-O}{CBM-O}{CBM-P}{CBM-@}":printspc(16)"{rvon}        "
365 printspc(16)"{CBM-H}{CBM-T}{CBM-Y}{CBM-U}{CBM-U}{CBM-Y}{CBM-T}{CBM-N}":printspc(16)"{CBM-H}      {CBM-N}":printspc(16)"{CBM-Y}EDCCDE{CBM-Y}"
370 goto740
375 poke214,14:print
380 iffa=1thenprintspc(23)"{down}{CBM-*}{rvon}   {CBM-*}":printspc(24)"{CBM-*}{rvon}   {CBM-*}":goto740
385 printspc(23)"{CBM-P}{CBM-P}{CBM-P}{CBM-P}":printspc(23)"M   M"
390 printspc(16)"quadrat M   M":printspc(25)"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}":goto740
395 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(23)"{CBM-P}{CBM-P}{CBM-P}{CBM-P}":printspc(22)"{CBM-N}M   M":printspc(22)"{CBM-N} OP{CBM-Y}P"
400 printspc(15)"L{SHIFT-@}     {CBM-N} {CBM-H}{CBM-N}.{CBM-N}":printspc(15)"L{SHIFT-@}     {CBM-N} {CBM-H}{CBM-N} {CBM-N}"
405 printspc(14)"{rvon}{SHIFT-POUND}  {CBM-*}{rvof}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}ML{SHIFT-@}{CBM-P}{SHIFT-@}":printspc(13)"{rvon}{SHIFT-POUND}    {CBM-*}"
410 printspc(21)"schrank":goto740
415 ifp>14then445
417 poke53280,8:poke53281,8
420 print"{home}";:fori=1to6:printspc(8)"{blu}"l$:next
425 fori=55504to55514step2:pokei,7:next:fori=55517to55527step2:pokei,7:next
430 fori=1to11:print"{yel}"spc(8)l$:next:fori=1to3:print"{brn}"spc(8)l$:next
435 ifleft$(ri$(p),1)<>"n"then740
440 poke214,11:print"{blk}":fori=1to5:printspc(18)"{rvon}    ":next
442 goto740
445 poke53280,14:poke53281,14:onp-14goto555,450,485,500,540
450 print"{home}{yel}{down}{down}{down}{down}{down}{down}"spc(20)"{CBM-D}":printspc(18)"{rvon}   "
460 printspc(17)"{brn}{CBM-D}{rvon} N {CBM-C}":printspc(16)"{rvon}{SHIFT-POUND} N   {CBM-C}"
465 printspc(15)"{CBM-D}{rvon} (      {CBM-C}":printspc(14)"{CBM-I}{rvon}{CBM-V}  M       {CBM-C}"
470 printspc(13)"{rvon}{SHIFT-POUND}     M       {CBM-C}"
475 fori=1to7:printspc(8)l$:next
480 printspc(9)"{up}{up}{up}{up}{up}{up}{rvon}berg"
481 iflen(ri$(16))=5thenprintspc(9)"{down}{rvon}steiler weg nach oben"
482 goto740
485 print"{home}"spc(9)"{down}{down}{down}{down}steiler berghang,":printspc(9)"{down}hoehle"
490 printspc(21)"{down}{down}{down}{CBM-I}":printspc(19)"{CBM-D}{rvon}   {CBM-V}{CBM-C}{rvof}{CBM-F}"
495 fori=1to6:printspc(19)"{rvon}       ":next:goto740
500 print"{home}";:fori=1to19:printspc(8)l$:next
505 print"{home}"spc(9)"{rvon}{down}im brunnen ..."
510 ifv<>3then740
515 ifmo=1thenprint"{down}":goto530
520 poke2040,14:pokevi+39,13:pokevi,200:pokevi+1,150:pokevi+23,1:pokevi+29,1
525 printspc(9)"{rvon}{down}monster":pokevi+21,1:mr=1
530 printspc(9)"{rvon}{down}tuer{down}{down}{down}{down}{down}":fori=1to7:printspc(16)"     ":next
535 ifri$(18)="h"thenpoke1601,114
537 goto740
540 print"{home}";:fori=1to20:printspc(8)l$:next
545 print"{home}"spc(9)"{rvon}{down}in der hoehle ..."
550 printspc(9)"{rvon}{down}stockdunkel hier ...":goto740
555 print"{home}{red}{down}"spc(13)"O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P":printspc(13)"{CBM-H} b a s a r {CBM-N}"
560 printspc(13)"L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}"
565 ifxx=1then655
570 printspc(9)"{blk}{down}ein   befreundeter"
575 printspc(9)"{down}haendler ist bereit,":printspc(9)"{down}ihnen zwei der folgen-"
580 printspc(9)"{down}den gegenstaende zu":printspc(9)"{down}ueberlassen :"
585 printspc(9)"{down}{rvon}1{rvof} glaskugel {rvon}2{rvof} kaefig"
590 printspc(9)"{down}{rvon}3{rvof} amulett   {rvon}4{rvof} buch"
595 print"{down}{down}{down}{down}  bitte entsprechende nummern eingeben"
600 geti$:ifi$=""then600
605 ifasc(i$)<49orasc(i$)>52then600
610 onval(i$)gosub635,640,645,650
615 getj$:ifj$=""orj$=i$then615
620 ifasc(j$)<49orasc(j$)>52then615
625 onval(j$)gosub635,640,645,650
630 xx=1:gg=gg+2:gosub7000:goto655
635 poke1633,49:g(1)=0:return
640 poke1645,50:g(2)=0:return
645 poke1713,51:g(3)=0:return
650 poke1725,52:g(4)=0:return
655 yy=0:fori=1to4:ifg(i)=0thenyy=yy+1
657 next:ifyy<>2then710
660 print"{home}{blk}{down}{down}{down}{down}{down}"spc(9)"wollen sie die gegen-"
665 printspc(9)"{down}staende, die sie hier":printspc(9)"{down}erhalten haben, noch  "
670 printspc(9)"{down}einmal umtauschen ?":printspc(9)"{down}        (j/n)"
675 print:printspc(8)cl$:print:printspc(8)cl$:gosub860
680 geti$:ifi$="n"then710
685 ifi$<>"j"then680
690 fori=1to4:g(i)=20:next:gg=gg-2
695 print"{home}{down}{down}{down}{down}":fori=1to9:printspc(8)cl$:next
700 print"{home}{down}{down}{down}{down}{down}"spc(12)"waehlen sie !":print"{down}{down}{down}{down}{down}{down}{down}"
705 goto585
710 print"{home}{down}{down}{down}{down}{blk}":fori=1to9:printspc(8)cl$:next
715 print"{home}{down}{down}{down}":fori=1to5:printspc(13)"{CBM-J}"spc(11)"{CBM-L}":next
720 printspc(13)"{cyn}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P":printspc(13)"{CBM-H}O{CBM-Y}P O{CBM-Y}P O{CBM-Y}P{CBM-N}"
725 printspc(13)"{CBM-H}{CBM-H}{red}Q{cyn}{CBM-N} {CBM-H}{red}Q{cyn}{CBM-N} {CBM-H}{red}Q{cyn}{CBM-N}{CBM-N}"
730 printspc(13)"{CBM-H}L{CBM-P}{SHIFT-@} L{CBM-P}{SHIFT-@} L{CBM-P}{SHIFT-@}{CBM-N}":printspc(13)"L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}"
740 poke214,18:print:printspc(9)"{blk}richtungen : {wht}"ri$(p):goto750
748 rem **** kommandoauswertung ****
749 fori=1to2500:next
750 za=0:gosub7000
755 gosub860:input"{yel} kommando :";k$
760 ifleft$(k$,1)=" "thenk$=right$(k$,len(k$)-1):goto760
765 iflen(k$)=1then870
770 fori=1tolen(k$):ifmid$(k$,i,1)=" "then780
772 next
775 gosub860:print"          unkorrekte eingabe !":goto749
780 v$=left$(k$,i-1):h$=right$(k$,len(k$)-i)
785 ifleft$(h$,1)=" "thenh$=right$(h$,len(h$)-1):goto785
790 ifv$="sage"then6500
795 fori=1to14:ifleft$(v$(i),len(v$))=v$thenx=i:goto805
800 next:nv$=v$:goto815
805 fori=1to21:ifleft$(h$(i),len(h$))=h$theny=i:goto825
810 next:nv$=h$
815 gosub860:print"{up} tut mir leid, aber ich verstehe"
820 print"{down} '"nv$"' nicht.":goto749
825 ifx>9thenx=x-5
830 fori=1tolen(kb$(x)):ifmid$(kb$(x),i,1)=chr$(y+64)then950
835 next:gosub860
840 print"{up} tut mir leid, aber ich verstehe ihren"
845 print"{down} befehl nicht.":goto749
860 poke214,20:print:fori=1to3:printef$:next:print"{up}{up}{up}":return
869 rem **** bewegen ****
870 fori=1to6:ifk$=mid$("nswohr",i,1)then880
875 next:goto775
880 ifgs=1orzb=1ormr=1then7600
882 fori=1tolen(ri$(p))step2
885 ifmid$(ri$(p),i,1)=k$then900
890 next:gosub860
895 print"   in diese richtung geht es nicht":goto749
900 sc=0:zi=val(mid$(zi$(p),i,2))
905 ifp=16andzi=13then925
910 ifp=13andzi=9andg(8)=0andv=1then7660
915 ifzi=0then7680
920 p=zi:goto180
925 ifg(8)=0thenonvgoto930,7650,7670
930 gosub860:print"{up} hinter ihnen loest sich eine stein-"
935 print"{down} lawine, die den weg verschuettet.":ri$(16)="w-o":zi$(16)="1517"
940 fori=1to2500:next:p=zi:goto180
949 rem ** sprung zur bef.ausfuehrung **
950 ifx=4andy<13then7100
955 ifx=5then7200
960 zn=1000+(x-1)*500+(y-1)*20:zn$=str$(zn)
965 fori=1to4:nz=val(mid$(zn$,i+1,1))
970 poke(2060+i),(nz+48)
975 next
980 gosub860:goto1
998 rem *** befehlsausfuehrung ***
999 print"  ok !":goto749
1000 ify=1ory=7ory=16ory=19ory=20thene$="e ":goto1002
1001 e$=" "
1002 print" hier ist kein"e$h$(y):goto749
1020 ifg(y)=0org(y)=pthen999
1022 goto1000
1060 goto1020
1180 ifg(10)<>0andg(10)<>pthen1000
1182 ifv<>2thenprint" der "h$(10)" laesst sich nicht oeffnen":goto749
1184 ifg(9)<>21then999
1186 print" im "h$(10)" befindet sich ein "h$(9)" !!":g(9)=p:goto749
1300 ifp=18andri$(18)="h"andv=3then1306
1302 ifp=1orp>13then1000
1304 print" hier ist keine geschlossene tuer":goto749
1306 ifg(11)<>0thenprint" die tuer ist verschlossen !":goto749
1308 ri$(18)="o-h":zi$(18)="1909":ri$(19)="s-w":zi$(19)="1718":goto180
1340 ifp<>11then1000
1342 ifv=3org(10)<>21then999
1344 ifg(11)<>0thenprint" der schrank ist verschlossen":goto749
1346 print"{up}   im schrank befindet sich"
1348 print"{down}   ein goldener ball":g(10)=11:goto749
1400 print" das ist unmoeglich !":goto749
1580 ifg(5)<>pthen1000
1582 ifp=18thenprint" es ist zu dunkel hier !":goto749
1584 ifg(2)=0then1590
1586 print"{up} sie brauchen einen behaelter"
1588 print"{down} um den frosch zu fangen !":goto749
1590 ifgg=5thenprint" sie tragen schon 5 gegenstaende !":goto749
1592 g(5)=0:gg=gg+1:print" ok !":goto749
1740 ifmr=1then7640
1742 ifv=3andp=9andmo=0thenprint" von hier aus geht das nicht !":goto749
1744 goto1000
1780 ifgs<>1then1000
1782 print"  der geist mag das nicht !!":fori=1to2000:next:goto7630
2080 ifg(5)=pthenprint" der frosch laesst sich nicht kuessen":goto749
2082 ifg(5)<>0then1000
2084 ifv<>1orp<>6then999
2086 print" es knallt und stinkt...":fori=1to2000:next:goto7800
2240 ifmr<>1then1000
2242 print"{up} das monster schlaegt wild um sich"
2244 print"{down} und schleudert sie aus dem brunnen":mr=0
2246 fori=1to3000:next:p=9:goto180
2260 ifzb<>1then1000
2262 fori=0to15:poke53281,i:poke53280,i:forj=1to100:next:next:zb=0
2264 poke53280,5:poke53281,5:zk=zk+1:ifzk=3then7620
2266 p=2+int(13*rnd(ti)):goto180
2280 ifgs<>1then1000
2282 ifti$<"001000"then7630
2284 ge=1:gs=0:fori=832to892step3:pokei,0:pokei+1,0:pokei+2,0:next
2286 print"{up}  der geist hat ihren mundgeruch":print"{down}  nicht vertragen !"
2288 goto749
2400 ifp<>10orfa=1then1000
2402 ifv<>1then999
2404 ifv=1thenfa=1:ri$(10)="n-w-r":zi$(10)="070919"
2406 ri$(19)="s-h":zi$(19)="1710":goto180
2820 ifp<>3orlen(ri$(3))=5then1000
2822 print" das geht nicht !":goto749
2840 ifp<>11then1000
2842 print" der schrank ist zu schwer !":goto749
2900 ifp<>10orfa=1then1000
2902 goto2822
3560 ifgs=1then7630
3562 ifg(4)<>0thenprint" ich habe das buch nicht !":goto749
3564 ifv=3then3568
3566 print" zauberwort : "z1$:goto749
3568 print"{up} zauberwoerter : "z1$:print"{down}"spc(17)z2$:goto749
3660 ifg(9)<>0thenprint" ich habe keinen zettel":goto749
3662 print" zauberwort: "z2$:fori=1to2500:next
3664 print"{up} der zettel verschwindet !!!":gg=gg-1:g(9)=21:goto749
3860 ifp<>12orsc=0then1000
3862 print"{up}  tut mir leid, aber es scheint"
3864 print"{down}  eine fremde sprache zu sein":goto749
4300 ifp<12or(v=3andp=18)thenprint" ok...nichts passiert !":goto749
4302 goto1000
4320 ifp<>3orlen(ri$(3))=5then1000
4322 print"{up} hinter dem "h$(17)
4324 print"{down} scheint ein hohlraum zu sein !":goto749
4380 ifv=2andp=12andlen(ri$(12))=3then4388
4382 ifp=19andg(8)=21then4392
4384 ifp>14andp<18then1000
4386 print" ok...nichts besonderes festzustellen !":goto749
4388 poke214,11:print:printspc(18)"{yel}{rvon}U{CBM-Q}/W":gosub860
4390 print" eine schrift erscheint...":sc=1:goto749
4392 g(8)=19:print" an der wand haengt ein schwert !":goto749
4400 ifp=10andfa=0thenprint" klingt hohl...":goto749
4402 goto1000
4580 ifg(5)<>0andg(5)<>pthen1000
4582 print" der frosch entwischt ihnen !"
4584 ifg(5)<>18orv<>1then4588
4586 goto749
4588 ifg(5)=0thengg=gg-1
4590 g(5)=1+int(19*rnd(1)):goto749
4740 ifmr=0then1000
4742 print" gute idee, aber das geht nicht !":goto749
4760 ifzb=0then1000
4762 gosub4770:ify=0org(y)<>0then749
4764 ify=8andza=2then7820
4766 goto7620
4770 input" womit ";wm$
4771 fori=1tolen(wm$):ifmid$(wm$,i,1)=" "then4773
4772 next:goto4774
4773 wm$=right$(wm$,len(wm$)-i)
4774 fory=1to12:ifwm$=left$(h$(y),len(wm$))then4776
4775 next:gosub860:print" ich verstehe '"wm$"' nicht !":y=0:return
4776 ifg(y)<>0thengosub860:print" ich habe diesen gegenstand nicht !"
4777 return
4780 ifgs=0then1000
4782 gosub4770:ify=0org(y)<>0then749
4784 gosub860:onvgoto4785,4790,4794
4785 ifg(8)=0thenprint" sie sind gestolpert, und...":fori=1to2000:next:goto7630
4786 ifza=1andy=7then4798
4788 goto7630
4790 ifza=1andy=3then4798
4792 goto7630
4794 ify=1thenprint" der geist ist tot, aber...":fori=1to2000:next
4796 goto7630
4798 pokevi+21,0:gs=0:ge=1:print" ok...der geist ist tot !":goto749
5000 ifg(1)<>0andg(1)<>pthen1000
5002 print" wozu sollte das gut sein ?":goto749
5020 ifg(2)<>0andg(2)<>pthen1000
5022 print"{up} so geht man nicht mit fremdem"
5024 print"{down} eigentum um !":goto749
5300 ifp=18andri$(18)="h"andv=3then5306
5302 ifp=1orp>13then1000
5304 print"wieso, hier ist keine verschlossene tuer":goto749
5306 print" die tuer ist zu stabil...":goto749
5320 gosub4770:ify=0org(y)<>0then749
5322 if(v=1andy=8)or(v=3andza=2andy=8)then7247
5324 gosub860:print" das geht nicht !":goto749
5340 ifp<>11then1000
5342 print"{up} der schrank laesst sich nicht"
5344 print"{down} mit gewalt oeffnen !":goto749
5380 ifp>14andp<18then1000
5382 print"sie koennen die wand nicht zerstoeren !":goto749
6499 rem *** befehl 'sage' ***
6500 gosub860:ifh$=z1$thenza=1:goto6506
6502 ifh$=z2$thenza=2:goto6506
6504 goto7690
6506 onvgoto6508,6512,6520
6508 ifza=1andg(7)=0andgs=1andg(4)=0thenprint" die keule vibriert...":goto6528
6510 goto6526
6512 ifza=1andp=12andsc=1thenri$(12)="n-w-o":zi$(12)="080013":goto415
6514 ifza=1andg(3)=0andgs=1thenpokevi+39,0:goto755
6516 ifza=2andg(8)=0andzb=1andg(4)=0thenprint" das schwert leuchtet...":goto6528
6518 goto6526
6520 ifza=1andg(3)=0andmo=0andp=9thenprint" das amulett leuchtet...":goto6528
6522 ifza<>2org(4)<>0orp<>3orri$(3)<>"w-o"then6526
6524 print" der spiegel leuchtet...":goto6528
6526 print" ok...es tut sich nichts !":goto749
6528 fori=1to2000:next:goto755
6999 rem * besitz/gegenstd anzeigen *
7000 print"{home}";:fori=1to20:print"        ":next
7002 print"{home}{blk}{down}sie":print"{down}besitzen":sp=0
7005 fori=1to12:ifg(i)=0thengosub7050
7010 next
7020 print"{home}";:fori=1to20:printspc(32)"       ":next
7022 j=0:print"{home}{blk}{down}"spc(32)"es gibt":printspc(32)"{down}hier :":sp=32
7025 fori=1to12:ifg(i)=pthengosub7050:j=j+1:ifj=6thenreturn
7030 next:return
7050 ifi=1thenprintspc(sp)"{down}glas-":printspc(sp)"kugel":return
7055 ifi=11thenprintspc(sp)"{down}schlues":printspc(sp)"sel":return
7060 ifi=12thenprintspc(sp)"{down}ketten-":printspc(sp)"hemd":return
7065 printspc(sp)"{down}"g$(i):return
7099 rem *** befehl 'nimm' ***
7100 ifg(y)=pthen7110
7105 gosub860:print"  dieser gegenstand ist nicht hier !":goto749
7110 ifgg<5then7120
7115 gosub860:print"  sie haben bereits 5 gegenstaende !":goto749
7120 ify=5thengosub860:print"    der frosch huepft ihnen davon !":goto749
7125 g(y)=0:gg=gg+1:gosub860:print"   ok !":fori=1to1000:next:goto750
7199 rem *** befehl 'wirf' ***
7200 ifg(y)<>0thengosub860:print" ich habe diesen gegenstand nicht !":goto749
7205 gosub860:input"  wohin ";wh$
7210 fori=1tolen(wh$):ifmid$(wh$,i,1)=" "then7220
7215 next:goto7225
7220 wh$=right$(wh$,len(wh$)-i)
7225 ifwh$="boden"orwh$="weg"orwh$="egal"orwh$="wand"then7235
7230 onvgoto7240,7270,7330
7235 gosub860:print"  ok !":g(y)=p:gg=gg-1:goto749
7240 ify<>8orwh$<>"spiegel"orp<>3orlen(ri$(3))=5then7255
7245 g(y)=3:gg=gg-1
7247 ri$(3)="n-w-o":zi$(3)="010204":gosub860
7250 print"  der spiegel zerbricht !":fori=1to2000:next:goto180
7255 ify<>10orwh$<>"brunnen"orp<>9org(5)<>18then7380
7260 gosub860:print"{up}  aus dem brunnen kommt ein frosch"
7265 print"{down}  mit dem ball im mund.":g(10)=9:g(5)=9:gg=gg-1:goto749
7270 ify<>3orwh$<>"geist"orgs<>1then7290
7275 ifza<>1then7630
7280 pokevi+21,0:gosub860:print"    sie haben den geist besiegt !"
7285 ge=1:gs=0:g(y)=7:gg=gg-1:goto749
7290 ify<>6orp<>10orwh$<>"quadrat"orfa=1then7305
7295 fa=1:g(6)=10:gg=gg-1:ri$(10)="n-w-r":zi$(10)="070919"
7300 ri$(19)="s-h":zi$(19)="1710":goto180
7305 ify<>4orp<>3orwh$<>"spiegel"orlen(ri$(3))=5then7315
7310 goto7245
7315 ify<>8orzb<>1orwh$<>"zauberer"then7380
7320 ifza<>2then7620
7325 pokevi+21,0:fori=1to2000:next:goto7820
7330 ify<>1orwh$<>"geist"orgs<>1then7340
7335 goto7280
7340 ify<>3orwh$<>"brunnen"orp<>9then7360
7345 g(3)=18:gg=gg-1:gosub860:ifmo=1thenprint"  ok !":goto749
7350 ifza=1thenprint" aus dem brunnen ertoent ein schrei...":mo=1:goto749
7355 g(3)=9:print" das amulett kommt zurueckgeflogen !":goto749
7360 ify<>8orwh$<>"spiegel"orp<>3orlen(ri$(3))=5then7380
7365 ifza=2then7245
7370 goto7235
7380 ifwh$="brunnen"andp=9theng(y)=18:goto7415
7382 ifwh$="quadrat"andp=10andfa=0theng(y)=10:goto7415
7385 ifwh$="hoehle"andp=17theng(y)=19:goto7415
7390 ifwh$="geist"andgs=1then7630
7395 ifwh$="zauberer"andzb=1then7620
7400 ifwh$="spiegel"andp=3andlen(ri$(3))=3then7235
7405 gosub860:print" ich verstehe sie nicht..."
7410 fori=1to2000:next:goto7205
7415 gg=gg-1:gosub860:print"  ok !":goto749
7499 rem *** erklaerung ***
7500 print"{clr}{down} Sie muessen versuchen, eine Aufgabe zu"
7505 print"{down} loesen, indem Sie dem Computer sagen,"
7510 print"{down} was er tun soll."
7515 print"{down} Zur  Fortbewegung  geben  Sie nur"
7520 print"{down} Abkuerzungen ein (N-S-W-O-H-R = NORD -":rem n-s-w-o-h-r = nord -
7525 print"{down} SUED - WEST - OST - HOCH - RUNTER)"
7526 rem sued - west - ost - hoch - runter
7530 print"{down} Ansonsten muessen die Befehle aus zwei"
7535 print"{down} Woertern bestehen (Verb/Hauptwort)"
7540 print"{down} Der Computer versteht die Verben :"
7545 print"{down} oeffne,fange,kuesse,nimm,lies,wirf,"
7550 print"{down} beruehre/klopfe,erschlage/toete,sage"
7555 print"{down} zerbreche/zerstoere   -  Fertig ???"
7560 poke198,0:wait198,1:goto100
7599 rem **** verloren ****
7600 ifzb=1then7620
7605 ifgs=1then7630
7610 ifmr=1then7640
7620 print"{clr}{blk}{down} der zauberer hat sie in eine kroete"
7625 print"{down} verwandelt.":goto7700
7630 print"{clr}{blk}{down}     der geist hat sie gebissen.":goto7700
7640 print"{clr}{blk}{down} das monster hat beschlossen, sie"
7645 print"{down} zu heiraten.":goto7700
7650 print"{clr}{blk}{down} sie sind unterwegs gestolpert und"
7655 print"{down} haben sich dabei den kleinen finger":print"{down} verstaucht.":goto7700
7660 print"{clr}{blk}{down} aus dem torbogen hat sich ein stein"
7665 print"{down} geloest und ist ihnen auf den fuss":print"{down} gefallen.":goto7700
7670 print"{clr}{blk}{down} sie sind in einen erdrutsch geraten"
7675 print"{down} und haben sich ihre neue hose dreckig":print"{down} gemacht.":goto7700
7680 print"{clr}{blk}{down} sie sind vom berg gefallen und haben"
7685 print"{down} dabei ihre brille zerbrochen.":goto7700
7690 print"{clr}{blk}{down}        sie haben sich in eine"
7695 print"{down}          banane verwandelt !"
7700 print"{down} deshalb muessen sie leider aufgeben."
7705 print"{down}{down}{down}{yel} moechten sie es noch einmal probieren ?"
7710 geti$:ifi$="j"thenrun5
7715 ifi$<>"n"then7710
7720 end
7799 rem **** gewonnen ****
7800 print"{clr}{yel}{down}        ... und  der  "h$(5)" ...":fori=1to1500:next
7805 print"{up}         ... verwandelt  sich ...":fori=1to1500:next
7810 print"{up}... in eine wunderschoene prinzessin ...":fori=1to2000:next
7815 print"{clr}{down}{down}{down}{down}{down}":goto7840
7820 pokevi+21,0:print"{clr}{yel}{down}{down}{down}{down}{down}{down}    sie haben den zauberer besiegt !!!":goto7840
7830 print"{clr}{yel}{down}{down}{down}{down}{down}{down}    sie haben den schatz gefunden !!!"
7840 printspc(13)"{down}{down}gratuliere,":print"{down}     sie haben ihr ziel erreicht !!"
7850 print"{down}{down}{down}      wollen sie weiter spielen ?"
7860 geti$:ifi$="j"thenrun5
7870 ifi$<>"n"then7860
7880 end
8000 dataoeffne,bdjpru,fange,emo,kuesse,emnou,nimm,abcdefghijklqru
8005 datawirf,abcdefghijkl,lies,dis,beruehre,pqtu,toete,emno
8010 datazerstoere,abpqrt,werfe,lese,klopfe,erschlage,zerbreche
8015 dataglaskugel,kaefig,amulett,buch,frosch,helm,keule,schwert,zettel,ball
8020 dataschluessel,kettenhemd,monster,zauberer,geist,tuer,spiegel,schrank
8025 dataschrift,wand,quadrat
8030 datas,03,s-o,0503,w-o,0204,w-h,0311,n-s,0208,o,07,s-w,1006,n-o,0509
8035 datas-w-o-r,13081018,n-w,0709,r,04,w-o,0013,n-w-o,091214,w-o,1300,o,16
8040 dataw-o-h,151713,n-w,1916,h,09,s,17
8045 data20,20,20,20,18,2,21,21,21,21,6,5
8050 datasilber,blume,gold,ring,kupfer,horn,platin,stern
8054 rem sprite 1 - geist
8055 data0,127,0,0,255,192,1,206,96,3,255,240,1,255,240,1,245,248,1,255,248
8060 data3,255,248,7,255,248,15,255,252,31,255,254,3,255,240,3,255,224
8065 data3,255,224,7,255,224,7,255,224,7,255,240,15,255,240,15,255,248
8070 data31,255,252,59,187,110
8074 rem sprite 2 - monster
8075 data12,0,48,30,0,120,3,0,192,1,129,128,3,195,192,15,231,240,62,126,124
8080 data124,60,62,248,60,31,254,126,127,255,255,255,127,255,254,127,255,254
8085 data63,90,252,30,165,120,31,255,248,7,255,224,4,126,32,4,60,32
8090 data31,0,248,42,129,84
8094 rem sprite 3 - zauberer
8095 data0,15,224,0,63,128,0,127,128,0,219,0,1,255,0,3,255,128,31,255,240
8100 data127,255,252,127,255,252,111,255,236,111,255,236,103,255,204,98,170,140
8105 data99,255,140,71,255,196,7,199,192,15,131,224,15,1,224,14,0,224
8110 data28,0,112,60,0,120
8200 rem
8201 rem **********************
8202 rem *   castle of doom   *
8203 rem * von b. weissbecker *
8204 rem *  maerz/april 1984  *
8205 rem **********************