Object Exist - GameCreators Forum

Author

Message

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 31st Dec 2013 14:57

Link

Hello Community!

Does anyone know how can i do the following thing:

I want to make multiple lets say cubes by tapping the number "1" button. I know that i must increase(inc) the object. But i can't manage to operate the name assigned to inc (inc cbe) to object exist...
If object exist cbe then...bla bla...
It gives me an error...

Really appreciate all the previous answers and help and the current help!

Thank You!

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 31st Dec 2013 16:10 Edited at: 31st Dec 2013 16:14

Link

???

+ Code Snippet

DO
if inkey$()="1"
inc CubeTotal
if object exist(CubeTotal)=0 then make object cube CubeTotal,rnd(9)+1:set object wireframe CubeTotal,1
while inkey$()="1":ENDWHILE
ENDIF
set cursor 0,0:print "Total Cubes: ";CubeTotal
print
print "Press '1' to add a cube"
LOOP

D.D.

Back to top

Profile PM

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 31st Dec 2013 16:53

Link

Thanks for the response but i don't seem to get pass the error object illegal. Here's my code

+ Code Snippet

 if keystate(2) = 1
         inc cbe
         make object cube cbe,25
         `set object cbe,1,50,1,0,1
         show object 50
         endif
         
         if object exist(cbe) = 1
         `Functions inside object exist
         objectposition()

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 31st Dec 2013 17:29 Edited at: 31st Dec 2013 17:32

Link

Why do you have SHOW OBJECT 50?

I think that's the problem.... this would be called before there was an object number 50.

D.D.

Back to top

Profile PM

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 31st Dec 2013 19:04

Link

Sorry Derek Darkly...This was not the problem...

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 31st Dec 2013 22:48 Edited at: 31st Dec 2013 22:50

Link

Quote: "Sorry Derek Darkly...This was not the problem..."

Here is your code above placed inside a loop... it works for me, how about you?

+ Code Snippet

do
 if keystate(2) = 1
         inc cbe
         make object cube cbe,25
         `set object cbe,1,50,1,0,1
         endif
set cursor 0,0:Print CBE         
Loop

D.D.

Back to top

Profile PM

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 1st Jan 2014 12:39

Link

Yes this works...but the object exist command when incrementing the cube does not work...i think i am doing something wrong in the code

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 1st Jan 2014 16:52 Edited at: 1st Jan 2014 17:01

Link

Quote: "Yes this works...but the object exist command when incrementing the cube does not work...i think i am doing something wrong in the code"

The snippet you posted before wasn't inside a loop, so I couldn't just run it and see the result. If you would, post a small sample code inside a loop with the object exist command that doesn't work for you.

I'm sure this issue has to be something minor.

Obviously you only want to MAKE OBJECT n if OBJECT EXIST(n)=0
and you'll only want to SHOW/HIDE/ROTATE/MOVE/etc. if OBJECT EXIST(n)=1

D.D.

Back to top

Profile PM

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 2nd Jan 2014 01:09

Link

function objmode()
   cls
   sync on
   sync rate 60
   backdrop on
   color backdrop rgb (0,0,0)
   
   `Load AX O,X,Y
    load object "Media Packs\xaxis.3ds",4,1,0 
    hide object 4
    
    do
         `Status FPS
         text 10,5,"" + str$(screen fps())
         
         `Text for mode information
         sync
          center text 300,50,"OBJ MODE"
          sync
          
         `Functions
         camerasetup()
         camstat()
         
         
         `When input is detected place cube
         if keystate(2) = 1
         inc 25
         make object cube 25,25
         `set object 25,1,4,1,0,1
         show object 4
         endif
         
         if object exist(25) = 1
         `Functions inside object exist
         objectposition()
         
         `Attach Axe O,X,Y,Z
         x#=object position x(25)
z#=object position z(25) + 100
position object 4,x# -6,-5,z# - 46
move object left 4,1
set object to object orientation 4,25,1
endif

`Random Bug Fix 
         if keystate(2) = 0        
