I got sick of every time I typed: /cs help my entire active screen would get flooded so I put all notices from the services into a window. and anything typed into the window will be put into: /msg *serv $1-
hope you like it. :-)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Services Window ;
; Edited with thanks too: ;
; trill, napa182 ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; SOF ;
on ^*:NOTICE:*:?:{
if ($regex($nick,/((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/i)) {
if (!$window($+(@,$nick,.,$network))) { window -e0 $+(@,$nick,.,$network) }
aline -p $+(@,$nick,.,$network) $nick : $1-
haltdef
}
}
on *:INPUT:*:{
if ($regex($1,/^@((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/iS)) {
.msg $regml(1) $2-
haltdef
}
}
it does yes.. but readers of the threads here can see why it is now as it looks.
delete the Cracker thread as it is nothing to do with this snippet or topic. rating it now a 7
i would do it though like this
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; this code's name ;
; edited with thanks too ;
; trill, napa182, etc ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on ^*:NOTICE:*:?:{
if ($regex($nick,/((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/i)) {
if (!$window($+(@,$nick,.,$network))) { window -e0 $+(@,$nick,.,$network) }
aline -p $+(@,$nick,.,$network) $nick : $1-
haltdef
}
}
that way they can see the acknowledgement as it is supposed to be done :)
you can turn this
on 1:INPUT:@ChanServ*:{
.msg chanserv $1-
halt
}
on 1:INPUT:@BotServ*:{
.msg botserv $1-
halt
}
on 1:INPUT:@HostServ*:{
.msg hostserv $1-
halt
}
on 1:INPUT:@NickServ*:{
.msg nickserv $1-
halt
}
on 1:INPUT:@MemoServ*:{
.msg memoserv $1-
halt
}
on 1:INPUT:@Operserv*:{
.msg operserv $1-
halt
}
into this to make it alil smaller just to give you an idea.
on *:INPUT:*:{
if ($regex($1,/^@((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/iS)) {
.msg $regml(1) $2-
haltdef
}
}
you can also do much more to shorten the on notices. maybe somthing like this.
on ^*:NOTICE:*:?:{
if ($regex($nick,/((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/i)) {
if (!$window($+(@,$nick,.,$network))) { window -e0 $+(@,$nick,.,$network) }
aline -p $+(@,$nick,.,$network) $nick : $1-
haltdef
}
}
so the whole code would be
on *:INPUT:*:{
if ($regex($1,/^@((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/iS)) {
.msg $regml(1) $2-
haltdef
}
}
on ^*:NOTICE:*:?:{
if ($regex($nick,/((Chan|Bot|Nick|Memo|Host|Oper)Serv?\b)/i)) {
if (!$window($+(@,$nick,.,$network))) { window -e0 $+(@,$nick,.,$network) }
aline -p $+(@,$nick,.,$network) $nick : $1-
haltdef
}
}
thanks to napa for helping me make this smaller