SCAR Code:
function DropTheStuff: boolean;
var
i , ii: integer;
begin
MithDTM:= DTMFromString('78DA637461606038C780021C1CE3184480342' +
'310FF0702C62020E318031A60442281B427903844408D13903848' +
'408D29A67BB0AAB946845D7708A8F123C21C90DFCFE057030046A' +
'30EB0');
AddyDTM:= DTMFromString('78DA6374656060D0646440069E315E0C22401' +
'A24FA1F081803810C05543510591809A40380840101354E40C29C' +
'801A3320A14E408D03909025A0C693B01A0010E60813');
IronDTM:= DTMFromString('78DA633CC4C4C0F0940105F819AA328800694' +
'620FE0F048CFB30D540646124903E0854F38A809AA340352F08A8' +
'01D9F589809A8D4035CF09A8D90D547393809A6340353708A8390' +
'754F388809A5340356FF0AB0100BA0D1568');
CoalDTM:= DTMFromString('78DA639CC6C4C0F08C01059899A9328800694' +
'620FE0F048C8B816A6E33A001462412482F02AA794D40CD64A09A' +
'4F04D4B403D5BC2042CD13026A2601D5DC20A0A61BA8E61E7E350' +
'0164F1082');
CopperDTM:= DTMFromString('78DA6374656260E060644006B7EA2D1944803' +
'448F43F10300602D530A2AA81C8C24820ED03542340408D3D508D' +
'180135C64035DC04D4D801D5FC61C0AFC683B01A008E8109D6')
TinDTM:= DTMFromString('78DA637463606058C58002BA9B1A194480342' +
'310FF0702C620206301031A60442281740090584F408D3390D846' +
'408D3990D848408D0590584C408D2390984D408D079098835F0D0' +
'05B190D13');
Repeat
If FindDTM(MithDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
If FindDTM(AddyDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
If FindDTM(IronDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
If FindDTM(CopperDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
If FindDTM(TinDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
If FindDTM(CoalDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,0,0,False);
ChooseOption('Drop');
end;
For i := 0 to 27 do //or 1 to 27 if pick not weilded
Begin
If ExistsItem(i) then
ii := ii + 1;
end;
Until ii <= 0;
end;