ircN for mIRC — File Browser
ircNformIRCv6.0 / ircNformIRCv6.0 / ircn / SYSTEM / Userprot.mrc
Userprot.mrc — 18.83 KB — Download this file
on 1:TEXT:*:? {
if (%msgfld == on) {
if ($msg.tot == $null) {
writeini $tp(flood.txt) msgcontrol total 1
writeini $tp(flood.txt) msgcontrol time $ticks
}
elseif ($sub($ticks,$msg.time) < %mrps) {
writeini $tp(flood.txt) msgcontrol total $pls(1,$msg.tot)
writeini $tp(flood.txt) msgcontrol time $ticks
}
else {
writeini $tp(flood.txt) msgcontrol total 1
writeini $tp(flood.txt) msgcontrol time $ticks
}
if ($msg.tot >= %msgmax) {
set %kkchan .ignore -rp *!*@*
set %kchan .nick \ $+ $me
.ignore -pu $+ %msgrem *!*@*
if ($form(textflood,n1)) { set %i 0 | :start1 | inc %i | set %j n $+ %i | if ($form(textflood,%j)) { $readini %formats textflood %j | goto start1 } }
elseif ($form(textflood,n1) == $null) {
iiecho . $+ $str(-,25) $+ .
iiecho $chr(124) FLOOD! type $fix(11,message) $chr(124)
iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
iiecho $chr(124) Host: $fix(17,multiple) $chr(124)
iiecho $chr(124) $fix(23,F11: undo ignore) $chr(124)
iiecho $chr(124) $fix(23,F12: change nick) $str( ,5) $chr(124)
iiecho $chr(124) cF12: close msg windows $chr(124)
iiecho ' $+ $str(-,25) $+ '
}
writeini $tp(flood.txt) msgcontrol total 0
tsound flood
halt
}
if ($msg.num($wildsite) == $null) {
writeini $tp(flood.txt) $wildsite msg 1
writeini $tp(flood.txt) $wildsite mtime $ticks
}
elseif ($sub($ticks,$msg.utime($wildsite)) < %murps) {
writeini $tp(flood.txt) $wildsite msg $pls(1,$msg.num($wildsite))
writeini $tp(flood.txt) $wildsite mtime $ticks
}
else {
writeini $tp(flood.txt) $wildsite msg 1
writeini $tp(flood.txt) $wildsite mtime $ticks
}
if ($msg.num($wildsite) >= %msgmaxu) {
set %kkchan .ignore -rp $wildsite
.ignore -pu $+ %msgremu $wildsite
if ($form(messageflood,n1)) { set %i 0 | :start2 | inc %i | set %j n $+ %i | if ($form(messageflood,%j)) { $readini %formats messageflood %j | goto start2 } }
elseif ($form(messageflood,n1) == $null) {
iiecho . $+ $str(-,40) $+ .
iiecho $chr(124) FLOOD! type $fix(26,message) $chr(124)
iiecho $chr(124) $+ $str(-,40) $+ $chr(124)
iiecho $chr(124) Host: $fix(32,$hc($left($wildsite,32))) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,20) $chr(124)
if ($comchan($nick,1).op) {
set %kchan ckb $nick message flood
iiecho $chr(124) $+ F12: kickban $fix(24,$hc($nick)) $chr(124)
}
iiecho ' $+ $str(-,40) $+ '
}
remini $tp(flood.txt) $wildsite msg
tsound flood
}
}
}
on 1:ACTION:*:? {
if (%actfld == on) {
if ($act.tot == $null) {
writeini $tp(flood.txt) actcontrol total 1
writeini $tp(flood.txt) actcontrol time $ticks
}
elseif ($sub($ticks,$act.time) < %atrps) {
writeini $tp(flood.txt) actcontrol total $pls(1,$act.tot)
writeini $tp(flood.txt) actcontrol time $ticks
}
else {
writeini $tp(flood.txt) actcontrol total 1
writeini $tp(flood.txt) actcontrol time $ticks
}
if ($act.tot >= %actmax) {
set %kchan .ignore -rp *!*@*
set %kchan .nick \ $+ $me
.ignore -pu $+ %actrem *!*@*
if ($form(actionflood,n1)) { set %i 0 | :start1 | inc %i | set %j n $+ %i | if ($form(actionflood,%j)) { $readini %formats actionflood %j | goto start1 } }
elseif ($form(actionflood,n1) == $null) {
iiecho . $+ $str(-,25) $+ .
iiecho $chr(124) FLOOD! type $fix(11,action) $chr(124)
iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
iiecho $chr(124) Host: $fix(17,multiple) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,5) $chr(124)
iiecho $chr(124) $+ F12: change nick $str( ,5) $chr(124)
iiecho ' $+ $str(-,25) $+ '
}
writeini $tp(flood.txt) actcontrol total 0
tsound flood
halt
}
if ($act.num($wildsite) == $null) {
writeini $tp(flood.txt) $wildsite act 1
writeini $tp(flood.txt) $wildsite atime $ticks
}
elseif ($sub($ticks,$act.utime($wildsite)) < %aturps) {
writeini $tp(flood.txt) $wildsite act $pls(1,$act.num($wildsite))
writeini $tp(flood.txt) $wildsite atime $ticks
}
else {
writeini $tp(flood.txt) $wildsite act 1
writeini $tp(flood.txt) $wildsite atime $ticks
}
if ($act.num($wildsite) >= %actmaxu) {
set %kkchan .ignore -rp $wildsite
.ignore -pu $+ %actremu $wildsite
if ($form(actflood,n1)) { set %i 0 | :start2 | inc %i | set %j n $+ %i | if ($form(actflood,%j)) { $readini %formats actflood %j | goto start2 } }
elseif ($form(actflood,n1) == $null) {
iiecho . $+ $str(-,40) $+ .
iiecho $chr(124) FLOOD! type $fix(26,action) $chr(124)
iiecho $chr(124) $+ $str(-,40) $+ $chr(124)
iiecho $chr(124) Host: $fix(32,$hc($left($wildsite,32))) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,20) $chr(124)
if ($comchan($nick,1).op) {
set %kchan ckb $nick action flood
iiecho $chr(124) $+ F12: kickban $fix(24,$hc($nick)) $chr(124)
}
iiecho ' $+ $str(-,40) $+ '
}
remini $tp(flood.txt) $wildsite act
tsound flood
}
}
}
ctcp 1:dcc {
if (%fdccfld == on) {
if ($fdcc.tot == $null) {
writeini $tp(flood.txt) fdcccontrol total 1
writeini $tp(flood.txt) fdcccontrol time $ticks
}
elseif ($sub($ticks,$fdcc.time) < %drps) {
writeini $tp(flood.txt) fdcccontrol total $pls(1,$fdcc.tot)
writeini $tp(flood.txt) fdcccontrol time $ticks
}
else {
writeini $tp(flood.txt) fdcccontrol total 1
writeini $tp(flood.txt) fdcccontrol time $ticks
}
if ($fdcc.tot >= %fdccmax) {
set %kchan .ignore -rt *!*@*
set %kchan .nick \ $+ $me
.ignore -tu $+ %fdccrem *!*@*
if ($form(dccflood,n1)) { set %i 0 | :start1 | inc %i | set %j n $+ %i | if ($form(dccflood,%j)) { $readini %formats dccflood %j | goto start1 } }
elseif ($form(dccflood,n1) == $null) {
iiecho . $+ $str(-,25) $+ .
iiecho $chr(124) FLOOD! type $fix(11,dcc) $chr(124)
iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
iiecho $chr(124) Host: $fix(17,multiple) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,5) $chr(124)
iiecho $chr(124) $+ F12: change nick $str( ,5) $chr(124)
iiecho $chr(124) $+ cF9: close all chats $chr(124)
iiecho $chr(124) cF10: close all sends $chr(124)
iiecho ' $+ $str(-,25) $+ '
writeini $tp(flood.txt) fdcccontrol total 0
tsound flood
halt
}
}
if ($dcc-f.num($wildsite) == $null) {
writeini $tp(flood.txt) $wildsite fdcc 1
writeini $tp(flood.txt) $wildsite ftime $ticks
}
elseif ($sub($ticks,$fdcc.utime($wildsite)) < %durps) {
writeini $tp(flood.txt) $wildsite fdcc $pls(1,$dcc-f.num($wildsite))
writeini $tp(flood.txt) $wildsite ftime $ticks
}
else {
writeini $tp(flood.txt) $wildsite fdcc 1
writeini $tp(flood.txt) $wildsite ftime $ticks
}
if ($dcc-f.num($wildsite) >= %fdccmaxu) {
set %kkchan .ignore -rt $wildsite
.ignore -tu $+ %fdccremu $wildsite
if ($form(dccsflood,n1)) { set %i 0 | :start2 | inc %i | set %j n $+ %i | if ($form(dccsflood,%j)) { $readini %formats dccsflood %j | goto start2 } }
elseif ($form(dccsflood,n1) == $null) {
iiecho . $+ $str(-,40) $+ .
iiecho $chr(124) FLOOD! type $fix(26,dcc) $chr(124)
iiecho $chr(124) $+ $str(-,40) $+ $chr(124)
iiecho $chr(124) Host: $fix(32,$hc($left($wildsite,32))) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,20) $chr(124)
if ($comchan($nick,1).op) {
set %kchan ckb $nick dcc flood
iiecho $chr(124) $+ F12: kickban $fix(24,$hc($nick)) $chr(124)
}
iiecho ' $+ $str(-,40) $+ '
}
remini $tp(flood.txt) $wildsite fdcc
tsound flood
}
}
}
ctcp 1:* {
if (%ctcpfld == on) {
if ($ctcp.tot == $null) {
writeini $tp(flood.txt) ctcpcontrol total 1
writeini $tp(flood.txt) ctcpcontrol time $ticks
}
elseif ($sub($ticks,$ctcp.time) < %crps) {
writeini $tp(flood.txt) ctcpcontrol total $pls(1,$ctcp.tot)
writeini $tp(flood.txt) ctcpcontrol time $ticks
}
else {
writeini $tp(flood.txt) ctcpcontrol total 1
writeini $tp(flood.txt) ctcpcontrol time $ticks
}
if ($ctcp.tot >= %ctcpmax) {
set %kchan .ignore -rt *!*@*
set %kchan .nick \ $+ $me
.ignore -tu $+ %ctcprem *!*@*
if ($form(ctcpflood,n1)) { set %i 0 | :start1 | inc %i | set %j n $+ %i | if ($form(ctcpflood,%j)) { $readini %formats ctcpflood %j | goto start1 } }
elseif ($form(ctcpflood,n1) == $null) {
iiecho . $+ $str(-,25) $+ .
iiecho $chr(124) FLOOD! type $fix(11,ctcp) $chr(124)
iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
iiecho $chr(124) Host: $fix(17,multiple) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,5) $chr(124)
iiecho $chr(124) $+ F12: change nick $str( ,5) $chr(124)
iiecho ' $+ $str(-,25) $+ '
}
writeini $tp(flood.txt) ctcpcontrol total 0
tsound flood
halt
}
if ($ctcp.num($wildsite) == $null) {
writeini $tp(flood.txt) $wildsite ctcp 1
writeini $tp(flood.txt) $wildsite ctime $ticks
}
elseif ($sub($ticks,$ctcp.utime($wildsite)) < %curps) {
writeini $tp(flood.txt) $wildsite ctcp $pls(1,$ctcp.num($wildsite))
writeini $tp(flood.txt) $wildsite ctime $ticks
}
else {
writeini $tp(flood.txt) $wildsite ctcp 1
writeini $tp(flood.txt) $wildsite ctime $ticks
}
if ($ctcp.num($wildsite) >= %ctcpmaxu) {
set %kkchan .ignore -rt $wildsite
.ignore -tu $+ %ctcpremu $wildsite
if ($form(ctcpsflood,n1)) { set %i 0 | :start2 | inc %i | set %j n $+ %i | if ($form(ctcpsflood,%j)) { $readini %formats ctcpsflood %j | goto start2 } }
elseif ($form(ctcpsflood,n1) == $null) {
iiecho . $+ $str(-,40) $+ .
iiecho $chr(124) FLOOD! type $fix(26,ctcp) $chr(124)
iiecho $chr(124) $+ $str(-,40) $+ $chr(124)
iiecho $chr(124) Host: $fix(32,$hc($left($wildsite,32))) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,20) $chr(124)
if ($comchan($nick,1).op) {
set %kchan ckb $nick ctcp flood
iiecho $chr(124) $+ F12: kickban $fix(24,$hc($nick)) $chr(124)
}
iiecho ' $+ $str(-,40) $+ '
}
remini $tp(flood.txt) $wildsite ctcp
tsound flood
}
}
}
on 1:NOTICE:*:* {
if (%notfld == on) {
if ($not.tot == $null) {
writeini $tp(flood.txt) notcontrol total 1
writeini $tp(flood.txt) notcontrol time $ticks
}
elseif ($sub($ticks,$not.time) < %ntrps) {
writeini $tp(flood.txt) notcontrol total $pls(1,$not.tot)
writeini $tp(flood.txt) notcontrol time $ticks
}
else {
writeini $tp(flood.txt) notcontrol total 1
writeini $tp(flood.txt) notcontrol time $ticks
}
if ($not.tot >= %notmax) {
set %kchan .ignore -rn *!*@*
set %kchan .nick \ $+ $me
.ignore -nu $+ %notrem *!*@*
if ($form(noticeflood,n1)) { set %i 0 | :start1 | inc %i | set %j n $+ %i | if ($form(noticeflood,%j)) { $readini %formats noticeflood %j | goto start1 } }
elseif ($form(noticeflood,n1) == $null) {
iiecho . $+ $str(-,25) $+ .
iiecho $chr(124) FLOOD! type $fix(11,notice) $chr(124)
iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
iiecho $chr(124) Host: $fix(17,multiple) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,5) $chr(124)
iiecho $chr(124) $+ F12: change nick $str( ,5) $chr(124)
iiecho ' $+ $str(-,25) $+ '
}
writeini $tp(flood.txt) notcontrol total 0
tsound flood
halt
}
if ($not.num($wildsite) == $null) {
writeini $tp(flood.txt) $wildsite not 1
writeini $tp(flood.txt) $wildsite ntime $ticks
}
elseif ($sub($ticks,$not.utime($wildsite)) < %nturps) {
writeini $tp(flood.txt) $wildsite not $pls(1,$not.num($wildsite))
writeini $tp(flood.txt) $wildsite ntime $ticks
}
else {
writeini $tp(flood.txt) $wildsite not 1
writeini $tp(flood.txt) $wildsite ntime $ticks
}
if ($not.num($wildsite) >= %notmaxu) {
set %kkchan .ignore -rn $wildsite
.ignore -nu $+ %notremu $wildsite
if ($form(notflood,n1)) { set %i 0 | :start2 | inc %i | set %j n $+ %i | if ($form(notflood,%j)) { $readini %formats notflood %j | goto start2 } }
elseif ($form(notflood,n1) == $null) {
iiecho . $+ $str(-,40) $+ .
iiecho $chr(124) FLOOD! type $fix(26,notice) $chr(124)
iiecho $chr(124) $+ $str(-,40) $+ $chr(124)
iiecho $chr(124) Host: $fix(32,$hc($left($wildsite,32))) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,20) $chr(124)
if ($comchan($nick,1).op) {
set %kchan ckb $nick notice flood
iiecho $chr(124) $+ F12: kickban $fix(24,$hc($nick)) $chr(124)
}
iiecho ' $+ $str(-,40) $+ '
}
remini $tp(flood.txt) $wildsite not
tsound flood
}
}
}
on 1:INVITE:* {
if (%invfld == on) {
if ($inv.tot == $null) {
writeini $tp(flood.txt) invcontrol total 1
writeini $tp(flood.txt) invcontrol time $ticks
}
elseif ($sub($ticks,$inv.time) < %irps) {
writeini $tp(flood.txt) invcontrol total $pls(1,$inv.tot)
writeini $tp(flood.txt) invcontrol time $ticks
}
else {
writeini $tp(flood.txt) invcontrol total 1
writeini $tp(flood.txt) invcontrol time $ticks
}
if ($inv.tot >= %invmax) {
set %kchan .ignore -ri *!*@*
set %kchan .nick \ $+ $me
.ignore -iu $+ %invrem *!*@*
if ($form(inviteflood,n1)) { set %i 0 | :start1 | inc %i | set %j n $+ %i | if ($form(inviteflood,%j)) { $readini %formats inviteflood %j | goto start1 } }
elseif ($form(inviteflood,n1) == $null) {
iiecho . $+ $str(-,25) $+ .
iiecho $chr(124) FLOOD! type $fix(11,invite) $chr(124)
iiecho $chr(124) $+ $str(-,25) $+ $chr(124)
iiecho $chr(124) Host: $fix(17,multiple) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,5) $chr(124)
iiecho $chr(124) $+ F12: change nick $str( ,5) $chr(124)
iiecho ' $+ $str(-,25) $+ '
}
writeini $tp(flood.txt) invcontrol total 0
tsound flood
halt
}
if ($inv.num($wildsite) == $null) {
writeini $tp(flood.txt) $wildsite inv 1
writeini $tp(flood.txt) $wildsite itime $ticks
}
elseif ($sub($ticks,$inv.utime($wildsite)) < %iurps) {
writeini $tp(flood.txt) $wildsite inv $pls(1,$inv.num($wildsite))
writeini $tp(flood.txt) $wildsite itime $ticks
}
else {
writeini $tp(flood.txt) $wildsite inv 1
writeini $tp(flood.txt) $wildsite itime $ticks
}
if ($inv.num($wildsite) >= %invmaxu) {
set %kkchan .ignore -ri $wildsite
.ignore -iu $+ %invremu $wildsite
if ($form(invflood,n1)) { set %i 0 | :start2 | inc %i | set %j n $+ %i | if ($form(invflood,%j)) { $readini %formats invflood %j | goto start2 } }
elseif ($form(invflood,n1) == $null) {
iiecho . $+ $str(-,40) $+ .
iiecho $chr(124) FLOOD! type $fix(26,invite) $chr(124)
iiecho $chr(124) $+ $str(-,40) $+ $chr(124)
iiecho $chr(124) Host: $fix(32,$hc($left($wildsite,32))) $chr(124)
iiecho $chr(124) $+ F11: undo ignore $str( ,20) $chr(124)
if ($comchan($nick,1).op) {
set %kchan ckb $nick invite flood
iiecho $chr(124) $+ F12: kickban $fix(24,$hc($nick)) $chr(124)
}
iiecho ' $+ $str(-,40) $+ '
}
remini $tp(flood.txt) $wildsite inv
tsound flood
}
}
}
on 1:CHAT:* {
if (%chatfld == on) {
if ($chat.num($nick) == $null) {
writeini $tp(flood.txt) $nick chat 1
writeini $tp(flood.txt) $nick ctime $ticks
}
elseif ($sub($ticks,$chat.utime($nick)) < %chturps) {
writeini $tp(flood.txt) $nick chat $pls(1,$chat.num($nick))
writeini $tp(flood.txt) $nick ctime $ticks
}
else {
writeini $tp(flood.txt) $nick chat 1
writeini $tp(flood.txt) $nick ctime $ticks
}
if ($chat.num($nick) >= %chatmaxu) {
set %kkchan dcc chat $nick
.close -c $nick
if ($form(chatflood,n1)) { set %i 0 | :start1 | inc %i | set %j n $+ %i | if ($form(chatflood,%j)) { $readini %formats chatflood %j | goto start1 } }
elseif ($form(chatflood,n1) == $null) {
iiecho . $+ $str(-,40) $+ .
iiecho $chr(124) FLOOD! type $fix(26,chat) $chr(124)
iiecho $chr(124) $+ $str(-,40) $+ $chr(124)
iiecho $chr(124) Nick: $fix(32,$hc($left($nick,32))) $chr(124)
iiecho $chr(124) $+ F11: dcc chat again $str( ,20) $chr(124)
iiecho ' $+ $str(-,40) $+ '
}
remini $tp(flood.txt) $nick chat
tsound flood
}
}
}
alias msg.tot return $readini $tp(flood.txt) msgcontrol total
alias msg.time return $readini $tp(flood.txt) msgcontrol time
alias msg.num return $readini $tp(flood.txt) $1 msg
alias msg.utime return $readini $tp(flood.txt) $1 mtime
alias not.tot return $readini $tp(flood.txt) notcontrol total
alias not.time return $readini $tp(flood.txt) notcontrol time
alias not.num return $readini $tp(flood.txt) $1 not
alias not.utime return $readini $tp(flood.txt) $1 ntime
alias fdcc.tot return $readini $tp(flood.txt) fdcccontrol total
alias fdcc.time return $readini $tp(flood.txt) fdcccontrol time
alias dcc-f.num return $readini $tp(flood.txt) $1 fdcc
alias fdcc.utime return $readini $tp(flood.txt) $1 ftime
alias ctcp.tot return $readini $tp(flood.txt) ctcpcontrol total
alias ctcp.time return $readini $tp(flood.txt) ctcpcontrol time
alias ctcp.num return $readini $tp(flood.txt) $1 ctcp
alias ctcp.utime return $readini $tp(flood.txt) $1 ctime
alias inv.tot return $readini $tp(flood.txt) invcontrol total
alias inv.time return $readini $tp(flood.txt) invcontrol time
alias inv.num return $readini $tp(flood.txt) $1 inv
alias inv.utime return $readini $tp(flood.txt) $1 itime
alias act.tot return $readini $tp(flood.txt) actcontrol total
alias act.time return $readini $tp(flood.txt) actcontrol time
alias act.num return $readini $tp(flood.txt) $1 act
alias act.utime return $readini $tp(flood.txt) $1 atime
alias chat.time return $readini $tp(flood.txt) chatcontrol time
alias chat.num return $readini $tp(flood.txt) $1 chat
alias chat.utime return $readini $tp(flood.txt) $1 ctime