Sorry your browser is not supported!

// Project: billboard animated

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "billboard animated" )
SetWindowSize(1280, 800, 0)
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 100, 100 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 )
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

exp = LoadImage("Explosion03.png")
//SetImageWrapU(exp,1)
//SetImageWrapV(exp,1)

n=CreateObjectPlane(10,10)
SetObjectImage(n, exp,0)
SetObjectUVScale(n, 0,0.25, 0.25)
SetObjectTransparency(n, 2)
SetObjectPosition(n,0,10,0)
w=GetImageWidth(exp)*0.25
h=GetImageHeight(exp)*0.25
SetObjectLightMode(n,0)

SetCameraRotation(1,0,0,0)

a=0
b=0

do
	
	//print(str(a)+"/"+str(b))
	inc timera
	if timera>3
		  timera =0
		  inc a
		  if a>3
			 a=0
			inc b
		   if b >3
			   b=0
		   endif
		  endif
	SetObjectUVOffset(n,0,a,b)
	endif
	SetObjectLookAt(n,GetCameraX(1),GetCameraY(1),GetCameraZ(1),0)


	If GetRawKeyPressed(27)
		end
	Endif

    //    Print( ScreenFPS() )
    Sync()
loop

SetObjectUVOffset(n,0,a,b)

SetObjectUVOffset(n,0,a*0.25,b*0.25)

Texture = LoadImage("Explosion03.png")
GLOBAL Frame, Duration#, LastFrame#, Boom as Integer []
Frame = 0
Duration# = 0.05
For x = 0 to 15
	Boom.Insert(LoadSubImage(Texture, "img_"+STR(x)))
Next x

Plane = CreateObjectPlane( 10.0, 10.0 )
	SetObjectImage( Plane, Boom[Frame], 0 )
	SetObjectTransparency( Plane, 1 )

SetCameraRotation( 1, 0.0, 0.0, 0.0 )
SetCameraPosition( 1, 0.0, 0.0, -15.0 )

Do
	If LastFrame# + Duration# <= Timer()
		INC Frame	:	If Frame > Boom.Length then Frame = 0
		SetObjectImage( Plane, Boom[Frame], 0 )
		LastFrame# = Timer()
	EndIf
    Sync()
loop