Répondeur simple

[coders-irc_Bot]

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
}