##################################
### Greet TCL i.d.i.o.t By threenet ###
################################## 

# main strings
set update "01.01.2003"
bind join - * sayinfo 

# Strings
set info_owner {
    "Hormat...GraKKk.... Met Dateng B0zZzZ.. !!!"
    "wedew!!!...threenet BosSsku..."
    "hALL0ww b0zz..bagi gebetan dong !!!"
    "AsekkKKkk.... akhirnya dateng juga !!!"
    "wb BOSSS!!! mo LAPoR NiH, COWOK_KEREN nakal tadi b0sSs.. !!!"
    "B0zZz... tadi banyak cewek cari tuhh.. "
    "masandra dari tadi bawel banget tuh boss!!! "
}
set info_localowner {
    "KaBurrrRRrrr...... ADA Siluman DataNG... !!!"
    "PAK gimana kabarnya si ehem.. ehemm.. :)))"
    "Pak!! ada SaLaM dArI SeLinGkuHan TuH !!!"
}
set info_master {
    "hehehe... MASTER DatanG !!"
    "MASTER !!! Bagi ShELL dOOnGG !!!"
    "MASTER aBiS KeLayaPaN Nih !"
    "MASTER.... Masterku Tampan, xixixi..."
}
set info_friend {
    "WOW !!! andravalid raja nya hacker !!!"
    "Cewek-cewek... Awass digombal !!! "
    "Oi... masandra tadi selingkuhanmu selingkuh lagi"
    "Met DatanG rippers !!!"
    "Hehehehe ada rippers kaborz ah"
    "KabuRRRR..... ada rippers !!!"
    "Wiw atut ada Mr Gele
}
set info_oper {
    "You simple oper, watch out !"
    "Operator detected!"
    "You gonna lose your flags if you do something bad!"
    "I'm watching you..."
}
set info_loser {
    "NgaPain Loe DiSiNI ???"
    "Wakss... ada Homo jOiN"
}

# main()

proc sayinfo { nick host handle chan } {
   global botnick
   if { $nick != $botnick } {
       if {[matchattr $handle n]} {
           putserv "PRIVMSG $chan :[rand_owner $nick] $nick "
       } elseif {[matchattr $handle |n $chan]} {
           putserv "PRIVMSG $chan :[rand_localowner $nick] $nick "
       } elseif {[matchattr $handle m]} {
           putserv "PRIVMSG $chan :[rand_master $nick] $nick "
       } elseif {[matchattr $handle |m $chan]} {
           putserv "PRIVMSG $chan :[rand_master $nick] $nick "
       } elseif {[matchattr $handle f]} {
           putserv "PRIVMSG $chan :[rand_friend $nick] $nick "
       } elseif {[matchattr $handle |f $chan]} {
           putserv "PRIVMSG $chan :[rand_friend $nick] $nick "
       } elseif {[matchattr $handle o]} {
           putserv "PRIVMSG $chan :[rand_oper $nick] $nick "
       } elseif {[matchattr $handle |o $chan]} {
           putserv "PRIVMSG $chan :[rand_oper $nick] $nick ]"
       } elseif {[matchattr $handle d]} {
           putserv "PRIVMSG $chan :[rand_loser $nick] $nick "
       } elseif {[matchattr $handle |d $chan]} {
           putserv "PRIVMSG $chan :[rand_loser $nick] $nick "
       }
   }
}

# random(s)

proc rand_owner {nick} {
     global info_owner
     set result [lindex $info_owner [rand [llength $info_owner]]]
     return "$result"
}
proc rand_localowner {nick} {
     global info_localowner
     set result [lindex $info_localowner [rand [llength $info_localowner]]]
     return "$result"
}
proc rand_master {nick} {
     global info_master
     set result [lindex $info_master [rand [llength $info_master]]]
     return "$result"
}
proc rand_friend {nick} {
     global info_friend
     set result [lindex $info_friend [rand [llength $info_friend]]]
     return "$result"
}
proc rand_oper {nick} {
     global info_oper
     set result [lindex $info_oper [rand [llength $info_oper]]]
     return "$result"
}
proc rand_loser {nick} {
     global info_loser
     set result [lindex $info_loser [rand [llength $info_loser]]]
     return "$result"
}

# putlog
putlog "Greet TCL i.d.i.o.t By threenet (last update: $update)"