#
# Botun nick değiştirme süresini (dk) belirliyoruz. 
#

set nick_time "60"

#
# Bot nicklerini belirtiyoruz, botunuz rastgele seçecektir.
#

set nicks {
  "Tolga"
  "Murat"
  "Veli"
  "Kenan"
  "Mete"
}

if {![string match "*nick_mesaj*" [timers]]} { 
  timer $nick_time nick_mesaj 
} 
proc nick_mesaj {} { 
  global botnick nicks nick_time
  set desc [lindex $nicks [rand [llength $nicks]]] 
  utimer 2 [list channel remove #sohbet]
  utimer 5 [list set nick $desc]
  utimer 7 [list channel add #sohbet]
  timer $nick_time nick_mesaj 
}

putlog "Eggdrop Nick Change TCL v1.0 - Written By CLubber"