Kelebek Yükle

İnternet dünyasının sevilen programları arasında olan Mirc programını, günümüzde binlerce kişi kullanmaktadır. Bu program genellikle İnternet salonlarında hayatımıza giren, Türkiye’nin her yerinden binlerce insanla tanışmamızı sağlayan sohbet programıdır. İnternet salonlarında kullanılan scriptin adı Kelebek script’tir. Bu nedenle günümüzde kullanıcılar Google’da Kelebek indir yazarak arama yapmakta. Daha sonra programı indirerek kolayca sohbete bağlanmakta. Elbette arkadaşlık günümüzde önemli bir hal aldı. İnternet’in de hayatımıza girmesiyle arkadaşlık bağlarımız oldukça zayıfladı, fakat dijital platformun buna da bir çaresi var. Canlı sohbet – arkadaşlık siteleri.

Kelebek sohbet yapmak için vermiş olduğumuz sayfayı ziyaret ederek programı indirmeniz yeterli. Programı indirdikten sonra, tek tıkla programı kurabilirsiniz ve sohbet’e başlayabilirsiniz. Hemde bütün bunlar ücretsiz. Evet yanlış duymadınız, size binlerce yeni insanla tanışma fırsatını ücretsiz sunuyoruz. Daha ne bekliyorsunuz? Aradığınız aşk yanı başınızda değil bir tık uzağınızda. Kelebek programı 15 farklı anti-virüs taramasından geçirilerek sizlerle buluşturulmuş, kaliteli bir programdır. Bu nedenle programı indirirken “Acaba kötü bir yazılım var mı?” diye korkmanıza gerek yok. Nod32, Eset, Avast, Panda, KasperSky, Microsoft Essential v.b. programları tarafından taratılmış olan bu programı ücretsiz indirin!

Kelebek Yükleyerek hemen sohbete başlayabilirsiniz. Sohbet etmek istemezseniz canlı radyomuzu dinleyebilir, isteklerinizi belirtebilir, kesintisiz müzik keyfini yaşayabilirsiniz. Bunun yanında  birbirinden farklı oyunları sunucumuza bağlanarak oynayabilirsiniz. Bütün bunları sizlere ücretsiz olarak sunuyoruz. Bunun yanında aradığınız arkadaşlığı da bulacağınızı söylüyoruz. Peki daha ne bekliyorsunuz? Hemen Kelebek indirin kesintisiz sohbet’in keyfine varın. Kelebek sohbet, Türkiye’de kurulan en eski internet sitelerinden birisidir. Türkiye’de internet deyince akla ilk gelen sitelerin başında kelebek chat gelmektedir. Kelebek sohbet kullanıcılarına sunduğu bir çok farklı aktivite ile hala binlerce kişi tarafından kullanılan bir sitedir. Kelebek chat üzerinden bir çok aktiviteyi aynı anda yapabilirsiniz.Kelebek Sohbet’in kullanıcıları tarafından en çok kullanılan uygulaması kelebek chat’tir.

Mirc

İnternet dünyasının sevilen programları arasında olan Mirc programını, günümüzde binlerce kişi kullanmaktadır. Bu program genellikle İnternet salonlarında hayatımıza giren, Türkiye’nin her yerinden binlerce insanla tanışmamızı sağlayan sohbet programıdır. İnternet salonlarında kullanılan scriptin adı Kelebek script’tir. Bu nedenle günümüzde kullanıcılar Google’da Kelebek indir yazarak arama yapmakta. Daha sonra programı indirerek kolayca sohbete bağlanmakta. Elbette arkadaşlık günümüzde önemli bir hal aldı. İnternet’in de hayatımıza girmesiyle arkadaşlık bağlarımız oldukça zayıfladı, fakat dijital platformun buna da bir çaresi var. Canlı sohbet – arkadaşlık siteleri.

