LoadGlobalSound ( "audiobank\\recordings\\ornakus\\Q1.wav", 1 )
PlayGlobalSound ( 1 )

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
local sprites = {}
local spriteImage = spriteImage or LoadImage( "scriptbank\\radar\\radar-white.png" ) 

local maxSprites = 5000
local minSize    = 4
local maxSize    = 10
local minAlpha   = 20
local maxAlpha   = 80
local minSpeed   = 0.2
local maxSpeed   = 0.33

function spritefun_init( e )
end

local rand = math.random
local modf = math.modf

local function randCol()
	return modf( rand( 0, 255 ) )
end

local function randVal( minVal, maxVal )
	return minVal + rand() * ( maxVal - minVal )
end

local function randomSprite()
	local spr  = CreateSprite( spriteImage )
	local size = randVal( minSize, maxSize )
	
	SetSpriteSize     ( spr, -1, size )	
	SetSpriteOffset   ( spr, -1, size / 2 )
	
	local x = randVal( -size / 2, 100 + size / 2 )
	local y = randVal( -size / 2, 100 + size / 2 )
 	SetSpritePosition ( spr, x, y )	
	SetSpriteDepth    ( spr, rand( 0, 100 ) )
	SetSpriteColor    ( spr, randCol(), randCol(), randCol(), rand( minAlpha, maxAlpha ) )
	--SetSpriteAngle(spr, math.random(1,1))
	local speed = randVal( minSpeed, maxSpeed )
	
	return { spr = spr, x = x, y = y, size = size, speed = speed }
end

local function updateSprites()
	for _, v in pairs( sprites ) do
		v.y = v.y + v.speed
		if v.y > 100 + v.size / 2 then
			v.y =  -v.size / 2
			v.x = randVal( -v.size / 2, 100 + v.size / 2 )
			SetSpriteColor ( v.spr, randCol(), randCol(), randCol(), rand( minAlpha, maxAlpha ) )
			v.speed = randVal( minSpeed, maxSpeed )
		end
		SetSpritePosition ( v.spr, v.x, v.y )
		PasteSprite(v.spr)
	end
end

function spritefun_main( e )
	if sprites[ 1 ] == nil then
		for i = 1, maxSprites do
			sprites[ i ] = randomSprite()
		end
		return
	end
	
	updateSprites()		
end

-- LUA Script - precede every function and global member with the lowercase name of script + '_main'
-- Amenmoses's script - modify by 3com, to suit my needs. :)


local sprites = {}
--local spriteImage = spriteImage or LoadImage( "scriptbank\\radar\\radar-white.png" ) 

spriteImages = {}


local maxSprites = 1000
local minSize    = 4
local maxSize    = 10
local minAlpha   = 20
local maxAlpha   = 80
local minSpeed   = 0.2
local maxSpeed   = 0.33

function spritefun_init( e )
end

	for i = 0,8,1 do spriteImages[i+1] = LoadImage( "scriptbank\\images\\Decals snow\\00" ..i ..".png" ) end
