%%%%%%%%%%%
%VARIABLES%
%%%%%%%%%%%
% second screen
var winID : int

% 1 player or two player
var playerinfo : int % if one player of two

% Positions
var x, y, x1, y1, x2, y2, x4, y4, x5, y5, x6, y6, x7, y7, x8, y8 : int % positions
var x9, x10, x11, x12, x13, x14, x15, y9, y10, y11, y12, y13, y14, y15 : int % positions
var x16, x17, x18, y16, y17, y18 : int % positiosn
var a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15, a16, a17, a18 : int % change in direction

var o1, o2, o3, o4, o5, o6, o7, o8, o9, o10 : int := 0
var i1, i2, i3, i4, i5, i6, i7, i8, i9, i10 : int := 0

%Intesity sides
var xsize : int := 1200
var ysize : int := 600
var screen : int := 0

% SKILLS
var p1sk : int := 0
var p2sk : int := 0

%not eliminated to fast
var fastout : int := 0

% Time
var runingtime : real := 0 % runingtime
var T1a, T1b, T2a, T2b : real := 0       % timer for invisibility
var P1it, P2it, starttime : real := 0 % timer for who's it

% REF STUFF
var f, t : int := 1


% People and whose it
var colours, colours2 : int     % Colour / if it
var p1 : int := 12     % player 1
var p2 : int := 9     % player 2
var r : int := 1
var z : int := 1

% help with random
var counter : int := 0
var counter2 : int := 0

% Score
var p1s, p2s : int := 0

% what things equal
x := 10
y := 10
x1 := 1190
y1 := 590
colours := p1
colours2 := p2
x2 := 1190
y2 := 10

%Randomize Circle cordonites
var x3, y3 : int

% dotfor amount
var dotfor : int := 5

%LOADING Bar because it's cool
var load : int := 0

% Movement
var move1 : int := 6
var move2 : int := 5
var move3 : int := 5

% play agian
var answer : string

%FONTS
var font1, font2, font3, font4 : int
font1 := Font.New ("sans serif:18:bold")
font2 := Font.New ("sans serif:36:bold")
font3 := Font.New ("mono:20")
font4 := Font.New ("Palatino:40:Bold,Italic")


%pic
%var background : int := Pic.FileNew ("Pic/My Map 1.bmp")     % not used at the moment
var Grass : int := Pic.FileNew ("Pic/Grass.bmp")
var page2 : int := Pic.FileNew ("Pic/tag-your-it.bmp")

% Movement
var chars : array char of boolean

% Procedure for movement of player one
procedure Player1move
    if chars (KEY_UP_ARROW) and t = 1 then
        y := y + 5
    end if
    if chars (KEY_RIGHT_ARROW) and t = 1 then
        x := x + 5
    end if
    if chars (KEY_LEFT_ARROW) and t = 1 then
        x := x - 5
    end if
    if chars (KEY_DOWN_ARROW) and t = 1 then
        y := y - 5
    end if
end Player1move

% position of black moving circles
randint (x4, 1, 1199)
randint (y4, 1, 599)
randint (x5, 1, 1199)
randint (y5, 1, 599)
randint (x6, 1, 1199)
randint (y6, 1, 599)
randint (x7, 1, 1199)
randint (y7, 1, 599)
randint (x8, 1, 1199)
randint (y8, 1, 599)
randint (x9, 1, 1199)
randint (y9, 1, 599)
randint (x10, 1, 1199)
randint (y10, 1, 599)
randint (x11, 1, 1199)
randint (y11, 1, 599)
randint (x12, 1, 1199)
randint (y12, 1, 599)
randint (x13, 1, 1199)
randint (y13, 1, 599)
randint (x14, 1, 1199)
randint (y14, 1, 599)
randint (x15, 1, 1199)
randint (y15, 1, 599)
randint (x16, 1, 1199)
randint (y16, 1, 599)
randint (x17, 1, 1199)
randint (y17, 1, 599)
randint (x18, 1, 1199)
randint (y18, 1, 599)


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%GAME STARTS %%%%%%%%%% GAMES STARTS %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Opening Screen
Music.PlayFileLoop ("Music/Canon.mp3")     % Music

setscreen ("graphics:600;600")
Draw.FillBox (1000, 1000, 0, 0, black)
Draw.Text ("TAG YOU'RE IT", 160, 500, font2, brightred)
Draw.Text ("The goal is to touch the other player", 120, 450, font1, yellow)
Draw.Text ("A,W,S,D controls the green dot", 140, 400, font1, yellow)
Draw.Text ("Arrow Keys control the red dot", 140, 350, font1, yellow)
Draw.Text ("The Game will begin shortly", 155, 300, font1, yellow)
Pic.Draw (page2, 200, 0, picMerge)
delay (5000)
cls

