Repondeur et qui fait en + fermeture de pv

Soyez le premier à donner votre avis sur cette source.

Vue 9 226 fois - Téléchargée 512 fois

Description

il fait répondeur et fermeture de pv le tout configurable (voir capture)
cela plaira à Huitre qui m'a donné une superbe idée pour un répondeur fermeture Pv

Source / Exemple :


alias repondeur { dialog -m repondeur repondeur }
dialog repondeur {
  title "Répondeur de pv"
  size -1 -1 617 170
  option pixels
  edit "", 1, 107 8 410 20, autohs center
  icon 2, 17 31 565 22,  repondeur\apercu\repondeur.jpg
  list 3, 14 57 587 100, size
  button "Modifier", 4, 54 8 46 20
  button "Ajouter", 5, 7 8 45 20
  button "Supprimer", 6, 7 30 55 20
  check "ok/répondeur", 8, 528 9 90 16
  check "ok/anti pv", 12, 528 31 90 16
}

on *:dialog:repondeur:*:*:{ 
  if $devent == init {
    reacturep
    if (%rep-active == ON) { did -c repondeur 8  }
    if (%antipv-active == ON) { did -c repondeur 12  }
    did -ra $dname 1 %rep-repondeur
    repapercu $did(1)
  }
  if $devent == edit {
    set %rep $did(1)
    repapercu $did(1)
    set %rep-repondeur $did(1)
  }
  if $devent == sclick {
    if ($did == 8) {
      if ($did(8).state == 1) { set %rep-active ON }
      else { unset %rep-active }
    }
    if ($did == 5) {
      write repondeur\repondeur-antipv\repondeur.txt $did(1)
      reacturep  
      repapercu $did(1)
    }
    if ($did == 6) {
      write $+(-dl,$did(3).sel) repondeur\repondeur-antipv\repondeur.txt
      did -r $dname 1
      reacturep
      repapercu $did(1)
    }
    if ($did == 4) {
      write $+(-l,$did(3).sel) repondeur\repondeur-antipv\repondeur.txt $did(1)
      reacturep
      repapercu $did(1)
    }
    if ($did == 3) {
      did -ra repondeur 1 $did(3).seltext
      repapercu $did(1)
      set %rep-repondeur $did(1)
    }
    if ($did == 12) {
      if ($did(12).state == 1) { set %antipv-active ON }
      else { unset %antipv-active }
    }
  }
}

alias reacturep {
  did -r repondeur 3
  var %rp = 1
  while (%rp <= $lines(repondeur\repondeur-antipv\repondeur.txt)) {
    did -a repondeur 3 $read(repondeur\repondeur-antipv\repondeur.txt, %rp)
    inc %rp
  }
}

alias repapercu {
  .remove repondeur\apercu\repondeur.jpg
  window -ph +b @repapercu 50 50 588 22
  if ($1- != $null) { drawtext -p @repapercu 1 "Comic Sans MS" 12 10 1 $1- }
  drawsave @repapercu repondeur\apercu\repondeur.jpg
  did -g repondeur 2 repondeur\apercu\repondeur.jpg
  close -@ @repapercu
}

on 1: OPEN:?: {  
  echo -s 4----------» 7 $nick 4 veut te parlé en privé ... 3«---------- 
  if (%rep-active == on) {
    msg $nick $replace(%rep-repondeur,<nick>,$nick,<me>,$me,<opnick>,$opnick,<vnick>,$vnick,<knick>,$knick,<banmask>,$banmask,<chan>,$chan,<date>,$date,<time>,$time) 
  }
  if (%antipv-active == on) { 
    echo -s 4----------» 7 Le PV De 4 $nick ... 3est fermer à $time
    close -m $nick
  }
}

Conclusion :


voila le code tout seul ne suffit pas faut télécharger le dossier zip
dès que j'aurais 5 minutes je suivrai les conseils de coolman002.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
385
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
3 juillet 2007

OK j'vais suivre tes conseils, c parti pour voir les picwin
@+
Messages postés
290
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
29 février 2008

En tout cas je suis content que tu l es posté suite a mon autre commentaire, au moins tu as de l" humour :)
pour repondre a ton dernier com, l historique de mes sources montre ma progression, et oui je n oublie pas mes debuts et tu pourras voir que cest facile de faire preuve d originalité, mais malheuresement la communauté se fait vieille et rare sont les nouvelles choses, puisque necessitant un certain apprentissage de la chose. Ce que l' on critique ce n est point le niveau de la source, mais le non respect des regles et le kikitoutdur@firstsourcegimp. Pour ta prochaine source, apprends les picwins et tu verras c est facile de faire un truc original sans passer 2 mois a coder :)

ps : allez hop je vais poster mon !op !deop avec mask ! xD
Messages postés
385
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
3 juillet 2007

ah j'ai eu peur, c pas le même code, d'ailleur on va pas comparer mon code un chouilla + optimisé que la plupart et plus configurable
et faire des trucs originaux sans être fort c'est pas ce que je constate au quotidien...

Et puis on s'en fou j'met un pti truc marrant, et on me saoule, ya rien de constructif pour la plupart, entre ceux qu'on rien du tout comme idée et qui critique et ceux qui se souviennent plus comment ils ont galéré à leur début, et j'parle pas de ceux qu'on surement que ça dans la vie...

si il n'y avait que des poste interessant, la rubrique IRC ne fonctionnerait même pas, il y aurait aucun commentaire à mettre puisque presque jamais de sources interessante et bien codée. et je parle pas de l'aide où on voit 100 fois les même questions de gens qu'on pas osé faire /help Mirc

la plupart me font rire ici. alors laissez moi tranquille et faite vos preuve pour certains et oubliez pas vos début pour les autres.
Messages postés
2466
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
1 août 2010
1
http://www.ircfr.com/recherche.aspx?r=Repondeur&tr=tout

voila l'adresse :')

Tu peux faire des truc bien sans etre fort , suffit d'etre un minimum original
Messages postés
385
Date d'inscription
samedi 7 août 2004
Statut
Membre
Dernière intervention
3 juillet 2007

j'espère au moins que certains ont compris que c'était plutôt ironique vu la source précédentes
parce que de tout façon ce site est réservé aux super champion :
soit c'est débutant donc vu et revu, quand c'est pas mal optimisé (plutot normal pour quelqu'un n'ayant pas un fort niveau)
soit c'est un code d'expert et là on peut peut-être toucher quelque chose de super original ce qui confort ma première idée.
maintenant ceux qui ont 3 sources et 3 lignes de codes dans leurs sources pour critiquer les miennes (devraient plutot aller faire leurs devoirs les semaines d'écoles)
et ceux qui pensent que je pique ailleurs me donne tout de suite l'adresse parce que je demande à voir.
@++
Afficher les 12 commentaires

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.