I'm using the OptionsMenu (F12) to change the ball decal... and it does change BUT if I try to set it to -no decal-, its not removing the decal. On the table itself, decal is set to "none" and mode is turned off.
thx for the help!
code to set Decal...
Select Case BallDecal
Case 0: CustomBallLogoMode = False :CustomBallDecal = "" ' turn off logo mode
Case 1: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_tron"
Case 2: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_stripe-v"
Case 3: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_stripe-h"
Case 4: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_watermelon"
Case 5: CustomBallLogoMode = True : CustomBallDecal = "ball_OrangeFuture"
Case 6: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_football2"
Case 7: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_fireball"
Case 8: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_fireball2"
Case 9: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_fireball3"
Case 10: CustomBallLogoMode = True : CustomBallDecal = "ball_decal_Cricket"
Case 11: CustomBallLogoMode = True : CustomBallDecal = "ball_Black_shattered"
Case 12: CustomBallLogoMode = True : CustomBallDecal = "ball_Blue_water"
Case 13: CustomBallLogoMode = True : CustomBallDecal = "ball_Blue_fire"
End Select
** below Sub is called directly after the Select runs...
Sub CustomBall_Init ' === define ball from User Settings ===
dim x
For each x in GetBalls
x.Image = CustomBallImage
x.FrontDecal = CustomBallDecal
x.DecalMode = CustomBallLogoMode
Next
table1.BallImage = CustomBallImage
table1.DefaultBulbIntensityScale = CustomBulbIntensity
table1.BallFrontDecal = CustomBallDecal
table1.BallDecalMode = CustomBallLogoMode
End Sub