70 lines
1.8 KiB
Plaintext
70 lines
1.8 KiB
Plaintext
#title SpriteY [RCBasic Doc]
|
|
#header Function SpriteY(sprite)
|
|
|
|
Returns the Y position of a sprite on a canvas
|
|
|
|
#code
|
|
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
|
|
#/code
|
|
|
|
#image "images/theEye.png"
|
|
|
|
<br>
|
|
<a href="../doc_files/images/DripOctober.ttf">Link to Font (It's locally on your computer, your not downloading anything from the internet)</a>
|
|
<br>
|
|
|
|
#ref SpriteX SetSpritePosition GetSpritePosition SpriteX
|
|
|