SRL Archive - SRL Archives

function HoverPrayer(What, HowLong: Integer; RandomPrayer: Boolean): Boolean;


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.


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

Abyssal

2007-05-20 21:28:03

I'm gonna be honest. Kinda pointless…

Because how many people actually hover prayers? not me :o

I dunno maybe I'm just weird.

Bobarkinator

2007-05-20 21:33:24

I certainly don't hover over the prayer but hey its still a nicely coded function.

JAD

2007-05-20 21:33:30

From: Abyssal
I'm gonna be honest. Kinda pointless…

Because how many people actually hover prayers? not me :o

I dunno maybe I'm just weird.


Lol.. yeah, it isn't the most useful function ever, but I just got the idea to do this so I did it.

I have hovered my prayer a few times in game, but not much.

Edit: Bob barkinator, Thanks! :D

Ashur2Good

2007-05-21 06:55:42

Well, i don;t know about using this often, but this might come in handy :)

Nice one JAD!


-ashur

JAD

2007-05-21 10:35:56

From: ashur2good
Well, i don;t know about using this often, but this might come in handy :)

Nice one JAD!


-ashur


Thanks a lot ashur :D

Rune Hacker

2007-05-23 22:11:57

Might not be the most useful thing, but it does seem suitable for being added to SRL as an anti-ban function. Also, maybe add an option to click the prayer for an x amount of time and then turn the prayer off? idk. I guess this is ok though.

JAD

2007-05-23 23:36:20

From: Rune Hacker
Might not be the most useful thing, but it does seem suitable for being added to SRL as an anti-ban function. Also, maybe add an option to click the prayer for an x amount of time and then turn the prayer off? idk. I guess this is ok though.


Yeah, I was thinking of doing that. Thanks! And yes, it might not be the most useful thing ever, but I was bored and there was nothing like it so I made it :p

Thanks for posting :D