1 REM ******************›2 REM * THE BIG QUEST! *›3 REM * BY KEMAL EZCAN *›4 REM * COPYRIGHT 1984 *›5 REM ******************›10 PAGE=PEEK(106)-8:CHS=PAGE*256:POKE 559,0:POKE 77,128:RESTORE 28000›12 FOR I=128 TO 471:POKE CHS+I,PEEK(57344+I):NEXT I›14 READ C:IF C<>-1 THEN FOR I=0 TO 7:READ A:POKE CHS+C*8+I,A:NEXT I:GOTO 14›16 POKE 559,34:POKE 77,0:GOTO 6000›50 REM START DER SUCHE›51 SOUND 0,0,0,0›60 P=0:M=3:ROOM=1:MAXROOM=10›70 GRAPHICS 17:POKE 756,PAGE:POKE 708,15:POKE 709,24›80 ? #6;"ROOM:1 TIME:000":? #6;"LIVES:3 SCORE:0"›100 REM NEUER RAUM/LEBEN VERLOREN›110 GOSUB 1000›120 TIME=200:MCTR=1:RAUSFLG=0:H=32›130 POSITION 5,0:? #6;ROOM›150 REM MAIN LOOP›160 TIME=TIME-1:POSITION 13,0:? #6;TIME;" ":IF TIME=0 THEN 4500›170 ST=STICK(0):XR=0:YR=0›180 XR=XR-(ST>8 AND ST<12):XR=XR+(ST>4 AND ST<8):YR=YR-(ST=10 OR ST=6 OR ST=14):YR=YR+(ST=9 OR ST=5 OR ST=13)›190 IF XR=0 AND YR=0 THEN 250›195 IF X+XR>19 OR X+XR<0 OR Y+YR<2 OR Y+YR>23 THEN 7000›200 LOCATE X+XR,Y+YR,Z:IF Z=168 OR Z=MCHR THEN 5000›210 IF Z=32 THEN SOUND 0,100,8,10:COLOR 32:PLOT X,Y:X=X+XR:Y=Y+YR:COLOR 33:PLOT X,Y:SOUND 0,0,0,0›220 IF Z=41 THEN GOSUB 1200›230 IF RAUSFLG=1 AND Z=42 THEN GOSUB 1300›250 REM ENDE DER BEWEGUNG›260 IF MFLG THEN MCTR=MCTR+1:IF MCTR>MSPD THEN MCTR=MCTR-MSPD:GOSUB 1400›270 IF STRIG(0)=0 THEN GOSUB 1500›990 GOTO 150:REM END OF MAIN LOOP›1000 REM SCREEN AUFBAU›1010 RESTORE 9900+ROOM*100›1020 READ X,Y,MX,MY,MCHR,WFLG,MSPD,MFLG,PX,PY,SX,SY,TX,TY,SE2,SE3›1030 FOR I=2 TO 23:COLOR 142:PLOT 0,I:DRAWTO 19,I:NEXT I:POKE 710,SE2:POKE 711,SE3›1040 READ X1,Y1,X2,Y2:IF X1=-1 THEN 1060›1050 COLOR 32:FOR I=Y1 TO Y2:PLOT X1,I:DRAWTO X2,I:NEXT I:GOTO 1040›1060 READ X1,Y1,C:IF X1=-1 THEN 1080›1065 COLOR 168:IF C=2 THEN PLOT X1,Y1:GOTO 1060›1070 DRAWTO X1,Y1:GOTO 1060›1080 COLOR 33:PLOT X,Y:IF MFLG THEN COLOR MCHR:PLOT MX,MY›1090 COLOR 41:PLOT PX,PY:COLOR 42:PLOT SX,SY›1100 FOR W=1 TO 50:NEXT W›1110 COLOR 171:PLOT TX,TY:FOR I=15 TO 0 STEP -0.2:SOUND 0,60,4,I:NEXT I›1130 RETURN ›1200 REM PERLE GENOMMEN›1210 P=P+50:POSITION 14,1:? #6;P:COLOR 32:PLOT X+XR,Y+YR›1220 FOR I=15 TO 0 STEP -0.6:SOUND 0,I/3+28,12,I:NEXT I›1230 RAUSFLG=1:RETURN ›1300 REM SCHLUESSEL GENOMMEN›1310 COLOR 32:PLOT X+XR,Y+YR:P=P+20:POSITION 14,1:? #6;P›1320 FOR I=15 TO 0 STEP -0.4:SOUND 0,152,12,I:NEXT I:FOR W=1 TO 20:NEXT W›1330 FOR I=30 TO 10 STEP -0.5:SOUND 0,I,12,10:SOUND 1,I,4,10:SOUND 2,I,2,10:NEXT I:SOUND 0,0,0,0:SOUND 1,0,0,0›1340 SOUND 2,0,0,0:COLOR 32:PLOT TX,TY:RETURN ›1400 REM MONSTER MOVE›1410 XR=0:YR=0›1420 XR=XR-(XMX):YR=YR-(YMY)›1430 LOCATE MX+XR,MY+YR,Z›1440 IF Z=32 OR Z=WFLG THEN COLOR H:PLOT MX,MY:MX=MX+XR:MY=MY+YR:COLOR MCHR:PLOT MX,MY:H=Z:RETURN ›1450 IF Z=33 THEN 5000›1460 RETURN ›1500 REM SHOOT›1510 TIME=TIME-10:IF TIME<0 THEN TIME=0›1520 POSITION 13,0:? #6;TIME:IF TIME=0 THEN 4500›1530 LOCATE X+1,Y,Z:IF Z<>32 THEN RETURN ›1540 COLOR 45:PLOT X+1,Y›1550 FOR I=0 TO 150 STEP 10:SOUND 0,I,8,15-I/10:NEXT I›1560 LOCATE X+2,Y,Z:COLOR 32:PLOT X+1,Y:IF Z<>MCHR THEN RETURN ›1570 FOR I=15 TO 0 STEP -1:SETCOLOR 1,RND(0)*16,I:SOUND 0,RND(0)*20,8,I:NEXT I:P=P+25:POSITION 14,1:? #6;P›1580 MFLG=0:COLOR H:PLOT MX,MY:POKE 709,24:RETURN ›4500 REM KAPUTT DURCH ZEIT›4510 POP ›4520 FOR I=0 TO 15 STEP 0.2:SOUND 0,I/2,8,I:NEXT I›4530 IF MFLG THEN COLOR 32:PLOT MX,MY›4540 SETCOLOR 1,7,2:COLOR 8›4550 FOR I=23 TO 2 STEP -1:SOUND 0,250-I*10,8,15:PLOT 0,I:DRAWTO 19,I:FOR W=1 TO 20:NEXT W:NEXT I›4560 FOR W=1 TO 100:NEXT W›4570 FOR I=2 TO 23:SOUND 0,200,8,23-I:COLOR 32:PLOT 0,I:DRAWTO 19,I:NEXT I›4580 GOTO 5030›5000 REM MANN VERLOREN›5005 POP :POP :POP ›5010 FOR I=15 TO 0 STEP -0.5:SOUND 0,0,4,I:A=A*1:SOUND 0,5,4,I:NEXT I:SOUND 0,0,0,0›5020 COLOR 32:PLOT X,Y›5030 M=M-1:POSITION 6,1:? #6;M›5040 IF M>0 THEN 100›5050 FOR U=150 TO 200 STEP 8:FOR I=U TO U-100 STEP -10:SOUND 0,I,10,10-(U-150)/5:NEXT I:FOR W=1 TO 10:NEXT W:NEXT U›6000 GRAPHICS 0:POKE 752,1:POKE 82,0:POKE 712,52:POKE 710,116›6010 ? "DEINE PUNKTE:";P:? :? ›6020 ? " T H E B I G Q U E S T !":? :? " EIN SPIEL VON KEMAL EZCAN!":? :? :? ›6030 ? " DRUECKE START UM ZU BEGINNEN":? :? :? :? ›6040 ? "DIE AUFGABE BESTEHT DARIN, IN DEN VIELEN"›6050 ? "RAEUMEN DES GEHEIMNISVOLLEN SCHLOSSES"›6060 ? "DIE VERSTECKTEN PERLEN ZU FINDEN UND"›6070 ? "DANN HEIL ZU ENTKOMMEN."›6080 L=12:T=1:RESTORE 6200›6090 IF PEEK(53279)=6 THEN GOTO 50›6095 READ T:IF T=-1 THEN RESTORE 6000:READ T:L=L-(L>0)›6100 SOUND 0,T,10,L›6105 FOR W=1 TO 10:NEXT W›6110 GOTO 6090›6200 DATA 162,136,108,81,68,53,40,33›6210 DATA 182,153,121,91,76,60,45,37,-1›7000 REM RAUM GESCHAFFT›7010 POP :P=P+TIME:POSITION 14,1:? #6;P›7020 FOR I=15000 TO 0 STEP -230:SOUND 0,I,10,I/1000:NEXT I›7030 ROOM=ROOM+1:IF ROOM<=MAXROOM THEN 100›7040 GRAPHICS 18:? #6;" GRATULATION!!! ":? #6:P=P+1000›7050 ? #6;"DU HAST DAS RAETSEL"›7060 ? #6;"DES GEHEIMNISVOLLEN"›7070 ? #6;"SCHLOSSES GELOEST!!!"›7080 FOR W=1 TO 600:NEXT W›7090 GOTO 6000›10000 DATA 16,17,0,0,0,0,0,0,4,6,10,10,17,17,52,116›10010 DATA 3,5,7,15,8,9,12,20,13,13,16,20,17,17,19,17,-1,0,0,0›10020 DATA 2,4,2,8,4,1,8,8,1,13,8,1,13,12,1,17,12,1,17,16,1,19,16,1,19,18,2,17,18,1,17,21,1,8,21,1›10030 DATA 8,16,1,2,16,1,2,4,1,-1,0,0›10100 DATA 3,15,8,12,3,0,5,1,4,10,7,15,2,15,36,68›10110 DATA 3,5,9,20,10,11,16,20,0,15,2,15,-1,0,0,0,10,10,2,17,10,1,17,21,1,2,21,1,2,16,1,0,16,1,0,14,2,2,14,1›10120 DATA 2,4,1,10,4,1,10,10,1,6,8,2,6,16,1,14,16,1,-1,0,0›10200 DATA 14,13,0,0,0,0,0,0,4,7,8,8,14,12,22,52›10210 DATA 3,6,9,13,10,13,16,20,14,2,14,12,-1,0,0,0›10220 DATA 15,2,2,15,12,1,17,12,1,17,21,1,10,21,1,10,14,1,2,14,1,2,5,1,10,5,1,10,12,1,13,12,1,13,2,1,-1,0,0,0›10300 DATA 8,18,13,12,4,168,3,1,8,13,8,7,8,19,4,36›10310 DATA 5,5,14,18,3,8,16,15,8,19,8,23,-1,0,0,0›10320 DATA 7,23,2,7,19,1,4,19,1,4,16,1,2,16,1,2,7,1,4,7,1,4,4,1,15,4,1,15,7,1,17,7,1,17,16,1,15,16,1,15,19,1,9,19,1›10330 DATA 9,23,1,9,7,2,9,16,1,6,12,2,13,12,1,-1,0,0›10400 DATA 11,14,16,14,5,0,3,1,5,18,4,9,11,15,244,4›10410 DATA 2,7,7,19,8,12,17,14,15,12,17,20,11,15,11,23,-1,0,0,0›10420 DATA 10,23,2,10,15,1,8,15,1,8,19,1,1,19,1,1,6,1,8,6,1,8,11,1,18,11,1,18,21,1,14,21,1,14,15,1,12,15,1,12,23,1›10430 DATA -1,0,0›10500 DATA 9,21,9,5,6,168,2.5,1,3,7,16,7,9,22,196,244›10510 DATA 2,4,17,21,9,22,9,23,-1,0,0,0›10520 DATA 8,23,2,8,22,1,1,22,1,1,3,1,18,3,1,18,22,1,10,22,1,10,23,1,1,9,2,5,9,1,5,6,1,14,6,2,14,9,1,18,9,1,-1,0,0›10600 DATA 9,5,9,18,7,168,1.5,1,8,20,10,20,9,4,166,196›10610 DATA 2,5,17,20,9,4,9,6,9,2,9,4,-1,0,0,0›10620 DATA 8,2,2,8,4,1,1,4,1,1,21,1,18,21,1,18,4,1,10,4,1,10,2,1,3,6,2,3,19,1,16,19,1,16,6,1,9,20,2,-1,0,0›10700 DATA 17,19,0,0,0,0,0,0,2,20,16,5,18,19,150,164›10710 DATA 18,19,19,19,2,4,17,21,-1,0,0,0›10720 DATA 1,3,2,18,3,1,18,22,1,1,22,1,1,3,1,16,18,1,16,19,2,2,5,1,7,5,2,17,15,1,8,5,2,17,14,1,12,4,2,16,8,1,11,4,2›10730 DATA 16,9,1,3,11,2,13,21,1,4,11,2,14,21,1,-1,0,0›10800 DATA 17,21,15,7,5,0,1,1,17,15,17,4,18,21,184,116›10810 DATA 2,4,17,21,18,21,19,21,-1,0,0,0›10820 DATA 1,3,2,18,3,1,18,22,1,1,22,1,1,3,1,3,16,2,18,16,1,1,18,2,16,18,1,3,20,2,18,20,1,-1,0,0›10900 DATA 12,10,4,15,6,0,1.8,1,15,7,3,19,12,11,246,68›10910 DATA 3,11,8,19,8,7,15,10,12,11,12,23,-1,0,0,0›10920 DATA 11,23,2,11,11,1,9,11,1,9,20,1,2,20,1,2,11,1,7,11,1,7,6,1,16,6,1,16,11,1,13,11,1,13,23,1,-1,0,0›28000 DATA 1,60,126,90,219,255,195,102,60›28010 DATA 3,60,90,90,255,219,165,255,165›28020 DATA 4,126,42,221,123,30,56,110,66›28030 DATA 5,40,84,186,84,124,198,186,238›28040 DATA 6,66,165,165,126,24,189,102,153›28050 DATA 7,98,181,173,126,195,189,247,110›28060 DATA 8,255,255,255,255,255,255,255,255›28070 DATA 9,8,66,24,61,180,24,66,16›28080 DATA 10,224,160,160,240,26,15,6,2›28090 DATA 11,255,239,199,199,239,231,231,255›28100 DATA 13,0,0,0,119,221,0,0,0›28110 DATA 14,191,0,251,251,251,0,191,191,-1›