REPONDEUR TOUT SIMPLE..... , Source N°19386

Information sur la source

Catégorie :AddOns Niveau : Débutant Date de création : 08/01/2004 Date de mise à jour : 29/01/2004 19:55:20 Vu : 1 774

Auteur : [thomas95

Ecrire un message privé

Note :

5,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (12)

Ajouter un commentaire et/ou une note

Description

c ma premiere source donc voila
c'est un simple repondeur
G pris l'optimisation en ini par ChanG-Fu

Source

alias rep { dialog -m rep rep }
alias -l hcolor { if ($1 = e) { return $replace($2-,,~,,s,,§) } | if ($1 = d) { return $replace($2-,~,,s,,§,) } }
on ^1:open:?:{ if ($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,rep) = on) { msg $nick $hcolor(d,$replace($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg),<nick>,$nick)) } }
dialog rep {
title "Repondeur By [thomas95"
size -1 -1 150 60
option dbu
text "Repondeur By Thomas",1,80 48 85 8,disable
edit "",7,9 8 132 10
box "Tapez Votre Msg ci-dessou",5,5 0 141 23
edit "",3, 60 27 86 10,disable
check "Activ/Desactiv",6,5 27 50 10
button "Enregistrer",2,5 45 54 12,flat,ok
}
on *:dialog:rep:init:*:{
if ($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,rep) = on) { did -c rep 6 | did -a rep 3 Répondeur: ACTIVÉ }
else { did -a rep 3 Répondeur: DESACTIVÉ }
did -a rep 7 $hcolor(d,$readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg))
if (!$readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg)) { did -a rep 7 12Salut 4<nick>12. Attend j'arrive. }
}
on *:dialog:rep:sclick:2:{
if ($did(7)) { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur repmsg $hcolor(e,$did(rep,7)) }
else { remini $shortfn($scriptdir) $+ repondeur.ini repondeur repmsg }
}
on *:dialog:rep:sclick:6: {
if ($did(6).state = 1) { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur rep on | did -ra rep 3 Repondeur: ACTIVÉ }
else { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur rep off | did -ra rep 3 Repondeur: DESACTIVÉ }
}
menu * {
-
Mon Répondeur:/rep
-
}
on 1:load:{ echo -a 15Addon bien loadé | echo -a 15 Pour le lancer tape /rep | .timer 1 1 rep }

alias rep { dialog -m rep rep }
alias -l hcolor { if ($1 = e) { return $replace($2-,,~,,s,,§) } | if ($1 = d) { return $replace($2-,~,,s,,§,) } }
on ^1:open:?:{ if ($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,rep) = on) { msg $nick $hcolor(d,$replace($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg),<nick>,$nick)) } } 
dialog rep {
  title "Repondeur By [thomas95"
  size -1 -1 150 60
  option dbu
  text "Repondeur By Thomas",1,80 48 85 8,disable
  edit "",7,9 8 132 10
  box "Tapez Votre Msg ci-dessou",5,5 0 141 23
  edit "",3, 60 27 86 10,disable
  check "Activ/Desactiv",6,5 27 50 10
  button "Enregistrer",2,5 45 54 12,flat,ok
}
on *:dialog:rep:init:*:{
  if ($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,rep) = on) { did -c rep 6 | did -a rep 3 Répondeur: ACTIVÉ }
  else { did -a rep 3 Répondeur: DESACTIVÉ }
  did -a rep 7 $hcolor(d,$readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg))
  if (!$readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg)) { did -a rep 7 12Salut 4<nick>12. Attend j'arrive. }
}
on *:dialog:rep:sclick:2:{ 
  if ($did(7)) { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur repmsg $hcolor(e,$did(rep,7)) }
  else { remini $shortfn($scriptdir) $+ repondeur.ini repondeur repmsg }
}
on *:dialog:rep:sclick:6: { 
  if ($did(6).state = 1) { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur rep on | did -ra rep 3 Repondeur: ACTIVÉ } 
  else { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur rep off | did -ra rep 3 Repondeur: DESACTIVÉ  } 
}
menu * { 
  -
  Mon Répondeur:/rep 
  -
}
on 1:load:{ echo -a 15Addon bien loadé | echo -a 15 Pour le lancer tape /rep |  .timer 1 1 rep }

Conclusion

voila je tien a remercier remi34 qui ma un peu aidé enfin voila ....

Sources de la même categorie

Toutes les sources de la catégorie AddOns

Commentaires

Commentaire de ReMi34 le 09/01/2004 06:40:39

