Stuff

alias bey {
  sockopen bey beyond.lt 80
  set %bey.gs Nerasta
  set %bey.ls Nerasta
}

on *:sockopen:bey: { 
  if ($sockerr) { echo -a buvo eroras | 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 (%bey.rd) { 
    echo -a GS: %bey.gs 
    echo -a LS: %bey.ls 
  }
  set %bey.rd $false
  if ($gettok(%temp,2,32) == on) {
    if (%tok1 == gameserv) set %bey.gs on
    else if (%tok1 == loginserv) { 
      set %bey.gs on 
      set %bey.rd $true 
    }
  }
  else if ($gettok(%temp,2,32) == off) {   
    if (%tok1 == gameserv) set %bey.gs off
    else if (%tok1 == loginserv) { 
      set %bey.ls off 
      set %bey.rd $true 
    }
  }
}