Wednesday Workshop - BlitzCoder.net

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

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-(n*5),140-(n*5),255-(n*5)
	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>260*4 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((scry*n)/4)*(n*4),scry*n
	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