Great for antiban. Checks if skill is flashing (for when you level up) and clicks waits a random amount of time as if your looking at what you can now do, then exits.
Great for antiban. Checks if skill is flashing (for when you level up) and clicks waits a random amount of time as if your looking at what you can now do, then exits.
I do visit every 2-6 months
Hmmm, Not bad :P
Can be done!
eeehhhh? Public Svn Suggestions perhaps?
usefulness? checking for lvl ups i guess?
~RM
NCDS I've already started it, unless you REALLY wanna do it :P
i shall do it now
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
As Zasz said, its great for anti-ban. Imagine playing 10 hours, leveling in the 1st hour, and leaving the skill flashing for the rest 9 hours lol. Good Suggestion.
It's also great for counting level ups for proggies.![]()
I agree with you guys.. i think it is pretty odd if you just don't click the dam flashy image, from what i think this should be added in SRL, Well that's my opininion ( Of course when some of you guys do it) I'm too lazy (:
~Home
SCAR Code:function IsSkillFlashing(skill: string): boolean;
var
SkillOffPut, SkillPoint : TPoint;
OriginalColor, i : Integer;
SkillColor : TIntegerArray;
begin
if GameTab(2) then
begin
case skill of
'attack', 'hitpoints','hp',
'mining', 'strength', 'agility',
'smithing', 'defence', 'herblore',
'fishing', 'range','ranged',
'thieving', 'cooking', 'prayer',
'crafting', 'firemaking', 'woodcutting',
'runecrafting', 'slayer', 'farming': SkillOffPut:= Point(10, 10);
'magic': SkillOffPut:= Point(10, 9);
'fletching': SkillOffPut := Point(10, 8);
else begin
Writeln('Incorrect Skill');
exit;
end;
end;
case skill of
'attack': OriginalColor := 11053479;
'hitpoints','hp': OriginalColor := 143297;
'mining': OriginalColor := 7829622;
'strength': OriginalColor := 5669024;
'agility': OriginalColor := 3692653;
'smithing': OriginalColor := 3357758;
'defence': OriginalColor := 8882557;
'herblore': OriginalColor := 25088;
'fishing': OriginalColor := 12568251;
'range','ranged': OriginalColor := 607086;
'thieving': OriginalColor := 2827562;
'cooking': OriginalColor := 202813;
'prayer': OriginalColor := 10666673;
'crafting': OriginalColor := 603476;
'firemaking': OriginalColor := 3239099;
'magic': OriginalColor := 10619427;
'fletching': OriginalColor := 949280;
'woodcutting': OriginalColor := 949280;
'runecrafting': OriginalColor := 937437;
'slayer': OriginalColor := 11447468;
'farming': OriginalColor := 16732742;
end;
SkillPoint:= SkillToCoords(True, skill);
SetArrayLength(SkillColor, 31);
for i:=0 to 30 do
begin
SkillColor[i]:= GetColor(SkillPoint.x - SkillOffPut.x, SkillPoint.y - SkillOffPut.y);
Wait(100);
end;
for i:=0 to 30 do
begin
if (not(OriginalColor = SkillColor[i])) then
begin
Result:= True;
exit;
end;
end;
end;
end;
in theory it should work
~shut
Last edited by Shuttleu; 05-13-2009 at 04:32 AM.
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
/gasp You need that many strings for the Skills? O.O
ok i added the last 3 skills
SCAR Code:function IsSkillFlashing(skill: string): boolean;
var
SkillOffPut, SkillPoint : TPoint;
OriginalColor, i, xx, yy : Integer;
SkillColor : TIntegerArray;
Scroll : Boolean;
begin
if GameTab(2) then
begin
case skill of
'attack', 'hitpoints','hp',
'mining', 'strength', 'agility',
'smithing', 'defence', 'herblore',
'fishing', 'range','ranged',
'thieving', 'cooking', 'prayer',
'crafting', 'firemaking', 'woodcutting',
'runecrafting', 'slayer', 'farming'
'construction', 'summoning': SkillOffPut:= Point(10, 10);
'magic': SkillOffPut:= Point(10, 9);
'fletching': SkillOffPut := Point(10, 8);
'hunting', 'hunter': SkillOffPut := Point(9, 10);
else begin
Writeln('Incorrect Skill');
exit;
end;
end;
case skill of
'attack': OriginalColor := 11053479;
'hitpoints','hp': OriginalColor := 143297;
'mining': OriginalColor := 7829622;
'strength': OriginalColor := 5669024;
'agility': OriginalColor := 3692653;
'smithing': OriginalColor := 3357758;
'defence': OriginalColor := 8882557;
'herblore': OriginalColor := 25088;
'fishing': OriginalColor := 12568251;
'range','ranged': OriginalColor := 607086;
'thieving': OriginalColor := 2827562;
'cooking': OriginalColor := 202813;
'prayer': OriginalColor := 10666673;
'crafting': OriginalColor := 603476;
'firemaking': OriginalColor := 3239099;
'magic': OriginalColor := 10619427;
'fletching': OriginalColor := 949280;
'woodcutting': OriginalColor := 949280;
'runecrafting': OriginalColor := 937437;
'slayer': OriginalColor := 11447468;
'farming': OriginalColor := 16732742;
'construction': OriginalColor := 2768209;
'hunting', 'hunter': OriginalColor := 3748925;
'summoning': OriginalColor := 15261406;
end;
case skill of
'construction', 'hunting', 'hunter', 'summoning': Scroll:= True;
else
Scroll:= False;
end;
if Scroll then
begin
MMouse(721, 440, 5, 5);
GetMousePos(xx, yy);
HoldMouse(xx, yy, True);
Wait(500+Random(500));
ReleaseMouse(xx, yy, True);
end;
SkillPoint:= SkillToCoords(True, skill);
SetArrayLength(SkillColor, 31);
for i:=0 to 30 do
SkillColor[i]:= GetColor(SkillPoint.x - SkillOffPut.x, SkillPoint.y - SkillOffPut.y);
for i:=0 to 30 do
begin
if (not(OriginalColor = SkillColor[i])) then
begin
Result:= True;
exit;
end;
end;
end;
end;
~shut
All my scripts are held on Googlecode git, so if you ever see a problem, fork it and send me a pull request
If a script is grey, it doesn't work, if it's colour then it does!
My Tutorials:-
Everything you need to know about setting up Simba, SRL and Reflection!, How to sort out the MSVCR71.dll error
How to set up players for autoing with Simba, SRL/Simba Standards (with examples), Defines
Auto Updater and Git, Using a testing branch for git, Adding SRL Stats to your script
Creating your own font set for Simba, Guide to Cups, How to make 1.45M (RSGP) a day (not really my tut)
Download a image and set it as your Desktop Wallpaper in C#, How to make your first PHP file uploader
<Coh3n> Shuttleu, fuck I love you right now
Mine looks better! :P I'm going to finish it soon, just got home a half an hour ago :P Currently it takes roughly <150ms to check for any movement i ALL skills, it should take <13ms just for one skill flashing check. It does NOT check the colors, it simply copies the inv screen to a canvas and fast checks if different.It uses my special AbtractMotion function, which is in a seperate thread released a few days ago. BTW, Your scrolling should be failsafed, what if it is already scrolled down to those skills? RS will think its fishy if you keep trying to scroll down each time to check
![]()
EDIT:
[FINISHED FUNCTION: ] (Read this thread on how to use: http://www.villavu.com/forum/showthread.php?t=45292)
SCAR Code:function SkillFlashing(Skill: Variant; All, Click: Boolean): Boolean;
var
I, J: Integer;
Coord, X, Y, A, B, XH, YH, F: TIntegerArray;
CTP: array [0..2] of array [0..6] of TBox;
C: TPoint;
begin
Result := False;
case Skill of
'att', 0 : Coord := [0, 0];
'str', 1 : Coord := [0, 1];
'def', 2 : Coord := [0, 2];
'ran', 3 : Coord := [0, 3];
'pra', 4 : Coord := [0, 4];
'mag', 5 : Coord := [0, 5];
'run', 6 : Coord := [0, 6];
'con', 7 : Coord := [0, 6];
'hit', 8 : Coord := [1, 0];
'agi', 9 : Coord := [1, 1];
'her', 10 : Coord := [1, 2];
'thi', 11 : Coord := [1, 3];
'cra', 12 : Coord := [1, 4];
'fle', 13 : Coord := [1, 5];
'sla', 14 : Coord := [1, 6];
'hun', 15 : Coord := [1, 6];
'min', 16 : Coord := [2, 0];
'smi', 17 : Coord := [2, 1];
'fis', 18 : Coord := [2, 2];
'coo', 19 : Coord := [2, 3];
'fir', 20 : Coord := [2, 4];
'woo', 21 : Coord := [2, 5];
'far', 22 : Coord := [2, 6];
'sum', 23 : Coord := [2, 6];
end;
X := [MIX1, MIX2, MIX2, MIX1];
Y := [MIY1, MIY1, MIY2, MIY2];
if(not(AbstractMotion(X[0],Y[0],X[1],Y[1],X[2],Y[2],X[3],Y[3],False)))then
Exit;
XH := [553, 609, 663, 573, 629, 683];
YH := [229, 260, 293, 323, 356, 388, 420, 249, 280, 313, 343, 376, 408, 440];
for J := 0 to 2 do
for I := 0 to 6 do
CTP[J][I] := IntToBox(XH[J], YH[I], XH[3+J], YH[7+I]);
if All then
begin
for J := 0 to 2 do
begin
for I := 0 to 6 do
begin
X := [CTP[J][I].x1, CTP[J][I].x2, CTP[J][I].x2, CTP[J][I].x1];
Y := [CTP[J][I].y1, CTP[J][I].y1, CTP[J][I].y2, CTP[J][I].y2];
if AbstractMotion(X[0],Y[0],X[1],Y[1],X[2],Y[2],X[3],Y[3],False) then
begin
F := [X[0], Y[0]];
Result := not Result;
Break;
end;
end;
end;
end else
begin
case Skill of
'con', 'hun', 'sum', 7, 15, 23 : SkillToCoords(True, 'construction');
end;
with C do
begin
x := Coord[0];
y := Coord[1];
A := [CTP[x][y].x1, CTP[x][y].x2, CTP[x][y].x2, CTP[x][y].x1];
B := [CTP[x][y].y1, CTP[x][y].y1, CTP[x][y].y2, CTP[x][y].y2];
end;
if AbstractMotion(A[0], B[0], A[1], B[1], A[2], B[2], A[3], B[3], False)then
begin
F := [A[0], B[0]];
Result := not Result;
end;
end;
if Result and Click then
begin
MMouse(F[0], F[1], 20, 20, True);
Wait(RandomRange(500, 2000));
CloseWindow;
end;
end;
Last edited by Nadeem; 05-13-2009 at 08:40 AM.
LOL noob Nadeem. Using your AbstractMotion thing.
gtfo! my abstract motion is sikkk!
Nah. Stuff could be added to it.
Why are you always offline on MSN.
Go online.
Well ofcourse stuff can be added to anything
I'll be on at night, not on my laptop right now :/ this comp dun't even have msnI'm just lucky I have SCAR on my usb flash drive
![]()
There are currently 1 users browsing this thread. (0 members and 1 guests)