I was bored....
SCAR Code:
program New;
const
Username = ''; //Username
Password = ''; //Password
Quickie = True; //Only login once then quit
RandomNess = True; //Add randomness to the logins
////////////////////////////////////////////////////////////////////////////////
//////// Script Beyond This Point /////////
////////////////////////////////////////////////////////////////////////////////
var
VActive: boolean;
CResult: string;
SCount, ECount, WaitMS: integer;
procedure GetPoints;
var
STemp: string;
begin
STemp := Trim(LowerCase(GetPage('http://fearnothing.net/ptz.php?user=' + Username + '&pass=' + Password)));
if (STemp <> '') then
begin
STemp := Trim(between('<result>', '</result>', STemp));
if (STemp <> '') then
begin
if (STemp <> 'false') then
begin
Inc(SCount);
CResult := 'Got your login points for the day!';
end else
begin
Inc(ECount);
CResult := 'You already got your login ptz for the day!';
end;
end else
begin
Inc(ECount);
CResult := 'You have entered a Invalid Account!';
VActive := False;
end;
end else
begin
Inc(ECount);
CResult := 'Unknown Error!';
end;
WriteLn(CResult);
if Quickie then
VActive := False;
end;
procedure Report;
begin
ClearDebug;
WriteLn('/----------------------------------------------------------------\');
WriteLn('| ZaSz''s Automatic Lockerz Login Script |');
WriteLn('|----------------------------------------------------------------|');
WriteLn('| Successful Logins: ' + Padr(IntToStr(SCount), 40) + ' |');
WriteLn('| UnSuccessful Logins: ' + Padr(IntToStr(ECount), 38) + ' |');
WriteLn('| Current Result: ' + Padr(CResult, 43) + ' |');
WriteLn('\----------------------------------------------------------------/');
end;
procedure UserCheck;
begin
if ((Username = '') or (Password = '')) then
begin
VActive := False;
CResult := 'Please Fill out Account Information!';
end;
end;
begin
VActive := True;
SCount := 0;
ECount := 0;
UserCheck;
while VActive do
begin
Report;
GetPoints;
if (not (VActive)) then
Break;
WaitMS := MSecPerDay; //24 Hours (24 * 60 * 60 * 1000)
if RandomNess then
IncEx(WaitMS, Random(60 * 60 * 1000)); //1 Hour
Wait(WaitMS);
end;
Report;
end.