on *:connect: { unset %away | unset %highlight | unset %time | unset %stime }
alias away { if (!%stime) { amsg 7[14Away7] 14Reason:07 $capwords($1-) 14Left at:07 $time (14GMT7) | set %time $time | set %stime $ctime($date $time) | set %away $capwords($1-) } }
alias back { if (%stime) { amsg 7[14Back7] 14From:07 %away 14Left at:07 %time (14GMT7) 14Gone for:07 $duration( $calc($ctime($date $time)-%stime) ) | unset %away | unset %highlight | unset %time | unset %stime } }
on *:TEXT:*:#: {
if (%stime) {
if ( $nick iswm $remove(%highlight,$chr(124)) ) { halt }
else {
if (*baller* iswm $1- || *baller876543* iswm $1-) {
notice $nick I am currently away, if you leave a message in my PM i will get back to you when i return.
set %highlight $+(%highlight,$chr(124),$nick)
}
}
}
}
alias capwords {
var %t
var %x = 0
while $1 != $numtok($1-,32) {
inc %x 1
var %t = %t $upper($left($gettok($1-,1,32),1)) $+ $right($gettok($1-,1,32),-1) $gettok($1-,2-,32) } return %t
}
01 on *:connect: { unset %away | unset %highlight | unset %time | unset %stime }
02 alias away { if (!%stime) { amsg 7[14Away7] 14Reason:07 $capwords($1-) 14Left at:07 $time (14GMT7) | set %time $time | set %stime $ctime($date $time) | set %away $capwords($1-) } }
03 alias back { if (%stime) { amsg 7[14Back7] 14From:07 %away 14Left at:07 %time (14GMT7) 14Gone for:07 $duration( $calc($ctime($date $time)-%stime) ) | unset %away | unset %highlight | unset %time | unset %stime } }
04 on *:TEXT:*:#: {
05 if (%stime) {
06 if ( $nick iswm $remove(%highlight,$chr(124)) ) { halt }
07 else {
08 if (*baller* iswm $1- || *baller876543* iswm $1-) {
09 notice $nick I am currently away, if you leave a message in my PM i will get back to you when i return.
10 set %highlight $+(%highlight,$chr(124),$nick)
11 }
12 }
13 }
14 }
15 alias capwords {
16 var %t
17 var %x = 0
18 while $1 != $numtok($1-,32) {
19 inc %x 1
20 var %t = %t $upper($left($gettok($1-,1,32),1)) $+ $right($gettok($1-,1,32),-1) $gettok($1-,2-,32) } return %t
21 }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21on *:connect: { unset %away | unset %highlight | unset %time | unset %stime }
alias away { if (!%stime) { amsg 7[14Away7] 14Reason:07 $capwords($1-) 14Left at:07 $time (14GMT7) | set %time $time | set %stime $ctime($date $time) | set %away $capwords($1-) } }
alias back { if (%stime) { amsg 7[14Back7] 14From:07 %away 14Left at:07 %time (14GMT7) 14Gone for:07 $duration( $calc($ctime($date $time)-%stime) ) | unset %away | unset %highlight | unset %time | unset %stime } }
on *:TEXT:*:#: {
if (%stime) {
if ( $nick iswm $remove(%highlight,$chr(124)) ) { halt }
else {
if (*baller* iswm $1- || *baller876543* iswm $1-) {
notice $nick I am currently away, if you leave a message in my PM i will get back to you when i return.
set %highlight $+(%highlight,$chr(124),$nick)
}
}
}
}
alias capwords {
var %t
var %x = 0
while $1 != $numtok($1-,32) {
inc %x 1
var %t = %t $upper($left($gettok($1-,1,32),1)) $+ $right($gettok($1-,1,32),-1) $gettok($1-,2-,32) } return %t
}on *:connect: { unset %away | unset %highlight | unset %time | unset %stime }
alias away { if (!%stime) { amsg 7[14Away7] 14Reason:07 $capwords($1-) 14Left at:07 $time (14GMT7) | set %time $time | set %stime $ctime($date $time) | set %away $capwords($1-) } }
alias back { if (%stime) { amsg 7[14Back7] 14From:07 %away 14Left at:07 %time (14GMT7) 14Gone for:07 $duration( $calc($ctime($date $time)-%stime) ) | unset %away | unset %highlight | unset %time | unset %stime } }
on *:TEXT:*:#: {
if (%stime) {
if ( $nick iswm $remove(%highlight,$chr(124)) ) { halt }
else {
if (*baller* iswm $1- || *baller876543* iswm $1-) {
notice $nick I am currently away, if you leave a message in my PM i will get back to you when i return.
set %highlight $+(%highlight,$chr(124),$nick)
}
}
}
}
alias capwords {
var %t
var %x = 0
while $1 != $numtok($1-,32) {
inc %x 1
var %t = %t $upper($left($gettok($1-,1,32),1)) $+ $right($gettok($1-,1,32),-1) $gettok($1-,2-,32) } return %t
}
01 on *:connect: { unset %away | unset %highlight | unset %time | unset %stime }
02 alias away { if (!%stime) { amsg 7[14Away7] 14Reason:07 $capwords($1-) 14Left at:07 $time (14GMT7) | set %time $time | set %stime $ctime($date $time) | set %away $capwords($1-) } }
03 alias back { if (%stime) { amsg 7[14Back7] 14From:07 %away 14Left at:07 %time (14GMT7) 14Gone for:07 $duration( $calc($ctime($date $time)-%stime) ) | unset %away | unset %highlight | unset %time | unset %stime } }
04 on *:TEXT:*:#: {
05 if (%stime) {
06 if ( $nick iswm $remove(%highlight,$chr(124)) ) { halt }
07 else {
08 if (*baller* iswm $1- || *baller876543* iswm $1-) {
09 notice $nick I am currently away, if you leave a message in my PM i will get back to you when i return.
10 set %highlight $+(%highlight,$chr(124),$nick)
11 }
12 }
13 }
14 }
15 alias capwords {
16 var %t
17 var %x = 0
18 while $1 != $numtok($1-,32) {
19 inc %x 1
20 var %t = %t $upper($left($gettok($1-,1,32),1)) $+ $right($gettok($1-,1,32),-1) $gettok($1-,2-,32) } return %t
21 }
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21on *:connect: { unset %away | unset %highlight | unset %time | unset %stime }
alias away { if (!%stime) { amsg 7[14Away7] 14Reason:07 $capwords($1-) 14Left at:07 $time (14GMT7) | set %time $time | set %stime $ctime($date $time) | set %away $capwords($1-) } }
alias back { if (%stime) { amsg 7[14Back7] 14From:07 %away 14Left at:07 %time (14GMT7) 14Gone for:07 $duration( $calc($ctime($date $time)-%stime) ) | unset %away | unset %highlight | unset %time | unset %stime } }
on *:TEXT:*:#: {
if (%stime) {
if ( $nick iswm $remove(%highlight,$chr(124)) ) { halt }
else {
if (*baller* iswm $1- || *baller876543* iswm $1-) {
notice $nick I am currently away, if you leave a message in my PM i will get back to you when i return.
set %highlight $+(%highlight,$chr(124),$nick)
}
}
}
}
} alias capwords {
var %t
var %x = 0
while $1 != $numtok($1-,32) {
inc %x 1
var %t = %t $upper($left($gettok($1-,1,32),1)) $+ $right($gettok($1-,1,32),-1) $gettok($1-,2-,32) } return %t
}