Sorry your browser is not supported!

make object cube 1,4
make mesh from object 1,1
make object box 2,3,3,8
add limb 2,1,1

position camera object position x(1)-10,object position y(1)-10,object position z(1)-10
point camera object position x(1),object position y(1),object position z(1)

do

if mouseclick()=1 then rotate object 1,object angle x(1)+0.1,object angle y(1)-0.1,object angle z(1)+0.1
if mouseclick()=2 then rotate object 2,object angle x(2)+0.1,object angle y(2)-0.1,object angle z(2)+0.1

loop

dim obj(250)
n=2

rem The settings
make object cube 1,3
position camera object position x(1),object position y(1)+10,object position z(1)
point camera object position x(1),object position x(1),object position x(1)
position object 1,0,0,0

rem Create the mesh
make mesh from object 1,1

rem Delete the object
delete object 1

rem Main loop
do

rem Subrutines
gosub place

loop


place:

rem Make the object that I want to place
if keystate(2)=1
  placeobj$="Cube"
  
  rem THIS IS THE PART THAT DOESENT WORK!!!!!!!!!
  rem IT COMPLAINS THAT THE OBJECT ALREADY EXISTS!!!!!
  make object cube n,2

  ghost object on n

endif

inc movex#,mousemovex()
if movex#>10 then movex#=10
if movex#<-10 then movex#=-10

inc movez#,mousemovey()
if movez#>10 then movez#=10
if movez#<-10 then movez#=-10

inc posx,movex#
inc posz,movez#

if placeobj$<>""
  position object n,object position x(n)+posx#,object position y(n),object position z(n)+posz#
  if mouseclick()=1
    placeobj$=""
    add limb n,limbnr,1
    inc limbnr,1
    inc n,1
  endif
endif

return