-----------------------------------

chipanpriest

Sun Dec 18, 2011 4:26 pm


Hide and Seek

-----------------------------------

Simple game I created :) enjoy! oh, also, when you get one box, you can sometimes see the next one come up and idk why, so if anyone wants to give some help, thanks

 
var mousex, mousey, click, boxx, boxy, col, score, timevar, font1, font2 : int

View.Set ("graphics:1000;600,offscreenonly")
font1 := Font.New ("Comic Sans MS:30")
font2 := Font.New ("Comic Sans MS:15")

loop

    timevar := 0
    score := 0
    loop
        randint (col, 1, 15)
        randint (boxx, 20, maxx - 20)
        randint (boxy, 20, maxy - 120)

        loop
            cls
            mousewhere (mousex, mousey, click)
            drawfilloval (mousex, mousey, 50, 50, 0)
            drawfillbox (0, 500, maxx, maxy, 0)
            drawfillbox (boxx - 10, boxy - 10, boxx + 10, boxy + 10, col)
            drawline (0, 500, maxx, 500, 7)
            colourback (0)
            put "score: ", score
            locate (1, 50)
            put timevar
            colourback (col)
            View.Update
            if timevar = 5000 then
                exit
            end if
            timevar := timevar + 1
            if mousex >= boxx - 10 and mousex = boxy - 10 and mousey = 950 and mousex = 50 and mousey