IF...THEN won't let numbers to be summed

[flotulopex]

Hello,

I can't find out why this doesn't work:

if mem_l = 2 then speed = speed + 1 : gosub game_speed

while this does:

if mem_l = 2 then speed =  1 : gosub game_speed

According to the PBP Compiler's manual, both syntax look okay.

When I run my prog with the second example, my Speed VAR will go crazy and show up numbers between 50 and 240(?). Speed is declared as VAR Byte and set to "0" at beginning of prog.

I've attached my code (the concerned lines are labeled 'Set game speed according to level).

Any help is appreciated.

[skimask]

Hello,
I can't find out why this doesn't work:

if mem_l = 2 then speed = speed + 1 : gosub game_speed

while this does:

if mem_l = 2 then speed =  1 : gosub game_speed

According to the PBP Compiler's manual, both syntax look okay.
When I run my prog with the second example, my Speed VAR will go crazy and show up numbers between 50 and 240(?). Speed is declared as VAR Byte and set to "0" at beginning of prog.
I've attached my code (the concerned lines are labeled 'Set game speed according to level).
Any help is appreciated.

You can't have a 'colon' in a single line if/then statement. You have to split it up, like this:

If mem_1 = 2 then
speed = speed + 1
gosub game_speed
EndIf

or

If mem_1 = 2 then
speed = speed + 1 : gosub game_speed
EndIf

I don't think the manual says it specifically, but that's the way it is.

[flotulopex]

Hi skimask,

Thanks for the help. I'm in the office now and I'm not sure about this anymore but I think I have tried what you suggest already and didn't work too.

Nevertheless, I'll try again tonight (I'm in the office now).

BTW, this is an example one can find in the COMPILER's manual (confusing):

<img src="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=1533&stc=1&d=117644278 8">
I've used this syntax many times before and never had trouble.

[mackrackit]

That non-optional ENDIF to complete the structure might have something to do with it?

I do not see it in your code.

[skimask]

Don't know why one works and the other doesn't.
I just stick with what does work...
I know, no help, but it's the facts...


Also, I just looked thru your code.
There's an END statement in the middle before GAME_SPEED.
You probably don't want that in there.

And a couple of your for/next statements, you don't specifically tell PBP which variable you are 'next'ing with your 'for'.
Might help, might not...

[mackrackit]

The second example in the first post does not work correctly.

When I run my prog with the second example, my Speed VAR will go crazy and show up numbers between 50 and 240(?). Speed is declared as VAR Byte and set to "0" at beginning of prog.

Look at this from the posted code.

'Set game speed according to level
    if mem_l = 2  then speed = 1 : gosub game_speed
    if mem_l = 3  then speed = 2 : gosub game_speed
    if mem_l = 4  then speed = 3 : gosub game_speed
    if mem_l = 5  then speed = 4 : gosub game_speed
''    if mem_l = 2  then speed = speed + 1 : gosub game_speed
''    if mem_l = 3  then speed = speed + 1 : gosub game_speed
''    if mem_l = 4  then speed = speed + 1 : gosub game_speed
''    if mem_l = 5  then speed = speed + 1 : gosub game_speed

    value = value + 1           'To change the "seed" for random #
    Goto MAIN

Do you see a problem?

[sougata]

Hi,

IF MEM_1 = 2 THEN SPEED = 1 : GOSUB SOMETHING

is equivalent to

IF MEM_1 = 2 THEN SPEED = 1
GOSUB SOMETHING

or

IF MEM_1 = 2 THEN
SPEED = 1
ENDIF
GOSUB SOMETHING