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