alias picco { if ($dialog(picco) == $null) dialog -ma picco picco }

on *:start:{ if (%peak.users == $null) set %peak.users 0 }

dialog picco {
  title "Picco"
  size -1 -1 400 240
  text "Canale:", 1, 20 33 50 20
  edit %peak.chan, 2, 80 30 100 20, autohs
  check "Messaggio di nuovo Picco:", 3, 20 80 150 20
  edit %peak.mexpeak, 4, 20 100 360 20, autohs
  check "Risposta al comando !Picco:", 5, 20 140 160 20
  edit %peak.mexpicco, 6, 20 160 360 20, autohs
  button "APPLICA", 7, 150 190 100 25, ok
  button "CHAN", 8, 215 80 40 20
  button "PICCO", 9, 255 80 40 20
  button "DATA", 10, 295 80 40 20
  button "ORA", 11, 335 80 40 20
  button "CHAN", 12, 215 140 40 20
  button "PICCO", 13, 255 140 40 20
  button "DATA", 14, 295 140 40 20
  button "ORA", 15, 335 140 40 20
  button "TEST", 16, 210 30 50 20
  button "RESET", 17, 260 30 50 20
  button "STATISTICA", 19, 310 30 70 20
  box "Impostazioni Picco", 20, 10 10 380 220
}

on *:dialog:picco:init:0:{
  if (%peak.peak == on) && (%peak.mexpeak != $null) did -c picco 3
  if (%peak.picco == on) && (%peak.mexpicco != $null) did -c picco 5
  if (%peak.mexpeak == $null) set %peak.peak off
  if (%peak.mexpicco == $null) set %peak.picco off
}

on *:dialog:picco:sclick:3:{ if ($did(picco,3).state == 1) set %peak.peak on
  else if ($did(picco,3).state == 0) set %peak.peak off
if ($did(picco,4) == $null) { did -u picco 3 | set %peak.peak off } }

on *:dialog:picco:sclick:5:{ if ($did(picco,5).state == 1) set %peak.picco on
  else if ($did(picco,5).state == 0) set %peak.picco off
if ($did(picco,6) == $null) { did -u picco 5 | set %peak.picco off } }

on *:dialog:picco:sclick:7:{ set %peak.chan $did(picco,2)
  set %peak.mexpeak $did(picco,4)
  set %peak.mexpicco $did(picco,6)
  if (%peak.mexpeak == $null) set %peak.peak off
  if (%peak.mexpicco == $null) set %peak.picco off
}

on *:dialog:picco:edit:4:{ if ($did(picco,4) != $null) && ($did(picco,3).state == 0) { did -c picco 3 | set %peak.peak on }
  elseif ($did(picco,4) == $null) { did -u picco 3 | set %peak.peak off }
}

on *:dialog:picco:edit:6:{ if ($did(picco,6) != $null) && ($did(picco,5).state == 0) { did -c picco 5 | set %peak.picco on }
  elseif ($did(picco,6) == $null) { did -u picco 5 | set %peak.picco off }
}

on *:dialog:picco:sclick:16:{ if (%peak.mexpeak != $null) echo -s MESSAGGIO DI PICCO: %peak.mexpeak 
if (%peak.mexpicco != $null) echo -s MESSAGGIO SU !PICCO %peak.mexpicco }

on *:dialog:picco:sclick:17:{ var %peak.reset = $input(DESIDERI DAVVERO RESETTARE I RECORD?,yv,PEAK KOUNTER RESET)
  if (%peak.reset == $yes) { set %peak.users 0
    unset %peak.data
unset %peak.ora }  }


on *:join:#:{ if (%peak.chan != $null) && ($chan == %peak.chan) && ($nick(%peak.chan,0) > %peak.users) {
    set %peak.users $nick(%peak.chan,0)
    set %peak.data $date(dd/mm/yyyy)
    set %peak.ora $time(HH:nn:ss)
    if (%peak.peak == on) && (%peak.mexpeak != $null) msg %peak.chan —]1,9Picco[— [ [ %peak.mexpeak ] ]
  }
}


on *:dialog:picco:sclick:8:{ did -jra picco 4 $did(picco,4) $chr(32) $+ % $+ peak.chan $+ $chr(32) | did -c picco 3 | set %peak.peak on }

on *:dialog:picco:sclick:9:{ did -jra picco 4 $did(picco,4) $chr(32) $+ % $+ peak.users $+ $chr(32) | did -c picco 3 | set %peak.peak on }

on *:dialog:picco:sclick:10:{ did -jra picco 4 $did(picco,4) $chr(32) $+ % $+ peak.data $+ $chr(32) | did -c picco 3 | set %peak.peak on }

on *:dialog:picco:sclick:11:{ did -jra picco 4 $did(picco,4) $chr(32) $+ % $+ peak.ora $+ $chr(32) | did -c picco 3 | set %peak.peak on }

on *:dialog:picco:sclick:12:{ did -jra picco 6 $did(picco,6) $chr(32) $+ % $+ peak.chan $+ $chr(32) | did -c picco 5 | set %peak.picco on }

on *:dialog:picco:sclick:13:{ did -jra picco 6 $did(picco,6) $chr(32) $+ % $+ peak.users $+ $chr(32) | did -c picco 5 | set %peak.picco on }

on *:dialog:picco:sclick:14:{ did -jra picco 6 $did(picco,6) $chr(32) $+ % $+ peak.data $+ $chr(32) | did -c picco 5 | set %peak.picco on }

on *:dialog:picco:sclick:15:{ did -jra picco 6 $did(picco,6) $chr(32) $+ % $+ peak.ora $+ $chr(32) | did -c picco 5 | set %peak.picco on }

on *:dialog:picco:sclick:19:{ if (%peak.mexpicco != $null) echo -s [ [ %peak.mexpicco ] ] }