SRL Archive - OSR Help

Ok, i'm still learning how to do all this and stuff, but this script is completely crap, please help me how to make it more accurate and crap like that :/.. I'm thinking of using DTMS but would DTMS work for finding a NPC? Uptext doesn't work for RSPS, so I can't use that :/. yes, it does the same EXACT thing over and over, but rsps usually dont have a banning system for botters. so please help me improve it.. not sure what i should begin with. YES I KNOW, the script is complete shit.

Bascially this script makes green dhides into green d'hide bodys, and sell it to the general store. But the script is horrible, it cannot last longer then 5 minutes without misclicking.. It needs more accurate clicks, so i'm thinking of using DTMS to find the npc, and using uptext when i figure out how to edit it to work for RSPS

program dhiding;
    {.include srl/srl.scar}
const
bobcolor=4214624;
bobcolorback=1646903;
hide1=543240;
hide2=540672;
general=1069210;
general1=7298904;

procedure openshop; [COLOR="Blue"]// this opens the shop to where it sells d-hide[/COLOR]
var x,y :integer;
begin
if(FindColorSpiralTolerance(x,y,bobcolor,msx1,msy1,msx2,msy2,0) or [COLOR="blue"]// this finds the color of bob's head, (the guy who sells it)[/COLOR]
FindColorSpiraltolerance(x,y,bobcolorback,msx1,msy1,msx2,msy2,0)) then [COLOR="blue"]// this finds the color of bob's head, (the guy who sells it)[/COLOR]
begin
Mouse(x,y,0,0,true);
writeln('found bob');
wait(1000);
end;
end;

procedure purchasehide;[COLOR="blue"] // buys the d'hide[/COLOR]
var x,y :integer;
begin
if(FindColorSpiralTolerance(x,y,hide1,msx1,msy1,msx2,msy2,0) or[COLOR="blue"] // finds the hide[/COLOR]
FindColorSpiraltolerance(x,y,hide2,msx1,msy1,msx2,msy2,0)) then [COLOR="blue"] // finds the hide[/COLOR]
begin
mouse(x,y,0,0,false); [color="blue"]//right clicks the green d'hide[/color]
wait(200);
mouse(233, 230, 0, 0, true); [color="blue"]//clicks the x amount[/color]
wait(400);
TypeSend('26')
wait(1000);
mouse(482, 36,0,0,true); [color="blue]//closes the shop[/color]
end;
end;

procedure makehide;
var x,y :integer;
begin
if(FindColorSpiralTolerance(x,y,hide1,638,213,683,246,0) or
FindColorSpiraltolerance(x,y,hide2,638,213,683,246,0)) then
begin
mouse(618,235,0,0,true);
wait(320);
mouse(x,y,0,0,true);
wait(320);
mouse(410,419,0,0,false);
wait(200);
mouse(409, 479,0,0,true);
wait(1200);
end else
 begin
 openshop;
 writeln('safe');

      end;
end;


procedure opengeneral;
var x,y:integer;
begin
if(FindColorSpiralTolerance(x,y,general,msx1,msy1,msx2,msy2,0) or
FindColorSpiraltolerance(x,y,general1,msx1,msy1,msx2,msy2,0)) then
begin
Mouse(x,y,0,0,true);
wait(1500);
if(FindColorSpiralTolerance(x,y,hide1,638,213,683,246,0) or
FindColorSpiraltolerance(x,y,hide2,638,213,683,246,0)) then
begin
Mouse(x,y,0,0,false);
wait(300);
Mouse(622,316,0,0,true);
wait(300);
mouse(483, 35, 0, 0, true);
wait(300);
end;
end;
end;





begin

ActivateClient;

MouseSpeed := 60
repeat
openshop;
purchasehide;
makehide;
opengeneral;
until(false);
end.
[/CODE]

Just to clarify, RSPS= Private Server?
And yes they use different uptext, so use color or something else to check for proper text.

Yeah, thanks for the quick reply, it does stand for RSPS. I'm looking towards adding more fail-safes more then anything else, because this script cannot last longer then 5 minutes :/

this is d hide tanning right?


You might beable to get away without uptext.

Find the color that exisits the most on the npc and use atpa to pick the biggest area of color.


Look for all about wizzupplugin on the advanced tutorial section and mainly look for splittpa, middle tpa and sorttpafrom

No, it's making dhides into dhide bodys, sorry i forgot to explain that part, and it makes the hides instantly.

Would using a DTM to find the npc be better? Or using DTMs for npcs doesn't work?