Kelebek sohbet yapmak için vermiş olduğumuz sayfayı ziyaret ederek programı indirmeniz yeterli. Programı indirdikten sonra, tek tıkla programı kurabilirsiniz ve sohbet’e başlayabilirsiniz. Hemde bütün bunlar ücretsiz. Evet yanlış duymadınız, size binlerce yeni insanla tanışma fırsatını ücretsiz sunuyoruz. Daha ne bekliyorsunuz? Aradığınız aşk yanı başınızda değil bir tık uzağınızda. Kelebek programı 15 farklı anti-virüs taramasından geçirilerek sizlerle buluşturulmuş, kaliteli bir programdır. Bu nedenle programı indirirken “Acaba kötü bir yazılım var mı?” diye korkmanıza gerek yok. Nod32, Eset, Avast, Panda, KasperSky, Microsoft Essential v.b. programları tarafından taratılmış olan bu programı ücretsiz indirin!

Kelebek İndir

İnternet dünyasının sevilen programları arasında olan Mirc programını, günümüzde binlerce kişi kullanmaktadır. Bu program genellikle İnternet salonlarında hayatımıza giren, Türkiye’nin her yerinden binlerce insanla tanışmamızı sağlayan sohbet programıdır. İnternet salonlarında kullanılan scriptin adı Kelebek script’tir. Bu nedenle günümüzde kullanıcılar Google’da Kelebek indir yazarak arama yapmakta. Daha sonra programı indirerek kolayca sohbete bağlanmakta. Elbette arkadaşlık günümüzde önemli bir hal aldı. İnternet’in de hayatımıza girmesiyle arkadaşlık bağlarımız oldukça zayıfladı, fakat dijital platformun buna da bir çaresi var. Canlı sohbet – arkadaşlık siteleri.

Kelebek sohbet yapmak için vermiş olduğumuz sayfayı ziyaret ederek programı indirmeniz yeterli. Programı indirdikten sonra, tek tıkla programı kurabilirsiniz ve sohbet’e başlayabilirsiniz. Hemde bütün bunlar ücretsiz. Evet yanlış duymadınız, size binlerce yeni insanla tanışma fırsatını ücretsiz sunuyoruz. Daha ne bekliyorsunuz? Aradığınız aşk yanı başınızda değil bir tık uzağınızda. Kelebek programı 15 farklı anti-virüs taramasından geçirilerek sizlerle buluşturulmuş, kaliteli bir programdır. Bu nedenle programı indirirken “Acaba kötü bir yazılım var mı?” diye korkmanıza gerek yok. Nod32, Eset, Avast, Panda, KasperSky, Microsoft Essential v.b. programları tarafından taratılmış olan bu programı ücretsiz indirin!

Kelebek Yükleyerek hemen sohbete başlayabilirsiniz. Sohbet etmek istemezseniz canlı radyomuzu dinleyebilir, isteklerinizi belirtebilir, kesintisiz müzik keyfini yaşayabilirsiniz. Bunun yanında  birbirinden farklı oyunları sunucumuza bağlanarak oynayabilirsiniz. Bütün bunları sizlere ücretsiz olarak sunuyoruz. Bunun yanında aradığınız arkadaşlığı da bulacağınızı söylüyoruz. Peki daha ne bekliyorsunuz? Hemen Kelebek indirin kesintisiz sohbet’in keyfine varın. Kelebek sohbet, Türkiye’de kurulan en eski internet sitelerinden birisidir. Türkiye’de internet deyince akla ilk gelen sitelerin başında kelebek chat gelmektedir. Kelebek sohbet kullanıcılarına sunduğu bir çok farklı aktivite ile hala binlerce kişi tarafından kullanılan bir sitedir. Kelebek chat üzerinden bir çok aktiviteyi aynı anda yapabilirsiniz.Kelebek Sohbet’in kullanıcıları tarafından en çok kullanılan uygulaması kelebek chat’tir.

Mirc Download

mIRC, yıllardır internet aleminin popüler sohbet programıdır. Bugün bile binlerce kullanıcı mirc programı ile yeni insanlarla tanışmakta, onlarla sohbet etmekte hatta evlenmektedir. Bu programın yazarı “Khaled Mardam Bey” dir. Türkçeleştirilmesini ile “McKruger” yapmıştır. Günümüzde, mirc sohbet uygulamalarının yerini görüntülü ve sesli sohbet siteleri almıştır fakat, mirc programı günden güne gelişmektedir. Önümüzdeki yıllarda, mirc programı alanında ciddi ilerlemeler kaydedilecektir.

