program Squigglyos_FireMakerDeluxe;
{.include Squig.txt}

{You will need a current version of Squig to run this}

{ Start in Edgevil Bank
  Start with tinderbox in your first inventory slot
  The rest of your inventory needs to be logs.
  Logs in bank need to be in the first spot.}

{Version 2}

{This is a script created by Squigglyo
You may not pass this off as your own script
You may not sell this script
You may not alter this script
You may, use this as much as you like
For any problems, or info about future updates,
contact lesser_demon_slayer@hotmail.com, or pm me,
if you know where to find me}

{Squigglyo is, and always will be the owner of this script
and owns all rights to this script}

var
  a, b, TotalDone, UpDown, time1 : integer;
  ALog, burn, cant, time2, time3, attempt : integer;
  NoMoreLogs, FirstTime, stoppingscript : boolean;
  expgetting : extended;
  TheStatus : string;
const
  MiniWater = 10386796         ;//The stream east of the bank
  WaterSymbol = 10386795   ;//The water symbol on the minimap
  BankSymbol =  3984354    ;//The bank symbol color of the bank
  UserName = ''    ;//Your username
  Password = ''    ;//Your password
  TotalNeeded = 557       ;//Total Amount of logs
  TinderBox = 9605789     ;//The color of the tinerbox in your inventory (sorta grey)

  TypeofLog = 2            ;//0 is normal, 1 is oak, 2 is willow,
  //3 is maple, 4 is yew and 5 is magic

  Lamp = 'Prayer' ;//The skill you wish to train when a lamp comes


  //DEBUG//
  LogWait =    1           ;//Only change if you seem to be dropping logs and not burning them.
                           //Its the ammount of seconds to wait between logs (1 is the default value)
  /////////

