IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Buyrun sorunsuz calışıyor..

Kod:

        # ======= Bot en az IRCOP olmal
 ıdır. ======
 

        set url "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Verilerin alınacağı sitenin adresi.
 

        set sayfa "/gunluk_fal/bugun.asp?burc="                ;# Başvuru yapılacak web sayfası.
 

         set port 80                                                        ;# Web portu.
 

        set baskelime "<strong><big>"                                ;# Web sayfasındaki yorumun başladığı html kodu
 

        set bitkelime "</big></strong>"                        ;# Web sayfasındaki yorumun bittiği html kodu
 

        set baslen [strlen $baskelime]                        ;# Dokunmayın.
 

        set burckanali "#astroloji"                                ;# Botun bulunacağı ve iletileri yazacağı kanal.
 

        set bekleme "30"                                                ;# İkinci bir yorumu almak için kişinin bekleme süresi (Sn.)
 

        set satiruzunlugu "250"                                        ;# Bir seferde kişiye gönderilecek azami satır uzunluğu.
 

        set cevapturu "0"                                                ;# 0- yorum kanala, 1- yorum özele.
 

bind pub - !burc pub:burc
 

proc pub:burc {n u h c a } {
 

 global burckanali bekleme
 

         set c [string tolower [lindex $c 0]]
 

         if {$c != $burckanali} { return 0 }
 

         if {[beklemekontrol $u,$c $bekleme]} {
 

                putquick "PRIVMSG $n :Sık aralıklarla istekte bulunamazsınız!"
 

                putquick "PRIVMSG $n :Tekrar yorum almak için lütfen $bekleme saniye bekleyip yeniden deneyiniz."
 

                return 0
 

        } else {
 

        set burc "[string tolower [lindex $a 0]]"
 

        switch -- $burc {
 

                "koc" { baglan $n 1 Koç }
 

                "boga" { baglan $n 2 Boğa }
 

                "ikizler" { baglan $n 3 İkizler }
 

                "yengec" { baglan $n 4 Yengeç }
 

                "aslan" { baglan $n 5 Aslan }
 

                "basak" { baglan $n 6 Başak }
 

                "terazi" { baglan $n 7 Terazi }
 

                "akrep" { baglan $n 8 Akrep }
 

                "yay" { baglan $n 9 Yay }
 

                "oglak" { baglan $n 10 Oğlak }
 

                "kova" { baglan $n 11 Kova }
 

                "balik" { baglan $n 12 Balık }
 

                "info" { return 0 }
 

           default {
 

                putquick "PRIVMSG $n :Geçersiz bir burç adı girdiniz!"
 

                putquick "PRIVMSG $n :12koc,boga,ikizler,aslan,basak,terazi,akrep,yay,oglak,kova,balik"
 

                putquick "PRIVMSG $n :Yukarıdaki tanımlamalara uygun olarak 12!burc burcunuz şeklinde yazınız."
 

                putquick "PRIVMSG $n :Aksi taktirde burcunuzun yorumunu alamayacaksınız"
 

                return 0
 

                        }
 

                   }
 

         } 
 

}
 

#=============================================================
 

proc baglan { nick id burc } {
 

         global burckanali baskelime bitkelime baslen url port satiruzunlugu cevapturu sayfa
 

        if {$cevapturu == 1} { putserv "PRIVMSG $nick :4 $burc  burcunun yorumu alınıyor lütfen bekleyiniz..." }
 

        if {$cevapturu == 0} { putquick "mode $burckanali -m" ; putserv "PRIVMSG $burckanali :4$nick için $burc  burcunun yorumu alınıyor..." }
 

        if {[catch { set sock [socket -async $url $port] } sockerror]} { putserv "PRIVMSG $nick :$sockerror : Veri alınamadı." ; return 0 } 
 

        fconfigure $sock  -encoding utf-8; puts $sock "GET $sayfa$id"; puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; tr-TR; rv:1.4) Gecko/20030624"
 

        puts $sock "Host: $url"; puts $sock "Connection: close"; puts $sock ""; flush $sock
 

        while {[eof $sock] != 1} { append content [gets $sock] }; close $sock
 

        set basla [string first $baskelime $content]; set bitis [string first $bitkelime $content]; set content [string range $content [expr $basla + $baslen] [expr $bitis -1]]
 

        regsub -all {<br>} $content "" content
 

   if {$cevapturu == 1} { foreach satir [yazibol $content $satiruzunlugu] { puthelp "PRIVMSG $nick :6$satir" }; puthelp "PRIVMSG $nick :Bu yorum 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sitesinden Paylaşılmıştır" }
 

   if {$cevapturu == 0} { foreach satir [yazibol $content $satiruzunlugu] { puthelp "PRIVMSG $burckanali :6$satir" }; puthelp "PRIVMSG $burckanali : 7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
puthelp "mode $burckanali -m" }        
 

}
 

#=============================================================
 

proc yazibol {data len} { 
 

   set out {} 
 

   foreach line [split [string trim $data] "\n"] { 
 

      set curr {}; set i 0 
 

      foreach word [split [string trim $line]] { 
 

         if {[incr i [string len $word]]>$len} { lappend out [join $curr]; set curr[list $word]; set i [string len $word] } 
 

                lappend curr $word 
 

            incr i 
 

              } 
 

      if {[llength $curr]} { lappend out [join $curr] } 
 

   } 
 

   set out 
 

} 
 

#=============================================================
 

proc beklemekontrol {id sure} {
 

          global beklemekontrol
 

        if {[info exists beklemekontrol($id)]} { return 1 }; set beklemekontrol($id) [clock sec];        utimer $sure[list unset beklemekontrol($id)]; return 0
 

}

Eggdrop.conf u.

Kod:

#
 

#            Eggdrop Bot                  
 

#                                         
 

#    TicariChaT 
 internet hizmetleri
 

#    by MesqeN
 
 
 

#
 

###########################################
 

loadmodule channels
 

loadmodule server
 

loadmodule ctcp
 

loadmodule irc
 

loadmodule notes
 

loadmodule console
 

loadmodule blowfish
 

set username "TicarichaT"
 

set nick "AstroLog"
 

set altnick "bot"
 

set my-ip "1
 62231.8.66622626.55454"
 

set my-hostname "irc.
 domain.com"
 

set realname "Ticarichat Hizmeti"
 

set init-server { 
 

putserv "identify 
 sdlfksşlfkşlsdkf" 
 

}
 

set servers {
 

   5561.8.32323.2212:6667
 

}
 

 channel add #burc {
 

  need-op { putserv "MODE #astroloji +v BurcBot " }
 

    }
 

 channel add #Operk {
 

  need-op { putserv "MODE #astroloji +v BurcBot " }
 

    }
 

set net-type 5
 

set owner "MesqeN"
 

set userfile "Komik.user"
 

set chanfile "Komik.chan"
 

logfile jpk #opers "logs/Selvinaz.log"
 

set shortnick "Korku"
 

set home "#Soz"
 

set mod-path "modules/"
 

set help-path "help/"
 

set text-path "text/"
 

listen 3334 all
 

logfile msbxco * "logs/selvinaz.log"
 

set console "mkcobxs"
 

loadmodule uptime
 

source scripts/alltools.tcl
 

source scripts/action.fix.tcl
 

source scripts/userinfo.tcl
 

source scripts/burc/burc.tcl

hayırlı işler
Heartbroken Paylaşımıdır.