set helpchannel "#help"
set helpopchannel "#helperop"
bind join - * pub_join
 
proc pub_join {nick uhost hand chan } {
global helpchannel helpopchannel botnick
 if {$chan != $helpchannel} { return 0 }
if {(![matchattr $hand b]) && ($nick != $botnick)} {
if {[isop $nick $chan] == 0} { return 0 } else {
 putquick "NOTICE $nick :Help kanalinda op oldugunuz anlasilmistir. Ozel op gorusmeleri icin $helpopchannel a aliniyorsunuz."
 putquick "SAJOIN $nick $helpopchannel"
 }
 }
}

#help kanalimizi buraya yazalim
set help(kanal) "#help"
#helpop kanalimiz buraya
set help(opkanal) "#helpop"

#Bundan sonrasina karismasakta olur :)

channel add $::help(kanal)
channel add $::help(opkanal)

bind mode - "*+o*" op:yonlendir

#kanalda op oldugunda islem yap
proc op:yonlendir {nick uhost hand chan mc kimdir} {
  if {$chan != $::help(kanal) { return }
  putquick "sajoin $kimdir $::help(opkanal)"
  putquick "PRIVMSG $kimdir :$chan Kanalında Op Sop ve Founder ( @ & ~ ) Yetkisinde Olan Kullanıcıların $::help(opkanal) Kanalina Girmesi Zorunludur."
}

#op kanalinda olmadigini denetle
bind time - "* * * * *" time:optara

proc time:optara {min hour day month year} {
	global botnick
	if {$kanallar == $::help(opkanal)} { continue }
	foreach opcuk [chanlist $::help(kanal)] { 
		if {[onchan $opcuk $::help(opkanal)]} { continue }
		if {[isop $opcuk $::help(kanal)] && $opcuk != $botnick} {
			putquick "sajoin $opcuk $::help(opkanal)"
			putquick "PRIVMSG $opcuk $::help(opkanal) kanalinda $::help(kanal) kanalinda op oldugunuz surece bulunmak zorundasiniz!"
		}
	}
}