-- Player Look At Script
-- Created by: Jeff the Intern
-- Created on : 08/08/08 (Olympics!)

Define Commands()
    MakeInput('Click on an object to look at it.', 'mouse-object', 'click', 'none', 'player_look_at')
    
    MakeCommand('player_look_at', 'Look at an object', 'look_at:object')
end

Command player_look_at(look_at)
    if(look_at.name == self.name) then
        return
    end
    local adj = look_at.x - self.x
    local opp = look_at.y - self.y
    local look_angle= (180/math.pi) * -math.atan2(opp, adj)
    
    if(look_angle < 0) then
        look_angle = 360 + look_angle
    end
    
    local newdir = math.ceil((look_angle/45) + 0.5)
    
    if newdir > 8 then
        newdir = 1
    end
    
    local dirNames = {'e', 'ne','n','nw','w','sw','s','se'}
    
    dir = dirNames[newdir]
    
    if dir == null then
        Debug("Unknown direction!!!")
        return
    end
    
    SetCharacterDirection(self, dir)
       
end