Xogo naval
1987/08/01 Arrojeria, Eustakio - Elhuyar Zientziaren Komunikazioa | Lizaso, Pili - Informatika SailaElhuyar Fundazioa Iturria: Elhuyar aldizkaria
Os xogos adoitan ser os sitios que máis gustan ou gustan dos computadores. O programa que expomos aquí é o denominado "xogo naval".
Salvo que a área de xogo sexa de 10x10 en lugar de 12x12 e o usuario teña un límite de 50 disparos, as normas son as normalmente aceptadas.
A máquina indicará ao usuario se acertou ou fallou e consideraraa gañadora ou perdedora, segundo corresponda.
Nota: Este xogo está programado paira o seu uso en PC e compatibles.
10 XOGOS NAVAIS REM
20 SCREEN 1 : KEY OFF : CLS
30 DIM A(12,12) : DIM UNTZI$(10,4)
40 REM
50 LOCATE 4,8 : PRINT "REGRAS DO
XOGO DOS BARCOS A XOGAR 7,4 MANS"
70 GOSUB 1600 : EXECUTAR
80 LOCATES PAIRA SEGUIR REM 11,4: PRINT "- Ti dános as coordenadas do
barco" 90 LOCATE 12,6 : PRINT " (letra, número)."
100 LOCATE 14,4: PRINT "- Si tocas o barco, asterisco"
110 LOCATE 15,6: PRINT converterase nun "rombo".
120 LOCATE 17,4: PRINT "- Si falla, desis
asteriso-" 130 LOCATE 18,6 : PRINT "cerca."
140 GOSUB 1600 : SEGUIR REM
150 CLS
160 LOCATE 5,5 : PRINT "Vexamos cal é o adversario"
170 LOCATE 7,5 : PRINT "flota:"
180 LOCATE 9,5 : PRINT "- Un avión (4 asteriscos)"
190 LOCATE 11,5 : PRINT "- Dous acoirazados (3 asteriscos)"
200 LOCATE 13,5 :- PRINT "- Tres destrutores (2 asteriscos)"
210 LOCATE 15,5 : PRINT "- 4 disparos
240
250 LOCATE 15,14 : PRINT "SORTE!!!"
260 GOSUB 1600: EXECUTAR REGRAS DO XOGO REM
270 CLS
280 AMAIA PAIRA SEGUIR REM
290 REM BIGIZTA
300 ERREKOP = 1 : ESLORA = 4 : UN = 1
310 FOR I = 1 TO 12:1A A(I,1) = 1 : NEXT I
320 FOR I = 1 TO 12 : A(12,I)=1: II(1
MES
DE
NOVEMBRO
E
MES
DE
NAVARRA)
PRINT
"ABCDEFGHIJ" 910 FOR I=7 TO 16 : LOCATE I,13 : PRINT I-7 : NEXT I
920 REM LUGAR DE CONVECCIÓN AMAIA PAIRA O CALCULO DO TIROTE
930
REM
=
19,50 TIROTE PRINT "Coordenadas do barco?"
980 LOCATE 20,5: INPUT "Letra :",X$
990 LOCATE 20,5: PRINT
SPC(15) 1000 IF (ASC(X$) 64) AND (ASC(X$) 75) THEN 1050
1010 LOCATE 22,5 : PRINT "Ver letras (majusculas)"
1020 N = 500
: GOSUB 1650 : REM
G20
LOCATE: 1020,50 INPUT "Número :",E$
1060 LOCATE 20,5: 1$
EN THM=1RF
ELSE LOCATE 22,7:PRINT "RETOCADO!!!"
1360 N = 500 : GOSUB 1650 : PAUSA REM
1370 LOCATE 22,7 : PRINT SPC(17)
1380 GOTO 1440
1390 AUGA = AUGA + 1
1400 LOCATE ASC(E$)-41,ASC(X$)-49: PRINT "
1410 LOCATE 22,7 : PRINT "Fallaches!!!"
1420 N = 500 : GOSUB 1650 : PAUSA 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 "Mergullaches todos os barcos"
1480 LOCATE 22,7: TIROS PRINT;" GAÑACHES DE TIROS!!!"
1490 GOTO 1540
1500 LOCATE 19,5:PRINT SPC(30)
1510 LOCATE 20,7:PRINT "Séntoo pero pérdelo"
1520 LOCATE 21,7:PRINT "xa tes máis de 50 disparos"
1530 LOCATE 22,7 : PRINT "tiraches máis."
1540 N = 2000 : GOSUB 1650 : PAIRA CALCULAR SI
TOCACHES 1550 REM AMAIA Ou NON TOMACHES PAUSA
1560 CLS
1570 LOCATE 11,11 : PRINT "XOGO TERMINADO."
1580 END
1590 ACCIÓN DE CONTINUACIÓN DO XOGO NAVAL AMAYA
1600 REM
1610 LOCATE 23,10: PRINT "Pulse J paira continuar"
1620 CHE$=":WHILE CHE$ "J" AND CHE$ "j":CHE$=INKEY$:ACCIÓN WEND
1630 RETURN
1640 REM PAUSA
1650 PAUSA
PAUSA
1660
K = 1
1670 FOR
1690 TO EXN
