Applescript to do different things at different times

Question

Hi,
I just started applecript a few weeks ago and I need some help.
Here is the script I use as my morning wake up call.
Functions:
1. Time
2. Weather
3. Reads new mail
say "Good Morning Sir"
say "It is " & getTimeInHoursAndMinutes() using "Alex"
on getTimeInHoursAndMinutes()
-- Get the "hour"
set timeStr to time string of (current date)
set Pos to offset of ":" in timeStr
set theHour to characters 1 thru (Pos - 1) of timeStr as string
set timeStr to characters (Pos + 1) through end of timeStr as string
-- Get the "minute"
set Pos to offset of ":" in timeStr
set theMin to characters 1 thru (Pos - 1) of timeStr as string
set timeStr to characters (Pos + 1) through end of timeStr as string
--Get "AM or PM"
set Pos to offset of " " in timeStr
set theSfx to characters (Pos + 1) through end of timeStr as string
return (theHour & ":" & theMin & " " & theSfx) as string
end getTimeInHoursAndMinutes
tell application "Mail" to launch
set CityCode to 2459115
set t_format to "C"
set v_format to "S"
set a_format to "Y"
set IURL to "http://weather.yahooapis.com/forecastrss?w=" & CityCode
set file_content to (do shell script "curl " & IURL)
--looking for the line with actual condition
set theText to text ((offset of "yweather:condition" in file_content) + 1) thru -1 of file_content
set sub_1 to text ((offset of "\"" in theText) + 1) thru -1 of theText
set actual_condition to text 1 thru ((offset of "\"" in sub_1) - 1) of sub_1
set sub_1a to text ((offset of "temp=" in sub_1)) thru -1 of sub_1
set sub_1b to text ((offset of "\"" in sub_1a) + 1) thru -1 of sub_1a
set actual_temp to text 1 thru ((offset of "\"" in sub_1b) - 1) of sub_1b
if t_format is equal to "C" then
set actual_temp to (5 / 9) * (actual_temp - 32) as integer
end if
set theText to text ((offset of "yweather:forecast" in file_content) + 1) thru -1 of file_content
set sub_2 to text ((offset of "\"" in theText) + 1) thru -1 of theText
set today_min_temp to word 9 of sub_2
set today_max_temp to word 12 of sub_2
if t_format is equal to "C" then
set today_min_temp to (5 / 9) * (today_min_temp - 32) as integer
set today_max_temp to (5 / 9) * (today_max_temp - 32) as integer
end if
set sub_3 to text ((offset of "text" in sub_2) + 1) thru -1 of sub_2
set sub_4 to text ((offset of "\"" in sub_3) + 1) thru -1 of sub_3
set today_forecast to text 1 thru ((offset of "\"" in sub_4) - 1) of sub_4
set sub_5 to text ((offset of "yweather:forecast" in sub_4) + 1) thru -1 of sub_4
set sub_6 to text ((offset of "\"" in sub_5) + 1) thru -1 of sub_5
set tomorrow_min_temp to word 9 of sub_6
set tomorrow_max_temp to word 12 of sub_6
if t_format is equal to "C" then
set tomorrow_min_temp to (5 / 9) * (tomorrow_min_temp - 32) as integer
set tomorrow_max_temp to (5 / 9) * (tomorrow_max_temp - 32) as integer
end if
set sub_7 to text ((offset of "text" in sub_6) + 1) thru -1 of sub_6
set sub_8 to text ((offset of "\"" in sub_7) + 1) thru -1 of sub_7
set tomorrow_forecast to text 1 thru ((offset of "\"" in sub_8) - 1) of sub_8
if a_format is equal to "Y" then
say "The current conditions in New York City is " & actual_condition & " ,and the current temperture is " & actual_temp & " degrees"
end if
tell application "Mail"
set unreadMessages to (get every message of mailbox "INBOX" of account "[email protected]" whose read status is false)
set numberofmessages to (count of (every message of mailbox "INBOX" of account "[email protected]" whose read status is false))
if (count of (every message of mailbox "INBOX" of account "[email protected]" whose read status is false)) is 1 then
tell application "Mail"
say "There is only " & numberofmessages & " new email"
repeat with eachMessage in unreadMessages
delay 1
say "From! "
say (get sender of eachMessage)
say "Subject."
say (get subject of eachMessage)
set read status of eachMessage to true
end repeat
end tell
else if (count of (every message of mailbox "INBOX" of account "[email protected]" whose read status is false)) is greater than 1 then
tell application "Mail"
say "There are " & numberofmessages & " new messages"
repeat with eachMessage in unreadMessages
delay 1
say "From! "
say (get sender of eachMessage)
say "Subject."
say (get subject of eachMessage)
set read status of eachMessage to true
end repeat
end tell
else
say "There are no new messages"
end if
end tell
I was wondering if there is a script that could determine the time and say good afternoon after the time is 1:00pm and good evening after the time is 6:00pm instead of saying good morning all day.
Thanks for your help!!

Answer 1

set theHours to hours of the (current date)
if theHours > 18 then
          say "good evening"
else if theHours > 12 then
          say "good afternoon"
else if theHours > 6 then
          say "good Morning"
else if theHours > 0 then
          say "go back to bed!"
end if