SCRIPT MULTIFONCTION ( AWAY, PV, PSEUDO, CONNECTEUR .. )

; ---------------------------------------------------
; ---------- Script MultiFunction, By CF ------------
; ---------------------------------------------------

alias cf {
  /set %pseudo_mf VOTRE_PSEUDO
  /set %pass_mf VOTRE_PASS
  /set %pseudo_aw VOTRE_PSEUDO_ AWAY_!
  /set %sec
  /set %reponse
  /set %ask
  /set %new-nick
  %ask = .....::::: Script MultiFunction, By CF :::::..... $crlf $+ $crlf $+
  %ask = %ask Quelle Fonction souhaitez-vous utiliser ?  $crlf $+

  if ( $me != %pseudo_mf ) {
    %ask = %ask Reprendre le Pseudo %pseudo_mf -> Re-CF $crlf $+
  }
  else {
    %ask = %ask Changer de Pseudo -> Change $crlf $+
  }

  if ( Away isin $me ) {
    %ask = %ask Revenir ( Plus Away ) -> No-Away $crlf $+
  }
  else {
    %ask = %ask Passer en Mode Away -> Away $crlf $+
  }

  if ( %pv-ok == oui ) {
    %ask = %ask Refuser les PV's -> PV-No $crlf $+
  }
  else {
    %ask = %ask Autoriser les PV's -> PV-Ok $crlf $+
  }

  %ask = %ask Se Connecter a UnderNet -> Con-UN


  %reponse = $?=" %ask "

  if ( %reponse == Re-CF ) {
    /nick %pseudo_mf
    /msg NickServ identify %pass_mf
  }
  elseif ( %reponse == Change ) {
    %new-nick = $?="Veuillez indiquer le Nouveau Pseudo !"
    /nick %new-nick
  }
  elseif ( %reponse == Away ) {
    /ame est Away, Raison : $?="Quelle est la Raison du Away ?"
    /nick %pseudo_aw
    %sec 0
    /inc -c %sec
  }
  elseif ( %reponse == No-Away ) {
    /ame est de retour...
    /nick %pseudo_mf | /msg NickServ Identify %pass_mf
    /unset %sec
  }
  elseif ( %reponse == PV-Ok ) {
    %pv-ok = oui
    echo 12Vous Acceptez les PV's :)
  }
  elseif ( %reponse == PV-No ) {
    %pv-ok = non
    echo 12Vous Refusez les PV's :)
  }
  elseif ( %reponse == Con-UN ) {
    /server -m mesa.az.us.undernet.org
  }
  else {
    if ( %reponse != $null) {
      echo 12Erreur : Commande Inconnue : %reponse  ne figure par parmis les réponses attendues !!
    }
  }
}


ON *:OPEN:*:?:{
  if ($nick != $me) {
    if ( %pv-ok == non ) {
      /msg $nick Je n'accepte pas les PV's pour l'instant, demande sur le Channel ou patiente !
    }
    if ( Away isin $me ) {
      /msg $nick Je suis Away depuis 12 $duration(%sec) 1 mais un beep vient de m'alerter de ton message, et je regarde souvent IRC, alors patiente ! | beep 3 1000 
    }
  }
}


on *:TEXT:*:?:{

  if ( %pv-ok == non ) {
    /msg $nick Je n'accepte pas les PV's pour l'instant, demande sur le Channel ou patiente !
  }
  elseif ( %pv-ok == oui ) {
    if ( Away isin $me ) {
      /msg $nick Je suis Away depuis 12 $duration(%sec) 1 mais un beep vient de m'alerter de ton message, et je regarde souvent IRC, alors patiente ! | beep 3 1000 
    }
  }
}

; ------------------------------------------------
; ---------- EOF Script MultiFunction ------------
; ------------------------------------------------