double button

[TrAnCeIn4LiFe]

is there a way to make two buttons work at once, because i have missles shooting out of my plane and when i shoot everything pauses until the missle hits.. is there a way to get ride of that?

[Paul]

Don't enclose your missile moving part in it's own loop, have it as a part of the other parts of the program (like plane moving) or have a process.

[Dan]

Paul Bian wrote:

Don't enclose your missile moving part in it's own loop, have it as a part of the other parts of the program (like plane moving) or have a process.

I whould not recomend process for this, probly best to make one main loop with deals with eveything. Process can be good but you have to understand how they work and turing has limited conortl over them. Since turing has no way to set proity of a process all you know is that the code may run at some time. So baliky unless you got a dual CPU system a process will run lines of code in it at basicly random times durning the excution of your progame. If it dose not mater when they run then it could be good to use them but it gives you less conortl over things.

[Cervantes]

TrAnCeIn4LiFe wrote:

is there a way to make two buttons work at once, because i have missles shooting out of my plane and when i shoot everything pauses until the missle hits.. is there a way to get ride of that?

are you using getch? if so, use Input.KeyDown. are you talking about mouse buttons or keyboard buttons? if mouse buttons, then use Mouse.ButtonChoose("multibutton")

[omni]

i dont think those are the buttons hes talking about Cervantes. I had a similiar problem with my shooting game. Whenever the user pressed a button to shoot, I would call a procedure to shoot the bullet. THAT was my mistake. As the others said, make your main game loop handle the bullet increasing. I think this is what TrAnCeIn4LiFe code looks like:

proc shoot
loop
%increase bullet
exit when bullethitwall=true
end loop
end shoot
loop
if key(shoot) then
shoot
end if
end loop

Well at least thats what my code looked like before.

[TrAnCeIn4LiFe]

ahem this is what my code looks like

code:

% input keys to move plane around     loop         Input.KeyDown (chars)         if chars (KEY_UP_ARROW) then             for x : 1 .. 1                 xx (x) := x                 yt := 4             end for         elsif chars (KEY_RIGHT_ARROW) then             for x : 1 .. 1                 xx (x) := 2                 xr := 4             end for         elsif chars (KEY_DOWN_ARROW) then             for x : 1 .. 1                 xx (x) := x                 yb := yb - 4             end for         elsif chars (KEY_LEFT_ARROW) then             for x : 1 .. 1                 xx (x) := x + 2                 xl := xl - 4             end for         end if         if chars ('x') then             if xx (1) > 0 then                 for bullet : 1 .. maxy                     for x : 1 .. 1                         bxr := bxr + xl + xr                         byt := byt + yb + yt                         View.Update                         Pic.Draw (background, 0, 0, picCopy)                         Pic.Draw (sprite (xx (x)), bxr, byt, picMerge)                         Pic.Draw (missle, bxr + 25, byt + bullet, picMerge)                         View.Update                         Pic.Draw (missle, bxr + 0, byt + bullet, picMerge)                         View.Update                         Pic.Draw (missle, bxr + 50, byt + bullet, picMerge)                         bars                     end for                 end for             end if         elsif chars ('z') then             if xx (1) > 0 then                 for bullet : 1 .. maxy                     for x : 1 .. 1                         bxr := bxr + xl + xr                         byt := byt + yb + yt                         View.Update                         Pic.Draw (background, 0, 0, picCopy)                         Pic.Draw (sprite (xx (x)), bxr, byt, picMerge)                         Pic.Draw (missle, bxr + 25, byt + bullet, picMerge)                         bars                     end for                 end for             end if         end if         if xx (1) > 0 then         % move the airplane             for x : 1 .. 1                 bxr := bxr + xl + xr                 byt := byt + yb + yt                 View.Update                 Pic.Draw (background, 0, 0, picCopy)                 Pic.Draw (sprite (xx (x)), bxr, byt, picMerge)                 bars             end for             View.Update         end if

adn the problem is i have liek wind factor in my game so it pushes you to the sides... ehe makes it more challenging but the main problem is when i shoot the plain gets stuck with the shot like the screen freezes in the spot until the shot gets to the end of y...

[omni]

still is the same thing, you put the bullet increasing and drawing in a separate loop. So that means that the program has to finish with that loop before going on with the main game loop. If you move it somehow into the main game loop, then you wouldn't have the problem.