naughty.tcl

####################################################
# Configuration:                                   #
# via DCC:                                         #
# .chanset <#channel> +naughty    - enables         #
# .chanset <#channel> -naughty    - disables        #
####################################################
# Usage:                                           #
#                                                  #
####################################################
# define channel flag to enable quotes.
setudef flag naughty
# define trigger
#you can change the triggers to what you want


bind pub n|n .fu pub_fuck
set randomreply1 {
"\"With a purple dildo\""
"\"with a fucking machine\""
"\"on the counter\""
"\"in the backseat of the car\""
}

bind pub -|- .snuggle pub_snuggle

bind pub -|- .bite pub_bite
set randomreply2 {
"\"on the ass\""
"\"on the neck\""
"\"on the breast/chest\""
"\"on the leg\""
}

bind pub -|- .kidnap pub_kidnap

bind pub -|- .choke pub_choke

bind pub -|- .cuddle pub_cuddle

bind pub -|- .rape pub_rape

proc pub_fuck {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 global randomreply1
 set botsays1 [lindex $randomreply1 [rand [llength $randomreply1]]]
 if {[channel get $chan naughty]} {
# putchan $chan "$botsays $arg"
putserv "privmsg $chan :\001ACTION watches $nick fucking \0033$arg \003$botsays1\001"
}

proc pub_snuggle {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 putserv "privmsg $chan :\001ACTION snuggles up with $arg \001"
}

proc pub_bite {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 global randomreply2
 set botsays2 [lindex $randomreply2 [rand [llength $randomreply2]]]
 if {[channel get $chan naughty]} {
# putchan $chan "$botsays $arg"
putserv "privmsg $chan :\001ACTION watches $nick bite \0033$arg \003$botsays2\001"
}

proc pub_kidnap {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 putserv "privmsg $chan :\001ACTION watches $arg being kidnap by $nick \001"
}

proc pub_choke {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 putserv "privmsg $chan :\001ACTION watches $nick grab $arg by the neck and choke him/her \001"
}

proc pub_cuddle {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 putserv "privmsg $chan :\001ACTION peeks in when $nick is next to $arg cuddling on the couch\001"
}

proc pub_rape {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 putserv "privmsg $chan :\001ACTION walks in while $nick rapes $arg with a big purple dildo\001"
}

}

putlog "my \0034naughty script by Christi Harris v1.0 loaded"