I'm sorry man, but I had to clean it up.. It was annoying me..
I'll test when I get home, cuz Java's blocked here in school.
SCAR Code:
program New;
{.include SRL/SRL.scar}
var
i, x, y, DTM, Clay, Tin, Copper, Iron, Silver, Coal, Gold, Mithril, Adamant, Rune: integer;
Ore: string;
procedure DeclareDTMs;
begin
Clay := DTMFromString('78DA6364616160B8CAC8800C2654053170016' +
'990E87F20606405AA3987AA06220B2381342F50CD15026A18816A' +
'6E1350F39B19C33DE86A000D8A0AC2');
Tin := DTMFromString('78DA6334646160B8CAC8800C7A9A9B18B8803' +
'448F43F1030EA03D5DC47550391859140DA1AA8E6320135464035' +
'C709A891C7740FBA1A006BA50ACE');
Copper := DTMFromString('78DA638C666160B8CAC8800CEED45B3270016' +
'990E87F20604C07AAB980AA06220B2381742450CD03026A3C816A' +
'AE1050130154731CBF1A00C4420B9E');
Iron := DTMFromString('78DA636C616160B8C4C8800C3C759518B8803' +
'448F43F10303601D53C445503918591407A0250CD45026A4A30ED' +
'C25003B2EB047E35007C680B70');
Silver := DTMFromString('78DA6364656160F8CEC8800C66CF5ECEC005A' +
'441A2FF81809119A88695890115302291405A04A8E633237E355F' +
'9931ECC250C30E34E7357E350043290AF4');
Coal := DTMFromString('78DA6334646160F8CEC8800C2C2DD519B8803' +
'448F43F1030DA01D57C46550391859140DA08A8E6350135BA4035' +
'AC4CF8D5C803D5FCC46F0E00D26B0988');
Gold := DTMFromString('78DA638C626160F8C9C8800CAEAD9766E002D' +
'220D1FF40C0980154F319550D44164602E918A09AD704D47862DA' +
'85A12612A8869909AF1A00EF290B62');
Mithril:= DTMFromString('78DA636C616160F8CEC8800CBC7DF219B8803' +
'448F43F10304E04AAF982AA06220B2381743D50CD2B026A1A816A' +
'5899F0AB2901AAF986DF1C00C13E0B8E');
Adamant:= DTMFromString('78DA63646361609061624006FEC9FE0C5C409' +
'A1188FF0301A300A61A882C8C04D2EC4035FC04D47C65266C0E13' +
'D01C4DFC6A0087FC06D3');
Rune := DTMFromString('78DA6334646160906662400681D9E50C5C409' +
'A1188FF0301A30D508D14AA1A882C8C04D2464035FC04D4E802D5' +
'681250230F5423835F0D00BC5606DA');
for i:= 1 to 10 do
begin
case i of
1: Ore:= 'Clay';
2: Ore:= 'Tin ore';
3: Ore:= 'Copper ore';
4: Ore:= 'Iron ore';
5: Ore:= 'Silver ore';
6: Ore:= 'Coal';
7: Ore:= 'Gold ore';
8: Ore:= 'Mithril ore';
9: Ore:= 'Adamantite ore';
10: Ore:= 'Runite ore';
end;
case i of
1: DTM:= Clay;
2: DTM:= Tin;
3: DTM:= Copper;
4: DTM:= Iron;
5: DTM:= Silver;
6: DTM:= Coal;
7: DTM:= Gold;
8: DTM:= Mithril;
9: DTM:= Adamant;
10: DTM:= Rune;
end;
Writeln('Testing ' + Ore + '...');
If(FindDTM(DTM, x, y, 0, 0, 2000, 1000)) then
begin
MMouse(x, y, 3, 3);
If(not(IsUpTextMultiCustom([Ore, 'se']))) then
begin
WriteLN('Failed.');
end;
If(IsUpTextMultiCustom([Ore, 'se'])) then
begin
WriteLN('Success!');
Mouse(x, y, 3, 3, True);
Wait(randomrange(450, 800));
Mouse(x, y, 3, 3, True);
end;
Wait(randomrange(1000, 2000));
end;
If(not(FindDTM(DTM, x, y, MIX1, MIY1, MIX2, MIY2))) then
begin
WriteLN('Failed.');
end;
end;
end;
begin
ActivateClient;
SetupSRL;
Wait(2000);
DeclareDTMs;
end.