SYSTÈME D'AWAY + SYSTÈME DE GROUP DE NICK

;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;  Système d'away ;;;;;
;;;;;       Par       ;;;;;
;;;;;    Niamor       ;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;
menu channel {
  Système d'away:/dialog -m away away 
}
menu menubar {
  Système d'away: /dialog -m away away 
}
dialog Away {
  title "Système d'away par Niamor !"
  size -1 -1 173 124
  option dbu
  tab "Système d'away", 3, 0 0 170 110
  tab "Répondeur", 4
  tab "Système de group", 6
  box "Système rapide", 1, 3 18 69 64, tab 3
  combo 2, 11 47 50 10, tab 3 drop
  button "De Retour", 16, 15 66 40 10, tab 3
  box "Système Avancé", 17, 82 18 69 64, tab 3
  text "Un autre nick ?", 18, 87 25 52 9, tab 3 center
  text "Mettez le ici :", 19, 95 41 39 8, tab 3 center
  edit %raison_nick, 20, 95 56 41 10, tab 3 autohs
  button "Go", 21, 99 68 32 10, tab 3
  link "Créer par Niamor pour la Renkin-Fansub", 24, 38 114 97 8
  box Répondeur, 25, 1 15 166 78, tab 4
  text "Voilà un petit répondeur quand des personnes vous parle et que vous êtes absent", 26, 4 24 159 15, tab 4 center
  button "Activer", 27, 126 55 32 9, tab 4
  button "Désactiver", 28, 126 67 32 9, tab 4
  text "Une raison particulière ? (facultatif)", 29, 4 40 98 9, tab 4 center
  edit %raison, 30, 27 50 64 10, tab 4 autohs
  text "Je serai de retour a :", 34, 4 62 57 8, tab 4 center
  edit %retour, 35, 28 71 64 10, tab 4 autohs
  button "Ok", 36, 55 80 17 10, tab 4
  text "Système rapide juste a choisir ^^", 5, 10 27 50 16, tab 3 center
  box "Group de nick", 7, 3 14 162 75, tab 6
  text "Pour groupez le nick que vous avez avec votre nick d'origine !", 8, 34 23 106 15, tab 6 center
  text "Votre nick d'origine (de base) :", 9, 6 40 84 8, tab 6 center
  edit %nick_d_origine, 10, 15 51 69 11, tab 6
  text "Et votre mot de pass :", 11, 6 62 84 8, tab 6 center
  edit %mot_de_pass, 12, 15 72 69 11, tab 6 pass
  button "Ok", 13, 86 72 17 10, tab 6
  button "Groupez mon nick", 14, 111 40 46 9, tab 6
  button "Supprimé un nick", 15, 111 52 46 9, tab 6
  button "Voir les nicks", 22, 111 63 46 9, tab 6
  text "Le logeur d'hl c'est quoi ? Il notera tous les messages où on a prononcé votre pseudo", 23, 3 83 148 14, tab 3 center
  check "Activé / Désactivé", 31, 56 99 53 8, tab 3
}
dialog group {
  title "Supprimé un nick"
  size -1 -1 190 80
  text "Quel nick voullez vous supprimé ?", 1, 12 9 164 17, center
  edit %nick_supprime, 2, 14 31 162 20
  button "Effacé", 3, 15 52 65 25
  button "Annuler", 4, 93 52 65 25, cancel
}
on *:LOAD:{
  echo -a 10Le systeme d'away a bien été 4installé !
  echo -a 10Merci de l'avoir choisis j'espère qu'il va vous plaire :D
}
on *:dialog:away:*:*:{
  if ($devent == init) { didtok $dname 2 32 ZZzz Away Mange Joue Flood Bahut Time Tv Encode Toshop Douche Mattage McDo Devoirs 
    if (%logeur == on) { did -c $dname 31 }
  }
  if ($devent == sclick) {
    if $did == 2 { set %debut_away $ctime
      var %aw_rizon = $did(2)
      if ($chr(96) isin $me) tnick $+($gettok($me,1,96),$chr(96),%aw_rizon)
      else tnick $+($me,$chr(96),%aw_rizon)
      if (%repondeur == on) { .timer 1 1 /ame .:: is away ::. .:: Raison : %raison ::. .:: Retour : %retour ::. } 
    }
    if $did == 21 { set %debut_away $ctime
      set %raison_nick $did(20)
      var %aw_rizon = %raison_nick
      if ($chr(96) isin $me) tnick $+($gettok($me,1,96),$chr(96),%aw_rizon)
      else tnick $+($me,$chr(96),%aw_rizon)
      if (%repondeur == on) { .timer 1 1 /ame .:: Is Away ::. .:: Raison : %raison ::. .:: Retour : %retour ::. }
    } 
    if $did == 16 {
      if (%repondeur == off) {      
        if ($gettok($me,2,96)) .timer 1 3 /ame .:: De Retour ::. .:: [ $duration($calc($ctime - %debut_away)) ] ::. .:: Raison : $gettok($me,2,96) ::.  
        tnick $gettok($me,1,96)
      }
      if (%repondeur == on) {
        if ($gettok($me,2,96)) .timer 1 3 /ame .:: De Retour ::. .:: [ $duration($calc($ctime - %debut_away)) ] ::. .:: Raison : %raison ::.
        tnick $gettok($me,1,96)
      }
    }
    if $did == 24 {
      run http://renkinfansub.free.fr/index.php
    }
    if $did == 27 {
      if (%repondeur == off) { echo -a 2Le répondeur est maintenant 4Activé }
      if (%repondeur == on) { echo -a 2Le répondeur est déja 4Actif }
      set %repondeur on
    }
    if $did == 28 {
      if (%repondeur == on) { echo -a 2Le répondeur est maintenant 4Désactivé }
      if (%repondeur == off) { echo -a 2Le répondeur est déja 4Inactif }
      set %repondeur off
    }
    if $did == 33 {
      dialog -m groupage groupage
    }
    if $did == 36 { set %retour $did(35)
      set %raison $did(30)
      echo -a 2La raison est maintenant :4 %raison
      echo -a 2Vous serez de retour vers :4 %retour
    }
    if $did == 13 { set %mot_de_pass $did(12)
      set %nick_d_origine $did(10)
      echo -a 2Votre nick d'origine est :4 %nick_d_origine
      echo -a 2Votre mot de passe est :4 %mot_de_pass
    }
    if $did == 31 {
      if ($did(31).state == 1) { 
        echo -a 2Le logeur d'HL est maintenant 4Activé 
        set %logeur on
      }
      else {
        echo -a 2Le logeur d'HL est maintenant 4Désactivé  
      unset %logeur }
    }
  }
  if $did == 14 {
    /ns group %nick_d_origine %mot_de_pass 
  }
  if $did == 22 {
    /ns glist
  }
  if $did == 15 {
    dialog -m group group
  }
}
on *:dialog:group:sclick:3:{ set %nick_supprime $did(2)
  /ns drop %nick_supprime
}

