Youtube link analiz botu
Youtube link analiz botu Çalışma şekli !kim youtubelinki örnek: !kim youtube.be/watch?v=PUiNB0UFwJM
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
## KraLaz ## on *:text:!kim &:#: { ;msg # calisti döngü noop $regex($2,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si) if $read(songrequest.txt,nw,$+(*,$2)) { ; msg # $gettok($v1,2-,32) << 4,40 Youtube Link Dedektör : } elseif !$regml(2) { msg # $nick --> url } else { youtube $2 $chan $nick } } alias -l sockopenmark { sockopen -e $1-3 | sockmark $1 $4- } alias -l youtube { noop $regex($1,/(youtube\.com)\/.*v=([^&]+)|(youtu\.be)\/(.+)/Si) sockopenmark $+(yt.,$calc($ticks + $rand(1,99))) www.youtube.com 443 $regml(2) msg $2- } on *:sockopen:yt.*:{ tokenize 32 $sock($sockname).mark sockwrite -n $sockname GET /watch?v= $+ $1 HTTP/1.0 sockwrite -n $sockname HOST: www.youtube.com $+ $str($crlf,2) } on *:sockread:yt.*:{ tokenize 32 $sock($sockname).mark var %v | sockread %v if ($regex(%v,/"name" content="(.+)"/)) { var %song $replace($regml(1),&amp;,$chr(38),&#39;,$chr(39),',$chr(39),&quot;,$chr(34),",$chr(34),&,$chr(38)) $5- $2-3 4,40 Youtube 12Linki Verilen Parça : 1 %song write songrequest.txt $4 $+ : %song $+ : sockclose $sockname } elseif *</html> iswm %v { $2-3 The Song ( https://www.youtube.com/watch?v= $+ $1 ) is not exists. } } |
Son Yorumlar