Wednesday Workshop - BlitzCoder.net

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

SnakePong

by Jayenkai for Workshop #029

Guide the ball around, picking up the Blue dots, using the mouse to guide the paddle around. (Nice and slow!)

Mouse

Graphics 800,600,32,2
SetBuffer BackBuffer()

maxp=10
Dim path(maxp,2,2)
Dim plar(2,2)

Dim xd(2)
Dim yd(2)

Type ect
Field x
Field y
Field col
End Type

Dim score(2)

chka=CreateImage(16,16):MaskImage chka,255,255,255
chkb=CreateImage(32,32)

xd(1)=1:yd(1)=1:xd(2)=1:yd(2)=1

plar(1,1)=100
plar(2,1)=300
ballx=400
bally=300

ballxg=Rand(-4,4)
ballyg=Rand(-4,4)

ballp=1

endofgame=0
Repeat
Cls

;For plr=1 To 2
plr=2

If plar(1,plr)<>path(maxp,1,plr) Or plar(2,plr)<>path(maxp,2,plr)

spx=path(maxp,1,plr)-plar(1,plr)
spy=path(maxp,2,plr)-plar(2,plr)

For n=1 To maxp-1
path(n,1,plr)=path(n+1,1,plr)
path(n,2,plr)=path(n+1,2,plr)
Next
path(maxp,1,plr)=plar(1,plr)
path(maxp,2,plr)=plar(2,plr)
EndIf

If plr=1 Then Color 255,0,0
If plr=2 Then Color 0,0,255

For n=1 To maxp
;Line path(n,1,plr),path(n,2,plr),path(n+1,1,plr),path(n+1,2,plr)
Rect path(n,1,plr),path(n,2,plr),16,16,1
Next

If plr=1
plar(1,plr)=plar(1,plr)+(KeyDown(205)-KeyDown(203))*16*xd(1)
plar(2,plr)=plar(2,plr)+(KeyDown(208)-KeyDown(200))*16*yd(1)

If plar(1,plr)>800-16 Then xd(plr)=0-(xd(plr)):plar(1,plr)=800-16
If plar(2,plr)>600-16 Then yd(plr)=0-yd(plr):plar(2,plr)=600-16
If plar(1,plr)<0 Then xd(plr)=0-xd(plr):plar(1,plr)=0
If plar(2,plr)<0 Then yd(plr)=0-yd(plr):plar(2,plr)=0
If KeyDown(205)=0 And KeyDown(203)=0 Then xd(plr)=1
If KeyDown(208)=0 And KeyDown(200)=0 Then yd(plr)=1

EndIf


If plr=2
plar(1,plr)=plar(1,plr)+(mx)*16*xd(2)
plar(2,plr)=plar(2,plr)+(my)*16*yd(2)
If plar(1,plr)>800-16 Then xd(plr)=0-(xd(plr)):plar(1,plr)=800-16
If plar(2,plr)>600-16 Then yd(plr)=0-yd(plr):plar(2,plr)=600-16
If plar(1,plr)<0 Then xd(plr)=0-xd(plr):plar(1,plr)=0
If plar(2,plr)<0 Then yd(plr)=0-yd(plr):plar(2,plr)=0
If mx=0 Then xd(plr)=1
If my=0 Then yd(plr)=1
EndIf


;Next

CopyRect ballx-8,bally-8,32,32,0,0,BackBuffer(),ImageBuffer(chkb)


mx=0
my=0
lmx=400-MouseX()
If lmx>0 Then mx=-1
If lmx<0 Then mx=1
lmy=300-MouseY()
If lmy>0 Then my=-1
If lmy<0 Then my=1
MoveMouse 400,300


If ballp=1 Then Color 255,0,0
If ballp=2 Then Color 0,0,255
Rect ballx,bally,16,16,1


If Rand(1,50)=1
coll.ect=New ect
coll\x=Rand(0,800-16)
coll\y=Rand(0,600-16)
coll\col=Rand(1,4):If coll\col>2 Then coll\col=2

EndIf

For coll.ect=Each ect
If coll\col=1 Then Color 255,200,200
If coll\col=2 Then Color 200,200,255
Rect coll\x,coll\y,16,16,1

	If ImagesCollide(chka,coll\x,coll\y,0,chka,ballx,bally,0)=1
		If coll\col=2 Then score(2)=score(2)+1
		If coll\col=1 Then score(2)=score(2)-1
		Delete coll.ect
	EndIf

Next












If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally,0)=0 
tx=0
ty=0
If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx+6,bally,0)=1 Then tx=Rand(-1,-4)
If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx-6,bally,0)=1 Then tx=Rand(1,4)
If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally+6,0)=1 Then ty=Rand(-1,-4)
If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally-6,0)=1 Then ty=Rand(1,4)

EndIf
If tx<>0 Then ballxg=tx
If ty<>0 Then ballyg=ty

ballx=ballx+ballxg
bally=bally+ballyg
If ballx>816 Then score(2)=score(2)-10:ballx=400:ballxg=Rand(-4,4)
If bally>600-16 Then bally=600-16:ballyg=Rand(-4,-1)

If ballx<-16 Then score(2)=score(2)-10:ballx=400:ballxg=Rand(-4,4)
If bally<0 Then bally=0:ballyg=Rand(4,1)

If score(2)<0 Then score(2)=0
Color 255,255,255
Text 400,10,score(2),1,1



Flip
If KeyDown(1) Then endofgame=1
Until endofgame<>0