PDA

View Full Version : HoverSkillScroll



Sp0rky
12-27-2007, 03:58 PM
Well, For a little more antiban, this is a modification of HoverSkill, but, as you may guess, scrolls down the skill guide and looks at stuff =o


procedure HoverSkillScroll(Skill: string; Click: Boolean; Scroll: Boolean);
var
row, col, n, ScrollDown, FinishedScroll, xow, yow, xow2, yow2, a: Integer;
begin
case LowerCase(Skill) of
'attack':
begin
row := 1;
col := 1;
end;
'strength':
begin
row := 2;
col := 1;
end;
'defence':
begin
row := 3;
col := 1;
end;
'range':
begin
row := 4;
col := 1;
end;
'prayer':
begin
row := 5;
col := 1;
end;
'magic':
begin
row := 6;
col := 1;
end;
'runecraft':
begin
row := 7;
col := 1;
end;
'hitpoints':
begin
row := 1;
col := 2;
end;
'agility':
begin
row := 2;
col := 2;
end;
'herblore':
begin
row := 3;
col := 2;
end;
'thieving':
begin
row := 4;
col := 2;
end;
'crafting':
begin
row := 5;
col := 2;
end;
'fletching':
begin
row := 6;
col := 2;
end;
'slayer':
begin
row := 7;
col := 2;
end;
'smithing':
begin
row := 2;
col := 3;
end;
'mining':
begin
row := 1;
col := 3;
end;
'fishing':
begin
row := 3;
col := 3;
end;
'cooking':
begin
row := 4;
col := 3;
end;
'firemaking':
begin
row := 5;
col := 3;
end;
'woodcutting':
begin
row := 6;
col := 3;
end;
'farming':
begin
row := 7;
col := 3;
end;
'construction':
begin
row := 8;
col := 1;
end;
'hunter', 'hunting':
begin
row := 8;
col := 2;
end;
'random':
begin
row := Random(8) + 1;
col := Random(3) + 1;
end;
else
begin
WriteLn('SkillGuide doesn''t have a Skill Name that it can use.');
Exit;
end;
end;
GameTab(2);
case Click of
True:
begin
Mouse(532 + (64 * col), 191 + (31 * row), 10, 10, True)
if (GetColor(401, 96) = 3359309) then
Mouse(401, 160, 2, 30, True);
repeat
Wait(1000 + Random(500));
n := n + 1;
until (SimilarColors(GetColor(29, 38), 8760772, 30) and SimilarColors(GetColor(336, 36), 7377316, 30)) or (n > 7);
end;
False:
begin
MMouse(532 + (64 * col), 191 + (31 * row), 10, 10)
Wait(5000 + Random(5000));
end;
end;
case Scroll of
True:
begin
begin
FinishedScroll := BitmapFromString(16, 24, 'beNrNkktLw0AURn' +
'+GCN25qYgLKYigm1ofWAvSaqBigkkWxaILQQtFIlhfiyolUCx 2UxC' +
'60oX5iR79ZAhNSF0Kh2Hm3jN37mRSyAXNTXtn8fFso7G38Bm6 Uei+' +
'P9kwfqiPOtYwqL20y6QQ0C794n/2IekrnvTNliTKJv1s4v4fwT8/W' +
'u1dlK8a21HoRKEHH88OvN0fjjoHw6A6aO9CyyvdnW6dWCvQD+ rMs3' +
'0ENGTqk+q29rN9ZCLIHDTu+iyn+mjIdM5kcHOc7SOgIf/c1Jvqv95' +
'6Ub8pn43fy5jvlPMw4au++p+on/TVD3LqfZH9Sj71vuZ7mrJMkOU3' +
'q/PAgyLoe7qVJb0vWWt9TmijTgHqI6Ahk+Xt9FeA2WIgK4FRkWt/m' +
'VKMorY2a0ATEpBLhRwdMlGrgiCoGSHBxBnt4kwqOshoGX68sV/tC0' +
'0gv+E=');
ScrollDown := BitmapFromString(16, 10, 'beNp9zksLAVEYxvGPIW' +
'Vnw1JTNmyYoobNuBQxMbNQslFS0ii3lSSlxEYpOxsf0b8enZD U09u' +
'5/N5zXis27RVvm+C09B9777Gn+vet5zkJclnUzqF7nJQIAAYe+za L' +
'47zz3wNgYPlD2PjyQfnDA+SHrcx13dyMq+ZZFmD5vpsku5EDg IG75' +
'RRbBuO2no8ratQvhPcBMDC3q0GBRrbEtJhwK0DVySxI8xRVqW SjJj' +
'BFAGxbMSZkoVEVDomGUQTMObWdi/yMPjLsj38f7MWegYejag==');
if SimilarColors(GetColor(29, 38), 8760772, 30) and SimilarColors(GetColor(336, 36), 7377316, 30) then
begin
if FindBitmapToleranceIn(ScrollDown, xow, yow, 309, 282, 366, 338, 4) then
begin
MMouse(xow + 3, yow + 3, 0, 0);
GetMousePos(xow, yow);
HoldMouse(xow, yow, true);
repeat
Wait(20 + Random(30));
if random(30) = 28 then
begin
wait(70 + random(50));
ReleaseMouse(xow, yow, true);
wait(1000 + random(500));
HoldMouse(xow, yow, true);
wait(70 + random(50));
end;
a := a + 1;
until FindBitmapToleranceIn(FinishedScroll, xow2, yow2, 312, 258, 351, 328, 4) or (a > 500);
wait(70 + random(50));
ReleaseMouse(xow, yow, true);
end;
wait(70 + random(50));
MMouse(40, 85, 210, 215);
wait(1000 + random(5000));
CloseWindow;
end;
FreeBitmap(ScrollDown);
FreeBitmap(FinishedScroll);
end;
end;
False:
begin
wait(70 + random(50));
MMouse(40, 85, 210, 215);
wait(1000 + random(5000));
CloseWindow;
end;
end;
end;


