Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|536|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

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