ADDON DE TRICHE POUR LE QUIZZ DE RAPIDITÉ

On *:TEXT:*:#predator-land:{
  if ($nick = RaPid0) || ($nick = rapiditage) {
    unset %mot.recons
    %nb.mot = $len($1-)
    %nb.mot.inc = $chr(48)
    while ($calc(%nb.mot.inc +1) <= %nb.mot) { inc %nb.mot.inc
      if ($len($gettok($1-,%nb.mot.inc,32)) = 1) { 
        %mot.recons = %mot.recons $+  $gettok($1-,%nb.mot.inc,32) 
        %mot.recons = $remove(%mot.recons,à,?,!)
      }
    }
    if (t rapide isin $strip($1-)) { %mot.recons = $right(%mot.recons,$calc($len(%mot.recons) -1)) }
    if ($len(%mot.recons)) { .timer -m 0 $rand(3000,5000) msg #predator-land 15,1 $upper($left($remove(%mot.recons,$chr(33)),1)) $+ $right($remove(%mot.recons,$chr(33)),$calc($len($remove(%mot.recons,$chr(33)))-1))  }
  }
}