PTITS SCRIPTS POUVANT ÊTRE UTILES !

on 1:TEXT:!seen [ton_pseudo]:#:/msg $chan Bachi Bouzouc ! Je suis la ! ouvre tes mirettes !
on 1:TEXT:!infos:#:/infos $nick $chan
on 1:JOIN:#:/arriv
alias rep {
  if ( $me == [ton_pseudo]) {
    /set %rep ON
    /nick [ton_pseudo_away]
    /amsg Allez zou ! j'men va @re ....
    %sec 0
    /inc -c %sec
  }
  elseif ( $me == [ton_pseudo_away] ) {
    /set %rep Off
    /nick [ton_pseudo]
    /msg nickserv identify [ton_pass]
    /amsg re everybody de la room !
    /unset %sec
  }
}
on *:TEXT:*[ton_pseudo]*:#:/mess
on *:TEXT:*$me*:#:/mess
on *:TEXT:*:?:/mess
alias mess {
  if ( %rep == On ) { 
    if ( $upper($nick) == [pseudo_1_ex:copine] ) { /notice $nick Ma puce, je suis absent depuis $duration(%sec) mais je serais au courant de ton passage. Je te contact dès que je reviens. Je t'aimmmeeee très fort ! | beep 3 1000  }
    elseif ( $upper($nick) == [pseudo_2_ex:ami] ) { /notice $nick iop vieux ! je suis pas la mais t'inkiete de contact des que poss ! | beep 3 1000  }
    else { /notice $nick Je suis absent depuis $duration(%sec) mais je serais au courant de ton passage | beep 3 1000 }
    /query répondeur $nick à voulu te parler.
  }
  else {
    beep 1 1
  }
}
alias arriv {
  if ( $upper($nick) == [pseudo_1_ex:copine] ) { 
    /notice $nick Bonjour mon coeur ;)
    /notice $me Ton coeur est arrivée
    beep 10 1000
  }
  elseif ( $upper($nick) == [pseudo_2_ex:ami] ) {
    /notice $nick Iop vieux :)
    /notice $me Ton pote est arrivé
    beep 10 1000
  }
  else {
    beep 1 1
  }
}
alias infos {
  /notice $1 Il est $asctime(hh:nn:ss) et nous sommes le $asctime(dd/mm/yy).
  /notice $1 
  /notice $1 Le topic du chan est: $chan($2).topic
  /notice $1 
  /notice $1 Voici quelques infos sur le canal $2
  /notice $1 Il y a $nick($2,0 ) personne(s) sur le chan
  /notice $1 dont $nick($2,0,o) opérateur(s) , $nick($2,0,h) helpeur(s) ,
  /notice $1 $nick($2,0,v) voice(s) et $nick($2,0,r) régulier(s) .
  /notice $1 
  if ($chan($2).ibl) {
    /notice $1 Il y a $ibl( $2 , 0) banné(s) sur $2
    /notice $1 La liste:
    var %i 1
    while (%i <= $ibl($2,0)) {
      /notice $1 $ibl($2,%i) par $ibl($2,%i).by le $ibl($2,%i).date | inc %i
    }
  }
  else {
    /notice $1 Il n'y a aucun banné sur $2
  }
}