My eating procedures aren't working.
Is it the HPPercent that is broken?
Because the inventory spots haven't changed, and uptext is working fine?
What are possible ways around it?
Thanks
-Ilya
My eating procedures aren't working.
Is it the HPPercent that is broken?
Because the inventory spots haven't changed, and uptext is working fine?
What are possible ways around it?
Thanks
-Ilya
So do you need help with eating procedure?
Or help with making and eating function?
You can check yourself if HP function is working by doing something like
WriteLn(IntToStr(HPPercent));
Not sure if that's the exact right way, but you should get the picture.
As for earing, make a DTM of the food, search for it, and click it.
Check you my YouTube channel YoHoJoSRL to see a video tutorial on how to make DTMs and use them.
i would love help with making an eating function here is roughly what i have now.
procedure Hungry;
var
c, T, i, x, y: Integer;
begin
if (HPPercent < RandomRange(50, 70)) and LoggedIn then
begin
if not InvEmpty then
for c := 0 to 2 do
for i := 1 to 28 do
if ExistsItem(i) then
begin
MMouseItem(i);
GetMousePos(x, y);
if WaitUptext('Eat', 100) then
begin
Mouse(x, y, 0, 0, false);
if WaitOption('Eat', 100) then
begin
Writeln('Eating.')
t := GetSystemTime;
while ExistsItem(i) and ((GetSystemTime - t) < 2000) do
wait(20);
end;
Exit;
end;
end;
end;
end;
Never mind, what i had was working, i had conflicting vars.
Thanks tho!!
Gwag you got it fixed
~Rez
For the basics of the basics of pascal, try my TuT. ||Photoshop Editing ||MapleResourceDung Script || Book a flight! BuySellTrip
program new implements Eating;
Nah kidding, but this is what I used in a old script, eats lobs at bank
Simba Code:procedure Eat;
var
x, y, Tried: integer;
begin
if CurrentHP < EatAt then
begin
FindDTM(Lobster, X, Y, MSX1, MSY1, MSX2, MSY2);
Mouse(X, Y, 7, 7, false);
WaitOption('10', 1500);
Wait(1000 + random(200));
repeat
FindDTM(Lobster, X, Y, MIX1, MIY1, MIX2, MIY2);
Mouse(X, Y, 7, 7, false);
WaitOption('at', 1500);
Wait(1000 + random(200));
Inc(Tried);
Inc(lobstersEaten);
until (CurrentHP = TotalHP) or (Tried > 10)
if FindDTM(Lobster, X, Y, MIX1, MIY1, MIX2, MIY2)then
begin
Mouse(X, Y, 7, 7, false);
WaitOption('ll', 1500);
Wait(500 + random(200));
end;
end;
end;
Well I also noticed that the HPPercent is messed up too. At 86 HP my account has 500+% HP, so I had to set eating at ~200.
There are currently 1 users browsing this thread. (0 members and 1 guests)