ENDIF
       sync
   x# = x# + 0.5
   sync
   
   if object exist(25) = 1
   
   `Delete cube
    if keystate(211) = 1
      delete object 25
     hide object 4
     endif
     
     `Move cube
    if mouseclick() = 1
        sync
        position object 25,x#,0,0
        else
        endif
        endif
        
        `Exit Object Mode
        if escapekey() = 1
        hide object 4
           exit
        endif
        
        `Confirm Modifications
        if keystate(28) = 1
      make object cube 2,25
      delete object 2
      
     
ENDIF

LOOP
    
ENDFUNCTION

function objectposition()
    x# = object position x(25)
    y# = object position y(25)
    z# = object position z(25)
    
    text 10,50, "X: " + str$(x#)
    text 10,70, "Y: " + str$(y#)
    text 10,90, "Z: " + str$(z#)
ENDFUNCTION

+ Code Snippet

function objmode()
   cls
   sync on
   sync rate 60
   backdrop on
   color backdrop rgb (0,0,0)
   
   `Load AX O,X,Y
    load object "Media Packs\xaxis.3ds",4,1,0 
    hide object 4
    
    do
         `Status FPS
         text 10,5,"" + str$(screen fps())
         
         `Text for mode information
         sync
          center text 300,50,"OBJ MODE"
          sync
          
         `Functions
         camerasetup()
         camstat()
         
         
         `When input is detected place cube
         if keystate(2) = 1
         inc 25
         make object cube 25,25
         `set object 25,1,4,1,0,1
         show object 4
         endif
         
         if object exist(25) = 1
         `Functions inside object exist
         objectposition()
         
         `Attach Axe O,X,Y,Z
         x#=object position x(25)
z#=object position z(25) + 100
position object 4,x# -6,-5,z# - 46
move object left 4,1
set object to object orientation 4,25,1
endif

       `Random Bug Fix 
         if keystate(2) = 0        
ENDIF
       sync
   x# = x# + 0.5
   sync
   
   if object exist(25) = 1
   
   `Delete cube
    if keystate(211) = 1
      delete object 25
     hide object 4
     endif
     
     `Move cube
    if mouseclick() = 1
        sync
        position object 25,x#,0,0
        else
        endif
        endif
        
        `Exit Object Mode
        if escapekey() = 1
        hide object 4
           exit
        endif
        
        `Confirm Modifications
        if keystate(28) = 1
      make object cube 2,25
      delete object 2
      
     
ENDIF

LOOP
    
ENDFUNCTION

function objectposition()
    x# = object position x(25)
    y# = object position y(25)
    z# = object position z(25)
    
    text 10,50, "X: " + str$(x#)
    text 10,70, "Y: " + str$(y#)
    text 10,90, "Z: " + str$(z#)
ENDFUNCTION

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 2nd Jan 2014 02:05

Link

Quote: "`When input is detected place cube
if keystate(2) = 1
inc 25
make object cube 25,25
`set object 25,1,4,1,0,1
show object 4
endif"

The bold italic line is a mistake. 25 is not a variable so cannot be incremented.

Since 25 is not a variable, you keep trying to add a new object with that number, which is also a mistake.

Now Visit My Website

Back to top

Profile PM Email Website

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 2nd Jan 2014 02:51 Edited at: 2nd Jan 2014 02:54

Link

And there it is...

Yes, you'll want to replace

inc 25
make object cube 25,25

with something like

inc ObjNum,1 (the ',1' is optional - indicates the increment amount, the default is 1 anyway)
make object cube ObjNum,25

D.D.

Back to top

Profile PM

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 2nd Jan 2014 13:21

Link

I did....that worked yes...
And then it comes again to the first problem that i wanted to be resolved....If object exist(objnum) = 1 then blah blah blah...It gives me the same error with object illegal...Sorry if i am annoying but really the problem wasn't resolved

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 2nd Jan 2014 15:16 Edited at: 2nd Jan 2014 15:23

Link

Quote: "If object exist(objnum) = 1 then blah blah blah...It gives me the same error with object illegal...Sorry if i am annoying but really the problem wasn't resolved
"

No problem...
Let's see your updated code snippet, and make sure you have replaced all of those "25" for object exist/make object/etc. with the ObjNum variable throughout the entire code.

D.D.

Back to top

Profile PM

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 3rd Jan 2014 19:26

Link

function objmode()
   cls
   sync on
   sync rate 60
   backdrop on
   color backdrop rgb (0,0,0)
   
   `Load AX O,X,Y
    load object "Media Packs\xaxis.3ds",4,1,0 
    hide object 4
    
    do
         `Status FPS
         text 10,5,"" + str$(screen fps())
         
         `Text for mode information
         sync
          center text 300,50,"OBJ MODE"
          sync
          
         `Functions
         camerasetup()
         camstat()
         
         
         `When input is detected place cube
         if keystate(2) = 1
         inc cbe
         make object cube cbe,25
         `set object 25,1,4,1,0,1
         show object 4
         endif
         
         if object exist(cbe) = 1
         `Functions inside object exist
         objectposition()
         
         `Attach Axe O,X,Y,Z
         x#=object position x(cbe)
z#=object position z(cbe) + 100
position object 4,x# -6,-5,z# - 46
move object left 4,1
set object to object orientation 4,25,1
endif

`Random Bug Fix 
         if keystate(2) = 0        
ENDIF
       sync
   x# = x# + 0.5
   sync
   
   if object exist(cbe) = 1
   
   `Delete cube
    if keystate(211) = 1
      delete object cbe
     hide object 4
     endif
     
     `Move cube
    if mouseclick() = 1
        sync
        position object cbe,x#,0,0
        else
        endif
        endif
        
        `Exit Object Mode
        if escapekey() = 1
        hide object 4
           exit
        endif
        
        `Confirm Modifications
        if keystate(28) = 1
      make object cube 2,25
      delete object 2
      
     
ENDIF

LOOP
    
ENDFUNCTION

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

+ Code Snippet

function objmode()
   cls
   sync on
   sync rate 60
   backdrop on
   color backdrop rgb (0,0,0)
   
   `Load AX O,X,Y
    load object "Media Packs\xaxis.3ds",4,1,0 
    hide object 4
    
    do
         `Status FPS
         text 10,5,"" + str$(screen fps())
         
         `Text for mode information
         sync
          center text 300,50,"OBJ MODE"
          sync
          
         `Functions
         camerasetup()
         camstat()
         
         
         `When input is detected place cube
         if keystate(2) = 1
         inc cbe
         make object cube cbe,25
         `set object 25,1,4,1,0,1
         show object 4
         endif
         
         if object exist(cbe) = 1
         `Functions inside object exist
         objectposition()
         
         `Attach Axe O,X,Y,Z
         x#=object position x(cbe)
z#=object position z(cbe) + 100
position object 4,x# -6,-5,z# - 46
move object left 4,1
set object to object orientation 4,25,1
endif

       `Random Bug Fix 
         if keystate(2) = 0        
ENDIF
       sync
   x# = x# + 0.5
   sync
   
   if object exist(cbe) = 1
   
   `Delete cube
    if keystate(211) = 1
      delete object cbe
     hide object 4
     endif
     
     `Move cube
    if mouseclick() = 1
        sync
        position object cbe,x#,0,0
        else
        endif
        endif
        
        `Exit Object Mode
        if escapekey() = 1
        hide object 4
           exit
        endif
        
        `Confirm Modifications
        if keystate(28) = 1
      make object cube 2,25
      delete object 2
      
     
ENDIF

LOOP
    
ENDFUNCTION

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

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 3rd Jan 2014 20:52

Link

I've not ran this, but test it out...

cls
sync on
sync rate 60
backdrop on
color backdrop rgb (0,0,0)
sync
   
`Load AX O,X,Y
load object "Media Packs\xaxis.3ds",4,1,0 
hide object 4

cbe = 1
Global OldPress = 0
Global NewPress = 0
   
do
  `Status FPS
   text 10,5,"" + str$(screen fps())
         
  `Text for mode information
   center text 300,50,"OBJ MODE"
   sync
          
  `Functions
  `camerasetup() : Function not included in this snippit
  `camstat() : Function not included in this snippit

OldPress = NewPress : NewPress = keystate(2)
         
         
  `When input is detected place cube
   if NewPress = 0 ANd OldPress = 1 :` We only want one cube per keypress, this sorts it out.
      inc cbe
      make object cube cbe,25
     `set object 25,1,4,1,0,1
      show object 4
   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 4,x# -6, -5, z# - 46
      move object left 4,1
      set object to object orientation 4, cbe, 1
   endif

x# = x# + 0.5
   
   if cbe > 0 and object exist(cbe) = 1
   
     `Delete cube
      if keystate(211) = 1
         delete object cbe
         hide object 4
      endif
     
     `Move cube
      if mouseclick() = 1
        position object cbe,x#,0,0
      else
      endif
   endif
        
  `Exit Object Mode
   if escapekey() = 1
      hide object 4
      exit
   endif
        
  `Confirm Modifications
   if keystate(28) = 1
      make object cube 2,25
      delete object 2     
   ENDIF

sync
LOOP
END

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

+ Code Snippet

cls
sync on
sync rate 60
backdrop on
color backdrop rgb (0,0,0)
sync
   
`Load AX O,X,Y
load object "Media Packs\xaxis.3ds",4,1,0 
hide object 4

cbe = 1
Global OldPress = 0
Global NewPress = 0
   
do
  `Status FPS
   text 10,5,"" + str$(screen fps())
         
  `Text for mode information
   center text 300,50,"OBJ MODE"
   sync
          
  `Functions
  `camerasetup() : Function not included in this snippit
  `camstat() : Function not included in this snippit

   OldPress = NewPress : NewPress = keystate(2)
         
         
  `When input is detected place cube
   if NewPress = 0 ANd OldPress = 1 :` We only want one cube per keypress, this sorts it out.
      inc cbe
      make object cube cbe,25
     `set object 25,1,4,1,0,1
      show object 4
   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 4,x# -6, -5, z# - 46
      move object left 4,1
      set object to object orientation 4, cbe, 1
   endif

   x# = x# + 0.5
   
   if cbe > 0 and object exist(cbe) = 1
   
     `Delete cube
      if keystate(211) = 1
         delete object cbe
         hide object 4
      endif
     
     `Move cube
      if mouseclick() = 1
        position object cbe,x#,0,0
      else
      endif
   endif
        
  `Exit Object Mode
   if escapekey() = 1
      hide object 4
      exit
   endif
        
  `Confirm Modifications
   if keystate(28) = 1
      make object cube 2,25
      delete object 2     
   ENDIF


   sync
LOOP
END

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

Now Visit My Website

Back to top

Profile PM Email Website

Derek Darkly

13

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 3rd Jan 2014 21:30 Edited at: 3rd Jan 2014 21:32

Link

@ Matei

I thought it was a little strange to see that you had your main loop inside a function...
I'm pretty sure that you want to call functions only when needed and then immediately return to the main loop.

Perhaps Mobiius can confirm/explain this better.

D.D.

Back to top

Profile PM

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 4th Jan 2014 02:20

Link

I tested out your code Mobiius and at the third press of the button to make a cube it says object already exist at line blah blah

It partially works

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

MateiSoft Romania

11

Years of Service

User Offline

Joined: 16th Oct 2013

Location:

Posted: 4th Jan 2014 21:35

Link

Alright i looked up on my code and with this help i managed to see what i missed to include in my code in order not to give me an illegal object number! Thanks a lot guys!!!

Alex Matei CEO
www.alexmatei.com

Back to top

Profile PM Email Website

Mobiius

Valued Member

22

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 5th Jan 2014 15:04

Link

Glad you sorted it!

But for the benefit of other users having this problem, what did you change in your code to fix this issue?

Now Visit My Website

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Object Exist