Making coding that allows 2 player gaming

[SAValkyrie]

What is it you are trying to achieve?
I am creating a game that is playable by 2 players. So, first player uses w,a,s,d to control and second player uses Key.Up,Down,Left,Right.

What is the problem you are having?
I can allow the player to control 1 player but I cannot seem to make the second player appear and let the player control it.

Describe what you have tried to solve this problem
I have searched how to do 2 player stuff but there was no information about it at all...

Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)

Turing:

setscreen ("screen:max;max") %-----------------------------------Movements--------------------------------- var x, y : int x := 100 y := 100 var char1 : array char of boolean loop     Input.KeyDown (char1)     if char1 (KEY_UP_ARROW) then         y := y + 5     end if     if char1 (KEY_RIGHT_ARROW) then         x := x + 5     end if     if char1 (KEY_LEFT_ARROW) then         x := x - 5     end if     if char1 (KEY_DOWN_ARROW) then         y := y - 5     end if     if char1 (KEY_ENTER) then         for i : 1 .. 10             drawoval (x, y, 4 + i, 4 + i, blue)             delay (10)         end for     end if     drawoval (x, y, 4, 4, red)     delay (10)     cls end loop

Please specify what version of Turing you are using
4.1.1

[AntoxicatedDevil78]

You should make have teh second player use the A S D W keys


just try duplicating your coding with player 2 setting

[Tony]

where's your code for the other player?

Hint: would your code be any different if it was a single person controlling both players (playing against themselves)?

[SAValkyrie]

So, I followed you guys advice and i added the second player by just copying the code and changing the variables..

Turing:

setscreen ("screen:max;max") %-----------------------------------Movements--------------------------------- var x, y, a, b : int x := 100 y := 100 a := 200 b := 200 var char1 : array char of boolean var char2 : array char of boolean loop     Input.KeyDown (char1)     if char1 (KEY_UP_ARROW) then         y := y + 5     end if     if char1 (KEY_RIGHT_ARROW) then         x := x + 5     end if     if char1 (KEY_LEFT_ARROW) then         x := x - 5     end if     if char1 (KEY_DOWN_ARROW) then         y := y - 5     end if     if char1 (KEY_ENTER) then         for i : 1 .. 10             drawoval (x, y, 4 + i, 4 + i, blue)             delay (10)         end for     end if     drawoval (x, y, 4, 4, red)     delay (10)     cls end loop loop     Input.KeyDown (char2)     if char2 ("w") then         b := b + 5     end if     if char2 ("d") then         a := a + 5     end if     if char2 ("s") then         a := a - 5     end if     if char2 ("a") then         b := b - 5     end if     if char1 ("q") then         for i : 1 .. 10             drawoval (a, b, 4 + i, 4 + i, green)             delay (10)         end for     end if     drawoval (a, b, 4, 4, black)     delay (10)     cls end loop

but it doesnt work D:

[Insectoid]

Will your 2nd loop ever execute?

[SAValkyrie]

Ummm actually no. Do I have to put them in a same loop?

[Panphobia]

if you want them to execute at the same time, yes you need them in the same loop, because for one to be running the other cant be running, dont put the other loop in the first loop, just put the contents

[Insectoid]

Why don't you try it?

[SAValkyrie]

Turing:

setscreen ("screen:max;max") %-----------------------------------Movements--------------------------------- var x, y, a, b : int x := 100 y := 100 a := 200 b := 200 var char1,char2 : array char of boolean loop     Input.KeyDown (char1)     Input.KeyDown (char2)     if char1 (KEY_UP_ARROW) and char2 ("w") then         y := y + 5         b := b + 5     end if     if char1 (KEY_RIGHT_ARROW) and char2 ("d") then         x := x + 5         a := a - 5     end if     if char1 (KEY_LEFT_ARROW) and char2 ("s") then         x := x - 5         b := b - 5     end if     if char1 (KEY_DOWN_ARROW)and char2 ("a") then         y := y - 5         b := b - 5     end if     drawoval (x, y, 4, 4, red)     drawoval (a, b, 4, 4, black)     delay (10)     cls end loop

So, This is why I did and there's an error occuring, I am not quite sure what's the problem. It says Array Subscript is out of range?? What does that mean?

[Panphobia]

ok dont do that, because that means that it wont be 2 player, make seperate ifs for the as and bs and seperate for x and y because right now, one player can control both

[SAValkyrie]

Turing:

setscreen ("screen:max;max") %-----------------------------------Movements--------------------------------- var x, y, a, b : int x := 100 y := 100 a := 200 b := 200 var char1 : array char of boolean var char2 : array char of boolean loop     Input.KeyDown (char1)     Input.KeyDown (char2)     if char1 (KEY_UP_ARROW) then         y := y + 5     end if     if char2 ("w") then         b := b + 5     end if     if char1 (KEY_RIGHT_ARROW) then         x := x + 5     end if     if char2 ("d") then         a := a + 5     end if     if char1 (KEY_LEFT_ARROW) then         x := x - 5     end if     if char2 ("a") then         b := b - 5     end if     if char1 (KEY_DOWN_ARROW) then         y := y - 5     end if     if char2 ("s") then         a := a - 5     end if     if char1 (KEY_ENTER) then         for i : 1 .. 10             drawoval (x, y, 4 + i, 4 + i, blue)             delay (10)         end for     if char2 ("q") then         for i : 1 .. 10             drawoval (a, b, 4 + i, 4 + i, green)             delay (10)         end for     end if     end if     drawoval (x, y, 4, 4, red)     drawoval (a, b, 4, 4, black)     delay (10)     cls end loop

This is what I did and I inputted both character movements in a same loop. But it keeps saying Array Subscript is out of range..

[Panphobia]

when you're setting your screen, this is unrelated but if you have moving objects, put it as offscreenonly, as for me, it flickers if i dont, and also, do you have a view.update? and as for the actual moving of the keys ill look into it on my desktop where i have windows

[Panphobia]

ok um, when you are saying chars2("w") do chars2('w'), because it is a char and chars are recognized by single apostrophes and not quotes enjoy

[Insectoid]

You don't need char2. You can do it just fine with only char1 and only one Input.KeyDown().

[SAValkyrie]

Turing:

setscreen ("screen:max;max,offscreenonly") %-----------------------------------Movements--------------------------------- var x, y, a, b : int x := 100 y := 100 a := 200 b := 200 var char1 : array char of boolean loop     Input.KeyDown (char1)     if char1 (KEY_UP_ARROW) then         y := y + 5     end if     if char1 ('w') then         b := b + 5     end if     if char1 (KEY_RIGHT_ARROW) then         x := x + 5     end if     if char1 ('d') then         a := a + 5     end if     if char1 (KEY_LEFT_ARROW) then         x := x - 5     end if     if char1 ('a') then         b := b - 5     end if     if char1 (KEY_DOWN_ARROW) then         y := y - 5     end if     if char1 ('s') then         a := a - 5     end if     if char1 (KEY_ENTER) then         for i : 1 .. 10             drawoval (x, y, 4 + i, 4 + i, blue)             delay (10)         end for     if char1 ('q') then         for i : 1 .. 10             drawoval (a, b, 4 + i, 4 + i, green)             delay (10)         end for     end if     end if     drawoval (x, y, 4, 4, red)     drawoval (a, b, 4, 4, black)     delay (10)     View.Update     cls end loop

OH! I did it thank you so much !
So, I only used one input keydown and made it work. However, that cls at the end is a problem. When I put cls, it doesnt show anything