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 LOCATE 0,13 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 LOCATE 0,13 PRINT "SCORE : ";SCORE END IF 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: 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" IF LNG$="A" THEN TEXT 0,0, "DIRECTION (N,S,E,O) " ELSE IF LNG$="B" THEN TEXT 0,0, "DIRECTION (N,S,E,W) " END IF 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" 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 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: IF LNG$="A" THEN TEXT 0,0, "VOUS ETES PRIS ! " ELSE IF LNG$="B" THEN TEXT 0,0, "HE GOT YOU! " END IF GOTO FIN COULE: IF LNG$="A" THEN TEXT 0,0,"VOUS COULEZ ! " ELSE IF LNG$="B" THEN TEXT 0,0,"YOU DROWNED! " END IF GOTO FIN SAUVE: IF LNG$="A" THEN TEXT 0,0,"SAUVE ! IL COULE ! " ELSE IF LNG$="B" THEN TEXT 0,0,"SAVED! HE DROWNED! " END IF 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