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

[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

[mackrackit]

This is weird. The email message when sougata posted said
################################
Hi,

A colon separated mulitple statement will always compile so


Code:
---------
IF MEM_1 = 2 THEN SPEED = 1 : GOSUB SOMETHING
---------
is equivalent to

Code:
---------
IF MEM_1 = 2 THEN SPEED = 1
GOSUB SOMETHING
---------
or

Code:
---------
IF MEM_1 = 2 THEN
SPEED = 1
ENDIF
GOSUB SOMETHING
---------
So if you really want to execute multiple command based on a conditions then *ENDIF*
is the way.
##########################
But the forum does not have the whole message. I am on a windows machine today so maybe...

[sougata]

Hi,

I wrote the original thread counting on my past experience but then again I didn't try out flotul's structure. May be I will trying peeping the compiled hex and find out if it does carry out a conditional check on ":"So did not want to confuse readers and edited. Your windows is working fine as the doors

[sayzer]

A little suggestion:

What about a Pause or a kind of bounce killing?
Something like,

IF MEM_l = 2  THEN 
   WHILE MEM_l = 2 : WEND
   speed = speed + 1
ENDIF

OR
IF MEM_l = 2  THEN 
   PAUSE 100
   speed = speed + 1
ENDIF

Speed increases so fast that it goes crazy!
---------------