# aidle.tcl v1.1 (28 March 1999) by slennox <slenny@ozemail.com.au>
# Latest versions can be found at www.ozemail.com.au/~slenny/eggdrop/
#
# Basic anti-idle script, sends random msg's to the specified channel at
# random time intervals.
#
# v1.0 - Initial release
# v1.1 - Stremlined startup timer check, added +1 to utimer

# Channel to send anti-idle messages to
set ai_chan "#rusuh"

# Maximum time interval between messages (in minutes)
set ai_time 25

# Messages to send
set ai_msgs {
  "*yawn*"
  "anyone awake?"
  "hello"
  "hi"
  "hula hula"
  "woiiiii..!!!"
  "ah aing mah euy.."
  "jadi weh konak teu puguh:("
  "sok ah goceng pertama yeuhh"
  "jadi kumaha?"
  "geus kieu ayeuna mah..."
  "geus lah tong loba dipikiran beuls"
  "ari sia atuh!"
  "ssssttttt"
  "yuk dadah babayyyy"
  "twew"
  "sing sopoČ ngentot kudo matina masuk neroko"
  "sing sopoČ mangane botol, modole beling"
  "teu lucu ah:D"
  "kumaha aing weh ah"
  "eh goblog siahh"
  "eta wanian ka sayah"
  "halo brondonggg"
  "jadi hayang modol kieu"
  "yuhuuuuuuu"
  "salamlekom"
  "duka ah sanes dukun"
  "kamana euy?"
  "yeeee"
  "brb ah"
  "poe naon ieu euy?"
  "!seen bakekok"
  "raniw mana nyak?"
  "naon sih hayangna?"
  "ari maneh jelma atawa karung goni?"
  "geus ah teu rame"
  "horni oge kami"
  "naon bedana si tomeh jeung inspektur pijey"
  "lagu naon sih ieu teh?"
  "asa teu ngararti kieu:("
  "yeah baby.."
  "ym yuk?"
  "riweuh maneh mah da riweuh"
  "nar geura mandi maneh ateuh"
  "metal menjerittttttttttttttttttttttttttttttt"
  "tah ieu kakara enak"
  "apaan sich?"
  "hsisushssiuhssiushsisuhis"
  "fs error nyak?"
  "/identify saritem"
  "upsssss"
  "sorry euy hayang hitut sayah"
  "vaneehh dimana yess?"
  "menta imel fs euy"
  "add bondon@saritem.com"
  "www.rusuh.tk"
  "si somat ninju saefuloh, so wat gitu loch"
  "xhixhixixhxhixhixxhixhi"
  "KUMSIBA"
  "anjissh"
  "tuh nyak asa teu puguh aing mah"
  "halo cewek:)"
  "hey manis"
  "ada brondon?"
  "tante lina mana nyak:("
  "penampakan euy"
  "tah datang geuning jelma na"
  "panjang umur oge maneh"
  "bujur budug"
  "tajong bisulna weh"
  "hare gene masih jomblo?!"
  "modar siah anjing shisushisuhsisushsishusi"
  "bagi rokok euy"
  "sok atuh bulatuk euy"
  "ngobrol atuh da lain di mushola"
  "kamana si takur euy?"
  "nar ulah moyan wae maneh teh, opak di poe garing maneh mah jd negro siah"
  "si fey beureum keneh teu?"
  "beureum aing beureummmmm"
  "FUCK YOUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU"
  "si didin tah nu sok cyberan mah"
  "jer geura mandi maneh"
  "kacang kacang kacangggggggg!!"
  "eweh nu nanyakeun urang euy?"
  "molor ahhhhhhhh"
  "marangga nu goib"
  "ari 05 lewat bip teu?"
  "pundungan siga bang toyib ighhh"
  "geus ah pundung urang"
  "naon sih maneh teh hayangna?!!"
  "kamana gaya:))"
  "kamana atuh indis:D"
  "eweh tukang nasi goreng ieu teh?"
  "martabiks martabiksssss"
  "kopdar yuk?"
  "asl pls please"
  "hey kamu!!!"
  "ah teu benul ieu mah"
  "hudang oii"
  "beungeut tah ombehan beuls"
  "beungeut maneh herang siga cucunguk"
  "tai ucing tai kuda, pararusing atuh da"
  "njisss hp aing leungit setannnnnnnnnnnnnnnnnnnnnnnnnn"
  "ikaaaaaa baseuhhhhhhhhhhh"
  "jual cangcut yeuh"
  "giel bagi semboro euy"
  "saha nu boga no telp si torak? penting yeuhhhhh"
  "hi cantik... godain monyet kita donk hxixhxixhxixhxi"
  "diamna maneh ayeuna?"
  "cakue odading, tong leweh just kidding:)"
  "kalo cinta sudah melekat, tai kotok rasa coklat"
  "kalo cinta sudah melebur, cai ki`ih rasa bajigur"
  "rek careting wae maraneh teh neupi ka kolot?"
  "aw aw aw...."
  "isuk deui weh lah..."
  "jam sabaraha euy isukan teh?"
  "ah pasti moal jadi ieu mah:("
  "nyak bae atuh, kumaha urang weh!"
  "sing sopoČ mangane karo iwak, matine jadi penyanyi rap"
  "dasar abri, wis ngewe ora bayar.. emangnya memek milik negara"
  "jadi teu kopdaran teh?"
  "moal bisa euy, urang rek les piano jam 3 mah"
  "eweh nu geulis didieu mah njis tehh"
  "/j gim ehhhh sorry salah:D"
  "aya oge homo hungkul di warnet si yunar mah"
  "setak suwiw"
  "hayang mabok aing mah lahhhhh"
  "iraha nyakue di PI deui euy?"
  "kangen urang ka jenggot si billy"
  "urus weh dirimu ama keluarga ye yang jerawatan itu:P~"
}


# Don't edit anything below unless you know what you're doing

proc ai_start {} {
  global ai_time
  if {[string match *ai_sendmsg* [timers]]} {return 0}
  timer [expr [rand $ai_time] + 1] ai_sendmsg
}

proc ai_sendmsg {} {
  global botnick ai_chan ai_msgs ai_time
  if {[validchan $ai_chan] && [onchan $botnick $ai_chan]} {
    puthelp "PRIVMSG $ai_chan :[lindex $ai_msgs [rand [llength $ai_msgs]]]"
  }
  timer [expr [rand $ai_time] + 1] ai_sendmsg
}

set ai_chan [string tolower $ai_chan]

ai_start

putlog "Loaded aidle.tcl v1.1 by slennox"