Google kelime aramalarinda sira bulucu tcl

[No_FeaR]

[Only Registered Users Can See Links]

Düzenlemesi Gerek Kısımlar ;
# Kanal'i belirtin.
set ara(kanal) "#Webmaster"

# Komut on eki.
set ara(komut) ".ara"

Gerekli TCL ;
#####
# ¿ #
#####

# Kanal'i belirtin.
set ara(kanal) "#Webmaster"

# Komut on eki.
set ara(komut) ".ara"

##########
# CISS ! #
##########

bind pub – $ara(komut) ara:sira
proc ara:sira {nick uhost hand chan text} {
global botnick ara
if {[string match -nocase $ara(kanal) $chan]} {
set url "[lindex $text 0]"
set keyword "[lrange $text 1 end]"
regsub -all " " $keyword "%20" keyword
if {$url == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara <url> <kelime> seklindedir."; return 0 }
if {$keyword == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara $url <kelime> seklindedir."; return 0 }
set apiweb "[Only Registered Users Can See Links]$url&keyword=$keyword"
catch {set sayfa [::[Only Registered Users Can See Links] $apiweb -timeout 5000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $chan :Hata: Suan siteye baglanilamiyor... Daha sonra tekrar deneyiniz..."
::[Only Registered Users Can See Links] $sayfa
return 0
}
if {[::[Only Registered Users Can See Links] $sayfa] == "*timeout*"} {
putquick "PRIVMSG $chan :Hata: Baglanti zaman asimina ugradi..."
::[Only Registered Users Can See Links] $sayfa
return 0
}
set html "[::[Only Registered Users Can See Links] $sayfa]"
::[Only Registered Users Can See Links] $sayfa
regexp -nocase {<hata>(.*?)</hata>} $html match hata
regexp -nocase {<sonuc>(.*?)</sonuc>} $html match sonuc
regexp -nocase {<sira>(.*?)</sira>} $html match sira
regexp -nocase {<link>(.*?)</link>} $html match link
if {[info exists hata]} {
putquick "PRIVMSG $chan :4$hata"
}
if {[info exists sonuc]} {
putquick "PRIVMSG $chan :12G4o7o12g3l4e 1siralamaniz asagida yer almaktadir:"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :10Aranan(lar):"
putquick "PRIVMSG $chan :4Url:2 $url"
regsub -all "%20" $keyword " " keyword
putquick "PRIVMSG $chan :4Kelime:2 $keyword"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :10Sonuc(lar):"
putquick "PRIVMSG $chan :4Siraniz:2 $sira"
putquick "PRIVMSG $chan :4Link:2 $link"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :12G4o7o12g3l4e 1sorgulama sonu..."
}
::[Only Registered Users Can See Links] $html
}
}

#######
# SON #
#######

Kodun Yazarı ; ¿

[Goemon]

Güzel cr içinde olsa süper olurmuş

[No_FeaR]

Goemon CR'de Bu Şekilde Çalışırmış, Denemedim Ama Kod Bu.. ^^ : )

#####
# ¿ #
#####

# Kanal'i belirtin.
set ara(kanal) "#Webmaster"

# Komut on eki.
set ara(komut) ".ara"

##########
# CISS ! #
##########

bind pub – $ara(komut) ara:sira
proc ara:sira {nick uhost hand chan text} {
global botnick ara
if {[string match -nocase $ara(kanal) $chan]} {
set url "[lindex $text 0]"
set keyword "[lrange $text 1 end]"
regsub -all " " $keyword "%20" keyword
if {$url == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara <url> <kelime> seklindedir."; return 0 }
if {$keyword == ""} { putquick "PRIVMSG $chan :Kullanimi: .ara $url <kelime> seklindedir."; return 0 }
set apiweb "[Only Registered Users Can See Links]$url&keyword=$keyword"
catch {set sayfa [::[Only Registered Users Can See Links] $apiweb -timeout 5000]} error
if {[string match -nocase "*couldn't open socket*" $error]} {
putquick "PRIVMSG $chan :Hata: Suan siteye baglanilamiyor... Daha sonra tekrar deneyiniz..."
::[Only Registered Users Can See Links] $sayfa
return 0
}
if {[::[Only Registered Users Can See Links] $sayfa] == "*timeout*"} {
putquick "PRIVMSG $chan :Hata: Baglanti zaman asimina ugradi..."
::[Only Registered Users Can See Links] $sayfa
return 0
}
set html "[::[Only Registered Users Can See Links] $sayfa]"
::[Only Registered Users Can See Links] $sayfa
regexp -nocase {<hata>(.*?)</hata>} $html match hata
regexp -nocase {<sonuc>(.*?)</sonuc>} $html match sonuc
regexp -nocase {<sira>(.*?)</sira>} $html match sira
regexp -nocase {<link>(.*?)</link>} $html match link
if {[info exists hata]} {
putquick "PRIVMSG $chan :4$hata"
}
if {[info exists sonuc]} {
putquick "PRIVMSG $chan :12G4o7o12g3l4e 1siralamaniz asagida yer almaktadir:"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :10Aranan(lar):"
putquick "PRIVMSG $chan :4Url:2 $url"
regsub -all "%20" $keyword " " keyword
putquick "PRIVMSG $chan :4Kelime:2 $keyword"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :10Sonuc(lar):"
putquick "PRIVMSG $chan :4Siraniz:2 $sira"
putquick "PRIVMSG $chan :4Link:2 $link"
putquick "PRIVMSG $chan :"
putquick "PRIVMSG $chan :12G4o7o12g3l4e 1sorgulama sonu..."
}
::[Only Registered Users Can See Links] $html
}
}

#######
# SON #
#######

[Goemon]

Denemem lazım en kısa zamanda