SRL Archive - Other Scripts

Hey, I'm trying to make a script which will tell me when the lockerz redemption starts, but im stuck at the login part.
My idea of the script is:
Set up an HTTP client
log into lockerz.com
go to the redeem site (http://www.lockerz.com/redeem/boutique/2)
and check if the source code of the site is the same as now (now that the redeem site is closed)
So, if the code is still the same, it means that the redemption has not started, otherwise if the code changes, it means that the redemption HAS started, and it will do a PlaySound('x.wav');

This is my login procedure, but it doesnt seem to work :/ if anyone can help me… I'd be posting the script when finished.

procedure loginasd;
var 
client :integer;
login :string;
begin
  client:= InitializeHTTPClient( true, true );
  SetHTTPUserAgent( client, 'Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)' );
  addpostvariable( client, 'handle', 'elegefox2477@hotmail.com');
  addpostvariable( client, 'password', '123456');
  Writeln('Login in');
  login := PostHTTPPageEx( client, 'http://www.lockerz.com' );
  //Writeln(login);
  login := between('<title>','</title>', login)
  if login = 'Welcome to Lockerz' then writeln('we are fckd!');
  //Writeln(login);
end;

(that account is a test one, dont change the password so anyone can help with the script ;) )
NOTE: Im pretty sure the problem is with the variables im sending.

If using for personal use, just use my website to check (As it doesn't require login, where I think you are failing in the script)

Tells if redemption is in progress by calling, please don't flood request the page though if you make a checker, i even put is or not tags for your script to check it

edit: Was bored so I made the script quick. Like I said, don't flood it plz.

program New;

procedure loginasd;
var
login :string;
begin

  login := GetPage('http://fearnothing.net/lockerzredemptionalert.php');
  login := between('<progress>','</progress>', login)
  if(login='not')then
    Writeln('Lockerz Redemption not in progress!') else
    Writeln('Lockerz Redemption in progress!');
end;


begin
  cleardebug;
  loginasd;
end.