Click above to get retro games delivered to your door ever month!

 mousecol()          Return current mouse cursor column
------------------------------------------------------------------------------
 Declaration
   mouse.hdr

 Syntax
   func uint mousecol extern

 Arguments
   None.

 Return
   Column position of the mouse cursor.

 Description
   The mouseactcol() returns the column of the current mouse cursor location.

 Example
   #define EXAMPLE_MOUSE
   #include example.hdr

   proc Test_mousecol
   vardef
      uint uRow, uCol
   enddef
   if mouseavail()
      uRow := 1000
      uCol := 1000
      clear
      cursor( .f. )
      @ 0, 0 ?? "Move the mouse, finish with Esc"
      @ 2, 0 ?? "Mouse row is"
      @ 3, 0 ?? "Mouse column is"
      mouseon()
      do while inkey() != K_ESC
         if mouserow() != uRow
            uRow := mouserow()
            @ 2, 20 ?? uRow
         endif
         if mousecol() != uCol
            uCol := mousecol()
            @ 3, 20 ?? uCol
         endif
      enddo
      mouseoff()
   else
      ? "Mouse is not available"
   endif
   endproc

   proc main
   Test_mousecol()
   endproc