Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|603\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #086 (07 Feb 2007) The Tall Challenge This week, create a game using a resolution of 320 x 600... Without it being a Tetris clone!

Block-o-Snake by Jayenkai for Workshop #086 Eat the numbers and avoid the blocks. Cursors Graphics 320,600,32,2 SetBuffer BackBuffer() Type ect Field x,y,n,s End Type SeedRnd MilliSecs() Type il Field x,y End Type Global tl=15 Global tx=160 Global ty=400 tg=1 For n=1 To tl ta.il=New il ta\x=tx ta\y=ty Next Global endofgame gfx=CreateImage(16,16,50) SetBuffer ImageBuffer(gfx,1) For n=7 To 0 Step -1 Color 0,30n,0 Oval 7-n,7-n,16-(16-n/2),16-(16-n/2),1 Next SetBuffer ImageBuffer(gfx,2) For n=7 To 0 Step -1 Color 30n,20n,0 Oval 7-n,7-n,16-(16-n/2),16-(16-n/2),1 Next For n=0 To 10 SetBuffer ImageBuffer(gfx,10+n) Color n10+100,n10+100,n10+100 Oval 0,0,16,16,1 Color 0,0,0 Text 8,8,n,1,1 Next For n=3 To 8 SetBuffer ImageBuffer(gfx,n) LockBuffer ImageBuffer(gfx,n) For x=0 To 15 For y=0 To 15 g=Rand(100,130) If x=0 Or y=0 Then g=g+30 If x=15 Or y=15 Then g=g-30 If n=3 Then argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(0) If n=4 Then argb=(255 Shl 24)+(g Shl 16)+(g Shl 8)+(0) If n=5 Then argb=(255 Shl 24)+(g Shl 16)+(0 Shl 8)+(0) If n=6 Then argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(g) If n=7 Then argb=(255 Shl 24)+(0 Shl 16)+(0 Shl 8)+(g) If n=8 Then argb=(255 Shl 24)+(g Shl 16)+(g Shl 8)+(g) WritePixelFast(x,y,argb,ImageBuffer(gfx,n)) Next Next UnlockBuffer ImageBuffer(gfx,n) Next grass=CreateImage(320,600) LockBuffer ImageBuffer(grass) For x=0 To 320 For y=0 To 600 g=Rand(50,80) argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(0) WritePixelFast(x,y,argb,ImageBuffer(grass)) Next Next UnlockBuffer ImageBuffer(grass) SetBuffer BackBuffer() scry=0 move=180 level=100 Repeat Cls If Rand(0,50)=1 obj.ect=New ect obj\s=1 obj\x=Rand(10,294) obj\y=Rand(10,500) obj\n=Rand(530,1030) EndIf If Rand(0,(level/10))=1 And move=1 atx=Rand(0,20)16 aty=(Rand(-4,-12)16)+(scry Mod 16) b=Rand(2,6) c=Rand(3,8) For n=1 To b obj.ect=New ect obj\s=2 obj\x=atx obj\y=aty obj\n=c g=Rand(1,4) If g=1 Then atx=atx-16 If g=2 Then atx=aty+16 If g=3 Then aty=aty-16 If g=4 Then aty=aty+16 Next EndIf If move>1 Then move=move-1 If move=1 Then scry=scry+1 If KeyDown(208) And tg<>1 Then tg=2 If KeyDown(203) And tg<>4 Then tg=3 If KeyDown(205) And tg<>3 Then tg=4 If KeyDown(200) And tg<>2 Then tg=1 TileImage grass,0,scry If tg=1 Then ty=ty-2:If move=1 Then ty=ty-1 If tg=2 Then ty=ty+2 If tg=3 Then tx=tx-2 If tg=4 Then tx=tx+2 If move=1 Then ty=ty+1 n=0 For ta.il=Each il If (n Mod 2)=1 Then DrawImage gfx,ta\x,ta\y,1 If n=tl-1 Then DrawImage gfx,ta\x,ta\y,2 n=n+1 If n=tl Then ta\x=tx:ta\y=ty If n<tl Then tb.il=After ta.il ta\x=tb\x ta\y=tb\y If move=1 Then ta\y=ta\y+1 Next For obj.ect=Each ect kill=0 If move=1 Then obj\y=obj\y+1 If obj\s=1 g=((obj\n)/30)+1 If g<=0 Then kill=1:g=0 DrawImage gfx,obj\x,obj\y,g+10 obj\n=obj\n-1 If Abs((tx+4)-(obj\x+8))<9 And Abs((ty+4)-(obj\y+8))<9 Addtail(g):kill=1:score=score+g EndIf EndIf If obj\s=2 DrawImage gfx,obj\x,obj\y,obj\n If Abs((tx+4)-(obj\x+8))<9 And Abs((ty+4)-(obj\y+8))<9 s=tl/5 If s<5 Then s=5 RemTail(s):kill=1 EndIf EndIf If obj\y>600 Then kill=1 If kill=1 Then Delete obj.ect Next If tx<-6 Or tx>326 Or ty<-6 Or ty>606 Then endofgame=1 Color 0,0,0 Text 161,581,"Score : "+score,1,1 Color 255,255,255 Text 160,580,"Score : "+score,1,1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Color 0,0,0 Text 161,281,"Game Over",1,1 Color 255,255,255 Text 160,280,"Game Over",1,1 Flip Delay 2500 Function Addtail(m) For n=1 To m ta.il=New il ta\x=tx:ta\y=ty:tl=tl+1 Next End Function Function RemTail(m) ta.il=First il For n=1 To m If tl>1 Then tb.il=After ta.il Delete ta.il If tl>1 Then ta.il=tb.il tl=tl-1 Next If tl<2 Then endofgame=1 End Function

