on *:start:{
  .remove antipvoui.txt
  .write antipvoui.txt Acide-acetique
  .write antipvoui.txt Apocalypse
  .write antipvoui.txt Cleopatre
  .write antipvoui.txt Nemesis
  .write antipvoui.txt Ticket-Gagnant
  .write antipvoui.txt *!*@Test.chat-land.org
  .write antipvoui.txt *!*@Helper.chat-land.org
  .write antipvoui.txt *!*@animation.chat-land.org
  .write antipvoui.txt *!*@Animlive.chat-land.org
  .write antipvoui.txt *!*@OpZone.chat-land.org
  .write antipvoui.txt *!*@AdminZone.chat-land.org
  .write antipvoui.txt *!*@ChanOp.chat-land.org
  .write antipvoui.txt *!*@CoChefZone.chat-land.org
  .write antipvoui.txt *!*@ChefZone.chat-land.org
  .write antipvoui.txt *!*@ChefAdmin.chat-land.org
  .write antipvoui.txt *!*@NetAdmin.chat-land.org
  .write antipvoui.txt *!*@TechAdmin.chat-land.org
  .write antipvoui.txt *!*@Local.chat-land.org
  .write antipvoui.txt *!*@BotAdmin.chat-land.org
}

menu menubar {
  -
  &Configuration
  .Anti-PV:antipv
}

alias antipv dialog -m antipv antipv
dialog antipv {
  title "Systeme d'Anti-PV"
  size -1 -1 166 120
  option dbu
  box "Absence", 1, 4 4 158 65
  text "Action lors de l'activation de l'anti pv ( 1 choix )", 8, 11 25 143 8
  check "Envoyer un message", 9, 44 35 74 10
  check "Ne rien envoyer", 10, 44 46 68 10
  button "Activer", 14, 36 75 37 12
  button "Desactiver", 15, 94 75 37 12
  button "Valider", 16, 65 100 37 12, ok cancel
}
on 1:dialog:antipv:sclick:09:{ set %antipv2message on | set %antipv2rien off | set %antipv2oui on }
on 1:dialog:antipv:sclick:10:{ set %antipv2rien on | set %antipv2message off | set %antipv2oui on }
on 1:dialog:antipv:init:0:{
  if ( %antipv2message == on ) && ( %antipv2rien == off ) && ( %antipv2oui == on ) { did -c antipv2 9 }
  if ( %antipv2rien == on ) && ( %antipv2message == off ) && ( %antipv2oui == on ) { did -c antipv2 10 }
}
on 1:dialog:antipv:sclick:14:{ set %antipv2 on | echo -a [4Anti-PV1] Actif }
on 1:dialog:antipv:sclick:15:{ set %antipv2 off | echo -a [4Anti-PV1] Desactiver }
on 1:open:?:{
  if ( %antipv2 == on ) {
    if ($window(@antipv) == $null) { window -k0zne @antipv  }
    if ( %antipv2message == on ) && ( %antipv2oui == on ) && !$read(antipvoui.txt,w,$address($nick,2)*) { msg $nick Désolé(e) mais mes privés sont bloqués, si tu veux me parler viens me voir en salon. | .timer 1 4 close -m $nick | aline -ph 12 @antipv - $+ $time $+ - Message repondeur transmis a $nick | aline -ph 12 @antipv - $+ $time $+ - $nick $hget(hl,%x) :  $1- }
    if ( %antipv2rien == on ) && ( %antipv2oui == on ) && !$read(antipvoui.txt,w,$address($nick,2)*) { .timer 1 4 close -m $nick | aline -ph 12 @antipv - $+ $time $+ - $nick $hget(hl,%x) :  $1- }
  }
}