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