on *:load:{
set %timeallowed EST/WST/GMT/CST/AKST/HST/PST/MST
echo -a Time script (made by peach/|Cloud_Strife|/Vegeto079) successfully loaded!
}
on *:text:*:#:{
  if ($1 == @time) || ($1 == @thetime) || ($1 == @date) || ($1 == @thedate) {
    if ($2 == check) {
      msg $chan 04Available Standard Times: 05 $+ %timeallowed
      halt
    }
    if ($2 == $null) || ($2 == est) {
      set %area EST
      est
      goto end
    }
    if ($2 != $null) {
      set %area $2
      if (%area !isin %timeallowed) {
        msg $chan 04Error! " $+ %area $+ " is not a valid Standard Time! Type "@time check"
        halt
      }
      %area
    }
    :end
    msg $chan Date:4¼1¼4¼ 1 %date 4¼1¼4¼ Time:4¼1¼4¼1 %time 4¼1¼4¼(04 $+ %test $+ : $+ $gettok($time,2,58) %m $+ ) %area
  }
  if ($1 == !time) || ($1 == !thetime) || ($1 == !date) || ($1 == !thedate) {
    if ($2 == check) {
      notice $nick 04Available Standard Times: 05 $+ %timeallowed
      halt
    }
    if ($2 == $null) || ($2 == est) {
      set %area EST
      est
      goto end
    }
    if ($2 != $null) {
      set %area $2
      if (%area !isin %timeallowed) {
        notice $nick 04Error! " $+ %area $+ " is not a valid Standard Time! Type "!time check"
        halt
      }
      %area
    }
    :end
    notice $nick Date: 4¼1¼4¼1 %date 4¼1¼4¼ Time: 4¼1¼4¼1 %time 4¼1¼4¼(04 $+ %test $+ : $+ $gettok($time,2,58) %m $+ ) %area
  }
}
alias -l est {
  set %hours $gettok($time,1,58)
  set %1 $gettok($date,2,47)
  set %2 $gettok($date,1,47)
  set %3 $gettok($date,3,47)
  set %date %1 $+ / $+ %2 $+ / $+ %3
  set %test $calc($left($time,2) - 12)
  if (%test > -1) {
    set %m PM
  }
  if (%test < 0) {
    set %m AM
    set %test $calc(%test + (%test *-1))
  }
  if (%test == 0) {
    set %test 00
  }
  set %time $time
}
alias -l cst {
  set %hours $gettok($time,1,58)
  set %time1 $calc($gettok($time,1,58) -1)
  set %time %time1 $+ : $+ $gettok($time,2-,58)
  set %1 $gettok($date,2,47)
  set %2 $gettok($date,1,47)
  set %3 $gettok($date,3,47)
  if (%time1 < 00) { 
    inc %time1 $calc(%time1 * -1)
    dec %2 1
  }
  set %date %1 $+ / $+ %2 $+ / $+ %3
  set %test $calc($left($time,2) - 13)
  if (%test > -1) {
    set %m PM
  }
  if (%test < 0) {
    set %m AM
    set %test $calc(%test + (%test *-1))
  }
  if (%test == 0) {
    set %test 00
  }
}
alias -l gmt {
  set %hours $gettok($time,1,58)
  set %time1 $calc($gettok($time,1,58) +5)
  set %time %time1 $+ : $+ $gettok($time,2-,58)
  set %1 $gettok($date,2,47)
  set %2 $gettok($date,1,47)
  set %3 $gettok($date,3,47)
  if (%time1 < 00) { 
    inc %time1 $calc(%time1 * -1)
    dec %2 1
  }
  if (%time1 > 24) {
    dec %time1 24
    inc %2 1
  }
  if (%2 > 31) {
    set %2 01
    inc %1 01
  }
  if (%1 > 12) {
    set %1 01
    set %2 01
  }
  if (%time1 == 24) {
    set %time1 00
  }
  set %time %time1 $+ : $+ $gettok($time,2-,58)
  set %date %1 $+ / $+ %2 $+ / $+ %3
  set %test $calc($left(%time,2) -7)
  if (%test > -1) {
    set %m PM
  }
  if (%test < 0) {
    set %m AM
    set %test $calc(%test + (%test *-1))
  }
  if (%test == 0) {
    set %test 00
  }
}
alias -l wst {
  set %hours $gettok($time,1,58)
  set %time1 $calc($gettok($time,1,58) -3)
  set %time %time1 $+ : $+ $gettok($time,2-,58)
  set %1 $gettok($date,2,47)
  set %2 $gettok($date,1,47)
  set %3 $gettok($date,3,47)
  if (%time1 < 00) { 
    inc %time1 $calc(%time1 * -1)
    dec %2 1
  }
  set %date %1 $+ / $+ %2 $+ / $+ %3
  set %test $calc($left($time,2) - 15)
  if (%test > -1) {
    set %m PM
  }
  if (%test < 0) {
    set %m AM
    set %test $calc(%test + (%test *-1))
  }
  if (%test == 0) {
    set %test 00
  }
}
alias -l mst {
  set %hours $gettok($time,1,58)
  set %time1 $calc($gettok($time,1,58) -2)
  set %time %time1 $+ : $+ $gettok($time,2-,58)
  set %1 $gettok($date,2,47)
  set %2 $gettok($date,1,47)
  set %3 $gettok($date,3,47)
  if (%time1 < 00) { 
    inc %time1 $calc(%time1 * -1)
    dec %2 1
  }
  set %date %1 $+ / $+ %2 $+ / $+ %3
  set %test $calc($left($time,2) - 14)
  if (%test > -1) {
    set %m PM
  }
  if (%test < 0) {
    set %m AM
    set %test $calc(%test + (%test *-1))
  }
  if (%test == 0) {
    set %test 00
  }
}
alias -l pst {
  set %hours $gettok($time,1,58)
  set %time1 $calc($gettok($time,1,58) -3)
  set %time %time1 $+ : $+ $gettok($time,2-,58)
  set %1 $gettok($date,2,47)
  set %2 $gettok($date,1,47)
  set %3 $gettok($date,3,47)
  if (%time1 < 00) { 
    inc %time1 $calc(%time1 * -1)
    dec %2 1
  }
  set %date %1 $+ / $+ %2 $+ / $+ %3
  set %test $calc($left($time,2) - 15)
  if (%test > -1) {
    set %m PM
  }
  if (%test < 0) {
    set %m AM
    set %test $calc(%test + (%test *-1))
  }
  if (%test == 0) {
    set %test 00
  }
}
alias -l hst {
  set %hours $gettok($time,1,58)
  set %time1 $calc($gettok($time,1,58) -5)
  set %time %time1 $+ : $+ $gettok($time,2-,58)
  set %1 $gettok($date,2,47)
  set %2 $gettok($date,1,47)
  set %3 $gettok($date,3,47)
  if (%time1 < 00) { 
    inc %time1 $calc(%time1 * -1)
    dec %2 1
  }
  set %date %1 $+ / $+ %2 $+ / $+ %3
  set %test $calc($left($time,2) - 17)
  if (%test > -1) {
    set %m PM
  }
  if (%test < 0) {
    set %m AM
    set %test $calc(%test + (%test *-1))
  }
  if (%test == 0) {
    set %test 00
  }
}
alias -l akst {
  set %hours $gettok($time,1,58)
  set %time1 $calc($gettok($time,1,58) -4)
  set %time %time1 $+ : $+ $gettok($time,2-,58)
  set %1 $gettok($date,2,47)
  set %2 $gettok($date,1,47)
  set %3 $gettok($date,3,47)
  if (%time1 < 00) { 
    inc %time1 $calc(%time1 * -1)
    dec %2 1
  }
  set %date %1 $+ / $+ %2 $+ / $+ %3
  set %test $calc($left($time,2) - 16)
  if (%test > -1) {
    set %m PM
  }
  if (%test < 0) {
    set %m AM
    set %test $calc(%test + (%test *-1))
  }
  if (%test == 0) {
    set %test 00
  }
}