Тёмная тема
- NeoGuru
- Постоялец
#include <lib_Basic.cpp>
' #include <SFML/System.hpp>
' #include <SFML/Window.hpp>
#include <SFML/Graphics.hpp>
#include <SFML/Audio.hpp>
' #include <SFML/Network.hpp>
FUNCTION main(BYVAL COMMANDCOUNT AS INTEGER, BYPTR COMMAND[] AS CHAR) AS INTEGER
setlocale(LC_ALL, "RUS")
RANDOMIZE()
'Define some constants
CONST pi AS FLOAT = 3.14159f
CONST gameWidth AS INTEGER = 800
CONST gameHeight AS INTEGER = 600
DIM ballRadius AS FLOAT = 10.f
DIM paddleSize(25, 100) AS sf.Vector2f
DIM chekCPU AS INTEGER = 0
DIM chekUSER AS INTEGER = 0
'Create the window of the application
SET window(sf.VideoMode(gameWidth, gameHeight, 32), "Pong", sf.Style.Titlebar | sf.Style.Close) AS sf.RenderWindow
window.setVerticalSyncEnabled(true)
'Load the sounds used in the game
DIM ballSoundBuffer AS sf.SoundBuffer
IF NOT(ballSoundBuffer.loadFromFile("resources/ball.wav")) THEN
RETURN EXIT_FAILURE
END IF
DIM ballSound(ballSoundBuffer) AS sf.Sound
'Create the left paddle
DIM leftPaddle AS sf.RectangleShape
leftPaddle.setSize(paddleSize - sf.Vector2f(3, 3))
leftPaddle.setOutlineThickness(3)
leftPaddle.setOutlineColor(sf.Color.Black)
leftPaddle.setFillColor(sf.Color(100, 100, 200))
leftPaddle.setOrigin(paddleSize / 2.f)
'Create the right paddle
DIM rightPaddle AS sf.RectangleShape
rightPaddle.setSize(paddleSize - sf.Vector2f(3, 3))
rightPaddle.setOutlineThickness(3)
rightPaddle.setOutlineColor(sf.Color.Black)
rightPaddle.setFillColor(sf.Color(200, 100, 100))
rightPaddle.setOrigin(paddleSize / 2.f)
'Create the ball
DIM ball AS sf.CircleShape
ball.setRadius(ballRadius - 3)
ball.setOutlineThickness(3)
ball.setOutlineColor(sf.Color.Black)
ball.setFillColor(sf.Color.White)
ball.setOrigin(ballRadius / 2, ballRadius / 2)
'Load the text font
DIM font AS sf.Font
IF NOT(font.loadFromFile("resources/sansation.ttf")) THEN
RETURN EXIT_FAILURE
END IF
'Initialize the pause message
DIM pauseMessage AS sf.Text
pauseMessage.setFont(font)
pauseMessage.setCharacterSize(40)
pauseMessage.setPosition(170.f, 150.f)
pauseMessage.setFillColor(sf.Color.White)
pauseMessage.setString("Welcome to pong!\nPress space to start the game")
DIM chekMessage AS sf.Text
chekMessage.setFont(font)
chekMessage.setCharacterSize(40)
chekMessage.setPosition(360.f, 0.f)
chekMessage.setFillColor(sf.Color.White)
'Define the paddles properties
DIM AITimer AS sf.Clock
CONST AITime AS sf.Time = sf.seconds(0.1f)
CONST paddleSpeed AS FLOAT = 400.f
DIM rightPaddleSpeed AS FLOAT = 0.f
CONST ballSpeed AS FLOAT = 400.f
DIM ballAngle AS FLOAT = 0.f 'to be changed later
DIM clock AS sf.Clock
DIM isPlaying AS BOOLEAN = FALSE
DO WHILE (window.isOpen())
'Handle events
DIM event AS sf.Event
DO WHILE (window.pollEvent(event))
'Window closed or escape key pressed: exit
IF ((event.type = sf.Event.Closed) OR ((event.type = sf.Event.KeyPressed) AND (event.key.code = sf.Keyboard.Escape))) THEN
window.close()
EXIT DO
END IF
'Space key pressed: play
IF ((event.type = sf.Event.KeyPressed) AND (event.key.code = sf.Keyboard.Space)) THEN
IF NOT(isPlaying) THEN
'(re)start the game
isPlaying = true
clock.restart()
'Reset the position of the paddles and ball
leftPaddle.setPosition(10 + paddleSize.x / 2, gameHeight / 2)
rightPaddle.setPosition(gameWidth - 10 - paddleSize.x / 2, gameHeight / 2)
ball.setPosition(gameWidth / 2, gameHeight / 2)
'Reset the ball angle
DO
'Make sure the ball initial angle is not too much vertical
ballAngle = (RND() % 360) * 2 * pi / 360
LOOP WHILE (ABS(COS(ballAngle)) < 0.7f)
END IF
END IF
LOOP
IF (isPlaying = TRUE) THEN
DIM deltaTime AS FLOAT = clock.restart().asSeconds()
'Move the player's paddle
IF (sf.Keyboard.isKeyPressed(sf.Keyboard.Up) AND (leftPaddle.getPosition().y - paddleSize.y / 2 > 5.f)) THEN
leftPaddle.move(0.f, -paddleSpeed * deltaTime)
END IF
IF (sf.Keyboard.isKeyPressed(sf.Keyboard.Down) AND (leftPaddle.getPosition().y + paddleSize.y / 2 < gameHeight - 5.f)) THEN
leftPaddle.move(0.f, paddleSpeed * deltaTime)
END IF
'Move the computer's paddle
IF (((rightPaddleSpeed < 0.f) AND (rightPaddle.getPosition().y - paddleSize.y / 2 > 5.f)) OR ((rightPaddleSpeed > 0.f) _
AND (rightPaddle.getPosition().y + paddleSize.y / 2 < gameHeight - 5.f))) THEN
rightPaddle.move(0.f, rightPaddleSpeed * deltaTime)
END IF
'Update the computer's paddle direction according to the ball position
IF (AITimer.getElapsedTime() > AITime) THEN
AITimer.restart()
IF (ball.getPosition().y + ballRadius > rightPaddle.getPosition().y + paddleSize.y / 2) THEN
rightPaddleSpeed = paddleSpeed
ELSE
IF (ball.getPosition().y - ballRadius < rightPaddle.getPosition().y - paddleSize.y / 2) THEN
rightPaddleSpeed = -paddleSpeed
ELSE
rightPaddleSpeed = 0.f
END IF
END IF
END IF
'Move the ball
DIM factor AS FLOAT = ballSpeed * deltaTime
ball.move(COS(ballAngle) * factor, SIN(ballAngle) * factor)
'Check collisions between the ball and the screen
IF (ball.getPosition().x - ballRadius < 0.f) THEN
isPlaying = FALSE
pauseMessage.setString("You lost!\nPress space to restart or\nescape to exit")
chekCPU = chekCPU + 1
END IF
IF (ball.getPosition().x + ballRadius > gameWidth) THEN
isPlaying = FALSE
pauseMessage.setString("You won!\nPress space to restart or\nescape to exit")
chekUSER = chekUSER + 1
END IF
IF (ball.getPosition().y - ballRadius < 0.f) THEN
ballSound.play()
ballAngle = -ballAngle
ball.setPosition(ball.getPosition().x, ballRadius + 0.1f)
END IF
IF (ball.getPosition().y + ballRadius > gameHeight) THEN
ballSound.play()
ballAngle = -ballAngle
ball.setPosition(ball.getPosition().x, gameHeight - ballRadius - 0.1f)
END IF
'Check the collisions between the ball and the paddles
'Left Paddle
IF (ball.getPosition().x - ballRadius < leftPaddle.getPosition().x + paddleSize.x / 2 AND _
ball.getPosition().x - ballRadius > leftPaddle.getPosition().x AND _
ball.getPosition().y + ballRadius >= leftPaddle.getPosition().y - paddleSize.y / 2 AND _
ball.getPosition().y - ballRadius <= leftPaddle.getPosition().y + paddleSize.y / 2) THEN
IF (ball.getPosition().y > leftPaddle.getPosition().y) THEN
ballAngle = pi - ballAngle + (RND() % 20) * pi / 180
ELSE
ballAngle = pi - ballAngle - (RND() % 20) * pi / 180
END IF
ballSound.play()
ball.setPosition(leftPaddle.getPosition().x + ballRadius + paddleSize.x / 2 + 0.1f, ball.getPosition().y)
END IF
'Right Paddle
IF (ball.getPosition().x + ballRadius > rightPaddle.getPosition().x - paddleSize.x / 2 AND _
ball.getPosition().x + ballRadius < rightPaddle.getPosition().x AND _
ball.getPosition().y + ballRadius >= rightPaddle.getPosition().y - paddleSize.y / 2 AND _
ball.getPosition().y - ballRadius <= rightPaddle.getPosition().y + paddleSize.y / 2) THEN
IF (ball.getPosition().y > rightPaddle.getPosition().y) THEN
ballAngle = pi - ballAngle + (RND() % 20) * pi / 180
ELSE
ballAngle = pi - ballAngle - (RND() % 20) * pi / 180
END IF
ballSound.play()
ball.setPosition(rightPaddle.getPosition().x - ballRadius - paddleSize.x / 2 - 0.1f, ball.getPosition().y)
END IF
chekMessage.setString(STR(chekUSER) + " : " + STR(chekCPU))
END IF
'Clear the window
window.clear(sf.Color(50, 200, 50))
IF (isPlaying) THEN
window.draw(chekMessage)
'Draw the paddles and the ball
window.draw(leftPaddle)
window.draw(rightPaddle)
window.draw(ball)
ELSE
'Draw the pause message
window.draw(pauseMessage)
END IF
'Display things on screen
window.display()
LOOP
RETURN EXIT_SUCCESS
END FUNCTION