on *:text:!youtube*:#oyun
set %ychan $chan
youtube $2-
}
alias youtube {
unset %N %y %s %title %added %user %views %url %half %full %length %half2 %full2 %rating %rating2
set %y $iif(%ychan,.msg $v1,echo -a)
if (!$1) {
  %y Syntax: $iif(%ychan,!,/) $+ YouTube [search criteria]
  halt
}
if ($sock(youtube)) {
  %y Lütfen Bekleyin Þuanda Arýyor.
  halt
}
set %s $replace($$1-,$chr(32),+)
$iif(%ychan,.describe $v1 Aranýyor,echo -a Searching) Lütfen Bekleyin Sözcük Aranýyor Aranilan Sözcük $qt($replace(%s,+,$chr(32))) $+ ...
sockopen youtube 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #007700">.youtube.com 80
}
on *:SOCKOPEN:youtube: {
sockwrite -nt $sockname GET /results?search_query= $+ %s HTTP/1.1
sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #007700">.youtube.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:youtube: {
if ($sockerr) {
  %y Socket Error: $sockerr
  sockclose $sockname
  unset %title %added %user %views %url %half %full %length %half2 %full2 %rating %rating2 %ychan %N
}
else {
  var %x
  sockread %x
  if (*No videos found* iswm %x) {
    %y Aranýlan Sözcük bulunamadi  $replace($qt(%s),+,$chr(32)) Lütfen Yazdýðýnýz Sözcügü Kontrol Edin
    sockclose $sockname
  }
  if (*/watch?v=* iswm %x) set %url http://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
style="color: #007700">if (*alt="video"* iswm %x) set %title $gettok(%x,6,34)
  if (*added:* iswm %x && *grayText* iswm %x) {
    set %added $remove($gettok(%x,3,62),<br/) 
    if (%N == 2) noop %added 
  }
  if (*from:* iswm %x) set %user $gettok($gettok(%x,4,47),1,34)
  if (*views:* iswm %x) { 
    set %views $remove($gettok(%x,3,62),<br/)
  }
  if (*rating icn* iswm %x) {
    if (%rating) {
      set %full2 $count(%x,full)
      set %half2 $count(%x,full)
      set %rating2 $iif(!%half2,$iif(%full2,$v1,0),$iif(!%full2,0.5,%full2 $+ .5))
    }
    else {
      set %full $count(%x,full)
      set %half $count(%x,half)
      set %rating $iif(!%half,$iif(%full,$v1,0),$iif(!%full,0.5,%full $+ .5))
    }
  }
  if (*runtime* iswm %x) {
    set %length $remove($htmlfree(%x),$chr(9))
    inc %N
    %y • Title: $htmlfree(%title)  Eklendi: %added User: $htmlfree(%user) Length: %length Views: %views Rating: $calc(%rating + %rating2) $+ /5 URL: %url
    unset %title %added %user %views %url %half %full %length %half2 %full2 %rating %rating2 %ychan
    if (%N == 3) {
      sockclose $sockname
      unset %N
    }
  }
}
}
alias htmlfree { 
var %a,%b
%b = $regsub($1,/[^<]*>|<[^>]*>|<[^>]*/g,$chr(32),%a)
return $remove($replace(%a,&quot;,",&gt;,>,&lt,<,&amp;,&),Â)
} 

alias _ych return #DJ

;-- burayý kafana gore duzenle, duzenlettir
on *:text:*:#:{
  if ($chan == $_ych) {
    if ($chr(64) isin $1 && yt isin $1) {
      _yt $2-
      msg $_ych ok, 1sn.
    }
  }
}
 
alias _yt { %yts.s = $replace($2-,$chr(32),+,&,%26) | sockclose ytsearch | sockopen ytsearch 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80 }
on *:sockopen:ytsearch:{
  sockwrite -nt $sockname GET /results?search_query= $+ %yts.s HTTP/1.1
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.1 (KHTML, like Gecko) Chrome/21.0.1180.60 Safari/537.1
  sockwrite -nt $sockname $crlf
}
 
on *:sockread:ytsearch:{
  var %_a | sockread %_a
  if ($regex(%_a,/<a aria-hidden="true" href="\/watch\?v=(.*)"/$i) == 1) { yclink $remove($token($regml(1),1,32),") | sockclose $sockname | halt }
  if (*No Videos found* iswm %yts.temp) { sockclose ytsearch | unset %yts.* | halt }
  if (*start search results* iswm %yts.temp) { %yts.searchres = 0  }  
}
 
alias trchra return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,þ,ı,ý,Åž,þ,ÄŸ,ð,Ãœ,ü,Äž,ð,$chr(39),-)
alias _html {
  var %x, %i =  $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/gi,$null,%x),  %x = $remove(%x,&nbsp;,    )
  return %x
}
alias yclink {
  if (!$sock(spor)) {  
    var %yclink $1-,%yclink2 $remove(%yclink,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
set -eu10 %_vp $left(%yclink2,11)
    sockopen spor 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
80
    sockmark spor msg $_ych
  }
}
On *:sockopen:spor:{
  Sockwrite -n $sockname GET $+(/a/itemInfo/?video_id=,%_vp,&ac=
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
HTTP/1.1
  Sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
Sockwrite -n $sockname $crlf
}
On *:sockread:spor:{
  var %_w | sockread %_w
  if $regex(%_w,/("h": "(.*)")/i) { var %_ha = $remove($regml(1),"h",:,") }
  if $regex(%_w,/("title": "(.*)")/i) { var %_tit = $remove($regml(1),"title",:,") }
  if $regex(%_w,/("image": "(.*)")/i) { 
    var %_img = $remove($regml(1),"image",:,") 
    $sock($sockname).mark 6• [You0,4tube] - 2Þarký ADI : $trchra($gettok(%_tit,1,44))
    $sock($sockname).mark 6• [You0,4tube] - 5Þarký Resmi : $replace($gettok(%_img,1,44),http//,http://)
    $sock($sockname).mark 6• [You0,4tube] - 5Dinlemek için :12 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
1 1 sockclose spor
}