Project

General

Profile

[Script] Blinking scroll lock led on highlight v0.5 » Blinking scroll lock led on highlight v0.1.ini

Mr. BS, 11/20/2014 02:30 AM

 
1
; http://dev.adiirc.com/boards/5/topics/217
2
; Blinking scroll lock led on highlight
3
; v0.1 by pereba
4

    
5
on *:TEXT:*:#:{
6
  if (!$appactive) { ;also help to avoid unnecessary readini call
7
    var %i = 0
8
    while (%i <= $ini($adiircini,HighlightItems,0)) {
9
      if ($eval($gettok($readini($adiircini,n,HighlightItems,n $+ %i),1,166),2) isin $1-) {
10
        .timerLED -m 0 500 flashled
11
        halt
12
      }
13
      inc %i
14
    }
15
  }
16
}
17

    
18
;Adi get focus then lets disable the led blinking
19
on 1:ACTIVE:*: .timerLED off
20

    
21
;//.timerLED 0 1 flashled
22

    
23
alias flashled {
24
  var %name led $+ $ticks
25
  .comopen %name WScript.Shell
26
  .comclose %name $com(%name,SendKeys,3,bstr,{ScrollLock})
27
}
(1-1/5)