Running two procedures at once

[msimard8]

Is it possible to run two procedures at once. For example (on Super Mario Games you have the turtles and the mushrooms both moving different directions.

I need something where there is two seperate procudres executing at once. A for loop wont work for me


Thanks

[jamonathin]

You can do something like this:

Turing:

forward proc mario proc turtle     % do whatever end turtle body proc mario     % do whatever end mario

Or do you mean two loops? then you would have to fork, but forking isn't always a great idea.
There's another way to delay, without using more than one delay, where that one delay is normally just the game's delay.

What you can do is assign a variable to whatever it is you want, and use it as a counter. Once that counter hits a certain spot, then you can do whatever it is you want to do.

Here is a sample of what I'm talking about. The pink ball moves twice as fast as the other ball, but the ball only moves when the counter assigned to it reaches a certain value.

Turing:

View.Set ("offscreenonly") colorback (black) cls var x, y : array 1 .. 2 of int := init (10, 10) %Varing x's and y's x (2) := 100 var k, p : int := 0 %Varing Counters loop     cls     drawfilloval (x (1), y (1), 5, 5, 13) %Drawing Balls     drawfilloval (x (2), y (2), 5, 5, 10)     k += 1 %Always adding to the counters     p += 1     if k = 10 then % 10 * 5 = delay(50)         y (1) += 2 %Moving Ball         k := 0 %Reseting Counter     end if     if p = 20 then % 20 * 5 = delay(100)         y (2) += 2 %Moving Ball         p := 0 %Reseting Counter     end if     View.Update     delay (5) end loop