Stickman Kicking but wont reset to normal

[customae7]

I have managed to create two stickman that move and jump, player 1 will kick but it stays that way. I have added a elsif stament that should put it back to normal but its not working. If someone could figure out how to cotinually press space to have the guy keep kicking in a row right now I wont draw him normal take a look.

[Tallguy]

post the program and let others have a look at it

[customae7]

setscreen ("offscreenonly")
type Coord :
record
x, y : int
end record

type Position :
record
Head : Coord
Torso : Coord
LeftArm : Coord
LeftWrist : Coord
%LeftHand : Coord
RightArm : Coord
RightWrist : Coord
%RightHand : Coord
LeftThigh : Coord
LeftLeg : Coord
%LeftFoot : Coord
RightThigh : Coord
RightLeg : Coord
%RightFoot : Coord
end record

function PosStanding (x, y : int) : Position
var person : Position
person.Head.x := x %Setting Head equal to x to be set later
person.Head.y := y %Setting Head equal to y to be set later
person.Torso.x := x %Setting Torso equal to x
person.Torso.y := y - 50 %Drawing Torso
person.LeftArm.x := x + 20 %Drawing leftarm x positon
person.LeftArm.y := y - 30 %Drawing leftarm y positon
person.LeftWrist.x := x + 25 %Drawing leftwrist x positon
person.LeftWrist.y := y - 15 %Drawing leftwrist y positon
person.RightArm.x := x - 15 %Drawing rightarm x positon
person.RightArm.y := y - 35 %Drawing rightarm y positon
person.RightWrist.x := x + 5 %Drawing rightwrist x positon
person.RightWrist.y := y - 25 %Drawing rightwrist y positon
person.LeftThigh.x := x + 15 %Drawing leftthigh x positon
person.LeftThigh.y := y - 65 %Drawing leftthigh y positon
person.LeftLeg.x := x + 20 %Drawing LeftLeg x positon
person.LeftLeg.y := y - 85 %Drawing LeftLeg y positon
person.RightThigh.x := x - 4 %Drawing RightThigh x positon
person.RightThigh.y := y - 65 %Drawing RightThigh y positon
person.RightLeg.x := x - 10 %Drawing RightLeg x positon
person.RightLeg.y := y - 85 %Drawing RightLeg y positon
result person
end PosStanding

function PosPunching (x, y, posNum : int) : Position
var person : Position
if posNum = 1 or posNum = 3 then
person.Head.x := x %Setting Head equal to x to be set later
person.Head.y := y %Setting Head equal to y to be set later
person.Torso.x := x %Setting Torso equal to x
person.Torso.y := y - 50 %Drawing Torso
person.LeftArm.x := x + 35 %Drawing leftarm x positon
person.LeftArm.y := y - 30 %Drawing leftarm y positon
person.LeftWrist.x := x + 35 %Drawing leftwrist x positon
person.LeftWrist.y := y - 30 %Drawing leftwrist y positon
person.RightArm.x := x - 15 %Drawing rightarm x positon
person.RightArm.y := y - 35 %Drawing rightarm y positon
person.RightWrist.x := x + 5 %Drawing rightwrist x positon
person.RightWrist.y := y - 25 %Drawing rightwrist y positon
person.LeftThigh.x := x + 15 %Drawing leftthigh x positon
person.LeftThigh.y := y - 65 %Drawing leftthigh y positon
person.LeftLeg.x := x + 20 %Drawing LeftLeg x positon
person.LeftLeg.y := y - 85 %Drawing LeftLeg y positon
person.RightThigh.x := x - 4 %Drawing RightThigh x positon
person.RightThigh.y := y - 65 %Drawing RightThigh y positon
person.RightLeg.x := x - 10 %Drawing RightLeg x positon
person.RightLeg.y := y - 85 %Drawing RightLeg y positon
elsif posNum = 2 then
person.Head.x := x %Setting Head equal to x to be set later
person.Head.y := y %Setting Head equal to y to be set later
person.Torso.x := x %Setting Torso equal to x
person.Torso.y := y - 50 %Drawing Torso
person.LeftArm.x := x + 20 %Drawing leftarm x positon
person.LeftArm.y := y - 30 %Drawing leftarm y positon
person.LeftWrist.x := x + 25 %Drawing leftwrist x positon
person.LeftWrist.y := y - 15 %Drawing leftwrist y positon
person.RightArm.x := x - 15 %Drawing rightarm x positon
person.RightArm.y := y - 35 %Drawing rightarm y positon
person.RightWrist.x := x + 5 %Drawing rightwrist x positon
person.RightWrist.y := y - 25 %Drawing rightwrist y positon
person.LeftThigh.x := x + 15 %Drawing leftthigh x positon
person.LeftThigh.y := y - 65 %Drawing leftthigh y positon
person.LeftLeg.x := x + 20 %Drawing LeftLeg x positon
person.LeftLeg.y := y - 85 %Drawing LeftLeg y positon
person.RightThigh.x := x - 4 %Drawing RightThigh x positon
person.RightThigh.y := y - 65 %Drawing RightThigh y positon
person.RightLeg.x := x - 10 %Drawing RightLeg x positon
person.RightLeg.y := y - 85 %Drawing RightLeg y positon
end if
result person
end PosPunching

