|
 |
|
 |
| |
| |
 |
Ro-Tcl
Aici Gasesti Tot Felul De Tcl`uri
|
 |
|
Acum este: 12/10/2026 01:57
|
| Autor |
Mesaj |
kymu
Junior
Data inscrierii: 01/Iul/2008
Mesaje: 7
Localitate: Pamplona
|
 Trimis: 05/07/2008 19:58 Titlul subiectului: youtube.tcl |
 |
|
Ziua buna uitati am si eu un tcl de youtube dar cand dau !youtube word
imi da eroare in party line si anume
[17:49] Tcl error [youtube]: can't read "title": no such variable
iar domnu Squit zice ca trebe sa stiu html sal fac :| daca vrea careva sa ma ajute plz 
| Cod: | ### YouTube Searching script. v1.0
### New version Created By Squit !
### Make sure you load the http.tcl file
### Use: !chanset +youtube
### Settings ###
setudef flag youtube
set youtube(timeout) "600000" ;# Youtube geturl timeout. (better leave this default)
set youtube(results) "5" ;# Results to display
set youtube(trigger) "!youtube" ;# Search trigger
bind pub - .youtube youtube
bind pub - !youtube youtube
bind pub - `youtube youtube
proc youtube {nick uhost hand chan arg} {
global youtube
if [channel get $chan youtube] {
if {$arg == ""} { putserv "NOTICE $nick :Please use: $::youtube(trigger) KEYWORD"; return }
set form [http::formatQuery search_query $arg search search]
set tok [http::geturl http://youtube.com/results?$form -timeout $::youtube(timeout)]
set data [http::data $tok]
regsub -all {<b>|</b>} $data {} data
http::cleanup $tok
set a "0"
while {[regexp -- {<a href=\"/watch\?v=(.*?)\">(.*)$} $data -> number data]} {
if {$a == $::youtube(results)} { break }
regexp -- {<img src=".*?" class=".*?" title="(.+?)" qliconalt=".*?" alt=".*?">(.*?)} $data -> title
putserv "PRIVMSG $chan :\0034Search\00314:\0032 $arg \0034Link\00314:\00312 足http://YouTube.com/watch?v=$number足 \0034Desc\00314:\0037 $title"
incr a
}
if {![info exists title]} { putserv "PRIVMSG $chan :\00312Nothing found for $arg !" }
}
}
####################################################################
putlog "1You4Tube2 TcL By 4Squit 14v足14足.14足1足 2loaded." |
PS: aca cum ii acuma pune o - in fata la http cand da linkul si nu merge sa intri direct pe link ms anticipat |
|
| Sus |
|
| Autor |
Mesaj |
TrAsNeT
Junior
Data inscrierii: 30/Iun/2008
Mesaje: 7
Localitate: Sighetul-Marmatiei
|
| Trimis: 06/07/2008 08:56 Titlul subiectului: |
|
|
kymu incearca tcl`u asta vezi deti merge ...
| Citat: | bind pub -|- !youtube pub_youtube
proc pub_youtube {nick uhost hand chan arg} {
set a1 [lindex [split $arg] 0]
set a2 [lindex [split $arg] 1]
set a3 [lindex [split $arg] 2]
set a4 [lindex [split $arg] 3]
set a5 [lindex [split $arg] 4]
set a6 [lindex [split $arg] 5]
set a7 [lindex [split $arg] 6]
set a8 [lindex [split $arg] 7]
set youtube "http://www.youtube.com/results?search_query=$a1+$a2+$a3&search_type=&search=Search"
puthelp "privmsg $chan :$nick \0034Your YouTube Search : \0033\002$youtube\002\0033"
putlog "YouTube Script Made By TrAsNeT"
} |
_________________
#mIRCBOT Fondator |
|
| Sus |
|
| Autor |
Mesaj |
kymu
Junior
Data inscrierii: 01/Iul/2008
Mesaje: 7
Localitate: Pamplona
|
| Trimis: 06/07/2008 12:31 Titlul subiectului: |
|
|
| da merge dar da doar un efect cel de sus al lui squit poti pune tu numarul de raspunsuri doar ca acum de cand sa skimbat situl nu mai merge zice aia eroarea aia de sus |
|
| Sus |
|
| Autor |
Mesaj |
kymu
Junior
Data inscrierii: 01/Iul/2008
Mesaje: 7
Localitate: Pamplona
|
| Trimis: 06/07/2008 12:54 Titlul subiectului: |
|
|
singuru lucru care trebuie skimbat este
| Cod: | | regexp -- {<img src=".*?" class=".*?" title="(.+?)" qliconalt=".*?" alt=".*?">(.*?)} $data -> title |
cu
| Cod: | | regexp -- {<img src=".*?" class=".*?" title="(.+?)" alt="video">} $data -> title |
la facut aNormaLu :P va multumesc ca mait ajutat:D |
|
| Sus |
|
| Autor |
Mesaj |
TrAsNeT
Junior
Data inscrierii: 30/Iun/2008
Mesaje: 7
Localitate: Sighetul-Marmatiei
|
| Trimis: 06/07/2008 16:30 Titlul subiectului: |
|
|
da asea trebuia nam obsercat dim ca imi era somn si tiam dat ala ... doar ala trebuia schibat .. e ok ;)
_________________
#mIRCBOT Fondator |
|
| Sus |
|
|
Nu puteti crea un subiect nou in acest forum
Nu puteti raspunde in subiectele acestui forum
Nu puteti modifica mesajele proprii din acest forum
Nu puteti sterge mesajele proprii din acest forum
Nu puteti vota in chestionarele din acest forum
|
| |
 |
|
 |
|
|
