SRL Archive - RS3 Outdated / Broken Scripts

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

From: xScott
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).

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

From: xScott
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

From: the flea
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. :(

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.

From: the flea
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!

Not bad for the first script in 2 years :)

This *should* work, haven't tested but it looks like it should:

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.

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

From: Kyle Undefined
Not bad for the first script in 2 years :)

thank you :)

From: xScott
@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.

From: Kyle Undefined
Not bad for the first script in 2 years :)

This *should* work, haven't tested but it looks like it should:

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

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

From: xScott
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.

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

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

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.

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

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!

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

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


EDIT: uploading image now

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.

From: the flea
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!

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

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

fast cooking exp

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?

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

From: Tur moil
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?

From: ashaman88
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

Seems to be working now, although it does mess up occasionaly.
ill use it for all 5k of these grapes and tell you how it goes :D

Edit: bug: it misclicked, clicked on the levels menu and kept banking because it couldn't find the grapes/jugs

oh weird, just add:

    if not (GetCurrentTab = 25) then
      Ftab(25);

into it, this will reopen the inventory if its closed

ive got 20k grapes sitting there awaiting bonus xp :) hoping to get at least 10k grapes out in 4 hours :)

what's the xp/hour on this bad boy ?

From: phamxboa
what's the xp/hour on this bad boy ?

not sure on a 100% accurate one, according to google wine making varies between 200 - 400k xp/h

Is this method a profitable method? or do you lose ?

From: phamxboa
Is this method a profitable method? or do you lose ?

there is no profit gained at all.

1k wines cost about 1400k to make you can sell for 65k for that 1k :) I have 30k wines to make so I shall be doing this with everyone of them :)

seems to be working very well thank you.

I found one glitch. After hit the stats tab it would keep withdrawing grapes and jugs of water because it cant get back to the inventory tab from the stats tab.

yeah dead is rite u havnt got it going back to inventory after checking stat

ok replace line 95 with this (its messy but I don't have time to upload a new version just for that)

      0..10: begin
        HoverSkill(SKILL_COOKING,False);
        if not GetCurrentTab = 25 then
          FTab(25);
        end;  

I am going for 99 cooking, just waiting for my last 16k grapes to buy

From: one1988
I am going for 99 cooking, just waiting for my last 16k grapes to buy

sweet post a picture when you achieve it for me and I will pop it onto the front page :)

:) i will, do so its working fine?
i will be ready to use it in about 2 days time =)

From: one1988
:) i will, do so its working fine?
i will be ready to use it in about 2 days time =)

pretty sure it is, not running it myself though. apply the quick fix that I posted a few posts above too.

yeah i will do, in a few days :) once these grapes by is when i will use this :D

Alright made the fix gonna see how it works out.

***EDIT***

Still have the same issue, It goes to the cooking tab like its checking the xp and never goes back to inventory tab. After that all it does is keep depositing the inventory and withdrawing 14 grapes and wines continuously.

Ok I will post up a real fix tomorrow when I'm at my computer. Sorry for the wait

ETA on update?

From: Dead Zone
ETA on update?

nope, I'm really busy at the moment with end of year exams and coursework deadlines so I haven't even loaded up runescape recently.

I made a request for this back in 2006, lawl, was wondering if you could adapt this to the cooking guild since it has jug, water and grapers free.

From: hoopla
I made a request for this back in 2006, lawl, was wondering if you could adapt this to the cooking guild since it has jug, water and grapers free.

I might do, after 7 days I have 2 weeks off so I may have time to get it done then. Thanks for the suggestion