Systeme d'away en dialog

Commenter

Contenu du snippet

Bonjour , je débute en scripting mIRC , et j'ai creé un systeme d'away en dialog . Je le depose ici pour le partager et pour m'ameliorer en prenant en compte vos critiques :) .
Pour le lancer => /dialog -m Aw Aw .

Source / Exemple : 


dialog Aw {
  title "Gold-Script"
  size -1 -1 166 117
  option dbu
  box "Away", 1, 2 0 161 115
  box "Configuration", 2, 16 21 63 85
  edit "", 3, 23 44 50 10, autohs center
  edit "", 4, 23 68 50 10, autohs center
  edit "", 5, 23 93 50 10, pass autohs center
  text "Pseudo d'away", 6, 25 33 44 8, center
  text "Raison", 7, 36 58 19 8
  text "Mot de passe", 8, 31 82 33 8
  box "Identify", 9, 83 21 71 34
  radio "Identify Manuel", 10, 88 31 50 8
  radio "Identify Auto", 11, 88 43 50 8
  button "Partir", 12, 88 61 60 12
  button "Revenir", 13, 88 79 60 12
  button "Fermer", 14, 96 96 47 13, ok flat
  edit "", 16, 8 9 150 10, read center
}
On *:DIALOG:Aw:*:*:{
  if ($devent == init) {
    if (!$away) { did -ra $dname 16 Vous N'etes Actuellement Pas Away }
    if ($away) { did -ra $dname 16 Vous Etes Actuellement Away | did -ra $dname 3 %AwNick | did -ra $dname 4 %Raison | did -ra $dname 5 $mdp }
  }
  if ($devent == sclick) {
    if ($did == 11) { set %identify 1 }
    if ($did == 10) { unset %identify }
    if ($did == 12) {
      if ($away) { $input(Vous etes deja Away,300,Away) | halt }
      if (!$did(3)) || (!$did(4)) || (!$did(5)) { $input(Tous les champs ne sont pas remplis,300,Away) }
      else { .away $did(4) | set %me $me | set %AwNick $did(3) | set %mdp $did(5) | nick %AwNick | ame Est Away ( Raison : $did(4) ) | did -ra $dname 16 Vous Etes Actuellement Away | halt }       
    } 
    elseif ($did == 13) { 
      if ($away) { did -ra $dname 16 Vous N'Etes Pas Away | nick %me | $iif(%identify == 1, msg nickserv identify %mdp) | ame Est de Retour Après une Absence de $replace($duration($awaytime),wks,Semaines,days,Jours,hrs,Heures,min,Minutes,secs,Secondes) ( Raison : $awaymsg ) | .away | halt } 
      else { $input(Vous n'etes pas Away,300,Away) } 
    }
  }
}
on ^*:OPEN:?:{ 
  if $away { msg $nick 2Je Suis Absent Depuis $replace($duration($awaytime),wks,Semaines,days,Jours,hrs,Heures,min,Minute,mins,Minutes,secs,Secondes) } 
}

Conclusion :


Merci de me donner des conseils pour l'ameliorer :) .

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.