Statistics: Posted by pogue — Thu Oct 07, 2010 2:53 am

Statistics: Posted by tigrato — Sat Oct 02, 2010 5:34 am

Statistics: Posted by tigrato — Fri Oct 01, 2010 4:05 pm

Code:

http://www.youtube.com/results?search_query=$form

http://www.youtube.com/results?search_query=$form&gl=US

Statistics: Posted by username — Fri Oct 01, 2010 2:50 pm

Statistics: Posted by tigrato — Fri Oct 01, 2010 1:24 pm

<@tvrsh> !youtube ololo
<+bionic> [T?tulo: tugba Г¶zerk - lololo Link: http://youtube.com/watch?v=IZJR_L-i_Nc ]
...

Statistics: Posted by username — Fri Oct 01, 2010 1:07 pm

putdccraw 0 [string length $text\n] $text\n

putnow $text\n

Statistics: Posted by tigrato — Fri Oct 01, 2010 10:19 am

Code:

putdccraw 0 [string length $text\n] $text\n

putnow $text\n

Statistics: Posted by username — Thu Sep 30, 2010 2:37 pm

Code:

package require httpset youtube(timeout) "600000";# Youtube geturl timeout. (better leave this default)set youtube(results) "5";# Results to displayset youtube(trigger) "!youtube";# Search triggerset youtube(spam) "5";# Spam protection in secondsbind pub - $::youtube(trigger) youtubeproc youtube {nick uhost hand chan arg} {if {[info exists ::checks($nick)] && ([clock seconds] - $::checks($nick)) < $::youtube(spam)} { sendmsg $chan "Fk off spammer.."; return }set ::checks($nick) [clock seconds]if {$arg == ""} { putmsg $nick "Please use: $::youtube(trigger) KEYWORD"; return }set form [http::formatQuery search_query $arg search search]set tok [http::geturl http://www.youtube.com/results?search_type=&$form -timeout $::youtube(timeout)]set data [http::data $tok]http::cleanup $tokset a "0"while {[regexp -- {<a id="video-short-title.*?" href="(.*?)"  title="(.*?)" rel="nofollow">(.*)$} $data -> number title data]} {if {$a == $::youtube(results)} { break }sendmsg $chan "\[Title: $title Link:http://youtube.com$number\]"incr a}if {![info exists title]} { sendmsg $chan "\002Error:\002 Nothing found for '$arg'" }}proc "sendmsg" { target message } {sputraw "PRIVMSG [string tolower $target] :$message"}proc "sputraw" { text } {set text [string trim $text]putdccraw 0 [string length $text\n] $text\n}

Statistics: Posted by demetrius_reis — Wed Sep 29, 2010 7:51 pm

### YouTube Searching script. v0.1### Made by Mookie### Contact me at Efnet for more information or suggestions### V0.3 Fixed + added spam protectionpackage require http### Settings ###set youtube(timeout) "600000";# Youtube geturl timeout. (better leave this default)set youtube(results) "5";# Results to displayset youtube(trigger) "!youtube";# Search triggerset youtube(spam) "10";# Spam protection in seconds########################################################### Don't edit below unless you know what you're doing. ###########################################################bind pub - $::youtube(trigger) youtubeproc youtube {nick uhost hand chan arg} {if {[info exists ::checks($nick)] && ([clock seconds] - $::checks($nick)) < $::youtube(spam)} { putserv "PRIVMSG  $chan :Fk off spammer.."; return }set ::checks($nick) [clock seconds]if {$arg == ""} { putmsg $nick "Please use: $::youtube(trigger) KEYWORD"; return }set form [http::formatQuery search_query $arg search search]set tok [http::geturl http://www.youtube.com/results?search_query=$form -timeout $::youtube(timeout)]set data [http::data $tok]http::cleanup $tokset a "0"while {[regexp -- {<a id="video-long-title-.*?" href="(.*?)" title="(.*?)" rel="nofollow">(.*)$} $data -> number title data]} {if {$a == $::youtube(results)} { break }putserv "PRIVMSG $chan :\[\002\0037Título\003\002: $title \002\0037Link:\003\002 http://youtube.com$number \ ]"incr a}if {![info exists title]} { putserv "PRIVMSG $chan :\002Error:\002 Nothing was found for '$arg', you kill me!" }}

Statistics: Posted by tigrato — Fri Aug 27, 2010 9:53 am