»22:20:44« <10ShellTC1> !ara sohbettc
»22:20:47« <BilgiTC> 1) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:47« <BilgiTC> 2) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:47« <BilgiTC> 3) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:47« <BilgiTC> 4) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:50« <BilgiTC> 5) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:52« <BilgiTC> 6) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:54« <BilgiTC> 7) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:54« <BilgiTC> 8) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:56« <BilgiTC> 9) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:20:58« <BilgiTC> 10) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]"
»22:21:00« <BilgiTC> 4Arama Bitti.!

# Komut Dizini Ornek !Bul 
set google(triggers) "!Ara" 
#######################################
#bundan sonrasına dokunmayın arkadaşlar
#######################################
set google(flags) "-|-" 
set google(nopub) "" 
set google(antiflood) 5 
set google(method) 1 
set google(results) 10 
set google(perline) 1 
### Aram.Tcl Configure Bitisi Lütfen Alt Kisimlarda Oynama Yapmayiniz.! ### 
## ossoara.tcl Ayarlar Bitisi ## 
#die "Lütfen Scriptinizi Tam Olarak Ayarladiysaniz Bu Satirin Basina Diez (#) Koyunuz .!" 
#Editleme düzenleme SohbetTc.Com 
# Google.com.tr ye göre düzenlenmiştir.
######################################################################################## 
### Tcl Code Girisi.! Dikkat Oynama Yapmayiniz.! ### 
set google(version) 0.4 
if {[catch { package require http } err]} { 
putlog "Loadda Hata [file tail [info script]]: Http Aramada Hata Olustu.!: $err" 
return 1 
} 
if {[info tclversion] < 8.1} { 
putlog "Loadda Hata [file tail [info script]]: Eggdrop Sisteminizdeki Tcl Yanit Vermiyor Lütfen 8.1 Version Yükleyiniz.! [info tclversion]." 
return 1 
} 
foreach trigger [split $google(triggers)] { 
bind pub $google(flags) $trigger google:pub 
} 
catch { unset trigger } 
proc google:output {chan nick output} { 
global google 
switch $google(method) { 
0 { putquick "PRIVMSG $nick :$output" } 
1 { putquick "PRIVMSG #arama :$output" } 
2 { putquick "NOTICE $nick :$output" } 
3 { putquick "NOTICE #arama :$output" } 
default { putquick "PRIVMSG #arama :$output" } 
} 
} 
proc google:pub {nick uhost hand chan text} { 
global lastbind google 
if {[lsearch -exact $google(nopub) [string tolower $chan]] >= 0} { return 0 } 
if {[string length [string trim [lindex $text 0]]] == 0} { 
putquick "NOTICE $nick :Usage: $lastbind <Aranilacak-Kelime>" 
return 0 
} 
if {[info exists google(floodprot)]} { 
set diff [expr [clock seconds] - $google(floodprot)] 
if {$diff < $google(antiflood)} { 
putquick "NOTICE $nick :Yeni Bir Arama Yapmaniz Icin Lütfen [expr $google(antiflood) - $diff] Saniye Daha Bekleyiniz.!.." 
return 1 
} 
catch { unset diff } 
} 
set google(floodprot) [clock seconds] 
regsub -all { } [join $text] {+} search 
set google(url) "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
set google(page) [http::config -useragent "Mozilla"] 
if {[catch {set google(page) [http::geturl $google(url) -timeout 15000]} msg]} { 
putquick "NOTICE $nick :Giris Yapilamiyor.! ($msg)" 
return 0 
} 
set google(data) [http::data $google(page)] 
if {$google(results) >= 1} { 
regexp -nocase {related:(.*?)>} $google(data) t link1 
} 
if {$google(results) >= 2} { 
regexp -nocase {related:.*?>.*?related:(.*?)>} $google(data) t link2 
} 
if {$google(results) >= 3} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link3 
} 
if {$google(results) >= 4} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link4 
} 
if {$google(results) >= 5} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link5 
} 
if {$google(results) >= 6} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link6 
} 
if {$google(results) >= 7} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link7 
} 
if {$google(results) >= 8} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link8 
} 
if {$google(results) >= 9} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link9 
} 
if {$google(results) >= 10} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link10 
} 
if {$google(results) >= 11} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link11 
} 
if {$google(results) >= 12} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link12 
} 
if {$google(results) >= 13} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link13 
} 
if {$google(results) >= 14} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link14 
} 
if {$google(results) >= 15} { 
regexp -nocase {related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:.*?>.*?related:(.*?)>} $google(data) t link15 
} 
if {$google(perline) == 1} { 
set separator "\n" 
} else { 
set separator "-" 
} 
if {[info exists link15]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11 $separator http://$link12 $separator http://$link13 $separator http://$link14 $separator http://$link15" 
} elseif {[info exists link14]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11 $separator http://$link12 $separator http://$link13 $separator http://$link14" 
} elseif {[info exists link13]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11 $separator http://$link12 $separator http://$link13" 
} elseif {[info exists link12]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11 $separator http://$link12" 
} elseif {[info exists link11]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9 $separator http://$link10 $separator http://$link11" 
} elseif {[info exists link10]} { 
set output "1) http://$link1 $separator 2) http://$link2 $separator 3) http://$link3 $separator 4) http://$link4 $separator 5) http://$link5 $separator 6) http://$link6 $separator 7) http://$link7 $separator 8) http://$link8 $separator 9) http://$link9 $separator 10) http://$link10 $separator 7>>> 4Arama Bitti.! 7<<<  " 
} elseif {[info exists link9]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8 $separator http://$link9" 
} elseif {[info exists link8]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7 $separator http://$link8" 
} elseif {[info exists link7]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6 $separator http://$link7" 
} elseif {[info exists link6]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5 $separator http://$link6" 
} elseif {[info exists link5]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4 $separator http://$link5" 
} elseif {[info exists link4]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3 $separator http://$link4" 
} elseif {[info exists link3]} { 
set output "http://$link1 $separator http://$link2 $separator http://$link3" 
} elseif {[info exists link2]} { 
set output "http://$link1 $separator http://$link2" 
} elseif {[info exists link1]} { 
set output "http://$link1" 
} else { 
set output "HerhanGi Bir Arama Sonucu Bulunmadi.!" 
} 
regsub -all {%26} $output {\&} output 
regsub -all {%3F} $output {?} output 
regsub -all {%3D} $output {=} output 
if {$google(perline) == 1} { 
foreach line [split $output \n] { 
google:output $chan $nick [string trim $line] 
} 
} else { 
google:output $chan $nick [string trim $output] 
} 
catch { unset output separator t link1 link2 link3 link4 link5 link6 link7 link8 link9 link10 link11 link12 link13 link14 link15 } 
catch { http::cleanup $google(page) } 
return 1 
}