Global resx = 1024, resy = 768

Graphics3D resx,resy,32,2
SetBuffer BackBuffer()

camera=CreateCamera()
CameraClsMode camera,0,1
CameraRange camera,1,1000

sprite=CreateSprite()
ScaleSprite sprite,64,64
EntityColor sprite,255,0,0
EntityAlpha sprite,0.5
posx# = ((0)*2) - resx + 64
posy# = -((0)*2) + resy - 64
Stop
PositionEntity sprite,posx#,posy#,resx

While Not KeyHit(1)
   Cls
   For x=0 To 20 Step 2
      For y=0 To 15 Step 2
         Rect x*32,y*32,32,32,1
      Next
   Next
   RenderWorld()
   Flip
Wend

Function erstelle_explosion(x,y)
	Local width,height
	Local expl.explosion = New explosion
	expl\x = x : expl\y = y
	expl\sprite = CreateSprite()
	EntityBlend expl\sprite,3
	expl\movie = OpenMovie(\"GFX/explosion.mov\")
	width = MovieWidth(expl\movie)
	height = MovieHeight(expl\movie)
	expl\textur = CreateTexture(width,height)
	ScaleSprite expl\sprite,width,height
	EntityTexture expl\sprite,expl\textur	
	explosion_anzahl = explosion_anzahl + 1
	positionx# = ((expl\x)*2) - resx + width
	positiony# = -((expl\y)*2) + resy - height
	PositionEntity expl\sprite,positionx#,positiony#,0
	;Stop
End Function

Function update_explosion()
	Local expl.explosion
	For expl.explosion = Each explosion
		SetBuffer TextureBuffer(expl\textur)
		DrawMovie(expl\movie,expl\x,expl\y)
		;CloseMovie expl\movie
		;FreeEntity expl\sprite
		;FreeTexture expl\textur
		;Delete expl.explosion
		
		SetBuffer BackBuffer()
	Next
	
End Function