mIRC Meme generator Sock

Platform: mIRC

Published Apr 14, 2012

Updated Apr 14, 2012

476 6

This is a meme socket generator.
Its a litle socket which grabs random memes from a website.

Example
<Aha2Y> !meme
<Bot> THEY SEE ME MASTICATIN, THEY SHOOTIN
<Aha2Y> !meme
<Bot> WE'VE SECRETLY REPLACED TROGDOR'S BEARD WITH A DUCK. LET'S SEE IF HE NOTICES...
<Aha2Y> !meme
<Bot> YOUR MORON IS NOT COOL
<Aha2Y> !meme
<Bot> 4CHANCAT IS A 4CHAN

;Meme generator socket by Aha2Y

;Do whatever you want with it.



on *:text:!meme:#:{ 

  set -u5 %meme.chan $chan

  sockClose meme

  sockOpen meme api.automeme.net 80

}



on *:SockOpen:meme: {

  sockWrite -nt meme GET /text HTTP/1.0

  sockWrite -nt meme Host: api.automeme.net

  sockWrite -nt meme $crlf

}



on *:SockRead:meme: {

  var %read

  sockRead -f %read

  if (%read == $null) { 

    sockRead %read

    tokenize 32 %read

    msg %meme.chan $1-

  }

}

Comments

Wims - Apr 23, 2012

MaSOuD, because his condition is only true once, when the headers have been sent; with your condition, it would be true for any line of the headers

Also, to any people here, do not use /sockwrite -n if what you are sending ends with a $crlf (typically the last line of the headers you are sending)

Respond

napa182 - Apr 16, 2012

nice work Aha2Y
another way it can be done, but then again there are many ways it can be done....

		Code 			
on $*:text:/^!meme$/iS:#:{
  if (!%m) {
    if ($sock(meme)) sockclose meme
    sockopen meme api.automeme.net 80 
    sockmark meme msg #
  }
}
on *:sockopen:meme:{ 
  sockwrite -nt meme GET /text HTTP/1.1
  sockwrite -nt meme Host: $+($sock(meme).addr,$str($crlf,2))
} 
on *:sockread:meme: { 
  var %meme | sockread %meme
  if ($regex(%meme,/(.+)/)) { inc -u5 %m 
    if (%m = 9) {
      $sock(meme).mark $regml(1) 
      sockclose meme
    }
  }
}	

again nice work you should think of putting a flood pro into it.

Respond

Lenooox - Apr 15, 2012

Looks good, I like :)

Respond

MaSOuD - Apr 15, 2012

Why not just using

		Code 			
if (%read != $null) {
  tokenize 32 %read
  msg %meme.chan $1-
}	

Respond

fraguk - Apr 14, 2012

Nice Aha2Y :)

Respond

Jethro - Apr 14, 2012

Interesting use of tokenize and repeated sockread commands to escape the header and multiple buffers from being shown in one setting...

Respond