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

Metal-Head91

Thu Jun 07, 2007 11:35 pm


Seizure Machine

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

This was a project writen be me and a partner for our computer sciences class. It's a game where the object is to click the ball that moves before it moves again. there are some glitches that me nor my partner knew how to fix, but it can be enjoyable in a way i guess. The first 3 screens are blank because their supposed to be a title page and 2 pages of instructions but we made those in paint which i dont have so just hit any key 3 times and ignore it. and i would be very pleased if someone can help me with my glitch once oyu find it. enjoy

%Francis Kurevija & Luke Doherty
%May 23, 2007
%Seizure Machine

var count, x, y, x2, y2, button : int

proc Title
    Pic.ScreenLoad ("H:/My Pictures/Seizure Machine.bmp", 0, 0, picUnderMerge) %Loads picture
    Input.Pause %Gets input from keyboard
    cls
end Title

proc Instructions1
    Pic.ScreenLoad ("H:/My Pictures/Instructions1.bmp", 0, 0, picUnderMerge)
    Input.Pause
    cls
end Instructions1

proc Instructions2
    Pic.ScreenLoad ("H:/My Pictures/instructions2.bmp", 0, 0, picUnderMerge)
    Input.Pause
    cls
end Instructions2


proc Level1
    count := 0
    loop
        x := Rand.Int (0, maxx) % Creates random integer
        y := Rand.Int (0, maxy)
        Draw.FillBox (0, 0, maxx, maxy, brightgreen) %Draws backround
        Draw.FillOval (x, y, 20, 20, black) %Draws circle
        delay (1500)
        if Mouse.ButtonMoved ("down") then %If statement is initiated when the mouse button is
            %pressed
            var buttonnumber, buttonupdown : int
            Mouse.ButtonWait ("down", x2, y2, buttonnumber, buttonupdown) %When the mouse
            %button is pressed it's co-ordinates are checked and assigned to a variable
            Draw.FillOval (x2, y2, 5, 5, brightred) %A red dot appears over the black circle
            %to tell the user when they have hit the black circle
            if (x2 >= x - 20 and x2 = y - 20 and y2 = x - 20 and x2 = y - 20 and y2 = x - 20 and x2 = y - 20 and y2 = x - 20 and x2 = y - 20 and y2 = x - 20 and x2 = y - 20 and y2 = x - 25 and x2 = y - 25 and y2 = x - 20 and x2 = y - 20 and y2 = x - 15 and x2 = y - 15 and y2 = x - 10 and x2 = y - 10 and y2 = x - 5 and x2 = y - 5 and y2 = x - 20 and x2 = y - 20 and y2 = x - 20 and x2 = y - 20 and y2 = x - 20 and x2 = y - 20 and y2 = x - 20 and x2 = y - 20 and y2 = x - 20 and x2 = y - 20 and y2