=== Note for Jahara's Time Checker ===

 This script checks the month and time of any
 type of character than can tell the time of
 day for darkies and also the dawn and night
 for any other race.

 elves and half-elves can't use this

 The script is activated by "time"
 
 To see the dawn/night times one must type
 "month" after a having typed "time"

 To report the amount of ticks left until dawn,
 day, or night one must type "dwatch", short
 for digital watch.

 === Actions and Aliases ===

#("Jahara's Time Checker")
#action >+time ^$1, the $2 of $3, Year $4 of the Third Age.\015={#print|#var $realtime=$1|#var $checkmonth=$3|#var @checktime=-1|checkdate}
#action >+timeam $1am on $2, the $3 of $4, Year $5 of the Third Age.\015={#print|#var $realtime=$1am|#var $checkmonth=$4|#if ($1 == 12) #var @checktime=(%($1+12))|#else #var @checktime=$1|checkdate}
#action >+timepm $1pm on $2, the $3 of $4, Year $5 of the Third Age.\015={#print|#var $realtime=$1pm|#var $checkmonth=$4|#if ($1 == 12) #var @checktime=$1|#else #var @checktime=(%($1+12))|checkdate}
#alias checkdate={#if ($checkmonth == "Foreyule") {#var @dawn=7|#var @night=7}|#if ($checkmonth == "Astron") {#var @dawn=7|#var @night=7}|#if ($checkmonth == "Thrimidge") {#var @dawn=7|#var @night=8}|#if ($checkmonth == "Forelithe") {#var @dawn=6|#var @night=8}|#if ($checkmonth == "Afterlithe") {#var @dawn=5|#var @night=9}|#if ($checkmonth == "Wedmath") {#var @dawn=4|#var @night=10}|#if ($checkmonth == "Halimath") {#var @dawn=5|#var @night=9}|#if ($checkmonth == "Winterfilth") {#var @dawn=6|#var @night=8}|#if ($checkmonth == "Blotmath") {#var @dawn=7|#var @night=8}|#if ($checkmonth == "Afteryule") {#var @dawn=8|#var @night=6}|#if ($checkmonth == "Solmath") {#var @dawn=9|#var @night=5}|#if ($checkmonth == "Rethe") {#var @dawn=8|#var @night=6}|#if (@checktime!=-1) {printdate}}
#alias printdate={#print ("")|#if (@checktime < @dawn) {#print ("It is currently \033[34mNIGHT\033[0m, "+$realtime+"\011\011\011Dawn: "+%(@dawn)+"am, Night: "+%(@night)+"pm")|#var @timeleft=(@dawn-@checktime)|#var $timeofday=DAWN|#print ("Time left until "+$timeofday+" is "+%(@timeleft)+" tick\(s\)\011\011    "+$checkmonth)}|#if (@checktime >= (@night + 12)) {#print ("It is currently \033[34mNIGHT\033[0m, "+$realtime+"\011\011\011Dawn: "+%(@dawn)+"am, Night: "+%(@night)+"pm")|#var @timeleft=(24 + @dawn - @checktime)|#var $timeofday=DAWN|#print ("Time left until "+$timeofday+" is "+%(@timeleft)+" tick\(s\)\011\011    "+$checkmonth)}|#if (@checktime == @dawn) {#print ("It is currently \033[31mDAWN\033[0m, "+$realtime+"\011\011\011Dawn: "+%(@dawn)+"am, Night: "+%(@night)+"pm")|#var @timeleft=1|#var $timeofday=DAY|#print ("Time left until "+$timeofday+" is "+%(@timeleft)+" tick\(s\)\011\011    "+$checkmonth)}|#if (@checktime > @dawn && @checktime < (@night + 12) && @checktime >=!
  1!
2 ) {#pri
nt ("It is currently \033[33mDAY\033[0m, "+$realtime+"\011\011\011Dawn: "+%(@dawn)+"am, Night: "+%(@night)+"pm")|#var @timeleft=(@night+12-@checktime)|#var $timeofday=NIGHT|#print ("Time left until "+$timeofday+" is "+%(@timeleft)+" tick\(s\)\011\011    "+$checkmonth)}|#if (@checktime > @dawn && @checktime < (@night + 12) && @checktime < 12 ) {#print ("It is currently \033[33mDAY\033[0m, "+$realtime+"\011\011\011Dawn: "+%(@dawn)+"am, Night: "+%(@night)+"pm")|#var @timeleft=(@night+12-@checktime)|#var $timeofday=NIGHT|#print ("Time left until "+$timeofday+" is "+%(@timeleft)+" tick\(s\)\011\011    "+$checkmonth)}|#print ("")}
#alias month={#print ("")|#print ("It is currently "+$realtime+"\011\011\011"+$checkmonth+", Dawn: "+%(@dawn)+"am, Night: "+%(@night)+"pm")|#print ("")}
#alias dwatch={#if (@timeleft == 1) #send ("emote 's digital watch displays "+$realtime+", which leaves only "+%(@timeleft)+" tick left until "+$timeofday+"!")|#else #send ("emote 's digital watch displays "+$realtime+", which leaves "+%(@timeleft)+" ticks left until "+$timeofday+"!")}