%Set screen and home screen
var font, font1 : int
var ch : string (1)
var X, Y : int := 30 %Placement of the ball
var R1, R2 : int := 10 %Radius of the ball
var DX, DY : int := 1
var key : string (1) % key board character
var num : int
var y1, y2, y3, y4, x1, x2, x3, x4 : int
var getkey : array char of boolean
var input : string (1)
var i1 : string (1) := '1'
var i2 : string (1) := '2'
var ydir : int
var play1score, play2score : int := 0
var p1 : int
p1 := Pic.FileNew ("pongback.bmp")
setscreen ("graphics:1000;800,nobuttonbar,nocursor") %screen size
colourback (black) %backround colour

process song
    loop
        Music.PlayFile ("zizibum.mp3")
    end loop
end song
fork song




cls
font := Font.New ("Palatino:18:bold,italic") %font colour and size
Draw.Text ("Welcome to Eric's pong game.", 400, 405, font, white) %text line 1
Draw.Text ("Press any key to continue.", 330, 355, font, white) %text line 2
getch (ch) %starts game
cls
Draw.Text ("Player 1 use the W and S keys to move.", 275, 175, font, white) %text line 1
Draw.Text ("Player 2 use the Up and Down arrow keys to move.", 205, 105, font, white) %text line 2


%Instructions
Draw.Text ("Instructions.", 400, 730, font, white)
Draw.Line (380, 725, 560, 725, white)
Draw.Text ("Press 1 for one player.", 350, 670, font, white)
Draw.Text ("Press 2 for two player.", 350, 630, font, white)
Draw.Text ("One Player", 400, 470, font, white)
Draw.Text ("Two Player", 400, 430, font, white)
getch (input)


if input = i1 then
    Draw.Text ("One Player", 400, 470, font, white)
    delay (200)
    Draw.Text ("One Player", 400, 470, font, blue)
    delay (200)
    Draw.Text ("One Player", 400, 470, font, white)
    delay (200)
    Draw.Text ("One Player", 400, 470, font, blue)
    delay (200)
    Draw.Text ("One Player", 400, 470, font, white)
    delay (200)
    Draw.Text ("One Player", 400, 470, font, blue)
    delay (200)
    Draw.Text ("One Player", 400, 470, font, white)
end if
if input = i2 then
    Draw.Text ("Two Player", 400, 430, font, white)
    delay (200)
    Draw.Text ("Two Player", 400, 430, font, blue)
    delay (200)
    Draw.Text ("Two Player", 400, 430, font, white)
    delay (200)
    Draw.Text ("Two Player", 400, 430, font, blue)
    delay (200)
    Draw.Text ("Two Player", 400, 430, font, white)
    delay (200)
    Draw.Text ("Two Player", 400, 430, font, blue)
    delay (200)
    Draw.Text ("Two Player", 400, 430, font, white)
end if
View.Update


process ball
    loop
        %Pic.Draw (p1,200,200,picCopy)
        color (2)
        locate (1, 1)
        put "P1 Score"
        locate (2, 1)
        put play1score
        locate (1, 10)
        put "P2 Score"
        locate (2, 10)
        put play2score
        drawfilloval (X, Y, R1, R2, black)
        drawfilloval (X, Y, R1, R2, red)
        View.Update
        X := X + DX
        Y := Y + DY
        View.Update
        if X = maxx then  % Check if ball hits left or right border
            View.Update
            play1score := play1score + 1
            X := 500
            Y := 400
            View.Update
        elsif X = 0 then
            View.Update
            play2score := play2score + 1
            X := 500
            Y := 400
        elsif Y = 0 or Y = maxy then    % Check if ball hits top or bottom border
            DY := (-1) * DY
        end if
        if play1score = 10 then
            cls
            Draw.Text ("Thanks for playing.", 400, 405, font, white) %text line 1
        end if

        if play2score = 10 then
            cls
            Draw.Text ("Thanks for playing.", 400, 405, font, white) %text line 1
        end if
        cls
    end loop
end ball
fork ball

View.Update

y1 := maxy - 490
y2 := maxy - 310
y3 := maxy - 490
y4 := maxy - 310
x1 := 5
x2 := 15
x3 := maxx - 5
x4 := maxx - 15
ydir := 3

View.Update

process p1paddleup
    loop
        drawfillbox (x1, y1, x2, y2, white)
        drawfillbox (x1, y1, x2, y2, white)
        Input.KeyDown (getkey)
        if getkey ('w') then
            y1 := y1 + 1
            y2 := y2 + 1
        end if
        View.Update
    end loop
end p1paddleup
fork p1paddleup

View.Update
process p1paddledown
    loop
        drawfillbox (x1, y1, x2, y2, white)
        drawfillbox (x1, y1, x2, y2, white)
        Input.KeyDown (getkey)
        if getkey ('s') then
            y1 := y1 - 1
            y2 := y2 - 1
        end if

    end loop
end p1paddledown
fork p1paddledown

process p2paddleup
    loop
        drawfillbox (x3, y3, x4, y4, white)
        drawfillbox (x3, y3, x4, y4, white)
        Input.KeyDown (getkey)
        if getkey (KEY_UP_ARROW) then
            y3 := y3 + 1
            y4 := y4 + 1
        end if
        cls
    end loop
end p2paddleup
fork p2paddleup

View.Update
process p2paddledown
    loop
        drawfillbox (x3, y3, x4, y4, white)
        drawfillbox (x3, y3, x4, y4, white)
        if getkey (KEY_DOWN_ARROW) then
            y3 := y3 - 1
            y4 := y4 - 1
        end if
        cls
    end loop
end p2paddledown
fork p2paddledown




process bouncep12
    loop
        if whatdotcolour (X, Y) = white then %Ball bounce for both paddles
            DX := (-1) * DX
        end if
    end loop
end bouncep12
fork bouncep12

if play1score = 10 then
    cls
    Draw.Text ("Thanks for playing.", 400, 405, font, white) %text line 1
end if

if play2score = 10 then
    cls
    Draw.Text ("Thanks for playing.", 400, 405, font, white) %text line 1
end if

procedure drawEnemies
     % Code in here to draw all your Enemies
end drawEnemies

drawEnemies

% Some Turing code

procedure1
procedure2
% ...

% More Turing code