SCAR Code:
{.include SRL/SRL.scar}
Var
TiaraDTM, SilverBarDTM, SilverOreDTM, TiaraCount: Integer;
Procedure LoadDTMs;
Begin
SilverOreDTM := DTMFromString('78DA63CC63626008646440062B576E651001D' +
'220D1FF40C0980F54E383AA06220B23817416508D3F01352073C2' +
'08A82906AA09C2AF060028A709F2');
SilverBarDTM := DTMFromString('78DA63CC65626078C880023A3A26338800694' +
'620FE0F048C8540356F19D000231209A4E3816A5E1050930D5473' +
'9B809A4AA09AFB04D4A401D5BCC3AF0600F7D60DB6');
TiaraDTM := DTMFromString('78DA63CC61626078CD8002162E5CCB2002A41' +
'981F83F103082D4BC6540038C48249006A97944404D1250CD4B02' +
'6A8A806A9E13A1E60D7E35003D1D0E1D');
End;
Procedure Freeing;
Begin
FreeDTM(SilverOreDTM);
FreeDTM(SilverBarDTM);
FreeDTM(TiaraDTM);
End;
Function CountingTiara: Integer;
Var
X, Y: Integer;
Begin
Result := 0;
FFlag(0);
If FindDTM(TiaraDTM, X, Y, MIX1, MIY1, MIX2, MIY2) Then
Begin
TiaraCount := TiaraCount + ItemAmount('inv', 'dtm', TiaraDTM, []);
Result := TiaraCount;
WriteLn('Tiaras := ' + IntToStr(Result) + '.');
Exit;
End;
WriteLn('Did Not Find Any Tiaras.');
End;
begin
SetupSRL;
ActivateClient;
Wait(250 + RandomRange(100, 500));
LoadDTMs;
CountingTiara;
Freeing;
End.
this says out of range in line 120 in amount.scar when i run it