JAD
2007-05-20 18:56:56
From what I know, this does not exist and could be used for some pretty good anti ban just like HoverSkill. Read the Description for information on how to use.
Enjoy! :D
program New;
{.include SRL/SRL.scar}
{*************************************************************
function HoverPrayer(What, HowLong: Integer; RandomPrayer: Boolean): Boolean;
By: JAD
Description: Hovers over specified prayer and waits for set
amount of time. If RandomPrayer chosen will choose a random
prayer to hover. The prayers are by skill level, so 01 would
hover Thick Skin, and 49 would hover Redemption...etc.
*************************************************************}
function HoverPrayer(What, HowLong: Integer; RandomPrayer: Boolean): Boolean;
var JX1, JY1, JX2, JY2: Integer;
begin
if(not(LoggedIn))then
Exit;
GameTab(6);
wait(500+random(500));
if(RandomPrayer)then
begin
case random(23) of
0:begin
JX1 := 581;
JY1 := 218;
JX2 := 588;
JY2 := 239;
end;
1:begin
JX1 := 618;
JY1 := 220;
JX2 := 631;
JY2 := 234;
end;
2:begin
JX1 := 659;
JY1 := 221;
JX2 := 675;
JY2 := 234;
end;
3:begin
JX1 := 699;
JY1 := 223;
JX2 := 715;
JY2 := 235;
end;
4:begin
JX1 := 578;
JY1 := 262;
JX2 := 586;
JY2 := 273;
end;
5:begin
JX1 := 622;
JY1 := 254;
JX2 := 630;
JY2 := 278;
end;
6:begin
JX1 := 660;
JY1 := 260;
JX2 := 671;
JY2 := 273;
end;
7:begin
JX1 := 698;
JY1 := 259;
JX2 := 716;
JY2 := 272;
end;
8:begin
JX1 := 574;
JY1 := 296;
JX2 := 592;
JY2 := 310;
end;
9:begin
JX1 := 615;
JY1 := 296;
JX2 := 632;
JY2 := 310;
end;
10:begin
JX1 := 658;
JY1 := 295;
JX2 := 676;
JY2 := 311;
end;
11:begin
JX1 := 699;
JY1 := 299;
JX2 := 715;
JY2 := 311;
end;
12:begin
JX1 := 577;
JY1 := 339;
JX2 := 588;
JY2 := 351;
end;
13:begin
JX1 := 622;
JY1 := 332;
JX2 := 629;
JY2 := 354;
end;
14:begin
JX1 := 660;
JY1 := 337;
JX2 := 672;
JY2 := 350;
end;
15:begin
JX1 := 699;
JY1 := 336;
JX2 := 717;
JY2 := 349;
end;
16:
begin
JX1 := 572;
JY1 := 382;
JX2 := 584;
JY2 := 390;
end;
17:begin
JX1 := 619;
JY1 := 370;
JX2 := 636;
JY2 := 380;
end;
18:begin
JX1 := 658;
JY1 := 370;
JX2 := 676;
JY2 := 382;
end;
19:begin
JX1 := 698;
JY1 := 374;
JX2 := 716;
JY2 := 387;
end;
20:begin
JX1 := 577;
JY1 := 411;
JX2 := 590;
JY2 := 426;
end;
21:begin
JX1 := 614;
JY1 := 417;
JX2 := 638;
JY2 := 431;
end;
22:begin
JX1 := 657;
JY1 := 409;
JX2 := 674;
JY2 := 425;
end;
23:begin
JX1 := 696;
JY1 := 416;
JX2 := 719;
JY2 := 430;
end;
end;
end;
if(not(RandomPrayer))then
begin
case What of
01:begin
JX1 := 581;
JY1 := 218;
JX2 := 588;
JY2 := 239;
end;
04:begin
JX1 := 618;
JY1 := 220;
JX2 := 631;
JY2 := 234;
end;
07:begin
JX1 := 659;
JY1 := 221;
JX2 := 675;
JY2 := 234;
end;
08:begin
JX1 := 699;
JY1 := 223;
JX2 := 715;
JY2 := 235;
end;
09:begin
JX1 := 578;
JY1 := 262;
JX2 := 586;
JY2 := 273;
end;
10:begin
JX1 := 622;
JY1 := 254;
JX2 := 630;
JY2 := 278;
end;
13:begin
JX1 := 660;
JY1 := 260;
JX2 := 671;
JY2 := 273;
end;
16:begin
JX1 := 698;
JY1 := 259;
JX2 := 716;
JY2 := 272;
end;
19:begin
JX1 := 574;
JY1 := 296;
JX2 := 592;
JY2 := 310;
end;
22:begin
JX1 := 615;
JY1 := 296;
JX2 := 632;
JY2 := 310;
end;
25:begin
JX1 := 658;
JY1 := 295;
JX2 := 676;
JY2 := 311;
end;
26:begin
JX1 := 699;
JY1 := 299;
JX2 := 715;
JY2 := 311;
end;
27:begin
JX1 := 577;
JY1 := 339;
JX2 := 588;
JY2 := 351;
end;
28:begin
JX1 := 622;
JY1 := 332;
JX2 := 629;
JY2 := 354;
end;
31:begin
JX1 := 660;
JY1 := 337;
JX2 := 672;
JY2 := 350;
end;
34:begin
JX1 := 699;
JY1 := 336;
JX2 := 717;
JY2 := 349;
end;
37:begin
JX1 := 572;
JY1 := 382;
JX2 := 584;
JY2 := 390;
end;
40:begin
JX1 := 619;
JY1 := 370;
JX2 := 636;
JY2 := 380;
end;
43:begin
JX1 := 658;
JY1 := 370;
JX2 := 676;
JY2 := 382;
end;
44:begin
JX1 := 698;
JY1 := 374;
JX2 := 716;
JY2 := 387;
end;
45:begin
JX1 := 577;
JY1 := 411;
JX2 := 590;
JY2 := 426;
end;
46:begin
JX1 := 614;
JY1 := 417;
JX2 := 638;
JY2 := 431;
end;
49:begin
JX1 := 657;
JY1 := 409;
JX2 := 674;
JY2 := 425;
end;
52:begin
JX1 := 696;
JY1 := 416;
JX2 := 719;
JY2 := 430;
end;
else
begin
Writeln('Please pick a valid prayer level to hover...');
Result := False;
Exit;
end;
end;
end;
MouseBox(JX1,JY1,JX2,JY2,3);
wait(HowLong+random(500));
end;
begin
SetupSRL;
ActivateClient;
wait(500+random(500));
HoverPrayer(0,3000+random(1000),true);
end.
Enjoy! :D