1
+ i = 0
2
+
3
+ function Initialize ()
4
+
5
+ batteryPercentMeasure = SKIN :GetMeasure (' MeasureBatteryPercent' )
6
+ batteryStatusMeasure = SKIN :GetMeasure (' MeasureBatteryState' )
7
+
8
+ end
9
+
10
+ function Update ()
11
+
12
+ btPercent = batteryPercentMeasure :GetValue ()
13
+ btStatus = batteryStatusMeasure :GetValue ()
14
+
15
+ if btStatus == 0 then
16
+
17
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "0"' )
18
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "0"' )
19
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "0"' )
20
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "0"' )
21
+
22
+ else
23
+
24
+ if btPercent > 75 then
25
+
26
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "255"' )
27
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "255"' )
28
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "255"' )
29
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "255"' )
30
+
31
+ else
32
+
33
+ if btPercent > 50 then
34
+
35
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "255"' )
36
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "255"' )
37
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "255"' )
38
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "0"' )
39
+
40
+ else
41
+
42
+ if btPercent > 25 then
43
+
44
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "255"' )
45
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "255"' )
46
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "0"' )
47
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "0"' )
48
+
49
+ else
50
+
51
+ if btPercent > 10 then
52
+
53
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "255"' )
54
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "0"' )
55
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "0"' )
56
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "0"' )
57
+
58
+ else
59
+
60
+
61
+
62
+ end
63
+
64
+ end
65
+
66
+ end
67
+
68
+ end
69
+
70
+
71
+ end
72
+
73
+ SKIN :Bang (' !SetOption MeterNoBattery ImageAlpha "0"' )
74
+ SKIN :Bang (' !SetOption MeterCharging ImageAlpha "0"' )
75
+
76
+ if btStatus == 1 then
77
+
78
+ SKIN :Bang (' !SetOption MeterCharging ImageAlpha ' )
79
+
80
+ if i == 0 then
81
+
82
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "0"' )
83
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "0"' )
84
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "0"' )
85
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "0"' )
86
+
87
+ else
88
+
89
+ if i == 1 then
90
+
91
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "255"' )
92
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "0"' )
93
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "0"' )
94
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "0"' )
95
+
96
+ else
97
+
98
+ if i == 2 then
99
+
100
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "255"' )
101
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "255"' )
102
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "0"' )
103
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "0"' )
104
+
105
+ else
106
+
107
+ if i == 3 then
108
+
109
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "255"' )
110
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "255"' )
111
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "255"' )
112
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "0"' )
113
+
114
+ else
115
+
116
+ if i == 4 then
117
+
118
+ SKIN :Bang (' !SetOption MeterBatteryFirstBar ImageAlpha "255"' )
119
+ SKIN :Bang (' !SetOption MeterBatterySecondBar ImageAlpha "255"' )
120
+ SKIN :Bang (' !SetOption MeterBatteryThirdBar ImageAlpha "255"' )
121
+ SKIN :Bang (' !SetOption MeterBatteryFourthBar ImageAlpha "255"' )
122
+
123
+ end
124
+
125
+ end
126
+
127
+ end
128
+
129
+ end
130
+
131
+ end
132
+
133
+
134
+ i = i + 1
135
+ if i == 5 then
136
+ i = 0
137
+ end
138
+
139
+ else
140
+
141
+ if btStatus == 0 then
142
+
143
+ SKIN :Bang (' !SetOption MeterNoBattery ImageAlpha "255"' )
144
+
145
+ end
146
+
147
+ end
148
+
149
+ return " "
150
+ end
0 commit comments