SRL Archive - RS3 Outdated / Broken Scripts

hermpie,s auto cowhidetanner v 0.1 beta


ShowerThoughts

2007-09-20 12:01:58

hermpie,s auto cowhidetanner

version number : 0.1 beta


Features
-multiplayer
-takes all stuff from bank
-good failsafes
-DDTM used (i am so proud:))
-good stuff


Added in next version
-crafting option(almost finished)
-option to tan soft leather to
- if people request stuff i do it
-big update:)

credits
-n3ss3s for: helping me learning scripting and if i had questions i could always ask it
-derek for: almost the same
-the devs for: for srl include
-everyone who helped me for: everyhting

post proggy,s and bugs, thank you!

RudeBoiAlex

2007-09-20 12:04:10

attach pl0x

ShowerThoughts

2007-09-20 12:05:02

yeah i click to fast on the post button and then i dont closed the upload file screen and then it wont add:( but now you can get it

RudeBoiAlex

2007-09-20 12:06:49

woah looks pretty good in a couple of weeks apply again and i think u will get in

ShowerThoughts

2007-09-20 12:08:27

Thanks,
Its not so hard to add a crafting procedure.
So i will do that fast.
But should i make it a part of this script or make a other script for it?
to reduce lagg

hermpie

the scar noob

2007-09-20 12:37:51

nice stuff, you wanne see a lil piece of mine I'm making?

EDIT: This is my FindEllis function:
function FindEllis: boolean;
var
EllisTimer: longint;
c, tol: integer;
begin
MakeCompass('n');
if not(LoggedIn)then Exit;
c:= 1
ColorTolerancespeed(2)
repeat
tol:= 10
if (FindObjCustom(x, y, ['lli', 'lis', 'llis'], [5142743, 4813002, 4680899], tol))then
begin
Mouse(x, y, 0, 0, false);
if not(ChooseOption('rade')) then FindEllis;
repeat
MarkTime(EllisTimer);
Wait(300)
TanningWindow
until TanningWindow or (TimeFromMark(EllisTimer)>10000)
if TanningWindow then
begin
Writeln('Trading with Ellis!');
result:= true;
Exit;
end else
if not(TanningWindow) then
begin
Writeln('We could not mannage to trade with Ellis.');
result:= false;
Exit;
end;
end else
begin
Writeln('Did not find Ellis ['+inttostr(c)+'/5].');
tol:= tol+c
end;
c:= c+1
until (c>5) or (result=true)
if not(result) then Writeln('Could not find Ellis at all!');
ColorTolerancespeed(1)
end;

ShowerThoughts

2007-09-20 12:56:54

you using 3 colors and 3 times a piece of text but mine works always to..

the scar noob

2007-09-20 13:43:10

From: hermpie
you using 3 colors and 3 times a piece of text but mine works always to..


I'm using autocolor too

ShowerThoughts

2007-09-20 13:57:36

aw thats mean :mad: i dont know how to use it :mad:

the scar noob

2007-09-20 14:26:35

From: hermpie
aw thats mean :mad: i dont know how to use it :mad:


pmed you what, but HSL an dstuff is diff I used ACA, but Sandcolor is changing all the time

WT-Fakawi

2007-09-20 14:52:54

This is how I find Ellis in my tanner

  Ellis[1]:= 4681158;
Ellis[2]:= 5472230;
Ellis[3]:= 3692188;
Ellis[4]:= 3758498;

Function TanAll:Boolean;
var Dmx, Dmy, Ax, Ay, x, STime, ETime,TTime: integer;
begin
MarkTime(STime);
repeat
for x:=1 to 4 do
begin
if not LoggedIn then Exit;
MarkTime(ETime);
if FindColorTolerance(Ax, Ay, Ellis[x], MSX1, MSY1 + 20, MSX2, MSY2, 5) then
begin
MMouse(Ax, Ay, 0, 0);
GetMousePos(Ax, Ay);
Wait(50);
if FindColorTolerance(Dmx, Dmy, 318168, 42, 8, 120, 21, 50) then // Yellow
begin
if IsUpText('l') then
begin
Mouse(Ax, Ay, 0, 0, False);
if not Chooseoption('Trade') then break;
MarkTime(TTime);
Repeat
FlagFTWait;
WWait(1000);
if TimeFromMark(TTime) > 15000 then
begin
Break;
End;
Until TanScreen;
Mouse(75, 90, 20, 30, False);
Wait((1000)+Random(250));
ChooseOption('All');
TanHides := TanHides + 27;
ReportVars[0]:=27;
Result := True;
Exit;
end
end
end;
end;
Wait(100);
if ETime-STime > 20000 then
begin
Mouse(MSCX,MSCY + 50, 2, 2, True); // crude callib trying to find Ellis
end;
x := 1;
until(ETime-STime > 55000);
end;


ShowerThoughts

2007-09-20 15:20:22

you using coords! i using a dtm i got more randomness then wt-fawaki woot :P

the scar noob

2007-09-20 16:27:21

From: WT-Fakawi
This is how I find Ellis in my tanner

  Ellis[1]:= 4681158;
Ellis[2]:= 5472230;
Ellis[3]:= 3692188;
Ellis[4]:= 3758498;

Function TanAll:Boolean;
var Dmx, Dmy, Ax, Ay, x, STime, ETime,TTime: integer;
begin
MarkTime(STime);
repeat
for x:=1 to 4 do
begin
if not LoggedIn then Exit;
MarkTime(ETime);
if FindColorTolerance(Ax, Ay, Ellis[x], MSX1, MSY1 + 20, MSX2, MSY2, 5) then
begin
MMouse(Ax, Ay, 0, 0);
GetMousePos(Ax, Ay);
Wait(50);
if FindColorTolerance(Dmx, Dmy, 318168, 42, 8, 120, 21, 50) then // Yellow
begin
if IsUpText('l') then
begin
Mouse(Ax, Ay, 0, 0, False);
if not Chooseoption('Trade') then break;
MarkTime(TTime);
Repeat
FlagFTWait;
WWait(1000);
if TimeFromMark(TTime) > 15000 then
begin
Break;
End;
Until TanScreen;
Mouse(75, 90, 20, 30, False);
Wait((1000)+Random(250));
ChooseOption('All');
TanHides := TanHides + 27;
ReportVars[0]:=27;
Result := True;
Exit;
end
end
end;
end;
Wait(100);
if ETime-STime > 20000 then
begin
Mouse(MSCX,MSCY + 50, 2, 2, True); // crude callib trying to find Ellis
end;
x := 1;
until(ETime-STime > 55000);
end;



cool looks great, however fawki this is only a finder and extremly under construction:)
However, I think I'l just stop scripting or something.

