greet / autowebe.tcl

# main strings

set update "01.01.2003"

bind join - * sayinfo 

# Strings

set info_owner {

    "hay bos"

    "hayah kok baru datang bos"

    "waaaaaaa ada si"

    "AsekkKKkk.... akhirnya dateng juga !!!"

    "wb BOSSS!!! mo LAPoR NiH, catHy nakal tadi b0sSs.. !!!"

    "B0zZz... tadi banyak cewek cari tuhh.. "

    "ah kok baru datang bosSS.. abis kencan ya"

"bosSS LaporRR.. Channel aman terKEndali 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)"