Feel Free to test.

osmm
12-27-2007, 04:05 PM
ooo looks nice. Is the finished scrolling Bitmap just a bitmap gametab 2? Also idk if many ppl will use this as antiban just because when you click on a stat you stop doing w/e you were. Even walking gets stopped by it I think, or maybe they changed that. Otherwise good job.

Sp0rky
12-27-2007, 04:13 PM
ooo looks nice. Is the finished scrolling Bitmap just a bitmap gametab 2?

No it is not.

And It can just be used as a normal HoverSkill aswell. If you turn Scroll and Click to False.

Negaal
12-27-2007, 05:17 PM
program New;

{.include SRL\SRL.scar}

procedure HoverSkillScroll(Skill: string; Click: Boolean; Scroll: Boolean);
var
row, col, n, ScrollDown, FinishedScroll, xow, yow, xow2, yow2, a: Integer;
begin
case LowerCase(Skill) of
'attack':
begin
row := 1;
col := 1;
end;
'strength':
begin
row := 2;
col := 1;
end;
'defence':
begin
row := 3;
col := 1;
end;
'range':
begin
row := 4;
col := 1;
end;
'prayer':
begin
row := 5;
col := 1;
end;
'magic':
begin
row := 6;
col := 1;
end;
'runecraft':
begin
row := 7;
col := 1;
end;
'hitpoints':
begin
row := 1;
col := 2;
end;
'agility':
begin
row := 2;
col := 2;
end;
'herblore':
begin
row := 3;
col := 2;
end;
'thieving':
begin
row := 4;
col := 2;
end;
'crafting':
begin
row := 5;
col := 2;
end;
'fletching':
begin
row := 6;
col := 2;
end;
'slayer':
begin
row := 7;
col := 2;
end;
'smithing':
begin
row := 2;
col := 3;
end;
'mining':
begin
row := 1;
col := 3;
end;
'fishing':
begin
row := 3;
col := 3;
end;
'cooking':
begin
row := 4;
col := 3;
end;
'firemaking':
begin
row := 5;
col := 3;
end;
'woodcutting':
begin
row := 6;
col := 3;
end;
'farming':
begin
row := 7;
col := 3;
end;
'construction':
begin
row := 8;
col := 1;
end;
'hunter', 'hunting':
begin
row := 8;
col := 2;
end;
'random':
begin
row := Random(8) + 1;
col := Random(3) + 1;
end;
else
begin
WriteLn('SkillGuide doesn''t have a Skill Name that it can use.');
Exit;
end;
end;
GameTab(2);
case Click of
True:
begin
Mouse(532 + (64 * col), 191 + (31 * row), 10, 10, True)
if (GetColor(401, 96) = 3359309) then
Mouse(401, 160, 2, 30, True);
repeat
Wait(1000 + Random(500));
n := n + 1;
until (SimilarColors(GetColor(29, 38), 8760772, 4) and SimilarColors(GetColor(336, 36), 7377316, 4)) or (n > 7);
end;
False:
begin
MMouse(532 + (64 * col), 191 + (31 * row), 10, 10)
Wait(5000 + Random(5000));
end;
end;
case Scroll of
True:
begin
begin
FinishedScroll := BitmapFromString(16, 24, 'beNrNkktLw0AURn' +
'+GCN25qYgLKYigm1ofWAvSaqBigkkWxaILQQtFIlhfiyolUCx 2UxC' +
'60oX5iR79ZAhNSF0Kh2Hm3jN37mRSyAXNTXtn8fFso7G38Bm6 Uei+' +
'P9kwfqiPOtYwqL20y6QQ0C794n/2IekrnvTNliTKJv1s4v4fwT8/W' +
'u1dlK8a21HoRKEHH88OvN0fjjoHw6A6aO9CyyvdnW6dWCvQD+ rMs3' +
'0ENGTqk+q29rN9ZCLIHDTu+iyn+mjIdM5kcHOc7SOgIf/c1Jvqv95' +
'6Ub8pn43fy5jvlPMw4au++p+on/TVD3LqfZH9Sj71vuZ7mrJMkOU3' +
'q/PAgyLoe7qVJb0vWWt9TmijTgHqI6Ahk+Xt9FeA2WIgK4FRkWt/m' +
'VKMorY2a0ATEpBLhRwdMlGrgiCoGSHBxBnt4kwqOshoGX68sV/tC0' +
'0gv+E=');
ScrollDown := BitmapFromString(16, 10, 'beNp9zksLAVEYxvGPIW' +
'Vnw1JTNmyYoobNuBQxMbNQslFS0ii3lSSlxEYpOxsf0b8enZD U09u' +
'5/N5zXis27RVvm+C09B9777Gn+vet5zkJclnUzqF7nJQIAAYe+za L' +
'47zz3wNgYPlD2PjyQfnDA+SHrcx13dyMq+ZZFmD5vpsku5EDg IG75' +
'RRbBuO2no8ratQvhPcBMDC3q0GBRrbEtJhwK0DVySxI8xRVqW SjJj' +
'BFAGxbMSZkoVEVDomGUQTMObWdi/yMPjLsj38f7MWegYejag==');
if SimilarColors(GetColor(29, 38), 8760772, 4) and SimilarColors(GetColor(336, 36), 7377316, 4) then
begin
Writeln('1'); // <--- It doesn't reach here...
if FindBitmapToleranceIn(ScrollDown, xow, yow, 309, 282, 366, 338, 4) then
begin
MMouse(xow + 3, yow + 3, 0, 0);
GetMousePos(xow, yow);
HoldMouse(xow, yow, true);
repeat
Wait(20 + Random(30));
if random(30) = 28 then
begin
wait(70 + random(50));
ReleaseMouse(xow, yow, true);
wait(1000 + random(500));
HoldMouse(xow, yow, true);
wait(70 + random(50));
end;
a := a + 1;
until FindBitmapToleranceIn(FinishedScroll, xow2, yow2, 312, 258, 351, 328, 4) or (a > 500);
wait(70 + random(50));
ReleaseMouse(xow, yow, true);
end;
wait(70 + random(50));
MMouse(40, 85, 210, 215);
wait(1000 + random(5000));
CloseWindow;
end;
FreeBitmap(ScrollDown);
FreeBitmap(FinishedScroll);
end;
end;
False:
begin
wait(70 + random(50));
MMouse(40, 85, 210, 215);
wait(1000 + random(5000));
CloseWindow;
end;
end;
end;


begin
mousespeed:= 10;
wait(1000);
activateclient
gametab(2);
wait(1000);
HoverSkillScroll('Mining', True,True);
end.


Successfully compiled
Successfully executed

It clicks on skill... and then "Successfully executed"

In theory it should work, just there are some invalid data...?!?

EDIT: See my comment after loading Images...

Sp0rky
12-27-2007, 05:38 PM
That's strangeee, try changing the tolerance on similar colors to 30. Should work then. I obviously set it too low.