Naval Game
1987/08/01 Arrojeria, Eustakio - Elhuyar Zientziaren Komunikazioa | Lizaso, Pili - Informatika SailaElhuyar Fundazioa Iturria: Elhuyar aldizkaria
Les jeux sont généralement les sites qui aiment ou aiment les ordinateurs. Le programme que nous proposons ici est le soi-disant "jeu naval".
Sauf si la zone de jeu est 10x10 au lieu de 12x12 et que l'utilisateur a une limite de 50 coups, les règles sont généralement acceptées.
La machine indique à l'utilisateur s'il a réussi ou échoué et la considère comme gagnante ou perdante, le cas échéant.
Remarque: Ce jeu est programmé pour une utilisation sur PC et compatible.
10 JEUX NAVALS REM
20 SCREEN 1 : KEY OFF : CLS
30 DIM A(12,12) : DIM UNTZI$(10,4)
40 REM
50 LOCATE 4,8
: PRINT "RÈGLES DU JEU
DES BATEAUX SUIVRE 11,80 PRINT "- Donnez-nous les coordonnées du bateau"
90 LOCATE 12,6 : PRINT " (lettre, numéro)."
100 LOCATE 14,4: PRINT "- Si vous touchez le bateau, astérisque"
110 LOCATE 15,6: PRINT deviendra un «losange».
120 LOCATE 17,4: PRINT "- Si échoue, desis
asteriso-" 130 LOCATE 18,6 : PRINT "près."
140 GOSUB 1600 : SUIVRE REM
150 CLS
160 LOCATE 5,5 : PRINT "Voyons quel est l'adversaire"
170 LOCATE 7,5 : PRINT "flotte :"
180 LOCATE 9,5 : PRINT "- Un avion (4 astérisques)"
190 LOCATE 11,5 : PRINT "- Deux cuirassés (3 astérisques)"
200 LOCATE 13,5 :- PRINT "- Trois destructeurs (2 astérisques)"
210 LOCATE 15,5 : PRINT "- 4 coups
240
250 LOCATE 15,14
260 GOSUB 1600: EXÉCUTER LES RÈGLES DU JEU REM
270 CLS
280 AMAIA POUR SUIVRE REM
290 REM BIGIZTA
300 ERREKOP = 1 : ESLORA = 4 : UN = 1
310
FOR I = 1 TO 12:1A(I,Ex320 = 1
II(1
MOIS DE
NOVEMBRE ET MOIS
DE NAVARRE)
PRINT "ABCDEFGHIJ"
910 FOR I=7 TO 16 : LOCATE I,13 : PRINT I-7 : NEXT I
920
REM
LIEU DE CONVECTION
980 LOCATE 20,5: INPUT "Lettre :",X$
990 LOCATE 20,5: PRINT
SPC(15) 1000 IF (ASC(X$) 64) AND (ASC(X$) 75) THEN 1050
1010 LOCATE 22,5 : PRINT "Afficher les lettres (majuscules)"
1020 N = 500
: GOSUB 1650 : REM
G20
LOCATE: 1020,50 INPUT "Numéro :",Y$
1060 LOCATE 20,5: $1
AU
THM=1RF
ELSE LOCATE 22,7:PRINT "RETOUCHÉ!!!"
1360 N = 500 : GOSUB 1650 : PAUSE REM
1370 LOCATE 22,7 : PRINT SPC(17)
1380 GOTO 1440
1390 EAU = EAU + 1
1400 LOCATE ASC(Y$)-41,ASC(X$)-49 : PRINT "
1410 LOCATE 22,7 : PRINT "Vous avez échoué!!"
1420 N = 500 : GOSUB 1650 : PAUSE REM
1430 LOCATE 22,7 : PRINT SPC(20)
1440 GOTO 950
1450 REM AMBITARTE
1460 IF UKI 20 THEN 1500
1470 LOCATE 20,7:PRINT "Vous avez plongé tous les bateaux"
1480 LOCATE 22,7: TIRS PRINT;" VOUS AVEZ GAGNÉ DES TIRS!!!"
1490 GOTO 1540
1500 LOCATE 19,5:PRINT SPC(30)
1510 LOCATE 20,7:PRINT "Désolé, mais vous le perdez"
1520 LOCATE 21,7:PRINT "vous avez déjà plus de 50 coups"
1530 LOCATE 22,7 : PRINT "vous avez tiré plus."
1540 N = 2000 : GOSUB 1650 : POUR CALCULER SI VOUS
AVEZ TOUCHÉ 1550 REM AMAIA OU VOUS N AVEZ PAS
ARRÊTÉ 1560 CLS
1570 LOCATE 11,11 : PRINT "JEU FINI."
1580 END
1590 ACTION CONTINUE DU JEU NAVAL AMAYA
1600 REM
1610 LOCATE 23,10 : PRINT "Pressez J pour
continuer" 1620 TE$=":WHILE TE$ "J" AND TE$ "j":TE$=INKEY$:ACTION
WEND 1630 RETURN
1640 REM PAUSE
1650
PAUSE PAUSE
1660
K =
161
1670 TO
