Live Update is enabled..
dim PicObj as xpBaseObject
dim PicMat as xpMaterial
dim PicShad as xpBaseShader
dim BallOn as String
dim BallOff as String
'File Paths Below
BallOn = Engine.ProjectPath & "Scorebug" & "BAL1.png"
BallOff = Engine.ProjectPath & "Scorebug" & "BAL0.png"
' Process Balls
Select Case Self.text
Case "1"
Scene.GetObjectByName("Ball 1", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOn)
Scene.GetObjectByName("Ball 2", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOff)
Scene.GetObjectByName("Ball 3", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOff)
Case "2"
Scene.GetObjectByName("Ball 1", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOn)
Scene.GetObjectByName("Ball 2", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOn)
Scene.GetObjectByName("Ball 3", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOff)
Case "3"
Scene.GetObjectByName("Ball 1", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOn)
Scene.GetObjectByName("Ball 2", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOn)
Scene.GetObjectByName("Ball 3", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOn)
Case Else
Scene.GetObjectByName("Ball 1", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOff)
Scene.GetObjectByName("Ball 2", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOff)
Scene.GetObjectByName("Ball 3", PicObj)
PicObj.GetMaterial(0, PicMat)
PicMat.GetShader(0, PicShad)
PicShad.SetFileName(BallOff)
End Select
#XPression