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.
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.