Project

General

Profile

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

Mr. BS, 04/23/2014 04:17 AM

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

Menu Channel {
-
Hide Events
.$style(2) #:/
.-
.$iif($getVar(Join) != 1 && $getVar(Part) != 1 && $getVar(Quit) != 1, All):$setVar(Join) | $setVar(Part) | $setVar(Quit)
.$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))
.-
.Reset Config:if ($$?!"Erase events control config for ALL channels?") { unset %Hide.Events* }
-
}

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)) {
var %x %Hide.Events. [ $+ [ $comchan($nick,%i) ] $+ . $+ [ $network ] $+ . $+ Quit ]
if (%x != 1) {
echo 27 -trbf $comchan($nick,%i) * $chr(2) $+ $nick $+ $chr(2) ( $+ $address $+ ) has quit IRC ( $+ $1- $+ )
}
inc %i
}
halt
}
(3-3/7)