Random Quote Quit

By ProIcons on Nov 25, 2009

Just type /quit

alias quit {
  sockclose quotes
  sockopen quotes www.randomquotes.net 80
}
on *:sockopen:Quotes:{
 if ($sockerr) { sockclose quotes | disconnect | halt }
  sockwrite -n $sockname GET / HTTP/1.0 
  sockwrite -n $sockname Host: www.randomquotes.net $+ $CRLF $+ $CRLF
}
on *:sockread:Quotes:{
  sockread -f %quotes
  if (*class="quote"* iswm %quotes) { QQuotes %quotes }
}
alias QQuotes {
  var %p $remove($gettok($1-,$+($findtok($1-,$wildtok($1-,*<br><br>*,1,32),32),-),32),<br><br>,</p>)
  set %Quitres $remove($1-,<p class="quote">,</p>,<br><Br>,%p)
  set %QuitOwn $remove($gettok($1-,$+($findtok($1-,$wildtok($1-,*<br><br>*,1,32),32),-),32),<br><br>,</p>)
  !Quit %Quitres (By: %Quitown $+ )
}

Comments

Sign in to comment.
JDavis   -  Nov 29, 2009

should have some sort of channel control here i think.. my bot is in afew channels.. not all enjoy spam.. thx though.. ^^

 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.