Make Selected Event Blinking

/*
------------------------------------------------------------------------------------------
Addons: mIRC Event Blinks 
Author: Lestat 
----------------------------------------------------------------
[Description]
----------------------------------------------------------------
Make Your Selected Event Colourful.. :D
This Addons Blinks With Same Colours
Support mIRC 6.++
maybe u can create some blinking themes with text
hope this addons usefull 

-------------------------------------------------------------------------------------------
*/

menu channel,status,query {
  -
  Blinks:bse
  -
}
alias bse { if (!$dialog(bse)) { $iif($input(Themes?,y),unset %themes,set %themes nothemes) | dialog -m bse bse } }
dialog bse {
  title "Random Color Blinks"
  size -1 -1 95 183
  option dbu %themes
  box "Selected Event To Blinks", 1, 5 8 84 123
  check "action", 2, 15 17 30 10, flat
  check "ctcp", 3, 15 27 30 10, flat
  check "info", 4, 15 37 30 10, flat
  check "info2", 5, 15 47 30 10, flat
  check "invite", 6, 15 57 30 10, flat
  check "join", 7, 15 67 30 10, flat
  check "kick", 8, 15 77 30 10, flat
  check "mode", 9, 15 87 30 10, flat
  check "nick", 10, 15 97 30 10, flat
  check "normal", 11, 15 107 30 10, flat
  check "notice", 12, 15 117 30 10, flat
  check "notify", 13, 47 17 30 10, flat
  check "other", 14, 47 27 30 10, flat
  check "own", 15, 47 37 30 10, flat
  check "part", 16, 47 47 30 10, flat
  check "quit", 17, 47 57 30 10, flat
  check "topic", 18, 47 67 30 10, flat
  check "whois", 19, 47 77 30 10, flat
  check "editbox", 20, 47 87 30 10, flat
  check "editbox text", 21, 47 97 40 10, flat
  check "listbox", 22, 47 107 30 10, flat
  check "listbox text", 23, 47 117 40 10, flat
  button "Default", 24, 7 142 37 9, flat
  button "Close", 25, 47 142 37 9, flat ok
  edit "Blink Select Event", 26, 8 152 75 10, read center
  edit "Created By Lestat", 27, 8 163 75 10, read center
  button "Delay", 28, 28 132 37 9, flat
  text "Team EyiezINC Scripter`s", 29, 8 174 75 10, read center,disable

}
On 1:dialog:bse:init:*: { inc %fopen | if (%fopen = 1) {  check.cust }  | check.available }
On 1:dialog:bse:sclick:*: {
  if ($did > 1) && ($did <= 23) {
    if ($did($dname,$did).state) {  .set %props $addtok(%props,$did($dname,$did).text,44)  } 
    else { .set %props $remtok(%props,$did($dname,$did).text,44) | color $did($dname,$did).text $gettok(%standart,$calc($did -1),32) | if ($did($dname,$did).text = editbox) { .color inactive %standarts } }
    .timerblinks -m 0 %delays checkblink
  }
  if ($did = 24) { .timerblinks off | restorecus }
  if ($did = 28) { .set %delays $$?"Delay In Miliseconds" | .timerblinks -m 0 %delays checkblink }
}
alias restorecus {
  var %t = 2 | while (%t <= 23) { color $did(bse,%t).text $gettok(%standart,$calc(%t -1),32) | inc %t  }
  .color inactive %standarts
  unset %standart %fopen %props %rand %standarts
  .dialog -x bse bse
}
alias check.cust { $iif(!%delays,set %delays 100) | var %x = 2 | while (%x <= 23) { .set %standart %standart $color($did(bse,%x).text) | inc %x  } | set %standarts $color(inactive) }
alias check.available { var %t = 2 | while (%t <= 23) { if ($istok(%props,$did(bse,%t).text,44)) { .did -c $dname %t } | else { did -u $dname %t } | inc %t  } }
alias checkblink { if (!%props) { .timerblinks off | halt } | .set %rand $r(0,15) | var %ct = 1 | while (%ct <= $numtok(%props,44)) { $colors($gettok(%props,%ct,44),%rand) | inc %ct  } }
alias colors { if ($istok(%props,$1,44)) { $iif($1 = editbox,xbox $2,color $1 $2) } }
alias xbox { color editbox $1 | color inactive $1) }