IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Geçici Fkey tuşları [ Can Sıkıntısı ]

Kullanımı gayet basit.

Örneğin Oper 'sınız. Birisi Size whois çekti. Scriptiniz ekrana uyarı verdi.

--
Nickolas size whos çekti. Whois Profilini Görmek için $_queue.fkey(-u900, whois $nick) tuşuna basın
--

Ekran çıktısı:
Nickolas size whos çekti. Whois Profilini Görmek için F7 Tuşuna basın

Şeklinde olacaktır. Script Zamanlama Sıralamasına göre kendi ayar yapıyor. Tüm Fkey Tuşları dolu ise F7 'ye yükleniyor :)

Kullanımı:

@parametre 1 (isteğe göre) Saniye cinsinden FKEY süresi
@parametre 2 Kendi aliaslarınız ya da hazır komutlar dizisi diyelim

@dönüş(return) O an ki Aktif Fkey 'e Döner.
$_queue.fkey([-u900,] Script Alias)

Kod:

 

;Nickolas

;10/07/2007 15:28:59

 

alias temp_alias {

  var %expire, %cmd = $1, %code

  if ($regex(expiretime, $2, /^-u(\d+)$/)) {

    %expire = $iif($regml(expiretime, 1) < 0, 1, $regml(expiretime, 1))

    %code = $3-

  }

  else {

    %expire = $null

    %code = $2-

  }

  .alias %cmd %code

  if (%expire != $null) {

    .timer. $+ %cmd $+ _ $+ $cid 0 %expire .alias %cmd

  }

}

alias _queue.fkey {

  var %fkeys = f7,f8,sf7,sf8,cf7,cf8

  var %read_keys = F7,F8,Shift-F7,Shift-F8,CTRL-F7,CTRL-F8

  var %i = 1, %gotalias = $false, %cmd

  while (%i <= $numtok(%fkeys, 44)) {

    %cmd = $gettok(%fkeys, %i, 44)

    if (!$timer(. $+ %cmd $+ _ $+ $cid)) {

      temp_alias %cmd $1-

      %gotalias = $true

      break

    }

    inc %i

  }

  if (%gotalias == $false) {

    temp_alias f7 $1-

    %cmd = f7

  }

  return $gettok(%read_keys, $findtok(%fkeys, %cmd, 44), 44)

}