########################################
### Greet TCL Tengkorakcrew By panji ###
########################################

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

# Strings
set info_owner {
    "Hormat...GraKKk.... Met Dateng B0zZzZ.. !!!"
    "hehehe!!!...ada BosSsku..."
    "hALL0ww b0zz..bagi gbetan dong !!!"
    "AsekkKKkk.... akhirnya dateng juga !!!"
    "wb BOSSS!!! mo LAPoR NiH, dedet nakal tadi b0sSs.. !!!"
    "B0zZz... banyak tadi cewek cari tuhh.. "
    "dedet dari tadi genit banget tuh boss!!! "
}
set info_localowner {
    "KaBurrrRRrrr...... ADA PaK kEtUA DataNG... !!!"
    "PAK gimana kabarnya si ehem.. ehemm.. :)))"
    "Pak!! ada SaLaM dArI SeLinGkuH TuH !!!"
}
set info_master {
    "hehehe... MASTER DatanG !!"
    "MASTER !!! Bagi ShELL dOOnGG !!!"
    "MASTER aBiS KeLayaPaN Nih !"
    "MASTER.... Masterku Homo, xixixi..."
}
set info_friend {
    "WOW !!! munculmi si HOMO !!!"
    "Cewek-cewek... Awass digombal !!! "
    "Oi... coy tadi selingkuhanmu si dedet"
    "Met DatanG broo !!!"
    "Hehehehe ada KodoK datang"
    "KabuRRRR..... ada HomOOOO !!!"
}
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 Tengkorakcrew By <\002panji\002> (last update: $update)"