function	script	SpawnGhost	{
    if ($GHOSTS_DISABLED)
        goto L_Return;

    if (BaseLevel >= 40 &&
       (getmapname() == "026-1" ||
        getmapname() == "027-1" ||
        getmapname() == "027-2" ||
        getmapname() == "027-3" ||
        getmapname() == "027-4" ||
        getmapname() == "027-5"))
        goto L_Spawn;
    return;

L_Spawn:
    .@x = POS_X;
    .@y = POS_Y;

    if   (!(iscollision(getmapname(), .@x, .@y - 1))) set .@y, .@y - 1; // up
    else if (!(iscollision(getmapname(), .@x, .@y + 1))) set .@y, .@y + 1; // down
    else if (!(iscollision(getmapname(), .@x - 1, .@y))) set .@x, .@x - 1; // left
    else if (!(iscollision(getmapname(), .@x + 1, .@y))) set .@x, .@x + 1; // right
    // else on the player

    // FIXME (Is this a valid event label??)
    if (@GHOST_MAP$ != "")
        killmonster @GHOST_MAP$, "~GH~" + getcharid(0);

    @GHOST_MAP$ = getmapname();
    specialeffect(39, SELF, getcharid(3));
    monster getmapname(), .@x, .@y, strcharinfo(0), 1136, 1, "~GH~" + getcharid(0);
    return;

L_Return:
    return;
}