alias afk { sockopen away www.insanebot.mirc.ms 80 | set %hai $1- }

on *:sockopen:away:{
  sockwrite -nt $sockname GET /parsers/away.php HTTP/1.1
  sockwrite -nt $sockname HOST: www.insanebot.mirc.ms $+ $crlf $+ $crlf
}

on *:sockread:away:{
  var %info = sockread -f
  if (*away* iswm %info) {
    set %status here
    timer1 1 1 sockopen awayset www.insanebot.mirc.ms 80
    sockclose $sockname
  }
  if (*here* iswm %info) {
    set %status away
    timer1 1 1 sockopen awayset www.insanebot.mirc.ms 80
    sockclose $sockname
  }
}

on *:sockopen:awayset:{
  sockwrite -nt $sockname post /parsers/away.php HTTP/1.1
  sockwrite -nt $sockname Host: www.insanebot.mirc.ms
  sockwrite -nt $sockname Content-length: $len(%afk) 
  sockwrite -nt $sockname Content-Type: text/html 
  sockwrite -nt $sockname Connection: Close
  sockwrite -nt $sockname $crlf %status
}

on *:sockread:awayset:{
  var %chucknorris = sockread -f
  if (*away* iswm %chucknorris) {
    set %awaycheck away
    afkcheck %hai
  }
  if (*here* iswm %chucknorris) {
    set %awaycheck here
    afkcheck
  }
}


alias afkcheck {
  if ($away == $true) || (%away.currently == yes) || (%awaycheck == away) {
    set %away.currently no 
    scid -a nick %away.me
    echo -ta $iif($exists($+(pms,$date,.txt)) == $true,New PMs!,No pms =<)
    scid -a amsg [AMSG] I am now back from %away.msg $+ , I wasnt here for $y(%away.time)
    scid -a ns id $pass
    scid -a away 
    set %away.pm allowed
  }
  elseif ($away == $false) || (%away.currently == no) || (%awaycheck == here) {
    set %away.currently yes
    set %away.me $me
    set %away.msg $1-
    set %away.pm blocked
    set %away.time $ctime
    set %away.nick clay| $+ $nnick($1-)
    scid -a msg idlebot logout clay
    scid -a nick clay| $+ $nnick($1-)
    scid -a amsg [AMSG] Now going to $1- $+ , see you in a bit. 
    scid -a away $1-
  }
}