;Simple Webserver for mIRC
alias start {
  socklisten httpd 8080
}
on 1:socklisten:httpd:{
  echo User connected.
  inc %count
  sockaccept httpd $+ %count
}
on 1:sockread:httpd*:{
  var %read
  sockread %read
  tokenize 32 %read
  echo %read
  if ( $1 == GET ) {
    if ( $2 != /?easter ) {
      echo 4Processing GET

      var %text <title>mIRC Stats by TMFKSOFT</title><font face=arial><center><h1>TMFKSOFT's mIRC Stats</h1><hr></hr>
      var %text %text I'm on $rchans channels, across $rnets networks. I have %olinecount olines, $rowners owners, $radmins admins, $rops ops, $rhops halfops, and $rvoice voices. I have EPICLY abusive power over $rpower people.
      var %text %text <br><b>Active window:</b><br> $+ $replace($replace($active,<,<),>,>) <p>
      var %text %text <b>Active network:</b><br> $+ $replace($replace($network,<,<),>,>) <p>
      var %text %text <b>Active server:</b><br> $+ $replace($replace($server,<,<),>,>) <p>
      var %text %text <b>My active nick:</b><br> $+ $replace($replace($me,<,<),>,>) <p>
      var %text %text <b>My operating system is:</b><br> $+ $replace($replace($os,<,<),>,>) <p>
      var %text %text <b>My mIRC Version is:</b><br> $+ $replace($replace($version,<,<),>,>) <p>
      var %text %text <hr></hr><h1>Your stats</h1><hr></hr><br>
      var %text %text <b>Requested url:</b><br> $+ $2 <p>
      var %text %text <hr></hr>Created by Thomas Edwards (TMFKSOFT)
      sockwrite -nt $sockname $3 200 OK
      sockwrite -nt $sockname Content-Type: text/html
      sockwrite -nt $sockname Content-Length: $len(%text)
      sockwrite -nt $sockname Server: TMFK Webserver v1 $+ $str($crlf,2)
      sockwrite -nt $sockname %text
      echo Returning $qt(%text) to user.
    }
    else {
      var %text <table width=100% height=100%><tr><td><center><font face=arial><h1>HOE BURGERS</h1></font></center></td></tr></table>
      sockwrite -nt $sockname $3 200 OK
      sockwrite -nt $sockname Content-Type: text/html
      sockwrite -nt $sockname Content-Length: $len(%text)
      sockwrite -nt $sockname Server: TMFK Webserver v1 $+ $str($crlf,2)
      sockwrite -nt $sockname %text
    }
  }
}