Kod: Kodu kopyalamak için üzerine çift tıklayın!
;/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), )
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,/ </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,/ </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;),ğ) }
}
}
}