function PosKicking (x, y, posNum : int) : Position
var person : Position
if posNum = 1 or posNum = 3 then
person.Head.x := x
person.Head.y := y
person.Torso.x := x
person.Torso.y := y - 50
person.LeftArm.x := x + 20
person.LeftArm.y := y - 30
person.LeftWrist.x := x + 25
person.LeftWrist.y := y - 15
person.RightArm.x := x - 15
person.RightArm.y := y - 35
person.RightWrist.x := x + 5
person.RightWrist.y := y - 25
person.LeftThigh.x := x + 35
person.LeftThigh.y := y - 65
person.LeftLeg.x := x + 35
person.LeftLeg.y := y - 65
person.RightThigh.x := x - 4
person.RightThigh.y := y - 65
person.RightLeg.x := x - 10
person.RightLeg.y := y - 85
elsif posNum = 2 then
person.Head.x := x
person.Head.y := y
person.Torso.x := x
person.Torso.y := y - 50
person.LeftArm.x := x + 20
person.LeftArm.y := y - 30
person.LeftWrist.x := x + 25
person.LeftWrist.y := y - 15
person.RightArm.x := x - 15
person.RightArm.y := y - 35
person.RightWrist.x := x + 5
person.RightWrist.y := y - 25
person.LeftThigh.x := x + 15
person.LeftThigh.y := y - 65
person.LeftLeg.x := x + 20
person.LeftLeg.y := y - 85
person.RightThigh.x := x - 4
person.RightThigh.y := y - 65
person.RightLeg.x := x - 10
person.RightLeg.y := y - 85
end if
result person
end PosKicking

function PosWalking (x, y, positionNum : int) : Position
var person : Position
if positionNum = 1 then
person.Head.x := x
person.Head.y := y
person.Torso.x := x
person.Torso.y := y - 50
person.LeftArm.x := x + 20
person.LeftArm.y := y - 30
person.LeftWrist.x := x + 25
person.LeftWrist.y := y - 15
person.RightArm.x := x - 15
person.RightArm.y := y - 35
person.RightWrist.x := x + 5
person.RightWrist.y := y - 25
person.LeftThigh.x := x + 15
person.LeftThigh.y := y - 65
person.LeftLeg.x := x + 20
person.LeftLeg.y := y - 85
person.RightThigh.x := x + 5
person.RightThigh.y := y - 65
person.RightLeg.x := x - 1
person.RightLeg.y := y - 85
elsif positionNum = -1 then
person.Head.x := x
person.Head.y := y
person.Torso.x := x
person.Torso.y := y - 50
person.LeftArm.x := x + 20
person.LeftArm.y := y - 30
person.LeftWrist.x := x + 25
person.LeftWrist.y := y - 15
person.RightArm.x := x - 15
person.RightArm.y := y - 35
person.RightWrist.x := x + 5
person.RightWrist.y := y - 25
person.LeftThigh.x := x + 10
person.LeftThigh.y := y - 65
person.LeftLeg.x := x + 5
person.LeftLeg.y := y - 85
person.RightThigh.x := x - 4
person.RightThigh.y := y - 65
person.RightLeg.x := x - 10
person.RightLeg.y := y - 85
end if
result person
end PosWalking

