Hello,
I have an status bar which is done by Textobjects,
but display is destroyed when changes are submitted, as it is not cleared correctly. this is the responsible code:
Code: Select all
Function p_StatusBarUpdate()
Undo(#Textobject,6)
Undo(#Textobject,7)
Undo(#Textobject,8)
FreeTextObject(6)
FreeTextObject(7)
FreeTextObject(8)
Switch shootonscreen
Case 0:
Undo(#Brush,4)
FreeBrush(4)
CreateBrush(4,150,Height-18-350,#green)
MixBrush(4,5,"0%")
Case 5:
Undo(#Brush,4)
FreeBrush(4)
CreateBrush(4,150,Height-18-350,#green)
MixBrush(4,5,"25%")
Case 10:
Undo(#Brush,4)
FreeBrush(4)
CreateBrush(4,150,Height-18-350,#green)
MixBrush(4,5,"50%")
Case 15:
Undo(#Brush,4)
FreeBrush(4)
CreateBrush(4,150,Height-18-350,#green)
MixBrush(4,5,"75%")
Case 20:
MixBrush(4,5,"100%")
EndSwitch
DisplayBrush(4,RBorder,#Bottom)
CreateTextObject(6,Lives)
CreateTextObject(7,CurrentLevel)
CreateTextObject(8,Score)
DisplayTextObject(6,RBorder,68)
DisplayTextObject(7,RBorder,168)
DisplayTextObject(8,RBorder,268)
EndFunction