;written l4roxyl,,.
;date 29/09/2012
;,,.
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