REM BATAILLE SUR L'ARCTIQUE GAMEPAD 1 TEXT 0,0, "LANGUAGE?" TEXT 0,2, "A. FRENCH" TEXT 0,3, "B. ENGLISH" LNG$="" WHILE LNG$="" IF BUTTON(0,0) THEN LNG$="A" IF BUTTON(0,1) THEN LNG$="B" WEND CLS LOCATE 0,0 IF LNG$="A" THEN PRINT "ADAPTATION" PRINT "POUR LOWRES NX" PRINT PRINT "PAR S. BLANCHONNET" PRINT "DE" PRINT PRINT "******************" PRINT "*BATAILLE NAVALE*" PRINT "* SUR L'ARCTIQUE *" PRINT "******************" PRINT PRINT "DE D. ISAAMAN" PRINT "ET J. TYLER" ELSE IF LNG$="B" THEN PRINT "ADAPTATION" PRINT "FOR LOWRES NX" PRINT PRINT "BY S. BLANCHONNET" PRINT "OF" PRINT PRINT "*****************" PRINT "* ICEBERG *" PRINT "*****************" PRINT PRINT "BY D. ISAAMAN" PRINT "AND J. TYLER" END IF WAIT 200 CLS DIM B(8,8) REM .,*,Y,Z, C_SEA=1 C_ICE=2 C_SHIP=3 C_SUB=4 REJOUER: SCORE=0 SCORE: CLS IF LNG$="A" THEN TEXT 0,10,"VOTRE NAVIRE :" CELL 15,10,3 TEXT 0,11,"NAVIRE ENNEMI :" CELL 16,11,4 TEXT 0,12,"ICEBERG :" CELL 10,12,2 LOCATE 0,14 PRINT "SCORE : ";SCORE ELSE IF LNG$="B" THEN TEXT 0,10,"YOUR SHIP:" CELL 11,10,3 TEXT 0,11,"ENEMY SHIP:" CELL 12,11,4 TEXT 0,12,"ICEBERG:" CELL 10,12,2 LOCATE 0,14 PRINT "SCORE : ";SCORE END IF CELL 14,1,5 CELL 14,5,6 CELL 12,3,7 CELL 16,3,8 CELL 13,2,11 CELL 15,2,9 CELL 13,4,10 CELL 15,4,12 LOCATE 14,3 PRINT "A" RANDOMIZE TIMER FOR I=1 TO 8 FOR X=1 TO 8 B(I,X)=1 NEXT X NEXT I PLACE_ICEBERGS: N=INT(RND*8+4) FOR I=1 TO N B(INT(RND(7)+1),INT(RND(7)+1))=C_ICE NEXT I PLACE_NAVIRE_ENNEMI: SX=INT(RND(7)+1) SY=INT(RND(7)+1) IF B(SX,SY)<>1 THEN GOTO PLACE_NAVIRE_ENNEMI B(SX,SY)=C_SUB PLACE_NAVIRE_JOUEUR: YX=INT(RND(7)+1) YY=INT(RND(7)+1) IF B(YX,YY)<>1 THEN GOTO PLACE_NAVIRE_JOUEUR B(YX,YY)=C_SHIP PARTIE: REM O=OLD OX=YX OY=YY OEX=SX OEY=SY PLAY 0,60,10 SOUND 0 FOR Y=1 TO 8 FOR X=1 TO 8 CELL X,Y,B(X,Y) NEXT X NEXT Y WAIT 50 B(YX,YY)=1 DI$="O" DI2$="NO" DI3$="SO" TEXT 0,0, "DIRECTION ?" D$="" WHILE D$="" IF UP TAP(0) THEN D$="N" IF DOWN TAP(0) THEN D$="S" IF LEFT TAP(0) THEN D$=DI$ IF RIGHT TAP(0) THEN D$="E" IF UP TAP(0) AND LEFT TAP(0) THEN D$=DI2$ IF UP TAP(0) AND RIGHT TAP(0) THEN D$="NE" IF DOWN TAP(0) AND LEFT TAP(0) THEN D$=DI3$ IF DOWN TAP(0) AND RIGHT TAP(0) THEN D$="SE" IF BUTTON(0,0) THEN D$="A" IF BUTTON(0,1) THEN D$="B" WEND YY=YY-(D$="S" AND YY<>8) YY=YY+(D$="N" AND YY<>1) YX=YX-(D$="E" AND YX<>8) YX=YX+(D$="O" AND YX<>1) IF D$=DI3$ AND YY<>8 AND YX<>1 THEN YY=YY+1 YX=YX-1 END IF IF D$="SE" AND YY<>8 AND YX<>8 THEN YY=YY+1 YX=YX+1 END IF IF D$=DI2$ AND YY<>1 AND YX<>1 THEN YY=YY-1 YX=YX-1 END IF IF D$="NE" AND YY<>1 AND YX<>8 THEN YY=YY-1 YX=YX+1 END IF IF D$="A" THEN YY=YY AND YX=YX 'IF D$="B" THEN IF B(YX,YY)=C_SUB THEN GOTO CAPTURE IF B(YX,YY)=C_ICE THEN GOTO COULE B(YX,YY)=C_SHIP B(SX,SY)=1 SX=SX+SGN(YX-SX) SY=SY+SGN(YY-SY) IF B(SX,SY)=C_SHIP THEN GOTO CAPTURE IF B(SX,SY)=C_ICE THEN GOTO SAUVE B(SX,SY)=C_SUB GOTO PARTIE CAPTURE: PLAY 2,30,60 SOUND 2 IF LNG$="A" THEN TEXT 0,0, "VOUS ETES PRIS ! " ELSE IF LNG$="B" THEN TEXT 0,0, "HE GOT YOU! " END IF FOR ANI=16 TO 22 CELL OX,OY,ANI WAIT 15 NEXT ANI GOTO FIN COULE: PLAY 1,30,60 SOUND 1 IF LNG$="A" THEN TEXT 0,0,"VOUS COULEZ ! " ELSE IF LNG$="B" THEN TEXT 0,0,"YOU DROWNED! " END IF FOR ANI=16 TO 22 CELL OX,OY,ANI WAIT 15 NEXT ANI GOTO FIN SAUVE: PLAY 1,30,60 SOUND 1 IF LNG$="A" THEN TEXT 0,0,"SAUVE ! IL COULE ! " ELSE IF LNG$="B" THEN TEXT 0,0,"SAVED! HE DROWNED! " END IF FOR ANI=32 TO 38 CELL OEX,OEY,ANI WAIT 15 NEXT ANI SCORE=SCORE+1 WAIT 100 GOTO SCORE FIN: WAIT 150 IF LNG$="A" THEN TEXT 0,0, "ON REJOUE (O=A/N=B)? " ELSE IF LNG$="B" THEN TEXT 0,0, "RESTART (Y=A/N=B)? " END IF INTENTION$="" WHILE INTENTION$="" IF BUTTON(0,0) THEN INTENTION$="O" IF BUTTON(0,1) THEN INTENTION$="N" WEND IF INTENTION$="O" THEN GOTO REJOUER ELSE END #1:MAIN PALETTES 033F3F0100003F07003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 00000010387C381000000010387C3810 183C66C381C37E3C183C7EFFFFFF7E3C 0018187EFFFFFF7E000000000081FF7E 08087EFF7E1800000000668142000000 183C7E18181818000000000000000000 00181818187E3C180000000000000000 002060FEFE6020000000000000000000 0004067F7F0604000000000000000000 0F070D18306000000000000000000000 0000060C18B0E0F00000000000000000 E0C0E0B0180C04000000000000000000 002030180D0703070000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 000018187EFFFFFF00000000000081FF 00000018187EFFFF0000000000000081 0000000018187EFF0000000000000000 000000000018187E0000000000000000 00000000000018180000000000000000 00000000000000180000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0008087EFF7E00000000006681420000 000008087EFF00000000000066810000 00000008087E00000000000000660000 00000000080800000000000000000000 00000000000800000000000000000000 00000000000800000000000000080000 #15:MAIN SOUND 3800339A00000000380033CC04FA0000 380030BB00FE00002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000