Gestion des amis

0/5 (7 avis)

Snippet vu 3 197 fois - Téléchargée 24 fois

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

Ajouter un commentaire

Commentaires

Signaler
sman0
Messages postés
39
Date d'inscription
mercredi 19 novembre 2003
Statut
Membre
Dernière intervention
3 novembre 2005
 -
;)
Signaler
vesparo
Messages postés
230
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
13 mai 2004
 -
voila sman0 c'est corriger en faite j'avait inverser certain boutton bref tout est bon
Signaler
sman0
Messages postés
39
Date d'inscription
mercredi 19 novembre 2003
Statut
Membre
Dernière intervention
3 novembre 2005
 -
dsl mais la liste marche pas.... ainsi que pour effacer un ami...

sinon c'est bien comme addon :D
Signaler
vesparo
Messages postés
230
Date d'inscription
samedi 6 septembre 2003
Statut
Membre
Dernière intervention
13 mai 2004
 -
Merci pour les commentaires. nestor_chat le but c'est que c'est pour les amis... c'est tout et l'interet de remplacer les Notify ben c'est le code... et puis c'est tout.
Signaler
nestor_chat
Messages postés
19
Date d'inscription
lundi 20 octobre 2003
Statut
Membre
Dernière intervention
20 janvier 2004
 -
- On *:DIALOG:amis:*:*:{ tout les evenements passe la dedans, d'ou un ralentissement. = On *:DIALOG:amis:sclick:4: {
- ON CONNECT n'est declenché que a la connection du script pas des autres. = tu peut mettre une horloge et tester la fonction /ison Liste de pseudo qui te renverra les pseudos presents. (idem que les notify)
- Franchement je ne vois pas l interet de remplacer les Notify de cette facon.
Afficher les 7 commentaires
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)