Sorry your browser is not supported!

// A Type to store Sprites "extended" properties

TYPE SpriteParametersType

SpriteDisplayName as string
SpriteParameter1 as integer
SpriteParameter2 as string
...
ENDTYPE

// I know that i will create a maximum of 99 sprites (100 minus the [0])
Dim SpriteParameters[100] AS SpriteParametersType 

// Temporary variable to store a free Sprite ID
tmpID AS integer

// First Sprite (we are sure that it will start at 1)
tmpID=GetFreeSprite()
Sprite1 = CreateSprite(tmpID,LoadImage("test1.png"))
SpriteParameters[tmpID].SpriteDisplayName = "My First Sprite"

// Second Sprite
tmpID=GetFreeSprite()
Sprite2 = CreateSprite(tmpID,LoadImage("test2.png"))
SpriteParameters[tmpID].SpriteDisplayName = "My Second Sprite"

// Third Sprite
tmpID=GetFreeSprite()
Sprite3 = CreateSprite(tmpID,LoadImage("test3.png"))
SpriteParameters[tmpID].SpriteDisplayName = "My Third Sprite"




DO

   if GetPointerState()=1
       
       TouchedSprite = GetSpriteHit( GetPointerX(), GetPointerY() )
       
       if TouchedSprite>0 
           
           // Permits a direct access to Sprite custom properties without a loop
           Print("Name of the sprite : " + SpriteParameters[TouchedSprite].SpriteDisplayName )
       
       endif


    endif


sync()

LOOP

function GetFreeSprite
    temp=0
    repeat
        temp=temp+1
    until GetSpriteExists(temp)=0
endfunction temp

dim array[MyNumberOfSprite] as integer

for i=1 to MyNumberOfSprite
    array[i] = createSprite(image)
next

TYPE SpriteParametersType
SpriteDisplayName as string
SpriteParameter1 as integer
SpriteParameter2 as string
ENDTYPE

Dim SpriteParameters[100] AS SpriteParametersType

// First Sprite name parameter
SpriteParameters[1].SpriteDisplayName = "My First Sprite"

// Second Sprite name parameter
SpriteParameters[2].SpriteDisplayName = "My Second Sprite"

// Third Sprite name parameter
SpriteParameters[3].SpriteDisplayName = "My Third Sprite"

Sprite1 = CreateSprite(LoadImage("test1.png")) // Sprite ID auto-generated
Sprite2 = CreateSprite(LoadImage("test2.png")) // Sprite ID auto-generated
Sprite3 = CreateSprite(LoadImage("test3.png")) // Sprite ID auto-generated




DO

   if GetPointerState()=1
       
       TouchedSprite = GetSpriteHit( GetPointerX(), GetPointerY() )
       
       if TouchedSprite>0  // will return the Sprite1/Sprite2 or Sprite3 ID and it's the only data i know from the sprite
           
           Print("Name of the sprite : " + SpriteParameters[????????].SpriteDisplayName )
       
       endif


    endif


sync()

LOOP

rem
rem AGK Application
rem

rem Landscape App
SetDisplayAspect( 4.0/3.0 )


TYPE SpriteParametersType
    SpriteID as integer
    SpriteDisplayName as string
    SpriteParameter1 as integer
    SpriteParameter2 as string
ENDTYPE

Dim SpriteParameters[100] AS SpriteParametersType

// First Sprite name parameter
SpriteParameters[1].SpriteDisplayName = "My First Sprite"

// Second Sprite name parameter
SpriteParameters[2].SpriteDisplayName = "My Second Sprite"

// Third Sprite name parameter
SpriteParameters[3].SpriteDisplayName = "My Third Sprite"

SpriteParameters[1].SpriteID = CreateSprite(0)
SpriteParameters[2].SpriteID = CreateSprite(0)
SpriteParameters[3].SpriteID = CreateSprite(0)