%second screen
Draw.FillBox (1000, 1000, 0, 0, black)
Draw.Text ("O resets the screen", 80, 500, font3, yellow)
Draw.Text (" L and K are for invisiblity for red", 10, 450, font3, yellow)
Draw.Text (" E and Q are for invisiblity for Blue", 5, 400, font3, yellow)
Draw.Text (" Red means you're it", 80, 350, font3, brightgreen)
Draw.Text (" Hit 1 for one player", 80, 300, font3, brightred)
Draw.Text (" Hit 2 for two player", 80, 250, font3, brightred)

get playerinfo     % Getting if one player or two


View.Set ("offscreenonly,title:Tag Time,nobuttonbar,graphics:191;35")

loop

    load := load + 1
    drawfillbox (4 + load, 5, 5, 25, brightred)
    exit when load = 191
    delay (10)
    View.Update
end loop


% Setting Screen size
setscreen ("graphics:1200;600,offscreenonly")

% ONE PLAYER
if playerinfo = 1 then
    x := 50
    y := 50
    starttime := Time.Elapsed
    loop

        % So not eliminated to quickly
        if runingtime - starttime < 5000 then
            fastout := 1
        else
            fastout := 0
        end if

        % some stuff
        colours := 9
        counter := counter + 1
        cls
        %Background
        Draw.FillBox (1200, 600, 0, 0, 2)

        % circles before 1500
        if counter = 200 then
            % position of black moving circles
            randint (x4, 1, 1199)
            randint (y4, 1, 599)
            randint (x5, 1, 1199)
            randint (y5, 1, 599)
            randint (x6, 1, 1199)
            randint (y6, 1, 599)
            randint (x7, 1, 1199)
            randint (y7, 1, 599)
            randint (x8, 1, 1199)
            randint (y8, 1, 599)
            randint (x9, 1, 1199)
            randint (y9, 1, 599)
            randint (x10, 1, 1199)
            randint (y10, 1, 599)
            randint (x11, 1, 1199)
            randint (y11, 1, 599)
            randint (x12, 1, 1199)
            randint (y12, 1, 599)
            randint (x13, 1, 1199)
            randint (y13, 1, 599)
            randint (x14, 1, 1199)
            randint (y14, 1, 599)
            randint (x15, 1, 1199)
            randint (y15, 1, 599)
            randint (x16, 1, 1199)
            randint (y16, 1, 599)
            randint (x17, 1, 1199)
            randint (y17, 1, 599)
            randint (x18, 1, 1199)
            randint (y18, 1, 599)
            counter2 := 200 + counter2
            counter := 0

        end if

        %AFTER 1500
        if counter2 = 1500 or counter2 > 1500 then
            Draw.FillOval (o10, i10, 10, 10, black)
            Draw.FillOval (o9, i9, 10, 10, black)
            Draw.FillOval (o8, i8, 10, 10, black)
            Draw.FillOval (o7, i7, 10, 10, black)
            Draw.FillOval (o6, i6, 10, 10, black)
            Draw.FillOval (o5, i5, 10, 10, black)
            Draw.FillOval (o4, i4, 10, 10, black)
            Draw.FillOval (o3, i3, 10, 10, black)
            Draw.FillOval (o2, i2, 10, 10, black)
            Draw.FillOval (o1, i1, 10, 10, black)
            if counter = 200 then
                % Second set
                randint (o1, 1, 1199)
                randint (i1, 1, 599)
                randint (o2, 1, 1199)
                randint (i2, 1, 599)
                randint (o3, 1, 1199)
                randint (i3, 1, 599)
                randint (o4, 1, 1199)
                randint (i4, 1, 599)
                randint (o5, 1, 1199)
                randint (i5, 1, 599)
                randint (o6, 1, 1199)
                randint (i6, 1, 599)
                randint (o7, 1, 1199)
                randint (i7, 1, 599)
                randint (o8, 1, 1199)
                randint (i8, 1, 599)
                randint (o9, 1, 1199)
                randint (i9, 1, 599)
                randint (o10, 1, 1199)
                randint (i10, 1, 599)
            end if
        end if
        Input.KeyDown (chars)

        %Player 1
        Player1move

        %Glitch Fix
        if chars ('o') then
            x := 10
            y := 10
        end if

        % Teleport Secret player 1 top right cornor
        if chars ('/') then
            x := 10
            y := 590
        end if

        %Sides PLAYER 1
        if x = 1200 then
            x := 5
        end if

        if x = 0 then
            x := 1195
        end if

        if y = 600 then
            y := 5
        end if

        if y = 0 then
            y := 595
        end if

        %movement of all Dots
        x4 := x4 + move3
        y4 := y4 + 0
        x5 := x5 + 0
        y5 := y5 + move3
        x6 := x6 + move3
        y6 := y6 + move3
        x7 := x7 + move3
        y7 := y7 + 0
        x8 := x8 + 0
        y8 := y8 + move3
        x9 := x9 + move3
        y9 := y9 + 0
        x10 := x10 + 0
        y10 := y10 + move3
        x11 := x11 + move3
        y11 := y11 + move3
        x12 := x12 + move3
        y12 := y12 + 0
        x13 := x13 + 0
        y13 := y13 + move3
        x14 := x14 + move3
        y14 := y14 + 0
        x15 := x15 + 0
        y15 := y15 + move3
        x16 := x16 + move3
        y16 := y16 + move3
        x17 := x17 + move3
        y17 := y17 + 0
        x18 := x18 + 0
        y18 := y18 + move3

        % Movement of the after 1500
        o1 := o1 + 0
        i1 := i1 + move3
        o2 := o2 + move3
        i2 := i2 + 0
        o3 := o3 + 0
        i3 := i3 + move3
        o4 := o4 + move3
        i4 := i4 + move3
        o5 := o5 + move3
        i5 := i5 + 0
        o6 := o6 + 0
        i6 := i6 + move3
        o7 := o7 + move3
        i7 := i7 + 0
        o8 := o8 + 0
        i8 := i8 + move3
        o9 := o9 + move3
        i9 := i9 + move3
        o10 := o10 + move3
        i10 := i10 + 0

        %Counter to increase speed
        if counter2 = 200 then
            move3 := 6
        end if
        if counter2 = 400 then
            move3 := 7
        end if
        if counter2 = 800 then
            move3 := 8
        end if
        if counter2 > 1000 then
            move3 := 9

            %DRAW RED DOTS
            Draw.FillOval (o10, i10, 10, 10, brightred)
            Draw.FillOval (o9, i9, 10, 10, brightred)
            Draw.FillOval (o8, i8, 10, 10, brightred)
            Draw.FillOval (o7, i7, 10, 10, brightred)
            Draw.FillOval (o6, i6, 10, 10, brightred)
            Draw.FillOval (o5, i5, 10, 10, brightred)
            Draw.FillOval (o4, i4, 10, 10, brightred)
            Draw.FillOval (o3, i3, 10, 10, brightred)
            Draw.FillOval (o2, i2, 10, 10, brightred)
            Draw.FillOval (o1, i1, 10, 10, brightred)
        end if

        % touches side for black circles
        if x4 > 1200 then
            x4 := 5
        end if

        if x4 < 0 then
            x4 := 1195
        end if

        if y4 > 600 then
            y4 := 5
        end if

        if y4 < 0 then
            y4 := 595
        end if

        if x5 > 1200 then
            x5 := 5
        end if

        if x5 < 0 then
            x5 := 1195
        end if

        if y5 > 600 then
            y5 := 5
        end if

        if y5 < 0 then
            y5 := 595
        end if

        if x6 > 1200 then
            x6 := 5
        end if

        if x6 < 0 then
            x6 := 1195
        end if

        if y6 > 600 then
            y6 := 5
        end if

        if y6 < 0 then
            y6 := 595
        end if

        if x7 > 1200 then
            x7 := 5
        end if

        if x7 < 0 then
            x7 := 1195
        end if

        if y7 > 600 then
            y7 := 5
        end if

        if y7 < 0 then
            y7 := 595
        end if

        if x8 > 1200 then
            x8 := 5
        end if

        if x8 < 0 then
            x8 := 1195
        end if

        if y8 > 600 then
            y8 := 5
        end if

        if y8 < 0 then
            y8 := 595
        end if

        if x9 > 1200 then
            x9 := 5
        end if

        if x9 < 0 then
            x9 := 1195
        end if

        if y9 > 600 then
            y9 := 5
        end if

        if y9 < 0 then
            y9 := 595
        end if

        if x10 > 1200 then
            x10 := 5
        end if

        if x10 < 0 then
            x10 := 1195
        end if

        if y10 > 600 then
            y10 := 5
        end if

        if y10 < 0 then
            y10 := 595
        end if

        if x11 > 1200 then
            x11 := 5
        end if

        if x11 < 0 then
            x11 := 1195
        end if

        if y11 > 600 then
            y11 := 5
        end if

        if y11 < 0 then
            y11 := 595
        end if

        if x12 > 1200 then
            x12 := 5
        end if

        if x12 < 0 then
            x12 := 1195
        end if

        if y12 > 600 then
            y12 := 5
        end if

        if y12 < 0 then
            y12 := 595
        end if

        if x13 > 1200 then
            x13 := 5
        end if

        if x13 < 0 then
            x13 := 1195
        end if

        if y13 > 600 then
            y13 := 5
        end if

        if y13 < 0 then
            y13 := 595
        end if

        if x14 > 1200 then
            x14 := 5
        end if

        if x14 < 0 then
            x14 := 1195
        end if

        if y14 > 600 then
            y14 := 5
        end if

        if y14 < 0 then
            y14 := 595
        end if

        if x15 > 1200 then
            x15 := 5
        end if

        if x15 < 0 then
            x15 := 1195
        end if

        if y15 > 600 then
            y15 := 5
        end if

        if y15 < 0 then
            y15 := 595
        end if

        if x16 > 1200 then
            x16 := 5
        end if

        if x16 < 0 then
            x16 := 1195
        end if

        if y16 > 600 then
            y16 := 5
        end if

        if y16 < 0 then
            y16 := 595
        end if

        if x17 > 1200 then
            x17 := 5
        end if

        if x17 < 0 then
            x17 := 1195
        end if

        if y17 > 600 then
            y17 := 5
        end if

        if y17 < 0 then
            y17 := 595
        end if

        if x18 > 1200 then
            x18 := 5
        end if

        if x18 < 0 then
            x18 := 1195
        end if

        if y18 > 600 then
            y18 := 5
        end if

        if y18 < 0 then
            y18 := 595
        end if


        % RED Cirlces Wall
        if o1 > 1200 then
            o1 := 5
        end if

        if o1 < 0 then
            o1 := 1195
        end if

        if i1 > 600 then
            i1 := 5
        end if

        if i1 < 0 then
            i1 := 595
        end if

        if o2 > 1200 then
            o2 := 5
        end if

        if o2 < 0 then
            o2 := 1195
        end if

        if i2 > 600 then
            i2 := 5
        end if

        if i2 < 0 then
            i2 := 595
        end if

        if o3 > 1200 then
            o3 := 5
        end if

        if o3 < 0 then
            o3 := 1195
        end if

        if i3 > 600 then
            i3 := 5
        end if

        if i3 < 0 then
            i3 := 595
        end if

        if o4 > 1200 then
            o4 := 5
        end if

        if o4 < 0 then
            o4 := 1195
        end if

        if i4 > 600 then
            i4 := 5
        end if

        if i4 < 0 then
            i4 := 595
        end if

        if o5 > 1200 then
            o5 := 5
        end if

        if o5 < 0 then
            o5 := 1195
        end if

        if i5 > 600 then
            i5 := 5
        end if

        if i5 < 0 then
            i5 := 595
        end if

        if o6 > 1200 then
            o6 := 5
        end if

        if o6 < 0 then
            o6 := 1195
        end if

        if i6 > 600 then
            i6 := 5
        end if

        if i6 < 0 then
            i6 := 595
        end if

        if o7 > 1200 then
            o7 := 5
        end if

        if o7 < 0 then
            o7 := 1195
        end if

        if i7 > 600 then
            i7 := 5
        end if

        if i7 < 0 then
            i7 := 595
        end if

        if o8 > 1200 then
            o8 := 5
        end if

        if o8 < 0 then
            o8 := 1195
        end if

        if i8 > 600 then
            i8 := 5
        end if

        if i8 < 0 then
            i8 := 595
        end if

        if o9 > 1200 then
            o9 := 5
        end if

        if o9 < 0 then
            o9 := 1195
        end if

        if i9 > 600 then
            i9 := 5
        end if

        if i9 < 0 then
            i9 := 595
        end if

        if o10 > 1200 then
            o10 := 5
        end if

        if o10 < 0 then
            o10 := 1195
        end if

        if i10 > 600 then
            i10 := 5
        end if

        if i10 < 0 then
            i10 := 595
        end if


        %If Touch
        if x < x4 + 10 and x > x4 - 10 and y < y4 + 10 and y > y4 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x5 + 10 and x > x5 - 10 and y < y5 + 10 and y > y5 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x6 + 10 and x > x6 - 10 and y < y6 + 10 and y > y6 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x7 + 10 and x > x7 - 10 and y < y7 + 10 and y > y7 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x8 + 10 and x > x8 - 10 and y < y8 + 10 and y > y8 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x9 + 10 and x > x9 - 10 and y < y9 + 10 and y > y9 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x10 + 10 and x > x10 - 10 and y < y10 + 10 and y > y10 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x11 + 10 and x > x11 - 10 and y < y11 + 10 and y > y11 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x12 + 10 and x > x12 - 10 and y < y12 + 10 and y > y12 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x13 + 10 and x > x13 - 10 and y < y13 + 10 and y > y13 - 10 and fastout = 0
                then
            cls
            exit
        end if
        if x < x14 + 10 and x > x14 - 10 and y < y14 + 10 and y > y14 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x15 + 10 and x > x15 - 10 and y < y15 + 10 and y > y15 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x16 + 10 and x > x16 - 10 and y < y16 + 10 and y > y16 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x17 + 10 and x > x17 - 10 and y < y17 + 10 and y > y17 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < x18 + 10 and x > x18 - 10 and y < y18 + 10 and y > y18 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o1 + 10 and x > o1 - 10 and y < i1 + 10 and y > i1 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o2 + 10 and x > o2 - 10 and y < i2 + 10 and y > i2 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o3 + 10 and x > o3 - 10 and y < i3 + 10 and y > i3 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o4 + 10 and x > o4 - 10 and y < i4 + 10 and y > i4 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o5 + 10 and x > o5 - 10 and y < i5 + 10 and y > i5 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o6 + 10 and x > o6 - 10 and y < i6 + 10 and y > i6 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o7 + 10 and x > o7 - 10 and y < i7 + 10 and y > i7 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o8 + 10 and x > o8 - 10 and y < i8 + 10 and y > i8 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o9 + 10 and x > o9 - 10 and y < i9 + 10 and y > i9 - 10 and fastout = 0
                then
            cls
            exit
        end if

        if x < o10 + 10 and x > o10 - 10 and y < i10 + 10 and y > i10 - 10 and fastout = 0
                then
            cls
            exit
        end if



        % Draw black dots
        Draw.FillOval (x18, y18, 10, 10, black)
        Draw.FillOval (x17, y17, 10, 10, black)
        Draw.FillOval (x16, y16, 10, 10, black)
        Draw.FillOval (x15, y15, 10, 10, black)
        Draw.FillOval (x14, y14, 10, 10, black)
        Draw.FillOval (x13, y13, 10, 10, black)
        Draw.FillOval (x12, y12, 10, 10, black)
        Draw.FillOval (x11, y11, 10, 10, black)
        Draw.FillOval (x10, y10, 10, 10, black)
        Draw.FillOval (x9, y9, 10, 10, black)
        Draw.FillOval (x8, y8, 10, 10, black)
        Draw.FillOval (x7, y7, 10, 10, black)
        Draw.FillOval (x6, y6, 10, 10, black)
        Draw.FillOval (x5, y5, 10, 10, black)
        Draw.FillOval (x4, y4, 10, 10, black)

        %Draw Person
        Draw.FillOval (x, y, 10, 10, colours)
        View.Update
        delay (15)


        runingtime := Time.Elapsed
        if runingtime > 500000 then
            put "hit y to play again. and n to stop"
            get answer
            if answer = "y" then
            end if
            if answer = "n" then
                exit
            end if
        end if
    end loop
    % GAME OVER
    cls
    View.Update
    if runingtime > 500000 then
        put "You Came, You tried, You DOMINATED. INCREDABLE you lasted 5 mins"
        View.Update
    elsif counter2 < 300 then
        put "Good Effort, You came, You tried and You lasted to ", counter2 + counter, " counts"
        View.Update
    end if
    if counter2 > 301 then
        put "Very Good, You Lasted to ", counter2 + counter, " counts"
        View.Update
    end if
end if

const Gravity := 3 % we would have gravity ;)
var vel_y := 0

loop
if character jumps...
vel_y += 20
end if

vel_y -= Gravity
y += cVelocity

if y <= ground then
y := ground
end if
end loop
% This is not real Turing coding, It is meant for you to get the idea.