51 lines
1.0 KiB
Plaintext
51 lines
1.0 KiB
Plaintext
#title SpriteIsVisible [RCBasic Doc]
|
|
#header Function SpriteIsVisible(sprite)
|
|
|
|
Returns whether the sprite is visible
|
|
|
|
#code
|
|
isFullScreen = false
|
|
vSync = true
|
|
winWidth = 640
|
|
winHeight = 480
|
|
canViewPortX = 0
|
|
canViewPortY = 0
|
|
|
|
OpenWindow("SetSpriteVisible", winWidth, winHeight, isFullScreen, vSync)
|
|
sCanvas = OpenCanvasSpriteLayer(canViewPortX, canViewPortY, winWidth, winHeight)
|
|
Canvas(sCanvas)
|
|
|
|
DIM eye
|
|
DIM eyeW
|
|
DIM eyeH
|
|
DIM spriteTimer : spriteTimer = Timer()
|
|
DIM spriteTimerDiff : spriteTimerDiff = 2000
|
|
|
|
eye = LoadImage("theEye.png")
|
|
GetImageSize(eye, eyeW, eyeH)
|
|
|
|
eyeSprite = CreateSprite(eye, eyeW, eyeH)
|
|
SetSpritePosition(eyeSprite, 100, 100)
|
|
SetSpriteVisible(eyeSprite, 0) 'Set the flag to 0 for not visible
|
|
|
|
|
|
While Not Key(K_ESCAPE)
|
|
If Timer() - spriteTimer > spriteTimerDiff Then
|
|
SetSpriteVisible(eyeSprite, 1)
|
|
Print ("Function Called")
|
|
End If
|
|
|
|
If SpriteIsVisible(eyeSprite) Then
|
|
Print ("Sprite is Visible")
|
|
else
|
|
Print ("Sprite is not visible")
|
|
End If
|
|
Update()
|
|
Wend
|
|
#/code
|
|
|
|
#image "images/theEye.png"
|
|
|
|
#ref SetSpriteVisible
|
|
|