Sorry your browser is not supported!

 ink rgb(150,150,150),0
box 0,0,100,480

ink rgb(100,100,100),0
box 20,2,40,20 :box 20,30,40,48:box 20,60,40,78: box 20,90,90,110

ink rgb(255,255,0),0
set cursor 0,0
print " X"
print
print " Y"
print
print " Z"
print
print "    MAKE "

autocam off
sync on
set camera view 100,0,640,480
rem dumy
make object box 1000,0,0,0

XV=1
YV=1
ZV=1

position camera -50,50,-50
point camera 0,0,0


rem initial object
ob=1
do
ink rgb(150,150,150),0
box 50,0,90,80
ink rgb(255,0,0),0
set cursor 0,0
print "       ",xv
print
print "       ",yv
print
print "       ",zv


rem X value  #########################################################
if mousex()>20 and mousex()<38 and mousey()>1 and mousey()<18
  if mouseclick()=1
    v=v+1
    if v=2 then xv=xv+1
    else
    v=0
  endif
endif

rem y value ##########################################################
if mousex()>20 and mousex()<38 and mousey()>29 and mousey()<45
  if mouseclick()=1
    v2=v2+1
    if v2=2 then yv=yv+1
    else
    v2=0
  endif
endif

rem z value ##########################################################
if mousex()>20 and mousex()<38 and mousey()>59 and mousey()<75
  if mouseclick()=1
    v3=v3+1
    if v3=2 then zv=zv+1
    else
    v3=0
  endif
endif


rem MAKING OBJECT CUBE ################################################
if mousex()>20 and mousex()<98 and mousey()>89 and mousey()<107
   if mouseclick()=1
      m=m+1
      if m=2
         make object box ob,xv,yv,zv
         position object ob,rnd(30),0,rnd(30)
         color object ob,rgb(rnd(255),rnd(255),rnd(255))
         inc ob
         xv=1:yv=1:zv=1
      endif
      else
      m=0
   endif
endif

sync
loop

if object exist(<object nr>) = 1

// Your object exists
` Put your code here


else

// Your object does not exist
` Put your code here

endif

function objmode()
   `Load AX O,X,Y
    load object "Media Packs\Models\System\xaxis.3ds",70000,1,0
    hide object 70000
    
    `Declaring Variables
    `cbe = 65538
    cbe = cbe + 1 \\THIS IS THE CODE <----
    
    
    Global OldPress = 0
    Global NewPress = 0
    
    do
      
         `Object Placing Brush
         if object exist(65538) = 1
             delete object 65538
ENDIF
         
         `Status FPS
         text 10,5,"" + str$(screen fps())
         
         `Text for mode information
          center text 300,50,"OBJ MODE"
          
         `Functions
         camerasetup()
         camstat()
         
         
         `Non Functions
         OldPress = NewPress : NewPress = keystate(2)
         
         `When input is detected place cube
                if NewPress = 0 ANd OldPress = 1 :
              inc cbe
         make object cube cbe,25
         position object cbe,camera position x(0),5,camera position z(0)
         show object 70000
         endif   
            
         
         if object exist (cbe) = 1
         `Functions inside object exist
         objectposition(cbe)
         
         
         `Attach Axe O,X,Y,Z
         x#=object position x (cbe)
z#=object position z (cbe) + 100
position object 70000,x# -6,-5,z# - 46
move object left 70000,1
set object to object orientation 70000,cbe,1
endif


       `Random Bug Fix
         if keystate(2) = 0
ENDIF
   
   `PROBLEM!!!
   `Move object up and down
   if keystate(201) = 1
   yup# = yup# + 0.1
   inc yup#
   move object up cbe,yup#
   endif
   
   if keystate(209) = 1
   yup# = yup# - 0.5
   dec yup#
   move object down cbe,yup#
   endif
   
   
   if object exist (cbe) = 1
   `Functions inside object exist
   
   `Delete cube
    if keystate(211) = 1
      delete object cbe
     hide object 70000
     endif
     
        `Exit Object Mode
        if escapekey() = 1
        delete object 70000
           exit
        endif
        
        `Confirm Modifications
        if keystate(28) = 1
      make object cube 2,25
      delete object 2
ENDIF

`Manipulate object
if object exist(cbe) = 1
    if leftkey() = 1 then move object left cbe,5
    if rightkey() = 1 then move object right cbe,5
    if upkey() = 1
      x = object position x (cbe)
    y = object position y (cbe)
    z = object position z (cbe)
    z = z + 10
    position object cbe,x,y,z
    endif
    if downkey() = 1
     x = object position x (cbe)
    y = object position y (cbe)
    z = object position z (cbe)
    z = z - 10
    position object cbe,x,y,z
    endif
ENDIF
EndIf

if object exist(cbe) = 1
yrotcbe# = object angle y(cbe) + 5

if keystate(19) = 1
    rotate object cbe,0,yrotcbe#,0
ENDIF

endif

if keystate(1) = 1
    exit
ENDIF

sync
LOOP
    
ENDFUNCTION

function objectposition(cbe)
    x# = object position x(cbe)
    y# = object position y(cbe)
    z# = object position z(cbe)
    
    text 10,80, "X: " + str$(x#)
    text 10,100, "Y: " + str$(y#)
    text 10,120, "Z: " + str$(z#)
ENDFUNCTION