Drink a prayer potion

[Justin]

Hey
What would be the best way for a script to drink a prayer potion dose (4),(3),(2),(1) in any order.

If you could also provide me with an example that would be awesome

Thanks

[[XoL]]

FindObjCustom(x, y, ['rink'], [(put colors here)], 10);
Mouse(x, y, 5, 5, true);

[Justin]

Doesn't seem to work... Just idles

[RISK]

Make a DTM of the potion and do this:
procedure Example;
var
DTM_Name, X, Y : Integer;
begin
DTM_Name := DTMFromString('');

if FindDTM(DTM_Name, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
FreeDTM(DTM_Name);
MMouse(X, Y, 2, 2);
end;

FreeDTM(DTM_Name);
end;

[YoHoJo]

I'd also make a DTM.
Make it based on a (1) Dose potion, and make the parent point very low on the item (but still on the potion blue color itself) that way one dtm will work for all 4 doses.
Video Tutorial I made about DTMs here:
http://www.youtube.com/watch?v=SlS4q9MiFX4
Picture/Text tutorial here:
http://villavu.com/forum/showthread.php?t=564

[YoHoJo]

Doesn't seem to work... Just idles

Findobj should work just fine assuming you picked good colors and add enough tolerance do it. Show us your findobj line please if you will.

[Justin]

Make a DTM of the potion and do this:
procedure Example;
var
DTM_Name, X, Y : Integer;
begin
DTM_Name := DTMFromString('');

if FindDTM(DTM_Name, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
FreeDTM(DTM_Name);
MMouse(X, Y, 2, 2);
end;

FreeDTM(DTM_Name);
end;


Still unable to get it to work :S




procedure DrinkPrayerPotion;
var
DTM_Name, X, Y : Integer;


begin
PrayerPot := DTMFromString('78DA632C656160E86164400696FB7BC1344 C9' +
'4B112A8A617558DC5DE1E54357540357DA86ACCB7B5A1AA69 C2B44BA' +
'B3F0B554D2B504D17AA9A80EE725435A5986A2AB72EC65483 E666060' +
'626143500D6A61024');

if FindDTM(PrayerPot, X, Y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(X, Y, 2, 2, true);
end;

FreeDTM(PrayerPot);
end;

[YoHoJo]

If that is not working, then you made your DTM incorrectly.

Parent point should be where you want to click the object, and have a tolerance of about 30-50.
All of the other points you make should be along the black outline of the item and all be the same color, and have 0 tolerance.

[Justin]

This is doing my head in..



Procedure CheckPrayer;
Var
xi, yi: integer;
begin
if(GetPrayerPoints < 503) then
begin
WriteLn('We are low in prayer... drinking a potion!');
FindObj(x,y,'rink',7971378,20)
Mouse(x, y, 3, 3, true);
end
end;


mouse just hovers above the gameclient

[RISK]

Add another ";" at the end of that second 'end'.

[Failure]

This is doing my head in..



Procedure CheckPrayer;
Var
xi, yi: integer;
begin
if(GetPrayerPoints < 503) then
begin
WriteLn('We are low in prayer... drinking a potion!');
FindObj(x,y,'rink',7971378,20)
Mouse(x, y, 3, 3, true);
end
end;


mouse just hovers above the gameclient

You're sure you targeted Runescape?

[Justin]

You're sure you targeted Runescape?

Im using SMART


Add another ";" at the end of that second 'end'.

Okay ill give that a shot