![]() |
#3281 |
FFR Player
![]() |
![]() yes
who? |
![]() |
![]() |
#3282 |
I <3 skyetacular
![]() Join Date: Oct 2005
Location: A House thats in a State
Age: 32
Posts: 410
|
![]() Because.
Why are lil cuzins so annoying
__________________
|
![]() |
![]() |
#3283 | |
Supreme Dictator For Life
![]() ![]() |
![]() A: Because they are stupid, pretentious, melodramatic teenagers.
Q: What hurts more - Flams or Assid?
__________________
Back to "Back to Earth" Quote:
|
|
![]() |
![]() |
#3284 |
I <3 skyetacular
![]() Join Date: Oct 2005
Location: A House thats in a State
Age: 32
Posts: 410
|
![]() Grass
Why are hentai chicks so sexii
__________________
|
![]() |
![]() |
#3285 |
FFR Player
Join Date: Feb 2007
Location: Tiffin, like you know where that is!
Age: 30
Posts: 34
|
![]() NINJA'd A: They're Hentai that simple.
Q: Who created the wepons of the futur? |
![]() |
![]() |
#3286 | |
Supreme Dictator For Life
![]() ![]() |
![]() A: either nForcer, or Synth i.e. God
Q: were you saying "boo-urns?"
__________________
Back to "Back to Earth" Quote:
|
|
![]() |
![]() |
#3287 |
FFR Player
Join Date: Sep 2006
Location: you might rape me if i tell you
Age: 32
Posts: 190
|
![]() a-XD
q-... |
![]() |
![]() |
#3288 | |
FFR Player
Join Date: Mar 2007
Location: Ontario, Canada
Posts: 78
|
![]() A: !!!
Q: Where's my keyboard?
__________________
Currently working in: Infinite Being Remix by jr2, Current progress: Sync Quote:
|
|
![]() |
![]() |
#3289 |
this is a waste of space
![]() ![]() |
![]() A: Your mouse ate it.
Q: Why do we get banned? |
![]() |
![]() |
#3290 |
FFR Player
Join Date: Sep 2006
Location: you might rape me if i tell you
Age: 32
Posts: 190
|
![]() a-wait, we can get banned?
q-uykaebvkqbhvoqhbiviojb? |
![]() |
![]() |
#3291 |
FFR Player
Join Date: Jun 2006
Location: StepMania forums
Posts: 73
|
![]() A: Why wouldn't we?
Q: Code:
//A Guy Pushing A Block Around For No Appearant Reason //[name] 2006 //Version 2.3 //I will use this code to make games later on. You can, too. //If you do create a game using this to start yourself, please //give me credit in a comment. /* Version History: 2.3 Cleaned up code a bit. 2.2 Improved algorythm that gave the blocks their origonal coordinates. 2.1 Added optional code to make it impossible to push multiple blocks. 2.0 Added multiple blocks. -----Major Change 1.0 Created functions. -----Major Change 0.2.1 Changed asdw keys to arrow keys. 0.2 Pressing asdw keys controls circle. 0.1 First Version This used variables for the graph and window sizes, making it easy to change the size of the "game." It worked by having a circle randomly flitz around the screen and push a square whenever it ran into said square. */ '~Variables /*To change the size of the window, change the values of wx and wy. All important changes will be made; all functions involving the window use these variables. The program will work best with values of wx and wy that are multiples of the variable graph. To change the size of the graph, change graph. This variable controls the size of graph squares. If graph is an even number, the circle will leave marks on the graph lines. This may or may not be a bad thing; it actually looks pretty cool (especially if you have your screen "inverted") but makes the program look a little messier. The number of blocks is controlled by the constant _blocks. I programmed this so that you can change _blocks without breaking the program or having it act weird. */ _blocks = 99 Dim direction,graph,wx,wy Dim cx,cy,bx(_blocks),by(_blocks) cx = 1 cy = 1 graph = 31 wx = 20 * graph wy = 15 * graph End Globals '~Functions Local FN makegraph //This draws the grid that the shapes are in. Color = _zBlack Pen 1,1 Dim plotx,ploty plotx = 0 ploty = 0 Do Plot plotx,0 TO plotx,wy plotx = plotx + graph Until plotx > wx Do Plot 0,ploty TO wx,ploty ploty = ploty + graph Until ploty > wy End FN Local FN changecolor //Randomly change the color. Long Color Rnd(65535),Rnd(65535),Rnd(65535) End FN //These two functions draw the circles and boxes. Local FN drawcircle Circle Fill ((graph + 1) / 2) + ((cx - 1) * graph),((graph + 1) / 2) + ((cy - 1) * graph),(graph) / 2 End FN Local FN drawbox(boxnum) Box Fill ((bx(boxnum) - 1) * graph) + 1,((by(boxnum) - 1) * graph) + 1 TO (bx(boxnum) * graph), (by(boxnum) * graph) End FN Local FN getinput //Depending on what the player is pressing the shapes will move in different directions. Select Case Inkey$ Case = chr$(29) direction = 1 Case = chr$(31) direction = 2 Case = chr$(28) direction = 3 Case = chr$(30) direction = 4 Case "" //This "direction" lets you put this function in a loop until the user does something. (see main program) direction = 0 Case "q" //This "direction" is used to end the main program loop. direction = 5 End Select End FN //This erases the old circle. Local FN clearcircle Color = _zWhite Box Fill ((cx - 1) * graph) + 1,((cy - 1) * graph) + 1 TO (cx * graph), (cy * graph) End FN //If the shapes move off the screen, move them back on the other side. Local FN circlewrap If cx <= 0 Then cx = (wx / graph) If cx > (wx / graph) Then cx = 1 If cy <= 0 Then cy = (wy / graph) If cy > (wy / graph) Then cy = 1 End FN Local FN boxwrap(boxnum) If bx(boxnum) <= 0 Then bx(boxnum) = (wx / graph) If bx(boxnum) > (wx / graph) Then bx(boxnum) = 1 If by(boxnum) <= 0 Then by(boxnum) = (wy / graph) If by(boxnum) > (wy / graph) Then by(boxnum) = 1 End FN //Depending on what the direction the user pressed was, move the shapes. (see FN getinput, above) Local FN movecircle If direction = 1 Then cx = cx + 1 If direction = 2 Then cy = cy + 1 If direction = 3 Then cx = cx - 1 If direction = 4 Then cy = cy - 1 FN circlewrap End FN Local FN movebox(boxnum) If direction = 1 Then bx(boxnum) = bx(boxnum) + 1 If direction = 2 Then by(boxnum) = by(boxnum) + 1 If direction = 3 Then bx(boxnum) = bx(boxnum) - 1 If direction = 4 Then by(boxnum) = by(boxnum) - 1 FN boxwrap(boxnum) End FN Local FN blockcollide(blocknum) Dim n //If a block is pushed into another, move the second block. //This way, the user can push as many blocks (s)he wants to at once. For n = 1 To _blocks Long If n <> blocknum Long If bx(blocknum) = bx(n) AND by(blocknum) = by(n) FN drawbox(n) FN movebox(n) FN changecolor FN drawbox(n) //The function calls itself so that any number of blocks may be in a line and //they'll all be pushed. FN blockcollide(n) End If End If Next n End FN //FN stopblocks /*This function allows you to only allow one block to be pushed at a time. If you wish to use it, remove the comment signs around it, comment out FN blockcollide (the one above this one), make sure that the blocks are spread out far enough by changing their starting position algorythm in FN placeblocks (the last function), and follow the instructions in FN collide. */ /* Local FN stopblocks(blocknum) //If a block is pushed into another block, stop the blocks and circle //from moving. Dim change1,change2 change2 = 0 For n = 1 To _blocks change1 = 1 Long If n <> blocknum Long If bx(n) = bx(blocknum) AND by(n) = by(blocknum) change2 = 1 Select Case //This changes the direction that the shapes move so that //they move backwards to where they started. //change1 makes sure that only one case is chosen. //change2 makes sure that they only move if they need to. Case direction = 1 AND change1 = 1 direction = 3 change1 = 0 Case direction = 2 AND change1 = 1 direction = 4 change1 = 0 Case direction = 3 AND change1 = 1 direction = 1 change1 = 0 Case direction = 4 AND change1 = 1 direction = 2 change1 = 0 End Select End If End If Next n Long If change2 = 1 //If a block was pushed into another, move the box and circle back //(and redraw the box). FN changecolor FN movebox(blocknum) FN drawbox(blocknum) FN movecircle End If End FN */ Local FN collide //If the circle moves into a square, move the box in the same direction. Dim n For n = 1 To (_blocks) Long If cx = bx(n) And cy = by(n) Color = _zWhite FN drawbox(n) FN movebox(n) FN changecolor FN drawbox(n) //The function blockcollide lets the user push multiple blocks. To //let the user only push one block, change the line to "FN stopblocks(n)" //and make the changes outlined in the comment block above FN stopblocks. FN blockcollide(n) End If Next n //If two blocks are pushed into each other, move them both. End FN Local FN placeblocks //This function draws all of the blocks at the beggining of the program. //This sets up all of the blocks' starting positions. Dim n For n = 1 To _blocks bx(n) = (n Mod (wx/graph)) + 1 by(n) = (n / (wx/graph)) + 1 Next n For n = 1 To _blocks //This draws all the boxes are drawn at the beggining. FN changecolor FN drawbox(n) Next n End FN '~Main Window 1,"A Guy Pushing A Block Around For No Appearant Reason",(0,0)-(wx,wy),_docNoGrow FN makegraph FN placeblocks Do FN clearcircle FN movecircle FN collide FN changecolor FN drawcircle Do FN getinput Until direction <> 0 Until direction = 5 |
![]() |
![]() |
#3292 |
FFR Player
Join Date: Jan 2007
Age: 33
Posts: 906
|
![]() A: Who cares.
Q: Why Obie so cool? |
![]() |
![]() |
#3293 |
FFR Veteran
![]() Join Date: Nov 2006
Location: Phoenix, AZ
Age: 31
Posts: 758
|
![]() A: Because He Sucks
Q: Fall? |
![]() |
![]() |
#3294 |
♥C.S. + A.M.♥
![]() Join Date: Nov 2006
Location: Nova Scotia, Canada
Age: 30
Posts: 4,892
|
![]() Rise!
llama's eat chicken pox for arbor day?!??!
__________________
|
![]() |
![]() |
#3295 |
FFR Player
Join Date: Nov 2006
Location: In your mind, and it scares me.
Age: 31
Posts: 311
|
![]() Um, yeah, whatever
Who is you?
__________________
There are nO suBliminal mEssages in mY foruM signaturE |
![]() |
![]() |
#3296 | |
FFR Player
Join Date: Mar 2007
Location: Ontario, Canada
Posts: 78
|
![]() A: You is me.
Q: Why do we have teeth?
__________________
Currently working in: Infinite Being Remix by jr2, Current progress: Sync Quote:
|
|
![]() |
![]() |
#3297 |
Quite electrifying.
![]() |
![]() Because Naruto sucks.
Why is my other fursona a helicopter? Fufufufufufufu. |
![]() |
![]() |
#3298 |
FFR Player
Join Date: Jun 2006
Location: StepMania forums
Posts: 73
|
![]() ROFLCHOPPER
Kim Jong II has nukes? 0_0 |
![]() |
![]() |
#3299 |
FFR Player
![]() |
![]() cookes
cookes? |
![]() |
![]() |
#3300 |
this is a waste of space
![]() ![]() |
![]() A: Sunday brunch is half off on Tuesdays.
Q: Oh, my, wait, what? |
![]() |
![]() |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
|
|