Page 4 of 12 FirstFirst ... 23456 ... LastLast
Results 76 to 100 of 283

Thread: Etherfreak's Log Burner

  1. #76
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Quote Originally Posted by DeiJaiVui View Post
    It doesn't work for me, just does nothing.
    More info please...
    Does SMART even pop up?
    Does it log in?
    Does it do anything at all?

  2. #77
    Join Date
    Dec 2011
    Location
    Sydney
    Posts
    1,284
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    More info please...
    Does SMART even pop up?
    Does it log in?
    Does it do anything at all?
    Doesn't do anything at all.

  3. #78
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Smart doesn't even show up for you?
    Well if you were to READ the top of the script it looks like this:
    Simba Code:
    //Remove // for smart
    //{.Include SRL\SRL\Misc\SMART.SCAR}

    Change it to
    Simba Code:
    //Remove // for smart
    {.Include SRL\SRL\Misc\SMART.SCAR}

    And then SMART will come up.

  4. #79
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    545
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Im new to tbis forum, got everything set up and this script only couldnt find the bank symbol and therefore cant find the bank and keeps running east until the failsafe
    Ive edited it and it works great using roadwalk back to the bank
    I dont know if this is allowed since no one else codes the script, but I could show you my edited version of this script

  5. #80
    Join Date
    Dec 2011
    Location
    Sydney
    Posts
    1,284
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YoHoJo View Post
    Smart doesn't even show up for you?
    Well if you were to READ the top of the script it looks like this:
    Simba Code:
    //Remove // for smart
    //{.Include SRL\SRL\Misc\SMART.SCAR}

    Change it to
    Simba Code:
    //Remove // for smart
    {.Include SRL\SRL\Misc\SMART.SCAR}

    And then SMART will come up.
    I did remove the //.

  6. #81
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Chris. We are open source and most scriptures love suggestions and fixes. Post whatever fixes you wish remember to put Simba tags around them please.

    Deja, show copy and paste the top few lines of your script please. Show from the line that starts 'program' and all of thr include lines I'd like to see.

  7. #82
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    545
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    YoHoJo, thanks

    Etherfreak, when I tried to run it, it couldnt find the bank symbol. I have used the staircase trick something like 30 times, couldnt find it..
    I even changed the SymbolAccuracy to 0.2, it still couldnt find it
    So Ive made it to use roadwalk back to the bank if the bank symbol wasnt found, and it works

    You might want to add something like this to your script, there have been more people saying: "It cant find the bank symbol", something like this could fix it.

    I was about to post everything I have here, but I have found a bug in my code
    I am quite new to scripting, so Im trying to solve them myself to learn from it.
    I will post it later

    Edit:
    Fixed the bug I had
    I dont know if this works when it CAN find the bank, because my pc cant find it..

    Here's the script:
    Simba Code:
    // script by EtherFreak
    program LogBurner;
    //Remove // for smart
    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.include SRL/SRL.scar}

    Const

    //  ----------------SETUP-----------------------------
    // Start in Verock East Bank. Setup log location.
     loadcount= 36      ;  //how many cycles you need (27 logs per cycle)
     BankCol=1          ; //log col in bank
     BankRow= 1         ; //log row in bank
     colorroad= 8752779 ; //grey road color to have RoadColorChecker; work
     threelet='ohn'     ;//2-4th letters of name. I.E. Johntrucker='ohn' (optional)
     BankLoc='veb';
    //  ---------------END SETUP----------------------------------------

    var
      x, y: integer;
      counter, count, InventsDone, kill, this: Integer;
      killed, UseBankSymbol, UseRoadwalk: boolean;


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
      //  ----------------SETUP-----------------------------
        Name := '';
        Pass := '';
        Nick := '';
        Active := True;

      end;
    end;
    //  ---------------END SETUP----------------------------------------

    Procedure initrun;
    begin
      Smart_Members := False;
      Smart_Server := 1;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      killed := True;
      this := 0;
      UseBankSymbol := False;
      UseRoadwalk := True;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      counter:=2;
      count:=0;
      InventsDone:=0;
      kill:=0;
      SymbolAccuracy:=0.6;  //Ajust as needed for bank symbol
      wait(3000);
      findnormalrandoms;
      roadcolor:=colorroad;
      RoadColorChecker;
      if findsymbol(x,y,'bank') then
      begin
      writeln('Banksymbol found!');
      UseBankSymbol := True;
      UseRoadwalk := False;
      end;

      if UseRoadwalk then  begin
        writeln('Cant find banksymbol, using roadwalk.')
        end;
    //  if UseBankSymbol then begin end;

      setangle(true);

    end;

    Procedure Burn;
    Var
      I,K:integer;
    Begin
      K:=0;
      For I:= 1 to 28 do
      Begin
        findnormalrandoms;
        if ExistsItem(I) then
        begin
        //if I=11 then
        //GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);

          invmouse(I,2); //clicking log
          wait(RandomRange(100,100));
          WaitOptionMulti(['ight','ght','ancel'], 1500);
          writeln('Burning log #'+IntToStr(I)+'.');
          Wait(RandomRange(1800,1000)); // versneld
        end;
        if ExistsItem(I) then
        begin
          invmouse(I,2); //clicking log
          wait(RandomRange(100,100));
          WaitOptionMulti(['ight','ght','ancel'], 1500);
          writeln('Burning log #'+IntToStr(I)+'. (second try)');
          Wait(RandomRange(1700,1000));
        end;
        if IsChatBoxTextBetween ('ere',clBlack,8,8) then //fire not allowed
          begin
            inc(k);
            RadialRoadWalk(RoadColor,350,360,14,-2,0);
            Wait(RandomRange(2850,1000));
            dec(I);
            writeln('Wss vast door een hek, proberen te ontsnappen.. ');
              Wait(RandomRange(2850,1000));
            //TerminateScript;
            if k=4 then
              begin
                Writeln('Issue making fire, logging out...');
                writeln('Inventorys done:');
                writeln(InventsDone);
                logout;
                TerminateScript;
              end;
          end;
        if IsChatBoxTextAnyLine (threelet,clBlue) then    //name detection
            begin
              writeln('Someone said your name, logging out to be safe');
              writeln('Inventorys done:');
              writeln(InventsDone);
              logout;
              TerminateScript;
            end;
      end;
      if invcount=0 then
        writeln('Burned correctly') else
        Burn;
    End;

    Procedure Bank;
    Begin
      writeln('Banking kill is:'+inttostr(kill)+'.');
      mousespeed:=(8+random(3));
      inc(kill);
      findnormalrandoms;
      //Wait(RandomRange(450,700));
      openbankfast(BankLoc);
      Wait(RandomRange(400,450));
      withdraw(BankCol,BankRow,0);
      Wait(RandomRange(1300,1500));        // killed = waar, c = waar.

      if kill=4 then   begin
      inc(this);
      if killed then
        begin
          writeln('Waiting 5 seconds, than trying to find the bank..');
          Wait(RandomRange(4172,5928));
          RadialRoadWalk(RoadColor,145,205,50,-2,0);
          killed := False;
          kill :=0;
          Bank;
        end;
          if this=2 then
          begin                  // if killed := False then begin
          closewindow;
          writeln('Banking failed, logging out...');
          writeln('Inventorys done:');
          writeln(InventsDone);
          logout;
          TerminateScript;
          end;
         end;
      if invcount=28 then    begin
          writeln('Banked correctly');
          if killed=False then begin
          this:=0;
          killed:=True;
          end;
          end;
        if invcount=0 then begin

          bank;
        kill:=0;
      end;
      kill:=0;
    End;

    Procedure toburn;
    Begin
      findnormalrandoms;
      writeln('Walking to burn.');
      wait(RandomRange(100,100));
      RadialRoadWalk(RoadColor,0,75,60,-2,0);
      //Wait(RandomRange(1000,1200));
    End;

    Procedure tobank;
    Begin
      //GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);
      writeln('Inventorys done:');
      inc(InventsDone);
      writeln(InventsDone);
      //repeat
        findnormalrandoms;
        wait(RandomRange(1000,1200));
        if UseRoadwalk then begin
        RadialRoadWalk(RoadColor,80,110,70,-2,0);
        writeln('Walking to the bank.');
            RadialRoadWalk(RoadColor,165,195,50,-2,0);
            writeln('Walking to bank done.');
            writeln('Lets start again');
            end;
            if UseBankSymbol then begin
            repeat
            findnormalrandoms;
            RadialRoadWalk(RoadColor,80,110,70,-2,0);
            until findsymbol(x,y,'bank')
            kill:=0;
            mouse(x,y,5,5,true);
            wait(RandomRange(8000,9000));
            end;
        inc(kill);
    End;

    begin
      initrun;
      repeat
        Bank;
        toburn;
        burn;
        tobank;
        inc(count);
      until (count=loadcount)
      writeln('Completed without error!');
    end.
    Last edited by Chris; 12-22-2011 at 05:03 PM. Reason: fixed the bug :D

  8. #83
    Join Date
    Jul 2010
    Location
    Western US
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Chris J, are you sure your srl is up to date? It sounds like you are having issues with your bank bitmap in srl not being up to date. It also could be an issue of not having the client set up in safe mode. As I showed in a previous post, the two different cases where a bank symbol would show up, and one where a bank symbol would not show up.

    It would seem that your road walk method would work, but I still need to figure out on my end how to make it failsafe. One of the issues I first had when I made it was it would not check for the bank symbol, so it would run one time, then never make it back to the bank. I just would like to know why so many cients seem to be having an issue with the bank symbol...

    P.S. Thank you for your more detailed feedback, at least I have something to work with to try and fix the issue at hand.
    Of all the things I have lost, I miss my mind the most.
    Current Projects:
    Addy bar miner and superheater

  9. #84
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    545
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    I am using SMART in software mode with lowest settings and highest brightness, everything else works fine, but this could be the problem when it searches for the bank symbol
    I will try it in safe mode later today
    My SRL is up to date

    Edit: It also can't find the bank symbol in safe mode

    Second Edit: I have a proggie with loadcount= 36:

    http://pastebin.com/h6rcsRUs

    (used my own version of the script):

    Simba Code:
    // script by EtherFreak
    program LogBurner;
    //Remove // for smart
    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.include SRL/SRL.scar}

    Const

    //  ----------------SETUP-----------------------------
    // Start in Verock East Bank. Setup log location.
     loadcount= 36      ;  //how many cycles you need (27 logs per cycle)
     BankCol=1          ; //log col in bank
     BankRow= 1         ; //log row in bank
     colorroad= 8752779 ; //grey road color to have RoadColorChecker; work
     threelet='ohn'     ;//2-4th letters of name. I.E. Johntrucker='ohn' (optional)
     BankLoc='veb';
    //  ---------------END SETUP----------------------------------------

    var
      x, y: integer;
      counter, count, InventsDone, kill, this: Integer;
      killed, UseBankSymbol, UseRoadwalk: boolean;


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
      //  ----------------SETUP-----------------------------
        Name := '';
        Pass := '';
        Nick := '';
        Active := True;

      end;
    end;
    //  ---------------END SETUP----------------------------------------

    Procedure initrun;
    begin
      Smart_Members := False;
      Smart_Server := 1;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      killed := True;
      this := 0;
      UseBankSymbol := False;
      UseRoadwalk := True;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      counter:=2;
      count:=0;
      InventsDone:=0;
      kill:=0;
      SymbolAccuracy:=0.6;  //Ajust as needed for bank symbol
      wait(3000);
      findnormalrandoms;
      roadcolor:=colorroad;
      RoadColorChecker;
      if findsymbol(x,y,'bank') then
      begin
      writeln('Banksymbol found!');
      UseBankSymbol := True;
      UseRoadwalk := False;
      end;

      if UseRoadwalk then  begin
        writeln('Cant find banksymbol, using roadwalk.')
        end;
    //  if UseBankSymbol then begin end;

      setangle(true);

    end;

    Procedure Burn;
    Var
      I,K:integer;
    Begin
      K:=0;
      For I:= 1 to 28 do
      Begin
        findnormalrandoms;
        if ExistsItem(I) then
        begin
        //if I=11 then
        //GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);

          invmouse(I,2); //clicking log
          wait(RandomRange(100,100));
          WaitOptionMulti(['ight','ght','ancel'], 1500);
          writeln('Burning log #'+IntToStr(I)+'.');
          Wait(RandomRange(1800,1000)); // versneld
        end;
        if ExistsItem(I) then
        begin
          invmouse(I,2); //clicking log
          wait(RandomRange(100,100));
          WaitOptionMulti(['ight','ght','ancel'], 1500);
          writeln('Burning log #'+IntToStr(I)+'. (second try)');
          Wait(RandomRange(1700,1000));
        end;
        if IsChatBoxTextBetween ('ere',clBlack,8,8) then //fire not allowed
          begin
             mouse(260,156,5,5,true);
            inc(k);
            RadialRoadWalk(RoadColor,350,360,14,-2,0);
            Wait(RandomRange(2850,1000));
            dec(I);
            writeln('Wss vast door een hek, proberen te ontsnappen.. ');
              Wait(RandomRange(2850,1000));
            //TerminateScript;
            if k=4 then
              begin
                Writeln('Issue making fire, logging out...');
                writeln('Inventorys done:');
                writeln(InventsDone);
                logout;
                TerminateScript;
              end;
          end;
        if IsChatBoxTextAnyLine (threelet,clBlue) then    //name detection
            begin
              writeln('Someone said your name, logging out to be safe');
              writeln('Inventorys done:');
              writeln(InventsDone);
              logout;
              TerminateScript;
            end;
      end;
      if invcount=0 then
        writeln('Burned correctly') else
        Burn;
    End;

    Procedure Bank;
    Begin
      writeln('Banking kill is:'+inttostr(kill)+'.');
      mousespeed:=(8+random(3));
      inc(kill);
      findnormalrandoms;
      //Wait(RandomRange(450,700));
      openbankfast(BankLoc);
      Wait(RandomRange(400,450));
      withdraw(BankCol,BankRow,0);
      Wait(RandomRange(1300,1500));        // killed = waar, c = waar.

      if kill=4 then   begin
      inc(this);
      if killed then
        begin
          writeln('Waiting 5 seconds, than trying to find the bank..');
          Wait(RandomRange(4172,5928));
          RadialRoadWalk(RoadColor,145,205,50,-2,0);
          killed := False;
          kill :=0;
          Bank;
        end;
        if this=2 then
        begin
          writeln('Still couldnt find bank.. trying last trick in 3 seconds');
          Wait(RandomRange(2834,4602));
          RadialRoadWalk(RoadColor,80,260,50,-2,0);
          killed := False;
          kill :=0;
          Bank;
        end;
          if this=3 then
          begin                  // if killed := False then begin
          closewindow;
          writeln('Banking failed, logging out...');
          writeln('Inventorys done:');
          writeln(InventsDone);
          logout;
          TerminateScript;
          end;
         end;
      if invcount=28 then    begin
          writeln('Banked correctly');
          if killed=False then begin
          this:=0;
          killed:=True;
          end;
          end;
        if invcount=0 then begin

          bank;
        kill:=0;
      end;
      kill:=0;
    End;

    Procedure toburn;
    Begin
      findnormalrandoms;
      writeln('Walking to burn.');
      wait(RandomRange(100,100));
      // mouse(674,51,5,5,true);
      // wait(RandomRange(2800,3650));
      RadialRoadWalk(RoadColor,0,75,60,-2,0);
      //Wait(RandomRange(1000,1200));
    End;

    Procedure tobank;
    Begin
      //GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);
      writeln('Inventorys done:');
      inc(InventsDone);
      writeln(InventsDone);
      //repeat
        findnormalrandoms;
        wait(RandomRange(1000,1200));
        if UseRoadwalk then begin
        RadialRoadWalk(RoadColor,80,110,70,-2,0);
        writeln('Walking to the bank.');
        wait(RandomRange(1600,1900));
            RadialRoadWalk(RoadColor,165,195,50,-2,0);
            writeln('Walking to bank done.');
            writeln('Lets start again');
            end;
            if UseBankSymbol then begin
            repeat
            findnormalrandoms;
            RadialRoadWalk(RoadColor,80,110,70,-2,0);
            until findsymbol(x,y,'bank')
            kill:=0;
            mouse(x,y,5,5,true);
            wait(RandomRange(8000,9000));
            end;
        inc(kill);
    End;

    begin
      initrun;
      repeat
        Bank;
        toburn;
        burn;
        tobank;
        inc(count);
      until (count=loadcount)
      writeln('Completed without error!');
    end.
    Last edited by Chris; 12-23-2011 at 05:36 PM. Reason: tried safe mode

  10. #85
    Join Date
    Jul 2010
    Location
    Western US
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Simba Code:
    program new;
    {.include SRL/SRL.scar}

    Var
      x, y: integer;

    begin
      wait(2000);
      if findsymbol(x,y,'bank') then
        writeln('found bank symbol');
      if findsymbol(x,y,'water') then
        writeln('found water symbol');
      if findsymbol(x,y,'anvil') then
        writeln('found anvil');
    end.

    If you run the following script (not using smart, but the regular client) near a bank, water, and the anvil, you should normally have each object return true. If this does not happen, then there is some kind of issue with the symbol finding on your client. if it does work, then there is some kind of issue within my script.

    I am also going to add a banking fail safe that is independent of the bank symbol, to remove the issue when the bank symbol is not visible. It will look at the number of yellow dots on the minimap, which is primarily bankers, if it can see the bank symbol as well, this will just help improve the fact that the user is in the bank, but will not be required to run the script.
    Of all the things I have lost, I miss my mind the most.
    Current Projects:
    Addy bar miner and superheater

  11. #86
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    545
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    I will try it tomorrow, never used the regular client to bot yet and I got to go right now.

  12. #87
    Join Date
    Nov 2011
    Posts
    43
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Chris J View Post
    (used my own version of the script):

    Simba Code:
    // script by EtherFreak
    program LogBurner;
    //Remove // for smart
    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.include SRL/SRL.scar}

    Const

    //  ----------------SETUP-----------------------------
    // Start in Verock East Bank. Setup log location.
     loadcount= 36      ;  //how many cycles you need (27 logs per cycle)
     BankCol=1          ; //log col in bank
     BankRow= 1         ; //log row in bank
     colorroad= 8752779 ; //grey road color to have RoadColorChecker; work
     threelet='ohn'     ;//2-4th letters of name. I.E. Johntrucker='ohn' (optional)
     BankLoc='veb';
    //  ---------------END SETUP----------------------------------------

    var
      x, y: integer;
      counter, count, InventsDone, kill, this: Integer;
      killed, UseBankSymbol, UseRoadwalk: boolean;


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
      //  ----------------SETUP-----------------------------
        Name := '';
        Pass := '';
        Nick := '';
        Active := True;

      end;
    end;
    //  ---------------END SETUP----------------------------------------

    Procedure initrun;
    begin
      Smart_Members := False;
      Smart_Server := 1;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      killed := True;
      this := 0;
      UseBankSymbol := False;
      UseRoadwalk := True;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      counter:=2;
      count:=0;
      InventsDone:=0;
      kill:=0;
      SymbolAccuracy:=0.6;  //Ajust as needed for bank symbol
      wait(3000);
      findnormalrandoms;
      roadcolor:=colorroad;
      RoadColorChecker;
      if findsymbol(x,y,'bank') then
      begin
      writeln('Banksymbol found!');
      UseBankSymbol := True;
      UseRoadwalk := False;
      end;

      if UseRoadwalk then  begin
        writeln('Cant find banksymbol, using roadwalk.')
        end;
    //  if UseBankSymbol then begin end;

      setangle(true);

    end;

    Procedure Burn;
    Var
      I,K:integer;
    Begin
      K:=0;
      For I:= 1 to 28 do
      Begin
        findnormalrandoms;
        if ExistsItem(I) then
        begin
        //if I=11 then
        //GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);

          invmouse(I,2); //clicking log
          wait(RandomRange(100,100));
          WaitOptionMulti(['ight','ght','ancel'], 1500);
          writeln('Burning log #'+IntToStr(I)+'.');
          Wait(RandomRange(1800,1000)); // versneld
        end;
        if ExistsItem(I) then
        begin
          invmouse(I,2); //clicking log
          wait(RandomRange(100,100));
          WaitOptionMulti(['ight','ght','ancel'], 1500);
          writeln('Burning log #'+IntToStr(I)+'. (second try)');
          Wait(RandomRange(1700,1000));
        end;
        if IsChatBoxTextBetween ('ere',clBlack,8,8) then //fire not allowed
          begin
             mouse(260,156,5,5,true);
            inc(k);
            RadialRoadWalk(RoadColor,350,360,14,-2,0);
            Wait(RandomRange(2850,1000));
            dec(I);
            writeln('Wss vast door een hek, proberen te ontsnappen.. ');
              Wait(RandomRange(2850,1000));
            //TerminateScript;
            if k=4 then
              begin
                Writeln('Issue making fire, logging out...');
                writeln('Inventorys done:');
                writeln(InventsDone);
                logout;
                TerminateScript;
              end;
          end;
        if IsChatBoxTextAnyLine (threelet,clBlue) then    //name detection
            begin
              writeln('Someone said your name, logging out to be safe');
              writeln('Inventorys done:');
              writeln(InventsDone);
              logout;
              TerminateScript;
            end;
      end;
      if invcount=0 then
        writeln('Burned correctly') else
        Burn;
    End;

    Procedure Bank;
    Begin
      writeln('Banking kill is:'+inttostr(kill)+'.');
      mousespeed:=(8+random(3));
      inc(kill);
      findnormalrandoms;
      //Wait(RandomRange(450,700));
      openbankfast(BankLoc);
      Wait(RandomRange(400,450));
      withdraw(BankCol,BankRow,0);
      Wait(RandomRange(1300,1500));        // killed = waar, c = waar.

      if kill=4 then   begin
      inc(this);
      if killed then
        begin
          writeln('Waiting 5 seconds, than trying to find the bank..');
          Wait(RandomRange(4172,5928));
          RadialRoadWalk(RoadColor,145,205,50,-2,0);
          killed := False;
          kill :=0;
          Bank;
        end;
        if this=2 then
        begin
          writeln('Still couldnt find bank.. trying last trick in 3 seconds');
          Wait(RandomRange(2834,4602));
          RadialRoadWalk(RoadColor,80,260,50,-2,0);
          killed := False;
          kill :=0;
          Bank;
        end;
          if this=3 then
          begin                  // if killed := False then begin
          closewindow;
          writeln('Banking failed, logging out...');
          writeln('Inventorys done:');
          writeln(InventsDone);
          logout;
          TerminateScript;
          end;
         end;
      if invcount=28 then    begin
          writeln('Banked correctly');
          if killed=False then begin
          this:=0;
          killed:=True;
          end;
          end;
        if invcount=0 then begin

          bank;
        kill:=0;
      end;
      kill:=0;
    End;

    Procedure toburn;
    Begin
      findnormalrandoms;
      writeln('Walking to burn.');
      wait(RandomRange(100,100));
      // mouse(674,51,5,5,true);
      // wait(RandomRange(2800,3650));
      RadialRoadWalk(RoadColor,0,75,60,-2,0);
      //Wait(RandomRange(1000,1200));
    End;

    Procedure tobank;
    Begin
      //GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);
      writeln('Inventorys done:');
      inc(InventsDone);
      writeln(InventsDone);
      //repeat
        findnormalrandoms;
        wait(RandomRange(1000,1200));
        if UseRoadwalk then begin
        RadialRoadWalk(RoadColor,80,110,70,-2,0);
        writeln('Walking to the bank.');
        wait(RandomRange(1600,1900));
            RadialRoadWalk(RoadColor,165,195,50,-2,0);
            writeln('Walking to bank done.');
            writeln('Lets start again');
            end;
            if UseBankSymbol then begin
            repeat
            findnormalrandoms;
            RadialRoadWalk(RoadColor,80,110,70,-2,0);
            until findsymbol(x,y,'bank')
            kill:=0;
            mouse(x,y,5,5,true);
            wait(RandomRange(8000,9000));
            end;
        inc(kill);
    End;

    begin
      initrun;
      repeat
        Bank;
        toburn;
        burn;
        tobank;
        inc(count);
      until (count=loadcount)
      writeln('Completed without error!');
    end.
    Is this a modified version of log burner v1.3 that works and uses SMART?

  13. #88
    Join Date
    Nov 2011
    Location
    Puerto Rico
    Posts
    905
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by 99 Doors View Post
    Is this a modified version of log burner v1.3 that works and uses SMART?
    none of them work

  14. #89
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    545
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Quote Originally Posted by 99 Doors View Post
    Is this a modified version of log burner v1.3 that works and uses SMART?
    Yes.

  15. #90
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    545
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Quote Originally Posted by EtherFreak View Post
    Simba Code:
    program new;
    {.include SRL/SRL.scar}

    Var
      x, y: integer;

    begin
      wait(2000);
      if findsymbol(x,y,'bank') then
        writeln('found bank symbol');
      if findsymbol(x,y,'water') then
        writeln('found water symbol');
      if findsymbol(x,y,'anvil') then
        writeln('found anvil');
    end.

    If you run the following script (not using smart, but the regular client) near a bank, water, and the anvil, you should normally have each object return true. If this does not happen, then there is some kind of issue with the symbol finding on your client. if it does work, then there is some kind of issue within my script.

    I am also going to add a banking fail safe that is independent of the bank symbol, to remove the issue when the bank symbol is not visible. It will look at the number of yellow dots on the minimap, which is primarily bankers, if it can see the bank symbol as well, this will just help improve the fact that the user is in the bank, but will not be required to run the script.

    It gave this the first time:
    Simba Code:
    New window: 917960
    Compiled successfully in 2016 ms.
    found anvil
    Successfully executed.

    Tried it multiple times, still could only find the anvil..
    It gave this later:

    Simba Code:
    Compiled successfully in 2031 ms.
    Exception: Range check error at line 644
    The following bitmaps were not freed: [0]

    And the symbol function comes up, with line 644 marked:
    Simba Code:
    FindDeformedBitmapToleranceIn(SymbolBitmap, x, y, xs, ys, xe, ye, 70, 0, True, acc);

  16. #91
    Join Date
    Jul 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I keep getting this, no matter what I do...

    Simba Code:
    Compiled successfully in 1216 ms.
    SRL Compiled in 16 msec
    SMART Initialized.
    Loaded: Server 1, Members: False, Signed: True, Super Detail: False.
    cant tell if your at the bank. try a different world?

    EDIT:

    This worked for me:

    Quote Originally Posted by Chris J View Post
    (used my own version of the script):

    Simba Code:
    // script by EtherFreak
    program LogBurner;
    //Remove // for smart
    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.include SRL/SRL.scar}

    Const

    //  ----------------SETUP-----------------------------
    // Start in Verock East Bank. Setup log location.
     loadcount= 36      ;  //how many cycles you need (27 logs per cycle)
     BankCol=1          ; //log col in bank
     BankRow= 1         ; //log row in bank
     colorroad= 8752779 ; //grey road color to have RoadColorChecker; work
     threelet='ohn'     ;//2-4th letters of name. I.E. Johntrucker='ohn' (optional)
     BankLoc='veb';
    //  ---------------END SETUP----------------------------------------

    var
      x, y: integer;
      counter, count, InventsDone, kill, this: Integer;
      killed, UseBankSymbol, UseRoadwalk: boolean;


    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      with Players[0] do
      begin
      //  ----------------SETUP-----------------------------
        Name := '';
        Pass := '';
        Nick := '';
        Active := True;

      end;
    end;
    //  ---------------END SETUP----------------------------------------

    Procedure initrun;
    begin
      Smart_Members := False;
      Smart_Server := 1;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      killed := True;
      this := 0;
      UseBankSymbol := False;
      UseRoadwalk := True;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      counter:=2;
      count:=0;
      InventsDone:=0;
      kill:=0;
      SymbolAccuracy:=0.6;  //Ajust as needed for bank symbol
      wait(3000);
      findnormalrandoms;
      roadcolor:=colorroad;
      RoadColorChecker;
      if findsymbol(x,y,'bank') then
      begin
      writeln('Banksymbol found!');
      UseBankSymbol := True;
      UseRoadwalk := False;
      end;

      if UseRoadwalk then  begin
        writeln('Cant find banksymbol, using roadwalk.')
        end;
    //  if UseBankSymbol then begin end;

      setangle(true);

    end;

    Procedure Burn;
    Var
      I,K:integer;
    Begin
      K:=0;
      For I:= 1 to 28 do
      Begin
        findnormalrandoms;
        if ExistsItem(I) then
        begin
        //if I=11 then
        //GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);

          invmouse(I,2); //clicking log
          wait(RandomRange(100,100));
          WaitOptionMulti(['ight','ght','ancel'], 1500);
          writeln('Burning log #'+IntToStr(I)+'.');
          Wait(RandomRange(1800,1000)); // versneld
        end;
        if ExistsItem(I) then
        begin
          invmouse(I,2); //clicking log
          wait(RandomRange(100,100));
          WaitOptionMulti(['ight','ght','ancel'], 1500);
          writeln('Burning log #'+IntToStr(I)+'. (second try)');
          Wait(RandomRange(1700,1000));
        end;
        if IsChatBoxTextBetween ('ere',clBlack,8,8) then //fire not allowed
          begin
             mouse(260,156,5,5,true);
            inc(k);
            RadialRoadWalk(RoadColor,350,360,14,-2,0);
            Wait(RandomRange(2850,1000));
            dec(I);
            writeln('Wss vast door een hek, proberen te ontsnappen.. ');
              Wait(RandomRange(2850,1000));
            //TerminateScript;
            if k=4 then
              begin
                Writeln('Issue making fire, logging out...');
                writeln('Inventorys done:');
                writeln(InventsDone);
                logout;
                TerminateScript;
              end;
          end;
        if IsChatBoxTextAnyLine (threelet,clBlue) then    //name detection
            begin
              writeln('Someone said your name, logging out to be safe');
              writeln('Inventorys done:');
              writeln(InventsDone);
              logout;
              TerminateScript;
            end;
      end;
      if invcount=0 then
        writeln('Burned correctly') else
        Burn;
    End;

    Procedure Bank;
    Begin
      writeln('Banking kill is:'+inttostr(kill)+'.');
      mousespeed:=(8+random(3));
      inc(kill);
      findnormalrandoms;
      //Wait(RandomRange(450,700));
      openbankfast(BankLoc);
      Wait(RandomRange(400,450));
      withdraw(BankCol,BankRow,0);
      Wait(RandomRange(1300,1500));        // killed = waar, c = waar.

      if kill=4 then   begin
      inc(this);
      if killed then
        begin
          writeln('Waiting 5 seconds, than trying to find the bank..');
          Wait(RandomRange(4172,5928));
          RadialRoadWalk(RoadColor,145,205,50,-2,0);
          killed := False;
          kill :=0;
          Bank;
        end;
        if this=2 then
        begin
          writeln('Still couldnt find bank.. trying last trick in 3 seconds');
          Wait(RandomRange(2834,4602));
          RadialRoadWalk(RoadColor,80,260,50,-2,0);
          killed := False;
          kill :=0;
          Bank;
        end;
          if this=3 then
          begin                  // if killed := False then begin
          closewindow;
          writeln('Banking failed, logging out...');
          writeln('Inventorys done:');
          writeln(InventsDone);
          logout;
          TerminateScript;
          end;
         end;
      if invcount=28 then    begin
          writeln('Banked correctly');
          if killed=False then begin
          this:=0;
          killed:=True;
          end;
          end;
        if invcount=0 then begin

          bank;
        kill:=0;
      end;
      kill:=0;
    End;

    Procedure toburn;
    Begin
      findnormalrandoms;
      writeln('Walking to burn.');
      wait(RandomRange(100,100));
      // mouse(674,51,5,5,true);
      // wait(RandomRange(2800,3650));
      RadialRoadWalk(RoadColor,0,75,60,-2,0);
      //Wait(RandomRange(1000,1200));
    End;

    Procedure tobank;
    Begin
      //GetNewRoadColor(mmx1,mmy1,mmx2,mmy2,6);
      writeln('Inventorys done:');
      inc(InventsDone);
      writeln(InventsDone);
      //repeat
        findnormalrandoms;
        wait(RandomRange(1000,1200));
        if UseRoadwalk then begin
        RadialRoadWalk(RoadColor,80,110,70,-2,0);
        writeln('Walking to the bank.');
        wait(RandomRange(1600,1900));
            RadialRoadWalk(RoadColor,165,195,50,-2,0);
            writeln('Walking to bank done.');
            writeln('Lets start again');
            end;
            if UseBankSymbol then begin
            repeat
            findnormalrandoms;
            RadialRoadWalk(RoadColor,80,110,70,-2,0);
            until findsymbol(x,y,'bank')
            kill:=0;
            mouse(x,y,5,5,true);
            wait(RandomRange(8000,9000));
            end;
        inc(kill);
    End;

    begin
      initrun;
      repeat
        Bank;
        toburn;
        burn;
        tobank;
        inc(count);
      until (count=loadcount)
      writeln('Completed without error!');
    end.
    Last edited by wipe me down; 12-24-2011 at 07:59 PM.

  17. #92
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by wipe me down View Post
    I keep getting this, no matter what I do...

    Simba Code:
    Compiled successfully in 1216 ms.
    SRL Compiled in 16 msec
    SMART Initialized.
    Loaded: Server 1, Members: False, Signed: True, Super Detail: False.
    cant tell if your at the bank. try a different world?
    Does SMART pop-up? Are you logged in? More information would be nice.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  18. #93
    Join Date
    Jul 2010
    Location
    Western US
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    UPDATE V 1.4 is now released.
    Banking symbol issue should be no longer. Added easy adjustment for the burn wait time, for those that were leaving logs on the ground unlit. If you do have an issue please give me enough info so I can try and help fix it.

    PS:
    I would like it if you could tell me if the script primarily uses the banking symbol, or the alternative method. I want to see this from more then one person who downloads the script. I saw 200 downloads on the last version, and very little feedback for the amount of downloads.
    Last edited by EtherFreak; 12-24-2011 at 09:53 PM.
    Of all the things I have lost, I miss my mind the most.
    Current Projects:
    Addy bar miner and superheater

  19. #94
    Join Date
    Dec 2011
    Location
    Holland
    Posts
    545
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Ive tried v1.4, this was the first result:
    Simba Code:
    Compiled successfully in 2141 ms.
    SRL Compiled in 31 msec
    SMART Initialized.
    Loaded: Server 1, Members: False, Signed: True, Super Detail: False.
    cant tell if your at the bank. trying alternite method
    not at bank?
    It found 10 yellow dots so i've changed this:
    if CountDots('yellow')>11 then
    to this:
    if CountDots('yellow')>9 then

    Tried it again:
    Simba Code:
    Compiled successfully in 2359 ms.
    SRL Compiled in 31 msec
    SMART Initialized.
    Loaded: Server 1, Members: False, Signed: True, Super Detail: False.
    cant tell if your at the bank. trying alternite method
    yellow dot count indicates at bank
    10
    Banking kill is:0.
    Banked corectly
    Walking to burn. The roadcolor is:8818320.
    Burning #1 log.
    Burning #2 log.
    Burning #3 log.
    Burning #4 log.
    Burning #5 log.
    Burning #6 log.
    Burning #7 log.
    Burning #8 log.
    Burning #9 log.
    Burning #10 log.
    Burning #11 log.
    Burning #12 log.
    Burning #13 log.
    Burning #14 log.
    Burning #15 log.
    Burning #16 log.
    Burning #17 log.
    Burning #18 log.
    Burning #19 log.
    Burning #20 log.
    Burning #21 log.
    Burning #22 log.
    Burning #23 log.
    Burning #24 log.
    Burning #25 log.
    Burning #26 log.
    Burning #27 log.
    Burning #28 log.
    Burned correctly
    Walking to bank. The roadcolor is:8818320.
    15
    using alternate method
    There are 99 loads to go.
    Banking kill is:0.
    Banked corectly
    Walking to burn. The roadcolor is:8818320.
    Burning #1 log.
    Burning #2 log.
    Burning #3 log.
    Burning #4 log.
    Burning #5 log.
    Burning #6 log.
    Burning #7 log.
    Burning #8 log.
    Burning #9 log.
    Burning #10 log.
    Burning #11 log.
    Burning #12 log.
    Burning #13 log.
    Burning #14 log.
    Burning #14 log.
    Burning #15 log.
    Burning #16 log.
    Burning #16 log.
    Burning #17 log.
    Burning #18 log.
    Burning #19 log.
    Burning #20 log.
    Burning #21 log.
    Burning #22 log.
    Burning #23 log.
    Burning #24 log.
    Burning #24 log.
    Burning #25 log.
    Burning #25 log.
    Burning #26 log.
    Burning #27 log.
    Burning #27 log.
    Burning #28 log.
    Burned correctly
    Walking to bank. The roadcolor is:8818320.
    14
    using alternate method
    There are 98 loads to go.
    Banking kill is:0.
    Banking kill is:1.
    Banking kill is:2.
    Banking kill is:3.
    Banking failed, logging out...
    And it stood right here:

  20. #95
    Join Date
    Nov 2011
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    banking was working yesterday and now it isnt

  21. #96
    Join Date
    Oct 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Script is not banking
    Last edited by squillyum; 12-26-2011 at 07:25 PM.

  22. #97
    Join Date
    Dec 2011
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Doesn't bank correctly at the moment...

  23. #98
    Join Date
    Jul 2010
    Location
    Western US
    Posts
    387
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Upping V1.5 which HOPEFULLY will fix banking issues...
    Of all the things I have lost, I miss my mind the most.
    Current Projects:
    Addy bar miner and superheater

  24. #99
    Join Date
    Dec 2011
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default uhm

    Great script man keep them coming
    Last edited by cityreppin; 12-28-2011 at 02:20 AM.

  25. #100
    Join Date
    Dec 2011
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey it will work for me for like 2 runs and then it will just shut down i tried to change the road color and it made it worse
    i have smart enabled to

Page 4 of 12 FirstFirst ... 23456 ... LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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