procedure LoadPics;
begin
  ALog := BitmapFromString(34, 7,
       '0000000000000000000000009D6B399867378E613383582E79522A' +
       'B07000B88015B07000A87011A86800B88015B07000B0801A301F11' +
       '724D28674624604022573C1F50351A3C2815372411301F11000001' +
       '302020000000000000000000000000000000000000000000000000' +
       '0000009D6B39D0A867C09040A87815B87022B88015B88015C0883A' +
       'B87022A87815B87022C8A04EA87011B070007C552C674624604022' +
       '573C1F50351A4630183C2815301F11000001302020302020000000' +
       '000000000000000000000000000000000000000000000000D0B078' +
       'B07000B07000A87815B87022B87022C09040A87011B08032C08018' +
       'C09040B8883FA87011B070006B4926644324573C1F50351A463018' +
       '422C18372411301F11000001302020000000000000000000000000' +
       '000000000000000000000000000000000000C09040A87011A87011' +
       'B08032B87022A86800C0883AB88015B87022A87011B87022B0801A' +
       'C0883AA870116F4A266443245C3D1F50351A422C18372411301F11' +
       '000001302020302020000000000000000000000000000000000000' +
       '000000000000000000000000000000B88015A87815B0801AA87011' +
       'B08032A87011B08032C08018573C1FB07000A87011B0801AC8A04E' +
       'B07000C0801850351A422C183C28153724112A1D0D000001302020' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000D0A867A87815C0883AB08032C8A04EA87011' +
       'A87011B07000C09040B88015A87011B87022B08032B87022B87022' +
       'B07000B0801A3C2815301F11000001302020302020000000000000' +
       '000000000000000000000000000000000000000000000000000000' +
       '000000000000000000B87022B87022C0883AB0801AB08032A87815' +
       'C8A04EB07000B0801AB87022B8883FB08032A87011A87815B07000' +
       'C090402A1D0D000001302020000000000000000000000000000000' +
       '000000000000000000000000');
  attempt := BitmapFromString(15, 7,
       'BAAB8ABAAB8ABAAB8AB9A581B9A581B9A581B9A581000000B9A581' +
       'B9A581B9A581B9A581000000B9A581B9A581BBAE92000000000000' +
       '000000BAAB8ABAAB8AB9A581000000000000000000B9A581B9A581' +
       '000000000000000000000000BAAB8ABAAB8ABAAB8A000000B9A581' +
       'B9A581000000BAAB8AB9A581B9A581B9A581000000B9A581B9A581' +
       'BBAE92000000000000000000000000B9A581B9A581000000B9A581' +
       'B9A581B9A581B9A581000000B9A581B9A581000000BAAB8ABAAB8A' +
       'B9A581000000B9A581BAAB8A000000B9A581B9A581B9A581B9A581' +
       '000000B9A581B9A581000000B9A581B9A581BAAB8A000000BAAB8A' +
       'BAAB8A000000BAAB8AB9A581BAAB8ABAAB8A000000BAAB8ABAAB8A' +
       'BAAB8A000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
       '000000B9A581BAAB8AB9A581000000000000');
  Cant := BitmapFromString(24, 11,
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB9A581BAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8A' +
       'BAAB8ABBAE92BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8ABBAE92BBAE92BAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BAAB8ABBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
       '000000BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABBAE92' +
       'BAAB8ABBAE92BAAB8ABBAE92BAAB8ABAAB8A000000BAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
       'BBAE92BBAE92BBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8A' +
       'BAAB8ABAAB8ABAAB8A000000BAAB8A000000000000BAAB8AB9A581' +
       'B9A581BAAB8A000000000000000000BBAE92BBAE92BBAE92000000' +
       'BBAE92000000BBAE92BAAB8ABBAE92000000000000000000BAAB8A' +
       '000000000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8A' +
       'BAAB8ABBAE92000000BBAE92BBAE92000000000000BBAE92BBAE92' +
       'BBAE92000000BBAE92BAAB8ABAAB8A000000000000BAAB8ABAAB8A' +
       'BAAB8A000000BAAB8ABAAB8A000000BAAB8ABBAE92BAAB8A000000' +
       'BAAB8ABBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8A' +
       'BAAB8ABAAB8A000000000000BAAB8ABAAB8ABAAB8A000000BAAB8A' +
       'BBAE92000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
       'BAAB8ABAAB8ABAAB8ABAAB8A000000000000000000000000B9A581' +
       '000000BAAB8ABBAE92BAAB8A000000BAAB8ABBAE92000000BBAE92' +
       'BBAE92BBAE92BBAE92BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A' +
       'BBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8ABAAB8A' +
       'BAAB8A000000BAAB8ABAAB8ABBAE92000000000000000000000000' +
       'BBAE92BBAE92000000BBAE92BBAE92BBAE92BAAB8ABBAE92000000' +
       '000000000000000000');
  Burn := BitmapFromString(8, 10,
       '000000B29975B29975B29975B29975B29975B9A581B9A581000000' +
       'B9A581B9A581B29975B29975B29975B29975B29975000000B9A581' +
       'B9A581B9A581B29975B29975B9A581B9A581000000B9A581B29975' +
       'B29975B29975B9A581B29975B29975000000000000000000B29975' +
       'B29975B29975B29975000000000000B9A581B29975000000B29975' +
       'B29975B29975000000000000B29975B29975B29975000000B29975' +
       'B29975000000000000B29975B29975B29975000000B29975B29975' +
       '000000000000B29975B9A581B9A581000000B9A581B9A581000000' +
       '000000000000000000000000B9A581B9A581B9A581B9A581')
end;

procedure DeadHandler;
begin
  writeln('');
  writeln('');
  writeln('You Are Dead');
  writeln('');
  writeln('');
  stoppingscript:=true;
end;

procedure ChangeReport;
var
  str1 : string;
  int1, seconds, minits, hours : integer;
