Ask stupid questions, get stupid answers

[All_That_Chaz]

Re: Ask stupid questions, get stupid answers

A: either nForcer, or Synth i.e. God
Q: were you saying "boo-urns?"

[orly101]

Re: Ask stupid questions, get stupid answers

a-XD

q-...

[Pizza_Pi]

Re: Ask stupid questions, get stupid answers

A: !!!

Q: Where's my keyboard?

[SulferDragon]

Re: Ask stupid questions, get stupid answers

A: Your mouse ate it.

Q: Why do we get banned?

[orly101]

Re: Ask stupid questions, get stupid answers

a-wait, we can get banned?

q-uykaebvkqbhvoqhbiviojb?

[thepondermatic]

Re: Ask stupid questions, get stupid answers

A: Why wouldn't we?

Q:

//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

?

[obie32one]

Re: Ask stupid questions, get stupid answers

A: Who cares.

Q: Why Obie so cool?

[Meatyguy]

Re: Ask stupid questions, get stupid answers

A: Because He Sucks

Q: Fall?

[customstuff]

Re: Ask stupid questions, get stupid answers

Rise!

llama's eat chicken pox for arbor day?!??!

[Magnum13]

Re: Ask stupid questions, get stupid answers

Um, yeah, whatever
Who is you?

[Pizza_Pi]

Re: Ask stupid questions, get stupid answers

A: You is me.

Q: Why do we have teeth?

[psychopete]

Re: Ask stupid questions, get stupid answers

Because Naruto sucks.

Why is my other fursona a helicopter?



Fufufufufufufu.

[thepondermatic]

Re: Ask stupid questions, get stupid answers

ROFLCHOPPER

Kim Jong II has nukes? 0_0

[6 p01nt3d*st@r]

Re: Ask stupid questions, get stupid answers

cookes

cookes?

[SulferDragon]

Re: Ask stupid questions, get stupid answers

A: Sunday brunch is half off on Tuesdays.

Q: Oh, my, wait, what?