if (%autoreply. [ $+ [ $nick ] ]) {
return set -u1200 %autoreply. $+ $nick
}
on *:OPEN:?:*: {
var %exc = $false
var %c = 0
while (%c < $lines(C:\Users\Allen\AppData\Roaming\mIRC\exc.txt)) {
inc %c
if ($nick == $read(exc.txt, n, %c)) {
%exc = $true
/break
}
}
if (%exc == $false) {
if (!$away) {
/msg $nick Hello $nick $+ , I should be with you shortly. Feel free to leave a message. Note I have $query(0) queries open and have been idle for $duration($idle) $+ .
}
elseif ($away) {
/msg $nick Hello $nick $+ , I am currently away ( $+ $awaymsg $+ ). Feel free to leave a message. Note that I have $query(0) queries open and have been away for $duration($awaytime) $+ .
}
}
}
alias rep {
var %target = $$1
/msg %target Hello %target $+ . How may I help you?
}
alias addexc {
if (!$exists(C:\Users\Allen\AppData\Roaming\mIRC\exc.txt)) {
/echo -c kick [ERROR] exc.txt Not Defined.
}
else {
var %v = 0
var %w = 0
while (%v < $lines(C:\Users\Allen\AppData\Roaming\mIRC\exc.txt)) {
inc %v
if ($$1 != $read(exc.txt, n, %v)) {
inc %w
}
}
if (%w >= $lines(C:\Users\Allen\AppData\Roaming\mIRC\exc.txt)) {
/write exc.txt $$1
/echo -c notify [AUTO-RESP] Nick $$1 Declared an Exception
}
else {
/echo -c kick [ERROR] Nick $$1 Already Declared Exception
}
}
}
alias delexc {
if (!$exists(C:\Users\Allen\AppData\Roaming\mIRC\exc.txt)) {
/echo -c kick [ERROR] exc.txt Not Defined.
}
else {
var %g = 0
var %e = $false
while (%g < $lines(C:\Users\Allen\AppData\Roaming\mIRC\exc.txt)) {
inc %g
if ($$1 == $read(exc.txt, n, %g)) {
%e = $true
/break
}
}
if (%e == $true) {
;/echo -c kick $readn
;/echo -c kick $read(exc.txt, n, $readn)
/write $+(-dl,$readn) exc.txt
/echo -c notify [AUTO-RESP] Nick $$1 No Longer Declared an Exception
}
else {
/echo -c kick [ERROR] Nick $$1 Not Already Declared Exception
}
}
}
alias listexc {
var %a = [AUTO-RESP] $chr(32)
var %i = 0
while (%i < $lines(C:\Users\Allen\AppData\Roaming\mIRC\exc.txt)) {
inc %i
var %a = %a $+ $read(exc.txt, n, %i) $+ , $chr(32)
}
/echo -c notify %a
}