Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|690\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #025 (30 Nov 2005) The Useless Challenge In the spirit of useless seasonal gifts, this week's challenge is to create a game that LOOKS like it could be really interesting. Something that shouts out "Buy Me" from the store shelf. Something your Gran would pick up, and find instantly amusing, but which ultimately turns out to be a rather dull experience after about 5 seconds.

Useless Platdude 3D by Jayenkai for Workshop #025 Pick up the Green Boxes Cursors Left+Right Graphics 640,480,0,2:SetBuffer BackBuffer():Global wire=1,bitw=12,scrw=640/bitw,scrh=480/bitw:Dim array(scrw,scrh):Global rot#=90:back=CreateImage(1440,480):MaskImage back,255,0,255:SetBuffer ImageBuffer(back):Color 0,0,80:Rect 0,0,1440,480,1 For n=1 To 10000:d=Rand(20,150):Color d,d,d:Plot Rand(0,1440),Rand(0,480):Next:stp=0:Type ere Field x,y,t End Type:SetBuffer BackBuffer():plrx=scrw/2:plry=scrh:score=0:Repeat:tick=tick+1:Cls:TileImage back,0-rot4,0:Color 255,255,255 Text 320,10,score,1,1:rot#=rot+1:render(rot#):If rot>360 : rot=rot-360:EndIf:If rot<0 : rot=rot+360:EndIf:For x=0 To scrw:For y=0 To scrh:array(x,y)=0:Next:Next:For x=0 To scrw:array(x,scrh)=1:Next:If Rand(0,50)=1:sph.ere=New ere sph\x=Rand(0,scrw):sph\y=0:SeedRnd MilliSecs():sph\t=Rand(8,16):EndIf:For sph.ere=Each ere:array(sph\x,sph\y)=5:If (tick Mod sph\t)=0 : sph\y=sph\y+1:EndIf:kill=0:If sph\y=>scrh : kill=1:EndIf:If Abs(sph\y-(plry-5))<2 If Abs(sph\x-plrx)<3:kill=1:score=score+1:EndIf:EndIf:If kill=1:Delete sph.ere:EndIf:Next:array(plrx-2,plry-1)=4:array(plrx-1,plry-2)=4:array(plrx,plry-3)=4:array(plrx+1,plry-2)=4:array(plrx+2,plry-1)=4:array(plrx,plry-4)=2:array(plrx,plry-5)=2 array(plrx-1,plry-5)=2:array(plrx-2,plry-5)=2:array(plrx+1,plry-5)=2:array(plrx+2,plry-5)=2:array(plrx,plry-6)=3:array(plrx,plry-7)=3:array(plrx,plry-8)=3:array(plrx+1,plry-7)=3:array(plrx+1,plry-8)=3:If (tick Mod 2)=1:If KeyDown(203) And plrx>2 plrx=plrx-1:EndIf:If KeyDown(205) And plrx<scrw-2:plrx=plrx+1:EndIf:EndIf:Until KeyDown(1):Function render(rot#):If (rot=>-10 And rot<=90) Or (rot=>270 And rot<=370):For x=0 To scrw:For y=0 To scrh:cube(x,y,rot,1):Next:Next:EndIf:If rot=>90 And rot<=270 For x=scrw To 0 Step -1:For y=0 To scrh:cube(x,y,rot,1):Next:Next:EndIf:Flip:End Function:Function Cube(x,y,rot#,bit):Col array(x,y),d:atx=(x-(scrw/2))(Sin(rot)bitw)+(320-bitw/2):If bit=1 And array(x,y)>0 : Rect atx,(y-1)bitw,bitw,bitw,wire:EndIf If bit=1 And wire=1 And array(x,y)>0 : Color 0,0,0:Rect atx,(y-1)*bitw,bitw,bitw,0:EndIf:End Function:Function col(c,d):Select c:Case 0:r#=255:g#=255:b#=255:Case 1:r#=255:g#=0:b#=0:Case 2:r#=255:g#=168:b#=0:Case 3:r#=255:g#=255:b#=0:Case 4:r#=0:g#=168 b#=255:Case 5:r#=0:g#=150:b#=0:End Select:Color r,g,b:End Function

Wednesday Workshop #025

The Useless Challenge

Useless Platdude 3D