on *:TEXT:*:?:{
  if (%repondeur == on) {      
    msg $nick 2 ( Répondeur ) 10 Bonjour $nick je suis absent pour la raison : %raison , et je serais de retour vers : %retour  
  }
}
on *:TEXT:*:*:{
  if (%repondeur == on) && ($me isin $1-) { notice $nick 2( Répondeur ) 10 Bonjour $nick je suis absent pour la raison : %raison , et je serais de retour vers : %retour
  } 
  if (%logeur == on) && ($me isin $1-) {
    if ( $window(@HightLight) == $null ) { /window -kn @HightLight }
    echo @HightLight [ $1- ]10 message de 4 $+ $nick 10à $time , sur le chan $chan et c'était sur le serveur $server
    echo @HightLight ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
  }
}

Télécharger le zip

08 février 2007 23:52:41 :

Petite modification

09 février 2007 11:38:47 :

Rajout d'un petit bouton Annuler et j'ai changé le bouton ok en un bouton effacé dans le dialog pour supprimé un nick

10 février 2007 13:48:42 :

J'ai mis un combo au lieu des boutons.

11 février 2007 02:36:20 :

Petite modification de l'interface du dialog (plus clair comme ça je trouve) plus rajout d'un zip ^^ (plour les gros flemmard)

12 février 2007 19:05:38 :

modification du screen

12 février 2007 19:17:50 :

Petit bug j'ai modifié ^^

22 février 2007 02:47:47 :

Modification, merci beaucoup à doob666 pour ses commentaires et vu que je ne l'avais pas mis je remercie aussi Wims merci a vous 2 :D

18 mai 2007 16:55:08 :

MAJ