Load Object bug???? - GameCreators Forum

Author

Message

klukk

22

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Iceland

Posted: 14th Feb 2003 03:42

Link

Ahoy mates!

I've got a little problem that's making my coding progress come to a screeching halt.

here are two functions from my code:

function distributecollectables(no as integer)
  activecollectables = no
  clearcollectables()
  for c = 1 to no

collectables(c).objectno = c + collectablestartno
    collectables(c).xpos = rnd(190)-95
    collectables(c).ypos = rnd(140)-70
    collectables(c).zpos = 0
    collectables(c).xrot = rnd(360)
    collectables(c).yrot = rnd(360)
    collectables(c).zrot = rnd(360)
    rem make object cube collectables(c).objectno, 4
    load object "gem.x",collectables(c).objectno
    position object collectables(c).objectno,collectables(c).xpos,collectables(c).ypos, collectables(c).zpos
    rotate object collectables(c).objectno, collectables(c).xrot, collectables(c).yrot, collectables(c).zrot
    rem COLOR OBJECT collectables(c).objectno, RGB(0,255,0)
  next c
endfunction

function checkplayergrabcollectible()
  coll = 0
  for c = 1 to maxcollectables
    if collectables(c).objectno > 0
      if OBJECT COLLISION (collectables(c).objectno, player.objectno)
        DELETE OBJECT collectables(c).objectno
        collectables(c).objectno = 0
        dec activecollectables, 1
        inc coll, 1
      endif
    endif
  next c
endfunction coll

+ Code Snippet

function distributecollectables(no as integer)
  activecollectables = no
  clearcollectables()
  for c = 1 to no

    collectables(c).objectno = c + collectablestartno
    collectables(c).xpos = rnd(190)-95
    collectables(c).ypos = rnd(140)-70
    collectables(c).zpos = 0
    collectables(c).xrot = rnd(360)
    collectables(c).yrot = rnd(360)
    collectables(c).zrot = rnd(360)
    rem make object cube collectables(c).objectno, 4
    load object "gem.x",collectables(c).objectno
    position object collectables(c).objectno,collectables(c).xpos,collectables(c).ypos, collectables(c).zpos
    rotate object collectables(c).objectno, collectables(c).xrot, collectables(c).yrot, collectables(c).zrot
    rem COLOR OBJECT collectables(c).objectno, RGB(0,255,0)
  next c
endfunction

function checkplayergrabcollectible()
  coll = 0
  for c = 1 to maxcollectables
    if collectables(c).objectno > 0
      if OBJECT COLLISION (collectables(c).objectno, player.objectno)
        DELETE OBJECT collectables(c).objectno
        collectables(c).objectno = 0
        dec activecollectables, 1
        inc coll, 1
      endif
    endif
  next c
endfunction coll

ok, the problem is that when I first call distribute collectables (to place collectable items in my level), then everything works fine. Before every sync, checkplayergrabcollectible is called to check of the player has grabbed any collectables. The problem is that, when all collectables have been, well, collected and I'm making the next level, then I get a error when calling the distributecollectables. The error is: "Runtime error 7018. Could not load 3d object at line..." When I used a cube for the collectable instead of an .x object (see the rem'ed line above the load object in distributecollectables), then everything worked like a charm, but now it's just fubar.....

Any takers????

- If nothing sticks to teflon, then how do they make teflon stick to the pan???

Back to top

Profile PM

klukk

22

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Iceland

Posted: 14th Feb 2003 16:21

Link

Sorry about the bump, but this is problem hs all but stopped my progress on my games.

Does anyone know something about this?

- If nothing sticks to teflon, then how do they make teflon stick to the pan???

Back to top

Profile PM

Rob K

Retired Moderator

22

Years of Service

User Offline

Joined: 10th Sep 2002

Location: Surrey, United Kingdom

Posted: 14th Feb 2003 18:14

Link

@klukk

Can you explain your problem a bit more clearly. You are saying that if you use a .X object for the collectible it works fine, but not if you use a 3D primitive cube Ie. Can you make a short tech demo showing this problem.

NOBODY has a forum name as stupid as Darth Shader. I do.

Back to top

Profile PM Email Website

Richard Davey

Retired Moderator

23

Years of Service

User Offline

Joined: 30th Apr 2002

Location: On the Jupiter Probe

Posted: 14th Feb 2003 19:12

Link

My immediate thought would be that your object is not being deleted. That would cause the "load object" command to barf (very little else will). Try something like "if object exists()" before the load object command and remove it at that point?

Cheers,

Rich

"Gentlemen, we are about to short-circuit the Universe!"
DB Team / Atari ST / DarkForge / Retro Gaming

Back to top

Profile PM Email Website

klukk

22

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Iceland

Posted: 14th Feb 2003 21:51

Link

@rich

It's not that because then you get a "Object already exists" error. I'm getting a "Cannot load 3d object error". Also, when I use cubes (make object cube) instead of .x file (load object), then it works quite nicely.....

puzzling eh?

- If nothing sticks to teflon, then how do they make teflon stick to the pan???

Back to top

Profile PM

klukk

22

Years of Service

User Offline

Joined: 13th Feb 2003

Location: Iceland

Posted: 14th Feb 2003 22:38

Link

okay, problem solved,and booooyyy, was it far fetched.

The problem was that I was calling the distributecollectibles function for my new levem from this code:

+ Code Snippet

while OBJECT COLLISION (player.objectno,gate.objectno)
    if gate.state = GATEOPEN

      player.xpos=0
      player.ypos=0
      player.zpos=0
      player.yrot=0
      updateplayer()
      closegate()

      distributecollectibles(10)
    else
      set vector2 player.direction,vx, 0.0
      player.ypos = player.ypos - 0.1
      updateplayer()
      coll = 1
    endif
  endwhile

This works if I change the code to this (quick fix)

+ Code Snippet

while OBJECT COLLISION (player.objectno,gate.objectno)
    if gate.state = GATEOPEN

      player.xpos=0
      player.ypos=0
      player.zpos=0
      player.yrot=0
      updateplayer()
      closegate()

      ALLDONE = 1

    else
      set vector2 player.direction,vx, 0.0
      player.ypos = player.ypos - 0.1
      updateplayer()
      coll = 1
    endif
  endwhile

Then in my mai rendering/event loop i check for the ALLDONE flag:

+ Code Snippet

if ALLDONE
    distributecollectables(10)
    ALLDONE = 0
  endif

This seems to solve my problem. Now the only question left is.....why did this solve it? I have no clue, I was just messing around with my code and stumbled upon this.....

A very large kudos to whomever is able to explain to me what was wrong...

- If nothing sticks to teflon, then how do they make teflon stick to the pan???

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Load Object bug????