x=WIDTH/2
y=HEIGHT/2
xx=10
yy=10
movfact=5
mivfact = 1
mov=20
i=500
-- Use this function to perform your initial setup
function setup()
    displayMode(FULLSCREEN_NO_BUTTONS)
    print("Hello World!")
    parameter("movfact", 1 , 100)
    parameter("mivfact",0,100)
    egg={}
 --   table.insert(egg,vec2(300,200))
    block = image(20,20)
    for i=1,20 do for j=1,20 do block:set(i,j,255,0,0,255) end end
end

-- This function gets called once every frame
function draw()
    -- This sets the background color to black
    i = i + 1
 --   mivfact = mivfact + 0.1
    background(0, 0, 0)
    sprite("Tyrian Remastered:Blimp Boss",x,y)
   for z=1,i/500 do monmove() end
    sprite("Tyrian Remastered:Chest Mecha",xx,yy)
    x=x-(x%1)
    y=y-(y%1)
    xx=xx-(xx%1)
    yy=yy-(yy%1)
    if(i%10==0) then sprite(block,xx,yy)end
    if(i%100==0)then
        table.insert(egg,vec2(xx,yy))
        sound(SOUND_PICKUP)
    end
    for key,i in pairs(egg)do
        mivfact=0.5
     --   sprite(block,i.x,i.y)
        ll=yy
        ii=xx
        yy=i.y
        xx=i.x
        monmove()
        i.x=xx
        i.y=yy
        xx=ii
        yy=ll
        sprite(block,i.x,i.y)
    end
    mivfact=1
    if x==xx and y==yy then closee() end
    if i==2500 then woon() end
    -- Do your drawing here
end

function touched (touch)
    if touch.x < x then zx = x - movfact end
    if touch.x > x then zx = x + movfact end
    if touch.y < y then zy = y - movfact end
    if touch.y > y then zy = y + movfact end
    point =vec2(zx,zy)
    if(ic(point))then
        --crash with egg
    else
        x=zx
        y=zy
    end

end

function monmove()
    if x < xx then xx = xx - mivfact end
    if x > xx then xx = xx + mivfact end
    if y < yy then yy = yy- mivfact end
    if y> yy then yy = yy + mivfact end
end

function closee()
    background()
    sprite("Tyrian Remastered:Blimp Boss Destroyed",x,y)

    for i = 0,10 do
        sprite(block,200+i*mov , 600 -i*mov)
        sprite(block,400-i*mov , 600-i*mov)
    end
    for i = 1,50 do
    sound(SOUND_EXPLODE)
    end
    close()
end

function woon()
    background()
    sprite("Tyrian Remastered:Blimp Boss",x,y)
     for i = 0,10 do
        if i>5 then      sprite(block,300-i*mov , 300 +i*mov) end
        sprite(block,400-i*mov , 600-i*mov)
    end
    for i=1,50 do sound(SOUND_BLIT) end
    close()
end

function ic(point)
    for i,v in pairs(egg) do
        if icc(point,v) then
            return true
        end
    end

    return false
end


function icc(point,v)
    c=vec2(20,20)
    ll = v - c * 0.5
    ur = v + c * 0.5

    if point.x > ll.x and point.x < ur.x and
       point.y > ll.y and point.y < ur.y then
        return true
    end

    return false
end