WacKEDmaN

Untitled

Jan 14th, 2019
306
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 1.05 KB | None | 0 0
  1. # nug 0.9 by WacKEDmaN
  2. #
  3. # Quotes random dan is lame quotes.
  4. #
  5. # Much of this script was stolen from the Discworld quotes script, which
  6. # you can get off the bseen tcl site. google it. Thanks to Dibbler for that.
  7. #
  8. #
  9. # Public, message, and dcc command to display lyrics is !daniel_j
  10. # or just change the !daniel_j below to whatever you want, .daniel_j, -daniel_j,
  11. # whatever.
  12. #
  13.  
  14. ## public command. ##
  15. bind pub - !shrug pub_shrug
  16. bind pub - !flip pub_flip
  17.  
  18. ## start meat & potatoes of script. ##
  19. proc pub_ahrug{ nick mask hand channel args } {
  20.     global shrug
  21.        putquick "PRIVMSG $channel :[lindex $shrug [rand [llength $shrug]]]"
  22. }
  23. proc pub_flip{ nick mask hand channel args } {
  24.     global flip
  25.        putquick "PRIVMSG $channel :[lindex $flip [rand [llength $flip]]]"
  26. }
  27.  
  28. set shrug {
  29.  
  30. \_(ツ)_/¯"
  31. }
  32.  
  33. set flip {
  34.  
  35. "(╯°□°)╯︵ ┻━┻"
  36. "(ノಠ益ಠ)ノ彡┻━┻"
  37. "┬─┬ノ( º _ ºノ)"
  38. "┻━┻ ︵ ¯\(ツ)/¯ ︵ ┻━┻"
  39. "┬──┬ ¯\_(ツ)"
  40.  
  41. }
  42.  
  43. putlog "nug.tcl is lame by WacKEDmaN loaded."
Add Comment
Please, Sign In to add comment