set loggedInUser to system attribute "USER"
set userCancelled to false
try
	set sudoPasswordResult to display dialog "Please enter your password: " default answer "" with title "Password" with icon caution with hidden answer
on error number -128
	set userCancelled to true
end try
 
if not userCancelled then
	if text returned of sudoPasswordResult is not equal to "" then
		set sudoPassword to text returned of sudoPasswordResult
		set currentModeText to do shell script "pmset -g | grep hibernatemode" user name loggedInUser password sudoPassword with administrator privileges
		set currentMode to item 16 of currentModeText
 
		set selectedButton to 1
		set currentSleepModeName to ""
		if currentMode is equal to "1" then
			#Hibernate mode - default selection toggles to Sleep
			set selectedButton to 1
			set currentSleepModeName to "Hibernate"
		else if currentMode is equal to "3" then
			#Sleep mode - default selection toggles to Hibernate
			set currentSleepModeName to "Sleep"
			set selectedButton to 2
		end if
 
		set sleepModeResults to display dialog "Current sleep mode is " & currentSleepModeName & ". Select new sleep mode." with title "Select new sleep mode" buttons {"Sleep", "Hibernate"} default button selectedButton
		set newSleepMode to button returned of sleepModeResults
		if newSleepMode is "Sleep" then
			set sleepModeFlag to 3
		else if newSleepMode is "Hibernate" then
			set sleepModeFlag to 1
		end if
 
		do shell script "pmset -a hibernatemode " & sleepModeFlag user name loggedInUser password sudoPassword with administrator privileges
	end if
end if

-- Get display area
tell application "Finder"
	set displayAreaDimensions to bounds of window of desktop
	set widthOfDisplayArea to item 3 of displayAreaDimensions
	set heightOfDisplayArea to item 4 of displayAreaDimensions
end tell
 
tell application "System Events" to tell process "Dock"
	set dockDimensions to size in list 1
	set heightOfDock to item 2 of dockDimensions
end tell
 
-- Set up desired coordinates when running iChat on the laptop monitor at 1440x900
set maximumChatWindowHeight to (heightOfDisplayArea - heightOfDock)
set chatWindowWidth to 275
set padding to 3
set heightOfMenuBar to 22
set laptopPhysicalDisplayWidth to 1440
 
set aimCoordinates to [0, 0, chatWindowWidth, (maximumChatWindowHeight / 2) - heightOfMenuBar]
set gmailCoordinates to [0, (item 4 of aimCoordinates) + (heightOfMenuBar + padding), chatWindowWidth, maximumChatWindowHeight]
set highwindsCoordinates to [chatWindowWidth + padding, 0, (chatWindowWidth * 2) + padding, maximumChatWindowHeight]
set chatWindowCoordinates to [(chatWindowWidth * 2) + (padding * 2), 0, laptopPhysicalDisplayWidth, maximumChatWindowHeight]
 
-- Shift everything over by laptop display width if using a second monitor
if widthOfDisplayArea is greater than laptopPhysicalDisplayWidth then
	set widthOfSecondaryDisplay to (widthOfDisplayArea - laptopPhysicalDisplayWidth)
	repeat with currentDimensions in [aimCoordinates, gmailCoordinates, highwindsCoordinates, chatWindowCoordinates]
		repeat with itemPosition in [1, 3]
			set item itemPosition of currentDimensions to ((item itemPosition of currentDimensions) + widthOfSecondaryDisplay)
		end repeat
	end repeat
end if
 
-- Position chat windows
tell application "iChat"
	set bounds of window "AIM Buddy List" to aimCoordinates
	set bounds of window "myGoogleTalkAddress@gmail.com" to gmailCoordinates
	set bounds of window "myWorkEmailAddress@highwinds.com" to highwindsCoordinates
	set bounds of windows whose name contains "Chats" to chatWindowCoordinates
end tell

tell application "iChat"
	activate
	set allChatWindows to every window
	repeat with currentWindow in allChatWindows
		set windowBounds to the bounds of currentWindow
		set allBounds to ""
		repeat with bound in windowBounds
			set allBounds to (allBounds & bound & ",")
		end repeat
		display dialog (name of currentWindow & ": " & allBounds)
	end repeat
end tell