Bitteschön!
In Deinem Code müsste es dann wohl heißen:
Code (glbasic) Select
GLOBAL x#=100
GLOBAL y#=100
GLOBAL angle#=0
GLOBAL speed#=2
GLOBAL mx#,my#,b1,b2
SETSCREEN 640,480,0
WHILE TRUE
PRINT mx,10,10
PRINT my,10,20
LimitMouse()
DRAWRECT mx,my,32,32,RGB(255,0,0) // Mouse#
DRAWRECT x,y,32,32,RGB(255,255,255) // Object
MoveObjectToMouse()
SHOWSCREEN
WEND
FUNCTION LimitMouse:
MOUSESTATE mx, my,b1, b2
IF mx<0 THEN mx=0
IF mx>640-32 THEN mx=640-32
IF my<0 THEN my=0
IF my>480-32 THEN my=480-32
SETMOUSE mx, my
ENDFUNCTION
FUNCTION MoveObjectToMouse:
angle = ATAN(my - y, mx - x)
x=x+COS(angle)*speed
y=y+SIN(angle)*speed
ENDFUNCTION
In Deinem Code müsste es dann wohl heißen:
Code (glbasic) Select
phi = ATAN(mouse_y - pos_y, mouse_x - pos_x)