# ======= 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 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