alias gir { 
  /join #sohbet,#opers,#kontrol,#bilgi,#egitim,#radyo,#dj,#operhelp,#help,#gündem,#mIRC
}

alias gir { 
  /sajoin #sohbet,#opers,#kontrol,#bilgi,#egitim,#radyo,#dj,#operhelp,#help,#gündem,#mIRC
}

[19:46] -irc.crciyiz.Com- *** Notice -- Client connecting on port 6667: Goemon ([email protected])

on ^*:snotice:*Client*connecting*:{ 
  fjoin #Sohbet $9 
  fjoin #Muhabbet $9
  fjoin #Turkiye $9  
  fjoin #Radyo $9 
  fjoin #Oyun $9 
  fjoin #Kelime $9 
  fjoin #Bulmaca $9 
  fjoin #Klavye $9 
  fjoin #Yarisma $9 
  fjoin #Carkifelek $9 
  fjoin #Oxm $9 
}

menu status,channel,query {
  Kanallara Gir:join #dj,#mIRC,#istek,#operhelp,#help,#admin,#root,#yönetim,#ops,#kontrol,#bilgi,#helpops,#egitim
}

bind raw - NOTICE baglanti 
proc baglanti {from keyword text} { 
if {[string match -nocase "*client connecting*" $text]} { 
set nick [lindex [split $text] 9]
utimer 1[list putserv "raw close" ]
utimer 1[list putserv "fjoin $nick #Diyalog" ]
} 
}

#########################
#
# CR OperJoin TCL By Raiden 
#
#########################

bind raw - NOTICE operjoinn

proc operjoinn { from keyword text } {
	if {[string match -nocase "*Global*is now an operator*" $text]} {
		set _nnick [lindex [split $text] 7]
		set esas [string range $_nnick [expr [string first "(" $_nnick]+1] [expr [string last "!" $_nnick]-1]]
		putserv "fjoin $esas #Yardim"
		putserv "samode #Yardim +o $esas"
		putserv "fjoin $esas #Yönetim"
	}
}
putlog "OperJoin Yüklendi. TCL by Raiden AyvaNet"

##########################
#
# Oper Join TCL Writed Raiden Server: Irc.Ayva.Net
#
#########################

bind raw - Notice operjoin

proc operjoin { from keyword text } {
  if {[string match -nocase "*is now an operator*" $text]} {
	set _nick [lindex [split $text] 4]
	set snr [string range $_nick [expr [string first "(" $_nick]+1] [expr [string last "!" $_nick]-1]]
	putserv "fjoin $snr #Yönetim"
	putserv "fjoin $snr #Yardim"
  }
}
putlog "OperJoin Yüklendi. TCL BY RAIDEN AYVA.NET"

On *:Connect:{
  join #sohbet
  join #oyun
  join #radyo
  }