Toprak
27 Ocak 2015, 22:48
#youlink off
on *:input:#: {
unset %diagoster
if $regex($1-,/^(\150\164{2}\160(\163|)\72\57\57\167{3}\56\w{7}\5 6\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)\7 5(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 [Only Registered Users Can See Links] 80 }
alias -l çöz { return $replacecs($1-,",",&,&,',') }
on *:sockopen:ytbul: {
sockwrite -n $sockname GET /results?search_query= $+ %parca [Only Registered Users Can See Links]
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}\5 6\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)\7 5(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,Kap alı) > :.
..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> [Only Registered Users Can See Links] ([Only Registered Users Can See Links])
[02:46] <Feragat> Linke ait video: Adventure Club & Krewella - Rise & Fall
Örnek Resim:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
Ayrıca sağ tık yaparak, menü üzerinden Bul seçeneğine tıklayıp linke ait video ismini bulabilirsiniz.
Örnek Resim:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
Kodun algıladığı Youtube Link Modları:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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.
on *:input:#: {
unset %diagoster
if $regex($1-,/^(\150\164{2}\160(\163|)\72\57\57\167{3}\56\w{7}\5 6\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)\7 5(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 [Only Registered Users Can See Links] 80 }
alias -l çöz { return $replacecs($1-,",",&,&,',') }
on *:sockopen:ytbul: {
sockwrite -n $sockname GET /results?search_query= $+ %parca [Only Registered Users Can See Links]
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}\5 6\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)\7 5(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,Kap alı) > :.
..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> [Only Registered Users Can See Links] ([Only Registered Users Can See Links])
[02:46] <Feragat> Linke ait video: Adventure Club & Krewella - Rise & Fall
Örnek Resim:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
Ayrıca sağ tık yaparak, menü üzerinden Bul seçeneğine tıklayıp linke ait video ismini bulabilirsiniz.
Örnek Resim:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
Kodun algıladığı Youtube Link Modları:
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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.