function PosJumping (x, y, posNum : int) : Position
var person : Position
if posNum = 1 or posNum = 3 then
person.Head.x := x
person.Head.y := y + 10
person.Torso.x := x
person.Torso.y := y - 40
person.LeftArm.x := x + 20
person.LeftArm.y := y - 20
person.LeftWrist.x := x + 25
person.LeftWrist.y := y - 5
person.RightArm.x := x - 15
person.RightArm.y := y - 25
person.RightWrist.x := x + 5
person.RightWrist.y := y - 15
person.LeftThigh.x := x + 15
person.LeftThigh.y := y - 45
person.LeftLeg.x := x + 11
person.LeftLeg.y := y - 65
person.RightThigh.x := x - 10
person.RightThigh.y := y - 45
person.RightLeg.x := x - 5
person.RightLeg.y := y - 65
elsif posNum = 2 then
person.Head.x := x
person.Head.y := y + 25
person.Torso.x := x
person.Torso.y := y - 25
person.LeftArm.x := x + 20
person.LeftArm.y := y - 5
person.LeftWrist.x := x + 25
person.LeftWrist.y := y + 10
person.RightArm.x := x - 15
person.RightArm.y := y - 10
person.RightWrist.x := x + 5
person.RightWrist.y := y
person.LeftThigh.x := x + 15
person.LeftThigh.y := y - 20
person.LeftLeg.x := x + 11
person.LeftLeg.y := y - 40
person.RightThigh.x := x - 10
person.RightThigh.y := y - 20
person.RightLeg.x := x - 5
person.RightLeg.y := y - 40
end if
result person
end PosJumping

function PosTurning (x, y, posNum : int) : Position
var person : Position
person.Head.x := x
person.Head.y := y
person.Torso.x := x
person.Torso.y := y - 50
person.LeftArm.x := x + 20
person.LeftArm.y := y - 30
person.LeftWrist.x := x - 1
person.LeftWrist.y := y - 30
person.RightArm.x := x - 15
person.RightArm.y := y - 35
person.RightWrist.x := x - 25
person.RightWrist.y := y - 25
person.LeftThigh.x := x + 4
person.LeftThigh.y := y - 65
person.LeftLeg.x := x + 10
person.LeftLeg.y := y - 85
person.RightThigh.x := x - 15
person.RightThigh.y := y - 65
person.RightLeg.x := x - 15
person.RightLeg.y := y - 85
result person
end PosTurning

function PosStanding2 (x, y : int) : Position
var person2 : Position
person2.Head.x := x
person2.Head.y := y
person2.Torso.x := x
person2.Torso.y := y - 50
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 30
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 30
person2.RightArm.x := x - 15
person2.RightArm.y := y - 35
person2.RightWrist.x := x - 25
person2.RightWrist.y := y - 25
person2.LeftThigh.x := x + 4
person2.LeftThigh.y := y - 65
person2.LeftLeg.x := x + 10
person2.LeftLeg.y := y - 85
person2.RightThigh.x := x - 15
person2.RightThigh.y := y - 65
person2.RightLeg.x := x - 15
person2.RightLeg.y := y - 85
result person2
end PosStanding2

function PosWalking2 (x, y, positionNum : int) : Position
var person2 : Position
if positionNum = 1 then
person2.Head.x := x
person2.Head.y := y
person2.Torso.x := x
person2.Torso.y := y - 50
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 30
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 30
person2.RightArm.x := x - 15
person2.RightArm.y := y - 35
person2.RightWrist.x := x - 25
person2.RightWrist.y := y - 25
person2.LeftThigh.x := x - 1
person2.LeftThigh.y := y - 65
person2.LeftLeg.x := x + 10
person2.LeftLeg.y := y - 85
person2.RightThigh.x := x - 15
person2.RightThigh.y := y - 65
person2.RightLeg.x := x - 15
person2.RightLeg.y := y - 85
elsif positionNum = -1 then
person2.Head.x := x
person2.Head.y := y
person2.Torso.x := x
person2.Torso.y := y - 50
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 30
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 30
person2.RightArm.x := x - 15
person2.RightArm.y := y - 35
person2.RightWrist.x := x - 5
person2.RightWrist.y := y - 25
person2.LeftThigh.x := x + 4
person2.LeftThigh.y := y - 65
person2.LeftLeg.x := x + 10
person2.LeftLeg.y := y - 85
person2.RightThigh.x := x - 4
person2.RightThigh.y := y - 65
person2.RightLeg.x := x - 10
person2.RightLeg.y := y - 85
end if
result person2
end PosWalking2

function TurnAround2 (x, y, posNum : int) : Position
var person2 : Position
person2.Head.x := x %Setting Head equal to x to be set later
person2.Head.y := y %Setting Head equal to y to be set later
person2.Torso.x := x %Setting Torso equal to x
person2.Torso.y := y - 50 %Drawing Torso
person2.LeftArm.x := x + 20 %Drawing leftarm x positon
person2.LeftArm.y := y - 30 %Drawing leftarm y positon
person2.LeftWrist.x := x + 25 %Drawing leftwrist x positon
person2.LeftWrist.y := y - 15 %Drawing leftwrist y positon
person2.RightArm.x := x - 15 %Drawing rightarm x positon
person2.RightArm.y := y - 35 %Drawing rightarm y positon
person2.RightWrist.x := x + 5 %Drawing rightwrist x positon
person2.RightWrist.y := y - 25 %Drawing rightwrist y positon
person2.LeftThigh.x := x + 15 %Drawing leftthigh x positon
person2.LeftThigh.y := y - 65 %Drawing leftthigh y positon
person2.LeftLeg.x := x + 20 %Drawing LeftLeg x positon
person2.LeftLeg.y := y - 85 %Drawing LeftLeg y positon
person2.RightThigh.x := x - 4 %Drawing RightThigh x positon
person2.RightThigh.y := y - 65 %Drawing RightThigh y positon
person2.RightLeg.x := x - 10 %Drawing RightLeg x positon
person2.RightLeg.y := y - 85 %Drawing RightLeg y positon
result person2
end TurnAround2

function PosJumping2 (x, y, posNum : int) : Position
var person2 : Position
if posNum = 1 or posNum = 3 then
person2.Head.x := x
person2.Head.y := y + 10
person2.Torso.x := x
person2.Torso.y := y - 40
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 20
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 20
person2.RightArm.x := x - 15
person2.RightArm.y := y - 25
person2.RightWrist.x := x - 25
person2.RightWrist.y := y - 15
person2.LeftThigh.x := x + 15
person2.LeftThigh.y := y - 45
person2.LeftLeg.x := x + 11
person2.LeftLeg.y := y - 65
person2.RightThigh.x := x - 10
person2.RightThigh.y := y - 45
person2.RightLeg.x := x - 5
person2.RightLeg.y := y - 65
elsif posNum = 2 then
person2.Head.x := x
person2.Head.y := y + 25
person2.Torso.x := x
person2.Torso.y := y - 25
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 5
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 10
person2.RightArm.x := x - 15
person2.RightArm.y := y - 10
person2.RightWrist.x := x - 25
person2.RightWrist.y := y
person2.LeftThigh.x := x + 15
person2.LeftThigh.y := y - 20
person2.LeftLeg.x := x + 11
person2.LeftLeg.y := y - 40
person2.RightThigh.x := x - 10
person2.RightThigh.y := y - 20
person2.RightLeg.x := x - 5
person2.RightLeg.y := y - 40
end if
result person2
end PosJumping2

function PosPunching2 (x, y, posNum : int) : Position
var person2 : Position
if posNum = 1 or posNum = 3 then
person2.Head.x := x
person2.Head.y := y
person2.Torso.x := x
person2.Torso.y := y - 50
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 30
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 30
person2.RightArm.x := x - 35
person2.RightArm.y := y - 30
person2.RightWrist.x := x - 35
person2.RightWrist.y := y - 30
person2.LeftThigh.x := x + 4
person2.LeftThigh.y := y - 65
person2.LeftLeg.x := x + 10
person2.LeftLeg.y := y - 85
person2.RightThigh.x := x - 15
person2.RightThigh.y := y - 65
person2.RightLeg.x := x - 15
person2.RightLeg.y := y - 85
elsif posNum = 2 then
person2.Head.x := x
person2.Head.y := y
person2.Torso.x := x
person2.Torso.y := y - 50
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 30
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 30
person2.RightArm.x := x - 15
person2.RightArm.y := y - 35
person2.RightWrist.x := x - 25
person2.RightWrist.y := y - 25
person2.LeftThigh.x := x + 4
person2.LeftThigh.y := y - 65
person2.LeftLeg.x := x + 10
person2.LeftLeg.y := y - 85
person2.RightThigh.x := x - 15
person2.RightThigh.y := y - 65
person2.RightLeg.x := x - 15
person2.RightLeg.y := y - 85
end if
result person2
end PosPunching2

function PosKicking2 (x, y, posNum : int) : Position
var person2 : Position
if posNum = 1 or posNum = 3 then
person2.Head.x := x
person2.Head.y := y
person2.Torso.x := x
person2.Torso.y := y - 50
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 30
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 30
person2.RightArm.x := x - 15
person2.RightArm.y := y - 35
person2.RightWrist.x := x - 25
person2.RightWrist.y := y - 25
person2.LeftThigh.x := x + 4
person2.LeftThigh.y := y - 65
person2.LeftLeg.x := x + 10
person2.LeftLeg.y := y - 85
person2.RightThigh.x := x - 35
person2.RightThigh.y := y - 65
person2.RightLeg.x := x - 35
person2.RightLeg.y := y - 65
elsif posNum = 2 then
person2.Head.x := x
person2.Head.y := y
person2.Torso.x := x
person2.Torso.y := y - 50
person2.LeftArm.x := x + 20
person2.LeftArm.y := y - 30
person2.LeftWrist.x := x - 1
person2.LeftWrist.y := y - 30
person2.RightArm.x := x - 15
person2.RightArm.y := y - 35
person2.RightWrist.x := x - 25
person2.RightWrist.y := y - 25
person2.LeftThigh.x := x + 4
person2.LeftThigh.y := y - 65
person2.LeftLeg.x := x + 10
person2.LeftLeg.y := y - 85
person2.RightThigh.x := x - 15
person2.RightThigh.y := y - 65
person2.RightLeg.x := x - 15
person2.RightLeg.y := y - 85
end if
result person2
end PosKicking2

procedure drawFigure (person2, person : Position)
drawoval (person.Head.x, person.Head.y, 10, 10, black) %head
drawline (person.Head.x, person.Head.y - 10, person.Torso.x, person.Torso.y, black) %torso
drawline (person.Head.x, person.Head.y - 18, person.LeftArm.x, person.LeftArm.y, black) %left arm
drawline (person.LeftArm.x, person.LeftArm.y, person.LeftWrist.x, person.LeftWrist.y, black) %left wrist
drawline (person.Head.x, person.Head.y - 18, person.RightArm.x, person.RightArm.y, black) %right arm
drawline (person.RightArm.x, person.RightArm.y, person.RightWrist.x, person.RightWrist.y, black) %right wrist
drawline (person.Torso.x, person.Torso.y, person.LeftThigh.x, person.LeftThigh.y, black) %left thigh
drawline (person.LeftThigh.x, person.LeftThigh.y, person.LeftLeg.x, person.LeftLeg.y, black) %left leg
drawline (person.Torso.x, person.Torso.y, person.RightThigh.x, person.RightThigh.y, black) %right thigh
drawline (person.RightThigh.x, person.RightThigh.y, person.RightLeg.x, person.RightLeg.y, black) %right leg
drawoval (person2.Head.x, person2.Head.y, 10, 10, black) %head
drawline (person2.Head.x, person2.Head.y - 10, person2.Torso.x, person2.Torso.y, black) %torso
drawline (person2.Head.x, person2.Head.y - 18, person2.LeftArm.x, person2.LeftArm.y, black) %left arm
drawline (person2.LeftArm.x, person2.LeftArm.y, person2.LeftWrist.x, person2.LeftWrist.y, black) %left wrist
drawline (person2.Head.x, person2.Head.y - 18, person2.RightArm.x, person2.RightArm.y, black) %right arm
drawline (person2.RightArm.x, person2.RightArm.y, person2.RightWrist.x, person2.RightWrist.y, black) %right wrist
drawline (person2.Torso.x, person2.Torso.y, person2.LeftThigh.x, person2.LeftThigh.y, black) %left thigh
drawline (person2.LeftThigh.x, person2.LeftThigh.y, person2.LeftLeg.x, person2.LeftLeg.y, black) %left leg
drawline (person2.Torso.x, person2.Torso.y, person2.RightThigh.x, person2.RightThigh.y, black) %right thigh
drawline (person2.RightThigh.x, person2.RightThigh.y, person2.RightLeg.x, person2.RightLeg.y, black) %right leg
end drawFigure

