Répondeur simple

Commenter

Contenu du snippet

C'est mon premier dialog, un répondeur classique avec possibilité de bloquer les pv, et d'éditer les messages d'attente de pv, d'acceptation et de refus du pv, à vous de découvrir le reste =)

Source / Exemple : 


alias pv {
  dialog -m pv pv
}
dialog pv {
  title "Demande de pv"
  size -1 -1 160 38
  option dbu
  button "Ouvrir le pv", 1, 1 20 37 12, ok
  button "Fermer le pv", 2, 121 20 37 12, cancel
  text "Quelqu'un souhaite te parler en pv, que veux-tu faire?", 3, 13 6 134 8
  text " «                                               »", 4, 40 22 78 8
}
On *:DialoG:pv:sclick:*: {
  if ($did == 1) { msg %nick.pv %msg.accepted }
  if ($did == 2) { msg %nick.pv %msg.refused | close -m %nick.pv }
}

On *:OpeN:?: { 
  if %pv == ON {
    pv  
    set %nick.pv $nick   
    msg %nick.pv %msg.openned
    unset %nick.pv
  }
  if %pv == $null {
    set %anti.pv.nick $nick
    close -m %anti.pv.nick
    unset %anti.pv.nick
    msg $nick %msg.refused
  }
}

alias menupv {
  dialog -m menupv menupv
}

dialog menupv {
  title "Menu Pv"
  size -1 -1 223 195
  option dbu
  button "Accepter les pv", 1, 18 9 41 12
  button "Refuser les pv", 2, 159 10 41 12
  text "  Refuse ou accepte les pv ", 3, 76 13 68 8
  edit "", 4, 8 111 203 10
  edit "", 5, 10 150 202 10
  text "Message de répondeur accepté", 6, 63 95 97 8, center
  text "Message de répondeur refusé", 7, 63 130 99 8, center
  button "Ok", 8, 18 173 37 12, ok
  button "Cancel", 9, 163 173 37 12, cancel
  edit "", 10, 6 58 204 10
  text "Message de demande de pv", 11, 45 43 130 8, center
}

On *:DialoG:menupv:sclick:*: {
  if ($did == 1) { set %repondeur on | set %pv on }
  if ($did == 2) { set %repondeur off | unset %pv }
}
On *:DialoG:menupv:edit:*: { 
  if ($did == 10) { set %msg.openned $did(10) }
  if ($did == 4) { set %msg.accepted $did(4) }
  if ($did == 5) { set %msg.refused $did(5) }
}
On *:DialoG:menupv:init:0: { 
  .did -c $dname $iif(%repondeur == on,3,4) 
  .did -a $dname 10 %msg.openned
  .did -a $dname 4 %msg.accepted
  .did -a $dname 5 %msg.refused
}

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