Random Twasted Tweets

[chain]

Just another socket from me ;x this one looks up a random tweet from twasted tweets.
copy/paste into a new remote. Trigger is @twasted or @twast

May not be right for +G rated channels

As always rip strip this snippet how ever you see fit. I can care less.

ex:

<~napa182> @twasted
<&Sick0> TwastedTweets: RT @AdInsanitum Well, what would YOU have made out of these Scrabble tiles? CSUMHOT... Last time I play board games with kids at the Y again

<~napa182> @twasted
<&Sick0> TwastedTweets: RT @rsmallbone My erection lasted for 4 hours +. I called my doctor but he didnt seem too impressed so I showed it to some ppl at the mall

<~napa182> @twast
<&Sick0> TwastedTweets: RT @shariv67 The most tedious part of being an Afghani phone sex operator is describing what I'm wearing.

<~napa182> @twast
<&Sick0> TwastedTweets: RT @ruthakers Man at Walmart asked me the name of "Mommys Lil Helpers". Judging by his face "Xanax & Vodka" wasnt the reply he was looking 4

 

on $*:text:/^@(twast(ed)?)$/iS:#: {
  if (!$($+(%,f,#),2)) { inc -u4 $+(%,f,#)
    if ($sock($+(Twast,#))) sockclose $+(Twast,#)
    sockopen $+(Twast,#) api.twitter.com 80
    sockmark $+(Twast,#) $r(1,20) $&
      $+(/1/statuses/user_timeline/TwastedTweets.rss?page=,$r(1,26)) msg #
  }
}
on *:sockopen:Twast*: {
  sockwrite -nt $sockname GET $gettok($sock($sockname).mark,2,32) HTTP/1.1
  sockwrite -nt $sockname Host: $+($sock($sockname).addr,$str($crlf,2))
}
on *:load:{
  echo 12 -a You Have Just Loaded Napa182's Twasted Tweets Snippet 
  echo -a 08!!04WARNING08 This snippet may04/08will say curse04/08foul words 04WARNING08!!
}
alias -l twast return $regsubex($1-,/("|&)|\46\43(\d+)\73/g,$iif(\1 isnum,$chr(\1),$iif(\1 = ",",&)))
on *:sockread:Twast*: {
  var %Twast | sockread %Twast
  if ($regex(%Twast,/<title>(Twa.+?)<\/title>/)) { inc -u4 %tw 1  
    if (%tw = $gettok($sock($sockname).mark,1,32)) { 
      $gettok($sock($sockname).mark,3-,32) $twast($regml(1)) 
      sockclose $sockname
    }
  }
}