Poll: How many inventoires did it burn?

Be advised that this is a public poll: other users can see the choice(s) you selected.

Results 1 to 10 of 10

Thread: First reflection burner ever... or so I guess...

  1. #1
    Join Date
    Jan 2008
    Location
    Frankfurt, Germany
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default First reflection burner ever... or so I guess...

    Well, hi there,

    Table of contents:
    -Introduction
    -Proggies
    -Script
    -FAQ
    -Last comments

    I know I have been told to post this in the members section if I ever did post it, but I feel that after the little incapability of my tut runner, I need to post something working and effectiv to even that out... so yeah, without further talk, here are the proggies I have and my script:

    Proggy:
    Code:
    =============================================
    ===========Pure1993s Willow Burner===========
    =============================================
    Logs Burned: 156
    Time Running: 14 Minutes and 52 Seconds
    You started out with: 122970xp.
    You gained 14040xp!
    Your current level is 53.
    You gained 2 level(s).
    ==================Thank You==================
    =============================================
    (Stopped manually to configure failsafes (this was still in the testing phase)).
    
    =============================================
    ===========Pure1993s Willow Burner===========
    =============================================
    Logs Burned: 269
    Time Running: 20 Minutes and 18 Seconds
    You started out with: 145830xp.
    You gained 24210xp!
    Your current level is 55.
    You gained 2 level(s).
    ==================Thank You==================
    =============================================
    (stopped because of school random).
    
    =============================================
    ===========Pure1993s Willow Burner===========
    =============================================
    Logs Burned: 351
    Time Running: 26 Minutes and 5 Seconds
    You started out with: 170865xp.
    You gained 31590xp!
    Your current level is 56.
    You gained 1 level(s).
    ==================Thank You==================
    =============================================
    (crashed because of huge lagg (3 minutes)).
    
    =============================================
    ===========Pure1993s Willow Burner===========
    =============================================
    Logs Burned: 620
    Time Running: 46 Minutes and 57 Seconds
    You started out with: 229545xp.
    You gained 55800xp!
    Your current level is 60.
    You gained 2 level(s).
    ==================Thank You==================
    =============================================
    (crashed because of maze random… -.-)
    
    =============================================
    ===========Pure1993s Willow Burner===========
    =============================================
    Logs Burned: 251
    Time Running: 20 Minutes and 39 Seconds
    You started out with: 289472xp.
    You gained 22658xp!
    Your current level is 61.
    You gained 1 level(s).
    ==================Thank You==================
    =============================================
    Found a box, solving...
    Question is:
    What number is the Square
    Answer is 4
    And here is the script:
    SCAR Code:
    { Setup:

               1) Your character needs to be close ro in the fally east bank.
               2) You need to have your logs visible when opening the Bank.
                     a) this means making sure you open the correct tab...
               3) Be sure to actually have a tinderbox and logs...
               4) Make sure your Reflection is updated.
               5) Make sure your reflection and SMART is set up properly.
               6) Run the script.
               7) Check the script every 20 minutes for randoms and such.
               
               Hint:
               if you take longer than 9 seconds to light a log, go to line
               177 and change the 9000 to any time that fits your need.
    }


    program PublicFallyAutoBurner;
    {.Include SRL/SRL/Misc/SMART.SCAR}
    {.Include SRL/SRL.SCAR}
    {.include SRL/SRL/Reflection/Reflection.scar}
    {.include SRL/SRL/Skill/Firemaking.scar}

    var
      TinderBoxDTM, TinderSpace, x, y, rx, ry, i, LogInteger: Integer;
      cx, cy, ax, ay, SaveTime, GE, GL, EE, EL, SRLGE, ky: Integer;
      Break1: Boolean;
     
    procedure LoadTinderBox;
    begin
      TinderBoxDTM := DTMFromString('78DA637464626078CA8002DCED3819B880342' +
           '310FF0702463FA09A170C688011AE06CCB305AAF948408D2950CD' +
           '33026ABC816AAE13506305547387801A77A09A77F8D5000087E00' +
           'D05');
    end;

    function WhichLog(Log: string): Integer;
    begin
     
      case LowerCase(Log) of
     
        'normal': Result := DTMFromString('78DA63DCC3C4C0B08D91011964041A32B0026' +
           '99828E336A09A43A86A40B2286A4E00D5EC25A0660D50CD2E026A' +
           '8E01D56CC6AF0600A522086F');
       
        'oak'   : Result := DTMFromString('78DA63CC67626078C180027A739D185881342' +
           '394CF580954F386010D30A2AAC900AAF948404D2C50CD33026A40' +
           '763D21A02609A8E62D0135207FBD23A0A61AA8E6257E35001CE80' +
           'C51');
       
        'willow': Result := DTMFromString('78DA633463646058C68002023D6519B880345' +
           '086E13F1030DA03594B18D000235C0D98E70864AD23A0C610C8DA' +
           '4C408D3AA67BB0AA2160170007F70A3B');
       
        'maple' : Result := DTMFromString('78DA633CC0C4C0F094010544D87233B002694' +
           '620FE0F048CBB806A3E32A00146B81A30EF2C50CD1B026A4E01D5' +
           '3C24A06623A67B30D46C03AA794B40CD61A09A7704D49C276C170' +
           '00B4E123E');
       
        'yew'   : Result := DTMFromString('78DA6374656260E062644006114EDC0CAC401' +
           'A24FA1F08187D806A5851D58064616AC03C3FA01A01026A6C806A' +
           '4409A83103AA6127A0C61CA84690809A40A01A4E026A5C806A84F' +
           '0AB010067C2077D');

      end;
    end;

    procedure DeclarePlayers;
    begin

      SRLID          := 'SRLID'; //This is a nummber of your SRL !!STATS!! account
      SRLPassword    := 'SRLPass'; //This is the password of your SRL !!STATS!! account
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
     
      Players[0].Name       := 'username'; //Runescape username.
      Players[0].Pass       := 'password'; //Runescape Password.
      Players[0].Nick       := 'Nick'; // 3 to 4 lowercase letters of your name.
      Players[0].Strings[0] := 'xxxx'; // your pin (if you have one)
      Players[0].Strings[1] := 'willow'; //the tree to chop (avaible are: normal, oak, willow, maple and yew)
      Players[0].Active     := True;
    end;

    procedure WalkForth;
    begin
      if (not LoggedIn) then Exit;
      WalkToTile( 3019, 3362, 2, 1);
      Wait( 360);
      FFlag(0);
      Wait( 150 + random( 150) + random(125));
    end;

    procedure WalkBack;
    begin
      if (not LoggedIn) then Exit;
      SRLGE := GetMe.Experience[11];
      if (not TileOnMM(3013, 3355)) then
      begin
        WalkToTile( 3003, 3363, 1, 2);
        Wait( 360);
        FFlag(0);
        Wait( 150 + random( 250) + random(125));
      end;
      WalkToTile( 3013, 3355, 1, 1);
      Wait( 360);
      FFlag(0);
      Wait( 650 + random( 250) + random(125));
    end;
           
    function LightTheLogs: Boolean;
    label
      Break11, Break12;
    begin
      if (not LoggedIn) then Exit;
      GameTab(4);
      if FindDTM( TinderBoxDTM, rx, ry, MIX1, MIY1, MIX2, MIY2) then
      begin
        TinderSpace := CoordsToItem( rx, ry);
        if FindDTM( LogInteger, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          if (TinderSpace=1) then
          begin
            MouseItem( TinderSpace, True);
            Wait(360 + random(240));
            for i:=2 to 28 do
            begin
              if InvCount=1 then
              begin
                Result := True;
                Exit;
              end;
              if (not (i = TinderSpace)) then
              begin
                if (i mod 2 = 0) then
                begin
                  Break11:
                  Break1 := False;
                  MouseItem( i, True);
                  GetMyPos( cx, cy);
                  Wait(360 + random(240));
                  if i=28 then
                  begin
                    Wait(3000);
                    Exit;
                  end;
                  MouseItem( i + 1, True);
                  Wait(360 + random(240));
                end else
                begin
                  Break12:
                  Break1 := False;
                  MouseItem( TinderSpace, True);
                  GetMyPos( cx, cy);
                  Wait(360 + random(240));
                  MouseItem( TinderSpace, True);
                  Wait(360 + random(240));
                end;
                MarkTime(SaveTime);
                repeat
                  Wait(50);
                  GetMyPos( ax, ay);
                  if InRange(TimeFromMark(SaveTime),500,800) then
                  begin
                    if InBlack then
                    begin
                      repeat
                        Wait(1000);
                        if not(InBlack) then Break;
                      until not(LoggedIn);
                    end;
                    if NoGameTab then
                    repeat
                      Wait(1000);
                      if not(NoGameTab) then Break;
                    until not(LoggedIn);
                    if TabExists(4) then
                      if FindNormalRandoms then
                      begin
                        Break1 := True;
                        Wait(360 + random(240));
                        Break;
                      end;
                    if Random(100) mod 12 = 0 then RC;
                  end;
                  if (TimeFromMark(SaveTime)>9000) then
                  begin
                    WalkToTile( ax, ay-1, 0, 0);
                    FFlag(0);
                    wait(360);
                    GetMyPos( ax, ay);
                    if ay = cy then
                    begin
                      ky := ay;
                      repeat
                        ky := ky - 1;
                        WalkToTile( ax, ky, 0, 0);
                        FFlag(0);
                        Wait(360);
                        GetMyPos( ax, ay);
                      until (ay + 1 <= cy);
                    end;
                    Break1 := True;
                    Break;
                  end;
                until ((ax+1)=cx) or ((ax-1)=cx);
                if Break1 then
                begin
                  if (i mod 2 = 0) then
                  begin
                    MouseItem( TinderSpace, True);
                    Wait(360 + random(240));
                    goto Break11;
                  end else
                  begin
                    MouseItem( i, True);
                    Wait(360 + random(240));
                    goto Break12;
                  end;
                end;
              end;
            end;
          end;
        end;
      end;
      Result := False;
      Writeln(' We found no tinderbox...');
      TerminateScript;
    end;

    function GetItems: Boolean;
    begin
      if (not LoggedIn) then Exit;
      if (not OpenBankReflection('feb')) then
        TerminateScript;
      repeat
        Wait(100);
        if PinScreen then
          InPin(Players[CurrentPlayer].Strings[0]);
      until BankScreen;
      Wait( 1300 +random(600));
      if (not FindDTM( TinderBoxDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
        if FindDTM( TinderBoxDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
        begin
          Mouse( x, y, 0, 0, true);
          Wait(424 + random(260));
        end;
      if InvCount > 1 then
      begin
        ArrangeInv;
        for i:=2 to 28 do
        begin
          if ExistsItem(i) then
          begin
            MouseItem( i, false);
            Wait(284 +random(62));
            ChooseOption('ll');
            Wait(284 +random(62));
          end;
          if InvCount = 1 then Break;
        end;
      end;
      if FindDTM( LogInteger, x, y, MSX1, MSY1, MSX2, MSY2) then
      begin
        Mouse( x, y, 0, 0, false);
        Wait(224 + random(160));
        ChooseOption( 'll');
        Wait(424 + random(260));
        CloseBank;
        Result := True;
        Exit;
      end;
      Result := False;
      Writeln(' No logs were found...');
      TerminateScript;
    end;

    procedure Proggy;
    begin
      EE := GetMe.Experience[11];
      EL := GetMe.Levels[11];
      Writeln('=============================================');
      Writeln('===========Pure1993s Willow Burner===========');
      Writeln('=============================================');
      Writeln('Logs Burned: '+IntToStr((EE-Ge)/90));
      Writeln('Time Running: '+TimeRunning);
      Writeln('You started out with: '+IntToStr(GE)+'xp.');
      Writeln('You gained '+IntToStr(EE-GE)+'xp!');
      Writeln('Your current level is '+IntToStr(EL)+'.');
      Writeln('You gained '+IntToStr(El-Gl)+' level(s).');
      Writeln('==================Thank You==================');
      Writeln('=============================================');
      case Lowercase(Players[CurrentPlayer].Strings[1]) of
     
        'normal' : ReportVars[0] := ((EE-SRLGE)/40);
       
        'oak'    : ReportVars[1] := ((EE-SRLGE)/60);
       
        'willow' : ReportVars[2] := ((EE-SRLGE)/90);
       
        'maple'  : ReportVars[3] := ((EE-SRLGE)/135);
       
        'yew'    : ReportVars[4] := ((EE-SRLGE)/202); //this is rounded down by 0.5 exp
       
      end;
      SRLrandomsReport;
    end;

    begin
      SetUpSrl;
      SetupReflection;
      ScriptId:= '951';
      LoadTinderBox;
      DeclarePlayers;
      LoginPlayer;
      GE := GetMe.Experience[11];
      GL := GetMe.levels[11];
      LogInteger := WhichLog(Players[CurrentPlayer].Strings[1]);
      repeat
        WalkBack;
        SetAngle(True);
        GetItems;
        WalkForth;
        LightTheLogs;
        Proggy;
      if not LoggedIn then
      begin
        Writeln('Well, you are logged out, this means you probably got a random...');
        Writeln('We will terminate the script for safety reasons.');
        TerminateScript;
      end;
      until false;
    end.

    A bit of FAQ:

    Q: What the heck is wrong? I'm getting this error: Exception: Access violation at address 6720138A in module 'Embedded SMART.dll'. Read of address 00000350 in line 48 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Misc/SMART.SCAR

    A: Well, first of all, this is not because my script won't compile, but it is the way your includes are set up... read my second post on this thread (on the first page) to see what you can do about it.

    Q: It doesn't walk, and always says: tile not on minimap!

    A: Download your reflections again... to do that, go to the scar includes folder, and then go to srl-->srl and right click on the reflection folder. then select SVN Update. The problem should be solved. if it isn't, then the hooks aren't working right, and you need to wait until someone with the proper knowledge downloads the new hooks.

    Q: What is the current Reflection Revision?

    A: The last time I checked it was at 60. I will try to update this information as often as I get a chance to.


    Btw, it might get lost because of some log not being where it is supposed to, especially after a random, I am working on a quick fix atm. Also, I am only posting this because I created a better script which chops and burns, so this is sorta my policy for my reflection scripts: first I use them, then they go public. (don't wanna have a too great risk of losing my main ^^) This will probably be the only reflection script I will release into non members though, because the others I wouldn't like people to leech of ^^

    Have fun,
    -Pure1993
    There is nothing right in my left brain and there is nothing left in my right brain.

  2. #2
    Join Date
    Aug 2007
    Location
    Hawaii
    Posts
    3,880
    Mentioned
    7 Post(s)
    Quoted
    152 Post(s)

    Default

    Awesome man, I updated mines, though it doesnt use reflection.
    Faith is an oasis in the heart which will never be reached by the caravan of thinking.

  3. #3
    Join Date
    Feb 2007
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes!! finally an working log burner =) ill post proggie later.

  4. #4
    Join Date
    Oct 2007
    Location
    If (Online) then Loc := ('On comp') else Loc := ('Somewhere else!');
    Posts
    2,020
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice man testing now got like 143k willows to burn lets see how many i got after runing this for a week on and off

  5. #5
    Join Date
    Dec 2007
    Posts
    200
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Will definitely try this, and post proggies of at least 3 times.

  6. #6
    Join Date
    Jul 2008
    Posts
    142
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Exception: Access violation at address 6720138A in module 'Embedded SMART.dll'. Read of address 00000350 in line 48 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Misc/SMART.SCAR

    i have srl rev 20 and the latest reflection

  7. #7
    Join Date
    Jan 2008
    Location
    Frankfurt, Germany
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @mario: I also had that error a long time ago... (well, actually, that was 8 days ago, but heck, we live i nthe age of instant technology, so yeah, a long time back ) the way I fixed it:
    -made sure I had the latest version
    -Remade the setting up the srl part, which includes adding
    SCAR Code:
    {$IFDEF SMART}
      SmartSetup('World136', false, false, false);
      wait(10000+random(5000));
      SetTargetDC(SmartGetDC);
      repeat
        wait(100);
      until(SmartGetColor(253, 233)<>1118604);
     {$ENDIF}
    right after the "begin" in srl.scar, and to add
    SCAR Code:
    {$DEFINE SMART}
    at the very first line of smart.scar (it is in the misc includes).
    Hope this solved the issue.

    @All others: I'm glad that you guys found to this script i hope (and guess) that this script won't dissapoint you . Don't plan on time periods over 1 hour though, at least I never got it that far (I hope to get way past it after I have the update out, even though... I guess... I got something better now, even though if I just want to burn, I will probably still use this one )
    There is nothing right in my left brain and there is nothing left in my right brain.

  8. #8
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    May I suggest you add a link to the "How To Get and Update Reflection" tutorial? I'm sure you're going to get it asked a ton, may as well get it out of the way now.
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

  9. #9
    Join Date
    Jul 2008
    Posts
    142
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OMG the script was working this morning (thanks to your fix)
    now, I felt like updating my reflection folder, and the new update won't work
    Can someone give me a copy of their working reflection folder?

  10. #10
    Join Date
    May 2008
    Location
    Mental Hospital
    Posts
    414
    Mentioned
    4 Post(s)
    Quoted
    42 Post(s)

    Default

    wheres the dl link

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL] WML-Burner-[VEB]
    By Dangerous Garden Tools in forum RS3 Outdated / Broken Scripts
    Replies: 42
    Last Post: 03-31-2008, 12:37 PM
  2. DVD Burner Help
    By Ruroken in forum News and General
    Replies: 6
    Last Post: 08-16-2007, 02:29 AM

Posting Permissions

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