SRL Archive - RS3 Script Requests

I apologize for my first post being a leech post, but I've heard some nice things about SIMBA from my home RSCA - so I decided to stop by.

Anyways, I'm not requesting for much, however I have no knowledge of SIMBA, so I'm not sure about the difficulty of this:

A bot that takes a sip of a prayer potion when prayer gets below "x", where x can be defined by the user.

It would help at bandits, chinning, barraging, etc. Just a simple little bot, I think ^^"

~Atrain

Watch this video I made, very simple and step by step, using the methods in there you can make it yourself very easily!
http://www.youtube.com/watch?v=SlS4q9MiFX4

Here is what you would need:

Find the DTM of ppot, go to it, click it,

Have it constantly checking ppoints using MMGetLevels, found in GameTab.simba.

That's really all you'll need, watch Yoho's stuff to learn how to put it together.

From: YoHoJo
Watch this video I made, very simple and step by step, using the methods in there you can make it yourself very easily!
http://www.youtube.com/watch?v=SlS4q9MiFX4

Ah, will do. I'm short on time however, as I'm heading back to my university in two days, so learning SIMBA (which I plan on doing as I love learning new codes) might not be a possibility for a while.

@YoHo, if you could make this script for me, I would happily compensate you for your time. If not, I suppose I'll just wait until another spout of free time presents itself and go over that tutorial. No worries ^^

I am going to start learning SIMBA, maybe I could make this as a first script for you.

Function PrayerLevel: Integer;
var
ColourString: String;
begin
Result:= GetMMLevels('Prayer', ColourString);
end;

procedure PrayerCheck; //Thanks Narcle, used your script to learn how to do this
var
a, t, b, x, y:Integer;
begin
if (PrayerLevel < WTP) then
begin
repeat
Debug('Prayer low doing Prayer checks…');
if not InvEmpty then
for a := 0 to 2 do
for b := 1 to 28 do
if ExistsItem(b) then
begin
MMouseItem(b);
GetMousePos(x, y);
if WaitUptext('Drink', 400) then
begin
Mouse(x,y,0,0,false);
if WaitOption('Drink', 400) then
begin
t := GetSystemTime;
while ExistsItem(b) and ((GetSystemTime-t) < 2000) do
wait(20);
If (PrayerLevel > 500) then
Exit;
end;
end;
end;
if (not LoggedIn) or (PrayerLevel > 500) then
Exit;
until (PrayerLevel > 600);
end;
end;

Function IsPrayerOn: Boolean;
var
TPA: TPointArray;
CTS: Integer;
begin
CTS:= GetColorToleranceSpeed;
ColorToleranceSpeed(2);

Result:= FindColorsSpiralTolerance(723, 70, TPA, 7650956, 708, 53, 737, 85, 32);

ColorToleranceSpeed(CTS);
end;

Function OutOfPrayer: Boolean;
var
TPA: TPointArray;
CTS: Integer;
begin
CTS:= GetColorToleranceSpeed;
ColorToleranceSpeed(2);

Result:= Not(FindColorsSpiralTolerance(723, 70, TPA, 6433597, 706, 55, 739, 81, 8) or IsPrayerOn);

ColorToleranceSpeed(CTS);
end;

Procedure TurnPrayerOn(Prayer: TStringArray; QuickPrayer: Boolean);
begin
GameTab(Tab_Inv);
wait(1000);
if(QuickPrayer = True) then
begin
repeat
if OutOfPrayer Then
break;
if PrayerLevel < 3 then
break;
MouseBox(706, 55, 739, 87, 1);
wait(1500);
Until(IsPrayerOn);
end;
end;

i use this for prayer check