Sorry your browser is not supported!

If Sprite[Cycle].Action = 1		
			SpriteAction01(Cycle)	
		Elseif Sprite[Cycle].Action = 2	
			SpriteAction02(Cycle)	
		ElseIf Sprite[Cycle].Action = 3	
			SpriteAction03(Cycle)	
		ElseIf Sprite[Cycle].Action = 4	
			SpriteAction04(Cycle)
		ElseIf Sprite[Cycle].Action = 5 	
			SpriteAction05(Cycle)	
		ElseIf Sprite[Cycle].Action = 6 	
			SpriteAction06(Cycle)
		ElseIf Sprite[Cycle].Action = 7	 
			SpriteAction07(Cycle)
Endif

Select Sprite[Cycle].Action
case 1
endcase
case 2
endcase
case 3
endcase
case 4
endcase
endselect

For Cycle = 1 to CurrentLoadedLevelSprites
		If Sprite[Cycle].Action = 1		// Behaviour 1
			SpriteAction01(Cycle)	
		Elseif Sprite[Cycle].Action = 2	//  Behaviour 2
			SpriteAction02(Cycle)	
		ElseIf Sprite[Cycle].Action = 3	//  Behaviour 3
			SpriteAction03(Cycle)	
		ElseIf Sprite[Cycle].Action = 4	//  Behaviour 4
			SpriteAction04(Cycle)
        
                Only my list is 40+ entries long!         
       
               Endif
Next Cycle

For Cycle = 1 to CurrentLoadedLevelSprites
  SpriteAction(Cycle)
Next Cycle

Function SpriteAction(spr)
  Select Sprite[spr].Action
    Case 1:
      // behaviour 1 code
    EndCase
    Case 2:
      // behaviour 2 code
    EndCase
    // etc
    // etc
  EndSelect
EndFunction

myObject = CreateSprite(0)
set(myObject, "x=100; y=200; alpha=150; width=100; height=50; angle=45")

//set(myObject, "visible=false")

function set(object as integer, agk_options$ )
    agk_options$ = lower(ReplaceString(agk_options$, " ", "", -1))

    for agk_i = 1 to CountStringTokens(agk_options$, ";")
            agk_objectOptions$ = GetStringToken(agk_options$, ";", agk_i)
            agk_variable$ = GetStringToken(agk_objectOptions$, "=", 1)
            agk_value$ = GetStringToken(agk_objectOptions$, "=", 2)
       
            if agk_value$ = "true" then agk_value$ = "1"
            if agk_value$ = "false" then agk_value$ = "0"
                   
            select agk_variable$
                case "x":
                    SetSpritePositionByOffset(object, ValFloat(agk_value$), GetSpriteYByOffset(object))
                endcase
                case "y":
                    SetSpritePositionByOffset(object, GetSpriteXByOffset(object), ValFloat(agk_value$) )
                endcase
                case "visible":
                    SetSpriteVisible(object, val(agk_value$))
                endcase
                case "alpha":
                    SetSpriteColorAlpha(object, val(agk_value$))
                endcase
                case "angle":
                    SetSpriteAngle(object, ValFloat(agk_value$))
                endcase
                case "width"
                    SetSpriteSize(object, ValFloat(agk_value$), GetSpriteHeight(object))
                endcase
                case "height"
                    SetSpriteSize(object, GetSpriteWidth(object), ValFloat(agk_value$))
                endcase
            endselect
    next agk_i
endfunction

type sprite
	id as integer
	image as integer
	x as float
	y as float
	anchorX as float
	anchorY as float
	width as integer
	height as float
	angle as float
endtype

global spr as sprite
	spr=newSprite('')
	spr.x = 250
	spr.y = 300
	spr.angle = 45
	spr.width = 100
	spr.height = 50
	SetSprite(spr)
do
    Sync()
loop

function newSprite( file as string)

	local object as sprite
	
	if file <> ''
		object.image = LoadImage(file)
		object.id = CreateSprite(object.image)
	else
		object.image = -1
		object.id = CreateSprite(0)
	endif
	
	object.x=0
	object.y=0
	object.anchorX=0
	object.anchorY=0
	object.width = GetSpriteWidth(object.id)
	object.height = GetSpriteHeight(object.id)
	object.angle = 0
	
	SetSpriteOffset(object.id, object.anchorX, object.anchorY ) 
	SetSpritePositionByOffset(object.id, object.x, object.y) 
endfunction object

function SetSprite( obj ref as sprite) 
	//------------------------------------------------------------------------
	//SIZE
	if obj.width <> GetSpriteWidth(obj.id)
		SetSpriteSize(obj.id, obj.width, GetSpriteHeight(obj.id))
	endif
	
	if obj.height <> GetSpriteWidth(obj.id)
		SetSpriteSize(obj.id, GetSpriteWidth(obj.id), obj.height)
	endif
	
	//------------------------------------------------------------------------
	//ANCHOR
	if obj.anchorX <> GetSpriteOffsetX(obj.id)
		SetSpriteOffset(obj.id, obj.anchorX, GetSpriteOffsetY(obj.id) )
	endif 
	
	if obj.anchorY <> GetSpriteOffsetY(obj.id)
		SetSpriteOffset(obj.id, GetSpriteOffsetX(obj.id), obj.anchorX )
	endif 
	//------------------------------------------------------------------------
	//ANGLE
	if obj.angle <> GetSpriteAngle(obj.id) 
		SetSpriteAngle(obj.id, obj.angle )
	endif
	
	//------------------------------------------------------------------------
	//POSITION
	if obj.x <> GetSpriteXByOffset(obj.id)
		SetSpritePositionByOffset(obj.id, obj.x, GetSpriteYByOffset(obj.id) )
	endif
	
	if obj.y <> GetSpriteXByOffset(obj.id)
		SetSpritePositionByOffset(obj.id, GetSpriteXByOffset(obj.id), obj.y )
	endif 
endfunction