#############################################
# jizz.tcl 0.1 #02/04/21 #
#############################################
#Author Poul,ComputerTech,Quo-Fan,SunTop #
#IRC Irc.OpenIRC.Club #PoulsKitchen #
#Email jamesmagnusjones@gmail.com #
#URL tbd #
#################################################################################################################################################################
# Start Of Configuration #
##########################

#Set trigger of the commands.

set sexy(trig) "!"


##################
#Set Flag of usage of commands

set sexy(tflag) "-|-"

########################
# End Of Configuration #
#################################################################################################################################################################
bind pub $sexy(tflag) $sexy(trig)jizz sexy:jizz

proc throttled {id seconds} {
global throttle
if {[info exists throttle($id)]&&$throttle($id)>[clock seconds]} {
set id 1
} {
set throttle($id) [expr {[clock seconds]+$seconds}]
set id 0
}
}
bind time - ?0* throttledCleanup
proc throttledCleanup args {
global throttle
set now [clock seconds]
foreach {id time} [array get throttle] {
if {$time<=$now} {unset throttle($id)}
}
}
set var2939 0
set var3492 0

set sayitnow {
"Loads up 2 girls and a cup and watches %rando with a grin"
"Applies lotion to the member looks at %nick and prepares to shot"
"Pulls our Mr Socko and watches videos of CT and %rando together..."
"Plays Spank the Monkey with %rando"
"Looks at %nick and plays hide and go Jizz Myself with %rando"
"Dry hump's %rando's leg..."
"Downloads pictures of Betty White and %nick and gets jizzy with it"
"Meow Meow Meow Meow Meow Jizzzzzzz"
"Looks at %nick Did you know there was a lil McJizz in everyone?"
"Star Light, Star Bright, %nick will be getting some Jizz tonight!"
"It's A Bird, No its a Plane, No It's Jizz over %rando's Face"
"Omg it's $nickname riding a tricicle.. I think I'm going to Jizz!"
"Spank it, Whack it, %rando Enjoys it!"
"Mr Trump is like my old sock,.. %nick told me so, so Jizz all over"
"Looks at %rando's cartoon porn collection"
"%rando is plain baaaaaa d trying to get Jizzy to me!"
"Go to Manhattan, Go to Paris, Go to Singapoor But at the end %nick I come back home to Jizz to you"
"Steals someones Panties and rubs one out to %rando"
"Here in Newfiland the Monkey Spanks You, and CT Spanks you too %nick"
"Looks at %rando thats not custard...."
}
set sayitnow2 {
"CUMS!!!!!!!! ....Giving %nick a Titty Creampie!"
"CUMS! ...Drenching %nick's and %rando's face!"
"CUMS! ...SpaceMountains %nick all over!"
"CUMS! ...Fills %nick Beer bottle, bottoms up!"
"CUMS! ...Makes a new Paint Job for #PoulsKitchen Request of %nick"
"CUMS! ...All over %nick's mouth watching them try to breath!"
"CUMS! ...Sprays all over everyone! As Requested by %nick"
"CUMS! ...All over %nick's backside! What a mess!"
"CUMS! ...Waves it up and down and sprays all over %nick's Hair!"
"CUMS! ...Pumps it up, Pumps it down Pumps it and Jizzes in %nick's hair and mouth!"
"CUMMMS!!!! and SQUIRTS %squirts times, giving %nick a creampie"
}
proc sexy:jizz {nick host hand chan text} {
global sayitnow var2939 sayitnow2 var3492
if {[throttled $host,$chan 60]} {
return
}
set nicks [chanlist $chan]
set randnick [lindex $nicks [rand [llength $nicks]]]
set squirts [rand 10]
set var213 [lindex [split $text] 0 ]
if {[onchan $var213 $chan]} {
set reply [lindex $sayitnow [rand [llength $sayitnow]]]
set reply2 [lindex $sayitnow2 [rand [llength $sayitnow2]]]
incr var2939 +1
incr var3492 +$squirts
set line [string map [list %nick $var213 %rando $randnick %squirts $squirts] $reply]
set line2 [string map [list %nick $var213 %rando $randnick %squirts $squirts] $reply2]
puthelp "PRIVMSG $chan :\001ACTION $line\001"
puthelp "PRIVMSG $chan :\001ACTION $line2\001"
puthelp "PRIVMSG $chan :I have cummed $var2939 times with $var3492 squirts"
}
}
#################################################################################################################################################################