napa182 commented on a Page, Random Slogans  -  Dec 04, 2010

ok updated so remove the old one and copy/paste the new uptop or the one on this post

ended up going with http://www.sloganizer.net/en/

<&napa182> @slo napa182
<&Sick0> :[Random Slogan]: napa182 - You see this name, you think dirty.

<&napa182> @slo Typo
<&Sick0> :[Random Slogan]: Typo is rolling, the others are stoned.

<&napa182> @slo shanker is a nut
<&Sick0> :[Random Slogan]: shanker is a nut is inspiration.

on $*:text:/^@slo\s(.+)/Si:#:{ 
  if (!$($+(%,f,#),2)) { inc -u5 $+(%,f,#)
    if ($sock($+(slo,#))) sockclose $+(slo,#)
    sockopen $+(slo,#) www.sloganizer.net 80 
    sockmark $+(slo,#) msg # 09:[04Random Slogan09]: $regml(1)
  }
}
on *:load: {
  echo 12 -a You Have Just Loaded Napa182's Random Slogan 
  echo 12 -a An irc.EzzyChat.com Production
}
on *:sockopen:slo*:{ 
  var %slo $+(fslogan=,$gettok($sock($sockname).mark,5-,32),&submit=Sloganize!),$&
    %slo2 = sockwrite -n $sockname
  %slo2 POST /en/ HTTP/1.1 
  %slo2 Host: $sock($sockname).addr 
  %slo2 Content-Type: application/x-www-form-urlencoded 
  %slo2 Content-Length: $len(%slo) 
  %slo2 $+($crlf,%slo)
}
on *:sockread:slo*: { 
  var %slo | sockread %slo
  if ($regex(%slo,/<div class=.+<b>(.+?)<\/b>/)) { 
    $gettok($sock($sockname).mark,1-4,32) $regml(1)
    sockclose $sockname
  }
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.