#ctcpprot on
CTCP *!:*:{
if (%ctcp.seconds.flood [ $+ [ $nick ] ] === $null) { set -u20 %ctcp.seconds.flood [ $+ [ $nick ] ] 1 }
elseif (%ctcp.seconds.flood [ $+ [ $nick ] ] >= %maxctcp) {
if ($me isop $chan) { goto op }
if ($me !isop $chan) { goto reg }
:op
if ($nick isop $chan) { goto reg }
if ($nick isignore) { halt }
else { 
.ignore -pcntiku60 $nick 2
.ban $chan $nick 2 1,15 4C1,15TCP 4F1,15loOoOoOodeR 4O1,15ut 
.kick $chan $nick 1,15 4C1,15TCP 4F1,15loOoOoOodeR 4O1,15ut 

}
:reg
if ($nick isignore) { halt }
else { 
.ignore -pcntiku60 $nick 2
halt
}
else { inc %ctcp.seconds.flood [ $+ [ $nick ] ] 1 }
}
}
ctcp @1:*FINGER*:#: {
if ($nick isop $chan) || ($nick isvo $chan) { goto end }
.mode $chan +mRb $wildsite |.kick $chan $nick 1,15 4C1,15TCP 4F1,15loOoOoOodeR 4O1,15ut | timer 1 120 /mode $chan -mR
:end
}
#ctcpprot end

menu menubar,channel {
حماية من فلود Ctcp
.On:/.enable #ctcpprot | /echo -a Ctcp تم تشغيل حماية فلود ال 
.Off:/.disable #ctcpprot | /echo -a 0,1 Ctcp تم اطفاء حماية ال 
.Set:/set %maxctcp $$?="Enter in How Many Ctcp:" | /set %ctcp.seconds.flood $$?="Enter in How Many Second:"

}