From 82cbb6c73a4a8a1c8979f6eb5e3846f451b2f6d5 Mon Sep 17 00:00:00 2001
From: arc1tec4 <arc1tec4@gmail.com>
Date: Wed, 11 Dec 2024 14:31:54 -0700
Subject: [PATCH] Add files via upload

---
 doc/files/setspritevisible.txt | 41 +++++++++++++++++++++++++--
 doc/files/setspritez.txt       | 51 ++++++++++++++++++++++++++++++++++
 2 files changed, 89 insertions(+), 3 deletions(-)

diff --git a/doc/files/setspritevisible.txt b/doc/files/setspritevisible.txt
index 1c6b8b5..ee5e2c6 100644
--- a/doc/files/setspritevisible.txt
+++ b/doc/files/setspritevisible.txt
@@ -1,6 +1,41 @@
 #title SetSpriteVisible [RCBasic Doc]
-#header Sub SetSpriteVisible(sprite, flag)
+#header Function SetSpriteVisible(sprite, flag)
 
-Sets whether the sprite is visible
+Set the sprite visible with the flAG
 
-#ref SpriteIsVisible
+#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)
+
+While Not Key(K_ESCAPE)
+	If Timer() - spriteTimer > spriteTimerDiff Then
+		SetSpriteVisible(eyeSprite, 0)								'Set sprite visible flag to 0 or false and it will become not visible
+		Print ("Function Called")
+	End If
+	Update()
+Wend
+#/code
+
+#image "images/theEye.png"
+
+#ref SetSpriteVisible
diff --git a/doc/files/setspritez.txt b/doc/files/setspritez.txt
index 89c35e5..95ed333 100644
--- a/doc/files/setspritez.txt
+++ b/doc/files/setspritez.txt
@@ -5,5 +5,56 @@ Sets the drawing priority for sprites.
 
 Note: Sprites with a higher Z order are drawn first and those with lower values will be drawn on top
 
+#code
+isFullScreen = false
+vSync = true
+winWidth = 640
+winHeight = 480
+canViewPortX = 0
+canViewPortY = 0
+
+OpenWindow("ScaleSprite", winWidth, winHeight, isFullScreen, vSync)
+sCanvas = OpenCanvasSpriteLayer(canViewPortX, canViewPortY, winWidth, winHeight)
+Canvas(sCanvas)
+
+DIM eye
+DIM eyeW
+DIM eyeH
+DIM sword
+DIM swordW
+DIM swordH
+ReleaseKey = 0
+
+eye = LoadImage("theEye.png")
+GetImageSize(eye, eyeW, eyeH)
+
+sword = LoadImage("sword.png")
+GetImageSize(sword, swordW, swordH)
+
+eyeSprite = CreateSprite(eye, eyeW, eyeH)
+SetSpritePosition(eyeSprite, 100, 100)
+SetSpriteZ(eyeSprite, 1)
+
+swordSprite = CreateSprite(sword, swordW, swordH)
+SetSpritePosition(swordSprite, 89, 75)
+SetSpriteZ(swordSprite, 5)
+
+While Not Key(K_ESCAPE)
+
+If Key(K_SPACE) And ReleaseKey = 0 Then
+	SetSpriteZ(eyeSprite, 10)							'This will cause the eye to be drawn behind the sword
+	ReleaseKey = 1
+ElseIf Not Key(K_UP) And Not Key(K_DOWN) And ReleaseKey = 1 then
+	ReleaseKey = 0
+End If
+
+Update()
+Wend
+#/code
+
+#image "images/theEye.png"
+
+#image "images/sword.png"
+
 #ref SpriteZ