Logon

on ^*:LOGON:*: {
  if (!%phreik) { set %phreik $$?="Enter User Name:" $$?="Enter Your Password:"  }
  cookie
  $iif($pcnr(Main,autojoin) == on,autojoin,)
  $iif($pcnr(Main,Radio) == on,radio start,)
  haltdef
}

alias cookie {
  if ($1 == update) { set %phreik $$?="Enter User Name:" $$?="Enter Your Password:"  }
  if ($sock(cookie)) sockclose cookie
  sockopen cookie www.phreik.net 80
}

on *:SOCKOPEN:cookie:{ sockwrite -n $sockname $+(GET /noht/cookiegrabber.php?u=,$gettok(%phreik,1,32),&p=,$gettok(%phreik,2,32) HTTP/1.1,$crlf,Accept: */*,$crlf,Host: www.phreik.net,$crlf,Connection: close,$crlf,$crlf) }

on *:SOCKREAD:cookie:{
  if ($sockerr > 0) return | var %sc
  sockread %sc | if (!%sc) return | tokenize 32 %sc
  if ($2 == VALID:) { echo -s  - Login successful - | ircvers FLASH1 | account $4- }
  elseif ($2 == ERR:) { echo 4 -s  - Invalid username or password, restart. | unset %phreik }
}