Snippets Project Page
Author: entropy
Added: 5y
Updated: 5y
mIRC: 7.52+
Hits: 931
Downloads: 13
Review: entropy
Size: 3.29KB
1 0
Login to vote.
Limiter
v1.1.4
This snippet adds +l (or limit) to the specified channels/networks ever join/part.kick.quit.
Download
JSON
▲ Review
▼ Source
; Limiter v1.1.4 - by entropy 2018 ; %limit - is the + number to limit - eg: %limit 3 - for total +3 ; %limit_chans - A list of nets/channels to limit... eg: DALnet:# -or- DALnet:#test menu channel { - Limit $chr(9) $iif($group(#limit).status == on,[On],[Off]) .Set $chr(9) $iif($group(#limit).status == on,[Off],[On]) { $iif($group(#limit).status == on,.disable,.enable) #limit | echo -a * Limit is now: $group(#limit).status } .- .Limit Number $chr(9) $+([,%limit,]) { set %limit $input(Limit number?,5) } .- .Limit Nets/Chans $chr(9) $+([,$iif($len(%limit_chans) >= 12,$+($mid(%limit_chans,1,12),...),%limit_chans),]) ..Add ...$iif(!$istok(%limit_chans,$+($network,$chr(58),#),32),Add $+($network,$chr(58),#)) { add_menubar $+($network,$chr(58),#) | echo -a * Relay Nets/Chans: %limit_chans } ...$iif(!$istok(%limit_chans,$+($network,$chr(58),$chr(35)),32),Add $+($network,$chr(58),$chr(35))) { add_menubar $+($network,$chr(58),$chr(35)) | echo -a * Relay Nets/Chans: %limit_chans } ...$iif(!$istok(%limit_chans,$+(All,$chr(58),$chr(35)),32),Add $+(All,$chr(58),$chr(35))) { add_menubar $+(All,$chr(58),$chr(35)) | echo -a * Relay Nets/Chans: %limit_chans } ...$iif(!$istok(%limit_chans,$+(All,$chr(58),#),32),Add $+(All,$chr(58),#)) { add_menubar $+(All,$chr(58),#) | echo -a * Relay Nets/Chans: %limit_chans } ...- ...Add ? { var %a = $input(Nets:Chans to limit? $chr(40) $+ Network:# - for all channels on Network $+ $chr(41) ,5) | if (%a && !$istok(%limit_chans,%a,32)) { set %limit_chans %limit_chans %a | echo -a * Relay Nets/Chans: %limit_chans } } ..Delete ...$iif($istok(%limit_chans,$+($network,$chr(58),$chan),32),Delete $+($network,$chr(58),#)) { del_menubar $+($network,$chr(58),$chan) | echo -a * Relay Nets/Chans: %limit_chans } ...$iif($istok(%limit_chans,$+($network,$chr(58),$chr(35)),32),Delete $+($network,$chr(58),$chr(35))) { del_menubar $+($network,$chr(58),$chr(35)) | echo -a * Relay Nets/Chans: %limit_chans } ...$iif($istok(%limit_chans,$+(All,$chr(58),$chr(35)),32),Delete $+(All,$chr(58),$chr(35))) { del_menubar $+(All,$chr(58),$chr(35)) | echo -a * Relay Nets/Chans: %limit_chans } ...$iif($istok(%limit_chans,$+(All,$chr(58),$chan),32),Delete $+(All,$chr(58),$chan)) { del_menubar $+(All,$chr(58),$chan) | echo -a * Relay Nets/Chans: %limit_chans } ...- ...Delete ? { var %a = $input(Nets:Chans to delete?,5) | if (%a && $istok(%limit_chans,%a,32) ) { set %limit_chans $remtok(%limit_chans,%a,1,32) | echo -a * Relay Nets/Chans: %limit_chans } } - } alias -l add_menubar { %limit_chans = %limit_chans $1- | echo Added... } alias -l del_menubar { %limit_chans = $remtok(%limit_chans,$1,1,32) | echo Deleted... } #limit on alias limit { if ($me isop $1) { if ($istok(%limit_chans,$+($network,:,$1),32) || $istok(%limit_chans,$+($network,:#),32) || $istok(%limit_chans,All:#,32) || $istok(%limit_chans,$+(All,:,$1),32) ) { mode $1 +l $calc($nick($1,0) + $iif(%limit,$v1,3)) } } } on *:join:#:{ .timerlimit -o 1 3 limit # } on *:kick:#:{ .timerlimit -o 1 3 limit # } on *:part:#:{ .timerlimit -o 1 3 limit # } on *:quit:{ var %a = 1 | while ($comchan($nick,%a)) { .timer -o 1 3 limit $v1 | inc %a } } #limit end
Changelog:
0
0