SCAR Code:
Function PowerMine:Boolean;
Var
Rx,Ry,Ex,Ey : Integer;
TempCount : Integer;
Begin
If FindOre(OreTol) Then
Begin
TempCount := InvCOunt;
Result := True;
If FindObjOre(Rx, Ry, 'Mine', OreColor, OreTol, TheMinCount(NewOres)) Then
Begin
H:=0;
If Not GasCheck(Rx, Ry) Then
Begin
If Random (20) < 18 Then
Begin
FTWait(1)
handletrade;
Mouse(Rx, Ry, 0, 0, True);
RamsGas;
End
Else
Begin
Mouse(Rx, Ry, 0, 0, False);
ChooseOption(Ex, Ey, 'ine');
End;
If (FlagPresent) Then
Begin
Flag;
Wait(500+Random(500));
End;
MarkTime(Mark);
While Not ((TimeFromMark(Mark) > (1000 * SecondsToWait)) Or (TempCount <> InvCOunt)) Do
Begin
If GasCheck(Rx, Ry) Then Begin Mouse(MMCX, MMCY, 2, 2, True); Wait(5001+Random(5001)); End;
Wait(50);
FindRandoms;
End
End
Else Wait(10000+Random(5000));
End;
End
Else If H>2 Then H:=0;
end;
Procedure CountThem;
Begin
Players[CurrentPlayer].Integer2:= Players[CurrentPlayer].Integer2+
CountItemBmpMaskTol(OreMask, 20, 25);
Players[CurrentPlayer].Integer2:= Players[CurrentPlayer].Integer2+
CountItemBmpTol(Clay, 10);
Ores:=Ores+CountItemBmpMaskTol(OreMask, 20, 25);
Ores:=Ores+CountItemBmpTol(Clay, 10);
End;
wats the update for find ore i get the find ore error im using srl 4.0 to update it