Threatcon
03-14-2004, 10:30 AM
Does anybody know how I can get this to work in a Tribes 1 mod?
$IPBAN[0] = "192.168.0.53";
$IPBAN[1] = "127.0.0.1";
$IPBAN[2] = "10.100.10.1";
$IPBAN[3] = "";
$IPBAN[4] = "";
$IPBAN[5] = "";
$IPBAN[6] = "";
$IPBAN[7] = "";
$IPBAN[8] = "";
$IPBAN[9] = "";
function CheckIP(%Client, %name )
{
%ip = %client.getaddress();
echo (">: Checking " @ %name @ "s IP = " @ %ip);
for(%i=0; $IPBAN[%i] !$= "" ;%i++)
{
%ip2 = getSubStr(%ip, 3, 1);
%ip3 = getSubStr(%ip, 3, 2);
%ip4 = getSubStr(%ip, 3, 3);
%ip5 = getSubStr(%ip, 3, 4);
%ip6 = getSubStr(%ip, 3, 5);
%ip7 = getSubStr(%ip, 3, 6);
%ip8 = getSubStr(%ip, 3, 7);
%ip9 = getSubStr(%ip, 3, 8);
%ip10 = getSubStr(%ip, 3, 9);
%ip11 = getSubStr(%ip, 3, 10);
%ip12 = getSubStr(%ip, 3, 11);
%ip13 = getSubStr(%ip, 3, 12);
%ip14 = getSubStr(%ip, 3, 13);
%ip15 = getSubStr(%ip, 3, 14);
%ip16 = getSubStr(%ip, 3, 15);
if($IPBAN[%i] $= %ip2)
{
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip3)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip3);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip4)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip4);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip5)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip5);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip6)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip6);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip7)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip7);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip8)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip8);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip9)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip9);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip10)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip10);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip11)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip11);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip12)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip12);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip13)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip13);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip14)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip14);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip15)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip15);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip16)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip16);
IPDisconnect(%client, %name);
}
else
{
echo ("NO IP FOUND");
}
}
}
function IPDisconnect(%client, %name)
{
echo (">>>>>>>>>"@ %name @" tried to connect, but is IP: banned from the server:!");
%client.setDisconnectReas on( "You have been IP: BANNED ' from this server ' Have a nice day! =P." );
%client.schedule(1200, "delete");
BanList::add(%client.guid , %client.getAddress(), $Host::BanTime);
}
Found it over at http://www.anarchymods.com/mbbs/thread-view.asp?threadid=34&posts=12#525
Any help would be greatly appreciated.
$IPBAN[0] = "192.168.0.53";
$IPBAN[1] = "127.0.0.1";
$IPBAN[2] = "10.100.10.1";
$IPBAN[3] = "";
$IPBAN[4] = "";
$IPBAN[5] = "";
$IPBAN[6] = "";
$IPBAN[7] = "";
$IPBAN[8] = "";
$IPBAN[9] = "";
function CheckIP(%Client, %name )
{
%ip = %client.getaddress();
echo (">: Checking " @ %name @ "s IP = " @ %ip);
for(%i=0; $IPBAN[%i] !$= "" ;%i++)
{
%ip2 = getSubStr(%ip, 3, 1);
%ip3 = getSubStr(%ip, 3, 2);
%ip4 = getSubStr(%ip, 3, 3);
%ip5 = getSubStr(%ip, 3, 4);
%ip6 = getSubStr(%ip, 3, 5);
%ip7 = getSubStr(%ip, 3, 6);
%ip8 = getSubStr(%ip, 3, 7);
%ip9 = getSubStr(%ip, 3, 8);
%ip10 = getSubStr(%ip, 3, 9);
%ip11 = getSubStr(%ip, 3, 10);
%ip12 = getSubStr(%ip, 3, 11);
%ip13 = getSubStr(%ip, 3, 12);
%ip14 = getSubStr(%ip, 3, 13);
%ip15 = getSubStr(%ip, 3, 14);
%ip16 = getSubStr(%ip, 3, 15);
if($IPBAN[%i] $= %ip2)
{
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip3)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip3);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip4)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip4);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip5)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip5);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip6)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip6);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip7)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip7);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip8)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip8);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip9)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip9);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip10)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip10);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip11)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip11);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip12)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip12);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip13)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip13);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip14)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip14);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip15)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip15);
IPDisconnect(%client, %name);
}
else if($IPBAN[%i] $= %ip16)
{
echo (">: Checking " @ %name @ "s IP = " @ %ip16);
IPDisconnect(%client, %name);
}
else
{
echo ("NO IP FOUND");
}
}
}
function IPDisconnect(%client, %name)
{
echo (">>>>>>>>>"@ %name @" tried to connect, but is IP: banned from the server:!");
%client.setDisconnectReas on( "You have been IP: BANNED ' from this server ' Have a nice day! =P." );
%client.schedule(1200, "delete");
BanList::add(%client.guid , %client.getAddress(), $Host::BanTime);
}
Found it over at http://www.anarchymods.com/mbbs/thread-view.asp?threadid=34&posts=12#525
Any help would be greatly appreciated.