11/08/2009, 16:16
(Modification du message : 11/08/2009, 16:17 par BlackNight.)
Voici un code assez basique que je viens de développer.
Vous pouvez me faire part de vos suggestions, améliorations etc.
Vous pouvez me faire part de vos suggestions, améliorations etc.
tcl
#############
## GNU/GPL ##
######################################
# see www.gnu.org/licenses/agpl.txt #
######################################
set ::cmd "!search"
set ::lastcmd "!lastsearch"
set ::author "BlackNight"
set ::version "1.0"
set ::chan {
"#ch@os"
"#les-tenebres"
"#la_tour_des_anges"
}
bind pub - $::cmd google_search
bind pub - $::lastcmd google_lastsearch
proc google_search {nick host hand chan arg} {
foreach google $::chan {
if [string match -nocase $google $chan] {
set ::search [join [lrange $arg 0 end] +]
set ::url "http://www.google.fr/search?hl=fr&q=$::search"
set ::unick $nick
putquick "PRIVMSG $chan :\002\00307$::unick \00312votre recherche se trouve sur\00303 $::url \002\003"
}
}
}
proc google_lastsearch {nick host hand chan arg} {
foreach google $::chan {
if [string match -nocase $google $chan] {
putquick "PRIVMSG $chan :\002\00312La dernière recherche effectuée par\00312\00307 $::unick\00307 \00312est\00312 \00303$::url\00303\002"
}
}
}
putlog "GoogleSearch $::version par $::author chargé avec succès"