THE COLORFUR STICKS
Este juego ha sido creado por mi compañera Mari Tere Cruz y yo, utilizando el programa BASIC-256
El objetivo de este juego consiste en adivinar entre 4 palos de diferentes colores (naranja, verde, amarillo y rojo) cuál cree el jugador que es el más corto. De este modo, si el usuario adivina el palo más corto ganará un minipunto que se le sumará al marcador, pero en caso de que el usuario no adivine la respuesta no ganará el minipunto, lo cual el marcador ni sube ni baja, pudiendo así tener hasta 2 vidas más para seguir intentándolo.
Estas son las funciones y variables que hemos utilizado para crear el juego:
CLS
CLG
Y= INT (RAND*4)
IF Y= 0 THEN
Y = Y+1
PRINT "BIENVENIDO AL JUEGO DE LOS PALOS COLORIDOS"
PAUSE 1
CLS
INPUT "ESTE JUEGO CONSISTE EN ADIVINAR EL PALO QUE CREAS QUE ES EL MÁS CORTO; EN CASO DE HABERLO ADIVINADO GANARÁS UN MINIPUNTO, PERO SI NO LO ACIERTAS TU MARCADOR SEGUIRÁ EN 0 HASTA TENER 1 OPORTUNIDAD MÁS, SI NO ADIVINAS QUÉ PALO ES HABRÁS AGOTADO TUS VIDAS Y TENDRÁS QUE EMPEZAR DE NUEVO EL JUEGO. PULSE INTRO PARA EMPEZAR" , L
CLG
CLS
IF Y = 1 THEN
COLOR ORANGE
RECT 90,40,10,90
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,180
COLOR RED
RECT 180,40,10, 40
COLOR BLACK
RECT 10, 60, 800, 800
CUENTA=0
END IF
IF Y=2 THEN
COLOR ORANGE
RECT 90,40,10,90
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,70
COLOR RED
RECT 180,40,10, 40
COLOR BLACK
RECT 10, 60, 800, 800
END IF
IF Y=3 THEN
COLOR ORANGE
RECT 90,40,10,90
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,70
COLOR RED
RECT 180,40,10, 120
COLOR BLACK
RECT 10, 60, 800, 800
END IF
IF Y = 4 THEN
COLOR ORANGE
RECT 90,40,10,150
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,70
COLOR RED
RECT 180,40,10, 120
COLOR BLACK
RECT 10, 60, 800, 800
END IF
DO
INPUT "ELIJA, ENTRE LAS OPCIONES 1,2,3,4 CORRESPONDIENTES CON SU COLOR POR ORDEN DE IZQUIERDA A DERECHA, EL PALO MÁS CORTO ->" ,X
IF X = 1 THEN
CLS
PRINT "INCORRECTO, SIGUE PROBANDO Y PODRÁS CONSEGUIR UN MINIPUNTO"
END IF
IF X = 2 THEN
CLS
PRINT "INCORRECTO, SIGUE PROBANDO Y PODRÁS CONSEGUIR UN MINIPUNTO"
END IF
IF X = 3 THEN
CLS
PRINT "INCORRECTO, SIGUE PROBANDO Y PODRÁS CONSEGUIR UN MINIPUNTO"
END IF
IF X = 4 THEN
CLS
PRINT "¡CORRECTO! HAS GANADO UN MINIPUNTO"
END IF
IF X > 4 THEN
CLS
PRINT "NO EXISTE, INTRODUZCA NÚMERO ENTRE 1 Y 4"
END IF
CUENTA=CUENTA+1
UNTIL X =4 OR CUENTA>=2
IF CUENTA >= 2 AND X < 4 THEN
CLS
PRINT "CUPO DE OPORTUNIDADES CUBIERTO"
PRINT "HA FINALIZADO EL JUEGO, LO SENTIMOS, NO HA GANADO NINGÚN MINIPUNTO"
END IF
COLOR ORANGE
RECT 90,40,10,90
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,180
COLOR RED
RECT 180,40,10, 40
Estas son las funciones y variables que hemos utilizado para crear el juego:
CLS
CLG
Y= INT (RAND*4)
IF Y= 0 THEN
Y = Y+1
PRINT "BIENVENIDO AL JUEGO DE LOS PALOS COLORIDOS"
PAUSE 1
CLS
INPUT "ESTE JUEGO CONSISTE EN ADIVINAR EL PALO QUE CREAS QUE ES EL MÁS CORTO; EN CASO DE HABERLO ADIVINADO GANARÁS UN MINIPUNTO, PERO SI NO LO ACIERTAS TU MARCADOR SEGUIRÁ EN 0 HASTA TENER 1 OPORTUNIDAD MÁS, SI NO ADIVINAS QUÉ PALO ES HABRÁS AGOTADO TUS VIDAS Y TENDRÁS QUE EMPEZAR DE NUEVO EL JUEGO. PULSE INTRO PARA EMPEZAR" , L
CLG
CLS
IF Y = 1 THEN
COLOR ORANGE
RECT 90,40,10,90
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,180
COLOR RED
RECT 180,40,10, 40
COLOR BLACK
RECT 10, 60, 800, 800
CUENTA=0
END IF
IF Y=2 THEN
COLOR ORANGE
RECT 90,40,10,90
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,70
COLOR RED
RECT 180,40,10, 40
COLOR BLACK
RECT 10, 60, 800, 800
END IF
IF Y=3 THEN
COLOR ORANGE
RECT 90,40,10,90
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,70
COLOR RED
RECT 180,40,10, 120
COLOR BLACK
RECT 10, 60, 800, 800
END IF
IF Y = 4 THEN
COLOR ORANGE
RECT 90,40,10,150
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,70
COLOR RED
RECT 180,40,10, 120
COLOR BLACK
RECT 10, 60, 800, 800
END IF
DO
INPUT "ELIJA, ENTRE LAS OPCIONES 1,2,3,4 CORRESPONDIENTES CON SU COLOR POR ORDEN DE IZQUIERDA A DERECHA, EL PALO MÁS CORTO ->" ,X
IF X = 1 THEN
CLS
PRINT "INCORRECTO, SIGUE PROBANDO Y PODRÁS CONSEGUIR UN MINIPUNTO"
END IF
IF X = 2 THEN
CLS
PRINT "INCORRECTO, SIGUE PROBANDO Y PODRÁS CONSEGUIR UN MINIPUNTO"
END IF
IF X = 3 THEN
CLS
PRINT "INCORRECTO, SIGUE PROBANDO Y PODRÁS CONSEGUIR UN MINIPUNTO"
END IF
IF X = 4 THEN
CLS
PRINT "¡CORRECTO! HAS GANADO UN MINIPUNTO"
END IF
IF X > 4 THEN
CLS
PRINT "NO EXISTE, INTRODUZCA NÚMERO ENTRE 1 Y 4"
END IF
CUENTA=CUENTA+1
UNTIL X =4 OR CUENTA>=2
IF CUENTA >= 2 AND X < 4 THEN
CLS
PRINT "CUPO DE OPORTUNIDADES CUBIERTO"
PRINT "HA FINALIZADO EL JUEGO, LO SENTIMOS, NO HA GANADO NINGÚN MINIPUNTO"
END IF
COLOR ORANGE
RECT 90,40,10,90
COLOR GREEN
RECT 120,40,10,100
COLOR YELLOW
RECT 150,40,10,180
COLOR RED
RECT 180,40,10, 40
