%%UFO GAME%%
setscreen("Graphics:300;150")

%%Variables
var counter: int:= 1
var game: boolean := false
var x, y: int                               %Ball
var speed: int := 0                         %Ball other speed
var vx, vy: int                             %ball direction
var sp,sz: int                              %ball speed/size
var num: int := 1                           %number of obsticles
var x1, y1: flexible array 1 .. 1 of int   %obsticle
var vx1, vy1: array 1 .. 20 of int         %obsticle direction
var sp1,sz1: array 1 .. 20 of int          %obsticle speed/size
var level: int         
var ship: array char of boolean

%%Declare
%ball
x := 20
randint(y,20,80)
sp := 1
sz := 5
vx := sp
vy := sp
%obsicle
for i: 1 .. num
    x1(i) := 280
    randint(y1(i),11,139)
    sp1(i) := 1
    sz1(i) := 10
    vx1(i) := sp1(i)
    vy1(i) := sp1(i)
end for

%%Intro
put "Hi, wecome to a UFO game"
put "Just avoid the obsticles"
put "Good luck"
put "More to come later"
Input.Pause
cls

%%Game%%
loop
    %move ship
    Input.KeyDown(ship)
   
    if ship (KEY_UP_ARROW) then
        y := y + vy
    end if
    if ship (KEY_DOWN_ARROW) then
        y := y - vy
    end if
    if ship (KEY_RIGHT_ARROW) then
        x := x + vx
    end if
    if ship (KEY_LEFT_ARROW) then
        x := x - (vx + 1)
    end if
   
    %boundry
    if x <= 0 then
        x *= -1
    end if
    if x >= 300 then
        x *= -1
    end if
    if y <= 0 then
        y *= -1
    end if
    if y >= 150 then
        y *= -1
    end if
   
    for i: 1 .. num
        x1(i) := x1(i) - vx1(i) - speed

        %%Colistion
        if x+sz >= x1(i)-sz1(i) and x-sz <= x1(i)+sz1(i) and y+sz <= y1(i)+sz1(i) and y+sz >= y1(i)-sz1(i) and y-sz >= y1(i)-sz1(i) and y-sz <= y1(i)+sz1(i) then
            game := true
            exit
        end if
        if x1(i) + sz1(i) <= 0 then
            for ii: 1 .. num
                x1(ii) := 280
                randint(y1(ii),11,139)
                sp1(ii) := 1
                sz1(ii) := 10
                vx1(ii) := sp1(ii)
                vy1(ii) := sp1(ii)
                num += 1
                new x1, num
                new y1, num
            end for
        end if
        drawfilloval(x1(i),y1(i),sz1(i),sz1(i),red)
 
    end for
   
    if game = true then
        exit
    end if
   
    %draw the items
    drawfilloval(x,y,sz,sz,black)
    delay(5)
    cls
end loop
cls
put "Game over"

x1(i)-sz1(i)

x1(i) - sz1(i)

x1 (i) - sz1 (i)

setscreen("Graphics:400;400")

var counter:= 0

var balls : flexible array 1 .. 2 of
    record
        balls_x_position, balls_y_position: int
        balls_x_velocity, balls_y_velosity: int
        balls_size: int
    end record
   
for i: 1 .. upper (balls)
    balls_size(i) := randint(2,10)
    balls_x_position(i) := randint(balls_size,maxx-balls_size)
    balls_y_position(i) := randint(balls_size,maxy-balls_size)
    balls_x_velocity(i) := randint(-6,0)+3
    balls_y_velocity(i) := randint(-6,0)+3
end for

proc spawn_more_balls
    if counter = 100 then
        for i: 1 .. upper (balls)
            new balls, upper (balls) + 1
            drawfilloval(balls_x_position(i), balls_y_position(i), balls_size(i), balls_size(i), 7)
        end for
        counter := 0
    end if
end spawn_more_balls

proc move_balls
    for i: 1 .. upper (balls)
        balls_x_position(i) := balls_x_velocity(i)
        balls_y_position(i) := balls_y_velocity(i)
    end for
end move_balls

%%%main loop
loop
    spawn_more_balls
    move_balls   
end loop

var balls : flexible array 1 .. 2 of int

balls (i).balls_size := Rand.Int (2, 10)

ball (i).size := Rand.Int (2, 10)

var array_name : lower_bounds .. upper_bounds of
    record
        field : int
        field2 : string
    end record