Repondeur pour mirc

Commenter

Contenu du snippet

Petit Reponduer A metre Dans Mirc Simpla Dutilisation Juste A Taper /dialog -m repondeur repondeur

Source / Exemple : 


dialog repondeur {
  title Repondeur 
  size -1 -1 400 250
  button "Enregistrer", 1, 5 210 100 25, flat ok
  button "Lire les Messages",2, 115 210 100 25, flat
  text "L'acceuil en PV sert à donner un message d'attente à un nouveau PV. Le Répondeur Permanent, lui, dis le meme texte à chaque fois que quelqu'un écrit dans un PV", 3, 10 10 380 50, center
  box "Acceuil en PV",4, 5 55 390 60
  box "Répondeur Permanent",5, 5 135 390 60
  radio "Oui", 6, 20 85 40 15, tab 1
  radio "Non", 7, 70 85 40 15, tab 1
  radio "Oui", 8, 20 165 40 15, tab 2
  radio "Non", 9, 70 165 40 15, tab 2
  edit %messacceuil , 10, 120 79 260 25, autohs
  edit %messrepondeur , 11, 120 159 260 25, autohs
  text %lignes , 99, 225 210 170 25, center
}
on *:dialog:repondeur:sclick:*:{
  if ( $did == 1 ) /set %messacceuil $did(repondeur,10) | /set %messrepondeur $did(repondeur,11)
  if ( $did == 2 ) run messages.txt | /set %messages $calc($lines(messages.txt) - 1) | /set %lignes Vous avez %messages message(s) sur votre répondeur. | /did -r repondeur 99 | /did -i repondeur 99 1 %lignes
  if ( $did == 6 ) { 
    /set %acceuil on 
    if %repondeur == on did -c repondeur 8
    else did -c repondeur 9
  }
  if ( $did == 7 ) {
    /set %acceuil off 
    if %repondeur == on did -c repondeur 8
    else did -c repondeur 9
  }
  if ( $did == 8 ) {
    /set %repondeur on 
    if %acceuil == on did -c repondeur 6
    else did -c repondeur 7
  }
  if ( $did == 9 ) {
    /set %repondeur off 
    if %acceuil == on did -c repondeur 6
    else did -c repondeur 7
  }
}
on *:dialog:repondeur:init:0:{
  /set %messages $calc($lines(messages.txt) - 1)
  /set %lignes Vous avez %messages message(s) sur votre répondeur.
  did -i repondeur 99 1 %lignes
  if ( %acceuil == on ) /did -c repondeur 6
  else /did -c repondeur 7
  if ( %repondeur == on ) /did -c repondeur 8
  else /did -c repondeur 9
  did -f repondeur 10
}

on 1:OPEN:?: {  
  /set %repfois 1
  if  %acceuil == on //query $nick %messacceuil
}

on *:text:*:?:{
  if ( %repondeur == on ) && ( $1 != !msg ) {
    if ( %afficheheure == actif ) /set %heure 1(10 $+ $replace($time,:, °) $+ 1)
    if ( %repfois > 1 ) { .msg $nick 4( %logo.script 10Répondeur 4) 2: %messrepondeur  }
    else { /echo $query($nick) %heure 4( %logo.script 10Répondeur 4) 2: Activé | .msg $nick 4( %logo.script 10Répondeur 4) 2: %messrepondeur  | .msg $nick 4( %logo.script 10Répondeur 4) 2: 1( 2Tape !msg ton message pour que je puisse le lire :)) 1) | set %repfois 2 }
  }
  else {
    if ( %repondeur == on ) {
      /write messages.txt $nick t'a dit : $2- à $time
      /inc %messages 1
      /set %lignes Vous avez %messages message(s) sur votre répondeur.
      /set %nickmess $nick
      .msg $nick 4( %logo.script 10Répondeur 4) 2: 02Merci de ce Message 10(02 $+ $2- $+ 10)
    }
  }
}

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