A pretty useless half to full width converter

By skottiejaybird on Apr 06, 2012

This is my first submit, let me get organized here. Dusts off hat

Alright, are you all ready for this?

So, I guess really all this does is turn half width text into full width. It was a PITA to try and do it manually via website so I just worked up some sockets to use in mIRC.

the syntax is /hwfw whatever you want to type here.

That's pretty much it.

Please, if you can find anything wrong, or post any corrections or a better way of doing this feel free. I'm open to suggestions as this is my first completely submitted and real script.

[21:18] <~skt> "what is this useful for"
[21:18] <~skt> it’s useful for nothing you jerk

the second line is the example of what happens.

alias hwfw {
  sockopen lde kiserai.net 80
  %x = $1-
}
on *:SOCKOPEN:lde*:{
  sockwrite -n $sockname GET /hwfw.pl?input= $+ $urlencode(%x) $+ &submit=Convert HTTP/1.1
  sockwrite -n $sockname Host: kiserai.net
  sockwrite -n $sockname Accept-Charset: text/html; charset=utf-8
  sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  sockwrite -n $sockname $crlf
}
on *:sockread:lde*:{
  var %fullw | sockread %fullw
  if ($regex($sockname,%fullw,/<p>(.+?)</p><form method=post action=hwfw.pl>/)) { 
    msg $active $regml($sockname,1)
  }
}
alias urlencode return $regsubex($1-,/\G(.)/g,$iif(($prop &amp;&amp; \1 !isalnum) || !$prop,$chr(37) $+ $base($asc(\1),10,16),\1))

Comments

Sign in to comment.
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.