My script compiles perfectly fine, but some functions in the P07 include don't work.
I have some ore in my inventory,
Code:
writeln(P07_InvCount);
Just returns 0, even though there's things in my inventory.
Also
Does nothing.
Can someone help?
Code:
program EssMiner;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Const
TITLE = 'EssMiner'; //Do not change
AUTHOR = 'Trixie'; //Do not change
VERSION = '1.0a'; //Do not change
WEILDING = 'True'; //Are you weilding your axe? (true or false only!)
var
WieldAxe:Boolean;
EssCol1,EssCol2,x,y:Integer;
Procedure SaveColors;
Begin
//Change these to 2 colors of essence!
EssCol1 := 8487307;
EssCol2 := 8487307;
End;
Procedure DropEss;
Begin
if (WieldAxe = True) then
Begin
P07_DropAll;
End;
if (WieldAxe = False) then
Begin
P07_DropAllExcept([1]);
End;
MoveMouse(x ,y);
ClickMouse(x, y, 1);
End;
Procedure FindEss;
begin
If P07_FindObj(x, y, 'Rune Essence', EssCol1, 25) or
P07_FindObj(x, y, 'Rune Essence', EssCol2, 25) Then
Begin
writeln('we found it');
End;
End;
Procedure MineEss;
begin
if(P07_InvFull = True) Then
Begin
DropEss;
End;
End;
begin
x := 304
y := 89
//You needn't touch this part, it's to check if you are holding your axe or not
if (StrToBool(WEILDING) = True) then
Begin
WieldAxe := True
End;
if (StrToBool(WEILDING) = False) then
Begin
WieldAxe := False
End;
//End of axe hold check
//MoveMouse(x, y);
//Wait(10);
//ClickMouse(x, y, 1);
Writeln(P07_InvCount);
Repeat
//MineEss;
Until(false);
end.
(I commented out some lines to find out why it wasn't dropping my items)
Thanks