alias lock { 
  if $1 == caps { .comopen Caps WScript.Shell | !.echo -q $com(Caps, SendKeys, 3, bstr, {CAPSLOCK}) | .comclose Caps }
  elseif $1 == num { .comopen Num WScript.Shell | !.echo -q $com(Num, SendKeys, 3, bstr, {NumLOCK}) | .comclose Num }
  elseif $1 == scroll { .comopen Scroll WScript.Shell | !.echo -q $com(Scroll, SendKeys, 3, bstr, {ScrollLOCK}) | .comclose Scroll } 
}

alias sayıtuş { if $1 == 1 { return caps } | if $1 == 2 { return num } | if $1 == 3 { return scroll } }

alias ışık { :basla 
  var %x $calc(%x + 1) 
  lock $sayıtuş(%x)
  if %x == 4 { goto end }
  else { goto basla } 
  if %x == $null { goto :basla } 
  :end 
}

alias ledackapa { .timerısık1 -h 200 150 ışık }

alias ledler { if $timer(ısık1) { .timerısık1 off } | .timerledci -h 200 150 dalgala }

alias dalgala { 
  var %rander $rand(1,3) 
  if %rander == $null { lock num | lock caps | halt }
  while %rander { lock $sayıtuş(%rander) | dec %rander }
}

alias led { ledackapa | .timerleds -h 1 $calc(200 * 150) ledler | if $1 == kapa { .timerısık1 off | .timerleds off | .timerledci off } }