Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB   Username:   Password: Wiki   Blog   Search   Turing   Chat Room  Members
Catch the Box Game
Author Message
agent_orange444

Posted: Thu Jan 22, 2004 4:06 pm   Post subject: Catch the Box Game

This is a game that i quikly made cause i was board (1 night). Your goal is to keep your mouse inside a randomly moving box. You click to start, and can click to reset. Enjoy!

 code: var x, x2, y, y2, mx, my, start, button, num, buttonnumber, score,     buttonupdown, speed, size, change, maxspeed, minspeed,     butx, buty : int setscreen ("graphics:vga") loop     num := 10     x2 := 1     y2 := 1     start := 1     score := 0     %size of the box (defualt = 10)     size := 10     %speed the box moves (75-125)     maxspeed := 50     minspeed := 125     randint (x, 0, 625)     randint (y, 0, 365)     %optional set start location     %x:=     %y:=     loop         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, 3)         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 >= 625 then             x := x - 1         end if         if y = 0 then             y := y + 1         elsif y >= 365 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

kalin

Posted: Thu Jan 22, 2004 4:11 pm   Post subject: (No subject)

Hey, cool. I like it
agent_orange444

Posted: Thu Jan 22, 2004 4:13 pm   Post subject: (No subject)

thnx, i just had a cool idea to make the box move faster as you get higher scores! By the way my record is 205, try and beat it!
kalin

Posted: Thu Jan 22, 2004 4:14 pm   Post subject: (No subject)

I have a hard time reaching 40.....But I'll try! And yeah, that is a cool idea.

shorthair

Posted: Thu Jan 22, 2004 4:23 pm   Post subject: (No subject)

got to 48 max , just got lucky , very well done get some background music to keep you going , and mabye turn it into a level besed game , where the box gets smaller and it moves faster every say 50 points , that would be BIT worthy to me
agent_orange444

Posted: Thu Jan 22, 2004 4:28 pm   Post subject: (No subject)

thnx, i love that idea! im gonna get workin on it right away! But what do u mean by bit worthy?
shorthair

Posted: Thu Jan 22, 2004 4:29 pm   Post subject: (No subject)

go look around the shop to ee what magical bits can do for you
kalin

Posted: Thu Jan 22, 2004 4:31 pm   Post subject: (No subject)

lol. I still dont really get them, but whatever. Oh well. I think its actually kinmda cool as it is, but yeah. Make it a lvling game and such, it would be really cool after that.

Also, I dunno, do either of you know how to set a timer?? I looked and didn't see anything about that that would help. So, do either of you know. If not it's cool.

shorthair

Posted: Thu Jan 22, 2004 4:45 pm   Post subject: (No subject)

A countdown timer , or a count up timer
kalin

Posted: Thu Jan 22, 2004 4:49 pm   Post subject: (No subject)

count up.
shorthair

Posted: Thu Jan 22, 2004 4:55 pm   Post subject: (No subject)

var timeRunning : int
loop
timeRunning := Time.Elapsed
locate (10 ,20)
put "This program has run ", timeRunning, " milliseconds"
end loop

can i have some bits im without , <---- just joking , enjoy it
kalin

Posted: Thu Jan 22, 2004 4:59 pm   Post subject: (No subject)

thx. Hey, Orange, you should do that and have the score a little slower, and have it so that the person knows how long her lasted time wise too.... Just a though...
agent_orange444

Posted: Thu Jan 22, 2004 5:01 pm   Post subject: (No subject)

thnx for the suggestion but i already released the newer version! lol Don't forget to check it out! (the same name as this version but 2.0) and Enjoy!
 Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First

Page 1 of 1  [ 13 Posts ]
 Jump to:  Select a forum  CompSci.ca ------------ - Network News - General Discussion     General Forums   -----------------   - Hello World   - Featured Poll   - Contests     Contest Forums   -----------------   - DWITE   - [FP] Contest 2006/2008   - [FP] 2005/2006 Archive   - [FP] 2004/2005 Archive   - Off Topic     Lounges   ---------   - User Lounge   - VIP Lounge     Programming -------------- - General Programming     General Programming Forums   --------------------------------   - Functional Programming   - Logical Programming   - C     C   --   - C Help   - C Tutorials   - C Submissions   - C++     C++   ----   - C++ Help   - C++ Tutorials   - C++ Submissions   - Java     Java   -----   - Java Help   - Java Tutorials   - Java Submissions   - Ruby     Ruby   -----   - Ruby Help   - Ruby Tutorials   - Ruby Submissions   - Turing     Turing   --------   - Turing Help   - Turing Tutorials   - Turing Submissions   - PHP     PHP   ----   - PHP Help   - PHP Tutorials   - PHP Submissions   - Python     Python   --------   - Python Help   - Python Tutorials   - Python Submissions   - Visual Basic and Other Basics     VB   ---   - Visual Basic Help   - Visual Basic Tutorials   - Visual Basic Submissions     Education ----------- - Student Life   Graphics and Design ----------------------- - Web Design     Web Design Forums   ---------------------   - (X)HTML Help   - (X)HTML Tutorials   - Flash MX Help   - Flash MX Tutorials   - Graphics     Graphics Forums   ------------------   - Photoshop Tutorials   - The Showroom   - 2D Graphics   - 3D Graphics     Teams ------ - dTeam Public

 Style: Appalachia blueSilver eMJay subAppalachia subBlue subCanvas subEmjay subGrey subSilver subVereor Search: