Input.KeyDown Not Working

[BrindaV]

Well, my program was working fine with Input.KeyDown, until I added another KeyDown. The last KeyDown doesn't seem to work, it doesn't get input. Here's the code:

/*

Declarations for screen info are being made.

*/

View.Set ("NoCursor")
View.Set ("NoEcho")
View.Set ("Graphics: 900; Max, NoButtonBar")

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/*

Variable Delclarations

*/

var Background : int
var Talking := Font.New ("Bauhaus 93:30:Bold")
var IP : array char of boolean
var Box : int
var Character : int
var Name : string
var IP2 : array char of boolean

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Music.PlayFileLoop ("MainTheme.mp3")

Background := Pic.FileNew ("Shonen_Jump_Wallpaper.jpg")
Pic.DrawSpecial (Background, 0, 0, picCopy, picFadeIn, 1650)
delay (500)
Font.Draw ("Press Enter To Continue", 170, 150, Talking, white)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/*

These sequences involving loops for input are highlighted. They get and handle
keyboard input.

*/

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

loop

Input.KeyDown (IP)

if IP (KEY_ESC) then

% Escape Exit Option is Given. Loop is not exited unless Enter Key is pressed however.

Music.PlayFileStop

cls

put "Thank You for Using."

delay (2000)
cls

end if

% Only exits if Input is the Enter Key.

exit when IP (KEY_ENTER)

end loop

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Music.PlayFileStop

Pic.Free (Background)

Music.PlayFileLoop ("MeetingNaruto.mp3")

Background := Pic.FileNew ("Cut1.jpg")

Box := Pic.FileNew ("TextBox.jpg")

Character := Pic.FileNew ("IchigoHead.jpg")

Talking := Font.New ("Arial:14")

Pic.DrawSpecial (Background, 0, 0, picCopy, picFadeIn, 1000)
Pic.DrawSpecial (Box, 25, 25, picMerge, picFadeIn, 1000)
Pic.DrawSpecial (Character, 0, 0, picMerge, picFadeIn, 1000)

Font.Draw ("Hey you! D'you know where here is?", 185, 137, Talking, white)
delay (2000)
Font.Draw ("Well? Do you?", 185, 110, Talking, white)
delay (2000)
Font.Draw ("Ahhh, whatever!", 185, 83, Talking, white)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

loop

Input.KeyDown (IP)

if IP (KEY_ESC) then

Music.PlayFileStop

cls

put "Thank You for Using."

delay (2000)
cls

end if

exit when IP (KEY_ENTER)

end loop

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

cls

Pic.DrawSpecial (Background, 0, 0, picCopy, picFadeIn, 1)
Pic.DrawSpecial (Box, 25, 25, picMerge, picFadeIn, 1)
Pic.DrawSpecial (Character, 0, 0, picMerge, picFadeIn, 1)

delay (2000)

Font.Draw ("Let's just look around. You go that way and I'll go this way.", 185, 137, Talking, white)

delay (1000)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

loop

Input.KeyDown (IP)

if IP (KEY_ESC) then

Music.PlayFileStop

cls

put "Thank You for Using."

delay (2000)
cls

end if

exit when IP (KEY_ENTER)

end loop

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

cls

Music.PlayFileStop

Pic.Free (Background)

Music.PlayFileLoop ("MenuMusic.mp3")

Background := Pic.FileNew ("RPG MAP.jpg")
Pic.DrawSpecial (Background, 0, 0, picCopy, picFadeIn, 1000)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/*

Program is functioning well until this point. - 4:55

*/

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

Talking := Font.New ("Bauhaus 93:24")

Font.Draw ("Enter Your Name To Continue", 185, 500, Talking, white)

Draw.FillBox (200, 300, 700, 400, black)
Draw.FillBox (225, 325, 675, 375, white)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/*

Working until here as well. Going to add the Get Name function now. - 5:13

*/

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

locate (17, 25)

get Name : *

cls

Pic.Draw (Background, 0, 0, picCopy)

Draw.FillBox (200, 300, 700, 400, black)
Draw.FillBox (225, 325, 675, 375, white)

Font.Draw (Name, 230, 330, Talking, black)

Font.Draw ("If This Is Okay, Press Enter, Otherwise, Too Bad", 30, 500, Talking, white)

delay (2000)

loop

Input.KeyDown (IP2)

if IP2 (KEY_ESC)then

return

end if

exit when IP2 (KEY_ENTER)

end loop

[Tony]

Too much code (cut it down to just an example that demonstrates the problem). Use [ code ] tags. Answer the template questions.