Page 2 of 2 FirstFirst 12
Results 26 to 46 of 46

Thread: S1NWines - MouseKey withdrawing - No Randoms

  1. #26
    Join Date
    Feb 2012
    Posts
    554
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    gonna make just over 50k wines to hit 99 want this cape to add to my newly made runecrafting cape.
    We are VillaVu a community, We are Simba.
    Hear us Roarrrrrrrrrrrrrrr!!!!!!!!
    ~Life is what you decide to make it, nothing is pre-ordained other than the steps you choose to make~
    ~Karma is Fierce, do the wrong thing and she will get you~!d

  2. #27
    Join Date
    Jan 2012
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sweet!
    Looking like a proper script. I'm viewing the code now, just to check how you do things

  3. #28
    Join Date
    Apr 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Banking System: Opening Bank Type; Soul Wars/Chest
    Banking System: Depositing All Items
    Failed to withdraw
    Banking System: Withdrawing Grapes
    Failed to withdraw
    Banking System: Withdrawing Jugs
    Banking System: Banking failed, trying again
    Banking System: Opening Bank Type; Soul Wars/Chest
    Banking System: Depositing All Items
    Failed to withdraw


    Set grapes and Jugs to 15 and 25 respectively, clicks both but clicks away right after for each one. any help?
    Last edited by rjk1990; 05-02-2012 at 02:00 PM.

  4. #29
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    You need to have '14' as your Withdraw X option

  5. #30
    Join Date
    Apr 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Oh right xD I drew from the instructions that the script did that itself, my bad Great script though. Runs flawlessly after that minor hiccup. I'd post a proggy but i can't even afford to run it for an hour at a time :thumbs:

  6. #31
    Join Date
    May 2012
    Location
    USA
    Posts
    169
    Mentioned
    2 Post(s)
    Quoted
    64 Post(s)

    Default

    Just got 99 cooking from this script, thanks. Took 3 days on wines.

  7. #32
    Join Date
    Jun 2006
    Posts
    127
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hello sin is this working still? got 20k grapes and juges buying in ge just for this need to do 46k sigh hope this script still going ...

  8. #33
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    It is still working afaik

  9. #34
    Join Date
    May 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Shay View Post
    It's only 80M to 99 lol.
    "Only". Gimme 80m so I can get 99 xD.

  10. #35
    Join Date
    Jun 2006
    Posts
    127
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i wouldent waste 50m on grapes and jugs of water if there was a working legit cooker which u dont have to baby sit each 15 mint XD beside its like 550-600k xp hour 99 in 1 day from 80ish XD



    back: omg the xp per hour with this is crazy last time i had great xp like this with was with construction XD gona post big progys soon atm 20ish k left to do just started wish me luck brb


    0mfg0rz free wine for all villavue boters XD

    ===================================
    ============S1NWines================
    Time Running: 3 Hours, 24 Minutes and 16 Seconds
    XP Earned: 1590400


    more like 500kish xp per hour i reckon
    Last edited by pkwa9lawy; 05-29-2012 at 01:26 PM.

  11. #36
    Join Date
    Jun 2006
    Posts
    127
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for 99 cooking .. <3 waiting for ur chinner my rune pure just finished ghouling to 99 str XD want to max range

  12. #37
    Join Date
    May 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lol this script is flawless and also if u want to string bows you can also use this lol. i strung 50k yew longs with this script to, 99 cook and 99 fletch! LEGIT =)

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

    Default

    Change these codes to this ;

    grapeSlot := 1;
    jugSlot := 2;


    and put your graes on first place and jug second one. actually the original was grapes 30 and jug 40. just replace it with that code and save.

    great script thx sin!!

  14. #39
    Join Date
    Jun 2006
    Posts
    127
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by tutkubakay View Post
    Change these codes to this ;

    grapeSlot := 1;
    jugSlot := 2;


    and put your graes on first place and jug second one. actually the original was grapes 30 and jug 40. just replace it with that code and save.

    great script thx sin!!
    mate he dident have problems with the script he pointed out that this can be used a bow stringer :P

  15. #40
    Join Date
    Apr 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Its not finding the chat interface for wines, is a color change needed?

  16. #41
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    They updated the chat interface.
    So many of my scripts need updating now lol....

  17. #42
    Join Date
    Dec 2011
    Location
    Ontario
    Posts
    201
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Shay View Post
    They updated the chat interface.
    So many of my scripts need updating now lol....
    Ahaha optimous continues!!!
    It aint easy being cheasy

  18. #43
    Join Date
    Apr 2012
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    To fix the chat option your procedure "Get drunk" should be this:

    Code:
    procedure GetDrunk;
    var
      t:Integer;
    begin
      MouseItem(14,1);
      writeLn('Wine System: Clicked Item 1');
      MouseItem(15,1);
      writeLn('Wine System: Clicked Item 2');
      begin
        writeLn('Wine System: Found Chatbox interface');
        MarkTime(t);
        Wait(800+random(200));
        Mouse(256,430,30,20,True);
        writeLn('Wine System: Clicked widget');
        repeat
          wait(3000);
          writeLn('Wine System: Performing antiban');
          case random(300) of
            0..10: HoverSkill(SKILL_COOKING,False);
            20..30: BoredHuman;
            60..65: RandomMovement;
          end;
          if TimeFrommark(t) > 10000 then
            break;
        until InvCount = 14;
      end;
    end;
    I removed the if statement and changed it to a random wait click.

  19. #44
    Join Date
    Apr 2012
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you sir

  20. #45
    Join Date
    Jun 2012
    Location
    THE Students-City of Holland
    Posts
    332
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    This is even better in my opinion:

    Simba Code:
    program new;
    {$include srl/srl/misc/smart.simba}
    {$I SRL/SRL.simba}
    {$I srl/srl/misc/debug.simba}
    {$I sps/sps.simba}
    var
      grapeSlot,jugSlot:Integer;
        StartTime:Integer;
      //progress variables
      XP,XPH,Sec,value2,Door2:Integer;
      Shield,Guthans:Boolean;

    procedure DeclarePlayers;
    begin

      grapeSlot := 01;
      jugSlot := 11;

      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      Players[0].Pin := '';
      Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
    end;// declare players
    procedure SetupLogin;
    begin
      ClearDebug;
      Smart_Server := 87;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
    end;
    Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,X2,Y2,A,Dist,MP: integer;
      begin
        A := MouseSpeed;
        GetMousePos(X, Y);
        Dist := Distance(X, Y, eX, eY);
        MP := Round(Dist/150);
        if MP < 0 then
          MP := 1;

        randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
        X2 := RandomRange(eX-(A*MP), eX+(A*MP));
        Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
        WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
        GetMousePos(X, Y);
        MMouse(eX, eY, ranX, ranY);
        MouseSpeed := A;
      end;
    function WithdrawBankSlot(Slot,Amount:Integer):Boolean;
    var
      Much:String;
    begin
    Result := False;

      if BankScreen then
      begin
        MouseSpeed := 40;
        MouseBankSlot(Slot,0);
        Wait(RandomRange(30,200));
        Much:= IntToStr(Amount);
        if OptionsExist([Much],True) then
        begin
          ClickMouse2(True);
          Result := True;
        end;
      end;
      if Result then
        exit else writeln('Failed to withdraw');

    MouseSpeed := 18;
    end;
    procedure Proggy;
    begin
    XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
    Sec:= (1+((Getsystemtime-StartTime)/1000));
    XPH := (3600*XP) / (SeC);

    writeLn('===================================');
    writeLn('============S1NWines================');
    writeLn('Time Running: ' + TimeRunning);
    writeLn('XP Earned: ' + IntToStr(XP));
    writeLn('XP/h: ' + IntToStr(XPH));
    writelN('===================================');
    writeLn('===================================');
    end;

    procedure Bank;
    var
      t,x:Integer;
    begin
      writeLn('Banking System: Opening Bank Type; Soul Wars/Chest');
      OpenBankChestEdge(SRL_BANK_SW);
      MarkTime(T);
      repeat
        wait(10);
        if PinScreen then
        begin
          InPin(Players[CurrentPlayer].Pin);
          writeLn('Banking System: Entering Pin');
          wait(randomrange(100,200));
        end;
        if TimeFromMark(T) > 5000 then
        begin
          writeLn('Banking System: Bank Opening Failed, trying again');
          Bank;
          Exit;
        end;
      until(BankScreen);
      if BankScreen then
      begin
        writeLn('Banking System: Depositing All Items');
        DepositAll;
        WithdrawBankSlot(grapeSlot,14);
        writeLn('Banking System: Withdrawing Grapes');
        WithdrawBankSlot(jugSlot,14);
        writeLn('Banking System: Withdrawing Jugs');

        for x := 0 to 20 do
        begin
        wait(random(100));
        if InvFull then break;
        end;

        if InvFull then
          CloseBank else
          begin
            writeLn('Banking System: Banking failed, trying again');
            Bank;
            Exit;
          end;
      end;
    end;
    procedure GetDrunk;
    var
      t:Integer;
    begin
      MouseItem(14,1);
      writeLn('Wine System: Clicked Item 1');
      MouseItem(15,1);
      writeLn('Wine System: Clicked Item 2');
      if WaitColor(230,426,4141067,5,2000) then
      begin
        writeLn('Wine System: Found Chatbox interface');
        MarkTime(t);
        MouseBox(233,416,285,434,1);
        writeLn('Wine System: Clicked widget');
        repeat
          wait(randomrange(400,500));

          case random(3000) of
            0..10: begin writeLn('Wine System: HoverSkill');HoverSkill(SKILL_COOKING,False);end;
            20..30: begin writeLn('Wine System: BoredHuman');BoredHuman; end;
            60..65: begin writeLn('Wine System: Random movement');RandomMovement;  end;
          end;
          if TimeFrommark(t) > 10000 then
            break;
        until InvCount = 14;
      end else
      begin
        writeLn('Wine System: Failed to find the color, trying again!');
        GetDrunk;
        Exit;
      end;
    end;
    begin
     ClearDebug;
      SetupLogin;
      DeclarePlayers;
      LoginPlayer;
      ActivateClient;
      MouseSpeed := RandomRange(19,21);

        if (Players[CurrentPlayer].Integers[1] = 0) then
      begin
        if not IsXPBarOpen then ToggleXPBar(true);
        Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
        Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
      end;

      StartTime:=GetSystemTime;
      repeat
        Bank;
        getdrunk;
        Proggy;
      until not LoggedIN;
    end.

    i think i've made it a little faster.
    will post proggy in some hours.
    Former Name: MasterCrimeZ.
    ToDo: 1. Finish my private bot 2. Make some cool bots for this community 3. Become a member
    If you have any questions about scripting, feel free to PM me

  21. #46
    Join Date
    Jun 2012
    Location
    THE Students-City of Holland
    Posts
    332
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    original xp/h was 525k?
    what a waste of time

    ============S1NWines================
    Time Running: 5 Minutes and 52 Seconds
    XP Earned: 67200
    XP/h: 687272
    ===================================

    will see if this holds up


    Edit: mehh, not as high as I hoped, but still...

    Btw, would it be possible to add urns support to this script? Or doesnt cooking urns work with wine?


    ===================================
    ============S1NWines================
    Time Running: 13 Minutes and 3 Seconds
    XP Earned: 120400
    XP/h: 584939
    ===================================
    Time Running: 25 Minutes and 16 Seconds
    XP Earned: 240800
    XP/h: 588113
    ===================================

    Edit: maybe it gets higher with a higher cooking lvl? I started this on lvl 66 ... :')
    Last edited by Master BAW; 07-05-2012 at 10:17 AM.
    Former Name: MasterCrimeZ.
    ToDo: 1. Finish my private bot 2. Make some cool bots for this community 3. Become a member
    If you have any questions about scripting, feel free to PM me

Page 2 of 2 FirstFirst 12

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
  •