; ––––––––––––––––––––––––––––––––––––––––
; NoNameScript v3.81 - main stuff (events/dialogs)
; Coded by greeny & mute, KTE coded by Kamek
; Don't edit anything in here unless you REALLY know what you're doing!
; ––––––––––––––––––––––––––––––––––––––––
ctcp *:*:*:{
  if ($checkexcl($nick)) { selfprot $nick $hget(pp.settings,ctcpflood.times) $hget(pp.settings,ctcpflood.mins) $hget(pp.settings,ctcpflood.ignore) -c }
  if ($group(#themes) == off) {
    if ($chan) { aw.writelog $+(-f,$nick !,$nick($chan,$nick).pnick,:,$chan,!) $1 $chr(13) $2- }
    else { aw.writelog $+(-f,$nick !,$nick,!) $1 $chr(13) $2- }
  }
  if ($istok(version userinfo clientinfo script ping finger time,$1,32)) {
    hadd -mu8 multictcpflood $ticks $+ $rand(10000,99999) 1
    if ($hget(multictcpflood,0).item > 4) {
      .ignore -tu300 *
      kte_echo -a $gtd(Warning) you are being CTCP flooded... enabling emergency CTCP ignore for $sd(5) minutes!
      if ($balloon.trig) && (p isin %nntray) { stdll Balloon 1 1 > Personal protection $iif($scid(0) > 1,$nbr($puform($curconserv))) > You are being CTCP $+(flooded!,$cr,Enabling) emergency CTCP ignore for 5 minutes! }
      hfree multictcpflood
    }
  }
  if ($me isop $chan) && ($address($nick,5)) && ($checkexcl($nick)) && ((? !iswm $nick) || (!$q.net)) && (!%chanprot.punished. [ $+ [ $chan ] $+ ] . [ $+ [ $nick ] ]) {
    if (%cp.preset.only) { var %c = Preset }