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

{$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