var Player2, Player1 : Position
var P1Head, P2Head : Coord
P2Head.x := 350 %Position of Player2 Head x position
P2Head.y := 85 %Position of Player2 Head y position
Player2 := PosStanding2 (P2Head.x, P2Head.y)
var chars : array char of boolean
var Moving, Moving2, Jumping, Jumping2, Kicking : boolean := false
var Kicking2, Turning2, Turning, Punching, Punching2 : boolean := false
var MoveNum, MoveNum2, JumpNum, JumpNum2, KickNum : int := 0
var KickNum2, TurnNum2, TurnNum, PunchNum, PunchNum2 : int := 0
var Matrix : int
Matrix := Pic.FileNew ("Matrix.jpg")
Matrix := Pic.Scale (Matrix, maxx, maxy)
P1Head.x := 250 %Position of Player1 Head x position
P1Head.y := 85 %Position of Player1 Head y position
Player1 := PosStanding (P1Head.x, P1Head.y) %Sets Player1 equal to position standing
Player2 := PosStanding2 (P2Head.x, P2Head.y) %Sets Player2 equal to position standing


loop
Pic.Draw (Matrix, 0, 0, picMerge)
Input.KeyDown (chars)
if not Moving and not Jumping then
if chars (KEY_RIGHT_ARROW) then
Moving := true
MoveNum := 1
P1Head.x += 5
Player1 := PosWalking (P1Head.x, P1Head.y, MoveNum)
elsif chars (KEY_LEFT_ARROW) then
Moving := true
MoveNum := -1
P1Head.x -= 5
Player1 := PosWalking (P1Head.x, P1Head.y, MoveNum)
end if
if chars (KEY_UP_ARROW) then
Jumping := true
JumpNum := 1
if Moving then
P1Head.x += 5 * sign (MoveNum)
end if
Player1 := PosJumping (P1Head.x, P1Head.y, JumpNum)
end if
if chars (KEY_DOWN_ARROW) then
Turning := true
TurnNum := 1
P1Head.x += 0
Player1 := PosTurning (P1Head.x, P1Head.y, TurnNum)
elsif Turning then
if TurnNum = 3 then
Player1 := PosStanding2 (P1Head.x, P1Head.y)
Turning := false
TurnNum := 0
else
TurnNum += 1
Player1 := PosTurning (P1Head.x, P1Head.y, TurnNum)
end if
end if
if chars ('p') then
Punching := true
PunchNum := 1
P1Head.x += 0
Player1 := PosPunching (P1Head.x, P1Head.y, PunchNum)
elsif Punching then
if PunchNum = 3 then
Player1 := PosStanding (P1Head.x, P1Head.y)
Punching := false
PunchNum := 0
else
PunchNum += 1
Player1 := PosPunching (P1Head.x, P1Head.y, PunchNum)
end if
end if
if chars (' ') then
Kicking := true
KickNum := 1
P1Head.x += 0
Player1 := PosKicking (P1Head.x, P1Head.y, KickNum)
elsif Kicking then
if KickNum = 3 then
Player1 := PosStanding (P1Head.x, P1Head.y)
Kicking := false
KickNum := 0
else
KickNum += 1
Player1 := PosKicking (P1Head.x, P1Head.y, KickNum)
end if
end if
else
if Moving and Jumping then
if JumpNum = 3 then
P1Head.x += 5 * sign (MoveNum)
Player1 := PosStanding (P1Head.x, P1Head.y)
Moving := false
Jumping := false
MoveNum := 0
JumpNum := 0
else
JumpNum += 1
P1Head.x += 5 * sign (MoveNum)
Player1 := PosJumping (P1Head.x, P1Head.y, JumpNum)
end if
elsif Moving then
if MoveNum > 0 then
MoveNum -= 1
P1Head.x += 5
Player1 := PosStanding (P1Head.x, P1Head.y)
Moving := false
elsif MoveNum < 0 then
MoveNum += 1
P1Head.x -= 5
Player1 := PosStanding (P1Head.x, P1Head.y)
Moving := false
end if
elsif Jumping then
if JumpNum = 3 then
Player1 := PosStanding (P1Head.x, P1Head.y)
Jumping := false
JumpNum := 0
else
JumpNum += 1
Player1 := PosJumping (P1Head.x, P1Head.y, JumpNum)
end if
end if
end if