setSpritePosition(SpriteParameters[1].SpriteID,10,10)
setSpritePosition(SpriteParameters[2].SpriteID,40,10)
setSpritePosition(SpriteParameters[3].SpriteID,70,10)


DO

   if GetPointerState()=1
       
        TouchedSprite = GetSpriteHit( GetPointerX(), GetPointerY() )
        
        for i=1 to 3
            spr=SpriteParameters[i].SpriteID
            if TouchedSprite=spr

                Print("Name of the sprite : " + SpriteParameters[i].SpriteDisplayName )

            endif
        next


    endif


sync()

LOOP

TYPE SpriteParametersType
CharacterType as integer // kind of the character (0 = Empty Sprite properties, 1 = playable character, 2= non-playable-character, 3= monsters, etc..)
CharacterName as string // name of the character
Health as integer // Health of character
etc...
etc...
ENDTYPE

rem converts a string to a floating point value
rem should be replaced by a AGK command "valFloat()"
rem in version 1.07 - by Steven Holding
function FloatVal(s$)
    s1$=""
    s2$=""
    l = len(s$)
    for c=1 to l
        letter$=mid(s$,c,1)
        if letter$="."
            s2$=mid(s$,c+1,l-c)
            exit
        else
            s1$=s1$+letter$
        endif
    next
    v1=val(s1$)
    v2#=val(s2$)
    n=len(s2$)
    if n>6
        n=6
        s2$=mid(s2$,1,6)
        v2#=val(s2$)
    endif
    for i=1 to n
        v2#=v2#*0.1
    next
    v#=v1+v2#
endfunction v#

function LoadImageSafe( thisFileName$ )
	if getFileExists( thisFileName$ )
		thisFile = loadImage( thisFileName$ )
	else
		thisFile = 0
	endif
endfunction thisFile

