Locomotive Basic: Ahorcado

Ejemplo del Ahorcado (adivinar nombres de películas) usando Locomotive Basic

Lenguaje: Locomotive Basic

Categoría: Minijuegos

' Fuente procedente de ErrorDeSintaxis.es 

' Ejemplo del Ahorcado (adivinar nombres de 

'  películas) usando Locomotive Basic 

' Lenguaje: Locomotive Basic 

' Nivel: Básico 

' Disponible desde 13/08/2011 

' Aportado por Nacho 

' Autor original: Nacho Cabanes 

' Web original: http://www.nachocabanes.com/amstrad/curso/cpc_ej003.php 

10 ' Juego del ahorcado
20 '
30 GOSUB 500: ' Elegir pelicula al azar
40 ' Otros valores iniciales
80 intentos = 6
100 ' Parte repetitiva
105 CLS:PRINT "Tiene que adivinar una pelicula..."
110 WHILE (pelicula$ <> oculta$) AND (intentos > 0)
120   PRINT:PRINT "Intentos restantes: "; intentos
125   PRINT oculta$
130   INPUT "Introduzca una letra: ", letra$
140   GOSUB 700: ' Analizar la letra
170 WEND
180 IF pelicula$ = oculta$ THEN PRINT "Perfecto!" ELSE PRINT "Lo siento, era: ";pelicula$
190 END
 
500 ' Elegir una pelicula al azar y rellenar los guiones de la "pista"
510 RESTORE 1000: READ maxPeliculas
515 RANDOMIZE TIME
520 numPelicula = INT(RND * maxPeliculas)+1
530 FOR i = 1 TO numPelicula: READ pelicula$: NEXT
540 oculta$ = ""
550 FOR i = 1 TO LEN(pelicula$)
560   IF MID$(pelicula$,i,1) = " " THEN oculta$ = oculta$ + " " ELSE oculta$ = oculta$ + "-"
570 NEXT
580 RETURN
 
700 ' Analizar la letra
710 encontrados = 0
720 FOR i = 1 TO LEN(pelicula$)
730   IF MID$(pelicula$,i,1) = letra$ THEN MID$(oculta$,i,1)=letra$:encontrados=encontrados+1
740 NEXT
750 IF encontrados = 0 THEN intentos = intentos - 1
760 RETURN
 
1000 DATA 3 : ' Cantidad de peliculas
1010 DATA LA MUERTE TENIA UN PRECIO,LA GUERRA DE LAS GALAXIAS,COCODRILO DUNDEE
2000 RETURN