Kod : Kodu kopyalamak için üzerine çift tıklayın!
on ^*:hotlink:*:#: {
if ($mouse.key & 1) {
if ($regsubex($1,/[ $+ $prefix $+ <>]/g,) ison #) {
sline # $v1
.enable #___|___
.whois $v1
$(,%__c = #)
return
}
halt
}
}
alias -l _cp return $+($chr(2),$1,$chr(2))
alias -l _tf {
var %m = $chr(32) Dakika,%s = $chr(32) Saniye,%h = $chr(32) Saat
return $replace($1-,mins,%m,min,%m,secs,%s,sec,%s,hrs,%h,hr,%h)
}
alias -l ___|___ {
$(,%3 = 250)
while /____\ {
dec -u %3 1
window @_/ $window(@_/).dx $window(@_/).dy %3 $iif(%3 < 100,$v1,100)
setlayer $calc(%3 -35) @_/
if %3 = 0 { window -c @_/ | $iif($hget(%_w),hfree $v1) | break }
}
}
alias -l sq {
$(,%_w = $1)
$iif($window(@_/),window -c $v1)
window -pdBw0zo +bL @_/ $2 $3 0 0
while /?/?_\?\? {
inc -u %2 5
window @_/ $calc($2 -10) $calc($3 -10) %2 $iif(%2 >= 100,100,%2)
drawrect -rf @_/ $rgb(0,0,0) 1 0 0 %2 %2
setlayer $iif(%2 >= 215,215,%2) @_/
if %2 = 250 break
}
drawfill -r @_/ $rgb(0,0,0) - 0 0
drawrect -rf @_/ $rgb(65,129,127) 1 0 0 250 7
drawrect -r @_/ $rgb(65,129,127) 1 0 0 248 98
var %_dt__: = drawtext -rop @_/ $rgb(255,255,255) Verdana 10 5
var %_n = $token($hget($1,_id),3-,32)
%_n = $iif($len(%_n) >= 32,$mid(%_n,1,32) $+ ..,%_n)
%_dt__: 9 Ident: $_cp($token($hget($1,_id),1,32))
%_dt__: 22 İsim: $_cp(%_n)
%_dt__: 35 Kanallar: $_cp($token($hget($1,_chans),0,32)) $&
- Prefix: $_cp($regex($hget($1,_chans),/([ $+ $prefix $+ ])#./g)) / Sol Tıkla.
%_dt__: 48 Nick durumu: $_cp($iif($hget($1,_reg),$v1,Kayıtsız.))
%_dt__: 60 Idle: $_cp($iif($hget($1,_idle),$regsubex($v1,/(\D+)/g,$chr(32) $_tf(\1) $chr(32)),Erişilemiyor.))
%_dt__: 71 Bağlantı: $_cp($iif($hget($1,_sign),$v1,Erişilemiyor.))
%_dt__: 83 Status: $_cp($iif($hget($1,_own),$v1,Normal kullanıcı.))
}
menu @_/ {
leave:___|___
rclick:!echo -ec info %__c - %_w rumunuzun bulunduğu kanallar: $_cp($hget(%_w,_chans))
dclick:___|___ | query %_w
}
#___|___ off
raw *:*: {
haltdef
tokenize 32 $rawmsg
var %_ = hadd -m $4
if ($2 = 311) %_ _id $5-6 $strip($right($8-,-1))
if ($2 = 307) %_ _reg Kayıtlı.
if ($2 = 319) %_ _chans $right($5-,-1)
if ($2 = 317) {
%_ _idle $duration($5)
%_ _sign $asctime($6,dd/mm/yy - hh:nn:ss)
}
if ($2 = 313) %_ _own $right($5-,-1)
if ($2 = 318) {
sq $4 $mouse.dx $mouse.dy $active
.disable #___|___
}
}
#___|___ end