myBackgroundImage = loadImageSafe("backImage.png"
myBackgroundSprite = createSprite(myBackgroundImage)
// Or compounded
myBackgroundSprite = createSprite(loadImageSafe("backImage.png"))

rem 'swaps' sprites to different physics states
rem only works for none user defined shapes and doesn't
rem allow for any colour settings that might be applied
rem by Steven Holding
function setSpritePhysics(spr,phyType,shape)
	rem get sprite data
	i = getSpriteImageID(spr)
	px# = getSpriteXbyOffset(spr)
	py# = getSpriteYbyOffset(spr)
	a# = getSpriteAngle(spr)
	w# = getSpriteWidth(spr)
	h# = getSpriteHeight(spr)

	rem replace sprite
	deleteSprite(spr)
	createSprite(spr,i)
	setSpriteSize(spr,w#,h#)
	setSpriteOffset(spr,w#*0.5,h#*0.5)
	setSpriteAngle(spr,a#)
	setSpritePositionByOffset(spr,px#,py#)
	setSpritePhysicsOn(spr,phyType)
	setSpriteShape(spr,shape)
endfunction

Remstart
    Name: MoveSprite
    Variables:
        *Number - The Sprite number for the sprite to move
        *Speed - The distance the sprite shuld move
    Desription:
        Moves the sprite forward based on it's angle
    Notes: Will Terminate if the sprite dosn't exist
Remend

Function MoveSprite(Number, Speed#)
    If GetSpriteExists(Number)
        //Saving the original position
        OriginalX# = GetSpriteXByOffset(Number)
        OriginalY# = GetSpriteYByOffset(Number)

        AddX#=Cos(GetSpriteAngle(Number)-90)*Speed#* FrameTime
        AddY#=Sin(GetSpriteAngle(Number)-90)*Speed#*getDisplayAspect() * FrameTime

        NewX#=OriginalX#+AddX#
        NewY#=(OriginalY#+AddY#)

        SetSpritePositionByOffset(Number, NewX#, NewY#)

    Else
        Print ("Move sprite terminated-Sprite dosn't exist: " + Str(Number))
    endif

Endfunction


Remstart
    Name:
        RotateTo
    Variables:
        Number - The ID of the sprite to rotate
        X - The x cordinate to rotate towards
        Y - The Y cordinate to rotate towards
    Output:
        Angle - The angle of the rotation
    Desription:
        Used to rotate a sprite towards one point in the 2d world
    Notes: Will Terminate if the sprite dosn't exist
Remend

Function RotateTo(Number, x#, y#)
    If GetSpriteExists(Number)

        OldX# = GetSpriteXByOffset(Number)
        OldY# = GetSpriteYByOffset(Number)

        DiffX# = X# - OldX#
        DiffY# = (Y# - OldY#)/getDisplayAspect()

        Angle# = ATanFull(DiffX#, DiffY#)

        SetSpriteAngle(Number, Angle#)
    Else
        Print ("RotateTo terminated-Sprite dosn't exist: " + Str(Number))
    endif
Endfunction (Angle#)

Remstart
    Name: GetDistance
    Variables:
        X1 - X cordinate1 (F)
        X1 - Y cordinate1 (F)
        X2 - X cordinate2 (F)
        Y2 - Y cordinate2 (F)
    Output:
        Distance - The distance calculated (F)
    Desription:
        This will calculate the distance between (X1, Y1) and (X2, Y2)
    Notes:
Remend

Function GetDistance (X1#, Y1#, X2#, Y2#)

    XDist# = X2# - X1#
    YDist# = Y2# - Y1#

    Distance#=Sqrt(XDist#^2 + YDist#^2)
Endfunction (Distance#)

//**********************************************************************
//                         Timer functions
//**********************************************************************

Remstart
    Name: Delay
    Variables:
        OldTime# The time to check from (F)
        Delay# The time to check if it has passed (F)
    Output: Passed Yes if the time has passed(I)
    Desription:
        This function is used to check if a time (delay)
        has passed since the OldTime variable
    Notes:
        Requires a global Time variable called time
        in the main loop of the program.

        Put this outside the loop: Global Timer
        Put this in the loop: time=timer()

Remend

Function TimePassed(Oldtime#, Delay#)
    If Oldtime# + Delay#< Time
        Passed=1
    else
        Passed=0
    endif

Endfunction (Passed)

//**********************************************************************
//                          GUI functions
//**********************************************************************

Remstart
    Name: GUICreateStaticButton
    Variables:
        File - The name of the file to load (S)
        Scale - The scale of the button (F)
        X - The X position of the button (F)
        Y - The Y position of the button (F)

    Output:
        Number - The Sprite ID of the button (I)
    Desription:
        This command will create a "static button" that can be used with the command "GUIGetStaticButton"
        This button will not be annimated
    Notes:
Remend

Function GUICreateStaticButton (File$, Scale#, X#, Y#)

    //Loading the image for the Button
    IMG = LoadImage (File$)

    //Creating the sprite and setting it's parameters

    Number = CreateSprite(IMG)
        SetSpriteScale(Number, Scale#, Scale#)
        SetSpritePositionByOffset (Number, X#, Y#)
        SetSpriteDepth(Number, 1)


EndFunction (Number)

Remstart
    Name: GUIGetStaticButton
    Variables:
        ID - The ID of the button to test for collision (I)
    Output:
        Hit - 1 if the button has been pressed, else 0
    Desription:
        Will check if a static button created by GUICreateStaticButton is hit.
        Will most likley work with other sprites to
    Notes:
Remend

Function GUIGetStaticButton (ID)
    If GetSpriteHitTest(ID, WorldToScreenX (GetPointerX()), WorldToScreenY (GetPointerY())) and GetPointerPressed()
        Hit = 1
    Else
        Hit = 0
    Endif
Endfunction (Hit)

    Dim _UCF_T_NumText[0] as integer = 0
    Dim _UCF_T_Texts[0] as integer = 0
    Dim _UCF_SizeDefault[0] as integer
    Dim _UCF_OldSync[0] as float
    Dim _UCF_NewSync[0] as float
    Dim _UCF_C_NumText[0] as integer = 0
    Dim _UCF_C_Texts[0] as integer = 0
    Dim _UCF_C_OldSync[0] as float
    Dim _UCF_C_NewSync[0] as float
    Dim _UCF_T_Red[0] as integer = 255
    Dim _UCF_T_Green[0] as integer = 255
    Dim _UCF_T_Blue[0] as integer = 255
    Dim _UCF_T_Alpha[0] as integer = 255
    Dim _UCF_T_Size[0] as float

Function _InitText()
    Dim _UCF_T_NumText[0] as integer = 0
    Dim _UCF_T_Texts[0] as integer = 0
    Dim _UCF_SizeDefault[0] as integer
    Dim _UCF_OldSync[0] as float
    Dim _UCF_NewSync[0] as float
    Dim _UCF_C_NumText[0] as integer = 0
    Dim _UCF_C_Texts[0] as integer = 0
    Dim _UCF_C_OldSync[0] as float
    Dim _UCF_C_NewSync[0] as float
    Dim _UCF_T_Red[0] as integer = 255
    Dim _UCF_T_Green[0] as integer = 255
    Dim _UCF_T_Blue[0] as integer = 255
    Dim _UCF_T_Alpha[0] as integer = 255
    Dim _UCF_T_Size[0] as float
Endfunction

Function Text( X#, Y#, txt$ )
    // collect new frames per second
    _UCF_NewSync[0] = ScreenFPS()

    // if a sync has occured then delete all text
    Temp = _UCF_T_NumText[0]
    If _UCF_NewSync[0] <> _UCF_OldSync[0]
        For n = 0 to Temp
            if GetTextExists(_UCF_T_Texts[n]) = 1
                DeleteText(_UCF_T_Texts[n])
                _UCF_T_NumText[0] = _UCF_T_NumText[0] - 1
            endif
        Next n
    Endif

    // increase the number of text objects
    _UCF_T_NumText[0] = _UCF_T_NumText[0] + 1
    Dim _UCF_T_Texts[_UCF_T_NumText[0]] as integer

    // create the text object and set its position
    _UCF_T_Texts[_UCF_T_NumText[0]] = CreateText( txt$ )
    SetTextPosition( _UCF_T_Texts[_UCF_T_NumText[0]], X#, Y# )

    // check which resolution method is being used and adjust the default text accordingly
    If _UCF_SizeDefault[0] = 0
        If GetVirtualWidth() > 100
            SetTextSize(_UCF_T_Texts[_UCF_T_NumText[0]], (4.0 / 100.0) * 480)
        Endif
    Else
        // set the text size if the textsize command has been used
        SetTextSize(_UCF_T_Texts[_UCF_T_NumText[0]], _UCF_T_Size[0])
    Endif

    // Set the text colour according to the ink command
    SetTextColor(_UCF_T_Texts[_UCF_T_NumText[0]], _UCF_T_Red[0], _UCF_T_Green[0], _UCF_T_Blue[0], _UCF_T_Alpha[0])

    // store the frame rate
    _UCF_OldSync[0] = ScreenFPS()
Endfunction

Function CenterText( X#, Y#, txt$ )

    // collect new frames per second
    _UCF_C_NewSync[0] = ScreenFPS()

    // if a sync has occured then delete all text
    Temp = _UCF_C_NumText[0]
    If _UCF_C_NewSync[0] <> _UCF_C_OldSync[0]
        For n = 0 to Temp
            if GetTextExists(_UCF_C_Texts[n]) = 1
                DeleteText(_UCF_C_Texts[n])
                _UCF_C_NumText[0] = _UCF_C_NumText[0] - 1
            endif
        Next n
    Endif

    // increase the number of text objects
    _UCF_C_NumText[0] = _UCF_C_NumText[0] + 1
    Dim _UCF_C_Texts[_UCF_C_NumText[0]] as integer

    // create the text object
    _UCF_C_Texts[_UCF_C_NumText[0]] = CreateText( txt$ )

    // set the default size
    If _UCF_SizeDefault[0] = 0
        If GetVirtualWidth() > 100
            SetTextSize(_UCF_C_Texts[_UCF_C_NumText[0]], (4.0 / 100.0) * 480)
        Endif
    Else
        SetTextSize(_UCF_C_Texts[_UCF_C_NumText[0]], _UCF_T_Size[0])
    Endif

    // set text colour
    SetTextColor(_UCF_C_Texts[_UCF_C_NumText[0]], _UCF_T_Red[0], _UCF_T_Green[0], _UCF_T_Blue[0], _UCF_T_Alpha[0])

    // set the text's position
    SetTextPosition( _UCF_C_Texts[_UCF_C_NumText[0]], X#-(GetTextTotalWidth(_UCF_C_Texts[_UCF_C_NumText[0]]) / 2), Y# )

    // store the frame rate
    _UCF_C_OldSync[0] = ScreenFPS()
Endfunction

Function Ink( red, green, blue, alpha )
    // set the global colour values according to the values passed into this function
    _UCF_T_Red[0] = red
    _UCF_T_Green[0] = green
    _UCF_T_Blue[0] = blue
    _UCF_T_Alpha[0] = alpha

Endfunction

Function TextSize( size# )
    // set the global size values according to the values passed into this function
    _UCF_T_Size[0] = size#
    _UCF_SizeDefault[0] = 1
Endfunction

`######## DRAW COMMANDS by Steven Holding ########
rem usage call the draw_init subroutine before
rem any other code, call the deleteDraw() function
rem after the sync() command. Other commands can
rem then be used to draw a few shapes using
rem temporary sprites

draw_init:
    rem set up some draw constants
    global aspect as float
    aspect = getDisplayAspect()
    #constant pw (1.0/getDeviceWidth())*getVirtualWidth()
    #constant ph (1.0/getDeviceHeight())*getVirtualHeight()
    if pw=1.0 and ph=1.0
        aspect=1.0
    endif
    dim draw[0] as integer
    draw[0] = 0
return

function deleteDraw()
    num = draw[0]
    for i=1 to num
        deleteSprite(draw[i])
    next
    dim draw[0] as integer
    draw[0]=0
endfunction

function drawDot(x as float, y as float, red as float, green as float, blue as float, alpha as float)
    DS = createSprite(0)
    setSpriteDepth(DS,0)
    setSpriteSize(DS,pw,ph)
    setSpriteOffset(DS,0,0)
    setSpritePosition(DS,x,y)
    setSpriteColor(DS,red,green,blue,alpha)
    num = draw[0]+1
    draw[0]=num
    dim draw[num] as integer
    draw[num] = DS
endfunction DS

function drawBox(x as float, y as float, angle as float, width as float, height as float, red as float, green as float, blue as float, alpha as float)
    DS = createSprite(0)
    setSpriteDepth(DS,0)
    setSpriteSize(DS,width,height)
    setSpritePosition(DS,x,y)
    setSpriteAngle(DS,angle)
    setSpriteColor(DS,red,green,blue,alpha)
    num = draw[0]+1
    draw[0]=num
    dim draw[num] as integer
    draw[num] = DS
endfunction DS

function drawBoxCentre(x as float, y as float, angle as float, width as float, height as float, red as float, green as float, blue as float, alpha as float)
    DS = drawBox(x, y, angle, width, height, red, green, blue, alpha)
    setSpriteOffset(DS,width*0.5,height*0.5)
    setSpritePositionByOffset(DS,x,y)
endfunction DS

function drawLine(x1 as float, y1 as float, x2 as float, y2 as float, red as float, green as float, blue as float, alpha as float)
    DS = createSprite(0)
    setSpriteDepth(DS,0)
    dx#=x2-x1
    dy#=(y2-y1)/aspect
    l# = sqrt(dx#*dx#+dy#*dy#)
    setSpriteSize(DS,l#,ph)
    a# = atanfull(dx#,dy#)-90.0
    setSpriteAngle(DS,a#)
    setSpriteOffset(DS,0,ph*0.5)
    setSpritePosition(DS,x1,y1)
    setSpriteColor(DS,red,green,blue,alpha)
    num = draw[0]+1
    draw[0]=num
    dim draw[num] as integer
    draw[num] = DS
endfunction DS

function drawCircle(x as float, y as float, radius as float, red as float, green as float, blue as float, alpha as float)
    num=0
    st# = 8.0/radius
    for c#=0.0 to 360.0 step st#
        num=num+1
        drawDot(x+(radius*sin(c#)),y+(radius*aspect*cos(c#)),red,green,blue,alpha)
    next
endfunction num

function drawFilledCircle(x as float, y as float, radius as float, red as float, green as float, blue as float, alpha as float)
    num=0
    sr# = radius*radius
    for cx# = -radius to radius step pw
        num=num+1
        h# = sqrt(sr#-cx#*cx#)*aspect
        drawBox(x-cx#,y-h#,0,pw,h#*2.0-pw,red,green,blue,alpha)
    next
endfunction num

Global _UCFSwipeRightTime as Float
Global _UCFSwipeRightX as Integer
Global _UCFSwipeLeftTime as Float
Global _UCFSwipeLeftX as Integer

Function GetSwipeRight( t#, s )
    Output = 0
    If GetPointerState() = 0 then _UCFSwipeRightTime = Timer() + t#
    If GetPointerPressed() = 1 then _UCFSwipeRightX = GetPointerX() + s
    If GetPointerState() = 1 and _UCFSwipeRightTime < Timer()
        If _UCFSwipeRightX < GetPointerX()
            _UCFSwipeRightTime = 0
            Output = 1
        EndIf
    EndIf
EndFunction Output

Function GetSwipeLeft( t#, s )
    Output = 0
    If GetPointerState() = 0 then _UCFSwipeLeftTime = Timer() + t#
    If GetPointerPressed() = 1 then _UCFSwipeLeftX = GetPointerX() - s
    If GetPointerState() = 1 and _UCFSwipeLeftTime < Timer()
        If _UCFSwipeLeftX > GetPointerX()
            _UCFSwipeLeftTime = 0
            Output = 1
        EndIf
    EndIf
EndFunction Output

Global _UCFSwipeRightTime as Float
Global _UCFSwipeRightX as Integer
Global _UCFSwipeLeftTime as Float
Global _UCFSwipeLeftX as Integer

SetVirtualResolution( 600, 1024 )
SetDisplayAspect( 600 / 1024 )

do
    If GetSwipeRight( 0.1, 30 ) = 1 then Flag$ = "You Swiped Right"
    If GetSwipeLeft( 0.1, 30 ) = 1 then Flag$ = "You Swiped Left"
    If GetRawKeyPressed( 27 ) = 1 then END
    Print(Flag$)
 Sync()
loop

Function GetSwipeRight( t#, s )
    Output = 0
    If GetPointerState() = 0 then _UCFSwipeRightTime = Timer() + t#
    If GetPointerPressed() = 1 then _UCFSwipeRightX = GetPointerX() + s
    If GetPointerState() = 1 and _UCFSwipeRightTime < Timer()
        If _UCFSwipeRightX < GetPointerX()
            _UCFSwipeRightTime = 0
            Output = 1
        EndIf
    EndIf
EndFunction Output

Function GetSwipeLeft( t#, s )
    Output = 0
    If GetPointerState() = 0 then _UCFSwipeLeftTime = Timer() + t#
    If GetPointerPressed() = 1 then _UCFSwipeLeftX = GetPointerX() - s
    If GetPointerState() = 1 and _UCFSwipeLeftTime < Timer()
        If _UCFSwipeLeftX > GetPointerX()
            _UCFSwipeLeftTime = 0
            Output = 1
        EndIf
    EndIf
EndFunction Output