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

OBJ_MOVPNT()                                               C_EXAM11,C_DEMO
   Moves the nearest point of an object with mouse control.

   Syntax
         nIndex = OBJ_MOVPNT(nIndex)

   Arguments
         nIndex      Number of object containing point to be moved.

   Returns
         nIndex      Returns the object number if successful, a 0 if there was
                     no object with that number or the move was cancelled, or
                     a negative of the object number if it overlaps another
                     object.

   Description
         OBJ_MOVPNT() looks for an object and, if it finds one, moves the
         mouse cursor to the nearest point on the object. The object's point
         will follow the mouse until the left mouse button is pressed.
         Clicking the right mouse button will snap the cursor to the nearest
         hot point or grid marker.

   Examples

         Moves nearest point under mouse control

         DO WHILE .T.
            KEY_PRESS()
            IF KP_MSTATE(2) = 1
               IF OBJ_HOTPNT() > 0
                  OBJ_MOVPNT(KP_ITEM_NO())
                  EXIT
               ENDIF
            ENDIF
         ENDDO