Untitled

alias Status {
  sockopen bey beyond.lt 80

}

on *:sockopen:bey: { 
  if ($sockerr) { /msg $chan _-Sevas-_ neveikia botas. | return }
  else { 
    sockwrite -n $sockname GET /status/s.txt HTTP/1.0
    sockwrite -n $sockname Accept: */*
    sockwrite -n $sockname Host: beyond.lt
    sockwrite -n $sockname Connection: close
    sockwrite -n $sockname
  }
}

on *:sockread:bey: {
  var %temp
  sockread %temp
  var %tok1 $gettok(%temp,1,32)
  if ((%tok1 == gameserv) && ($gettok(%temp,2,32) = off)) set %game OFF
  elseif ((%tok1 == loginserv) && ($gettok(%temp,2,32) = off)) set %login OFF
}