rendered paste bodyon *:TEXT:!reminder:*: {
notice $nick To set reminders use the following format:
notice $nick !reminder [numerical value] [unit of time] [message]
}
on *:TEXT:!reminder *:*: {
if ($2 !isnum) {
notice $nick $+ $2 $+ is an invalid numerical value.
}
else {
if ($4 !isalnum) {
notice $nick reminder requires more parameters.
}
else {
inc %x
set %timer [ $+ [ %x ] ] on
set -n %timerr [ $+ [ %x ] ] $4-
if ($nick == %9-11light) {
set -n %timern [ $+ [ %x ] ] lightwizard420
if (($3 === second) || ($3 === seconds)) {
set -n %timer [ $+ [ %x ] ] on
set %timert [ $+ [ %x ] ] $2
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 === minute) || ($3 === minutes)) {
set %timert [ $+ [ %x ] ] $calc($2 * 60)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 === hour) || ($3 === hours)) {
set %timert [ $+ [ %x ] ] $calc($2 * 3600)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 === day) || ($3 === days)) {
set %timert [ $+ [ %x ] ] $calc($2 * 86400)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 === week) || ($3 === weeks)) {
set %timert [ $+ [ %x ] ] $calc($2 * 604800)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 === year) || ($3 === years)) {
set %timert [ $+ [ %x ] ] $calc($2 * 31556926)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
else {
/notice $nick $+ $3 $+ is an invalid unit of time.
}
}
else {
set -n %timern [ $+ [ %x ] ] $nick
if (($3 == second) || ($3 == seconds) || ($3 == sec)) {
set -n %timer [ $+ [ %x ] ] on
set %timert [ $+ [ %x ] ] $2
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 == minute) || ($3 == minutes) || ($3 == min)) {
set %timert [ $+ [ %x ] ] $calc($2 * 60)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 == hour) || ($3 == hours) || ($3 == hr)) {
set %timert [ $+ [ %x ] ] $calc($2 * 3600)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 == day) || ($3 == days)) {
set %timert [ $+ [ %x ] ] $calc($2 * 86400)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 == week) || ($3 == weeks)) {
set %timert [ $+ [ %x ] ] $calc($2 * 604800)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
elseif (($3 == year) || ($3 == years)) {
set %timert [ $+ [ %x ] ] $calc($2 * 31556926)
set -n %timer [ $+ [ %x ] ] on
set %timerd [ $+ [ %x ] ] $calc($ctime + %timert [ $+ [ %x ] ] )
notice $nick You will be reminded $+ %timerr [ $+ [ %x ] ] $+ at $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), HH:nn:ss zzz)) $+ on $+ $asctime($calc($ctime + %timert [ $+ [ %x ] ] ), yyyy-mm-dd) $+ .
/timer [ $+ [ %x ] ] $+ a 1 %timert [ $+ [ %x ] ] /query %timern [ $+ [ %x ] ] %timerr [ $+ [ %x ] ]
/timer [ $+ [ %x ] ] $+ b 1 %timert [ $+ [ %x ] ] /unset %timer [ $+ [ %x ] ]
}
else {
/notice $nick $+ $3 $+ is an invalid unit of time.
}
}
}
else {
/notice $nick Too many reminders running.
}
}
}