Wednesday Workshop

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

Fire

by magicman for Workshop #060

Your office building is on fire and you have to jump off the top and land on the ground without hitting anything. ENJOY!!!!

Cursors

;I dont know what the name for this is, but i made it for wednesday workshop #60, the building challenge.
;your office building is on fire and you have to jump off the top and land on the ground with
;out hitting anything. ENJOY!!!!




AppTitle"I didn't give this a name, so I guess this is the name. Hmmmmmmm....."
Graphics 640,480,16,2
AutoMidHandle True



Type fire
Field x#,y#,xv#,yv#,r,g,b
End Type










building = CreateImage(150,400)

SetBuffer ImageBuffer(building)
Color 80,80,80
Rect 0,0,150,400

ground = CreateImage(640,20)

SetBuffer ImageBuffer(ground)
Color 0,155,0
Rect 0,0,640,20



window = CreateImage(80,50)

SetBuffer ImageBuffer(window)
Color 100,100,100
Rect 0,0,80,50
Color 10,10,10
Rect 0,0,80,50,0




player = CreateImage(100,100)

SetBuffer ImageBuffer(player)
Color 240,180,100
Oval 56,7,10,13
Color 155,20,20
Rect 50,21,20,30
Rect 30,21,60,2
Color 30,50,250
Rect 50,51,6,22
Rect 64,51,6,22


Global px# = 60
Global py# = 56

stuffimage = CreateImage(20,20)

SetBuffer ImageBuffer(stuffimage)
Color 125,125,125
Rect 0,0,20,20

Type stuff
Field x,y
End Type


Global lives = 3

Global level = 1



Global wind# = 0.01

Global gravity# = 1



s.stuff = New stuff
s\x = Rnd(170,640)
s\y = Rnd(100,400)



SetBuffer BackBuffer()
While Not KeyDown(1)
ClsColor 40,200,255
Cls


SeedRnd MilliSecs()







If KeyDown(203) px# = px# - 2
If KeyDown(205) px# = px# + 2










For i = 0 To 1
f.fire = New fire
f\x# = Rnd(40,100)
f\y# = Rnd(280,310)
f\xv# = .5
f\yv# = Rnd(-.1,-1)
f\r = 255
f\g = 240
f\b = 0


f.fire = New fire
f\x# = Rnd(40,100)
f\y# = Rnd(120,160)
f\xv# = .5
f\yv# = Rnd(-.1,-1)
f\r = 255
f\g = 240
f\b = 0

f.fire = New fire
f\x# = Rnd(40,100)
f\y# = Rnd(200,240)
f\xv# = .5
f\yv# = Rnd(-.1,-1)
f\r = 255
f\g = 240
f\b = 0

f.fire = New fire
f\x# = Rnd(40,100)
f\y# = Rnd(360,400)
f\xv# = .5
f\yv# = Rnd(-.1,-1)
f\r = 255
f\g = 240
f\b = 0

Next









If Not ImagesCollide(player,px#,py#,0,building,75,280,0)
py# = py# + gravity#
EndIf

If ImagesCollide(player,px#,py#,0,ground,320,470,0)
px# = 60
py# = 56

level = level + 1

For i = 0 To level
s.stuff = New stuff
s\x = Rnd(170,640)
s\y = Rnd(100,400)
Next


EndIf


For s.stuff = Each stuff
If ImagesCollide(player,px#,py#,0,stuffimage,s\x,s\y,0)


For i = 0 To 20
f.fire = New fire
f\x# = s\x
f\y# = s\y
f\xv# = Rnd(-1,1)
f\yv# = Rnd(-1,1)
f\r = 255
f\g = 255
f\b = 255
Next




Delete s
px# = 60
py# = 56
lives = lives - 1

EndIf
Next





DrawImage building,75,280

DrawImage window,75,140

DrawImage window,75,220

DrawImage window,75,300

DrawImage window,75,380




DrawImage ground,320,470



For f.fire = Each fire
Color f\r,f\g,f\b
Rect f\x#,f\y#,2,2

f\x# = f\x# + f\xv#
f\y# = f\y# + f\yv#
f\xv# = f\xv# + wind#

f\g = f\g - 2

If f\g < 10 Delete f



Next




For s.stuff = Each stuff
DrawImage stuffimage,s\x,s\y
Next




DrawImage player,px#,py#

Color 0,0,0

Text 565,7,"LEVEL:" + level
Text 565,20,"LIVES:" + lives


If lives =< 0
endgame = Endgame + 1

Color 255,0,0
Text 300,240,"YOU GOT TO LEVEL " + level
Text 300,220,"    GAME OVER!"

If endgame = 100 End


EndIf

Flip
Wend
End