Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|535\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #160 (09 Jul 2008) The Black and White Challenge Make games using only 0,0,0 and 255,255,255

Monoblast by Jayenkai for Workshop #160 Shoot everything! Cursors and Z/X Click to download this entry

Joe by Phoenix for Workshop #160 Help Joe find his missing XBox Click to download this entry

Get the Os - Dodge the Xs by Jayenkai for Workshop #160 Get the Os - Dodge the Xs Mouse Graphics 800,600,32,2 SetBuffer BackBuffer() Type die Field x,y,t End Type SeedRnd MilliSecs() d#=4 ; d = Divisor for trail points.. > = more tug, < = less tug.. ts=50 ; Length of trail.. TS = TrailS Dim trail#(500,2) .start endofgame=0 Delete Each die For n=0 To 500 trail(n,1)=400 trail(n,2)=300 Next MoveMouse 400,300 getx=Rand(50,750) gety=Rand(50,550) bad.die=New die bad\x=Rand(10,790) bad\y=Rand(10,590) bad\t=-50 hit=0 score=0 Repeat Cls ;If MouseX()<>trail(0,1) Or MouseY()<>trail(0,2) For n=ts To 1 Step -1 trail(n,1)=trail(n,1)-((trail(n,1)-trail(n-1,1))/d) trail(n,2)=trail(n,2)-((trail(n,2)-trail(n-1,2))/d) Next trail(0,1)=MouseX() trail(0,2)=MouseY() ;EndIf For n=ts To 1 Step -1 Color 255,255,255 Line trail(n,1),trail(n,2),trail(n-1,1),trail(n-1,2) Next For bad.die=Each die Color 255,255,255 bad\t=bad\t+1:If bad\t=11 Then bad\t=1 t$="+" If bad\t>5 Then t$="x" If bad\t<0 And (bad\t Mod 5)<-2 Then t$="[ ]" Text bad\x,bad\y,t$,1,1 For n=ts To 1 Step -1 If Abs(bad\x-trail(n,1))<5 And Abs(bad\y-trail(n,2))<5 Then hit=1:hitx=bad\x:hity=bad\y Next Next Color 255,255,255 Text getx,gety,"O",1,1 If Abs(MouseX()-getx)<8 And Abs(MouseY()-gety)<8 tries=0 Repeat tries=tries+1 fin=1 x=Rand(10,790):y=Rand(10,590) For n=ts To 1 Step -1 If Abs(x-trail(n,1))<24 And Abs(y-trail(n,2))<24 Then fin=0 Next For bad.die=Each die If Abs(x-bad\x)<24 And Abs(y-bad\y)<24 Then fin=0 Next If tries=10 Then fin=1 Until fin=1 tries=0 score=score+1:getx=x:gety=y For many=1 To 3 Repeat tries=tries+1 fin=1 x=Rand(10,790):y=Rand(10,590) For n=ts To 1 Step -1 If Abs(x-trail(n,1))<24 And Abs(y-trail(n,2))<24 Then fin=0 Next If tries=10 Then fin=1 Until fin=1 bad.die=New die bad\x=x bad\y=y bad\t=-50 Next EndIf Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Or hit<>0 If hit<>0 For n=1 To 120 Color 0,0,0:If Rand(0,1)=1 Then Color 255,255,255 Oval hitx-8,hity-8,17,17,0 Color 0,0,0:If Rand(0,1)=1 Then Color 255,255,255 Rect hitx-8,hity-8,17,17,0 Color 0,0,0:Rect 300,280,200,40,1 Color 255,255,255:Text 400,300,"Score : "+score,1,1 Flip Next EndIf

Posty by Forklift_Fred for Workshop #160 Grab the postbag, then collect all the letters. Cursors Click to download this entry

Jay's Garden by Afr0 for Workshop #160 You are in Jay's Garden, find Jay. Keyboard Click to download this entry

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

Wednesday Workshop - Socoder