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

Artimes

Thu Nov 04, 2004 7:34 pm


Simple Pacman AI

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

I'm making a Pac-Man game and I need some simple AI for my ghosts... This is what I have


 if (superpacman = 0) then
        Pic.Draw (picBlinky1, xBlinky - 10, yBlinky - 10, picMerge)
        if (dirBlinky1 = 1) then
            Pic.Draw (picBlinky3, xBlinky - 5, yBlinky + 1, picMerge)
        elsif (dirBlinky1 = 2) then
            Pic.Draw (picBlinky4, xBlinky - 5, yBlinky + 1, picMerge)
        elsif (dirBlinky1 = 3) then
            Pic.Draw (picBlinky5, xBlinky - 5, yBlinky + 1, picMerge)
        elsif (dirBlinky1 = 4) then
            Pic.Draw (picBlinky6, xBlinky - 5, yBlinky + 1, picMerge)
        end if
    else
        Pic.Draw (picBlinky2, xBlinky - 10, yBlinky - 10, picMerge)
    end if

    if (dirBlinky1 = 1) and (findTile (xBlinky, yBlinky + 10) > 2) then
        dirBlinky1 := Rand.Int (1, 4)
    elsif (dirBlinky1 = 2) and (findTile (xBlinky + 10, yBlinky) > 2) then
        dirBlinky1 := Rand.Int (1, 4)
    elsif (dirBlinky1 = 3) and (findTile (xBlinky, yBlinky - 10) > 2) then
        dirBlinky1 := Rand.Int (1, 4)
    elsif (dirBlinky1 = 4) and (findTile (xBlinky - 10, yBlinky) > 2) then
        dirBlinky1 := Rand.Int (1, 4)
    elsif (dirBlinky1 = 5) then
        dirBlinky1 := Rand.Int (1, 4)
    end if

    dirBlinky2 := false
    if (disBlinky = 0) and (dirBlinky2 = false) then
        if (dirBlinky1 = 1) and (findTile (xBlinky + 20, yBlinky)