# General Settings
set channel_oper	"#Opers" 
set channel_logs	"#Bots"

set channel_prefix	"h"
set me		"Hamit"

# Files
set file_channel	"hamit/database/channel.dat"
#set file_language	"hamit/database/lang/tr.lang"

# Commands
bind pub - !kanal Channel

proc Channel {nick uhost hand chan text} {
global channel_oper channel_prefix me channel_logs file_channel
set fchan [lindex $text 1]
set hamionay 0
	if {[lindex $text 0] == "ekle"} {
		set hamit [open $file_channel r]
		if {[gets $fchan=1 line] > 0} {
		set hamitonay 1
		}
		close hamit

		set hamit [open $file_channel w]
		if {$hamionay == "0"} {
			if {![validchan $fchan]} {
				puts $hamit "$fchan=1"
				putserv "PRIVMSG $chan $fchan kanalı listeye eklendi."
				return 1
			}
		close hamit
		}
	}
}

set global-chanset +nodesynch

proc is:infile {filename args} {
	if {[file exists $filename]} {
	set dosya [open $filename r]
		while {![eof $dosya]} {
		catch {set argn0 [gets $dosya]}
			if {$argn0 == $args} {
			catch {close $dosya}
			return 1
			}
		}
	catch {close $dosya}
	}
return 0
}

proc is:operchan {args} {
global file_channel_oper
	if {[is:infile $file_channel_oper $args] == "1"} {
	return 1
	}
return 0
}

proc is:userchan {args} {
global file_channel
	if {[is:infile $file_channel $args] == "1"} {
	return 1
	}
return 0
}

bind pub - !kanalx com:kanal
proc com:kanal {nick host hand chan text} {
global file_channel me
	if {[is:operchan $chan] == "1"} {
	set argn0 [lindex $text 0]
	set argn1 [lindex $text 1]

		if {$argn0 == "ekle" && $argn1 != ""} {
			if {[is:muafchan $argn1] == "1"} {
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı muaf listesinde bulunuyor."
			} elseif {[is:userchan $argn1] == "1"} {
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı zaten listede bulunuyor."
			} else {
			set dosya [open $file_channel a]
			puts $dosya $argn1
				channel add $argn1 {
				need-op { putserv "MODE $argn1 +h $me" }
				}
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı listeye eklendi."
			close $dosya
			}
		} elseif {$argn0 == "list"} {
			putquick "PRIVMSG $chan :Kayıtlı kanallar listeleniyor;"
			putquick "PRIVMSG $chan :\2"
			if {[file exists $file_channel]} {
			set dosya [open $file_channel r]
				while {![eof $dosya]} {
				catch {set argn2 [gets $dosya]}
					if {$argn2 != ""} {
					putquick "PRIVMSG $chan :Kanal: \2$argn2\2"
					}
				}
			catch {close $dosya}
			putquick "PRIVMSG $chan :\2"
			putquick "PRIVMSG $chan :Kayıtlı kanallar listelendi."
			}
		} elseif {$argn0 == "test" && $argn1 != ""} {
			if {[is:infile $file_channel $argn1] == "1"} then {
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı listede bulunuyor."
			} else {
			putquick "PRIVMSG $chan :\2$argn1\2 kanalı listede bulunmuyor."
			}
		}
	}
return 0
}

set file_channel "hamit/database/channel.dat"
if {[file exists $file_channel]} {
set dosya [open $file_channel r]
	while {![eof $dosya]} {
	catch {set args [gets $dosya]}
		if {$args != ""} {
			channel add $args {
  			need-op { putserv "MODE $args +h Bot" }
			}
		}
	}
	catch {close $dosya}
}

# Komuta erişimi olacak kişilerin eggdrop kullanıcı flagları ne olmalı
set tpkflags "mnoa"

# kodu harekete geçirecek komut ne olmalı
set tpkkmt "topik"

# komut başına gelecek sembol/işaret/trigger ne olmalı
set tpktrig "!"

# topic komutu gönderimi için hangi service ile muhatap olunmalı
set tpkserv "ChanServ"

# hangi kanal üstünde kullanılacaksa botunuza bağlanın : .chanset #kanal +topik
setudef flag topik

bind pub - $tpktrig$tpkkmt top:topik

proc top:topik {nick uhost hand chan text} {
  if {![channel get $chan topik]} { return }
       set tpkmsj [join [lrange [split $text] 0 end]]
    # aşağıdaki   if {![isop $nick $chan]} { satırları aktif edilecekse
    #  yani kanal opları kullansın* seçilecekse bu if {![matchattr [nick2hand $nick] $::tpkflags $chan]} {
    # ile başlayan satırların başına # ekleyerek pasif kılmalısınız.
    # aksi halde kanalda op olsalar dahi botun kullanıcı listesinde istenen flaglarla
    # ekli değilselerde çalışmayacaktır. yani ikisi arasında seçim yapmalısınız.
    # ya kullanıcı flagları ya kanal yetkileri...şu haliyle kullanıcı flaglarına bakar...
  if {![matchattr [nick2hand $nick] $::tpkflags $chan]} {
           puthelp "notice $nick :\00312Bu komutu kullanmaya yetkili değilsiniz. \
       Komuta erişim için $::tpkflags eggdrop kullanıcı flaglarına sahip olmalısınız.\003"
       return 0
      }
    # kanal oplarının kullanımına açmak için alttaki satırların başlarındaki # 'ları kaldırın.
        # oplar dışında halfop ve voicelar içinde kullansın isteniyorsa if {![isop $nick $chan]} {
    # satırını if {![isop $nick $chan] || ![ishalfop $nick $chan] || ![isvoice $nick $chan]} {
    # olarak değişmeniz gerekir.
        
  #if {![isop $nick $chan]} {
   #    puthelp "notice $nick :\00312Bu komutu kullanmaya yetkili değilsiniz. \
   #   $chan kanalında en az Op ( @ ) olmalısınız...\003"
   #       return 0
   #   }
   
  if {[llength $tpkmsj] < "1"} {
          puthelp "notice $nick :\002Kullanım şekli\002 : \00304$::lastbind <kanal topiği>\003"
      return
     }
      
  if {![botisop $chan]} {
          puthelp "notice $nick :$chan \00312kanalında yetkim yok...\003"
      return 0
     }
      
     putserv "privmsg $::tpkserv :topic $chan $tpkmsj"
     puthelp "notice $nick :$chan \00312kanalının Topiği\003 $tpkmsj \00312olarak değiştirildi...\003"
}
     
putlog "ok..."