Gosub with a jumping code doesnt' work

Author

Message

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 11th May 2005 03:19 Edited at: 11th May 2005 03:20

Link

I have this jumping code

+ Code Snippet

   VertSpeed#=(VertSpeed#+Gravity#)

   Move Object Up 1,Vertspeed#

      If Spacekey() = 0
         ground_height# = Get Ground Height(1,Object position X(1),Object Position Z(1))
         If Object Position Y(1) < ground_height# + 4
            Position Object 1,Object Position X(1),ground_height# + 4,Object Position Z(1)
            VertSpeed#=0
         Endif
      Endif

      If Spacekey() = 1 and Object Position Y(1) < Ground_height+4
         VertSpeed#=3
      Endif

But if i do this

+ Code Snippet

Do
Gosub Dostuff_
Gosub Jumping_
Sync
Loop

Dostuff_:
blah blah
return

Jumping_:
   VertSpeed#=(VertSpeed#+Gravity#)

   Move Object Up 1,Vertspeed#

      If Spacekey() = 0
         ground_height# = Get Ground Height(1,Object position X(1),Object Position Z(1))
         If Object Position Y(1) < ground_height# + 4
            Position Object 1,Object Position X(1),ground_height# + 4,Object Position Z(1)
            VertSpeed#=0
         Endif
      Endif

      If Spacekey() = 1 and Object Position Y(1) < Ground_height+4
         VertSpeed#=3
      Endif
Return

Then it does not work

Thanks for your help

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 11th May 2005 03:45

Link

So the first code works? I don't see any problems..

Back to top

Profile PM Email

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 11th May 2005 04:01

Link

I prefer to sort my code into neat sections

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 11th May 2005 05:10

Link

When you say it doesn't work, what actually happens?

By the way, you can simplify:

VertSpeed#=(VertSpeed#+Gravity#)

to

inc VertSpeed#, Gravity#

BatVink

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 12th May 2005 04:26

Link

And make sure Gravity# > 0.0 !!!

Back to top

Profile PM Email

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 12th May 2005 05:20

Link

I havent read the code but in a few days my basic engine will be out and it includes dynamic gravity and jumping...If you can wait a few days it might be able to help you, I dont know. Ofcourse it might be longer than a few days but Id give it about 5...which is more like a week I guess. Ack Ill shut up now.

Back to top

Profile PM Email Website

Xlaydos

20

Years of Service

User Offline

Joined: 26th Mar 2004

Location:

Posted: 12th May 2005 05:30

Link

@Batvink Gravity = -2

@Ruccus My code works if it is the main loop but not if it is in a gosub

Back to top

Profile PM

Clueless

20

Years of Service

User Offline

Joined: 16th Feb 2004

Location: Corbin, KY, USA

Posted: 12th May 2005 09:35

Link

Quote: "main loop but not if it is in a gosub "

Are the variables referenced in the subroutine global? It almost sounds like your gravity and vertical speed vars are local variables in the subroutine.

Back to top

Profile PM Email Website

master programmer

19

Years of Service

User Offline

Joined: 30th May 2005

Location: 3D Space

Posted: 30th May 2005 17:46

Link

I don't see any problems either, but it looks messy and can be simplified. Besides that, the only thing I see that I would do different is change the "gosubs" from "Jumping_:" to "_Jumping:"

_________________________________
<<<<I can program using anything>>>>

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Gosub with a jumping code doesnt' work