IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Klavyenize biraz renk katın. (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/445556-klavyenize-biraz-renk-katin.html)

Klavyenize biraz renk katın.

Uzun süredir kod yazmıyordum bazı sebeplerden kaynaklı. mIRC Scripting Sorunları bölümündede konu yok can sıkıntısından kaynaklı böyle bir kod yazdım kodun işlevi rasgele olarak CapsLock NumLock ve Scroll Lock tuşlarına basmak eğer klavyenizde bu tuşların açılıp kapandığı ledler ile görünüyorsa sizde canınız sıkıldı zaman /LED yazarak bir kaç saniyeliğinede olsa klavyenizi izleyebilirsiniz.

Kod:

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 } }

/LED komutuyla açıp /LED Kapa komutuyla kapatabilirsiniz.

Not: Kod çalışırken yazı yazmazsanız sizin açınızdan iyi olur. ;s6

İyi eğlenceler...