By Matthew Aidekman.
Nerd stuff… :-)

Below is the patch itself.
max v2
#N vpatcher 0 44 1020 768
#P window setfont “Sans Serif” 12.000
#P comment 226 55 100 196620 by: me.
#P comment 226 39 130 196620 bored erotic fiction.
#P window setfont “Sans Serif” 9.000
#P newex 160 132 49 196617 bangbang
#P newex 108 132 49 196617 bangbang
#P newex 78 86 61 196617 sysexin
#P newex 165 153 32 196617 swap
#P newex 43 218 27 196617 pipe
#P newex 3 218 33 196617 pink~
#P newex 350 110 40 196617 peak
#P newex 3 86 32 196617 offer
#N movie 100 100 400 400
#P newobj 3 43 40 196617 movie
#P newex 40 86 35 196617 metro
#P newex 118 110 45 196617 groove~
#P newex 3 63 45 196617 forward
#P newex 50 63 35 196617 dialog
#P newex 126 175 50 196617 degrade~
#P newex 297 110 16 196617 in
#P newex 319 110 29 196617 out~
#P newex 264 110 29 196617 out~
#P newex 244 110 16 196617 in
#P newex 3 24 38 196617 begin~
#P newex 57 132 49 196617 bangbang
#P newex 37 110 41 196617 touchin
#P newex 42 175 79 196617 teeth~
#P newex 393 110 35 196617 spray
#P newex 82 110 35 196617 poke~
#P newex 167 110 41 196617 plugin~
#P newex 3 153 34 196617 play~
#P newex 3 153 33 196617 pink~
#P newex 211 110 29 196617 out~
#P newex 3 175 33 196617 kink~
#P newex 3 110 29 196617 grab
#P newex 86 153 40 196617 drunk
#P newex 42 153 40 196617 date
#P newex 37 197 33 196617 asin~
#P newex 127 153 35 196617 buddy
#P newex 3 132 49 196617 bangbang
#P newex 3 197 29 196617 anal
#P window setfont “Sans Serif” 12.000
#P comment 226 22 100 196620 the date
#P pop