SRL Archive - RS3 Script Requests

Request?

Naike

2010-10-05 08:43:21

Doing most requests..
Got a members account, though only when my mate decides to take a break.

I won't do a woodcutter/miner.
Everything else is up for discussion!

I prefer it being training a skill, but money making is fine as well :)

TomTuff

2010-10-05 09:52:50

AIO Fisher =) If you haven't seen my thread yet, i'm on my way to 99 fishing and cooking, and i would defnitley use this. Maybe even a cooker too?

ForgotMyName

2010-10-05 14:23:08

Some potentially nice ideas for p2p scripts, in order from usual to bizarre:

red salamanders
heavy rod power fishing
barbarian agility
flatpack maker

I don't know how much you'd be interested in them, or how suited they are to being scripted.

EvilChicken!

2010-10-05 15:03:53

Make that thread we talked about yesterday.
Just came to think of it right now.

(and what's up with your avatar anyway? :p)

bolshak25

2010-10-05 16:30:35

how about a fighter for cows north of lumby that use beefy bill for cowhides? bury bones/ leave them. good fighting/prayer and good money as well.

NCDS

2010-10-05 16:33:46

From: bolshak25
how about a fighter for cows north of lumby that use beefy bill for cowhides? bury bones/ leave them. good fighting/prayer and good money as well.

Sounds like a good script to motivate people for SRL Members.

bolshak25

2010-10-05 17:27:02

i have a great script idea other than that one, but i want to use it as my script to become a member. just need to time to learn how to script and a mentor willing to help

Shuttleu

2010-10-10 07:56:13

fight caves runner

~shut

fresh iz ere

2010-10-10 08:25:28

Could you fix this script up, it is for Battlescape and what it does is it cuts the diamonds into bolt tips and then buys more diamonds to do more, but it gets stuck when its trying to buy more.


program Crafter;
var
  x1, ShopX, ShopY: Integer;


procedure FindClient;
var
  I: Integer;
begin
  for I := 0 to 600 do
  begin
    if (GetColor(I, 420) = 2437688) then x1 := I;
    if x1 > 0 then
    begin
      WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
      Exit;
    end;
  end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
  MoveMouse(x-258+x1, y);
  Wait(70);
  ClickMouse(x-258+x1, y, Left);
  Wait(70);
end;

function ShopScreen: Boolean;
begin
  Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
  I: Integer;
begin
  while ShopScreen do
  begin
    MoveMouse(697-258+X1, 37);
    Wait(30);
    ClickMouse(697-258+X1, 37, True);
    while ShopScreen and (I < 350) do
    begin
      Wait(10);
      Inc(I);
    end;
    if I < 350 then Exit;
    I := 0;
  end;
end;



function OpenShop: Boolean;
var
  x, y, I, II, III, A: Integer;
  NewX: Integer;
begin
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(ShopX-257+X1, ShopY);
    while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do
    begin
      Wait(10);
      A := A + 1;
      if A = 150 then
      begin
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        MoveMouse(ShopX-257+X1, ShopY);
      end;
      if A = 300 then
      begin
        for A := 300 to 400 do
        begin
          NewX := ShopX+A-300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
          NewX := ShopX-A+300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
        end;
        if A < 400 then ShopX := NewX
        else TerminateScript;
      end;
    end;
    ClickMouse(ShopX-257+X1, ShopY, False);
    III := 0;
    while (III < 50) do
    begin
      if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
      begin
        ClickMouse(ShopX, Y+20, True);
        Break;
      end;
      Inc(III);
      Wait(5)
    end;
    if III > 49 then Continue;
    //Wait(100);
    //ClickMouse(ShopX-258+X1, ShopY+42, True);
    I := 0;
    repeat
      Wait(10);
      I := I+1;
    until(ShopScreen or (I > 200));
  until(ShopScreen);
  MoveMouse(445-258+X1, 130);
  Wait(50);
  ClickMouse(445-258+X1, 130, False);
  while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
  ClickMouse(435-258+X1, 216, True);
  Wait(50);
  CloseShop;
  repeat
    Wait(10);
    II := II+1
  until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


procedure Clicks;
var
  x, y: Integer;
begin
  MoveMouse(970, 445);
  Wait(50);
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(953-258+X1, 445);
    Wait(10);
    ClickMouse(953-258+X1, 445, True);
    Wait(40);
    MoveMouse(931-258+X1, 445);
    Wait(10);
    ClickMouse(931-258+X1, 445, True);
    Wait(40);
  until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(15);
end;

begin
  Wait(3000);
  FindClient;
  //GetMousePos(ShopX, ShopY);
  ShopX := 517;
  ShopY := 167;
  repeat
    Clicks;
    OpenShop;
  until(false);
end.

Bobzilla69

2010-10-10 08:30:13

From: fresh iz ere
Could you fix this script up, it is for Battlescape and what it does is it cuts the diamonds into bolt tips and then buys more diamonds to do more, but it gets stuck when its trying to buy more.


program Crafter;
var
  x1, ShopX, ShopY: Integer;


procedure FindClient;
var
  I: Integer;
begin
  for I := 0 to 600 do
  begin
    if (GetColor(I, 420) = 2437688) then x1 := I;
    if x1 > 0 then
    begin
      WriteLn('Clientti loyty (X='+IntToStr(x1)+')');
      Exit;
    end;
  end;
end;


procedure C(x, y: Integer; Left: Boolean);
begin
  MoveMouse(x-258+x1, y);
  Wait(70);
  ClickMouse(x-258+x1, y, Left);
  Wait(70);
end;

function ShopScreen: Boolean;
begin
  Result := (GetColor(222+x1, 41) = 2070783);
end;


procedure CloseShop;
var
  I: Integer;
begin
  while ShopScreen do
  begin
    MoveMouse(697-258+X1, 37);
    Wait(30);
    ClickMouse(697-258+X1, 37, True);
    while ShopScreen and (I < 350) do
    begin
      Wait(10);
      Inc(I);
    end;
    if I < 350 then Exit;
    I := 0;
  end;
end;



function OpenShop: Boolean;
var
  x, y, I, II, III, A: Integer;
  NewX: Integer;
begin
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(ShopX-257+X1, ShopY);
    while (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) < 7) do
    begin
      Wait(10);
      A := A + 1;
      if A = 150 then
      begin
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        ClickMouse(790-258+X1, 263, True);
        Wait(80);
        MoveMouse(ShopX-257+X1, ShopY);
      end;
      if A = 300 then
      begin
        for A := 300 to 400 do
        begin
          NewX := ShopX+A-300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
          NewX := ShopX-A+300;
          MoveMouse(NewX-257+X1, ShopY);
          Wait(100);
          if (CountColorTolerance(255463, 315-258+X1, 5, 360-258+X1, 15, 35) > 6) then Break;
        end;
        if A < 400 then ShopX := NewX
        else TerminateScript;
      end;
    end;
    ClickMouse(ShopX-257+X1, ShopY, False);
    III := 0;
    while (III < 50) do
    begin
      if FindColor(x, y, 65535, ShopX-280+X1, ShopY-30, ShopX-255+X1, ShopY+80) then
      begin
        ClickMouse(ShopX, Y+20, True);
        Break;
      end;
      Inc(III);
      Wait(5)
    end;
    if III > 49 then Continue;
    //Wait(100);
    //ClickMouse(ShopX-258+X1, ShopY+42, True);
    I := 0;
    repeat
      Wait(10);
      I := I+1;
    until(ShopScreen or (I > 200));
  until(ShopScreen);
  MoveMouse(445-258+X1, 130);
  Wait(50);
  ClickMouse(445-258+X1, 130, False);
  while not FindColor(x, y, 65536, 445-258+X1, 130, 450-257+X1, 135) do Wait(5);
  ClickMouse(435-258+X1, 216, True);
  Wait(50);
  CloseShop;
  repeat
    Wait(10);
    II := II+1
  until(((GetColor(960-258+X1, 450) <> 3357765) and (GetColor(920-258+X1, 450) <> 3357765))) or (II > 200);
end;


procedure Clicks;
var
  x, y: Integer;
begin
  MoveMouse(970, 445);
  Wait(50);
  repeat
    if IsFKeyDown(10) then TerminateScript;
    MoveMouse(953-258+X1, 445);
    Wait(10);
    ClickMouse(953-258+X1, 445, True);
    Wait(40);
    MoveMouse(931-258+X1, 445);
    Wait(10);
    ClickMouse(931-258+X1, 445, True);
    Wait(40);
  until(GetColor(960-258+X1, 450) = 3357765) or (GetColor(920-258+X1, 450) = 3357765);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(10);
  ClickMouse(790-258+X1, 263, True);
  Wait(15);
end;

begin
  Wait(3000);
  FindClient;
  //GetMousePos(ShopX, ShopY);
  ShopX := 517;
  ShopY := 167;
  repeat
    Clicks;
    OpenShop;
  until(false);
end.

please dont spam all request threads with this script.

ask in one place please

Edit: Link to first Thread

EvilChicken!

2010-10-10 15:13:23

From: Shuttleu
fight caves runner

~shut

Mine doesn't work?