begin
  seconds:=(getsystemtime-time1)/1000;
  minits:=0;
  hours:=0;
  while(seconds>59)do
    begin
      seconds:=seconds-60;
      minits:=minits+1;
    end;
  while(minits>59)do
    begin
      minits:=minits-60;
      hours:=hours+1;
    end;
  str1:=floattostr(expgetting*totaldone);
  int1:=pos('.',str1);
  str1:=copy(str1,1,int1+2);
  if(firsttime=false) then
    begin
      clearreport;
      addtoreport('Hello ' + username + ' this is the status so far');
      addtoreport('FireMaker Deluxe by Squigglyo');
      addtoreport('***********************');
      addtoreport('Currently: '+ (TheStatus));
      addtoreport('Flamed: '+inttostr(TotalDone)+' logs');
      addtoreport('XP Gained: '+str1);
      addtoreport(inttostr(TotalNeeded - TotalDone) + ' logs to Go');
      addtoreport('Worked for: ' + inttostr(hours) + ' Hours and ' + inttostr(minits) + ' Minutes');
    end
    else
    begin
      clearreport;
      addtoreport('Thank you for using Squigglyo"s Firemaker Deluxe');
      addtoreport('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
      addtoreport('');
      addtoreport('This is a free program so this should never be sold');
      addtoreport('I hope you enjoy using this, check out my other scripts too');
      addtoreport('');
      addtoreport('Currently - ' + (TheStatus));
    end;
end;

procedure OutOfBank;
var
  a1, c, a2 : integer;
begin
  TheStatus:=('Out of Bank');
  Status(TheStatus);
  ChangeReport;
  Direction:='SE';
  repeat
    findrandoms;
    if(fightfound=true)then
      begin
        MouseC(random(5)+670,random(5)+110,1);
        MapFlagging;
      end;
    findcolor(a,b,BankSymbol,555,5,725,155);
    a2:=a
    a:=a+random(10)+50;
    b:=b-random(10)-20;
    a1:=a;
    c:=0;
    repeat
      a1:=a1-random(3);
      if(similarcolors(getcolor(a1,b),15528686,50))or(similarcolors(getcolor(a1,b),2105598,100))then
        begin
          a1:=a;
          b:=b-5-random(2);
        end;
      if(b<20)then
        begin
          findcolor(a,b,banksymbol,555,5,725,155);
          a1:=a;
          c:=c+1;
          a:=a+random(10)+50;
          b:=b-random(10)-20;
          if(c=10)then
            begin
              writeln('')
              writeln('')
              writeln('Got lost leaving the bank')
              writeln('')
              writeln('')
              stoppingscript:=true;
              exit;
            end;
        end;
        wait(1);
    until(a1<(a2-25));
    MouseC(a,b,1);
    wait(500+random(100));
  until(findbitmaptolerancein(RunescapeFlag,a,b,550,5,735,160,100))or(findbitmaptolerancein(RunescapeFlag2,a,b,550,5,735,160,100))
  MapFlagging;
  wait(random(300)+800);
end;

procedure BackToBank;
var
  c : integer;
begin
  TheStatus:=('Back to the Bank');
  Status(TheStatus);
  ChangeReport;
  Direction:='S'
  FindRandoms;
  c:=0;
  while(findcolor(a,b,Banksymbol,555,5,735,155)=false)do
    begin
      a:=random(35)+645;
      b:=random(75)+85;
      MouseC(a,b,1);
      wait(random(300)+300);
      MapFlagging;
      if(c=5)then
        begin
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          TheStatus:=('Lost way to the bank');
          Status(TheStatus);
          ChangeReport;
          stoppingscript:=true;
          exit;
        end;
        c:=c+1;
    end;
  c:=0;
  repeat
    findcolor(a,b,BankSymbol,555,5,735,155);
    MouseC(a+random(10),b+random(10),1);
    c:=c+1;
    if(c=25)then
      begin
        writeln('');
        writeln('');
        writeln('Lost way to the bank');
        writeln('');
        writeln('');
        stoppingscript:=true;
        exit;
      end;
  until(findbitmaptolerancein(RunescapeFlag,a,b,560,5,735,165,100))or(findbitmaptolerancein(RunescapeFlag2,a,b,560,5,735,165,100));
  wait(random(300)+300);
  MapFlagging;
end;

procedure MoveUp;
var
  c : integer;
begin
  TheStatus:='Moving back to the bank';
  Status(TheStatus);
  ChangeReport;
  c:=0
  if(findcolor(a,b,WaterSymbol,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
      c:=c+1;
      mouseC(475+random(5),260+random(5),1);
      wait(random(300)+500);
      MapFlagging;
      if(c=25)then
        begin
          stoppingscript:=true;
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          exit;
        end;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
  c:=0;
  if(findcolor(a,b,MiniWater,640,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
      if(c=25)then
        begin
          stoppingscript:=true;
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          exit;
        end;
      c:=c+1;
      MouseC(random(10)+120,random(10)+100,1);
      wait(random(300)+500);
      MapFlagging;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
  c:=0;
  if(findcolor(a,b,MiniWater,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
      if(c=25)then
        begin
          stoppingscript:=true;
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          exit;
        end;
      c:=c+1;
      MouseC(random(10)+120,random(10)+100,1);
      wait(random(300)+500);
      MapFlagging;
    until(findcolor(a,b,BankSymbol,555,5,735,160));
    c:=0
  if(findcolor(a,b,MiniWater,555,5,735,160)=false)and(findcolor(a,b,WaterSymbol,555,5,735,160)=false)and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
    repeat
      c:=c+1
      MouseC(random(10)+640,random(10)+115,1);
      MapFlagging;
      begin
        Writeln('');
        writeln('');
        Writeln('Lost way to the bank');
        Writeln('');
        writeln('');
        stoppingscript:=true;
        exit;
      end;
    until(findcolor(a,b,BankSymbol,555,5,736,160))or(getcolor(467,286)=65535)
  c:=0
  if(getcolor(467,286)=65535)then
    repeat
      mousec(675+random(10),115+random(10),1);
      MapFlagging;
      c:=c+1
      if(c=20)then
        begin
          Writeln('');
          writeln('');
          Writeln('Lost way to the bank');
          Writeln('');
          writeln('');
          stoppingscript:=true;
          exit;
        end;
    until(findcolor(a,b,banksymbol,555,5,735,160));
  repeat
    c:=c+1
    findcolor(a,b,banksymbol,555,5,735,160)
    MouseC(a+random(10),b+random(10),1);
    if(c=25)then
      begin
        stoppingscript:=true;
        writeln('');
        writeln('');
        writeln('Lost way to the bank');
        writeln('');
        writeln('');
        exit;
      end;
    wait(random(200)+400);
  until(findbitmaptolerancein(Runescapeflag,a,b,555,5,735,160,100));
  MapFlagging;
  a:=random(10)+575;
  b:=random(10)+215;
  MouseC(a,b,2);
  wait(random(300)+300);
  MouseC(a+random(10),b+random(3)+52,1);
  wait(random(200)+200);
  OutOfBank;
end;

procedure FireMaking;
var
  color1, color2, color3, c : integer;
begin
  TheStatus:='Making Fires';
  Status(TheStatus);
  Direction:= 'SE'
  MouseC(random(10)+570,random(10)+225,0);
  if(IsTextAt2(9,9,'Use T',100)=false)then
    begin
      writeln('');
      writeln('');
      writeln('Couldnt find the tinerbox in your inventory');
      writeln('');
      writeln('');
      stoppingscript:=true;
      exit;
    end;
  repeat
    c:=0;
    Color1:=getcolor(262,57);
    Color2:=getcolor(416,56);
    Color3:=getcolor(63,182);
    FindRandoms;
    if(fightfound=true)then
      begin
        MoveUp;
        exit;
      end;
    if(IsDead=true)then
      Exit;
    UseItem(1,1);
    wait(random(500)+1000);
    TheStatus:=('Finding the Log')
    Status(TheStatus);
    ChangeReport;
    if(findbitmaptolerancein(ALog,a,b,560,200,735,460,100)=false)then
      begin
        Exit;
      end;
    MouseC(a+random(10)+5,b-random(10),1);
    wait(random(500)+500);
    repeat
      c:=c+1;
      wait(10);
      if(findbitmaptolerancein(cant,a,b,13,413,173,435,100)=true)then wait(1000);
        if(findbitmaptolerancein(cant,a,b,13,413,173,435,100)=true)then
          begin
            MoveUp;
            if(stoppingscript=true)then
              exit;
              C:=150;
          end;
        Findrandoms;
        if(fightfound=true)then
          begin
            MoveUp;
            c:=150;
          end;
    until(c=150)or(findbitmaptolerancein(attempt,a,b,40,410,70,430,100))
    if(c<>150)then
      begin
      c:=0;
        repeat
          Findrandoms;
          if(RandomTalked=true)or(fightFound=true)then
            MoveUp;
          wait(100);
          c:=c+1
        until(c=30)or((findbitmaptolerancein(burn,a,b,233,415,249,431,100))and((color1<>getcolor(262,57))or(color2<>getcolor(416,56))or(Color3<>getcolor(63,182))));
      end;
    wait(random(300)+(LogWait*1000));
  until(NoMoreLogs=True);
  wait(random(300)+300);
end;

procedure GetMoreLogs;
begin
  TheStatus:=('Getting more Logs');
  Status(TheStatus);
  ChangeReport;
  WithDraw(1,1,0);
  CloseBank;
end;

procedure FirstTime1;
begin
  addtoreport('Thank you for using Squigglyo"s Firemaker Deluxe');
  addtoreport('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
  addtoreport('');
  addtoreport('This is a free program so this should never be sold');
  addtoreport('I hope you enjoy using this, check out my other scripts too');
  writeln('');
  writeln('Thank you for using Squigglyo"s FireMaker Deluxe')
  writeln('You are planning to flame ' + inttostr(Totalneeded) + ' logs');
  writeln('');
  writeln('');
  writeln('This is a free program so this should never be sold');
  writeln('I hope you enjoy using this, check out my other scripts too');
  writeln('');
end;

procedure GetExp;
begin
  if(typeoflog=0)then
    expgetting:=40;
  if(typeoflog=1)then
    expgetting:=60;
  if(typeoflog=2)then
    expgetting:=90;
  if(typeoflog=3)then
    expgetting:=135;
  if(typeoflog=4)then
    expgetting:=202.5;
  if(typeoflog=5)then
    expgetting:=303.75;
end;

procedure DepositStuff;
var
q, w, c, d : integer;
begin
  repeat
    TheStatus:='Putting Stuff in the Bank';
    Status(TheStatus);
    ChangeReport;
    q:=1;
    a:=random(10)+580;
    b:=random(10)+255;
    MoveMouseSmoothEx(a,b,1,6,15,20,20);
    repeat
      wait(random(10)+5);
      b:=b+random(10);
      MoveMouseSmoothEx(a,b,1,6,15,20,20);
      if(b>455)then
        begin
          b:=210;
          if(q=1)then
            a:=random(2)+625;
          if(q=2)then
            a:=random(2)+670;
          if(q=3)then
            a:=random(2)+710;
          MoveMouseSmoothEx(a,b,1,6,15,20,20);
          q:=q+1;
          if(q=4)then
            exit;
          end;
    until(IsTextAt2(9,9,'Store',100))
    a:=a+5;
    b:=b+5;
    MoveMouseSmoothEx(a,b,1,6,15,20,20);
    wait(random(500)+500);
    clickmouse(a,b,false);
    wait(random(500)+500);
    w:=0;
    repeat
      w:=w+1;
      wait(100);
    until(findbitmaptolerancein(AllText,c,d,535,170,750,475,100))or(w=50);
    if(w<50)then
      begin
        MoveMouseSmoothEx(c+random(10),d+random(3)+3,1,6,15,20,20);
        wait(random(250)+500);
        clickmouse(c,d,true);
        wait(random(250)+500);
        a:=random(10)+580;
        b:=random(10)+255;
        wait(random(500)+1000);
      end;
  until(q=4);
end;


begin
  SetupSquig;
  a:=0;
  Loadchars('');
  clearReport;
  UpDown:=1;
  StoppingScript:=false;
  time1:=getsystemtime;
  time2:=((time1/1000)/60)+random(100)+423;
  user:=username;
  pass:=password;
  FindRandoms;
  NoMoreLogs:=False;
  FirstTime1;
  OpenBag;
  FirstTime:=true;
  LoadPics;
  GetExp;
  SetChat;
  If(IsDead=true)then
    DeadHandler;
  a:=random(10)+570;
  b:=random(10)+215;
  MouseC(a,b,0);
  if(istextat2(9,9,'Use T',100)=false)then
    begin
      writeln('');
      writeln('');
      writeln('Couldnt find the tinderbox');
      writeln('');
      writeln('');
      stoppingscript:=true;
    end;
  MouseC(a,b,2);
  wait(random(100)+800);
  MouseC(a+random(10),b+random(5)+52,1);
  repeat
    if(stoppingscript=true)then
      break;
    OutofBank;
    If(IsDead=true)then
      DeadHandler;
    if(stoppingscript=true)then
      break;
    FirstTime:=false;
    FireMaking;
    If(IsDead=true)then
      DeadHandler;
    if(stoppingscript=true)then
      break;
    NoMoreLogs:=False;
    FindRandoms;
    BackToBank;
    If(IsDead=true)then
      DeadHandler;
    if(stoppingscript=true)then
      break;
    FindRandoms;
    TotalDone:=TotalDone+27;
    if((TotalDone+1)>TotalNeeded)then
      exit;
    a:=0;
    while(OpenBank=false)do
      begin
      a:=a+1;
      BackToBank;
      if(a=5)then
        begin
          writeln('');
          writeln('');
          writeln('Lost way to the bank');
          writeln('');
          writeln('');
          Break;
        end;
      end;
    DepositStuff;
    GetMoreLogs;
    FindRandoms;
    if((((getsystemtime-time1)/1000)/60)>time2)then
      begin
        a:=random(4);
        writeln('');
        writeln('');
        time3:=(getsystemtime-time1);
        if(a=0)then
          begin
            writeln('Taking a 5 minit break');
            wait(random(120000)+300000);
            writeln('');
            writeln('');
          end;
        if(a=1)then
          begin
            writeln('Taking a 10 minit break');
            wait(random(150000)+600000);
            writeln('');
            writeln('');
          end;
        if(a=2)then
          begin
            writeln('Taking a 20 minit break');
            wait(random(300000)+1200000);
            writeln('');
            writeln('');
          end;
        if(a=3)then
          begin
            writeln('Taking a 30 minit break');
            wait(random(600000)+1800000);
            writeln('');
            writeln('');
          end;
        if(a=4)then
          begin
            writeln('Taking a 45 minit break');
            wait(random(750000)+2700000);
            writeln('');
            writeln('');
          end;
        if(a=5)then
          begin
            writeln('Taking an hour break');
            wait(random(90000)+3600000);
            writeln('');
            writeln('');
          end;
        Login;
        time1:=getsystemtime+time3;
        time2:=((time1/1000)/60)+random(100)+423;
      end;
      if(loggedin=false)then
        Login;
  until(TotalNeeded<=TotalDone)or(stoppingscript=true);
  Logout;
end.