[à placer dans le REMOTE]

; Lorsque vous ouvrez mIRC, il va créer des fenêtres invisibles qui contiendront les différents messages
; qui s'échangent entres vous et le serveur
on ^*:LOGON:*:{
   window -ek0mv $+(@Raw-, $cid)
   window -h $+(@Raw-, $cid)
   .debug -inpt $+(@Raw-, $cid) DCCWorkaround
}

on *:CLOSE:=:{ .debug -i NUL DCCWorkaround }

; Lorsqu'un DCC est reçu et qu'il correspond à l'exploit, alors un message est envoyé dans la fenêtre
; Status donnant le nick du criminel et le channel sur lequel il a balancé l'exploit.
; Le script vérifie ensuite si vous êtes op et kick/ban le criminel (s'il n'est pas op sur le chan).
alias DCCWorkaround {
   if (($+(*:*!*@* PRIVMSG * :, $chr(1), DCC SEND "*) iswm $1) || ($+(*:*!*@* PRIVMSG * :, $chr(1), DCC RESUME "*) iswm $1)) {
      var %nick = $right($gettok($gettok($1, 2, 32), 1, 33), -1)
      var %chan $gettok($gettok($1, 4, 32), 1, 33)
      echo 4 -s *** Possible lamer: %nick sur %chan

      if ((%nick !isop %chan) && ($me isop %chan)) {
         /kick %chan %nick mIRC Dcc Exploit Detected on the Channel %chan
         /ban %chan %nick 3
      }
      else {
         var %i 1
         var %max $comchan(%nick,0)
         :loop
         if (%i <= %max) {
            if ($comchan(%nick,%i).op == 1) {
               /kick %nick mIRC Dcc Exploit Detected on the Channel %chan
               /ban $comchan(%nick,%i) %nick 3
            }
            inc %i
            goto loop
         }
      }
   }
else return $1-
}

[à placer dans ALIASES]

; En tapant /cfg le texte magique apparait.
; Attention cependant de modifier cet alias selon que vous avez un ou plusieurs disques (changer les lettres, etc)
/cfg {
    set %free $round($calc($disk(c:).free /1048576),2)
    set %total $round($calc($disk(c:).size /1048576),2)
    set %per $calc(100 * %free / %total)
    set %per $round( $+ %per $+ ,2)
    set %free $round($calc($disk(f:).free /1048576),2)
    set %total $round($calc($disk(f:).size /1048576),2)
    set %perf $calc(100 * %free / %total)
    set %perf $round( $+ %perf $+ ,2)
    /say .OS. ( $+ $dll(moo.dll,osinfo,_) $+ ) .MEM. ( $+ [ $dll(moo.dll,meminfo,_) ] $+ ) .CPU. ( $+ $dll(moo.dll,cpuinfo,_) $+ ) .UPTIME. ( $+ $dll(moo.dll,uptime,_) $+ ) .Disk Space Free. (C: $round($calc($disk(c:).free /1048576),2) $+ / $+ $round($calc($disk(c:).size /1048576),2) Mb)( $+ [ %per ] $+ % $+ ) (F: $round($calc($disk(f:).free /1048576),2) $+ / $+ $round($calc($disk(f:).size /1048576),2) Mb)( $+ [ %perf ] $+ % $+ ) .RES. ( $+ [ $dll(moo.dll,screeninfo,_) ] $+ ) .VIDEOCARD. ( $+ [ $dll(moo.dll,gfxinfo,_) ] $+ )
    unset %free
    unset %total
    unset %per
}

[à placer dans REMOTE]

; Le flood est vu qu'il soit sur channel, notice ou action.
; On peut mettre en place la protection que sur certains chans.
; Si le floodeur est op, halfop ou voice, il ne sera pas considéré comme tel.
on 1:text:*:*:{
    if ($chan == #votre_chan) {
        if ((($me isop $chan) || ($me ishop $chan)) && ($nick !isop $chan) && ($nick !isvo $chan) && ($nick !ishop $chan)) testrepet $nick $chan $1-
    }
}

on 1:notice:*:*:{
    if ($chan == #votre_chan) {
        if ((($me isop $chan) || ($me ishop $chan)) && ($nick !isop $chan) && ($nick !isvo $chan) && ($nick !ishop $chan)) testrepet $nick $chan $1-
    }
}

on 1:action:*:*:{
    if ($chan == #votre_chan) {
        if ((($me isop $chan) || ($me ishop $chan)) && ($nick !isop $chan) && ($nick !isvo $chan) && ($nick !ishop $chan)) testrepet $nick $chan $1-
    }
}

[à placer dans ALIASES]

; kick et ban le floodeur s'il s'est répété plus de 2 fois.
/testrepet {
    set %nom $1
    set %canal $2
    set %phrase $3-
    if ((%nom != %nom1) || (%phrase != %phrase1)) set %nbrepet 0
    else {
        inc %nbrepet
        if ((%nbrepet == 2) && (%nom !isop %canal) && (%nom !isvo %canal)) {
            kick %canal %nom suite a de trop nombreux flood) pas de repetitions (ban auto
            ban %canal %nom 2
        }
    }
    set %nom1 %nom
    set %phrase1 %phrase
}