Project

General

Profile

[deprecated] [Script] Simple selective join/part/quit mes... » Simple selective join-part-quit message blacklist v0.2.ini

Mr. BS, 04/22/2014 09:06 PM

 
; http://dev.adiirc.com/boards/5/topics/175
; Simple selective join/part/quit message blacklist
; v0.2 by pereba

Menu Channel {
-
Hide Events
.$style(2) #:/
.-
.$iif($getVar(Join) == 1, $style(1)) Join: $iif($getVar(Join) == 1, $unSetVar(Join), $setVar(Join))
.$iif($getVar(Part) == 1, $style(1)) Part: $iif($getVar(Part) == 1, $unSetVar(Part), $setVar(Part))
.$iif($getVar(Quit) == 1, $style(1)) Quit: $iif($getVar(Quit) == 1, $unSetVar(Quit), $setVar(Quit))
}

alias -l getVar { return %Hide.Events. [ $+ [ # ] $+ . $+ [ $network ] $+ . $+ [ $1 ] ] }

alias -l setVar { set %Hide.Events. [ $+ [ # ] $+ . $+ [ $network ] $+ . $+ [ $1 ] ] 1 }

alias -l unSetVar { unset %Hide.Events. [ $+ [ # ] $+ . $+ [ $network ] $+ . $+ [ $1 ] ] }

on ^*:JOIN:*:{
if ($getVar(Join) == 1) {
halt
}
}

on ^*:PART:*:{
if ($getVar(Part) == 1) {
halt
}
}

on ^*:QUIT:{
var %i = 1
while ($comchan($nick,%i)) {
if (% [ $+(Hide.Events.,$comchan($nick,%i),.,$network,.Quit) ] != 1) {
echo 27 -trbf $comchan($nick,%i) * $chr(2) $+ $nick $+ $chr(2) ( $+ $address $+ ) has quit IRC ( $+ $1- $+ )
}
inc %i
}
halt
}
(2-2/7)