Mirc Kronometre

Kod:  

;+-----------------------------------------------------+
;|×××××××××××××××  -+[Kronometre]+-   ×××××××××××××××××|
;|                                                     |
;|                                                     |
;|                                                     |
;|×××××××××××××××××   -+[IRCDFORUM]+- X××××××××××××××××|
;+-----------------------------------------------------+
alias chrom_timer {
  set %mime $ticks
  .timerchrom -h 0 1 chrom_count
}
alias chrom_count {
  if ($calc($ticks - %mime) >= 999) { 
    .timerchrom off | inc %mime2 1 | $iif($dialog(chrom), did -ar chrom 1 %mime2) | chrom_timer
  }    
  if (%mime2 == 60) && ($calc($ticks - %mime) > 0) { 
    unset %mime2 
    did -r chrom 4 | inc %mime2 1 | inc %mime3 1 | $iif($dialog(chrom), did -ar chrom 7 %mime3) 
  }
  if (%mime3 == 60) && ($calc($ticks - %mime) > 0) {
    unset %mime* | did -r chrom 1,4,7 | chrom_timer
  }
  else { did -ar chrom 4 $calc($ticks - %mime) }
}

dialog chrom {
  title "Kronometre"
  size -1 -1 144 73
  option dbu
  edit "", 1, 57 26 24 10, disable right
  button "Basla", 2, 28 40 37 12
  button "Dur", 3, 28 40 37 12
  edit "", 4, 85 26 28 10, disable right
  text "Saniye", 5, 57 17 25 8
  text "Mili Saniye", 6, 85 17 30 8
  edit "", 7, 27 26 26 10, disable right
  text "Kayıt", 8, 27 17 25 8
  button "Durdur", 9, 73 40 37 12
  text "", 10, 13 58 121 8
  button "Devam", 11, 73 40 37 12
}

menu channel,status {
  .Kronometre:{
    dialog $iif($dialog(chrom), -v, -m chrom) chrom
  }
}
on *:dialog:chrom:init:*:{
  did -h chrom 3
  did -ar chrom 1,4,7 0 
  did -bh chrom 9,11
}
on *:dialog:chrom:sclick:*:{
  if ($did == 2) { did -r chrom 1,4,10 | did -h chrom 2 | did -v chrom 3,9 | chrom_timer | did -ar chrom 7 0 | did -e chrom 9,11 }
  if ($did == 3) { did -h chrom 3 | did -v chrom 2 | .timerchrom off | unset %mime* | did -ar chrom 10 Geçen zaman: $did(7).text dk $did(1).text Saniye $did(4).text Mili Saniye | did -r chrom 1,4,7 | did -b chrom 9,11  }
  if ($did == 9) { .timerchrom -p | did -h chrom 9 | did -v chrom 11 }
  if ($did == 11) { .timerchrom -r | did -h chrom 11 | did -v chrom 9 }
}
on *:dialog:chrom:close:*:{
  .timerchrom off
  unset %mime*
}