moving two different for loops at the same time

[zaara.syeda]

hii can someone plleeaasee help me. i need to know how i can move two different moving objects that are in different loops at the same time.

[Tony]

they are most likely supposed to be in the same loop. You have to be more specific though.

[Ultrahex]

He Basically Just Asked How To Thread 2 Things, But Thats Not a good way to do it,

You should be able to take the two loops and combine them

into 1 for loop
into 1 for loop inside another
into 2 loops one after eachother

Just a Thought, some code might also help if you are trying to combine something inpeticular.

[Tony]

Turing is meant for procedural programming (with some optional OOP support). Definetely not for concurent processes (although they are cruedly available)

code:

loop    move_first_object    move_second_object end loop

there should be no need for concurency, since Turing doesn't recognize hyperthreading or multi-core hardware

[R.G.]

hey! ya she most likely means how do u use the process command if im not mistaken

[zaara.syeda]

no but what if their distances for the loops are different? how can u put them in the same loop.

[Tony]

events with if statements.. and math

a loop is just a driver to push your code. You don't need two engines in your car to drive.

code:

for i: 1 .. maxx    if ( i < maxx div 2 ) then       Draw.FillOval(i, 200, 5, 5, blue)    end if    Draw.FillOval(i*2, 250, 5, 5, red)    delay(10)    cls end for

[R.G.]

ohh wow i get itt...thanks a lot! I hope zaara does too

[zaara.syeda]

uumm... i dont get it but thankx .... ok anyways i figured that out using process..... now i need help with something else. ok im making this sorta game and theres a ball its suppose to go through the ring but it just goes behind it. so does anyone know how to make it look like its going through?

heres what i have so far...

process music
play("4ccggaa2g4ffeeddbggffeedbbggaa2g4ffeedd2c")
end music

%background
for x : 0 .. 400
drawbox (0, x, 640, x, 7)
end for

%stars
for x : 0 .. 15
drawstar (50 + x, 300 + x, 80 - x, 330 - x, 14)
drawstar (480 + x, 320 + x, 510 - x, 350 - x, 14)
drawstar (50 + x, 200 + x, 80 - x, 230 - x, 14)
drawstar (450 + x, 150 + x, 480 - x, 180 - x, 14)
drawstar (600 + x, 40 + x, 630 - x, 70 - x, 14)
drawstar (200 + x, 150 + x, 230 - x, 180 - x, 14)
drawstar (180 + x, 50 + x, 210 - x, 80 - x, 14)
end for

%box around rules
drawline (190, 320, 460, 320, 64)
drawline(190,320,190,390,11)
drawline(460,320,460,390,11)
drawline(190,390,460,390,64)

%moon
for x : 0 .. 50
drawoval (580, 320, x, 50, 30)
end for

%Rings
for x : 0 .. 60
drawoval (500, 100, x, 20, 43)
drawoval (100, 150, x, 30, 12)
drawoval (100, 50, x, 30, 108)
drawoval (300, 150, x, 30, 104)
drawoval (300, 50, x, 30, 120)
end for

%center eraser for rings
for x : 0 .. 40
drawoval (500, 100, x, 40, 42)
drawoval (100, 150, x, 20, 7)
drawoval (100, 50, x, 20, 7)
drawoval (300, 150, x, 20, 7)
drawoval (300, 50, x, 20, 7)
end for

%words
var fontID, height, ascent, descent, internalLeading : int
var externalLeading : int
fontID := Font.New ("Ravie:50:bold")
Font.Sizes (fontID, height, ascent, descent, internalLeading)
externalLeading := height - ascent - descent

Font.Draw ("Rules", 200, 330, fontID, 60)
Font.Free (fontID)

fontID := Font.New ("Lucida Handwriting:15")
Font.Draw ("5 points", 60, 150, fontID, 10)
Font.Draw ("10 points", 60, 50, fontID, 95)
Font.Draw ("50 points", 260, 150, fontID, 75)
Font.Draw ("100 points", 260, 50, fontID, 63)
Font.Draw ("Loose a Life", 440, 30, fontID, 41)

fontID := Font.New ("Forte:15")
Font.Draw ("Make the ball go through the rings to get points.", 100, 280, fontID, 100)
Font.Draw ("Keep it away from the planets so you dont loose a life.", 80, 250, fontID, 92)
Font.Draw ("After you loose three lives the game is over!", 120, 220, fontID, 77)
Font.Free (fontID)

fork music

delay(2000)
cls

setscreen("graphics")
View.Set ("offscreenonly")
for x : 0 .. 400
drawbox (0, x, 640, x, 225)
end for

for x:0..10
drawbox(500,1,500+x,400,0)
end for

fontID := Font.New ("Forte:25")
Font.Draw ("Lives", 540,370, fontID,0)
Font.Draw("Score",540,270,fontID,0)
Font.Free (fontID)

for x:0..15
drawoval(530,330,x,15,100)
drawoval(570,330,x,15,100)
drawoval(610,330,x,15,100)
end for

for x:0..20
drawoval(320,350,x,20,100)
end for

for x:0..430
drawfilloval(320,x,61,31,225)
drawfilloval(320, x,60,30,12)
drawfilloval(320,x,40,10,225)
View.Update
delay(10)
end for

fontID := Font.New ("Forte:50")
Font.Draw("5",550,200,fontID,0)
Font.Free(fontID)

process two
for x:0..200
drawfilloval(320-x,350,21,21,225)
drawfilloval(320-x,350,20,20,100)
View.Update
delay(10)
end for
for x:0..50
drawbox(550,200,550+x,250,225)
end for
end two

process three
for x:0..450
drawfilloval(120,x,61,31,225)
drawfilloval(120,x,60,30,108)
drawfilloval(120,x,40,10,225)
View.Update
delay(10)
end for
fontID := Font.New ("Forte:50")
Font.Draw("15",550,200,fontID,0)
Font.Free(fontID)
end three

fork two
fork three

[Tony]

zaara.syeda wrote:

ok anyways i figured that out using process

No, you haven't... because

Quote:

process two
for x:0..200
...
View.Update
delay(10)
end for
...
end two

I'm sorry, but you clearly have no idea what you're doing. Please refrain from using processes, you'll just complicate things for yourself.

[razrdude]

Hey look at the second page of Turing tutorials, ull catch it in the name, why not to use processes and how to fix it.

[zaara.syeda]

quote]I'm sorry, but you clearly have no idea what you're doing. Please refrain from using processes, you'll just complicate things for yourself[/quote]

aww is it that bad??? whats wrong with the way i did it?

[razrdude]

read his post: processes

[zaara.syeda]

ya... but i dont get whats wrong with it