Help Me!!!

[hayawi]

OK, so im trying to make a game just for fun, and i need help with some of the code.
var gy1 : int := 200
var gx2 : int := 220
var gy2 : int := 220
var rx1 : int := 400
var ry1 : int := 400
var rx2 : int := 420
var ry2 : int := 440
var endscreen : int := 630 - gx2

%for making the attacks in the middle
var mult : int := 225

%for sensing the keys that are pressed
var chars : array char of boolean
Input.KeyDown (chars)

var shieldx1 : int := gx2 + 5
var shieldy1 : int := gy1
var shieldx2 : int := shieldx1 + 3
var shieldy2 : int := gy2
var gatkx : int := gx2
var gatky : int := gy2 + gy2 - mult

%my procedures

%go right
procedure right
gx1 := gx1 + 1
gx2 := gx2 + 1
delay (10)
end right

%go left
procedure left
gx1 := gx1 - 1
gx2 := gx2 - 1
delay (10)
end left

%go up
procedure up
gy1 := gy1 + 1
gy2 := gy2 + 1
delay (10)
end up

%go down
procedure down
gy1 := gy1 - 1
gy2 := gy2 - 1
delay (10)
end down

%unused code
%procedure rockshield
% Draw.FillBox (shieldx1, shieldy1, shieldx2, shieldy2, brown)
% delay (10)
%end rockshield

%the atk
procedure rockblast
for i : 1 .. endscreen
cls
Draw.FillBox (gx1, gy1, gx2, gy2, green)
Draw.FillOval (gatkx + i, gatky, 2, 2, brown)
delay (10)
Input.KeyDown (chars)
locate (1, 1)
if chars (KEY_RIGHT_ARROW) then
right
elsif chars (KEY_LEFT_ARROW) then
left
elsif chars (KEY_UP_ARROW) then
up
elsif chars (KEY_DOWN_ARROW) then
down
end if
end for
end rockblast

%the movement
loop
shieldx1 := gx2 + 5
shieldy1 := gy1
shieldx2 := shieldx1 + 3
shieldy2 := gy2
gatkx := gx2
gatky := gy2 + gy2 - mult
cls
Draw.FillBox (gx1, gy1, gx2, gy2, green)
Input.KeyDown (chars)

if chars (KEY_RIGHT_ARROW) then
right
elsif chars (KEY_LEFT_ARROW) then
left
elsif chars (' ') then
rockblast
elsif chars (KEY_UP_ARROW) then
up
elsif chars (KEY_DOWN_ARROW) then
down
end if
delay (10)
end loop



So im trying to make the character move diagonally, because at the moment he only moves up, down, left, or right.



Also, im trying to make the character shoot multiple times, instead of just once, and having to wait until the shot is expired.



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


also, im using turing 4.1.1, please help asap

[Zren]

For #1: Try drawing a diagonal line on a sketch of a graph. Observe how the point's x and y values differ.

For #2: Arrays. Particles. Search for those keywords.

[hayawi]

Damn it, ive never been good with arrays, and i dont get what you mean by the diagonal line, im just saying that i want it to go up and right when you press up and right, also, how do i stop clipping of the images?

[Zren]

You can be pressing all 4+ buttons at once. You require to be pressing at least 2 (up/down and right/left) to move diagonally. Your code only lets you press one at a time.

Remember that in if/elsif/else blocks, only one (the first one that is satisfied) part of the code executes.

[hayawi]

so if im not supposed to use ifs, what do i use?
or are you saying the ifs have to be written differently

[DemonWasp]

You're supposed to use ifs. You just need to write them such that you can, for example, be pressing both up and right at the same time.

It's up to you whether you want to allow people to press up and down at the same time, or left and right at the same time. However, you must allow (one of up or down) and (one of left or right) at the same time.

[Raknarg]

Think about it this way: when you use an if, the if will end as soon as an if it goes over is true. ex:

Turing:

var foo : int := 5 if foo = 5 then      stuff elsif foo = 5 then      other stuff end if

Both statements may hold, but only "stuff" will happen because it skips the rest of the if since the first if was true.

Turing:

var foo : int := 5 if foo = 5 then      stuff end if if foo = 5 then      other stuff end if

Now because they have their own ifs, "stuff" and "other stuff" both happen.

[hayawi]

wow thanks, that really helps, i was on the verge of figuring it out when i made another player and used a different if, but this really explains the concept, thanks