kiss.tcl

####################################################
# Configuration:                                   #
# via DCC:                                         #
# .chanset <#channel> +kiss    - enables         #
# .chanset <#channel> -kiss    - disables        #
####################################################
# Usage:                                           #
# anyone can feed the bot by typing                #
# .botsnack                                        #
####################################################
# define channel flag to enable quotes.
setudef flag kiss
# define trigger
#you can change the triggers to what you want

bind pub -|- .slap  pub_slap
set randomreply {
"around with purple"
"around with a wet noodle"
"around with a big stick for a few minutes..."
"around with a hairy, slimey, smelly, and contaminated trout!"
"around with a rotten trout!"
"around the head with a jelly fish."
"around with a great big, wet, 100% rubber DUCK!"
"around with a bull horn"
"around with a used condom"


}

bind pub -|- .kiss  pub_kiss
set randomreply2 {
"on the lips"
"on the cheek"
"on the forehead"
"on the hand"
"on the stomach"
"on the ass"

}


bind pub -|- .flirt  pub_flirt
set randomreply3 {
"\"Do you work at Starbucks? Because I like you a latte.\""
"\"I like Legos, you like Legos, why don't we build a relationship?\""
"\"I will stop hitting on you when an apple grows from a mango tree on the 30th of February.\""
"\"Are you a parking ticket? 'Cause you've got fine written all over you.\""
"\"Do you have a Band-Aid? Because I just scraped my knee falling for you.\""
"\"I wish I could select all of your clothes and press 'delete'...\""
"\"Me without you is like a nerd without braces, A shoe without laces, aSentenceWithoutSpaces\""
"\"I don't have a library card, but do you mind if I check you out?\""
"\"I looked up your name in the Thesaurus today and it was included under hot stuff!\""
"\"Are you from Tennessee? Because you're the only ten I see!\""
"\"My doctor says I'm lacking Vitamin U.\""

}


bind pub -|- .lick  pub_lick
set randomreply4 {
"'s cheek"
" up and down"
"'s forehead"
"'s knee"
"'s neck"
"'s ... better not say"
"'s dick with their tongue"
"'s nipple with their tongue"
}

bind pub -|- .sing  pub_sing


bind pub -|- .kick  pub_kick
set randomreply6 {
" in the knee"
" in the butt"
" in the head"
"'s toe"
" in the thigh"
" in the stomach"
}


bind pub -|- .poke  pub_poke

bind pub n|n .dracarys pub_dracarys

bind pub -|- .spank  pub_spank
set randomreply7 {
"\"Use the Hello Kitty paddle\""
"\"Use the heart shaped paddle\""
"\"Use the crop next time\""
"\"Crying from Pleasure\""
"\"Yelling Harder\""
"\"begging for more\""

}


proc pub_slap {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 global randomreply
 set botsays [lindex $randomreply [rand [llength $randomreply]]]
 if {[channel get $chan kiss]} {
# putchan $chan "$botsays $arg"
putserv "privmsg $chan :\001ACTION hides as $nick slaps $arg $botsays\001"
}
}

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


proc pub_flirt {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 global randomreply3
 set botsays3 [lindex $randomreply3 [rand [llength $randomreply3]]]
 if {[channel get $chan kiss]} {
# putchan $chan "$botsays $arg"
putserv "privmsg $chan :\001ACTION eavesdrops on $nick flirting with \0033$arg\003 $botsays3\001"
}
}

proc pub_lick {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 global randomreply4
 set botsays4 [lindex $randomreply4 [rand [llength $randomreply4]]]
 if {[channel get $chan kiss]} {
# putchan $chan "$botsays $arg"
putserv "privmsg $chan :\001ACTION sits there watching $nick licking \0033$arg\003$botsays4\001"
}
}


proc pub_sing {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 set randomreply5 {
   "ain't no sunshine when \0033$arg\003 is gone"
   "my cherie amour \0033$arg\003 ... lovely as a summer day"
   "hunger for your kiss, longing touch, beautifl \0033$arg\003 ... of my soul"
"filling all my nights, haunting all my days, beautiful \0033$arg\003 ... of my soul"
"I don't wanna live forever,'Cause I know I'll be livin' in vain, And I don't wanna fit wherever I just wanna keep callin' your name \0033$arg\003, Until you come back home"
"so \0033$arg\003, \0033$arg\003, staaaand .... by meeee, ohhh stand, by meee, ohhhh stand, stand by me, stand by me"
"So \0033$arg\003 love me like u do, love love love me like you do. Touch me like you do, touch touch touch me like you do <3"
"when i heard that sound when the walls came down i was thinking about you $arg"
"It's getting hot in here, so hot, so take off all your clothes $arg"
"I torture you $arg ...Take my hand through the flames, I torture you ... I'm a slave to your games, I'm just a sucker for pain"
 }
 set randomreply5 [subst $randomreply5]
 set botsays5 [lindex $randomreply5 [rand [llength $randomreply5]]]
 if {[channel get $chan kiss]} {
# putchan $chan "$botsays $arg"
putserv "privmsg $chan :\001ACTION sings \" $botsays5" \001"
}
}

proc pub_kick {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 global randomreply6
 set botsays6 [lindex $randomreply6 [rand [llength $randomreply6]]]
 if {[channel get $chan kiss]} {
# putchan $chan "$botsays $arg"
putserv "privmsg $chan :\001ACTION watches $nick kicking $arg$botsays6\001"
}
}


proc pub_poke {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 putserv "privmsg $chan :\001ACTION pokes $arg\001"
}


proc pub_dracarys {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 putserv "privmsg $chan :\001ACTION spits fire on $arg, now $arg is burnt\001"
}


proc pub_spank {nick uhost hand chan arg} {
 set chan [string tolower $chan]
 global randomreply7
 set botsays7 [lindex $randomreply7 [rand [llength $randomreply7]]]
 if {[channel get $chan kiss]} {
# putchan $chan "$botsays $arg"
putserv "privmsg $chan :\001ACTION accidentally walks in on $nick spanking \0033$arg\003, while \0033$arg\003 is yelling $botsays7\001"
}
}





putlog "my \0034flirt script by ahmed latif v1.0 loaded"