Wednesday Workshop - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|507\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #070 (11 Oct 2006) The Crate Challenge Make a game, any game, but fill it with crates!

CRAPPY CODE by magicman for Workshop #070 This isnt really a game, but who cares, at least its somthing. Mouse button. ;This isnt really a game, but who cares, at least its somthing. i started it when this ww started, ;i just never did anything with it! CRAPPY CODE!!! Graphics 800,600,16,2 AutoMidHandle True Type crate Field x#,y#,xv#,yv# End Type crateimage = CreateImage(50,50);LoadImage("crate.png") SetBuffer ImageBuffer(crateimage) Color 180,120,50 Rect 0,0,50,50 Global gravity# = 0.09 SetBuffer BackBuffer() While Not KeyDown(1) Cls If MouseHit(1) c.crate = New crate c\x = MouseX() c\y = MouseY() c\yv = .01 EndIf For c.crate = Each crate DrawImage crateimage,c\x,c\y c\x = c\x + c\xv c\y = c\y + c\yv If c\y < 570 c\yv = c\yv + gravity If c\yv > 0 If c\yv < 0.09 c\yv = 0 If c\y < 575 c\y = c\y + 1 EndIf EndIf If c\y > 570 c\y = c\y - c\yv c\yv = c\yv /2 c\yv = -c\yv EndIf Next Delay 1 Color 255,255,255 Text 10,10,"Use the mouse to make crates" Flip Wend End

Wednesday Workshop #070