It's a Speedboat! by Jayenkai for Workshop #086 Avoid the land! Cursors Graphics 320,600,32,2 SetBuffer BackBuffer() SeedRnd MilliSecs() Dim water(4) For n=1 To 4 water(n)=CreateImage(320,600) LockBuffer ImageBuffer(water(n)) For p=1 To 5000 b=Rand(50,100) l=100 x=Rand(0,319) y=Rand(3,599) For e=1 To 4 argb=(255 Shl 24)+(l Shl 16)+(l Shl 8)+b+l WritePixelFast x,y,argb,ImageBuffer(water(n)) l=l/2:y=y-1 Next Next UnlockBuffer ImageBuffer(water(n)) MaskImage water(n),0,0,0 Next ClsColor 15,15,100 flr=CreateImage(320,600) chk=CreateImage(8,32) wake=CreateImage(32,32,26) MidHandle wake For n=0 To 25 SetBuffer ImageBuffer(wake,n) Color 140-(n5),140-(n5),255-(n5) Oval 16-(n/2),16-(n/2),n,n,0 Next boat=CreateImage(9,16) SetBuffer ImageBuffer(boat) For n=-30 To 30 Color 255,80,80 If n>-20 And n<20 Then Color 255,255,255 Line 4,0,4+Sin(n)30,0+Cos(n)30 Next HidePointer() box=1600 boy=5000 spx=0 spy=0 inl=50 inr=50 gol=Rand(-1,1) gor=Rand(-1,1) Type ke Field x,y,g,s End Type Repeat SetBuffer ImageBuffer(flr) CopyRect 0,0,320,594,0,6,ImageBuffer(flr),ImageBuffer(flr) Color 0,0,0 Rect 0,0,320,6,1 For n=5 To 0 Step -1 inl=inl+gol If Rand(1,50)=1 Then gol=Rand(-2,2) inr=inr+gor If Rand(1,50)=1 Then gor=Rand(-2,2) If inl<10 Then inl=10 If inr<10 Then inr=10 If inl+inr>2604 Then gol=Rand(-3,-1):gor=Rand(-3,-1) Color 180,255,0 Line 0,n,inl/4,n Line 320,n,320-(inr/4),n Color 0,255,0 Line 0,n,(inl/4)-5,n Line 320,n,320-((inr/4)-5),n Next SetBuffer BackBuffer() Cls scry=scry+1 For n=1 To 4 TileImage water(n),Sin((scryn)/4)(n4),scryn Next wa.ke=New ke wa\x=bx-4 wa\y=by wa\g=-1 wa\s=0 wa.ke=New ke wa\x=bx+4 wa\y=by wa\g=1 wa\s=0 spx=spx-KeyDown(203)+KeyDown(205) spy=spy-KeyDown(200)+KeyDown(208) If box<0 Then box=0:spx=0 If box>3200 Then box=3200:spx=0 If boy>6000 Then boy=6000:spy=0 If boy<4000 Then boy=4000:spy=0 box=box+spx boy=boy+spy bx=box/10 by=boy/10 For wa.ke=Each ke wa\x=wa\x+wa\g*Rand(1,3) wa\y=wa\y+Rand(5,6) wa\s=wa\s+1 show=wa\s+Rand(-1,1) If show<0 Then show=0 If show>25 Then show=25 DrawImage wake,wa\x,wa\y,show If wa\s=25 Then Delete wa.ke Next DrawImage flr,0,0 DrawImage boat,bx-4,by-16 tick=tick+1 If (tick Mod 4)=1 CopyRect bx-4,by-16,8,32,0,0,ImageBuffer(flr),ImageBuffer(chk) If ImagesCollide(chk,0,0,0,boat,0,0,0) Then endofgame=1 EndIf score=score+1 Color 0,0,0 Text 161,1,"Distance : "+score,1,0 Color 255,255,255 Text 160,0,"Distance : "+score,1,0 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Delay 2500

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

Wednesday Workshop - Socoder