SRL Archive - OSR Script Requests

can you make a flax spinning script?

Yes! This is something I would love too.

+1. Would be really useful, gotta get 50 craft for rfd :/

3 people wanting a spinning thread, 3 people that can learn to code in pascal script.

Break the problem down into small steps, eg:
(assuming lumby castle)

• Bank strings/withdraw flax
• run to stairs
• climb down stairs
• run to spinning wheel
• use spinning wheel
• run to stairs
• climb up stairs
• run to bank;

Banking is done very simply with SRL-OSR include or P07_include, ll the functions are there for you to use, just to open the bank use ACA and create your own method, or if you are making a private script i don't mind if you use my banking method in my essence harvester to use as a base and learn from.
Running to the stairs is as simple as working out the current compass angle and using simple trig to click south ( alternatively you could just make the compass north and then click a hard coded point on the minimap.

For clicking the down the stairs you can use similar code to the banking procedure, use ACA to ind the right color and tolerances, again or edit my procedure you exiting the portal in my essence miner.

Running to the wheel: you can find the iron on the minimap using findsymbol(x,y,'some_constant') where some_constant is the reference for the iron(delve into srl to find this)

using the wheel you again can use a similar function to the stairs one just with different colors, tolerances and uptexts

write function that counts the number of bs in your invent, if this is 28 then you know to run to the stairs again.

Climbing upt he stairs is as simple as climbing down them.

running to the bank: click the bank icon?

Put these functions together in a loop and you'll have a working flax spinning bot, it should take you only a few hours if you break the problem down like this into small easy steps. Its you any script is written, if you approach it in a full on way without breaking it down you wont get anywhere, nor would I.

**note this is very basic and is not a complete script just somthing for you to work off of**

program new;
{$define smart8}
{$i srl-osr/srl.simba}

procedure walktostairs;
begin
  MakeCompass('N');
  SetAngle(SRL_ANGLE_LOW);
  mousebox(630, 146, 639, 147, mouse_left);
  while (ismoving) do
    wait(10 + random(50));
  mousebox(171, 178, 191, 186, mouse_right); // clicks in the black taking you to same spot everytime near stairs
  wait(100 + random(20));
  waitoption('limb-down', mouse_left);
  wait(1500 + random(50));
  MakeCompass('W');
  SetAngle(SRL_ANGLE_HIGH);
  wait(1000 + random(100));
end;

procedure clickspinner;
var
  x, y: integer;
begin
  if FindColorspiralTolerance(x, y, 873854, 92, 121, 475, 347, 8) then
  begin
    mmouse(x, y, 3, 3);
    if (waitUpTextMulti(['pin'], 800)) then
    begin
      writeln('yay, we found the wheel');
      getMousePos(x, y);
      mouse(x, y, 0, 0, mouse_left);
      while (ismoving) do
        wait(10 + random(50));
      wait(1000 + random(100));
      mousebox(468, 37, 477, 45, mouse_left);
    end;
  end;
end;
  

Thank you for posting the start!

Question though, having no knowledge of scripting, what would I need to do to this to get a decent script?

I am happy to learn, just need a little guidance, thank you!

it would be awesome if someone could develop this into a proper script for everyone to use.

Lol there isn't many Simba developers. You gotta learn it yourself. I started watching a few tuts today. Seems a bit complex, but with time hopefully ill get better.

if u read alot about it and look at tutorials u will get better

From: wthomas
3 people wanting a spinning thread, 3 people that can learn to code in pascal script.

Break the problem down into small steps, eg:
(assuming lumby castle)

• Bank strings/withdraw flax
• run to stairs
• climb down stairs
• run to spinning wheel
• use spinning wheel
• run to stairs
• climb up stairs
• run to bank;

Banking is done very simply with SRL-OSR include or P07_include, ll the functions are there for you to use, just to open the bank use ACA and create your own method, or if you are making a private script i don't mind if you use my banking method in my essence harvester to use as a base and learn from.
Running to the stairs is as simple as working out the current compass angle and using simple trig to click south ( alternatively you could just make the compass north and then click a hard coded point on the minimap.

For clicking the down the stairs you can use similar code to the banking procedure, use ACA to ind the right color and tolerances, again or edit my procedure you exiting the portal in my essence miner.

Running to the wheel: you can find the iron on the minimap using findsymbol(x,y,'some_constant') where some_constant is the reference for the iron(delve into srl to find this)

using the wheel you again can use a similar function to the stairs one just with different colors, tolerances and uptexts

write function that counts the number of bs in your invent, if this is 28 then you know to run to the stairs again.

Climbing upt he stairs is as simple as climbing down them.

running to the bank: click the bank icon?

Put these functions together in a loop and you'll have a working flax spinning bot, it should take you only a few hours if you break the problem down like this into small easy steps. Its you any script is written, if you approach it in a full on way without breaking it down you wont get anywhere, nor would I.

I am trying to learn how to code and was gonna make this script but with 5 hours into it and it can't even do one smooth run. I'm to mind fucked to even put in fail safes and other things like that let alone finish it. I may pick this back when I am well rested. If anyone wants to take what I got so far and use it feel free.[ATTACH]20365[/ATTACH]

im working on one right now and it spins and neitizot all flax spinners should use this place since thers no stairs etc so its super easy to make a script

From: wthomas
3 people wanting a spinning thread, 3 people that can learn to code in pascal script.

Break the problem down into small steps, eg:
(assuming lumby castle)

• Bank strings/withdraw flax
• run to stairs
• climb down stairs
• run to spinning wheel
• use spinning wheel
• run to stairs
• climb up stairs
• run to bank;

Banking is done very simply with SRL-OSR include or P07_include, ll the functions are there for you to use, just to open the bank use ACA and create your own method, or if you are making a private script i don't mind if you use my banking method in my essence harvester to use as a base and learn from.
Running to the stairs is as simple as working out the current compass angle and using simple trig to click south ( alternatively you could just make the compass north and then click a hard coded point on the minimap.

For clicking the down the stairs you can use similar code to the banking procedure, use ACA to ind the right color and tolerances, again or edit my procedure you exiting the portal in my essence miner.

Running to the wheel: you can find the iron on the minimap using findsymbol(x,y,'some_constant') where some_constant is the reference for the iron(delve into srl to find this)

using the wheel you again can use a similar function to the stairs one just with different colors, tolerances and uptexts

write function that counts the number of bs in your invent, if this is 28 then you know to run to the stairs again.

Climbing upt he stairs is as simple as climbing down them.

running to the bank: click the bank icon?

Put these functions together in a loop and you'll have a working flax spinning bot, it should take you only a few hours if you break the problem down like this into small easy steps. Its you any script is written, if you approach it in a full on way without breaking it down you wont get anywhere, nor would I.[/QUOTE

program flaxspin;
{$define smart8}
{$i srl-osr/srl.simba}



procedure DeclarePlayers();
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Nick := '';
    Name := '';
    Pass := '';
    Active := true;
    Integers[0] := 0;
  end;

procedure walktostairs;
begin
  MakeCompass('N');
  SetAngle(SRL_ANGLE_LOW);
  mousebox(630, 146, 639, 147, mouse_left);
  while (ismoving) do
    wait(10 + random(50));
  mousebox(171, 178, 191, 186, mouse_right); // clicks in the black taking you to same spot everytime near stairs
  wait(100 + random(20));
  waitoption('limb-down', mouse_left);
  wait(1500 + random(50));
  MakeCompass('W');
  SetAngle(SRL_ANGLE_HIGH);
  wait(1000 + random(100));
end;

procedure clickspinner;
var
  x, y: integer;
begin
  if FindColorspiralTolerance(x, y, 873854, 92, 121, 475, 347, 8) then
  begin
    mmouse(x, y, 3, 3);
    if (waitUpTextMulti(['pin'], 800)) then
    begin
      writeln('yay, we found the wheel');
      getMousePos(x, y);
      mouse(x, y, 0, 0, mouse_left);
      while (ismoving) do
        wait(10 + random(50));
      wait(1000 + random(100));
      mousebox(468, 37, 477, 45, mouse_left);
    end;
  end;
end;
 Procedure withdrawBank;
begin
  if (BankScreen) then
    begin
         repeat
        Deposit(3,28,True);
           Wait(RandomRange(210,410));
      until (InvCount < 2);
      writeln('Withdrawing flax from bank slot 1');
      randomMouseClick(93,77);
      randomWaitTime;
      Clickmouse2(mouse_right);
      Wait(randomRange(921,1024));
      chooseOptionMulti(['All']);
      Wait(randomRange(835,1034));
      if (InvCount < 28) then
        begin
          writeln('Oops...something went wrong, lets try again.')
          withdrawBank;
        end;
      repeat
        MMouse(RandomRange(487 - 3, 487 + 3), RandomRange(41 - 3, 41 + 3), 0 ,0);
        randomWaitTime;
        if (CountColor(2070783,179,32,337,52) = 499) then
          Clickmouse2(mouse_left);
      until(CountColor(2070783,179,32,337,52) < 499);
    end;
end;
Procedure openBankScreen;
begin
  if (BankScreen = False) then repeat
      setCustomCompass(compPos);
      writeln('Attempting to open bank...');
      randomWaitTime;
      if FindObjCustom(x,y, ['se','ank','ooth'],[bankcolour1,bankcolour2], 5) then
        begin
          randomWaitTime;
          ClickMouse2(mouse_right);
          randomWaitTime;
          ChooseOptionMulti(['Bank', 'ooth']);
          case random(1000) of
            1..700:    Wait(RandomRange(300, 1000));
            701..900:  Wait(RandomRange(400, 1500));
            901..1000: Wait(RandomRange(500, 3000));
          end;
        end;
      until (BankScreen);
  writeln('Attempt was successful!');
end;

procedure loop;
begin
FindNormalRandoms;
   if(InvFull) then
   begin
openBankScreen;
withdrawBank;
walktostairs;
clickspinner;

end
end;