;/tooltip komutu by Andy
on *:ACTIVE:@tooltip: {
  window -a $qt($lactive)
  window -o @tooltip
}
on *:APPACTIVE: if (!$appactive) && ($window(@tooltip)) window -c @tooltip

alias tooltip {
  if ($window(@tooltip)) window -c @tooltip
  var %font = Tahoma, %fontsize = 11, %time = 5, %rgb = 14811135
  var %x = 1, %long = $gettok($1-,%x,13)
  while ($gettok($1-,%x,13)) {
    if ($len($v1) > $len(%long)) %long = $gettok($1-,%x,13)
    inc %x
  }
  var %w = $width(%long,%font,%fontsize,0,1) + 7, %h = $calc($gettok($1-,0,13) * $height($1-,%font,%fontsize) + 5)
  window -pBhdo +dL @tooltip $mouse.dx $calc($mouse.dy - 20) %w %h
  drawfill -r @tooltip %rgb %rgb 0 0
  drawrect @tooltip 1 0.5 0 0 %w %h
  %x = 1
  while ($gettok($1-,%x,13)) {
    drawtext -p @tooltip 1 %font %fontsize $iif($left($v1,1) == $chr(2),3,4) $iif(%x == 1,1,$calc((%x - 1) * 13)) $gettok($1-,%x,13)
    inc %x
  }
  window -a @tooltip
  .timertip 0 %time window -c @tooltip
}

;/if komutu by XcLusive

alias if {
  unset %ircforumlari.*
  $iif(!$window(@ircforumlari),window -Cak0d +L @ircforumlari -1 -1 800 200,clear @ircforumlari)
  sockclose *
  echo @ircforumlari Lütfen Bekleyin Liste Alınıyor...
  sockopen ircforumlari 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:ircforumlari:{
  sockwrite -n $sockname GET /index.php? HTTP/1.1
  sockwrite -n $sockname Host: ircforumlari.net $+ $crlf $+ $crlf
}
on *:sockread:ircforumlari:{
  if ($sockerr) {
    echo 4 @ircforumlari Hata: Bilgi Alınamıyor | halt 
  }    
  else {
    sockread %temptext 
    if ($regex(%temptext,/(An Forumumuzda)/g)) { echo @ircforumlari $+($chr(3),12)) $htmlfree(%temptext) | set %read açık  }
    if (%read == açık) && ($regex(%temptext,/</a>$/(a href="member.php.*s=|rel="nofollow"><font color="))) { 
      set %ircforumlari $addtok(%ircforumlari,$+($htmlfree(%temptext),$chr(44)),32)
      if ($uyeno(%temptext) isnum) { set $+(%,ircforumlari.,$htmlfree(%temptext)) $uyeno(%temptext) }
      else { set $+(%,ircforumlari.,$htmlfree(%temptext)) $uyeno2(%temptext) }
    }
    if ($regex(%temptext,/(Sitemizi bugün ziyaret)/g)) { unset %read | echo @ircforumlari $+($chr(3),12)) Forumda Online Kullanıcılar: $+($chr(3),4)) %ircforumlari | unset %ircforumlari }
  }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9),&nbsp;) 
  return %x 
}
alias uyeno {
  return $remove($gettok($1-,4,61)," rel)
}
alias uyeno2 {
  if (*rel="nofollow* iswm $1-) {
    if ($gettok($gettok($1-,1,34),2,61) isnum) { return $gettok($gettok($1-,1,34),2,61) }
    else { return $gettok($gettok($1-,1,34),3,61) }
  }
}
on ^*:hotlink:*:@ircforumlari:return
on *:hotlink:*:@ircforumlari:{
  var %x = $remove($1,$chr(44))
  set %uyeno %ircforumlari. [ $+ [ %x ] ]
  $iif(%uyeno isnum,uyebak,tooltip %x $cr Üye Bilgileri Alınamıyor)
}
alias uyebak {
  sockclose uyebak
  unset %kon*
  sockopen uyebak 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
}
on *:sockopen:uyebak:{
  sockwrite -n $sockname GET $+(/member_ajax.php?u=,%uyeno) HTTP/1.1
  sockwrite -n $sockname Host: ircforumlari.net $+ $crlf $+ $crlf
}
on *:sockread:uyebak:{
  if ($sockerr) {
    echo 4 -st Uye Bilgileri Alınamıyor | halt 
  }    
  else {
    sockread %temp
    if ($regex(%temp,/</strong>$/<strong>\A)) { set %konu $addtok(%konu,$htmlfree(%temp),32) }
    if (*span* iswm %temp) && ($regex(%temp,/&nbsp;</div>$/<div>\A)) { set %konu2 $addtok(%konu2,$htmlfree(%temp),32) }
    if (*Konu okuyor* iswm %temp) { set %konu3 $addtok(%konu3,Konu Okuyor:,32) }
    if (*span* !iswm %temp) && ($regex(%temp,/&nbsp;</div>$/<div>\A)) { set %konu3 $addtok(%konu3,$htmlfree(%temp),32) }
    if (*</td>* iswm %temp) { 
      if ($regex(%konu3,/(konu okuyor)/gi) >= 2) { tooltip 4 %konu  $cr 12 %konu2  $cr 5 $remove(%konu3,Konu Okuyor:) }
      else { tooltip 4 %konu  $cr 12 %konu2  $cr 5 $replace(%konu3,$+($chr(38),#350;),ş,$+($chr(38),#287;),ğ,$+($chr(38),#305;),ı,$+($chr(38),#351;),ş,$+($chr(38),#287;),ğ) }
    }
  }
}