SOURCE DE STATS COMMENTÉ

on *:join:#:{
  ;//la remote réagira quand quelqu'un join le salon
  set %connec [ $+ [ $nick ] ] $ctime
  ;//on set la variable de connection du nick 
  if (!%maxchan [ $+ [ $chan ] ]) {
    ;si la variable %maxchan du salon n'est pas créé
    /set %maxchan [ $+ [ $chan ] ] $nick($chan,0)
    ;on créé la variable avec comme valeur le nombre de nick connecté
    /set %maxchan_date [ $+ [ $chan ] ] $date à $timestamp 
    ;on créé la variable de date du record avec comme valeur la date et l'heure 
  }
  if ($nick($chan,0) >= %maxchan [ $+ [ $chan ] ]) && (%maxchan [ $+ [ $chan ] ] != $nick($chan,0))  {
    ;si le nombre de personne connecté est plus grand que la variable et si la variable n'est pas égale au nombrez de connecté
    /set %maxchan [ $+ [ $chan ] ] $nick($chan,0)
    ;on met a jour la variable de nombre d'utilisateur connecté
    /set %maxchan_date [ $+ [ $chan ] ] $date à $timestamp 
    ;on met a jour la variable de la date du record
    /msg $chan Nouveau Record de connection simultanée ! %maxchan [ $+ [ $chan ] ] users
    ;on affiche un message sur le salon  
  }
  on *:part:#:{
    ;//la remote réagira quand quelqu'un part du salon
    unset %connec [ $+ [ $nick ] ]
    ;//on détruit la variable du nick pour éviter que les statistique de connection soit faux
  }
  on *:text:*:#:{
    ;//la remote réagira a tout les mot sur le canal 
    inc %lignes [ $+ [ $nick ] ]
    if ($strip($1) == !max) {
      ;si le premier mot est !max
      /notice $nick le record actuelle est de %maxchan [ $+ [ $chan ] ] users connecté simultanément . Record établie le %maxchan_time [ $+ [ $chan ] ] .
      ;on envoit une notice au nick
    }
inc %lignes [ $+ [ $nick ] ]
    ;// on incremente la variable %lignes du nick a chaque phrases
    set %lettres [ $+ [ $nick ] ] $calc(%lettres [ $+ [ $nick ] ] + $len($strip($1-)))
    ;//on set la variable %lettres du nick avec un calcul . le calcul correspond a la variable %lettres + le nombres de lettres qu'il vient de dire dans la phrase
    if ( :) isin $strip($1-)) {
      ;//si le mot ":)" apparait dans la phrase .
      inc %sourire [ $+ [ $nick ] ]
      ;//on increment la variable sourire du nick.
    }
    if :'( isin $strip($1-) || :( isin $strip($1-) {
      ;//si les mots ":'(" ou ":("  apparaissent dans la phrase .
      inc %triste [ $+ [ $nick ] ]
      ;//on incremente la variable triste du nick.
    }
    if ($strip($1) == !stats) {
      ;//si le premier mot est !stats
      if (!$strip($2)) {
        ;//si il n'y a pas de deuxieme mot 
        /msg $nick Voici vos statistiques sur le canal4 $chan :
        /msg $nick  %lignes [ $+ [ $nick ] ] lignes . %lettres [ $+ [ $nick ] ] lettres.
        ;on affiche les variable %lignes et %lettres du nick
        /msg $nick  %sourire [ $+ [ $nick ] ]  sourires et %triste [ $+ [ $nick ] ] visage triste !!
        ;on affiche les variable %sourire et %triste du nick
        /msg $nick Vous etes sur le canal $chan depuis $duration($calc($ctime - %connec [ $+ [ $nick ] ] ))
        ;on calcule le temps depuis qu'il est connecté en faisant le calcul de durée
        /msg $nick il y a $nick($chan,0) connéctés en ce moment sur $chan dont4 $nick($Chan,0,o) son des ops et 2 $nick($chan,0,v)  sont voicés.
        ;on retourne le nombre de personne d'op et de voicée
      }
      if ($strip($2) != $null) {
        ;//si il y a un deuxieme mot 
        ;//si le premier mot de la phrase et !stats et qu'il y a un deuxieme mot 
        /msg $nick Voici les statistiques de $2 sur le canal4 $chan :
        /msg $nick  %lignes [ $+ [ $2 ] ] lignes . %lettres [ $+ [ $2 ] ] lettres.
        ;on affiche les variable %lignes et %lettres du deuxieme mot 
        /msg $nick  %sourire [ $+ [ $2 ] ]  sourires et %triste [ $+ [$2 ] ] visage triste !!
        ;on affiche les variable %sourire et %triste du mot
        /msg $nick $2 est sur le canal $chan depuis $duration($calc($ctime - %connec [ $+ [ $2] ] ))
        ;on calcule le temps depuis qu'il est connecté en faisant le calcul de durée
        /msg $nick il y a $nick($chan,0) connéctés en ce moment sur $chan dont4 $nick($Chan,0,o) son des ops et 2 $nick($chan,0,v)  sont voicés.   
        ;on retourne le nombre de personne d'op et de voicée 
      }
    }
  }

}