-----------------------------------

BrindaV

Wed Jun 15, 2011 4:45 pm


Input.KeyDown Not Working

-----------------------------------

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

Wed Jun 15, 2011 5:27 pm


RE:Input.KeyDown Not Working

-----------------------------------

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