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

agent_orange444

Thu Jan 22, 2004 4:59 pm


Catch the Box Game 2.0 (the new and improved version)

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

So now i took your suggestions into account, hopefully u will like the revised program more!  I made the box get smaller as score increases and also made the box speed up as the score increases (every 50 points).  There is also an inner box to show u how large the next sized box will be.  It also starts off really slow, for all you noobs out there lol.  Just kidding! Hope everyone likes it!


var x, x2, y, y2, mx, my, start, button, num, buttonnumber, score,
    buttonupdown, speed, size, change, maxspeed, minspeed, inc,col,incol,
    butx, buty : int
setscreen ("graphics:vga")
loop
    num := 10
    x2 := 1
    y2 := 1
    start := 1
    score := 0
    %size of the box (defualt = 10)
    size := 30
    %speed the box moves (75-125)
    maxspeed := 300
    minspeed := 375
    inc := 0
    randint (x, 0, 605)
    randint (y, 0, 345)
    randint (col,1,10)
    if col=1 then 
    incol:=col+1
    else
    incol:=col-1
    end if
    
    %optional set start location
    %x:=
    %y:=

    loop

        if score = 50 then
        size:=size-5    
        inc := inc + 50
            maxspeed := maxspeed - inc
            minspeed := minspeed - inc

        elsif score = 100 then
        size:=size-5    
        inc := inc + 50
            maxspeed := maxspeed - inc
            minspeed := minspeed - inc

        elsif score = 150 then
        size:=size-5    
        inc := inc + 25
            maxspeed := maxspeed - inc
            minspeed := minspeed - inc

        elsif score = 200 then
        size:=size-5    
        inc := inc + 25
            maxspeed := maxspeed - inc
            minspeed := minspeed - inc

        elsif score = 250 then
        size:=size-5    
        inc := inc + 20
            maxspeed := maxspeed - inc
            minspeed := minspeed - inc

        elsif score = 300 then
        size:=size-5    
        inc := inc + 15
            maxspeed := maxspeed - inc
            minspeed := minspeed - inc
        end if

        randint (change, 1, 10)
        drawline (0, 375, 625, 375, 7)
        randint (speed, maxspeed, minspeed)

        if num = 10 then
            randint (x2, -1, 1)
            randint (y2, -1, 1)
        end if

        drawfillbox (x, y, x + size, y + size, col)
        drawfillbox (x, y, x + size-5, y + size-5, incol)
        delay (speed)

        if start = 1 then
            put "Click to Start - keep your mouse in the box"
            buttonwait ("down", butx, buty, buttonnumber, buttonupdown)
            start := start + 1
        end if

        drawfillbox (x, y, x + size, y + size, 0)
        num := num + change

        if num > 20 then
            num := 0
        end if

        x := x + x2
        y := y + y2

        if x = 0 then
            x := x + 1
        elsif x >= x+size then
            x := x - 1
        end if

        if y = 0 then
            y := y + 1
        elsif y >= y+size then
            y := y - 1
        end if

        mousewhere (mx, my, button)
        if mx > x - 1 and mx < x + size + 1 and my > y - 1 and my < y + size
                + 1 then
            score := score + 1
            locate (1, 1)
            put "score= ", score
        else
            cls
            exit
        end if
    end loop
    put "Game Over - Your Score was: ", score
    buttonwait ("down", butx, buty, buttonnumber, buttonupdown) 
    cls
end loop




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

shorthair

Thu Jan 22, 2004 5:02 pm



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

Round of applause  , i told orange to trythis only 10 minues ago , and look hes done it again , EVERYONE GIVE HIM A ROUND OF APPLAUSE
 :clap:


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

agent_orange444

Thu Jan 22, 2004 5:03 pm



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

LOL thnx! I guess u can probably tell though that I have no life! lol


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

shorthair

Thu Jan 22, 2004 5:04 pm



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

You mena i can probably tell that you belong here


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

kalin

Thu Jan 22, 2004 5:05 pm



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

I like it!! my score was 271 with it startig slower!


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

shorthair

Thu Jan 22, 2004 5:17 pm



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

CHETA , i got 130


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

agent_orange444

Thu Jan 22, 2004 5:19 pm



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

hey can u ppl tell me how u aquire bits?


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

kalin

Thu Jan 22, 2004 5:20 pm



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

color=darkblue]I did not cheat! I got 230 on the other one, and plus, ever heard of sheer determination????????? I have that in abundance. Want some???[/color]


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

shorthair

Thu Jan 22, 2004 5:20 pm



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

people give them to you for good programs , and you get 2 for a post and 1 for a thread


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

agent_orange444

Thu Jan 22, 2004 5:22 pm



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

First, what's a post and a thread, and second how the heck did u get a picture with your name, does it have to come from the web?  (sry im a noob)


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

kalin

Thu Jan 22, 2004 5:23 pm



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

Picture? click on profile up at the top and scroll down. It will say something about avatars. 

A thread, you started one to get this up. A post is what this is. AKA a reply. Umm.... I dont htink there is anything else I can help with


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

shorthair

Thu Jan 22, 2004 5:24 pm



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

The avatars