Sorry your browser is not supported!

autocam off
sync on

for i = 1 to 16
   if i < 10
      x$ = "00"+str$(i)
   else
      x$ = "0"+str$(i)
   endif
   load image "CausticsRender_"+x$+".bmp", i
next i


make object box 10,50,1,50
scale object texture 10,5,5
position camera -30,30,-30
point camera 0,0,0
do
r=r+1:sleep 50
if r>16 then r=1
texture object 10,r
sync
loop

for i = 1 to 16
	if i < 10
		x$ = "00"+str$(i)
	else
		x$ = "0"+str$(i)
	endif
	load image "CausticsRender_"+x$+".bmp", i
next i

sprite 1, 0,0,16
sprite 2, 0,0,1
hide sprite 1 : hide sprite 2


do
	cls
	
	remstart
	if waterTimer + 140 <= timer()
		inc i
		if i = 17 then i = 1
		waterTimer = timer()
	endif
	remend
	
	
	if doAlpha = 0
		inc i
		if i >= 17 then i = 1
		k = i + 1
		if k >= 17 then k = 1
		set sprite image 1, i
		set sprite image 2, k
		doAlpha = 255


		//THIS SEEMS TO HAVE FIXED IT
		set sprite alpha 1, doAlpha
	endif
	
	
	if waterTimer + 6 <= timer()
		if doAlpha > 0
			dec doAlpha, 4
			if doAlpha < 0 then doAlpha = 0
			set sprite alpha 1, doAlpha
		endif
		waterTimer = timer()
	endif
	

	
	for x = 1 to 10
		for y = 1 to 5
			paste sprite 2, x*48, y*48
			paste sprite 1, x*48, y*48
			`paste image i, x*48, y*48
		next y
	next x


	set cursor 0,0
	print screen fps()
loop