Floor66
02-11-2008, 04:36 PM
Sorry if this has already been made, but i just wanted to test my skillz (:p).
Its called 'InvFinds.scar'
{************************************************* ******************************
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 :)
Its called 'InvFinds.scar'
{************************************************* ******************************
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 :)