/ScriptServ

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

dialog picco {
  title "PiCCo"
  size -1 -1 397 230
  icon $mircdirImmagini\1.ico, 0
  text "Canale:", 1, 10 33 50 18
  edit %peak.chan, 2, 60 30 133 20, autohs
  check "", 3, 10 80 13 15
  text "Messaggio di nuovo Picco", 100, 30 80 140 20
  edit %peak.mexpeak, 4, 10 101 368 22, autohs
  check "", 5, 10 140 13 15
  text "Risp al comando !Picco", 101, 30 140 140 20
  edit %peak.mexpicco, 6, 10 160 368 22, autohs
  button "Okey", 7, 10 195 370 25, ok
  button "Chan", 8, 215 75 40 20
  button "Picco", 9, 255 75 40 20
  button "Data", 10, 295 75 40 20
  button "Ora", 11, 335 75 40 20
  button "Chan", 12, 215 135 40 20
  button "Picco", 13, 255 135 40 20
  button "Data", 14, 295 135 40 20
  button "Ora", 15, 335 135 40 20
  button "Test", 16, 210 30 50 20
  button "Reset", 17, 260 30 50 20
  button "Stat.", 19, 310 30 65 20
  text "Impostazioni Picco", 20, 135 6 380 18
}

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
  ;mdx  
  mdxbegin
  mdx SetBorderStyle $dname 7 staticedge clientedge
  mdx SetDialog $dname bgcolor $rgb(0,0,0)
  mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,19,20,100,101 16 660 comic sans ms
  mdx SetColor $dname 8,9,10,11,12,13,14,15,16,17,19,1,3,2,4,5,6,20,100,101 background $rgb(0,0,0)
  mdx SetColor $dname 1,2,4,6,20,100,101 textbg $rgb(0,0,0)
  mdx SetColor $dname 1,2,4,6,20,100,101 text $rgb(0,173,255)
  mdx SetColor $dname 7 background $rgb(0,173,255)
}


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 [ [ %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 ] ] }