package require http

;# kullanacağınız kanal'da aktif etmek için: botunuza telnet/dcc üzerinde bağlanıp,
;# .chanset #kanalınız +yuhtuu     komutu vermelisiniz.aksi halde çalışmaz...
setudef flag yuhtuu

;# kodu kullanma yetkisi olacak olan kullanıcı flagları ne olacak:
set yuhflags "-|-"

;# komut başına gelecek sembol/işaret:
set semb "."

;# kanal komutu ne olacak:
set kmt "yuhtup"

bind pub $::yuhflags $::semb$::kmt yuh:tup

proc yuh:tup {nick uhost hand chan text} {
  if {![channel get $chan yuhtuu]} { return 0;}
   set q [lrange [split [string tolower $text]] 0 end]
   set q [string map -nocase {"ö" "o" "ü" "u" "ı" "i" "ş" "s" "ç" "c" "ğ" "g" " " %20} [join $q]]
  if {[llength $q] == 0} { puthelp "notice $nick :\002Kullanımı:\002 \00304\002$::lastbind <aradığınız video>\002\003"; return 0;}
::http::config -useragent "Mozilla/4.0 (compatible; MSIE 4.01; Windows CE; PPC; 240x320)"
set tok [::http::geturl "http://youtuberepeater.com/SearchVideos?q=$q" -timeout 25000]
set data [::http::data $tok]
::http::cleanup $tok
  set i 0
 while {$i < 4 && [regexp -line {Title"><a href="(.*?)">(.*?)<} $data a yuurl baslik]} {
regexp -line {Title"><a href="(.*?)">(.*?)<} $data a yuurl baslik
regexp -line {<div class="ItemViews">(.*?)</div>} $data c gorus
regsub -line {Title"><a href="(.*?)">(.*?)<} $data "" data
regsub -line {<div class="ItemViews">(.*?)</div>} $data "" data
   set durl [string range $yuurl 9 19]
   set gorus [string map {"views" "kez izlenmiş" "&nbsp;" "\002||\002"} $gorus]
   putserv "privmsg $chan :\00301,15$baslik\003 \002||\002 Süre: \00304$gorus\003 \002||\002 Link: \00306\037http://
    incr i
    }   
}

putlog "ok..."