CLEO NOSOURCE Thread Cursor wait 2000 var float float end 31 Render Cr

 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
{$CLEO}
{$NOSOURCE}
Thread "Cursor"
wait 2000
var
1@:float
2@:float
end
31@ = Render.CreateFont("Tahoma", 12, 13)
alloc 30@ 64
While True
wait 0
if key 106
then
repeat
wait 0
until not key 106
xor 0@ 0@ 1
if 0@ == 1
then
0B8D: samp set_cursor_mode true
0B5D: samp toggle_cursor true
0B5E: get_cursor_pos 1@ 2@
0ad3: 30@ = "X = %f; Y = %f" 1@ 2@
Render.DrawText(31@, 30@, 1@, 2@, 0xFFFFFFFF)
else
0B8D: samp set_cursor_mode false
0B5D: samp toggle_cursor false
end
end
end