on *:input:#:{
  if $regex($1-,/watch\?v\=(.+)/Si) {
    var %:r $+($ctime,$r(100,9999999)) | .hadd -ms $+(yt,%:r) Kanal #
    sockopen $+(yt,%:r) api.teklan.com.tr 80
    sockmark $+(yt,%:r) $token($regml(1),1,38)
  }
}
on *:text:*:#:{
  if $regex($1-,/watch\?v\=(.+)/Si) {
    var %:r $+($ctime,$r(100,9999999)) | .hadd -ms $+(yt,%:r) Kanal #
    sockopen $+(yt,%:r) api.teklan.com.tr 80
    sockmark $+(yt,%:r) $token($regml(1),1,38)
  }
}
alias _tr return $replace($1-,ü,ü,ÅŸ,ş,ö,ö,ÄŸ,ğ,ı,ı,ç,ç,Ä,Ğ,Å,Ş,Ç,Ç,Ğ°,İ,Ãœ,Ü,Ö,Ö,Ãœ,Ü,•,$chr(149),©,$chr(169),',',&,&)
on *:sockopen:yt*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/youtube.php?id=,$sock($sockname).mark) HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:yt*:{ 
  var %:yt | sockread %:yt | tokenize 32 %:yt
  if $regex($1-,/"title": "(.+)\"/i) { .hadd -ms $sockname Title $_tr($regml(1)) }
  elseif $regex($1-,/"viewCount": "(.+)\"/i) { .hadd -ms $sockname İzlenme $replace($bytes($regml(1),b),$chr(44),.) }
  elseif $regex($1-,/"likeCount": "(.+)\"/i) { .hadd -ms $sockname Like $replace($bytes($regml(1),b),$chr(44),.) }
  elseif $regex($1-,/"dislikeCount": "(.+)\"/i) {     
    msg $hget($sockname,Kanal) 
    msg $hget($sockname,Kanal) 5***** isim:14 $hget($sockname,Title) 5Izlenme:14 $hget($sockname,İzlenme) 5Begeni:14 $hget($sockname,Like) 5Begenmeme:14 $replace($bytes($regml(1),b),$chr(44),.)
    msg $hget($sockname,Kanal) 5***** linki:14 $+(  
   


Merhaba,

Radyo botu içi yapmıştım normalde /_yt Şarkı Adı ile ***** arama sistemiydi ama o kodları bulamadım bulunca onuda atarım yorum olarak
 

Kanal genelinde atılan yt linklerinin isim-like-dislike-indirme linkini direk kanala gönderir
 
 
 
 
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 
on *:input:#:{
  if $regex($1-,/watch\?v\=(.+)/Si) {
    var %:r $+($ctime,$r(100,9999999)) | .hadd -ms $+(yt,%:r) Kanal #
    sockopen $+(yt,%:r) api.teklan.com.tr 80
    sockmark $+(yt,%:r) $token($regml(1),1,38)
  }
}
on *:text:*:#:{
  if $regex($1-,/watch\?v\=(.+)/Si) {
    var %:r $+($ctime,$r(100,9999999)) | .hadd -ms $+(yt,%:r) Kanal #
    sockopen $+(yt,%:r) api.teklan.com.tr 80
    sockmark $+(yt,%:r) $token($regml(1),1,38)
  }
}
alias _tr return $replace($1-,ü,ü,ÅŸ,ş,ö,ö,ÄŸ,ğ,ı,ı,ç,ç,Ä,Ğ,Å,Ş,Ç,Ç,Ğ°,İ,Ãœ,Ü,Ö,Ö,Ãœ,Ü,•,$chr(149),©,$chr(169),',',&,&)
on *:sockopen:yt*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/youtube.php?id=,$sock($sockname).mark) HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:yt*:{ 
  var %:yt | sockread %:yt | tokenize 32 %:yt
  if $regex($1-,/"title": "(.+)\"/i) { .hadd -ms $sockname Title $_tr($regml(1)) }
  elseif $regex($1-,/"viewCount": "(.+)\"/i) { .hadd -ms $sockname İzlenme $replace($bytes($regml(1),b),$chr(44),.) }
  elseif $regex($1-,/"likeCount": "(.+)\"/i) { .hadd -ms $sockname Like $replace($bytes($regml(1),b),$chr(44),.) }
  elseif $regex($1-,/"dislikeCount": "(.+)\"/i) {     
    msg $hget($sockname,Kanal) 
    msg $hget($sockname,Kanal) 5***** isim:14 $hget($sockname,Title) 5Izlenme:14 $hget($sockname,İzlenme) 5Begeni:14 $hget($sockname,Like) 5Begenmeme:14 $replace($bytes($regml(1),b),$chr(44),.)
    msg $hget($sockname,Kanal) 5***** linki:14 $+(