if not Moving2 and not Jumping2 then
if chars ('d') then
Moving2 := true
MoveNum2 := 1
P2Head.x += 5
Player2 := PosWalking2 (P2Head.x, P2Head.y, MoveNum2)
elsif chars ('a') then
Moving2 := true
MoveNum2 := -1
P2Head.x -= 5
Player2 := PosWalking2 (P2Head.x, P2Head.y, MoveNum2)
end if
if chars ('w') then
Jumping2 := true
JumpNum2 := 1
if Moving2 then
P2Head.x += 5 * sign (MoveNum2)
end if
Player2 := PosJumping2 (P2Head.x, P2Head.y, JumpNum2)
end if
if chars ('s') then
Kicking2 := true
KickNum2 := 1
P2Head.x += 0
Player2 := PosKicking2 (P2Head.x, P2Head.y, KickNum2)
elsif Kicking2 then
if KickNum2 = 3 then
Player2 := PosStanding2 (P2Head.x, P2Head.y)
Kicking2 := false
KickNum2 := 0
else
KickNum2 += 1
Player2 := PosKicking2 (P2Head.x, P2Head.y, KickNum2)
end if
end if
if chars ('x') then
Turning2 := true
TurnNum2 := 1
P2Head.x += 0
Player2 := TurnAround2 (P2Head.x, P2Head.y, TurnNum2)
elsif Turning2 then
if TurnNum2 = 3 then
Player2 := PosStanding (P2Head.x, P2Head.y)
Turning2 := false
TurnNum2 := 0
else
TurnNum2 += 1
Player2 := TurnAround2 (P2Head.x, P2Head.y, TurnNum2)
end if
end if
if chars ('q') then
Punching2 := true
PunchNum2 := 1
P2Head.x += 0
Player2 := PosPunching2 (P2Head.x, P2Head.y, PunchNum2)
elsif Punching2 then
if PunchNum2 = 3 then
Player2 := PosStanding2 (P2Head.x, P2Head.y)
Punching2 := false
PunchNum2 := 0
else
PunchNum2 += 1
Player2 := PosPunching2 (P2Head.x, P2Head.y, PunchNum2)
end if
end if
else
if Moving2 and Jumping2 then
if JumpNum2 = 3 then
P2Head.x += 5 * sign (MoveNum2)
Player2 := PosStanding2 (P2Head.x, P2Head.y)
Moving2 := false
Jumping2 := false
MoveNum2 := 0
JumpNum2 := 0
else
JumpNum2 += 1
P2Head.x += 5 * sign (MoveNum2)
Player2 := PosJumping2 (P2Head.x, P2Head.y, JumpNum2)
end if
elsif Moving2 then
if MoveNum2 > 0 then
MoveNum2 -= 1
P2Head.x += 5
Player2 := PosStanding2 (P2Head.x, P2Head.y)
Moving2 := false
elsif MoveNum2 < 0 then
MoveNum2 += 1
P2Head.x -= 5
Player2 := PosStanding2 (P2Head.x, P2Head.y)
Moving2 := false
end if
elsif Jumping2 then
if JumpNum2 = 3 then
Player2 := PosStanding2 (P2Head.x, P2Head.y)
Jumping2 := false
JumpNum2 := 0
else
JumpNum2 += 1
Player2 := PosJumping2 (P2Head.x, P2Head.y, JumpNum2)
end if
end if
end if
drawFigure (Player2, Player1)
View.Update
delay (90)
cls
end loop