[immortaL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

#youlink off
on *:input:#: { 
  unset %diagoster
  if $regex($1-,/^(\150\164{2}\160(\163|)\72\57\57\167{3}\56\w{7}\56\w{3}\57\S{5}\77(\166\75(\S{11}$|\S{11}\46(list)\75\S{15}$|\S{11}\46(list)\75\S{34}$)|(feature)\75(player)\137(embedded)\46\166\75\S{11}$|(feature)\75(endscreen)\46\116\122\75\d\46\166\75\S{11}$))/Si) {
    var %r_v = $regml(1) | .set -e %c_h $chan 
    if $regex(reg,%r_v,/(\S{5}\77)(.+)\166\75(\S{11})$/i) { .set -e %parca $regml(reg,3) }
    elseif $regex(reg,%r_v,/\166\75(\S{11})\46(list)\75\S{15}$/i) { .set -e %parca $regml(reg,1) }
    elseif $regex(reg,%r_v,/(\57\S{5}\77\166\75\S{11})$/i) { .set -e %parca $regml(reg,1) }
    /\/
  }
}

#youlink end

alias -l \/ { if $regex($sock(ytbul).status,/^active$/i) { sockclose ytbul } | sockopen ytbul www.youtube.com 80 }
alias -l çöz { return $replacecs($1-,",",&,&,',') }

on *:sockopen:ytbul: {  
  sockwrite -n $sockname GET /results?search_query= $+ %parca HTTP/1.1
  sockwrite -n $sockname host: $sock($sockname).addr
  sockwrite -n $sockname $crlf 
}  

on *:sockread:ytbul: {  
  if ($sockerr) { /echo -a 5Hata Mesajı:2 $sock($sockname).wsmsg | return }
  var %ytbul | sockread %ytbul
  if $regex(%ytbul,/data\Scontext\Sitem\Sid\S\S $+ $regsubex(%parca,/\/.+[\75](\S+)/,\t) $+ \S/i) {
    if $regex(sonuc,%ytbul,/data\Scontext\Sitem\Stitle\S["](.+)["]/i) { 
      if $regex(%diagoster,/^on$/) { /set -e %ylink $çöz($gettok($regml(sonuc,1),1,$asc("))) | sockclose ytbul | /ydia }
      else { /msg %c_h Linke ait *****:2 $çöz($gettok($regml(sonuc,1),1,$asc("))) | sockclose ytbul }
    }
  }
}

alias ytarama { 
  set -e %diagoster on
  if $regex(sub,%ysearch,/^(\150\164{2}\160(\163|)\72\57\57\167{3}\56\w{7}\56\w{3}\57\S{5}\77(\166\75(\S{11}$|\S{11}\46(list)\75\S{15}$|\S{11}\46(list)\75\S{34}$)|(feature)\75(player)\137(embedded)\46\166\75\S{11}$|(feature)\75(endscreen)\46\116\122\75\d\46\166\75\S{11}$))/Si) {
    var %r_v = $regml(sub,1)
    if $regex(reg,%r_v,/(\S{5}\77)(.+)\166\75(\S{11})$/i) { .set -e %parca $regml(reg,3) }
    elseif $regex(reg,%r_v,/\166\75(\S{11})\46(list)\75\S{15}$/i) { .set -e %parca $regml(reg,1) }
    elseif $regex(reg,%r_v,/(\57\S{5}\77\166\75\S{11})$/i) { .set -e %parca $regml(reg,1) }
    /\/
  }
}

dialog ytbilgi { 
  title "YouTuBe"
  size -1 -1 170 54
  option dbu
  text $suzgec(%ylink) , 1, 3 17 161 21
  box "Linke Ait *****", 2, 1 11 166 29
  button "Kapat", 3, 129 40 37 12, flat ok
}

alias -l ydia { .timer 1 1 /dialog -m ytbilgi ytbilgi }
alias -l suzgec return $replacecs($1-,ü,ü,ı,ı,ÅŸ,ş,Å,Ş,ç,ç,Ö,Ö,ö,ö,ÄŸ,ğ,’,',Ä°,İ,Ãœ,Ü,Ç,Ç,â,â,â€,-)
alias y_ac { if $regex($group(#youlink).status,/^on$/i) { /echo -a 2Youtube Link Search Zaten Açık! } | else { .enable #youlink | /echo -a 2Youtube Link Search Açıldı } }
alias y_kapat { if $regex($group(#youlink).status,/^off$/i) { /echo -a 2Youtube Link Search Zaten Kapalı! } | else { .disable #youlink | /echo -a 2Youtube Link Search Kapatıldı } }

menu * { 
  .Youtube Link Search
  ..Açık:/y_ac 
  ..Kapat:/y_kapat
  ..Durum < $replacecs($group(#youlink).status,on,Açık,off,Kapalı) > :.
  ..Bul:/if $regex($group(#youlink).status,/^on$/) { /unset %ylink %diagoster | set -e %ysearch $input(***** Linkini Giriniz,e,Youtube Search) | /ytarama } | else { return $input(Youtube Link Search Şuan Kapalı,o,Bilgilendirme) } 
}

Kodun Amacı: (Öncelikle sağ tık yapıp, Youtube Link Search menüsünden Açık konuma getirin.) Youtube ***** linkini yapıştırıp enter'a bastığınızda, *****nun ismini verir.

Örnek:
[02:46] <Feragat>youtube.com/watch?v=_y8p6uQDH4s
[02:46] <Feragat> Linke ait *****: Adventure Club & Krewella - Rise & Fall

Ayrıca sağ tık yaparak, menü üzerinden Bul seçeneğine tıklayıp linke ait ***** ismini bulabilirsiniz.