Paso 1: Tienes que escribir todos estos códigos para hacer el juego.
startover:PANTALLA 10
CLS
Imprimir "¿Qué es el nombre del jugador 1?"
ENTRADA player1.name$
Imprimir "¿Qué es el nombre del jugador 2"?
ENTRADA player2.name$
Imprimir "¿Cuántas rondas ¿quieres jugar?"
ENTRADA round.total
Player1.score = 0
player2.score = 0
rondas = 0
Nuevo:
rondas rondas = 1
' dibujar el campo
PANTALLA DE 7
CLS
PINTURA (5, 5), (2)
LÍNEA (0, 0)-(3, 199), BF 0,
LÍNEA (0, 199)-(319, 194), BF 0,
LÍNEA (318, 199)-(314, 0), 0, BF
PINTURA (1, 1), (15), (2).
LÍNEA (0, 0)-(0, 200), 0
LÍNEA (1, 74)-(3, 144), BF 0,
LÍNEA (314, 74)-(319, 144), BF 0,
LÍNEA (1, 0)-(319, 20), BF 15,
LÍNEA (0, 0)-(320, 15), 0, BF
LÍNEA (317, 0)-(319, 199), BF 0,
LOCALICE 1, 1
IF player1.score > player2.score entonces
COLOR 9
OTRA COSA
COLOR 12
END IF
IF player1.score = player2.score entonces
COLOR 15
END IF
PRINT "resultado:";" "; $ player2.Name; ":"; player2.score; " "; $ Player1.Name; ":"; Player1.score
Rondas de IF > round.total entonces
GOTO salir
END IF
Player1.x = 300
Player1.y = 95
player2.x = 12
player2.y = 95
$ Player1.Move = "n"
$ player2.Move = "n"
Ball.x = 163
Ball.y = 3 * INT(55 * RND) + 26
x = INT(2 * RND)
IF x = 1 entonces
Ball.NS = 3
OTRA COSA
Ball.NS = -3
END IF
x = INT(2 * RND)
IF x = 1 entonces
Ball.EW = 3
OTRA COSA
Ball.EW = -3
END IF
Ball.x.2 = ball.x
Ball.y.2 = ball.y
Player1.x.2 = player1.x
Player1.y.2 = player1.y
player2.x.2 = player2.x
player2.y.2 = player2.y
Player1.NS = 0
Player1.EW = 0
player2.NS = 0
player2.EW = 0
a:
CÍRCULO (ball.x.2, ball.y.2), 6, 2
PINTURA (ball.x.2, ball.y.2), (2), (2)
LÍNEA (player1.x.2, player1.y.2 + 1)-(player1.x.2 + 6, player1.y.2 + 23), 2, BF
LÍNEA (player2.x.2, player2.y.2 + 1)-(player2.x.2 + 6, player2.y.2 + 23), 2, BF
LÍNEA (player1.x, player1.y + 1)-(player1.x + 6, player1.y + 23), 9, BF
LÍNEA (player2.x, player2.y + 1)-(player2.x + 6, player2.y + 23), 12, BF
CÍRCULO (ball.x, ball.y), 6, 14
PINTURA (ball.x, ball.y), (14), (14)
Flicker.Control = 6000000'
PARA cuenta = 1 a Flicker.Control
SIGUIENTE cuenta
Ball.x.2 = ball.x
Ball.y.2 = ball.y
Player1.x.2 = player1.x
Player1.y.2 = player1.y
player2.x.2 = player2.x
player2.y.2 = player2.y
Ball.x = ball.x + ball.ew
Ball.y = ball.y + ball.ns
Player1.x = player1.x + player1.ew
Player1.y = player1.y + player1.ns
player2.x = player2.x + player2.ew
player2.y = player2.y + player2.ns
IF ball.x - 6 = 74 y ball.y GOTO goal.1
END IF
IF ball.x + 6 > = 312 y ball.y > = 74 y ball.y GOTO goal.2
END IF
IF ball.y - 6 ball.ns = 3
END IF
IF ball.y + 6 > = 194 entonces
Ball.NS = -3
END IF
IF ball.x - 6 ball.ew = 3
END IF
IF ball.x + 6 > = 312 entonces
Ball.EW = -3
END IF
IF ball.x + 6 > = player1.x ball.x y - 6 = player1.y y ball.y ball.ew = - ball.ew
Ruido de IF = 1 entonces
SEÑAL SONORA
END IF
END IF
IF ball.x + 6 > = player2.x ball.x y - 6 = player2.y y ball.y ball.ew = - ball.ew
Ruido de IF = 1 entonces
SEÑAL SONORA
END IF
END IF
Player1.ns de IF player1.y = 3
END IF
Player1.y de IF + 24 > = 194 entonces
Player1.NS = -3
END IF
Player1.ew de IF player1.x = 3
END IF
IF player1.x + 6 > = 312 entonces
Player1.EW = -3
END IF
Player2.ns de IF player2.y = 3
END IF
Player2.y de IF + 24 > = 194 entonces
player2.NS = -3
END IF
Player2.ew de IF player2.x = 3
END IF
IF player2.x + 6 > = 312 entonces
player2.EW = -3
END IF
mueven$ = $ INKEY
SELECT CASE mueve$
CASO "p"
LOCALIZAR 12, 3
COLOR 15
Imprimir "Juego pausado golpe espacio para continuar"
MIENTRAS INKEY$ VENDO
LÍNEA (10, 44)-(310, 144), 2, BF
CASO "q"
GOTO salir
' player1 cambio en movimiento
CASO "8"
Player1.NS = -3
CASO "6"
Player1.EW = 3
CASO "2"
Player1.NS = 3
CASO "4"
Player1.EW = -3
CASO "5"
Player1.EW = 0
Player1.NS = 0
' cambio de jugador 2 en movimiento
CASO "i"
player2.NS = -3
CASO "l"
player2.EW = 3
CASO ","
player2.NS = 3
CASO "m"
player2.NS = 3
CAJA "j"
player2.EW = -3
CASO "k"
player2.EW = 0
player2.NS = 0
FINAL SELECCIONE
GOTO una
Goal.1:
LOCALIZAR 14, 2
COLOR 9
Imprimir "Meta!"
Player1.score = player1.score + 1
MIENTRAS INKEY$ VENDO
GOTO nuevo
Goal.2:
COLOR 4
LOCALIZAR 14, 35
Imprimir "Meta!"
player2.score = player2.score + 1
MIENTRAS INKEY$ VENDO
GOTO nuevo
dejar de fumar:
LOCALIZAR 12, 6
COLOR 4
Imprimir "Game Over"
LOCALIZAR 13, 6
Imprimir "¿quieres jugar otra vez? s/n"
HACER
y.n$ = $ INKEY
Y.n$ lazo hasta = "y" OR y.n$ = "n"
IF y.n$ = "y" THEN
GOTO startover
END IF