Bu programın orjinal sürümünü mirc’in resmi sitesinden download edebilirsiniz. Fakat türkçe karakter problemi olduğu için sunuculara bağlanırken problem yaşayabilirsiniz. Bu nedenle Google, Yahoo veya Yandex arama motoruna Türkçe Mirc yazarak, sitemiz üzerinden türkçe karakter problemi olmayan mirc programını indirebilirsiniz. Programın kurulumu ve kullanımı kolaydır, türkçe olması nedeni ile programın kurulumunda herhangi bir problem yaşamazsınız. Mirc programı kota dostudur, fazla kota harcamaz bu nedenle kabarık internet faturanız gelmez.

Mirc programını indirdikten sonra, kayıt ekranında herhangi bir şey yapmanıza gerek yoktur. Sadece sohbette kullanacağınız nick’i (takma isim) yazıp, bağlanmanız yeterlidir. Bağlandıktan sonra binlerce sunucudan istediğiniz kanallara girebilir, oradaki insanlarla konuşabilir, sohbet edebilirsiniz. Hemde ücretsiz 🙂 Peki siz neden bekliyorsunuz? Hadi Mirc programının en güncel sürümünü indirin, Türkiye’nin her yerinden insanlarla tanışın, kaynaşın, sohbet edin, hatta evlenin 🙂  Unutmayın Mirc Download hiç bu kadar kolay olmamıştı.

Eggdrop, TCL Nedir? Nasıl Yüklenir?

Eggdrop, mirc (sohbet) sunucularının oyun kanallarında hizmet veren botların yürütüldüğü sistem (program)’dır. Bu sistemin kurulu olduğu sunucularda, kullanıcılar kolaylıkla oyun kanallarında oyun oynayabilir. Bu sistem ile oyun botları haricinde, IRC sunucu sahipleri sunucularının güvenliğini koruma botları ile sağlayabilir. Eggdrop bir sistem olduğu için botlar 7/24 sunucu üzerinde bağlı kalırlar. Böylece kullanıcılarının oyun kanallarında istediği kadar oyun oynaması, ve durması sağlanabilir.

TCL: IRC sunucularında gördüğümüz, oyun botlarının içeriğine verilen isimdir. TCL script olarakta adlandırılan bu yazılım dili, internet aleminin bir çok alanında kullanılmaktadır. IRC sunucularında ise, oyun veya koruma botlarının içeriğini bu yazılım dili oluşturmaktadır. Türk sunucularında tcl script (eggdrop ile çalışan oyun botu) kullanımı yaygındır. Bu nedenle bağlandığınız herhangi bir sunucuda bu yazılım dili ile oluşturulmuş olan botları kolayca görebilirsiniz.

Genellikle oyun botları ile hizmet veren sunucular, koruma botlarının yazılımındada bu dili kullanmaktadır. Ne yazık ki Türk sunucuları içerisinde bu yazılım dilini bilen fazla insan bulunmamaktadır. Bu nedenle internetten bulmuş olduğunuz yabancı dökümanları inceleyerek TCL scripting’i kolayca öğrenebilirsiniz. Gelelim kullanımı ve kurulumuna, kurulumu için öncelikle irc hosting’inizin olması gereklidir, internet üzerinden indirdiğiniz tcl botun .tcl dosyasındaki ayarları yapıp, .conf dosyanızı sunucu içeriğine göre düzenlemeli, ftpye bağlanarak conf dosyasını eggdrop klasörüne, tcl dosyasını ise scripts klasörüne atmalısınız.

Bu işlemlerden sonra, ssh (telnet) aracılığı ile botunuzu bağlayabilirsiniz. Üstelik tcl scripting dili ile yazılan botlar sürekli sunucuda bağlı kaldığı için, diğer botlar gibi extra ücret gerektirmez. Kullanımı ve kurulumu kolaydır, irc sunucusu açmak isteyen bireylerin bu yazılım dilini kullanarak bot yazması, gerçekten IRC sunucuları için çok yararlı olacaktır. Sizde internetten bulduğunuz dökümanları inceleyerek bu yazılım dilini kolayca öğrenebilirsiniz. 🙂

Pagerank TCL

