IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

#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 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }

alias -l çöz { return $replacecs($1-,&quot;,",&amp;,&,',') }
 

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 video: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 Video", 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(Video 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 video linkini yapıştırıp enter'a bastığınızda, videonun ismini verir.

Örnek:
[02:46] <Feragat> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[02:46] <Feragat> Linke ait video: Adventure Club & Krewella - Rise & Fall

Örnek Resim:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

Örnek Resim:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

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

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

Kodun algıladığı Youtube Link Modları:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Not: Kod yukarıda belirttiğim link modlarını algılar. Kodu yapalı 6-7 ay olmuştur belki daha fazla. Youtube sık içerik değiştirdiği için kodu 3. güncelleyişim. Bu hali ile ne kadar çalışır bilemem. Devredışı kaldığında tekrar güncellemeye çalışırım. (Dialog kodlarıyla uğraşmaktan nefret ettiğim için, dialog konusuna pek özenmedim. Kullanmak isteyen arkadaşlar kendiniz isterseniz daha güzel bir dialog yapabilirsiniz.) İyi forumlar.