Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|543\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #060 (02 Aug 2006) The Building Challenge The word Building can mean many things.<br> A Building can be a house, a shop, a warehouse, a factory, or otherwise. You can run a building. You can destroy a building. You can even Build a building.<br> You can also Build other things. You can build with metal to make cars, and boats. You can build with Lego, Meccano, or KNex to make toys. You can even build a track with Scalextic.<br><br>However you wish to look at the word Building, that's the type of game you need to make.

Window Cleaner Delux by mike_g for Workshop #060 You live in a very big house. The seagulls have been at the bins and are making a mess of it. Even worse is that you have a giant mutant ape bouncing around on your roof. Climb to the top of your house cleaning windows on you way and defeat the boss when you reach the top. Cursors and Mouse Click to download this entry

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

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.092

Wednesday Workshop - Socoder