# - configuration of autochangenick
set nchange(mins) "17" 
set nchange(nicks) "Sipayung Sinaga Simatupang Sinambela Tarigan Sembiring Purba Girsang Nadeak Situmorang Simbolon Malau Manalu Sihombing Sianturi Simarmata Silalahi Simanjuntak Damanik Manik Haloho Situkkir Ajartambun Akarbejadi Ambarita Bako Banjarnahor Banuarea Capah Cibro Dalimunthe Debataraja Daulay Gultom Gurning Harianja Harahap Hasibuan Kaban Kacaribu Kacinambun Karo-Karo Limbong Lingga Lubis Manullang Manurung Marbun Nababan Nadapdap Nadeak Naibaho Ompu_Sunggu Padang Pakpahan Pandia Pane Rame Rajagukguk Rangkuti Ritonga Sagala Saing Samosir Saragi Tamba Tambun Tambunan Tampubolon Ujung Tanjung Tarihoran Tinambunan Tinendung Tobing Togatorop Saragih Saruksuk Sarumpaet Siadari Siagian Siahaan Siallagan Siambaton Sianipar Ritonga Rumahorbo Rumapea Rumasingap Rumasondi Angkat Aretha Aritonang Aruan Barasa Bagariang Bakkara Bangun Barus Barutu Batubara Butarbutar Doloksaribu Depari Gurusinga Gajah Hasugian Hotmatua Hutabarat Hutagaol Hutahaean Hutajulu Kasilan Keloko Kembaren Ketaren Lumbanbatu Lumbangaol Lumbannahor Lumbanpea Manullang Manurung Marpaung Matondang Meliala Munthe Manihuruk Naiborhu Nainggolan Naipospos Napitupulu Nasution Napitu Pandiangan Pane Pangaribuan Panggabean Panjaitan Parapat Pardede Pardomuan Pardosi Pasaribu Sibabiat Sibarimbing Sibangebange Sibarani Sebayang Sibero Siboro Siburian Sibuea Tanjung Tinendung Tinambunan Tobing Togatorop Togar Torong Tumangger Tumanggor Turnip Turutan Tigalingga Silitonga Sinuraya Surbakti Sukatendal Sormin Solin Solia Situngkir Situmorang Situmeang Sitorus Sitompul Sihotang Sitinjak Sitindaon Sitepu Sitanggang Siringo-ringo Siregar Sirait Sipahutar Sinurat Sinupayung Sinukapar Sinukaban Sinulingga Sinuhaji Singarimbun Sinabariba Simorangkir Simbolon Simatupang Simarmata Simargolang Simaremare Simanungakalit Simanjuntak Simanjorang Simangunsong Simandalahi Simamora SinaBang Silitonga Silaen Silaban Sijabat Sihotang Sihombing Sihite Sihaloho Sigalingging Sidauruk Sidahapintu Sidabungke Sidabutar Sidabalok Sibutarbutar Pulungan Pohan Pinem Perangin-angin Lumbantungkup Lumbantoruan Lumbansiantar Lumbanraja Kombara Karo Karosekali Kudadiri Ketaren Hutagalung Hutauruk Hutasuhut Hutapea Hutasoit Hutajulu Hutahaean Hutagaol Buaton Boliala Bancin Brahmana Bukit Barutu Butar-Butar" 

### autochange nick - new features!version Beta ###
foreach ntimer [timers] { 
 if {[string match -nocase "*change:nick*" "[lindex $ntimer 1]"]} { 
  killtimer [lindex $ntimer 2]
 } 
} 
timer $nchange(mins) [list change:nick $nchange(nicks) $nchange(mins)] 
set nchange(length) 0 

proc change:nick {nicks mins} { 
  global nick nchange 
  incr nchange(length) 
  if {"$nchange(length)" > "[llength $nicks]"} { set nchange(length) 1 } 
  set nick "[lindex $nicks [expr {$nchange(length)-1}]]" 
  timer $mins [list change:nick $nicks $mins] 
}


putlog "nick.tcl by dex loaded"