%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                             HIT THE FIRE!                                   %
%                                                                             %
%                            BY: ILIA BARANOV                                 %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
setscreen ("graphics: max,max")
var x1, x2, y2, colorI, colorII : int
var size : int := 1
var x, y, button : int
var level : string
var counter : int := 5
var counterI : int := 0

locate (maxrow div 2, maxcol div 2)
put "Welcome to 'STOP THE EXPLOSION'!"
put skip
delay (3000)
put "Click on the explosions with your mouse to douse them with water"
delay (3000)
put "You will then recieve a point"
delay (3000)
put skip
put "If you do not hit them before they start shrinking, you lose a point"
delay (3000)
put skip
put "The game gets harder as the levels go higher"
delay (3000)
put skip
put "The game ends when you have a negative amount of points"
delay (3000)
put skip
put "Have fun!"
delay (1000)
put "(hit the mouse button to continue)"
loop
    Mouse.Where (x, y, button)
    if button = 1 then
        exit
    end if
end loop
cls
delay (100)

loop
    if counterI = 0 then
        cls
        locate (maxrow div 2, maxcol div 2)
        level := "First Level"
        put level
        delay (3000)
        randint (x1, 20, 400)
    else
        if counterI = 20 then
            cls
            locate (maxrow div 2, maxcol div 2)
            level := "Second Level"
            put level
            delay (3000)
            randint (x1, 15, 200)
        else
            if counterI = 40 then
                cls
                locate (maxrow div 2, maxcol div 2)
                level := "Third Level"
                put level
                delay (1000)
                randint (x1, 15, 100)
            else
                if counterI = 60 then
                    cls
                    locate (maxrow div 2, maxcol div 2)
                    level := "Fourth Level"
                    put level
                    delay (3000)
                    randint (x1, 15, 70)
                else
                    if counterI = 85 then
                        cls
                        locate (maxrow div 2, maxcol div 2)
                        level := "Expert level! (ARE YOU HUMAN??)"
                        put level
                        delay (3000)
                        randint (x1, 15, 50)
                    end if
                end if
            end if
        end if
    end if

    randint (colorI, 39, 44)
    randint (x2, 1, maxx)
    randint (y2, 1, maxy)
    colorII := colorI + 50


    for i : 0 .. x1
        Mouse.Where (x, y, button)
        drawdot (x, y, 0)
        drawfilloval (x2, y2, 10 + size, 10 + size, colorI)
        size := size + 1
        if whatdotcolor (x, y) not= 0 then
            if button = 1 then
                counter := counter + 1
                counterI := counterI + 1
                drawfilloval (x2, y2, 10 + size, 10 + size, brightblue)
                delay (200)
                exit
            end if
        end if
        delay (5)
    end for

    if whatdotcolor (x, y) not= brightblue then
        counter := counter - 1
    end if

    locate (maxrow div 2, maxcol div 2)
    put counter
    put level

    for g : 1 .. 50
        drawfilloval (x2, y2, 10 + size, 10 + size, colorII)
    end for

    delay (200)

    for h : 1 .. 200
        drawoval (x2, y2, 10 + size, 10 + size, white)
        size := size - 1
        delay (1)
    end for

    cls
    size := 1

    if counter < 0 then
        cls
        locate (maxrow div 2, maxcol div 2)
        put "You Lose! Nice try, you got ", counterI, " explosions!"
        delay (3000)
        put skip
        locate (maxrow div 2, maxcol div 2)
        put "Goodbye!"
        delay (1000)
        exit
    end if
    if counterI = 100 then
        cls
        locate (maxrow div 2, maxcol div 2)
        put "YOU WIN!!! GREAT JOB!!!"
        delay (2000)
        exit
    end if
end loop