ExamineInv ~ Antiban.scar ~ R1ch

This is a nice little function which examines a random item in the inventory if it finds one. If it finds an item and examines it, then the function will return true. Please let me know what you think.

SCAR Code:

*******************************************************************************
function ExamineInv(FromI, ToI : Integer) Boolean;
By: R1ch
Description: Chooses a random item in the inventory to examine
*******************************************************************************}
function ExamineInv(FromI, ToI : Integer) Boolean;
var
  I, T : Integer;
  Poz : TIntegerArray;
  
begin
  if (InvEmpty or (not(LoggedIn))) then
    Exit;
  for I:= FromI to ToI do
    if ItemExists(I) then
      Poz[I]:= I;
  MouseItem(Random(Poz), False);
  Wait(500 + Random(1000);
  Result:=WaitOption('xamine', 50);
end;

Richard.

Hmmm, good idea actually. :)

GJ!

Woo! The first reply is a good one. That's always nice to see. Thanks Quickmarch.

Richard.

Good, Good:

SCAR Code:

*******************************************************************************
function ExamineInv(FromI, ToI : Integer) Boolean;
By: R1ch
Description: Chooses a random item in the inventory to examine
*******************************************************************************}
function ExamineInv(FromI, ToI : Integer) Boolean;
var
  I : Integer;
  Poz : TIntegerArray;
  
begin
  if (InvEmpty or (not(LoggedIn))) then
    Exit;
  for I:= FromI to ToI do
    if ItemExists(I) then
      Poz[i]:= I;
  MouseItem(Random(Poz), False);
  Wait(500 + Random(1000);
  Result := WaitOption('xamine', 50);
end;

Thanks Naum, it's the little changes that make it better. I'll change it int he first ost in a sec.

Richard.

Hey guys, shortened even more:

SCAR Code:

{*******************************************************************************
function ExamineInv(FromI, ToI : Integer) Boolean;
By: R1ch
Description: Chooses a random item in the inventory to examine
*******************************************************************************}
function ExamineInv(FromI, ToI : Integer): Boolean; var I : Integer; Poz : TIntegerArray; begin if (InvEmpty or (not(LoggedIn))) then Exit; for I:= FromI to ToI do if ExistsItem(I) then Poz[i]:= I; MouseItem(Poz[Random(Length(Poz))], False); Wait(500 + Random(1000)); Result := WaitOption('xamine', 50); end;

Ok, so sarcasm owns ^^.
Better?

Code:

---

{*******************************************************************************
function ExamineInv(FromI, ToI : Integer) Boolean;
By: R1ch
Description: Chooses a random item in the inventory to examine
*******************************************************************************}
function ExamineInv(FromI, ToI : Integer) Boolean;
var
  I : Integer;
  Poz : TIntegerArray;
begin
  if (InvEmpty or (not(LoggedIn))) then
    Exit;
  for I:= FromI to ToI do
  begin
    if ExistsItem(I) then
      Poz[i]:= I;
  end;
  MouseItem(Poz[Random(Length(Poz))], False);
  Wait(500 + Random(1000);
  Result := WaitOption('xamine', 50);
end;

---

Quote:

---

Originally Posted by Floor66

Hey guys, shortened even more:

SCAR Code:

{*******************************************************************************
function ExamineInv(FromI, ToI : Integer) Boolean;
By: R1ch
Description: Chooses a random item in the inventory to examine
*******************************************************************************}
function ExamineInv(FromI, ToI : Integer): Boolean; var I : Integer; Poz : TIntegerArray; begin if (InvEmpty or (not(LoggedIn))) then Exit; for I:= FromI to ToI do if ExistsItem(I) then Poz[i]:= I; MouseItem(Poz[Random(Length(Poz))], False); Wait(500 + Random(1000)); Result := WaitOption('xamine', 50); end;

Ok, so sarcasm owns ^^.
Better?

Code:

---

{*******************************************************************************
function ExamineInv(FromI, ToI : Integer) Boolean;
By: R1ch
Description: Chooses a random item in the inventory to examine
*******************************************************************************}
function ExamineInv(FromI, ToI : Integer) Boolean;
var
  I : Integer;
  Poz : TIntegerArray;
begin
  if (InvEmpty or (not(LoggedIn))) then
    Exit;
  for I:= FromI to ToI do
  begin
    if ExistsItem(I) then
      Poz[i]:= I;
  end;
  MouseItem(Poz[Random(Length(Poz))], False);
  Wait(500 + Random(1000);
  Result := WaitOption('xamine', 50);
end;

---

---

??, Also you needed to call the length, I forgot, thought it was not an array :(.

Ah, yes. I did the same Naum. I'll change that in a minute, after I've fixed a few bugs I found a minute ago.

EDIT: Okay guys. I would really appreciate some help with this. Whatever I do, I can't get it to to work.

Richard

i already have it in my script and it randomly cancel or examine:)

SCAR Code:

function WearingItemAntiBan(option:string):boolean; // xamine, ancel or random
var
v, i :integer;
z: tpoint;
begin
  if (InvEmpty or (not(LoggedIn))) then Exit;
  repeat
    v:= random(10)+1;
    if WearingItem(v) then
    begin
      z := EquipmentCoords(v);
      if option = 'random' then
      begin
        case Random(2) of
          0: option := 'xamin';
          1: option := 'ancel';
        end;
      end;
      mouse(z.x, z.y, 6, 6, false);
      wait(50+random(50));
      result := WaitOption('xamine', 200);
    end;
    Inc(i);
  until(i > 11)or result;
end;

Well

MouseItem(random(poz), false);

Is going to pick a random index of poz.

So lets say ItemsExists at index 2, 8, 17, 27. 4 spots. So poz length = 4.
Random(poz) will pick a 0,1,2,3 and only those possiblities. So when it picks 3, there is no item that exists there so what your trying to do will fail.

think about it a little bit. if you can't get it I will help more.

Do a

Writeln(IntToStr(Random(poz))); and see what your outcome is ;).

@My post:

SCAR Code:

MouseItem(Poz[Random(Length(Poz))], False);

well, i must say that you are using WaitOption wrong.

SCAR Code:

Wait(500 + Random(1000);
  Result:=WaitOption('xamine', 50);

WaitOption was made precisely to avoid the Wait(500+random(100));

SCAR Code:

if WaitOption('xamine', 800) then
begin
  wait(random(100));
  Result := true;
end;

also, by calling ExistsItem in a loop, you are doing continuous FindColorsTolerance, which is not quite so effective.

~RM

I added this to the openDev :)

Thanks, R1ch.

SCAR Code:

{*******************************************************************************
function ExamineInv(F, T : Integer) Boolean;
By: R1ch
Description: Chooses a random item in the inventory to examine
*******************************************************************************}
function ExamineInv(F, T: Integer) Boolean;
var
  i, c : Integer;
  p: TIntegerArray;
begin
  if (InvEmpty) or (not(LoggedIn)) or (not InRange(T - F, 0, 27)) then Exit;
  
  SetLength(p, T - F);
  c := 0;
  for i := F to T do
    if ItemExists(I) then
    begin
      p[c]:= I;
      Inc(c);
    end;
  MouseItem(p[Random(c)], False);
  Wait(100 + Random(200));;
  Result:=WaitOptionEx('xamine', 'action', ClickLeft, 300);
end;

Made it work ;)

Thanks Nava! Would anyone be interested in using this?

I guess I would. It's added to the open dev anyways already.