Répondeur avec alerte type msn ki marche sans variable

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 669 fois - Téléchargée 26 fois

Contenu du snippet

apuyer f5 pour ouvrir le menu de configuration
metter sa dasn vo remote

Source / Exemple :


;)
On *:open:*:{
  if $readini rep.ini rep MSN == on /tst
  if $readini rep.ini rep MSN == on aline -p @pvmsg $chr(160) $1-
  if $readini rep.ini rep status == on {
    if $readini rep.ini rep lign1. == on /msg $nick $read -l1 rep.ini
    if $readini rep.ini rep lign2. == on /msg $nick $read -l2 rep.ini
    if $readini rep.ini rep lign3. == on /msg $nick $read -l3 rep.ini
    if $readini rep.ini rep lign4. == on /msg $nick $read -l4 rep.ini
    if $readini rep.ini rep lign5. == on /msg $nick $read -l5 rep.ini
    /statpv
  }
}
alias tst {
  /beep 1 1
  /window -hamodk +f @pvmsg 2 100 256 100
  /.timer 1 8 /window -c @pvmsg
  aline -p @pvmsg 4 $+ $left($nick,1) $+ 14 $+ $right($nick,$calc($len($nick)-1)) $+ 14 a dit :
}
menu @pvmsg {
  dclick /window -c @pvmsg
  Fermer:/window -c @pvmsg
  Ignorer:/ignore $nick 1
  Fermer le PV:/close -m $nick

}
alias f5 rep
alias rep dialog -m rep rep
dialog rep {
  title " Répondeur "
  size -1 -1 450 205
  icon $mircdir\moutmout.ico
  button " Ok ",1, 120 160 215 25, flat, ok
  box " Répondeur Perso Multi-ligne ",2, 10 0 430 200
  text " Répondeur Multi-ligne ?? ",3, 21 18 140 20
  edit $read -l1 rep.ini,5, 35 40 400 20,autohs
  edit $read -l2 rep.ini,6, 35 60 400 20,autohs
  edit $read -l3 rep.ini,7, 35 80 400 20,autohs
  edit $read -l4 rep.ini,8, 35 100 400 20,autohs
  edit $read -l5 rep.ini,9, 35 120 400 20,autohs
  check "",10,20 40 15 20
  check "",11,20 60 15 20
  check "",12,20 80 15 20
  check "",13,20 100 15 20
  check "",14,20 120 15 20
  check "Oui",15,160 16 40 20
  text " Alerte MSN ?? ",16, 280 14 140 20
  check "Oui",17,370 12 40 20
  box "",18, 270 0 150 35
}
on *:dialog:rep:init:0:{
  if $readini rep.ini rep lign1. == on did -c rep 10 | else did -b rep 5
  if $readini rep.ini rep lign1. == on did -c rep 10 | else did -b rep 5
  if $readini rep.ini rep lign2. == on did -c rep 11 | else did -b rep 6
  if $readini rep.ini rep lign3. == on did -c rep 12 | else did -b rep 7
  if $readini rep.ini rep lign4. == on did -c rep 13 | else did -b rep 8
  if $readini rep.ini rep lign5. == on did -c rep 14 | else did -b rep 9
  if $readini rep.ini rep status == on did -c rep 15
  if $readini rep.ini rep MSN == on did -c rep 17
}
on *:dialog:rep:sclick:*:{
  if ( $did == 1 ) { 
    write -l1 rep.ini $did(rep,5)
    write -l2 rep.ini $did(rep,6)
    write -l3 rep.ini $did(rep,7)
    write -l4 rep.ini $did(rep,8)
    write -l5 rep.ini $did(rep,9)
    if ($did(15).state == 1) { /writeini rep.ini rep status on } | if ($did(15).state == 0) { /writeini rep.ini rep status off }
    if ($did(10).state == 1) { /writeini rep.ini rep lign1. on } | if ($did(10).state == 0) { /writeini rep.ini rep lign1. off }
    if ($did(11).state == 1) { /writeini rep.ini rep lign2. on } | if ($did(11).state == 0) { /writeini rep.ini rep lign2. off }
    if ($did(12).state == 1) { /writeini rep.ini rep lign3. on } | if ($did(12).state == 0) { /writeini rep.ini rep lign3. off }
    if ($did(13).state == 1) { /writeini rep.ini rep lign4. on } | if ($did(13).state == 0) { /writeini rep.ini rep lign4. off }
    if ($did(14).state == 1) { /writeini rep.ini rep lign5. on } | if ($did(14).state == 0) { /writeini rep.ini rep lign5. off }
    if ($did(17).state == 1) { /writeini rep.ini rep MSN on } | if ($did(17).state == 0) { /writeini rep.ini rep MSN off }
  }
  if $did == 10 {
    if $did(10).state == 0 did -b rep 5
    if $did(10).state == 1 did -e rep 5
  }
  if $did == 11 {
    if $did(11).state == 0 did -b rep 6
    if $did(11).state == 1 did -e rep 6
  }
  if $did == 12 {
    if $did(12).state == 0 did -b rep 7
    if $did(12).state == 1 did -e rep 7
  }
  if $did == 13 {
    if $did(13).state == 0 did -b rep 8
    if $did(13).state == 1 did -e rep 8
  }
  if $did == 14 {
    if $did(14).state == 0 did -b rep 9
    if $did(14).state == 1 did -e rep 9
  }
}

Conclusion :


je sui tré fiere de ce script
je remerci les personne ki mon aider a le faire
il se reconnetreron
(vous pouvez le noter svp et laisser des commentaire)

A voir également

Ajouter un commentaire

Commentaires

Amlette
Messages postés
8
Date d'inscription
dimanche 18 juillet 2010
Statut
Membre
Dernière intervention
12 novembre 2015

Et plus de 3 ans après je recois toujours par mail les notifications pour ce post ... Si tu es toujours dans le coin HatMan, tu devrais en profiter pour améliorer ton script. (:
cs_PuMaZ
Messages postés
92
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
13 février 2009

1 mois pour se rendre compte de sa connerie...
fanfanus
Messages postés
27
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
9 mars 2013

a suis con !!!!!!!!!!!
c sur mirc !
fanfanus
Messages postés
27
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
9 mars 2013

heu comment on l'installe ?
cs_HatMan
Messages postés
141
Date d'inscription
dimanche 25 août 2002
Statut
Membre
Dernière intervention
11 février 2004

merci merci
là il doit rester un bug je croi mai il est pa trop gro
comment sa tu ten reservira, moi je veu ke tu le garde tou le temps !!!
mdw, je déconne
si vous zavez dotre truck a me dire comme des amèlioration ---> $me
Afficher les 6 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.