set cute_advchan "#honaidelphi #wamena"
set cute_advtime 7
set cute_advmsg {
  "4Download Anti Virus Brontok v2.6b by Vaksin13 di 12http://baliemheker.co.nr"
  "13Informasi Virus-virus terbaru di 12http://www.vaksin.com"
  "7Menyediakan Source Code Bahasa Pemrograman Terpopuler. Just Klik 4http://www.planet-source-code.com"
  "12Tip & Trik komputer di 0,4http://www.klik-kanan.com"
  "4Komunitas Hacker Papua join channel 0,12#BaliemHacker, #PapuaHacker"
  "12Mau gabung dengan komunitas HonaiDelphi ?? Klik 4http://yahoo.com/groups/honaidelphi"
}

proc cute_start {} {
  global cute_advtime
  if {[string match *cute_adv* [timers]]} {return 0}
  timer $cute_advtime cute_adv
}

proc cute_adv {} {
  global botnick cute_advmsg cute_advchan cute_advtime
  timer $cute_advtime cute_adv
  foreach xyz [string tolower $cute_advchan] {
    putserv "PRIVMSG $xyz :[lindex $cute_advmsg [rand [llength $cute_advmsg]]]"
  }
}

cute_start