GoTo and GoSub - GameCreators Forum

Author

Message

Krast0r

20

Years of Service

User Offline

Joined: 25th Jun 2004

Location: UK

Posted: 25th Jun 2004 23:01

Link

I'm currently working with a team of people on an RPG, and it's all been going well until i started creating the functions for finding the stats of different in-game races (elves etc.). I tried using a gosub command in an IF statement inside a function, and it wont work. I tried using GoSub and still it didnt work. It says that the label cannot be found, so i tried using a different label for the GoTo function, and every did Copy+Paste to make sure it was exactly the same in both the label and in the command. I also tried using an existing (working) label and it still didn't work. Does anyone have any ideas? I use DarkBasic Classic.

In theory, theory and practice are the same, but in practice they are not.
[email protected] - That's Right! I'm a Gmail Beta Tester!

Back to top

Profile PM Email

Mattman

21

Years of Service

User Offline

Joined: 5th Jun 2003

Location: East Lansing

Posted: 25th Jun 2004 23:20

Link

Can i see your code? Make sure you have a : after the label so,

If go_stats = 1
gosub stats
endif

stats:
health = 100
armor = 50
return

"Could you do something where you don't need a video card cause i don't have one" - Program Expert

Back to top

Profile PM Email Website

Krast0r

20

Years of Service

User Offline

Joined: 25th Jun 2004

Location: UK

Posted: 26th Jun 2004 00:07

Link

Yeah i checked for syntax and spelling mistakes hundreds of times, takes ages becuase I have very messy code

! I could send you some of the code but because we have an investor I would need you to agree to a standard Non-Disclosure Agreement (basically just so you cant steal our source lol, you wouldn't really want to anyway it's very poorly written!)

In theory, theory and practice are the same, but in practice they are not.
[email protected] - That's Right! I'm a Gmail Beta Tester!

Back to top

Profile PM Email

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 26th Jun 2004 00:09

Link

Quote: "I tried using a gosub command in an IF statement inside a function, and it wont work."

Gosub in functions can only jump to labels declared *inside* a function (local scope).
So while this is possible:

+ Code Snippet

function MeaningOfLife(stuff)
   if stuff = 42 then gosub MyLabel
   rem do something here
   exitfunction
   MyLabel:
   rem do other stuff here
   Return
endfunction

this is not possible:

+ Code Snippet

function MeaningOfLife(stuff)
   if stuff = 42 then gosub MyLabel
   rem do something here
endfunction

MyLabel:
rem do other stuff here
Return

Play Nice! Play Basic!

Back to top

Profile PM

Krast0r

20

Years of Service

User Offline

Joined: 25th Jun 2004

Location: UK

Posted: 26th Jun 2004 00:17

Link

I think the problem is that I have several nested functions. I have 5 different functions with the EndFunction statements inside an IF statement at the end of anotehr section, like this:

+ Code Snippet

function GetSomeStats(something$)
somestats = 1
if something$ = "Matt" goto mattstats
if something$ = "Tom" goto tomstats
if something$ = "" goto errorstats

function GetOtherStats(something$)
otherstats = 1
if something$ = "Matt" goto mattstats
if something$ = "Tom" goto tomstats
if something$ = "" goto errorstats

mattstats:
SomeValue = 5
OtherValue = 8
if somestats = 1 then somestats = 0 : endfunction somevalue
if otherstats = 1 then otherstats = 0 : endfunction othervalue

tomstats:
SomeValue = 5
OtherValue = 8
if somestats = 1 then somestats = 0 : endfunction somevalue
if otherstats = 1 then otherstats = 0 : endfunction othervalue

error:
PRINT "Error! Error! Please Format C:\ to continue"
END

Or something like that. The actual code is even more confusing and badly written!

In theory, theory and practice are the same, but in practice they are not.
[email protected] - That's Right! I'm a Gmail Beta Tester!

Back to top

Profile PM Email

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 26th Jun 2004 01:27

Link

Nested functions don't work in DB. Also if you want to exit a function within an IF statement, use Exitfunction instead of Endfunction.

Play Nice! Play Basic!

Back to top

Profile PM

Krast0r

20

Years of Service

User Offline

Joined: 25th Jun 2004

Location: UK

Posted: 26th Jun 2004 13:23

Link

Damn, time to rewrite! Any suggestions for making it so i dont have to write out all the stats for every function?

In theory, theory and practice are the same, but in practice they are not.
[email protected] - That's Right! I'm a Gmail Beta Tester!

Back to top

Profile PM Email

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 26th Jun 2004 15:23

Link

Quote: "Any suggestions for making it so i dont have to write out all the stats for every function?"

I think arrays can be useful here. Ie.
You have 3 characters: Matt, Tom, and Joe; and the stats: Health, Agility and Mana.

+ Code Snippet

` Character IDs (makes dealing with stat arrays easier for the eye)
Matt_ID = 0 : Tom_ID = 1 : Joe_ID = 2 

` Stat arrays
Dim Health(2) : Dim Agility(2) : Dim Mana(2)

