SRL Archive - SRL Archives

This will turn prayer on or off, by clicking on coords using a case :).


[php]
program New;
{.include SRL/SRL.scar}

Procedure Prayer(PrayerNumber: Integer);
Begin
case PrayerNumber of
1 : Mouse(583, 227, 5, 5, True);
2 : Mouse(622, 227, 5, 5, True);
3 : Mouse(666, 228, 5, 5, True);
4 : Mouse(713, 230, 5, 5, True);
5 : Mouse(579, 266, 5, 5, True);
6 : Mouse(626, 266, 5, 5, True);
7 : Mouse(666, 266, 5, 5, True);
8 : Mouse(709, 266, 5, 5, True);
9 : Mouse(583, 306, 5, 5, True);
10 : Mouse(625, 304, 5, 5, True);
11 : Mouse(665, 305, 5, 5, True);
12 : Mouse(700, 298, 5, 5, True);
13 : Mouse(584, 345, 5, 5, True);
14 : Mouse(625, 342, 5, 5, True);
15 : Mouse(662, 342, 5, 5, True);
16 : Mouse(700, 342, 5, 5, True);
17 : Mouse(580, 386, 5, 5, True);
18 : Mouse(624, 386, 5, 5, True);
19 : Mouse(666, 386, 5, 5, True);
20 : Mouse(700, 386, 5, 5, True);
21 : Mouse(584, 421, 5, 5, True);
22 : Mouse(627, 421, 5, 5, True);
23 : Mouse(665, 421, 5, 5, True);
24 : Mouse(700, 421, 5, 5, True);
end;
End;

begin
Repeat
Prayer(1);
Until(IsFkeyDown(12))
end.[/php]

Usage is:

Prayer(1)

Prayer count goes like this:

1 2 3 4
5 6 7 8
9 10 11 12 etc.

Good job. I have a suggestion though. You should add an On option to the procedure. It will check if a color is somewhere to determine if the prayer is on or not. Other than that, good job :)

Yea, i was thinking about it, i'll do that later, to lazy to do it now lol.