Gestion des amis

Commenter

Contenu du snippet

Gestionnaire d'amis permetant de choisir les nicks amis !

Source / Exemple : 


on 1:LOAD:{
  echo -a 12Gestion des Amis Par [VeSpArO]
  echo -a 12Venez voir le site www.the-irc.fr.st
  echo -a 12Have Fun
}
on 1:UNLOAD:{
  echo -a 12Gestion des Amis Par [VeSpArO] Bien unloader
  echo -a 12Venez voir le site www.the-irc.fr.st
  echo -a 12Have Fun
}
alias amis { dialog -m amis amis }
dialog amis {
  title "Gestion Des Amis By [VeSpArO]"
  option dbu
  size -1 -1 135 60
  box "Amis",1, 1 1 133 58
  text "Ajouter un amis(Nick):", 2, 5 10 70 10
  edit "",3, 59 10 50 10, mutli return
  button "Ok", 4, 5 33 15 10
  text "Message A Envoyer:", 5, 5 21 60 12
  edit "",6,60 21 60 10
  button "Liste",7, 30 33 30 10 
  text "Nombre D'Amis:",8, 65 35 40 20
  edit "",9, 105 33 18 10,disable
  text "Effacer Amis:", 10,5 45 33 10
  edit "",11, 38 45 50 10, multi return
  button "Ok",12, 90 45 12 10
  button "Fermer",13, 102 45 30 10,ok
}
On *:DIALOG:amis:*:*:{
  did -ra amis 9 $lines(amislist.txt)
  if ($devent == sclick) {
    if ($did == 4) {
      if (!$did(3)) { echo -a 4Marque au moins un pseudo ! | halt }
      window -Czd @Amis | aline @Amis 4Amis ajouté: 12 $did(3) | write amislist.txt $did(3)
    }
    if ($did == 7) { window -Czd @Amis | aline @Amis 4Voici La Liste Des Amis : | /loadbuf @Amis amislist.txt  }
  }
  if ($did == 12) {
    if (!$did(11)) { echo -a 4Marque au moins un pseudo ! | halt }
    window -Czd @Amis | aline @Amis 4Amis Effacé : 12 $did(11) | write -dl amislist.txt $did(11)
    if ($did == 4) { set %msgentrer $did(6) }
  }
}
ON *:JOIN:#:{
  var %file = amislist.txt, %a = $lines(%file), %aa = 0
  while (%a > %aa) { inc %aa | if ($read(%file,%aa) == $nick) { msg $chan 4[ 6A M I S 4] %msgentrer $nick ! } }
}
ON *:CONNECT:{
  var %file = amislist.txt, %a = $lines(%file), %aa = 0
  while (%a > %aa) { inc %aa | if ($read(%file,%aa) == $nick) { echo -at 4[ 6A M I S 4] $nick Vient de se connecter a $network ! } }
}

Conclusion :


Code optimiser par Sorn_Drixer
erreur corriger orthographe

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 (vesparo)