En effet, c'est beaucoup mieux que la première fois. On se comprend n'est-ce pas ?
Je ne noterai pas cette source.
Commentaire de t0nt0n le 09/01/2004 07:42:57

"/rep" unknow command :)
alias rep {
/dialog -m rep rep
}
:)
Sinon ben... un peu trop court, je te conseil de faire un truc du genre, le mec te laisse un message en PV, ce message est enregistré dans une @Window et le PV est fermé après X temps grâce au timer, c'est super simple. Si tu as besoin demande moi: andre_chambry@hotmail.com.
C'est un début, je ne noterai pas :).
Commentaire de Kolibot le 09/01/2004 08:03:50

Pour une première source, c'est pas mal, tu sais magner les dialogs! Apprends maintenant à les structurer. 5/10

Astuce : menu *
Commentaire de [thomas95 le 09/01/2004 08:43:57

Kolibot je vais pas te cacher que j'ai utilisé Dialog studio...
Mais maintenant je pense avoirs compris les dialog !
Commentaire de vesparo le 09/01/2004 18:58:20

rien d'extra 6/10
Commentaire de t0nt0n le 09/01/2004 23:38:30

thomas95 te cache pas mdr, presque tout le monde utilise dialog studio, enfin pour ma part, oui...
Tu n'as pas compri nos astuces?
menu * {
????
}
"????" cherche à remplacer, pour une utilisation plus facile, @+.
Commentaire de Kerrigan le 10/01/2004 01:41:39

c'est pas eceptionel. certe le dialogue est bon mais je prefere un bon noyeau avec une interface moyenne plutot que le contraire.

Essai de develloper ça en mettant plus d'option, et vire deux trois variable avec des .ini c'est beaucoup plus interessant.

Ca merite vraiment une amelioration
Commentaire de ChAnG-Fu le 10/01/2004 12:49:47

Optimisation en ini:

alias rep { dialog -m rep rep }
alias -l hcolor { if ($1 = e) { return $replace($2-,,~,,s,,§) } | if ($1 = d) { return $replace($2-,~,,s,,§,) } }
on ^1:open:?:{ if ($iget(repondeur,rep) = on) { msg $nick $hcolor(d,$replace($iget(repondeur,repmsg),<nick>,$nick)) } }
dialog rep {
  title "Repondeur By [thomas95"
  size -1 -1 150 60
  option dbu
  text "Repondeur By Thomas",1,80 48 85 8,disable
  edit "",7,9 8 132 10
  box "Tapez Votre Msg ci-dessou",5,5 0 141 23
  edit "",3, 60 27 86 10,disable
  check "Activ/Desactiv",6,5 27 50 10
  button "Enregistrer",2,5 45 54 12,flat,ok
}
on *:dialog:rep:init:*:{
  if ($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,rep) = on) { did -c rep 6 | did -a rep 3 Répondeur: ACTIVÉ }
  else { did -a rep 3 Répondeur: DESACTIVÉ }
  did -a rep 7 $hcolor(d,$readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg))
  if (!$readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg)) { did -a rep 7 12Salut 4<nick>12. Attend j'arrive. }
}
on *:dialog:rep:sclick:2:{
  if ($did(7)) { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur repmsg $hcolor(e,$did(rep,7)) }
  else { remini $shortfn($scriptdir) $+ repondeur.ini repondeur repmsg }
}
on *:dialog:rep:sclick:6: {
  if ($did(6).state = 1) { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur rep on | did -ra rep 3 Repondeur: ACTIVÉ }
  else { writeini $shortfn($scriptdir) $+ repondeur.ini repondeur rep off | did -ra rep 3 Repondeur: DESACTIVÉ  }
}
menu * {
  -
  Mon Répondeur:/rep
  -
}
on 1:load:{ echo -a 15Addon bien loadé | echo -a 15 Pour le lancer tape /rep |  .timer 1 1 rep }

7/10.
Commentaire de ChAnG-Fu le 10/01/2004 12:57:54

trompé pour le on open voila le bon :)

on ^1:open:?:{ if ($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,rep) = on) { msg $nick $hcolor(d,$replace($readini($shortfn($scriptdir) $+ repondeur.ini,repondeur,repmsg),<nick>,$nick)) } }
Commentaire de Kolibot le 10/01/2004 13:03:14

(lol) :D
Commentaire de vesparo le 10/01/2004 19:44:29

t0nt0n personellement je fait mes dialogs a la main et je trouve ca bcp mieux :p
Commentaire de [thomas95 le 10/01/2004 23:10:53

ok merci de vos commentaire .....