Page 1 of 2 12 LastLast
Results 1 to 25 of 48

Thread: FleaWines

  1. #1
    Join Date
    Jun 2006
    Location
    N Wales
    Posts
    558
    Mentioned
    2 Post(s)
    Quoted
    56 Post(s)

    Default FleaWines








    Special thanks to Kyle Undefined and ashaman88 for helping out.

    • this script will make wine by withdrawing 14 grapes and 14 jugs of water then using them on each other.
    • run this script stood in front of the soul wars chest.
    • ensure the option to withdraw 14 appears when right clicking before starting the script.
    • please report any bugs though this thread

  2. #2
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Gonna test it as soon as i get my hands on some grapes

  3. #3
    Join Date
    Jun 2006
    Location
    N Wales
    Posts
    558
    Mentioned
    2 Post(s)
    Quoted
    56 Post(s)

    Default

    Quote Originally Posted by xScott View Post
    Gonna test it as soon as i get my hands on some grapes
    ok thanks let me know how it goes. I haven't tested it properly (I only had 20 grapes in bank).

  4. #4
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Tried it out, it withdraws 14 grapes and jugs then dumps them back into the bank and repeats.

  5. #5
    Join Date
    Jun 2006
    Location
    N Wales
    Posts
    558
    Mentioned
    2 Post(s)
    Quoted
    56 Post(s)

    Default

    Quote Originally Posted by xScott View Post
    Tried it out, it withdraws 14 grapes and jugs then dumps them back into the bank and repeats.
    ok uploaded a new version, re download and let me know if its any better please

  6. #6
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by the flea View Post
    ok uploaded a new version, re download and let me know if its any better please
    Downloaded the new one and its still it unloads the grapes and jugs into inventory then banks them again.

  7. #7
    Join Date
    Jun 2006
    Location
    N Wales
    Posts
    558
    Mentioned
    2 Post(s)
    Quoted
    56 Post(s)

    Default

    oh sorry this is a fail script then. Perhaps a different member will be able to help me out, I dont have time right now too look into it more and my lack of scripting for 2 years has made me not very good at this anymore.

  8. #8
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by the flea View Post
    oh sorry this is a fail script then. Perhaps a different member will be able to help me out, I dont have time right now too look into it more and my lack of scripting for 2 years has made me not very good at this anymore.
    Haha alrighty, cheers anyway!

  9. #9
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Not bad for the first script in 2 years

    This *should* work, haven't tested but it looks like it should:
    Simba Code:
    program FleaWine;
    {$DEFINE SMART}
    {$include srl/srl.simba}

    var
      StartTime, Made, MadeH, Sec, state, Make, Grape, Jug :Integer;

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

      with Players[0] do
      begin
        Name := '';
        Pass := '';
        Nick := '';
        Active := True;
        Pin := '';
        BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];//Random event prices.
      end;
    end;

    procedure setDTM;
    begin
      Make := DTMFromString('mqAEAAHicE2FgYGBkZGDQAGItINYEYmYgfgAUvwfFTFCxP0D2TwYI/R+I+YBiEkD8C8h+BsTPgfg1EC8Fis0E4iNAvAKIjwLxYSBeD8SzgXgBEK+C4oVQPkj9NCDeCMRboXg5VH12ehpDuL8Lg7G2AoOXkzmDkZY8g4mOIoOLjSFDqK8TQ3pyEhjXVpQztDU2MHQ0NTG06WsyRAa6MThbGzDYm+uAsbezBVg9P9CN1MSMVMbYAAAs7yvM');
      Grape := DTMFromString('mggAAAHicY2NgYHBkYmBwYYLQ7kBsDcSeQPwUKHcXiN8A8UsGBJ+BgYnB14ibIYTHlsGZ05ChUCCIgd2Qg4EfKIMNM+LAEAAAbc8KFg==');
      Jug := DTMFromString('mrAAAAHic42BgYJjOxMAwFYhnA3EfEE8G4hlAPAkq9hyo5gMQvwXiF0D8CIhvA/EtIH4KxJmpKQzFeXkMibExDG2NDWBcWVLCEBUWBhbjB6rBhxkJYBgAAPHmFpg=');
    end;

    procedure freeeDTM;
    begin
      FreeDTM(Make);
      FreeDTM(Grape);
      FreeDTM(Jug);
    end;

    procedure bank;
    var
      x,y,x2,y2:Integer;
    begin
      if (state = 1) then
      begin
        Writeln('banking');
        OpenBankChest(SRL_Bank_SW);
        if PinScreen then
          InPin(Players[CurrentPlayer].Pin);
        if BankScreen then
        begin
          wait(900+random(200));
          DepositAll;
          if FindDTM(Grape,x,y,MBX1,MBy1,MBX2,MBY2) then
          begin
            Mouse(x,y,1,1,false);
            ChooseOption('14');
            wait(200+random(50));
          end;
          if FindDTM(Jug,x2,y2,MBX1,MBY1,MBX2,MBY2) then
          begin
            Mouse(x2,y2,1,1,false);
            ChooseOption('14');
            wait(200+random(50));
          end;
          CloseBank;
          state := 2;
          wait(500+random(100));
        end;
      end;
    end;

    Procedure MakeWine;
    var
        x,y,x2,y2:integer;
    begin
      if (state = 2) then
      begin
      if not GetCurrentTab = 25 then
          FTab(25);
      if FindDTM(Grape,x,y,MIX1,MIY1,MIX2,MIY2) then
      begin
        Mouse(x,y,1,1,true);
        wait(150+random(150));
      end;
      if FindDTM(Jug,x2,y2,MIX1,MIY1,MIX2,MIY2) then
      begin
        Mouse(x2,y2,1,1,true);
        wait(150+random(150));
      end;
      if FindDTM(Make,x,y,msx1,msy1,msx2,msy2) then
      begin
        Mouse(x,y,1,1,true);
        case random(300) of
          0..10: HoverSkill(SKILL_COOKING,False);
          20..30: BoredHuman;
          60..65: RandomMovement;
        end;
        wait(850+random(150));
        Made := Made + 14;
      end;
      state := 1;
    end;
    end;


    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
    end;

    procedure Proggy;
    begin
      Sec := (1+((Getsystemtime-StartTime)/1000));
      MadeH := (3600 / SeC * (Made));

      writeLn('=======FleaWine======');
      writeLn('Time Running: ' + TimeRunning);
      writeLn('Items Made: ' + IntToStr(Made));
      writeLn('Items/h: ' + IntToStr(MadeH));
      writeLn('=======================');
    end;


    begin
      ClearDebug;
      SetupLogin;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      SetDTM;
      StartTime:=GetSystemTime;
      state :=1;
      if LoggedIn then
        ClickNorth(SRL_ANGLE_HIGH);
      repeat
        Bank;
        wait(200+random(50));
        MakeWine;
        wait(100+random(200));
      until(false);
      FreeeDTM;
    end.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  10. #10
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    @Kyle Undefined

    Its now clicking on the grape and on the jug, but its not clicking the box in the chatbox which actually makes the jugs of wine, missed the step?

    thanks for the reply!

  11. #11
    Join Date
    Jun 2006
    Location
    N Wales
    Posts
    558
    Mentioned
    2 Post(s)
    Quoted
    56 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    Not bad for the first script in 2 years
    thank you

    Quote Originally Posted by xScott View Post
    @Kyle Undefined

    Its now clicking on the grape and on the jug, but its not clicking the box in the chatbox which actually makes the jugs of wine, missed the step?

    thanks for the reply!
    That will be my fault, I used a DTM to click the button in the box. Does anyone know any other way? Is there a built in function in SRL? I looked but was unsuccessful.

  12. #12
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    Not bad for the first script in 2 years

    This *should* work, haven't tested but it looks like it should:
    Simba Code:
    program FleaWine;
    {$DEFINE SMART}
    {$include srl/srl.simba}

    var
      StartTime, Made, MadeH, Sec, state, Make, Grape, Jug :Integer;

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

      with Players[0] do
      begin
        Name := '';
        Pass := '';
        Nick := '';
        Active := True;
        Pin := '';
        BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];//Random event prices.
      end;
    end;

    procedure setDTM;
    begin
      Make := DTMFromString('mqAEAAHicE2FgYGBkZGDQAGItINYEYmYgfgAUvwfFTFCxP0D2TwYI/R+I+YBiEkD8C8h+BsTPgfg1EC8Fis0E4iNAvAKIjwLxYSBeD8SzgXgBEK+C4oVQPkj9NCDeCMRboXg5VH12ehpDuL8Lg7G2AoOXkzmDkZY8g4mOIoOLjSFDqK8TQ3pyEhjXVpQztDU2MHQ0NTG06WsyRAa6MThbGzDYm+uAsbezBVg9P9CN1MSMVMbYAAAs7yvM');
      Grape := DTMFromString('mggAAAHicY2NgYHBkYmBwYYLQ7kBsDcSeQPwUKHcXiN8A8UsGBJ+BgYnB14ibIYTHlsGZ05ChUCCIgd2Qg4EfKIMNM+LAEAAAbc8KFg==');
      Jug := DTMFromString('mrAAAAHic42BgYJjOxMAwFYhnA3EfEE8G4hlAPAkq9hyo5gMQvwXiF0D8CIhvA/EtIH4KxJmpKQzFeXkMibExDG2NDWBcWVLCEBUWBhbjB6rBhxkJYBgAAPHmFpg=');
    end;

    procedure freeeDTM;
    begin
      FreeDTM(Make);
      FreeDTM(Grape);
      FreeDTM(Jug);
    end;

    procedure bank;
    var
      x,y,x2,y2:Integer;
    begin
      if (state = 1) then
      begin
        Writeln('banking');
        OpenBankChest(SRL_Bank_SW);
        if PinScreen then
          InPin(Players[CurrentPlayer].Pin);
        if BankScreen then
        begin
          wait(900+random(200));
          DepositAll;
          if FindDTM(Grape,x,y,MBX1,MBy1,MBX2,MBY2) then
          begin
            Mouse(x,y,1,1,false);
            ChooseOption('14');
            wait(200+random(50));
          end;
          if FindDTM(Jug,x2,y2,MBX1,MBY1,MBX2,MBY2) then
          begin
            Mouse(x2,y2,1,1,false);
            ChooseOption('14');
            wait(200+random(50));
          end;
          CloseBank;
          state := 2;
          wait(500+random(100));
        end;
      end;
    end;

    Procedure MakeWine;
    var
        x,y,x2,y2:integer;
    begin
      if (state = 2) then
      begin
      if not GetCurrentTab = 25 then
          FTab(25);
      if FindDTM(Grape,x,y,MIX1,MIY1,MIX2,MIY2) then
      begin
        Mouse(x,y,1,1,true);
        wait(150+random(150));
      end;
      if FindDTM(Jug,x2,y2,MIX1,MIY1,MIX2,MIY2) then
      begin
        Mouse(x2,y2,1,1,true);
        wait(150+random(150));
      end;
      if FindDTM(Make,x,y,mcx1,mcy1,mcx2,mcy2) then
      begin
        Mouse(x,y,1,1,true);
        case random(300) of
          0..10: HoverSkill(SKILL_COOKING,False);
          20..30: BoredHuman;
          60..65: RandomMovement;
        end;
        wait(850+random(150));
        Made := Made + 14;
      end;
      state := 1;
    end;
    end;


    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
    end;

    procedure Proggy;
    begin
      Sec := (1+((Getsystemtime-StartTime)/1000));
      MadeH := (3600 / SeC * (Made));

      writeLn('=======FleaWine======');
      writeLn('Time Running: ' + TimeRunning);
      writeLn('Items Made: ' + IntToStr(Made));
      writeLn('Items/h: ' + IntToStr(MadeH));
      writeLn('=======================');
    end;


    begin
      ClearDebug;
      SetupLogin;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      SetDTM;
      StartTime:=GetSystemTime;
      state :=1;
      if LoggedIn then
        ClickNorth(SRL_ANGLE_HIGH);
      repeat
        Bank;
        wait(200+random(50));
        MakeWine;
        wait(100+random(200));
      until(false);
      FreeeDTM;
    end.

    Edited the make thing, was looking in wrong place

  13. #13
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Did you update it again? its withdrawing 14 grapes and 14 Jugs of wine now instead of jugs of water. ><

  14. #14
    Join Date
    Jun 2006
    Location
    N Wales
    Posts
    558
    Mentioned
    2 Post(s)
    Quoted
    56 Post(s)

    Default

    Quote Originally Posted by xScott View Post
    Did you update it again? its withdrawing 14 grapes and 14 Jugs of wine now instead of jugs of water. ><
    put the jugs of water and grapes in a separate tab on their own. Its probably withdrawing the Jugs of wine because they look very similar to the jugs of water, perhaps I have set the tolerances too high on my DTM... I had never used one before.

  15. #15
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I placed the jugs of wine in a seperate tab, and ran it again; its still not clicking the Make Jug of Wine in the chatbox area. ><

  16. #16
    Join Date
    Oct 2008
    Location
    C:\Simba\Includes\
    Posts
    7,566
    Mentioned
    19 Post(s)
    Quoted
    180 Post(s)

    Default

    Ahh I was searching MS not MC, I see. Try this for the jug of water:

    Simba Code:
    DTMFromString('m6wAAAHic42ZgYLBjZmAwBmJrIPYAYgsgdgVibyC2B2InIDaFYhYmBgZBIJYEYhEg/sfIwMAIpLmgbHGoODMQR8ceZCAWsJKAGUnASAAA3n4HGg==');

    I used a tolerance of 5 for the main point color (Which is the blue of the water), you might need to update it. Here's the DTM file: http://www.mediafire.com/?cz8qghq8kund4sr

    EDIT: If you can get me a full RS window screenshot with the Make option showing, I can get that working.
    Last edited by Kyle Undefined; 02-15-2012 at 10:15 PM.
    Away for awhile, life is keeping me busy. | Want to get my attention in a thread? @Kyle Undefined; me.
    { MSI Phoenix || SRL Stats Sigs || Paste || Scripts || Quotes || Graphics }

    When posting a bug, please post debug! Help us, help you!

    I would love to change the world, but they won't give me the source code. || To be the best, you've got to beat the rest. || Logic never changes, just the syntax.
    If you PM me with a stupid question or one listed in FAQ, or about a script that is not mine, I will NOT respond.


    SRL is a Library of routines made by the SRL community written for the Program Simba. We produce Scripts for the game Runescape.


  17. #17
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    Ahh I was searching MS not MC, I see. Try this for the jug of water:

    Simba Code:
    DTMFromString('m6wAAAHic42ZgYLBjZmAwBmJrIPYAYgsgdgVibyC2B2InIDaFYhYmBgZBIJYEYhEg/sfIwMAIpLmgbHGoODMQR8ceZCAWsJKAGUnASAAA3n4HGg==');

    I used a tolerance of 5 for the main point color (Which is the blue of the water), you might need to update it. Here's the DTM file: http://www.mediafire.com/?cz8qghq8kund4sr

    EDIT: If you can get me a full RS window screenshot with the Make option showing, I can get that working.
    Yeah I always forget to change that!

  18. #18
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Kyle Undefined View Post
    Ahh I was searching MS not MC, I see. Try this for the jug of water:

    Simba Code:
    DTMFromString('m6wAAAHic42ZgYLBjZmAwBmJrIPYAYgsgdgVibyC2B2InIDaFYhYmBgZBIJYEYhEg/sfIwMAIpLmgbHGoODMQR8ceZCAWsJKAGUnASAAA3n4HGg==');

    I used a tolerance of 5 for the main point color (Which is the blue of the water), you might need to update it. Here's the DTM file: http://www.mediafire.com/?cz8qghq8kund4sr

    EDIT: If you can get me a full RS window screenshot with the Make option showing, I can get that working.
    ill give it a go as soon as i finish these sharks



    EDIT: uploading image now
    Last edited by xScott; 02-15-2012 at 10:29 PM.

  19. #19
    Join Date
    Jun 2006
    Location
    N Wales
    Posts
    558
    Mentioned
    2 Post(s)
    Quoted
    56 Post(s)

    Default

    just been doing a bit of testing and editing and the latest version in the main post should work now. Please re download.

    ensure you have your jugs of wine in a seperate tab to your jugs of water and grapes so that the script doesn't get mixed up between the two.

  20. #20
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by the flea View Post
    just been doing a bit of testing and editing and the latest version in the main post should work now. Please re download.

    ensure you have your jugs of wine in a seperate tab to your jugs of water and grapes so that the script doesn't get mixed up between the two.
    ill give it a try in a few hours, thanks for updating!

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

    Default

    What does this do from making wines give cooking xp right ?

  22. #22
    Join Date
    Feb 2012
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by illuminatiswag View Post
    What does this do from making wines give cooking xp right ?
    fast cooking exp

  23. #23
    Join Date
    Feb 2012
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    For some reason, it only withdraws 5 jugs of water, and 5 grapes. I think I read everything in the post, can someone please helP?

  24. #24
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Looking over the code really quick it looks like it is set to withdrawal only 5.

    Just change lines 56, and 62 from '5' to '14' and see if that works

  25. #25
    Join Date
    Jun 2006
    Location
    N Wales
    Posts
    558
    Mentioned
    2 Post(s)
    Quoted
    56 Post(s)

    Default

    Quote Originally Posted by Tur moil View Post
    For some reason, it only withdraws 5 jugs of water, and 5 grapes. I think I read everything in the post, can someone please helP?
    Quote Originally Posted by ashaman88 View Post
    Looking over the code really quick it looks like it is set to withdrawal only 5.

    Just change lines 56, and 62 from '5' to '14' and see if that works
    woops I changed this to 5 for testing purposes so that it would run for a longer period of time with the small amount of resources I had. (wanted to test if banking was working properly). New version has this fixed

Page 1 of 2 12 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
  •