Wednesday Workshop

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

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,30*n,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 30*n,20*n,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 n*10+100,n*10+100,n*10+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(5*30,10*30)
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