SRL Archive - RS3 Outdated / Broken Scripts

So unfortunately, Flea's wine maker wasn't working for me so I ended up having to make one on my own.

What you have to do -

procedure DeclarePlayers;
begin

  grapeSlot := 15; //FILL OUT
  jugSlot := 25;  //FILL OUT

  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    

Have your grapes on one row, then the jugs of water RIGHT UNDER IT!
And then fill out the rest.

The script uses my WithdrawBankSlot function.
Have the option "14" already set, meaning Click X > type 14.

Don't worry about why HumanMMouse is there, I plan to take this script a bit further.
Also featuring a unique progress system -

===================================
============S1NWines================
Time Running: 6 Minutes and 33 Seconds
XP Earned: 53200
XP/h: 487328
===================================
===================================

It also has an explicit debugging feature, which allows me to obtain how or when it broke.
So if you get an error, PLEASE post it here!

Banking System: Opening Bank Type; Soul Wars/Chest
Banking System: Depositing All Items
Banking System: Withdrawing Grapes
Banking System: Withdrawing Jugs
Wine System: Clicked Item 1
Wine System: Clicked Item 2
Wine System: Found Chatbox interface
Wine System: Clicked widget
Wine System: Performing antiban
Wine System: Performing antiban
Wine System: Performing antiban

Hope you all learn from this! :)

Awesome release, thanks :spot:

===================================
============S1NWines================
Time Running: 46 Minutes and 44 Seconds
XP Earned: 380800
XP/h: 488727
===================================
===================================

Dat flawless script.

Been waiting for dat script.

Flawless script for 45 mins :p cool release.

need money to do this ;/

From: bendower
need money to do this ;/

It's only 80M to 99 lol.

very nice! Thanks for the release.

what skill is this for;/

It says it in the title, and in the section of the forum you're in…

+/- how many wines it do an hour ? to calculate the money needed ahaha

80m is a alot lol well atleast for me it is

===================================
============S1NWines================
Time Running: 5 Hours, 58 Minutes and 55 Seconds
XP Earned: 3152600
XP/h: -71304
===================================
===================================

is the xp per hour messed up or something cause in your proggy it says negitive 71k per hour

It's called a numerical overflow, i keep forgetting to write the correct calculations.
But the exp per hour is just about 525,433.3333333333
:D

94-98 Cooking in one proggy lolz.

From: pigggy
is the xp per hour messed up or something cause in your proggy it says negitive 71k per hour

That doesn't matter anyway, you can still tell :p


@ S1n, I'm guessing it's because you're doing OrginalXP - CurrentXP rather than the way other round? (Haven't seen the script)


EDIT: nvm, saw your post :)

Haha nublet :p
Here's my proggy system -

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; 

should be

XPH := (3600 / SeC) * XP;

99 Cooking! :)

Grats! How many wines would I have to make to get 99 from 50? :p

What lvl does it req to make wine and does it make a profit?

From: Kyle Undefined
Grats! How many wines would I have to make to get 99 from 50? :p

http://www.tip.it/runescape/?page=cooking_calc.htm

Google noob! :D

From: Thanatos
What lvl does it req to make wine and does it make a profit?

50 something I believe and I think you lose like 90-100M for 99..

From: Sin
http://www.tip.it/runescape/?page=cooking_calc.htm

Google noob! :D


50 something I believe and I think you lose like 90-100M for 99..

Haha, I was being lazy :p I'll have to make 65k wines, sigh, I'll do that later.

Like 75m from 35-99 assuming none go bad, don't know how often they go bad though. I assume this is there form of burning, and at a certain level they are 100% success rate.

Nice grats sin!

From: K0wned
Like 75m from 35-99 assuming none go bad, don't know how often they go bad though. I assume this is there form of burning, and at a certain level they are 100% success rate.

None of mine went bad :S

gonna make just over 50k wines to hit 99 want this cape to add to my newly made runecrafting cape. :D

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

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?

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

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:

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

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

It is still working afaik :)

From: Shay
It's only 80M to 99 lol.

"Only". Gimme 80m so I can get 99 xD.

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 :D

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

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 =)

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!!

From: tutkubakay
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:f:

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

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

From: Shay
They updated the chat interface.
So many of my scripts need updating now lol….

Ahaha optimous continues!!!

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

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.

thank you sir

This is even better in my opinion:

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.

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

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

will see if this holds up:D


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 … :')