local rand = math.random
local modf = math.modf
local imageIDX = rand(1,#spriteImages)

local function randCol()
	return modf( rand( 0, 255 ) )
end

local function randVal( minVal, maxVal )
	return minVal + rand() * ( maxVal - minVal )
end

local function randomSprite()
	local spr  = CreateSprite( spriteImages[1] )
	local size = randVal( minSize, maxSize )
	local spr_angle = rand( 90, 180 )
	
	SetSpriteSize     ( spr, -1, size )	
	SetSpriteOffset   ( spr, -1, size / 2 )
	
	local x = randVal( -size / 2, 100 + size / 2 )
	local y = randVal( -size / 2, 100 + size / 2 )

 	PasteSpritePosition ( spr, x, y )	
	SetSpriteDepth    ( spr, rand( 0, 100 ) )
	SetSpriteAngle ( spr , spr_angle )
	--SetSpriteColor    ( spr, randCol(), randCol(), randCol(), rand( minAlpha, maxAlpha ) )
	SetSpriteImage ( spr , spriteImages[imageIDX]  )
	local speed = randVal( minSpeed, maxSpeed )
	
	return { spr = spr, x = x, y = y, size = size, speed = speed }
end

local function updateSprites()
	for _, v in pairs( sprites ) do
		v.y = v.y + v.speed
		if v.y > 100 + v.size / 2 then
			v.y =  -v.size / 2
			v.x = randVal( -v.size / 2, 100 + v.size / 2 )
			--SetSpriteAngle ( v.spr , rand(90,180) )
			--SetSpriteColor ( v.spr, randCol(), randCol(), randCol(), rand( minAlpha, maxAlpha ) )
			SetSpriteImage ( v.spr , spriteImages[imageIDX]  )
			SetSpriteAngle ( v.spr , spr_angle )
			v.speed = randVal( minSpeed, maxSpeed )
		end
		
		
		PasteSpritePosition ( v.spr, v.x, v.y )
		
	end
end

function spritefun_main( e )
	if sprites[ 1 ] == nil then
		for i = 1, maxSprites do
			sprites[ i ] = randomSprite()
		end
		return
	end
	
	updateSprites()		
end

-- LUA Script - precede every function and global member with the lowercase name of script + '_main'
-- Amenmoses's script - modify by 3com, to suit my needs. :)


local sprites = {}
--local spriteImage = spriteImage or LoadImage( "scriptbank\\radar\\radar-white.png" ) 

spriteImages = {}


local maxSprites = 1000
local minSize    = 4
local maxSize    = 10
local minAlpha   = 20
local maxAlpha   = 80
local minSpeed   = 0.2
local maxSpeed   = 0.33

local rand = math.random
local spr_angle = {}

function spritefun_init( e )
end

	for i = 0,8,1 do spriteImages[i+1] = LoadImage( "scriptbank\\images\\Decals snow\\00" ..i ..".png" ) end

local modf = math.modf
local imageIDX = rand(1,#spriteImages)

local function randCol()
	return modf( rand( 0, 255 ) )
end

local function randVal( minVal, maxVal )
	return minVal + rand() * ( maxVal - minVal )
end

local function randomSprite()
	local spr  = CreateSprite( spriteImages[1] )
	local size = randVal( minSize, maxSize )
	--spr_angle[rand( 1, maxSprites )] = rand( 0, 180 )
	
	SetSpriteSize     ( spr, -1, size )	
	SetSpriteOffset   ( spr, -1, size / 2 )
	
	local x = randVal( -size / 2, 100 + size / 2 )
	local y = randVal( -size / 2, 100 + size / 2 )

 	PasteSpritePosition ( spr, x, y )	
	SetSpriteDepth    ( spr, rand( 0, 100 ) )
	SetSpriteAngle ( spr , spr_angle[rand( 1, maxSprites )] )
	SetSpriteImage ( spr , spriteImages[imageIDX]  )
	local speed = randVal( minSpeed, maxSpeed )
	
	return { spr = spr, x = x, y = y, size = size, speed = speed }
end

local function updateSprites()
		

	for _, v in pairs( sprites ) do
		v.y = v.y + v.speed
		if v.y > 100 + v.size / 2 then
			v.y =  -v.size / 2
			v.x = randVal( -v.size / 2, 100 + v.size / 2 )
			--spr_angle[v] = rand( 0, 180 )
			SetSpriteAngle ( v.spr , spr_angle[v] )
			SetSpriteImage ( v.spr , spriteImages[imageIDX]  )		
			v.speed = randVal( minSpeed, maxSpeed )
		end
		
		
		PasteSpritePosition ( v.spr, v.x, v.y )
		
	end
end

function spritefun_main( e )
	Prompt(#spr_angle)
	if sprites[ 1 ] == nil then
		for i = 1, maxSprites do
			spr_angle[i] = rand( 0, 180 )
			sprites[ i ] = randomSprite()
		end
		return
	end
	
	updateSprites()		
end

g_myimage[e] = LoadImage("scriptbank\\images\\sprite test\\lee.png")
aspectratio = GetImageWidth(g_myimage[e]) / GetImageHeight(g_myimage[e])