SRL Archive - First Scripts

My very first script, it is not bad but Very Simple

                     ///////////////////////////////
                    ////// Jp3 Auto Loginer ///////
                   ///// By: Joseph pogi3 ////////
                  ///////////////////////////////

program Auto_login;
{.include srl/srl.scar}

Var
  x, y, LoggedIn : Integer;//LoggedIn is for proggy :)

Const
  Proggy = true;
  UserName = '';
  PassWord = '';

Procedure setup;
begin
  cleardebug;
  writeln('Logging in');
  wait(500+random(500));
  Writeln('Please wait...')
end;

Procedure Login;
begin
  Mouse (380,184,1,1,true);
  wait(500+random(500));
  Mouse(565, 407,1,1,true);
  typesend(UserName)
  wait(500+random(500));
  Mouse (562,466,1,1,true);
  wait(500+random(500));
  typesend(PassWord);
  wait(500+random(500));
  mouse(371,350,1,1,true);
end;

Procedure CompleteLogin;
Begin
  Mouse(299, 316,1,1,true);
  WriteLn('Clicked Login Button');
  WriteLn('Waiting For the Confirmation Screen!');
  Wait(1000+Random(1000));
  Mouse(381, 338,5,5,true);
  wait(2000+Random(3000));
  Inc(LoggedIn); //Inc will add 1 to the variable
end;

Procedure Progress_report;
Begin
if (proggy = true)then
Cleardebug;
  WriteLn('[-------------------------------------]');
  WriteLn('[       Joseph Pogi3 Auto Login       ]');
  WriteLn('[           BY Joseph Pogi3           ]');
  WriteLn('[-------------------------------------]');
  WriteLn('[ Thank you for using my Auto Loginer!]');
  WriteLn('[-------------------------------------]');
  Writeln('[Logged In ' +IntToStr(LoggedIn)+ ' times!]');//This will say how many times it logged in
end;

Begin
  setupsrl;
  Activateclient;
  setup;
  Login;
  completelogin;
  Progress_report;
end.

hope that makes sense :)

procedure DeclarePlayers;
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
end;

begin
  SetupSRL;
  DeclarePlayers;
  if not LoggedIn then LoginPlayer;
end.