` Some functon to read write the stats
function SetHealth(Character$, Value)
   Select Character$
      Case "Matt" : ID = Matt_ID : EndCase
      Case "Tom" : ID = Tom_ID : EndCase
      Case "Joe" : ID = Joe_ID : EndCase
   EndSelect
   Health(ID) = Value
endfunction

function GetHealth(Character$)
   Select Character$
      Case "Matt" : ID = Matt_ID : EndCase
      Case "Tom" : ID = Tom_ID : EndCase
      Case "Joe" : ID = Joe_ID : EndCase
   EndSelect
   result = Health(ID)
endfunction result

Or you use one 2 dimensional stat array (provided all stats take the same data type; in this case Integers)

+ Code Snippet

` Character IDs (makes dealing with stat array easier for the eye)
Matt_ID = 0 : Tom_ID = 1 : Joe_ID = 2 

` Stat IDs (same reason as above)
Health_ID = 0 : Agility_ID = 1 : Mana_ID = 2 

` a 2-dimensional stat array
Dim Stats(2,2)

function SetStats(Character$, Stat_ID, Value)
   Select Character$
      Case "Matt" : Char_ID = Matt_ID : EndCase
      Case "Tom" : Char_ID = Tom_ID : EndCase
      Case "Joe" : Char_ID = Joe_ID : EndCase
   EndSelect
   Stats(Stat_ID, Char_ID) = Value
endfunction

function GetStats(Character$, Stat_ID)
   Select Character$
      Case "Matt" : Char_ID = Matt_ID : EndCase
      Case "Tom" : Char_ID = Tom_ID : EndCase
      Case "Joe" : Char_ID = Joe_ID : EndCase
   EndSelect
   result = Stats(Stat_ID, Char_ID)
endfunction result

If you use character IDs instead of names you can drop the Select/Case block

+ Code Snippet

function SetStats(Char_ID, Stat_ID, Value)
   Stats(Stat_ID,Char_ID) = Value
endfunction

Play Nice! Play Basic!

Back to top

Profile PM

Krast0r

20

Years of Service

User Offline

Joined: 25th Jun 2004

Location: UK

Posted: 26th Jun 2004 21:05

Link

Thanks, I was thinking about using arrays before but let's just say they've never been my best friend !

In theory, theory and practice are the same, but in practice they are not.
[email protected] - That's Right! I'm a Gmail Beta Tester!

Back to top

Profile PM Email

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 26th Jun 2004 22:02 Edited at: 26th Jun 2004 22:02

Link

Quote: " Thanks, I was thinking about using arrays before but let's just say they've never been my best friend ! "

If you have questions about them, just shout it out.

Play Nice! Play Basic!

Back to top

Profile PM

Krast0r

20

Years of Service

User Offline

Joined: 25th Jun 2004

Location: UK

Posted: 27th Jun 2004 16:32

Link

I'm having trouble already! I can't seem to be able to set the stats (for example Health) to any value, and when I do:
character$ = "Matt"
PRINT GetStat(character$, 2)
it just returns returns 0.

In theory, theory and practice are the same, but in practice they are not.
[email protected] - That's Right! I'm a Gmail Beta Tester!

Back to top

Profile PM Email

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 28th Jun 2004 00:41 Edited at: 30th Jun 2004 08:22

Link

...

Play Nice! Play Basic!

Back to top

Profile PM

empty

22

Years of Service

User Offline

Joined: 26th Aug 2002

Location: 3 boats down from the candy

Posted: 30th Jun 2004 08:22

Link

Works perfectly here.

+ Code Snippet

` Character IDs (makes dealing with stat array easier for the eye)
Matt_ID = 0 : Tom_ID = 1 : Joe_ID = 2 

` Stat IDs (same reason as above)
Health_ID = 0 : Agility_ID = 1 : Mana_ID = 2 

` a 2-dimensional stat array
Dim Stats(2,2)

MyCharacter$ = \"Matt\"

SetStats(MyCharacter$,Health_ID,42)
print GetStats(MyCharacter$, Health)

wait key

end





function SetStats(Character$, Stat_ID, Value)
   Select Character$
      Case \"Matt\" : Char_ID = Matt_ID : EndCase
      Case \"Tom\" : Char_ID = Tom_ID : EndCase
      Case \"Joe\" : Char_ID = Joe_ID : EndCase
   EndSelect
   Stats(Stat_ID, Char_ID) = Value
endfunction

function GetStats(Character$, Stat_ID)
   Select Character$
      Case \"Matt\" : Char_ID = Matt_ID : EndCase
      Case \"Tom\" : Char_ID = Tom_ID : EndCase
      Case \"Joe\" : Char_ID = Joe_ID : EndCase
   EndSelect
   result = Stats(Stat_ID, Char_ID)
endfunction result

Play Nice! Play Basic!

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / GoTo and GoSub