Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ####################################################
- # 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 -|- .s 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 -|- .ki 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 -|- .kik 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 .bomb pub_bomb
- 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 with a used dildo\001"
- }
- proc pub_bomb {nick uhost hand chan arg} {
- set chan [string tolower $chan]
- putserv "privmsg $chan :\001ACTION sticks a bomb on $arg, now $arg is blown to pieces\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.1 loaded"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement