Unnamed

; !w1villages script created using Chessnut's Simple Socket Script Creator

on *:text:!w1villages*:#: {
  if ($sock(World.1.villages)) .sockclose World.1.villages
  set %chan $chan
  sockopen World.1.villages tw1.tribalwars.net 80
}
on *:SOCKOPEN:World.1.villages: {
  sockwrite -nt $sockname GET /stat.php HTTP/1.1
  sockwrite -nt $sockname Host: tw1.tribalwars.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:World.1.villages: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Villages* iswm %sockreader) {
      noop $regex(%sockreader,/:(.*?)\(/Si)
      var %tempvar $remove($nohtml($regml(1)),5.10 per player))
      msg %chan There are %tempvar villages in world 1.
      unset %chan
      sockclose $sockname
    }
  }
}