User:Jabrwocky7/mirc nextlost

From Lostpedia

Based on Fizban30 aka Paladine's time script.

on *:TEXT:!nextlost:#lostpedia:{
  set %losttime 8 NOVEMBER 2006 20:00
  set %lostairs $asctime($ctime(%losttime),dddd mmmm dd yyyy)
  if ($calc($ctime(%losttime) - $ctime) < 0) {
    timer 1 $rand(1,3) msg $chan ?Error:? Script not updated for this week
  }
  if ($calc($ctime(%losttime) - $ctime) > 0) {
    timer 1 $rand(1,3) msg $chan The next Lost airs in $duration($calc($ctime(%losttime) - $ctime)) on %lostairs
  }
  set %losttime $NULL
  set %lostairs $NULL
}