Sorry if this has already been made, but i just wanted to test my skillz (
).
Its called 'InvFinds.scar'
SCAR Code:
{*******************************************************************************
Check for the faulty rod (misxster05, THANKS!)
********************************************************************************}
Function CheckRod(Var slot: Integer): Boolean;
Var
i: Integer;
Begin
For i:= 1 To 4 Do
Begin
If(ExistsItem(i)) Then
Begin
MMouseItem(i);
If(IsUpText('ishing rod')) and IsUpText('ait') Then
Begin
Result:= True;
slot:= i;
Exit;
End;
End;
End;
End;
{*******************************************************************************
Check for a faulty harpoon (misxster05, THANKS!)
********************************************************************************}
Function CheckHarpoon(Var slot: Integer): Boolean;
Var
i: Integer;
Begin
For i:= 1 To 4 Do
Begin
If(ExistsItem(i)) Then
Begin
MMouseItem(i);
If(IsUpText('arpoon')) Then
Begin
Result:= True;
slot:= i;
Exit;
End;
End;
End;
End;
{*******************************************************************************
Check for a faulty cage (misxster05, THANKS!)
********************************************************************************}
Function CheckCage(Var slot: Integer): Boolean;
Var
i: Integer;
Begin
For i:= 1 To 4 Do
Begin
If(ExistsItem(i)) Then
Begin
MMouseItem(i);
If(IsUpText('cage')) Then
Begin
Result:= True;
slot:= i;
Exit;
End;
End;
End;
End;
{*******************************************************************************
Check for a faulty net (misxster05, THANKS!)
********************************************************************************}
Function CheckNet(Var slot: Integer): Boolean;
Var
i: Integer;
Begin
For i:= 1 To 4 Do
Begin
If(ExistsItem(i)) Then
Begin
MMouseItem(i);
If(IsUpText('ishing')) and IsUpText('net') Then
Begin
Result:= True;
slot:= i;
Exit;
End;
End;
End;
End;
{*******************************************************************************
End
********************************************************************************}
misxsterx06 made the CheckRod, i made these others 
Please post any things that make it better and work 10/10