@maicl:
This moves the cube towards the circle, but not the camera:
SET DISPLAY MODE 1024,768,32
SYNC ON
SYNC RATE 0
AUTOCAM OFF
HIDE MOUSE
MAKE OBJECT CUBE 1,10
POSITION OBJECT 1,0,0,0
MAKE OBJECT SPHERE 2,2
HIDE OBJECT 2
POSITION CAMERA 0,100,250
POINT CAMERA 0,0,0
MAKE MATRIX 1,500,500,10,10
POSITION MATRIX 1,-250,0,250
UPDATE MATRIX 1
DO
INK RGB(255,255,255),0
X# = OBJECT POSITION X(2)
Y# = OBJECT POSITION Y(2)
Z# = OBJECT POSITION Z(2)
ANGLE# = OBJECT ANGLE Y(2)
SET CAMERA TO FOLLOW 0,X#,Y#,Z#,ANGLE#,60,200,15,1
OBJANGLE# = WRAPVALUE(ATANFULL(OBJECT SCREEN X(1) - MOUSEX(),OBJECT SCREEN Y(1) - MOUSEY()))
YROTATE OBJECT 1,-OBJANGLE#
IF RIGHTKEY() THEN YROTATE OBJECT 1,ANGLE#+0.5
IF LEFTKEY() THEN YROTATE OBJECT 1,ANGLE#-0.5
IF UPKEY()= 1 THEN SPEED = 1 ELSE SPEED = 0
IF DOWNKEY() = 1 THEN SPEED = -1 ELSE IF SPEED <> 1 THEN SPEED = 0
MOVE OBJECT 1,SPEED
LINE MOUSEX(),MOUSEY(),OBJECT SCREEN X(1),OBJECT SCREEN Y(1)
INK RGB(255,0,0),0
CIRCLE MOUSEX(),MOUSEY(),10
SYNC
TEXT 10,10,STR$(SPEED)
LOOP
Did this help?
Cheers
Slayer rules!!! Yeaaah, man!
