#################################################################
set person [lindex $text 9]
bind raw * notice connection
proc connection {from keyword text} {
  global person
  if {![string match -nocase "*Client connecting on port*" $text]} {return}
  if {[string match -nocase "*MisafirUser*" $person]} {
    putquick "privmsg $person :Nickiniz Sunucu Kurallarına Uymadığı için değiştirilmiştir."
    putquick "privmsg $person :Lütfen Nickinizi /nick YeniNick Komutu ile Değiştiriniz." "
    putquick "privmsg $person :Örnek: /nick Dost"
  }
}
putlog "Misafir TCL v1.0 By CLubber"
#################################################################