###############   K O M U T L A R  B Ö L Ü M Ü   #############  
##                                                          ##  
##     Botumuzun sunucu üzerindeki çalıştıran komutlarını   ##  
##      kendinize özel yapabilir yada asla değiştirmeden    ##  
##             mevcut hali ile kullanabilirsiniz            ##  
##                                                          ##  
##############################################################  

set webmaster(kanal) “#SEO”  
set webmaster(pr) “!pagerank”   

bind pub – $webmaster(pr) pr:check   
proc pr:check {nick uhost hand chan text} {   
  global botnick webmaster  
  if {[string match “$webmaster(kanal)” $chan]} {  
    set url [lindex $text 0]   
    if {$url == “”} {  
      putquick “PRIVMSG $webmaster(kanal) :Hata: Herhangi bir web sitesinin pagerank değerini öğrenmek için lütfen bir url belirtiniz.”  
    }   
    set connect [::http::geturl http://www.prapi.net/?url=$url]    
    set files [string map[list n ” “] [::http::data $connect]]  
    regexp — {<span>.*? has pagerank is : <font>(.*?)</font></span><br/>} $files – rank  
    ::http::cleanup $connect   
    putquick “privmsg $webmaster(kanal) › Belirtmiş olduğunuz url: $url”  
    putquick “privmsg $webmaster(kanal) › Google pagerank değeriniz: $rank”   
  }  
} 

IP Sorgula (Nerden) TCL

Kod:

##################################################################
#          IP Sorgulama TCL v1.0 - Written By CLubber            #
#      Bu TCL ile istediğiniz bir ip'yi sorgulayabilirsiniz.     #
#            Kullanımı: <!ipsorgula ip> şeklindedir.             #
#       TCL'nin çalışabilmesi için HTTP TCL'ye ihtiyaç vardır.   #
##################################################################

# Komutun Kullanılacağı Kanal
set cmd_chan "#OperLog"

############################################
# IP Sorgula TCL v1.0 - Written By CLubber #
############################################
bind pub - !ipsorgula msg_sorgula
proc msg_sorgula {nick uhost hand chan text} {
  global botnick cmd_chan
  if {$text == ""} {putquick "PRIVMSG $cmd_chan :Herhangi bir ip'yi sorgulamak için lütfen komutu doğru kullanınız. Kullanımı: <!ipsorgula ip> şeklindedir.";return}
  set connect [::http::geturl http://ipstats.ircfanclub.com/stats.php?ip=$text] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "\n"]
  foreach i $list {
    regexp -- {<b>Sorgulanan IP Bilgileri:</b> (.+?)</font>} $i - ip
    regexp -- {<b>Ulke:</b></font> (.+?)<br />} $i - country
    regexp -- {<b>Ulke Kodu:</b></font> (.+?)<br />} $i - code
    regexp -- {<b>Sehir:</b></font> (.+?)<br />} $i - city
    regexp -- {<b>Plaka:</b></font> (.+?)<br />} $i - plaka
    if {[info exists ip]} { 
      putquick "privmsg $cmd_chan Sorgulanan IP Bilgileri: $ip"
      unset ip
    }
    if {[info exists country]} { 
      putquick "privmsg $cmd_chan Ülke: $country"
      unset country
    }
    if {[info exists code]} { 
      putquick "privmsg $cmd_chan Ülke Kodu: $code"
      unset code
    }
    if {[info exists city]} { 
      putquick "privmsg $cmd_chan Şehir: $city"
      unset city
    }
    if {[info exists plaka]} { 
      putquick "privmsg $cmd_chan Plaka: $plaka"
      unset plaka
    }
  }
::http::cleanup $files
}

putlog "IP Sorgula TCL v1.0 - Written By CLubber"

NOT: Botunuzun çalışması için http.tcl gereklidir. Http TCL’yi buradan indirebilirsiniz.

http.tcl indir

http.tcl’yi eggdrop/scripts klasörüne attıktan sonra, botunuzun confunun en alt satırına

Kod:

source scripts/http.tcl

kodunuda eklemeniz gerekmektedir.

Whois TCL

Bu TCL ile #Opers kanalında birine whois çekip bilgileri yansıtabilirsiniz, basit bir TCL belki işe yarar diye paylaşıyorum. Türkçeye çevirip 1-2 ekleme yaptıklarımdan biri bu da. Kullanım;

!whois Nick

PHP- Kodu:

   set whois(author) "Nickiniz"

set whois(version) "1.8"
set whois(acc) ""
# Düzenleme bitti

bind pub $whois(acc) "!whois" whois:nick

proc whois:nick { nickname hostname handle channel arguments } {
global whois
set target [lindex [split $arguments] 0]
if {$target == ""} {
putquick "PRIVMSG $channel :Bişey yazmadın, nick vermedin?"
return 0
}
# if {[string length $target] >= "15"} {
# putquick "PRIVMSG $channel :Sence de bir nick için aşırı uzun bir kelime yazmadın mı?"; return
# }
# if {[regexp -all -- {[~\[\]\{\}\|\_\\]} $target]} {
# putquick "PRIVMSG $channel :Üzgünüm, farsça bilmiyorum. Özel karakterli nickler yazma."; return
# }
putquick "WHOIS $target $target"
set ::whoischannel $channel
set ::whoistarget $target
bind RAW - 401 whois:nosuch
bind RAW - 311 whois:info
bind RAW - 319 whois:channels
bind RAW - 301 whois:away
bind RAW - 313 whois:ircop
bind RAW - 330 whois:auth
bind RAW - 317 whois:idle
bind RAW - 307 whois:reged
}

proc whois:putmsg { channel arguments } {
putquick "PRIVMSG $channel :$arguments"
}

proc whois:info { from keyword arguments } {
set channel $::whoischannel
set nickname [lindex [split $arguments] 1]
set ident [lindex [split $arguments] 2]
set host [lindex [split $arguments] 3]
set realname [string range [join [lrange $arguments 5 end]] 1 end]
whois:putmsg $channel "$nickname - $ident@$host * $realname"
unbind RAW - 311 whois:info
}

proc whois:ircop { from keyword arguments } {
set channel $::whoischannel
set target $::whoistarget
whois:putmsg $channel "$target bir sunucu yetkilisi."
unbind RAW - 313 whois:ircop
}

proc whois:reged { from keyword arguments } {
set channel $::whoischannel
set target $::whoistarget
whois:putmsg $channel "$target şifreli (kayıtlı) bir nicktir."
unbind RAW - 307 whois:reged
}

proc whois:away { from keyword arguments } {
set channel $::whoischannel
set target $::whoistarget
set awaymessage [string range [join [lrange $arguments 2 end]] 1 end]
whois:putmsg $channel "$target şu an away konumunda: $awaymessage"
unbind RAW - 301 whois:away
}

proc whois:channels { from keyword arguments } {
set channel $::whoischannel
set channels [string range [join [lrange $arguments 2 end]] 1 end]
set target $::whoistarget
whois:putmsg $channel "$target nicki $channels kanallarında bulunuyor."
unbind RAW - 319 whois:channels
}

proc whois:auth { from keyword arguments } {
set channel $::whoischannel
set target $::whoistarget
set authname [lindex [split $arguments] 2]
whois:putmsg $channel "$target orjinal nicki: $authname"
unbind RAW - 330 whois:auth
}

proc whois:nosuch { from keyword arguments } {
set channel $::whoischannel
set target $::whoistarget
whois:putmsg $channel "Böyle bir nick yok: \"$target\""
unbind RAW - 401 whois:nosuch
}

proc whois:idle { from keyword arguments } {
set channel $::whoischannel
set target $::whoistarget
set idletime [lindex [split $arguments] 2]
set signon [lindex [split $arguments] 3]
whois:putmsg $channel "$target konuşmadığı süre: [duration $idletime]. Giriş zamanı: [ctime $signon]"
unbind RAW - 317 whois:idle
}


mIRC TCL Botlar – WordPress Com

VIP Bot TCL

Merhaba,

Bu TCL ile, listeye eklediğiniz kullanıcılar kanal girişlerinde otomatik voice (veya başka modlar) alacak, kişiler ayrıca bir mesajla karşılanacaklardır.

Kullanım:

!vipekle Nick
!vip on/off
!vipsil Nick
!vipliste

PHP- Kodu:

#VIP olanların host taramasının yapılacağı süre (dakika cinsinden)

set viptime "30"

#VIP olanlara mesaj gönderilsin istiyorsan "1" yap, aksi halde "0" yap

set viphowmsg "1"

#Eğer "1" yapmışsan mesajı buraya yaz.

set vipmsg "Tebrikler, bu kanalda VIP olduğunuz için Voice (+) aldınız :)"

#VIP eklemeye yetkili olanların flagları

set vipwho "Nmn|MN"

############ AYARLAR BURAYA KADAR ##############

bind pub $vipwho !vip vipstatus
bind pub $vipwho !vipekle addvip
bind pub $vipwho !vipsil remvip
bind pub $vipwho !vipliste listvip
bind join - * vipscan
setudef flag vip

if {![info exists vips_running]} {
timer $viptime vips
set vips_running 1
}

proc vipstatus {nick host hand chan arg} {
set flag "vip"
set why [lindex [split $arg] 0]
if {$why == "" } { puthelp "NOTICE $nick :Kullanım: !vip <on> / <off>"
return 0
}
if {$why == "on"} {
channel set $chan +$flag
puthelp "NOTICE $nick :Kanalda VIP Sistemi aktif hale getirildi: $chan"
return 0
}
if {$why == "off"} {
channel set $chan -$flag
puthelp "NOTICE $nick :VIP Sistemi kapatılan kanal: $chan"
return 0
}
}

proc addvip {nick host hand chan arg} {
set dir "logs/vip($chan).txt"
set vip [join [lindex [split $arg] 0]]
if {$vip == ""} { puthelp "NOTICE $nick :Kullanım: !vipekle <nick>"
return 0
}

if {[file exists $dir] == 0} {
set file [open $dir a]
close $file
}

set file [open $dir a]
puts $file $vip
close $file
puthelp "NOTICE $nick :Eklenen VIP - $vip - veritabanına eklendi."
}

proc listvip {nick host hand chan arg} {
set dir "logs/vip($chan).txt"
if {[file exists $dir] == 0} {
set file [open $dir a]
close $file
}
set file [open $dir "r"]
set w [read -nonewline $file]
close $file
set data [split $w "\n"]
set i 0
if {$data == ""} { puthelp "NOTICE $nick :Eklenen hiç VIP Yok!"
return 0
}

foreach vip $data {
set i [expr $i +1]
lappend vipnumber $i.$vip
}
foreach txt [wordwrap [join $vipnumber " "] 200] {
puthelp "NOTICE $nick :VIP Eklenenler Listesi :"
puthelp "NOTICE $nick :$txt"
}
}

proc remvip {nick host hand chan arg} {
set dir "logs/vip($chan).txt"
set number [join [lindex [split $arg] 0]]
if {$number == ""} { puthelp "NOTICE $nick :Kullanım: !vipsil <number> (Listeden Seç)"
return 0
}
if {[file exists $dir] == 0} {
set file [open $dir a]
close $file
}
set file [open $dir "r"]
set data [read -nonewline $file]
close $file
set lines [split $data "\n"]
set i [expr $number - 1]
set delete [lreplace $lines $i $i]
set files [open $dir "w"]
puts $files [join $delete "\n"]
close $files
puthelp "NOTICE $nick :VIP Listesinden, $number numaralı kişi silindi. Kontol etmek için !vipliste komutunu kullanın."
}

proc vipscan {nick host hand chan} {
global vipmsg viphowmsg
set dir "logs/vip($chan).txt"
if {[file exists $dir] == 0} {
set file [open $dir a]
close $file
}
set file [open $dir "r"]
set w [read -nonewline $file]
close $file
set data [split $w "\n"]
if {$data == ""} {
return 0
}
foreach vip $data {
if {[string match -nocase $nick $vip]} {
if {$viphowmsg == "1"} {
puthelp "NOTICE $nick :$vipmsg"
}
pushmode $chan +v $vip
}
}
}

proc vips { } {
global viptime
foreach chan [channels] {
set dir "logs/vip($chan).txt"
if {[channel get $chan vip]} {
putlog "$chan kanalında VIP taraması yapılıyor.."
set file [open $dir "r"]
set w [read -nonewline $file]
close $file
set data [split $w "\n"]
foreach vip $data {
if {[onchan $vip $chan]} {
if {![isvoice $vip $chan]} {
pushmode $chan +v $vip
}
}
}
}
}
timer $viptime vips
return 1
}

proc wordwrap {str {len 100} {splitChr { }}} {
set out [set cur {}]; set i 0
foreach word [split [set str][unset str] $splitChr] {
if {[incr i [string len $word]]>$len} {
lappend out [join $cur $splitChr]
set cur [list $word]
set i [string len $word]
} {
lappend cur $word
}
incr i
}
lappend out [join $cur $splitChr]
}


İsterseniz modları kendinize göre değişin, +v yerine +o verdirebilir veya birden fazla mod kullanabilirsiniz. Güle güle kullanın.

Google Arama (Search) TCL

Merhaba, bu tcl script ile google üzerinden dosya, müzik vs araması yaptırabilirsiniz sunucunuzda.

Kod:

#######################################################################
#######################################################################
#                        Google by CeSAR                               #
#                            v1.0                                     #
#                                                                     #
#  Gets search results from Google.com. Nothing fancy yet, just gets  #
#  however many returns you want.  Idea is based on a script by       #
#  aNa|0Gue, although the code is all new.                            #
#                                                                     #
#                 Latest version @ http://www.blueday.org             #
#                 Comments & Questions to murf@mindless.com           #
#######################################################################
#  Only tested on TCL v8.3 and Egg v1.6x, although I kept the code    #
#  generic enough for TCL v8.0 and probably v1.3 of egg.              #
#######################################################################
#                                                                     #
#  Commands                                                           #
#                                                                     #
#          .google keyword(s) <# of results>                          #
#                                                                     #
#          e.g. .google murf 5                                        #
#                                                                     #
#   Version                                                           #
#      v1.0 Aug 16 2002                                               #
#         -- first version                                            #
#                                                                     #
#        Contact murf@mindless.com for bugs/comments                  #
#        This and other scripts available @ www.blueday.org           #
#######################################################################
#######################################################################

## default number of returns

set google_def_num 10

## max number of returns

set google_max 10

## public bind 

set glpubbind ara

set gl_output "PRIVMSG $nick"
##########binds######################
bind pub -|- $glpubbind pub_google

##########Procs######################

proc pub_google {nick uhost handle chan search} {
  global gl_ouput
  set gl_output "PRIVMSG $nick"
  if {[llength $search] == 0} {
     puthelp "$gl_output : Ne aricagini soylemeyi unutmadin mi acaba!?"
     return 0
  }
  set url [google_url $search $nick $chan]
  google_getpage $url
  return 0
}

## Google_url #############################################

## Takes input and parses to set the url, returns the url

proc google_url {search nick chan} {
  global google_def_num google_max gl_output
  set google_num [lindex $search end]
  if {[regexp { [0-9]+} $search match $google_num]} {
     if {$google_num > $google_max} { set google_num $google_max }
     set search [lrange $search 0 [expr {[llength $search] - 2}]]
  } else {
     set google_num $google_def_num
  }
  if {$google_num >= 5} { 
     set gl_output "PRIVMSG $nick"
  } else {
     set gl_output "PRIVMSG $chan"
  }
  regsub -all { } $search {+} search 
  set url "/search?hl=en&num=$google_num&lr=&ie=ISO-8859-1&q=$search"
  return $url
}

## google_getpage ##########################################

## gets the webpage and parses for the returns

proc google_getpage {url} {
   global gl_output
## Open socket

   if {[catch {set glsock [socket -async www.google.com.tr 80]} sockerr]} {
      puthelp "PRIVMSG $nick :$sockerr"
      puthelp "PRIVMSG $nick :Daha sonra dene, bu sirada pencereden disari bakabilirsin!"
      close $glsock
      return 0
   }
   puts $glsock "GET $url"
   flush $glsock
   set i 0
   set j 1 
  set glout [gets $glsock]
  while {[regexp {Dissatisfied with your results?} $glout] == 0} {
     set glout [gets $glsock]    
     incr i
     if {$i >= 150} {
        break
     } 
     if {[regexp {#008000>(.*?) - } $glout match gl_result($j)]} {
        puthelp "$gl_output :$j. http://$gl_result($j)"
        incr j
     }
  }
  close $glsock
  return 0
}

putlog "Google v1.0 by CeSaR loaded"