/*----------------------------------------------------------------------------*-
Function:
	aton
Params:
	ip[] - String representation of an IP.
Return:
	IP as a 32bit int.
Notes:
	-
-*----------------------------------------------------------------------------*/

stock aton(ip[])
{
	new
		ipv = strval(ip) << 24,
		pos = 0,
		ch;
	while ((ch = ip[pos++]) && ch != '.') {}
	ipv += strval(ip[pos]) << 16;
	while ((ch = ip[pos++]) && ch != '.') {}
	ipv += strval(ip[pos]) << 8;
	while ((ch = ip[pos++]) && ch != '.') {}
	ipv += strval(ip[pos]);
	return ipv;
}