napa182 commented on a Page, 8ball (IMPORVED) + dialog and extra  -  Oct 28, 2009

lmao...... most people that act alike hash is more work dont really understand them so just agree an move on it's just another magic 8 ball script ffs.

old version i made long ago
ask in the form of a question

on $*:text:/^(8ball\s(.+)\?)$/S:#:{ if (!$($+(%,ball8flood),2)) { set -u3 $+(%,ball8flood) $nick | if ($sock(8ball)) .sockclose 8ball | sockopen 8ball pages.cs.wisc.edu 80 | .sockmark 8ball #  } }
on *:SOCKOPEN:8ball: { sockwrite -nt $sockname GET /~craft/8ball.cgi HTTP/1.1 | sockwrite -nt $sockname Host: $+(pages.cs.wisc.edu,$str($crlf,2)) }
on *:SOCKREAD:8ball: {
  var %8ball | sockread %8ball
  if ($regex(%8ball,/<h4>(.+)<\/h4>/)) { msg $sock(8ball).mark 14[04The magic 8ball says:14] $regml(1) | sockclose 8ball }
}
 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.