Sorry your browser is not supported!

Make Object Cube 1,10

Do
If MouseClick() = 1 Then PositionObjectWithMouse(Pick Object(MouseX(),MouseY(),1,10))
Sync : Loop

Function PositionObjectWithMouse(Obj)

       ` Validate Entry
         If Obj <= 0 Then ExitFunction 0
         If Object Exist(Obj) = 0 Then ExitFunction 0

       ` Prepare
         Hide Mouse
         Temp = MouseMoveX()
         Temp = MouseMoveY()
         Temp = MouseMoveZ()

       ` Move Object
         Repeat
         xAng# = Object Angle X(Obj)
         yAng# = Object Angle Y(Obj)
         zAng# = Object Angle Z(Obj)
         Rotate Object Obj,Camera Angle X(0),Camera Angle Y(0),Camera Angle Z(0)
         xVal = MouseMoveX() : If xVal <> 0 Then Move Object Right Obj, xVal
         yVal = MouseMoveY() : If yVal <> 0 Then Move Object       Obj,-yVal
         zVal = MouseMoveZ() : If zVal <> 0 Then Move Object Up    Obj, zVal/10
         Rotate Object Obj,xAng#,yAng#,zAng# 

       ` Exit Requirements
         If MouseClick() = 0 Then ExitVal = 1

       ` End Loop
         Sync : Until ExitVal = 1
         Show Mouse

EndFunction 1

Rem Project: clickdrag
Rem Created: Wednesday, December 01, 2010

Rem ***** Main Source File *****

Sync on

Make Object Cube 1,10

make object sphere 2,10

make object cone 3,10

position object 2,object size x(1)*2,1,object position z(1)

position object 3,object size x(2)*4,1,object position z(1)

do
move camera (upkey()-downkey())*1
turn camera left (leftkey()-rightkey())*1
If X Left Mouse(1) Then PositionObjectWithMouse(Pick Object(MouseX(),MouseY(),1,1000000))
sync
loop

Function PositionObjectWithMouse(Obj)

       ` Validate Entry
         If Obj <= 0 Then ExitFunction 0
         If Object Exist(Obj) = 0 Then ExitFunction 0

       ` Prepare
         Hide Mouse
         Temp = MouseMoveX()
         Temp = MouseMoveY()
         Temp = MouseMoveZ()

       ` Move Object
         Repeat
         xAng# = Object Angle X(Obj)
         yAng# = Object Angle Y(Obj)
         zAng# = Object Angle Z(Obj)
         Rotate Object Obj,Camera Angle X(0),Camera Angle Y(0),Camera Angle Z(0)
         xVal = MouseMoveX() : If xVal <> 0 Then Move Object Right Obj, xVal
         yVal = MouseMoveY() : If yVal <> 0 Then Move Object       Obj,-yVal
         zVal = MouseMoveZ() : If zVal <> 0 Then Move Object Up    Obj, zVal/10
         Rotate Object Obj,xAng#,yAng#,zAng# 

       ` Exit Requirements
         If MouseClick() = 0 Then ExitVal = 1

       ` End Loop
         Sync
         Until ExitVal = 1
         Show Mouse

EndFunction 1

Rem Project: pickobject
Rem Created: Thursday, December 02, 2010

Rem ***** Main Source File *****
sync on
sync rate 60
autocam on
make object plain 1,500,1000
position object 1,0,0,0
xrotate object 1,90
color object 1,rgb(255,0,20)
`hide object 1
count=1
autocam off
set camera range 0,10,5000


do
    text 0,0,"Object pos"+str$(nx#)+","+str$(nz#)
    
    if mouseclick()=1 and rep=0
    inc count
    rep=1
    `show object 1
        clicked=PICK OBJECT(mousex(),mousey(),1,1)
        nx#=GET PICK VECTOR X()+camera position x() 
        nz#=GET PICK VECTOR z()+camera position z()
    
        make object cube count,10
        position object count,nx#,0,nz#
    `hide object 1
    endif
    
    if mouseclick()=0
        rep=0
    ENDIF
    
    control camera using arrowkeys 0,1,1
    
    sync
loop