Returns the Y position of a sprite on a canvas
isFullScreen = false
vSync = true
winWidth = 640
winHeight = 480
canViewPortX = 0
canViewPortY = 0
OpenWindow("SpriteY", winWidth, winHeight, isFullScreen, vSync)
pCanvas = OpenCanvas(200, 80, 0, 0, 200, 80, 1) 'Need to open a canvas for drawing the text
sCanvas = OpenCanvasSpriteLayer(canViewPortX, canViewPortY, winWidth, winHeight)
Canvas(sCanvas)
DIM font1
Font1 = LoadFont("DripOctober.ttf", 16)
SetFont(Font1)
SetColor(RGB(100, 200, 200))
DIM eye
DIM eyeW
DIM eyeH
DIM eyeY 'Variables to pass into the function for holding the y value
eyeSpriteX = 100
eyeSpriteY = 100
destY = 0
eye = LoadImage("theEye.png")
GetImageSize(eye, eyeW, eyeH)
eyeSprite = CreateSprite(eye, eyeW, eyeH)
SetSpritePosition(eyeSprite, eyeSpriteX, eyeSpriteY)
While Not Key(K_ESCAPE)
clearcanvas()
Canvas(sCanvas) 'change to the sprite canvas for drawing sprites
If SpriteY(eyeSprite) < 450 And destY = 0 Then
SetSpritePosition(eyeSprite, eyeSpriteX, eyeSpriteY)
eyeSpriteY = eyeSpriteY + 0.5
ElseIf SpriteY(eyeSprite) >= 440 And destY = 0 Then
destY = 1
End If
If destY = 1 Then
SetSpritePosition(eyeSprite, eyeSpriteX, eyeSpriteY)
eyeSpriteY = eyeSpriteY - 0.5
End If
Canvas(pCanvas)
eyeY = SpriteY(eyeSprite) 'change to the standard drawing canvas for drawing text
DrawText("Sprite Y: " + STR$(eyeY), 10, 30)
Update()
Wend
Link to Font (It's locally on your computer, your not downloading anything from the internet)
Related: SpriteX SetSpritePosition GetSpritePosition SpriteX