Results 1 to 3 of 3

Thread: Can someone Re-write this scritp? Or fix it

  1. #1
    Join Date
    Sep 2006
    Location
    Texas
    Posts
    1,349
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Can someone Re-write this scritp? Or fix it

    can someone fix this script...i dont think this goes in this thread..but can someone fix it..or rewrite it to make it better...we do need a Firemaker..because noone has made one..so this is the latest one and if someone can rewrite it or fix it would be great




    SCAR Code:
    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, use this as much as you like
    For any problems, or info about future updates,
    contact [email]lesser_demon_slayer@hotmail.com[/email], 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 = 12095613         ;//The stream east of the bank
      WaterSymbol = 14105091   ;//The water symbol on the minimap
      BankSymbol =  4639715    ;//The bank symbol color of the bank
      UserName = ''    ;//Your username
      Password = ''    ;//Your password
      TotalNeeded = 345       ;//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 = 'Ranged' ;//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(RunescapeFlag2,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.


    i get this message when i try to run it

    SCAR Code:
    Line 243: [Error] (7357:29): Unknown identifier 'RunescapeFlag' in script
    Failed when compiling

  2. #2
    Join Date
    Feb 2006
    Posts
    406
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    moved, not srl script

  3. #3
    Join Date
    Jun 2006
    Location
    Tennessee, USA
    Posts
    2,603
    Mentioned
    1 Post(s)
    Quoted
    46 Post(s)

    Default

    yeah this script is pretty old. and im currently on fall break and working on a firemaker script. im not promising anything very good but ill do my best. might need some help to but ill see =)

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. need help with my non-autotyper first scritp
    By corl455 in forum First Scripts
    Replies: 1
    Last Post: 09-14-2007, 01:55 PM
  2. Correct Way to Write this Until...
    By TheGodfather in forum OSR Help
    Replies: 7
    Last Post: 03-04-2007, 09:12 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •