API tools faq
paste
Advertisement
LoveAbleElf

kiss.tcl

LoveAbleElf
Dec 7th, 2020
60
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.45 KB | None | 0 0
raw download clone embed print report
  1. ####################################################
  2. # Configuration: #
  3. # via DCC: #
  4. # .chanset <#channel> +kiss - enables #
  5. # .chanset <#channel> -kiss - disables #
  6. ####################################################
  7. # Usage: #
  8. # anyone can feed the bot by typing #
  9. # .botsnack #
  10. ####################################################
  11. # define channel flag to enable quotes.
  12. setudef flag kiss
  13. # define trigger
  14. #you can change the triggers to what you want
  15.  
  16. bind pub -|- .slap pub_slap
  17. set randomreply {
  18. "across the head with a wet noodle"
  19. "to death with a big stick for a few minutes..."
  20. "with a hairy, slimey, smelly, and contaminated trout!"
  21. "with a rotten trout!"
  22. "around the head with a jelly fish."
  23. "with a great big, wet, 100% rubber DUCK!"
  24. "with a bull horn"
  25. "across the face with a used condom"
  26. "with the back hand"
  27. "with a book by Stephen King"
  28. "with a tuna. Still in the can! *BONK* That will leave a mark"
  29. "with Windows Update"
  30.  
  31. }
  32.  
  33.  
  34. bind pub -|- .kiss pub_kiss
  35. set randomreply2 {
  36. "passionately on the lips"
  37. "on the lips"
  38. }
  39.  
  40.  
  41. bind pub -|- .flirt pub_flirt
  42. set randomreply3 {
  43. "\"Do you work at Starbucks? Because I like you a latte.\""
  44. "\"I like Legos, you like Legos, why don't we build a relationship?\""
  45. "\"I will stop hitting on you when an apple grows from a mango tree on the 30th of February.\""
  46. "\"Are you a parking ticket? 'Cause you've got fine written all over you.\""
  47. "\"Do you have a Band-Aid? Because I just scraped my knee falling for you.\""
  48. "\"I wish I could select all of your clothes and press 'delete'...\""
  49. "\"Me without you is like a nerd without braces, A shoe without laces, aSentenceWithoutSpaces\""
  50. "\"I don't have a library card, but do you mind if I check you out?\""
  51. "\"I looked up your name in the Thesaurus today and it was included under hot stuff!\""
  52. "\"My doctor says I'm lacking Vitamin U.\""
  53. "\"Excuse me? Do you work at Little Ceasars? Cuz Ur Hot And I'm Ready.\""
  54. "\"I will stop hitting on you when an apple grows from a mango tree on the 30th of February.\""
  55. "\"Do you like Bacon? Wanna strip?\""
  56. "\"I wanna butter your toast and eat you for breakfast.\""
  57. "\"Damn girl! have you been eating Lucky Charms?(why?) because you're looking magically delicious!\""
  58. "\"My love for you is as hot as deep fried mozzarella sticks.\""
  59. "\"I know we just met, but will you marinade me?\""
  60. "\"Anyone can sit here and buy you drinks. I want to buy you dinner!\""
  61. "\"I like my women like I like my doughnuts... HOT and HOLY!\""
  62. "\"You’re as intoxicating as a home distilled liquor.\""
  63. "\"Is your daddy the owner of Wendy's because you make me want to eat great even late!\""
  64. "\"I'm like Burger King you can have it YOUR WAY.\""
  65. "\"Can you put some hot sauce on my enchilada, I need some spice in my life\""
  66. "\"I have a bunch of Klondike bars back at my place.\""
  67.  
  68. }
  69.  
  70. bind pub -|- .kick pub_kick
  71. set randomreply6 {
  72. " in the knee"
  73. "'s toe"
  74. " in the thigh"
  75. " in the ass"
  76. "in the balls"
  77.  
  78. }
  79.  
  80. bind pub -|- .spank pub_spank
  81. set randomreply7 {
  82. "\"Use the Hello Kitty paddle\""
  83. "\"Use the heart shaped paddle\""
  84. "\"Use the crop next time\""
  85. "\"Crying from Pleasure\""
  86. "\"Yelling Harder\""
  87. "\"begging for more\""
  88.  
  89. }
  90.  
  91. bind pub -|- .food pub_food
  92.  
  93. bind pub -|- .lick pub_lick
  94.  
  95. bind pub -|- .punch pub_punch
  96.  
  97. bind pub -|- .pizza pub_pizza
  98.  
  99. bind pub -|- .smack pub_smack
  100.  
  101. bind pub -|- .burn pub_burn
  102.  
  103. bind pub -|- .weed pub_weed
  104.  
  105. bind pub -|- .cook pub_cook
  106.  
  107. bind pub -|- .chicken pub_chicken
  108.  
  109. bind pub -|- .coffee pub_coffee
  110.  
  111. bind pub -|- .tea pub_tea
  112.  
  113. bind pub -|- .vodka pub_vodka
  114.  
  115. bind pub -|- .cookie pub_cookie
  116.  
  117. bind pub -|- .water pub_water
  118.  
  119. bind pub -|- .beef pub_beef
  120.  
  121. bind pub -|- .beer pub_beer
  122.  
  123. bind pub -|- .juice pub_juice
  124.  
  125. bind pub -|- .corona pub_corona
  126.  
  127. bind pub -|- .whiskey pub_whiskey
  128.  
  129. bind pub -|- .chocolate pub_chocolate
  130.  
  131. bind pub -|- .baileys pub_baileys
  132.  
  133. bind pub -|- .wine pub_wine
  134.  
  135. bind pub -|- .hbd pub_hbd
  136.  
  137. bind pub -|- .hotcocoa pub_hotcocoa
  138.  
  139. bind pub -|- .cake pub_cake
  140.  
  141. bind pub -|- .bacon pub_bacon
  142.  
  143. bind pub -|- .lemonade pub_lemonade
  144.  
  145. bind pub -|- .icecream pub_icecream
  146.  
  147. bind pub -|- .tequila pub_tequila
  148.  
  149. bind pub -|- .margarita pub_margarita
  150.  
  151. bind pub -|- .darkroast pub_darkroast
  152.  
  153. bind pub -|- .candlelight pub_candlelight
  154.  
  155. bind pub -|- .help pub_help
  156.  
  157. bind pub -|- .xrated pub_xrated
  158.  
  159. bind pub -|- .pg pub_pg
  160.  
  161. bind pub -|- .poke pub_poke
  162.  
  163. bind pub -|- .hug pub_hug
  164.  
  165. bind pub -|- .cpr pub_cpr
  166.  
  167. bind pub -|- .chainsaw pub_chainsaw
  168.  
  169. bind pub -|- .beat pub_beat
  170.  
  171. bind pub -|- .kill pub_kill
  172.  
  173. bind pub -|- .murder pub_murder
  174.  
  175. bind pub -|- .kidnap pub_kidnap
  176.  
  177. bind pub -|- .voodoo pub_voodoo
  178.  
  179. bind pub -|- .skin pub_skin
  180.  
  181. bind pub -|- .heart pub_heart
  182.  
  183. bind pub -|- .stab pub_stab
  184.  
  185. bind pub -|- .hatchet pub_hatchet
  186.  
  187. bind pub -|- .tickle pub_tickle
  188.  
  189. bind pub -|- .choke pub_choke
  190.  
  191. bind pub -|- .kills pub_kills
  192.  
  193. bind pub -|- .deepkiss pub_deepkiss
  194.  
  195. bind pub -|- .pistol pub_pistol
  196.  
  197. bind pub -|- .rub pub_rub
  198.  
  199. bind pub -|- .grab pub_grab
  200.  
  201. bind pub -|- .wall pub_wall
  202.  
  203. bind pub -|- .vampire pub_vampire
  204.  
  205. bind pub -|- .tacklehugs pub_tacklehugs
  206.  
  207. bind pub -|- .gn pub_gn
  208.  
  209. bind pub -|- .gm pub_gm
  210.  
  211. bind pub -|- .hello pub_hello
  212.  
  213. bind pub -|- .fingers pub_fingers
  214.  
  215. bind pub -|- .massage pub_massage
  216.  
  217. bind pub -|- .grind pub_grind
  218.  
  219. bind pub -|- .cuddles pub_cuddles
  220.  
  221. bind pub -|- .dance pub_dance
  222.  
  223. bind pub -|- .dungeon pub_dungeon
  224.  
  225. bind pub -|- .sex pub_sex
  226.  
  227. bind pub -|- .hump pub_hump
  228.  
  229. bind pub -|- .mount pub_mount
  230.  
  231. bind pub -|- .jizz pub_jizz
  232.  
  233. bind pub -|- .asskick pub_asskick
  234.  
  235. bind pub -|- .prod pub_prod
  236.  
  237. bind pub -|- .fuckyou pub_fuckyou
  238.  
  239. bind pub -|- .fuck pub_fuck
  240.  
  241. bind pub -|- .rose pub_rose
  242.  
  243. bind pub -|- .acid pub_acid
  244.  
  245. bind pub -|- .eunich pub_eunich
  246.  
  247. bind pub -|- .luv pub_luv
  248.  
  249. bind pub -|- .snuggles pub_snuggles
  250.  
  251. bind pub -|- .snuggle pub_snuggle
  252.  
  253. proc pub_slap {nick uhost hand chan arg} {
  254. set chan [string tolower $chan]
  255. global randomreply
  256. set botsays [lindex $randomreply [rand [llength $randomreply]]]
  257. if {[channel get $chan kiss]} {
  258. # putchan $chan "$botsays $arg"
  259. putserv "privmsg $chan :\001ACTION hides as $nick slaps $arg $botsays\001"
  260. }
  261. }
  262.  
  263.  
  264. proc pub_kiss {nick uhost hand chan arg} {
  265. set chan [string tolower $chan]
  266. global randomreply2
  267. set botsays2 [lindex $randomreply2 [rand [llength $randomreply2]]]
  268. if {[channel get $chan kiss]} {
  269. # putchan $chan "$botsays $arg"
  270. putserv "privmsg $chan :\001ACTION watches $nick kissing \0033$arg\003 $botsays2\001"
  271. }
  272. }
  273.  
  274.  
  275. proc pub_flirt {nick uhost hand chan arg} {
  276. set chan [string tolower $chan]
  277. global randomreply3
  278. set botsays3 [lindex $randomreply3 [rand [llength $randomreply3]]]
  279. if {[channel get $chan kiss]} {
  280. # putchan $chan "$botsays $arg"
  281. putserv "privmsg $chan :\001ACTION eavesdrops on $nick flirting with \0033$arg\003 $botsays3\001"
  282. }
  283. }
  284.  
  285.  
  286. proc pub_kick {nick uhost hand chan arg} {
  287. set chan [string tolower $chan]
  288. global randomreply6
  289. set botsays6 [lindex $randomreply6 [rand [llength $randomreply6]]]
  290. if {[channel get $chan kiss]} {
  291. # putchan $chan "$botsays $arg"
  292. putserv "privmsg $chan :\001ACTION watches $nick kicking $arg$botsays6\001"
  293. }
  294. }
  295.  
  296. proc pub_spank {nick uhost hand chan arg} {
  297. set chan [string tolower $chan]
  298. global randomreply7
  299. set botsays7 [lindex $randomreply7 [rand [llength $randomreply7]]]
  300. if {[channel get $chan kiss]} {
  301. # putchan $chan "$botsays $arg"
  302. putserv "privmsg $chan :\001ACTION accidentally walks in on $nick spanking \0033$arg\003, while \0033$arg\003 is yelling $botsays7\001"
  303. }
  304. }
  305.  
  306. proc pub_food {nick uhost hand chan arg} {
  307. set chan [string tolower $chan]
  308. putserv "privmsg $chan :\001ACTION help, xrated, pg, lick, punch, pizza, smack, burn, cook, chicken, coffee, tea, vodka, cookie, water, beef, juice, corona, whiskey, chocolate, baileys, wine, hotcocoa, cake, lemonade, bacon, icecream, tequila, margarita, darkroast, candlelight \001"
  309. }
  310.  
  311. proc pub_lick {nick uhost hand chan arg} {
  312. set chan [string tolower $chan]
  313. putserv "privmsg $chan :\001ACTION watches $arg lick a large sucker from the circus\001"
  314. }
  315.  
  316. proc pub_punch {nick uhost hand chan arg} {
  317. set chan [string tolower $chan]
  318. putserv "privmsg $chan :\001ACTION hears $nick offer $arg a glass of punch\001"
  319. }
  320.  
  321. proc pub_pizza {nick uhost hand chan arg} {
  322. set chan [string tolower $chan]
  323. putserv "privmsg $chan :\001ACTION gives $arg a large slice of pizza\001"
  324. }
  325. proc pub_smack {nick uhost hand chan arg} {
  326. set chan [string tolower $chan]
  327. putserv "privmsg $chan :\001ACTION smack $arg across the face with a banana\001"
  328. }
  329. proc pub_burn {nick uhost hand chan arg} {
  330. set chan [string tolower $chan]
  331. putserv "privmsg $chan :\001ACTION witnessed $arg burn the toast this morning for breakfast\001"
  332. }
  333. proc pub_weed {nick uhost hand chan arg} {
  334. set chan [string tolower $chan]
  335. putserv "privmsg $chan :\001ACTION lights up a spliff and passes it to $arg saying puff puff pass my nigga\001"
  336. }
  337.  
  338. proc pub_cook {nick uhost hand chan arg} {
  339. set chan [string tolower $chan]
  340. putserv "privmsg $chan :\001ACTION watches $nick cooking food for $arg\001"
  341. }
  342.  
  343. proc pub_chicken {nick uhost hand chan arg} {
  344. set chan [string tolower $chan]
  345. putserv "privmsg $chan :\001ACTION sticks feather on $arg and calls him/her a chicken\001"
  346. }
  347.  
  348. proc pub_coffee {nick uhost hand chan arg} {
  349. set chan [string tolower $chan]
  350. putserv "privmsg $chan :\001ACTION makes $arg a nice hot cup of coffee \001"
  351. }
  352. proc pub_tea {nick uhost hand chan arg} {
  353. set chan [string tolower $chan]
  354. putserv "privmsg $chan :\001ACTION gives $arg a mug of 3green tea\001"
  355. }
  356.  
  357. proc pub_vodka {nick uhost hand chan arg} {
  358. set chan [string tolower $chan]
  359. putserv "privmsg $chan :\001ACTION slides $arg a bottle of vodka and says cheers!\001"
  360. }
  361.  
  362. proc pub_cookie {nick uhost hand chan arg} {
  363. set chan [string tolower $chan]
  364. putserv "privmsg $chan :\001ACTION bakes chocolate chip cookies for $arg \001"
  365. }
  366.  
  367. proc pub_water {nick uhost hand chan arg} {
  368. set chan [string tolower $chan]
  369. putserv "privmsg $chan :\001ACTION gives $arg a cold glass of water\001"
  370. }
  371. proc pub_beef {nick uhost hand chan arg} {
  372. set chan [string tolower $chan]
  373. putserv "privmsg $chan :\001ACTION gives $arg a big beef shawarma and a nice cold can of pepsi \001"
  374. }
  375.  
  376. proc pub_beer {nick uhost hand chan arg} {
  377. set chan [string tolower $chan]
  378. putserv "privmsg $chan :\001ACTION spies $nick give $arg a nice cold beer\001"
  379. }
  380.  
  381. proc pub_juice {nick uhost hand chan arg} {
  382. set chan [string tolower $chan]
  383. putserv "privmsg $chan :\001ACTION gives $arg a nice cold glass of orange juice\001"
  384. }
  385. proc pub_corona {nick uhost hand chan arg} {
  386. set chan [string tolower $chan]
  387. putserv "privmsg $chan :\001ACTION watches $nick give $arg a cold bottle of corona\001"
  388. }
  389.  
  390. proc pub_whiskey {nick uhost hand chan arg} {
  391. set chan [string tolower $chan]
  392. putserv "privmsg $chan :\001ACTION gives $arg a glass of black label whiskey while saying cheers\001"
  393. }
  394.  
  395. proc pub_chocolate {nick uhost hand chan arg} {
  396. set chan [string tolower $chan]
  397. putserv "privmsg $chan :\001ACTION saw $nick give chocolate kisses candy to $arg \001"
  398. }
  399. proc pub_baileys {nick uhost hand chan arg} {
  400. set chan [string tolower $chan]
  401. putserv "privmsg $chan :\001ACTION gives $arg a nice cold glass of baileys\001"
  402. }
  403.  
  404. proc pub_wine {nick uhost hand chan arg} {
  405. set chan [string tolower $chan]
  406. putserv "privmsg $chan :\001ACTION watches $nick and $arg drink a glass of chilled rose wine\001"
  407. }
  408.  
  409. proc pub_hbd {nick uhost hand chan arg} {
  410. set chan [string tolower $chan]
  411. putserv "privmsg $chan :\001ACTION throws 6CONFETTI & 11BALLOONS 10in the air and screams '26Happy25Birthday24Day $arg\001"
  412. }
  413. proc pub_hotcocoa {nick uhost hand chan arg} {
  414. set chan [string tolower $chan]
  415. putserv "privmsg $chan :\001ACTION makes $arg a nice cup of hot chocolate with extra marshmellows\001"
  416. }
  417.  
  418. proc pub_cake {nick uhost hand chan arg} {
  419. set chan [string tolower $chan]
  420. putserv "privmsg $chan :\001ACTION offers $arg a slice of cake of their choice\001"
  421. }
  422.  
  423. proc pub_lemonade {nick uhost hand chan arg} {
  424. set chan [string tolower $chan]
  425. putserv "privmsg $chan :\001ACTION offers $arg a glass of freshly squeezed lemonade\001"
  426. }
  427. proc pub_bacon {nick uhost hand chan arg} {
  428. set chan [string tolower $chan]
  429. putserv "privmsg $chan :\001ACTION cooks some crispy bacon for $arg \001"
  430. }
  431.  
  432. proc pub_icecream {nick uhost hand chan arg} {
  433. set chan [string tolower $chan]
  434. putserv "privmsg $chan :\001ACTION offers $arg a double scoop of ice cream to enjoy\001"
  435. }
  436.  
  437. proc pub_tequila {nick uhost hand chan arg} {
  438. set chan [string tolower $chan]
  439. putserv "privmsg $chan :\001ACTION pours a shot of tequila for $arg and $nick \001"
  440. }
  441. proc pub_margarita {nick uhost hand chan arg} {
  442. set chan [string tolower $chan]
  443. putserv "privmsg $chan :\001ACTION slides $arg a large frozen margarita\001"
  444. }
  445.  
  446. proc pub_darkroast {nick uhost hand chan arg} {
  447. set chan [string tolower $chan]
  448. putserv "privmsg $chan :\001ACTION makes $arg a hot cup of dark roasted coffee\001"
  449. }
  450.  
  451. proc pub_candlelight {nick uhost hand chan arg} {
  452. set chan [string tolower $chan]
  453. putserv "privmsg $chan :\001ACTION has set up a table for $nick and $arg to have a nice quiet candlelight dinner alone.\001"
  454. }
  455.  
  456. proc pub_help {nick uhost hand chan arg} {
  457. set chan [string tolower $chan]
  458. putserv "privmsg $chan :\001ACTION food, xrated, pg, poke, chainsaw, beat, burn, kill, murder, kidnap, voodoo, skin, stab, hatchet, choke, kills, pistol, vampire, asskick, acid, eunich \001"
  459. }
  460.  
  461. proc pub_xrated {nick uhost hand chan arg} {
  462. set chan [string tolower $chan]
  463. putserv "privmsg $chan :\001ACTION help, food, pg, deepkiss, fingers, massage, grind, cuddles, dungeon, sex, hump, mount, jizz, fuckyou, fuck, prod, rub, grab, wall, cpr\001"
  464. }
  465.  
  466. proc pub_pg {nick uhost hand chan arg} {
  467. set chan [string tolower $chan]
  468. putserv "privmsg $chan :\001ACTION help, food, xrated, slap, kiss, flirt, hug, heart, tickle, tacklehugs, gn, gm, hello, snuggles, snuggle, dance, luv, rose, hbd, weed\001"
  469. }
  470.  
  471. proc pub_poke {nick uhost hand chan arg} {
  472. set chan [string tolower $chan]
  473. putserv "privmsg $chan :\001ACTION pokes $arg in the eyes with a sharp pencil\001"
  474. }
  475.  
  476. proc pub_hug {nick uhost hand chan arg} {
  477. set chan [string tolower $chan]
  478. putserv "privmsg $chan :\001ACTION watches $nick give $arg a warm and tight hug\001"
  479. }
  480.  
  481. proc pub_cpr {nick uhost hand chan arg} {
  482. set chan [string tolower $chan]
  483. putserv "privmsg $chan :\001ACTION watches $nick perform mouth to mouth CPR on $arg only to have $arg stick their tongue into $nick mouth\001"
  484. }
  485.  
  486. proc pub_chainsaw {nick uhost hand chan arg} {
  487. set chan [string tolower $chan]
  488. putserv "privmsg $chan :\001ACTION smiles sweetly at $arg taking out the chainsaw and slicing $arg's arms and legs off leaving only eyeballs behind, smiling deviantly at their horrific work\001"
  489. }
  490.  
  491. proc pub_beat {nick uhost hand chan arg} {
  492. set chan [string tolower $chan]
  493. putserv "privmsg $chan :\001ACTION was a witness of watching $nick beat $arg with a sledgehammer\001"
  494. }
  495.  
  496. proc pub_kill {nick uhost hand chan arg} {
  497. set chan [string tolower $chan]
  498. putserv "privmsg $chan :\001ACTION watches $nick kill $arg with a glock nine\001"
  499. }
  500.  
  501. proc pub_murder {nick uhost hand chan arg} {
  502. set chan [string tolower $chan]
  503. putserv "privmsg $chan :\001ACTION watches $nick murder $arg with an axe\001"
  504. }
  505.  
  506. proc pub_kidnap {nick uhost hand chan arg} {
  507. set chan [string tolower $chan]
  508. putserv "privmsg $chan :\001ACTION helps $nick kidnap $arg by placing them in the trunk of the car \001"
  509. }
  510.  
  511. proc pub_voodoo {nick uhost hand chan arg} {
  512. set chan [string tolower $chan]
  513. putserv "privmsg $chan :\001ACTION watches $nick do some voodoo magic on $arg by turning them into a zombie\001"
  514. }
  515.  
  516. proc pub_skin {nick uhost hand chan arg} {
  517. set chan [string tolower $chan]
  518. putserv "privmsg $chan :\001ACTION watches $nick skin $arg with a sharp hunting knife\001"
  519. }
  520.  
  521. proc pub_heart {nick uhost hand chan arg} {
  522. set chan [string tolower $chan]
  523. putserv "privmsg $chan :\001ACTION puts $nick's hands onto $arg's ❤❤❤ heart ❤❤❤ as $nick looks longingly into their eyes \001"
  524. }
  525.  
  526. proc pub_stab {nick uhost hand chan arg} {
  527. set chan [string tolower $chan]
  528. putserv "privmsg $chan :\001ACTION watches $nick viciously stab $arg with dragon glass \001"
  529. }
  530.  
  531. proc pub_hatchet {nick uhost hand chan arg} {
  532. set chan [string tolower $chan]
  533. putserv "privmsg $chan :\001ACTION runs at $arg with the speed of lightning, removing $arg's head with the rusted hatchet \001"
  534. }
  535.  
  536. proc pub_tickle {nick uhost hand chan arg} {
  537. set chan [string tolower $chan]
  538. putserv "privmsg $chan :\001ACTION watches $nick tickle $arg with a white feather\001"
  539. }
  540.  
  541. proc pub_choke {nick uhost hand chan arg} {
  542. set chan [string tolower $chan]
  543. putserv "privmsg $chan :\001ACTION choke $arg with an iphone charger\001"
  544. }
  545.  
  546. proc pub_kills {nick uhost hand chan arg} {
  547. set chan [string tolower $chan]
  548. putserv "privmsg $chan :\001ACTION selects her favorite stick of bodily destruction and utterly destroys $arg, assasinating $arg as planned by $nick\001"
  549. }
  550.  
  551. proc pub_deepkiss {nick uhost hand chan arg} {
  552. set chan [string tolower $chan]
  553. putserv "privmsg $chan :\001ACTION watches $nick pick up $arg and sets them on the counter before grabbing their sides firmly and pulling them closer as $nick leans forward and kisses $arg on the lips nearly stumbling over\001"
  554. }
  555.  
  556.  
  557. proc pub_pistol {nick uhost hand chan arg} {
  558. set chan [string tolower $chan]
  559. putserv "privmsg $chan :\001ACTION watches $nick pull out a gun and puts a bullet in $arg head\001"
  560. }
  561.  
  562.  
  563. proc pub_rub {nick uhost hand chan arg} {
  564. set chan [string tolower $chan]
  565. putserv "privmsg $chan :\001ACTION watches $nick rub themselves all over $arg\001"
  566. }
  567.  
  568. proc pub_grab {nick uhost hand chan arg} {
  569. set chan [string tolower $chan]
  570. putserv "privmsg $chan :\001ACTION watches $nick as they grab $arg by the sides and and pulls them down as $nick falls backwards so that $arg lands on top. $nick brushes $arg's hair out of their face and looks longingly into their eyes before kissing their nose, then a light brush on their lips\001"
  571. }
  572.  
  573. proc pub_wall {nick uhost hand chan arg} {
  574. set chan [string tolower $chan]
  575. putserv "privmsg $chan :\001ACTION watches $nick move over to $arg and puts his hands against the wall blocking $arg's movement. $nick quickly moves a hand from the wall and puts it on the small of $arg's back as he brushes his lips against the side of $arg's neck, his hand on her back roaming upwards, his body close to hers\001"
  576. }
  577.  
  578. proc pub_vampire {nick uhost hand chan arg} {
  579. set chan [string tolower $chan]
  580. putserv "privmsg $chan :\001ACTION watches $nick sinks their fangs into $arg neck turning them into a vampire\001"
  581. }
  582.  
  583. proc pub_tacklehugs {nick uhost hand chan arg} {
  584. set chan [string tolower $chan]
  585. putserv "privmsg $chan :\001ACTION watches $nick tacklehugs $arg and they both fall to the ground\001"
  586. }
  587.  
  588. proc pub_gn {nick uhost hand chan arg} {
  589. set chan [string tolower $chan]
  590. putserv "privmsg $chan :\001ACTION watches $nick give $arg a big good night hug\001"
  591. }
  592.  
  593. proc pub_gm {nick uhost hand chan arg} {
  594. set chan [string tolower $chan]
  595. putserv "privmsg $chan :\001ACTION watches $nick give $arg a huge good morning hug\001"
  596. }
  597.  
  598. proc pub_hello {nick uhost hand chan arg} {
  599. set chan [string tolower $chan]
  600. putserv "privmsg $chan :\001ACTION listens in while $nick tells everyone in the channel hello\001"
  601. }
  602.  
  603. proc pub_fingers {nick uhost hand chan arg} {
  604. set chan [string tolower $chan]
  605. putserv "privmsg $chan :\001ACTION watches $nick using their magic fingers on $arg\001"
  606. }
  607.  
  608. proc pub_massage {nick uhost hand chan arg} {
  609. set chan [string tolower $chan]
  610. putserv "privmsg $chan :\001ACTION watches $nick give $arg a deep penetrating massage\001"
  611. }
  612.  
  613. proc pub_grind {nick uhost hand chan arg} {
  614. set chan [string tolower $chan]
  615. putserv "privmsg $chan :\001ACTION watches $nick grind on $arg \001"
  616. }
  617.  
  618. proc pub_cuddles {nick uhost hand chan arg} {
  619. set chan [string tolower $chan]
  620. putserv "privmsg $chan :\001ACTION watches $nick cuddle up with $arg on the sofa\001"
  621. }
  622.  
  623. proc pub_dance {nick uhost hand chan arg} {
  624. set chan [string tolower $chan]
  625. putserv "privmsg $chan :\001ACTION watches $nick take $arg into their arms and sway to the music with them\001"
  626. }
  627.  
  628. proc pub_dungeon {nick uhost hand chan arg} {
  629. set chan [string tolower $chan]
  630. putserv "privmsg $chan :\001ACTION watches $nick send $arg to the dungeon for being naughty\001"
  631. }
  632.  
  633. proc pub_sex {nick uhost hand chan arg} {
  634. set chan [string tolower $chan]
  635. putserv "privmsg $chan :\001ACTION watches $nick have hot and steamy sex with $arg all throughout the house\001"
  636. }
  637.  
  638. proc pub_hump {nick uhost hand chan arg} {
  639. set chan [string tolower $chan]
  640. putserv "privmsg $chan :\001ACTION watches $nick hump $arg in the shower\001"
  641. }
  642.  
  643. proc pub_mount {nick uhost hand chan arg} {
  644. set chan [string tolower $chan]
  645. putserv "privmsg $chan :\001ACTION watches $nick mount $arg and ride him like the stallion he is\001"
  646. }
  647.  
  648. proc pub_jizz {nick uhost hand chan arg} {
  649. set chan [string tolower $chan]
  650. putserv "privmsg $chan :\001ACTION watches $nick pull out his cawk and starts whack'n it and starting aiming wildly.. o0o0o0oo0o start JiZz'N all over the place..it starts flying thru the muhhhfukkkk'N air and lands in $arg'z hair and on their face !!\001"
  651. }
  652.  
  653. proc pub_asskick {nick uhost hand chan arg} {
  654. set chan [string tolower $chan]
  655. putserv "privmsg $chan :\001ACTION watches $nick kick $arg'z ass all around the channel!!\001"
  656. }
  657.  
  658. proc pub_prod {nick uhost hand chan arg} {
  659. set chan [string tolower $chan]
  660. putserv "privmsg $chan :\001ACTION prods $arg with a giant dildo\001"
  661. }
  662.  
  663. proc pub_fuckyou {nick uhost hand chan arg} {
  664. set chan [string tolower $chan]
  665. putserv "privmsg $chan :\001ACTION tells $arg fuck you\001"
  666. }
  667.  
  668. proc pub_fuck {nick uhost hand chan arg} {
  669. set chan [string tolower $chan]
  670. putserv "privmsg $chan :\001ACTION watches $nick grabs $arg from behind, bends her over and rough fucks her making her moan and scream out his name.\001"
  671. }
  672.  
  673. proc pub_rose {nick uhost hand chan arg} {
  674. set chan [string tolower $chan]
  675. putserv "privmsg $chan :\001ACTION watches $nick offer $arg a rose 4@3>--`---,---!\001"
  676. }
  677.  
  678. proc pub_acid {nick uhost hand chan arg} {
  679. set chan [string tolower $chan]
  680. putserv "privmsg $chan :\001ACTION watches $nick lower $arg into a vat of hot acid watching the flesh melt off their bones\001"
  681. }
  682.  
  683. proc pub_eunich {nick uhost hand chan arg} {
  684. set chan [string tolower $chan]
  685. putserv "privmsg $chan :\001ACTION watches $nick turn $arg into a eunich with two bricks!\001"
  686. }
  687.  
  688. proc pub_luv {nick uhost hand chan arg} {
  689. set chan [string tolower $chan]
  690. putserv "privmsg $chan :\001ACTION watches $nick tell $arg I love you and tells $arg to stay with me until the end of time.\001"
  691. }
  692.  
  693. proc pub_snuggles {nick uhost hand chan arg} {
  694. set chan [string tolower $chan]
  695. putserv "privmsg $chan :\001ACTION watches $nick snuggles with $arg so hard that $arg farts a lil\001"
  696. }
  697.  
  698. proc pub_snuggle {nick uhost hand chan arg} {
  699. set chan [string tolower $chan]
  700. putserv "privmsg $chan :\001ACTION climbs on the couch to snuggle with $nick and $arg while watching a movie on NetFlix.\001"
  701. }
  702.  
  703. putlog "my \0034flirt script by Foxy v1.0 loaded"
  704.  
  705.  
  706.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!