IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - IF'de kaç kişi online? v2 [hangi konuyu okuyor]

ilk versiyonda vip üyeler gözükmüyordu kodu editlerken neden kişilerin okuduğu konular gözükmesin dedim, ve forumun " member_ajax.php " kullanarak kullanıcıların hangi konuyu okuduğunu artık göreceğiz :)
sistem aynı şekilde sock mantığı..
bazı üyelerin hangi konuyu okuduğunu göremeyebiliriz bunun nedeni ise sock okuma yaparken mIRC'i 1-2 saniye kitlemesi. 70 üyede en fazla 2 kişinin profilini göstermez..
profil bilgilerine ulaşamadığınız taktirde /if yazarak kullanıcı listesini güncelleyip tekrar deneyin.

buyrun kod aşağıda;

Kod:

;/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;),ğ) }

    }

  }

}

kullanım : /if
üyenin nick'ine 2 kere click yaptığımızda hangi konuyu okuduğunu gösterecektir.
profil bilgileri ekranda 5 saniye kalmakta, 5 saniye sonra otomatik olarak kaybolur.
eğer kodda hata ile karşılaşırsanız lütfen bu başlık altında belirtin.

örnek bir resim;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

not: avatarında büyük resim kullanan arkadaşların hangi konuyu okuduklarını göremiyorduk artık kaçışınız yok :)

Iyi Eğlenceler ;)