SRL Archive - RS3 Script Requests

Request Al-Kharid tanner


Tomazino

2012-10-30 05:58:52

Guys, since the al-kharid was updated, maybe someone could make an updated script? Gp/hour depends on prices at ge, but it could be up to 700k/h. It don't need any skills or quests, it's good for money making.

The Killer

2012-10-30 06:28:21

I would also like to see this, maype someone could update the old ones by updating the sps

Tomazino

2012-11-03 11:00:20

guys, i'm seriously. for example profit per hour tanning green d'hides is 1838(price of green d leather)-1730(price of green d'hide + 20gp for tanning) * 1700(amount of hides p/h using caotoms tanner which now is outdated) = 183,6k (this varies on ge prices)

Nexz

2012-11-03 11:11:46

I will make one. Not sure when it's done, maybe tomorrow.

Roflme

2012-11-03 21:04:28

There are a few Varrock tanners that work fine. If you want to change the hides look at my tanner and edit a few options and it'll work for all hides.

(Edit the coordinates of the arrow to scroll to the RIGHT, and edit it to find text unique in the green dragonhide option ["green"…]. )

Tomazino

2012-11-04 08:56:01

Roflme, thanks for information, but i am not so good at simba and programing, i only know the main things, maybe you could try to change these coordinates?

Sax

2012-11-04 09:20:32

From: Tomazino
Roflme, thanks for information, but i am not so good at simba and programing, i only know the main things, maybe you could try to change these coordinates?


Just take some time and learn some basics about scripting. It is not that hard. I joined SRL 2 weeks ago and I am already making my own script. I though it was very difficult too but then I read some tutorials and I released it was not what I though and I am loving it.

You could visit this thread. here you will find lots of useful tuts:
http://villavu.com/forum/showthread.php?t=76632

:f:

Ashaman88

2012-11-04 09:24:38

I think one was just released

Roflme

2012-11-04 09:47:05

From: Tomazino
Roflme, thanks for information, but i am not so good at simba and programing, i only know the main things, maybe you could try to change these coordinates?


I could, but learning is the point of this community :p

Just keep trying different coordinates.

I did find a problem though, I have some checks specific to cowhide, leather, and hardleather.




If you're going to download my script:

function FindOption: Boolean;
begin
Case WhichHide of

'soft':
Result := FindText(x, y, 'Sof', StatChars, MCX1, MCY1, MCX2, MCY2);

'hard':
Result := FindText(x, y, '3', StatChars, MCX1, MCY1, MCX2, MCY2);
end;

if Result then
Writeln('Found tan option');

end;

Change the 'Sof' to something in the Green Dragonhide option (you know, the place where you select where to tan the hide in the chat box). If you change the constant at the top to 'hard' then change the '3' to something in the Green Dragonhide option.

function HidesTanned: Boolean;
begin
Case WhichHide of

'soft':
Result := FindDTM(Leather, x, y, MIX1, MIY1, MIX2, MIY2);

'hard':
Result := FindDTM(HardLeather, x, y, MIX1, MIY1, MIX2, MIY2);

end;

if Result then
Writeln('Leather in inventory, banking');
end;

procedure SetDTMs;
begin
CowHide := DTMFromString('mggAAAHicY2NgYOADYn4g5mWAAGkgloCKw/ggOTao+IqFC4AkEwbmApKsWDAjDgwBAOcvAtQ=');
Leather := DTMFromString('mlwAAAHicY2dgYOABYjEglgRiXiBmZIAAIShfBIg5gVgKiEWBmB0qb2XKASSZsGJWIIkLM+LBUAAAk5cBcA==');
HardLeather := DTMFromString('mlwAAAHicY2dgYOABYjEglgRiXiBmZIAAIShfBIg5gVgKiEWBmB0qr6EqDSSZsGJWIIkLM+LBUAAAjiwBYQ==');
end;

Read up on DTMs, and change the Leather or HardLeather (depending on what option) to a green dragonhide and dragon leather DTM.



procedure TanHides;
begin

repeat
Wait(50+random(5));
until not IsMoving

FindNormalRandoms;

repeat
if FindOption then
Mouse(x, y, 3, 3, mouse_left);

Wait(500+random(100));

if HidesTanned then
begin
Inc(Loads);
Exit;
end;
FindNormalRandoms;

if not FindOption then
begin
if FindText(x, y, 'make', SmallChars, MCX1, MCY1, MCX2, MCY2) then
begin
MMouse(17, 430, 2, 20);
Wait(300+random(10));
end;

if HidesTanned then
begin
Inc(Loads);
Exit;
end;

FindNormalRandoms;

if not FindText(x, y, 'make', SmallChars, MCX1, MCY1, MCX2, MCY2) then
begin
FindNormalRandoms;
FindTanner;
end;
end;
until HidesTanned;

if HidesTanned then
Inc(Loads);
end;

 if not FindOption then
begin
if FindText(x, y, 'make', SmallChars, MCX1, MCY1, MCX2, MCY2) then
begin
MMouse(17, 430, 2, 20);
Wait(300+random(10));
end;

  MMouse(17, 430, 2, 20);

Play around with those coordinates.



I told you what you need to do; read some tutorials to learn how to exactly change them :p


I don't believe I have anything else that would need a change.


After I'm done with other err projects I'll be happy to update my script to all hides. Unfortunately I CBA to do any further scripting for any projects because of school work.

Tomazino

2012-11-04 11:41:51

Ok, ill try, btw, thanks :))