#####################################
### Greet TCL Dg.16 By threenet ###
##################################### 

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

# Strings
set info_owner {
    "threenet si ganteng Ownerku"
    "Wooooww Ownerku dateng"
    "assalamualaikum Bos"
    "bos gw threenet emang ganteng"
    "semua dalam keadaan terkendali bos"
    "semuanye sujud, yang punya channel dateng"
    "bos, ada laporan nich, COWOK_KEREN selingkuh di channel"	
}
set info_localowner {
    "waalaikum salam My Owner"
}
set info_master {
    "<- Wb Nyonya Besar"
    "<- Di cari Bos tu diajak kencan"
    "<- Harap Beri jalan Yayang Bos ku online"
    "<- Nenen pliss, mosok bos ku aja yang di nenen in"	
}
set info_friend {
    "<- wedew superman ini orang"
    "<- Duh kah dukun cabul teko"
    "<- join truz ngape di lemper join??beghh"
    "<- Penjahat Kelamin"
    "<- Pemerkosa anak di bawah umur"
    "<- orang gila"
    "<- Asli Homo"
    "<- Korban Pencabulan"
    "<- WANTED"
    "<- Gigolo"
    "<- Katanya Pingin SeKali Jadi IRCops"
    "<- Cracker Sejati"
    "<- Buronan LP cipinang"
    "<- Orang Edan ini,Baru aja kluar dari RSJ"
    "<- Dicari Hidup Ato Mati"
    "<- Spamer Neeh"
    "<- Suhu Gw Neeh"
    "<- Abis Colie"
    "<- Neeh Anak Yang Bikin Dalnet Down 3Bulan"
    "<- Tersangka Pemerkosa Nenek Sebelah Rumahku"
    "<- Kawin Mulu, Ga' Pernah Nikah"
    "<- Ga' Pernah Pake Celana Dalam"
    "<- Hacker Sejati"
    "<- Ga Pernah Mandi"
    "<- Sering Kencing Dalam Celana"
    "<- Bandar Togel"
    "<- Lapo kon mrene coks"
    "<- Suka Ngintip Orang MAndi Ni orang"
    "<- Maling Jemuran"
    "<- Dukun Beranak"
    "<- Hacker Neeh"
    "<- Cracker Neeh"
}
set info_oper {
    "wb IRCops"
}
set info_loser {
    "wb Losser "
}

# main()

proc sayinfo { nick host handle chan } {
   global botnick
   if { $nick != $botnick } {
       if {[matchattr $handle n]} {
           putserv "PRIVMSG $chan :$nick --> [rand_owner $nick] "
       } elseif {[matchattr $handle |n $chan]} {
           putserv "PRIVMSG $chan :$nick --> [rand_localowner $nick] "
       } elseif {[matchattr $handle m]} {
           putserv "PRIVMSG $chan :$nick --> [rand_master $nick] "
       } elseif {[matchattr $handle |m $chan]} {
           putserv "PRIVMSG $chan :$nick --> [rand_master $nick] "
       } elseif {[matchattr $handle f]} {
           putserv "PRIVMSG $chan :$nick --> [rand_friend $nick] "
       } elseif {[matchattr $handle |f $chan]} {
           putserv "PRIVMSG $chan :$nick --> [rand_friend $nick] "
       } elseif {[matchattr $handle o]} {
           putserv "PRIVMSG $chan :$nick --> [rand_oper $nick] "
       } elseif {[matchattr $handle |o $chan]} {
           putserv "PRIVMSG $chan :$nick --> [rand_oper $nick] "
       } elseif {[matchattr $handle d]} {
           putserv "PRIVMSG $chan :$nick --> [rand_loser $nick] "
       } elseif {[matchattr $handle |d $chan]} {
           putserv "PRIVMSG $chan :$nick --> [rand_loser $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 Dg.16 By <\002threenet\002> (last update: $update)"