Force Kill NPC

    if not(mobexists("area-#",room)) then
    mload("mob-#")
    force("mob-#","say I am going to kill you!")
    force(ch,"kill mobname")