Merhaba işlevini yitirmiş kod için güncelleme talep etmekteyim. Saygılarımla
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) | return $remove($replace(%x,",",<,<,>,>,$cr,$chr(32),$lf,$chr(32),&,&),$chr(9)) }
alias -l addmark { return $+($sock($1).mark,$chr($3),$2) }
alias -l between { noop $regex($1,/\Q $+ $2 $+ \E(.*?)\Q $+ $3 $+ \E/gi) | return $regml($4) }
alias -l smsg { msg $iif(c isincs $chan($1).mode,$1 $strip($2-),$1-) }
alias -l yt { if ($regex($1,http\:\/\/.********.*\/watch\?v=(.{11})&?.*)) { return $regml(1) } }
on *:text:********.com/watch?v=*:#: {
if (!$sock(*******)) {
sockopen *******
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80
sockmark ******* $+(#,>,$yt($1-))
}
}
on *:sockopen:*******: {
tokenize 62 $sock(*******).mark
sockwrite -n $sockname GET /watch?v= $+ $gettok($2,1,38) HTTP/1.0
sockwrite -n $sockname Host:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:*******: {
sockread %*******
tokenize 62 $sock(*******).mark
if (<title> isin %*******) { var %x $htmlfree(%*******) | sockmark ******* $addmark(*******,$mid(%x,10,$len(%x)),62) }
if (swfArgs isin %*******) { sockmark ******* $addmark(*******,$duration($between(%*******,"l":,$chr(44),1)),62) }
if (<div id="defaultRatingMessage"><span class="smallText"> isin %*******) { sockmark ******* $addmark(*******,$gettok(%*******,4,34),62) | sockmark ******* $addmark(*******,$gettok($htmlfree(%*******),1,32),62) }
if (<span id="watch-views"><span id="watch-view-count"> isin %*******) { sockmark ******* $addmark(*******,$gettok($htmlfree(%*******),1,32),62) }
if (<span class="watch-video-added post-date"> isin %*******) { sockmark ******* $addmark(*******,$htmlfree(%*******),62) }
if (<a class="url" isin %*******) { sockmark ******* $addmark(*******,$gettok($gettok($remove(%*******,$chr(9),$chr(34)),3,32),3,47),62) }
}
on *:sockclose:*******: {
tokenize 62 $sock(*******).mark
msg $1 [1,0You0,4Tube]: $iif($numtok($sock(*******).mark,62) >= 7,Başlık: $+(,$mid($3,2,$len($3)),) $chr(124) Gönderen: $+(,$5,) $+($chr(40),Yüklenme Tarihi $6,$chr(41)) $chr(124) Süre: $+(,$4,) $chr(124) Görüntülenme: $iif($numtok($sock(*******).mark,62) == 9,$+(,$9,),$+(,$7,)) $chr(124) Oylar: $iif($numtok($sock(*******).mark,62) == 9,$+(,$7,) $+($chr(40),$8 $iif($8 == 1,Oy,Oylar),$chr(41),),$+(,Ratings were disabled,)),Bu linkte ya video yok yada ID yanliş.)
unset %*******
}