CLEO 0000 0662 by legend2360 0662 BlastHack cheating is art while not

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
{$CLEO}
0000:
0662: "by legend2360"
0662: "BlastHack - cheating is art"
while not SAMP.Available()
wait 400
end
reg_cmd "draw_bar" @cmd
while true
wait 0
if 30@ == 1
then call @draw_bar 5 size_xy 2@ 3@ value 4@ max_value 6@ color 5@
end
end
:cmd
if 30@ == 0
then
2@ = -1
3@ = -1
4@ = -1
5@ = -1
6@ = -1
gcp 0@
if 0AD4: 1@ = scan_string 0@ format "%d %d %d 0x%x %d" 2@ 3@ 4@ 5@ 6@
then
chat "box size X = %d, Y = %d, value = %d, color = {%x}this, {ffffff}max. value = %d" -1 2@ 3@ 4@ 5@ 6@
30@ = 1
else chat "error: {ffffff}box size X = %d, Y = %d, value = %d, color = {%x}this, {ffffff}max. value = %d" 0xff0000 2@ 3@ 4@ 5@ 6@
end
else 30@ = 0
end
cmdret
:draw_bar
// call @draw_bar 5 size_xy 0@ 1@ value 2@ max_value 3@ color 4@
var
0@ : int
1@ : int
2@ : int
3@ : int
4@ : int
end
3@ /= 0@
2@ *= 3@
0B66: render argb 4@ to_a 7@ r 8@ g 8@ b 9@
0B67: render a 0xff r 7@ g 8@ b 9@ to_argb 4@
0B60: convert_game_screen_coords 320.0 224.0 to_window_screen_coords 5@ 6@
0B6A: render draw_box_with_border_pos 5@ 6@ size 0@ 1@ color 0xff323232 border_size 1 border_color 0xff000000
0B6A: render draw_box_with_border_pos 5@ 6@ size 2@ 1@ color 4@ border_size 1 border_color 0x00000000
ret 0