#PBC Official Forum #PBC Official Forum
Noi Iti Protejam Chanu De LAMERI 		#PBC Official Forum
FAQFAQ  CautareCautare  InregistrareInregistrare  ProfilProfil  MembriMembri  GrupuriGrupuri  Mesaje privateMesaje private  AutentificareAutentificare 

horoscop.tcl

 
Raspunde la subiect    Pagina de start a forumului #PBC Official Forum -> TCL Scripts
Subiectul anterior :: Subiectul urmator  
Autor Mesaj
Suparatu
Administrator
Administrator
Suparatu

Data inscrierii: 12/Mai/2008
Mesaje: 24
MesajTrimis: 22/05/2008 12:36    Titlul subiectului: horoscop.tcl Raspunde cu citat (quote)
package require http
setudef flag horoscop

bind pub -|- !horoscop check:zodie

proc check:zodie {nick host hand chan args} {

if {![channel get $chan horoscop]} {puthelp "NOTICE $nick :FAILED: Horoscop isn`t set. Try !chanset +horoscop"; return}

set zodie [string tolower [lindex $args 0]]

if {![regexp {^(berbec|taur|gemeni|rac|leu|fecioara|balanta|scorpion|sagetator|capricorn|varsator|pesti)$} $zodie]} {
puthelp "NOTICE $nick :Foloseste: !horoscop <semn zodiacal>"
return
}

set pagina "http://www.zodii.ro/zodiac/$zodie*zodie_$zodie-horoscop_zilnic.html"
set http [http::config -useragent mozilla]
set page [http::data [http::geturl $pagina -timeout 3000]]
http::cleanup $http

regexp -line {<div class="textArticol">(.*)</div>} $page -> textzodie

puthelp "PRIVMSG $nick :$textzodie"

}

putlog "Horoscop loaded sucessfully. Created by Costin"
Sus
Vezi profilul utilizatorului Trimite mesaj privat
Autor Mesaj
TrAsNeT
Junior 2
Junior 2
TrAsNeT

Data inscrierii: 12/Mai/2008
Mesaje: 44
Localitate: Sighet
MesajTrimis: 22/05/2008 12:44    Titlul subiectului: Raspunde cu citat (quote)
poate nu mere tcl`u Smile) :whistle:
_________________
Fondator #mIRCBOT Smile
Sus
Vezi profilul utilizatorului Trimite mesaj privat
Autor Mesaj
Suparatu
Administrator
Administrator
Suparatu

Data inscrierii: 12/Mai/2008
Mesaje: 24
MesajTrimis: 22/05/2008 12:45    Titlul subiectului: Raspunde cu citat (quote)
trebuie sa mearga ca l-am verificat
Sus
Vezi profilul utilizatorului Trimite mesaj privat
Autor Mesaj
Admin
Administrator
Administrator


Data inscrierii: 12/Mai/2008
Mesaje: 7
MesajTrimis: 10/08/2008 12:26    Titlul subiectului: Raspunde cu citat (quote)
Incercatil asta :X

Citat:
package require http

bind pub -|- !horoscop check:zodie

proc check:zodie {nick host hand chan arg} {
global check:zodie

if {![channel get $chan horoscop]} {puthelp "NOTICE $nick :FAILED: Horoscop isn`t set. Try !chanset +horoscop"; return}

set arg [lindex $arg 0]

if {$arg == "" || ![regexp {^(berbec|taur|gemeni|rac|leu|fecioara|balanta|scorpion|sagetator|capricorn|varsator|pesti)$} $arg]} {
putserv "NOTICE $nick :Foloseste: !horoscop <semn zodiacal>"
return 0
}

set pagina "http://www.zodii.ro/zodiac/$arg*zodie_$arg-horoscop_zilnic.html"
set http [http::config -useragent mozilla]
set http [http::geturl $pagina -timeout [expr 1000 * 10]]
set html [http::data $http]
http::cleanup $http ;
regexp {<div class="textArticol">(.*)} $html horoscopo
regsub -all "<div class=\"textArticol\">" $horoscopo "" horoscopo
regsub -all "</div>" $horoscopo "" horoscopo
putserv "PRIVMSG $nick :[string toupper $arg]: $horoscopo"
}
putlog "Horoscop loaded sucessfully. Created by Costin"


sper sa mearga
Sus
Vezi profilul utilizatorului Trimite mesaj privat
Afiseaza mesajele pentru a le previzualiza:   
Raspunde la subiect    Pagina de start a forumului #PBC Official Forum -> TCL Scripts Ora este GMT + 2 ore
Pagina 1 din 1

 
Mergi direct la:  
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
Fa-ti si tu propriul forum GRATUIT, pe www.myforum.ro