SRL Archive - SRL Archives

yeah prayer clicker with slots instead of the string.. returns true if you clicked it and your level is high enough.. false if your lvl is too low

{.include SRL\SRL.scar}

function ClickPrayer(Slot:Integer):Boolean;
begin
  GameTab(6)
  case Slot of
    1  : Mouse(584, 224, 6, 6, true);
    2  : Mouse(626, 224, 6, 6, true);
    3  : Mouse(666, 224, 6, 6, true);
    4  : Mouse(710, 223, 6, 6, true);
    5  : Mouse(586, 259, 6, 6, true);
    6  : Mouse(628, 260, 6, 6, true);
    7  : Mouse(669, 260, 6, 6, true);
    8  : Mouse(708, 260, 6, 6, true);
    9  : Mouse(586, 294, 6, 6, true);
    10 : Mouse(629, 295, 6, 6, true);
    11 : Mouse(667, 298, 6, 6, true);
    12 : Mouse(707, 297, 6, 6, true);
    13 : Mouse(584, 335, 6, 6, true);
    14 : Mouse(627, 331, 6, 6, true);
    15 : Mouse(665, 334, 6, 6, true);
    16 : Mouse(707, 332, 6, 6, true);
    17 : Mouse(583, 369, 6, 6, true);
    18 : Mouse(628, 372, 6, 6, true);
  end;
  Wait(500)
  Result:=True
  if(GetColor(284, 442)=16711680)then
    begin
      Result:=False
    end;
end;

slots are set up like this

1    2    3    4
5    6    7   8...

heres another function to go with it.. randomly select a prayer to boost accuracy,strength, or defense.. based on your level.. nothin much to it, but it works.. thanks to whiteshadow for a little help.. also must be used with ClickPrayer

procedure RandomAttackPrayer;
var i: Integer;
begin
  i:=GetSkillLevel('prayer')
  if(1<=i)and(i<=3)then ClickPrayer(1)
  if(4<=i)and(i<=6)then ClickPrayer(1+random(2))
  if(7<=i)and(i<=9)then ClickPrayer(1+random(3))
  if(10<=i)and(i<=12)then ClickPrayer(2+random(3))
  if(13<=i)and(i<=15)then ClickPrayer(3+random(3))
  if(16<=i)and(i<=27)then ClickPrayer(4+random(3))
  if(28<=i)and(i<=30)then
    begin
      case random(3)+1 of
        1 : ClickPrayer(5)
        2 : ClickPrayer(6)
        3 : ClickPrayer(10)
      end;
    end;
  if(31<=i)and(i<=33)then
    begin
      case random(3)+1 of
        1 : ClickPrayer(6)
        2 : ClickPrayer(10)
        3 : ClickPrayer(11)
      end;
    end;
  if(34<=i)then ClickPrayer(10+random(3))
end;

it works! hehe one fof the functions for squigs fight cave one that were totaly revamping

added RandomAttackPrayer; above

PRetty user friendly. :) Besides from the fact that you have to memorize the slot # or count, its pretty useful :)

ty! and for me.. its easier to remember combos of 0-9 numbers instead of combos of 26 letters