ShowerThoughts

2007-09-20 16:28:16

you are scared of me ;)

the scar noob

2007-09-20 16:29:25

From: hermpie
you are scared of me ;)


No I'm not, it's just I dunno why I would make it though.

ShowerThoughts

2007-09-20 16:30:51

i was joking add me on msn:) your a funny guy

the scar noob

2007-09-20 16:43:24

From: hermpie
i was joking add me on msn:) your a funny guy


I'm just not in the mood, sorry.

ShowerThoughts

2007-09-20 16:58:22

your parents gonna sel your computer/laptop then you got a good reason that your not in a good mood :p

back on topic pls! pls pots proggy,s or i remove it here

ShowerThoughts

2007-09-21 08:47:22

i am gonna remove it! if i dont get proggy's or feedbacksorry for double post

JuvenileHall

2007-10-09 15:37:41

double poster!!!!!!!!!! im telling!!!!!!!!!!!! jk lol

ShowerThoughts

2007-10-09 16:30:35

W/E its outdated i got the newest version on my comp but no one post proggy's of my not working version ;)

spikehead818

2007-10-27 14:13:29

:D Works great!!! I got no errors and didnt lag much. 2 thumbs up :D

ShowerThoughts

2007-10-27 14:16:26

hmm strange proggy?

NCDS

2007-11-07 15:40:24

//////////////////////////////////////////////////////////////
// Ran for 1 Minutes and 22 Seconds
// Did 0 load(s) out of 5 loads set on this player
// You started with crafting level : 0
// You ended with crafting level : 0
//////////////////////////////////////////////////////////////


theres a proggy for you, it missed ellie or whatever the guys name is, then just logged out.

jakeyboy29

2007-12-28 09:55:51

it dosent work mate just stays open in bank window

Gu3st...

2008-01-02 07:43:47

11-07-2007, 09:40 PM

1 month ago…