Système d'away + système de group de nick

Télécharger le projet
Commenter

Description

Bon je sais encore un système d'away j'en ai vu un paquet aussi mais c'est surtout pour amélioré mon code enfin surtout l'optimisé un peu (si c'est possible bien sur ^^)
J'ai essayé de faire un système rapide et si possible avec d'autres informations mais qui sont facultatif. J'ai aussi rajouté un système pour groupez son nick.
Voilà merci à ceux qui m'aideront à optimisé ma source.
Ah oui ceci est ma première source :)

Source / Exemple : 


;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;  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 ----------------------------------------------------------------------------------------------------------------------------------------------------------------  
  }
}

Conclusion :


Merci de laissez un petit commentaire si vous prenez ma source ça me ferais vraiment plaisir ;)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Niamor7)