Not finding full inv and stopping script

[rsutton]

{$DEFINE RS2}

{$DEFINE OSI_Color_Anti_Randoms}

{$I OSI\OSI.scar}

{$I OSI\RS2\Extended\Object.Scar}

 

//{$DEFINE SMART} // Comment out to disable SMART

var

Bx, By,i, Minedtimes : Integer;

procedure ScriptTerminate;

begin

FreeOSI;

end;

 

 

procedure Miner;

begin

if FindObjSize(bx, by, 9342619{color}, 17{Tol}, 32{x}, 35{y}, ['mine', 'ine', 'Rocks', 'ocks']) then

begin

GetMousePos(bx, by);

Mouse(bx, by, 1, 0, True);

OSIFindRandoms;

Wait(5000);

// make a check if item just incremented inventory ( just mined ore )

end;

end;

 

begin

repeat

SetUpOSI;

ActivateClient;

Miner;

until (InvFull) = True;

end.

 

 

 

 

Just keeps running after my inventoiry is full

 

---------- Post added at 01:17 AM ---------- Previous post was at 12:43 AM ----------

 

plenty of people viewing, no one answering lol

[FHannes]

Can't you use InvFull?

[rsutton]

I did in the until loop at bottom, it just is not catching nad stopping

 

---------- Post added at 02:50 AM ---------- Previous post was at 01:24 AM ----------

 

Just still sitting here waiting for 1 out of the 2 people who knows how the osi works...

 

---------- Post added at 03:25 AM ---------- Previous post was at 02:50 AM ----------

 

Ok Once i used it with SMART it worked.... is there any sense in this ?

[wyn10]

You could do something like this...

 

{$DEFINE RS2}
{$DEFINE OSI_Color_Anti_Randoms}
{$I OSI\OSI.scar}
{$I OSI\RS2\Extended\Object.Scar}

//{$DEFINE SMART} // Comment out to disable SMART
var
 Bx, By,i, Minedtimes : Integer;
procedure ScriptTerminate;
begin
 FreeOSI;
end;


procedure Miner;
begin
 repeat
   if FindObjSize(bx, by, 9342619{color}, 17{Tol}, 32{x}, 35{y}, ['mine',
     'ine', 'Rocks', 'ocks']) then GetMousePos(bx, by);
   Mouse(bx, by, 1, 0, True);
   OSIFindRandoms;
   Wait(5000)
 until (InvFull);
{Repeat so it doesn't stop after only mining one ore. Stops when full }
 If (InvFull) then DropAllExclude([0]);
 //Drops all but first inventory slot
end;

begin
   SetUpOSI;
   ActivateClient;
 repeat
   Miner;
 until (Not (LoggedIn));
end.

Edited December 18, 2011 by wyn10

[rsutton]

I love wyn, he helps me out the most while i learn this scripting language. thanks bro

[mormonman]

wyn why would you setup osi and activate the client every load? I suggest removing those from the loop.

[wyn10]

wyn why would you setup osi and activate the client every load? I suggest removing those from the loop.

 

 

I only copied what he had in his first post and edited to what he questioned.

 

I will change it now.