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

Apocalypse

Tue Jun 07, 2005 10:08 am


How do i make clicking of mouse shoot?

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

How do i make clicking of mouse shoot my balloons. I  tryed some stuff but it did not work.


var x1, x2, y1, y2, c : int
 var fontID := Font.New ("Time New Roman:20")
drawfillbox (1, 1, 700, 700, 7)
       Font.Draw ("Loading", 300, 70, fontID, 0)
    for i : 1 .. 700
        Draw.FillBox (0, 20, i, 50, blue)
        delay (10)
    end for

delay (700)
cls

    drawfillbox (1, 1, 700, 700, grey)
    colourback (grey)
    for j : 1 .. 300
        randint (x1, 0, 700)
        randint (y1, 0, 700)
        randint (x2, 10, 10)
        randint (y2, 10, 10)
        randint (c, 0, 15)
        drawfilloval (x1, y1, x2, y2, c)
        put " "
        delay (300)
    end for


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

Tony

Tue Jun 07, 2005 10:46 am



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


var x,y,b:int
loop
    Mouse.Where(x,y,b)
    if(b = 1) then
       put "mouse clicked"
    end if
end loop



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

syphon4

Wed Jun 08, 2005 2:52 pm


mouse

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

you can use this program and make if state ments that say if the button is clicked in the location of your ballons the it clears them : )

var x, y, button : int
        loop
            mousewhere (x, y, button)
            locate (1, 1)
            if button = 0 then
                put x : 4, "  ", y : 4, "  button up"
            else
                put x : 4, "  ", y : 4, "  button down"
            end if
        end loop


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

c0bra54

Wed Jun 08, 2005 2:56 pm



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

and please for the love of all those holy, don't use a fake loading screen.. honestly whats the point, no one plays the game to ee a load sreen,however you have the right iea fo one, but they are usually excellent when loading large amounts of picture b4 hand