var x : int := 339 % pacman's X coordinate
var y : int := 396 % pacman's Y coordinate
var chars : array char of boolean %Input.KeyDown variable

var pacman : int %sprite name

%MY ADDITION---------------------------------------
const PAC_TIME := 25
var mouth_open : boolean := false
var mouth_count : int := 0
%-------------------------------------------------------


var map : int %the map. looks crappy.
var pacmanpic1 : int % pacman mouth open right
var pacmanpic2 : int % pacman mouth open up
var pacmanpic3 : int % pacman mouth open left
var pacmanpic4 : int %pacman mouth open down
var mouthclosed : int % pacman mouth closed
setscreen ("offscreenonly")

setscreen ("graphics: 679, 729")
map := Pic.FileNew ("Map1.bmp")
pacmanpic1 := Pic.FileNew ("pacman1.bmp") %various sprite things
Pic.SetTransparentColor (pacmanpic1, white)
pacmanpic2 := Pic.FileNew ("pacman2.bmp")
Pic.SetTransparentColor (pacmanpic2, white)
pacmanpic3 := Pic.FileNew ("pacman3.bmp")
Pic.SetTransparentColor (pacmanpic3, white)
pacmanpic4 := Pic.FileNew ("pacman4.bmp")
Pic.SetTransparentColor (pacmanpic4, white)
pacman := Sprite.New (pacmanpic1)
mouthclosed := Pic.FileNew ("pacmanmouthclosed.bmp")

Sprite.SetPosition (pacman, x, y, true) %more various sprite things
Sprite.SetHeight (pacman, 2)
Sprite.Show (pacman)

Pic.Draw (map, 1, 1, picCopy) %Draw the map

%move pacman
loop
    Input.KeyDown (chars)
    if chars (KEY_UP_ARROW) and whatdotcolor (x, y + 10) = white then
    mouth_count += 1
        y := y + 1
        if mouth_open = true then
        Sprite.Animate (pacman, pacmanpic2, x, y, true)
        if mouth_count > PAC_TIME then
        mouth_count := 0
        mouth_open := false
        end if
        else
        Sprite.Animate (pacman, mouthclosed, x, y, true)
        if mouth_count > PAC_TIME then
        mouth_count := 0
        mouth_open := true
        end if
        end if
    end if

    if chars (KEY_DOWN_ARROW) and whatdotcolor (x, y - 10) = white then
        y := y - 1
        mouth_count += 1
        if mouth_open = true then
        Sprite.Animate (pacman, pacmanpic4, x, y, true)
        if mouth_count > PAC_TIME then
        mouth_count := 0
        mouth_open := false
        end if
        else
        if mouth_count > PAC_TIME then
        mouth_count := 0
        mouth_open := true
        end if
        Sprite.Animate (pacman, mouthclosed, x, y, true)
        end if
    end if

    if chars (KEY_RIGHT_ARROW) and whatdotcolor (x + 10, y) = white then
        x := x + 1
        mouth_count += 1
        if mouth_open = true then
        Sprite.Animate (pacman, pacmanpic1, x, y, true)
        if mouth_count > PAC_TIME then
        mouth_count := 0
        mouth_open := false
        end if
        else
        if mouth_count > PAC_TIME then
        mouth_count := 0
        mouth_open := true
        end if
        Sprite.Animate (pacman, mouthclosed, x, y, true)
        end if
    end if

    if chars (KEY_LEFT_ARROW) and whatdotcolor (x - 10, y) = white then
    mouth_count += 1
        x := x - 1
        if mouth_open = true then
        Sprite.Animate (pacman, pacmanpic3, x, y, true)
        if mouth_count > PAC_TIME then
        mouth_count := 0
        mouth_open := false
        end if
        else
        if mouth_count > PAC_TIME then
        mouth_count := 0
        mouth_open := true
        end if
        Sprite.Animate (pacman, mouthclosed, x, y, true)
        end if
    end if

    View.Update %get rid of flash
    delay (6)


end loop