SCAR Code:
procedure DropBmpOres;
var
TheOre : LongInt;
Num : integer;
begin
srl_LoadBitmapRange(0, 9);
case(LowerCase(Players[CurrentPlayer].Strings[1]))of
'old clay', 'new clay': TheOre := bmp_Ore_Clay;
'old tin', 'new tin': TheOre := bmp_Ore_Tin;
'old copper', 'new copper': TheOre := bmp_Ore_Copper;
'old iron', 'new iron': TheOre := bmp_Ore_Iron;
'old coal', 'new coal': TheOre := bmp_Ore_Coal;
'new gold': TheOre := bmp_Ore_Gold;
'new silver': TheOre := bmp_Ore_Silver;
'old mith', 'new mith': TheOre := bmp_Ore_Mithril;
'old mithril', 'new mithril': TheOre := bmp_Ore_Mithril;
'old addy', 'new addy': TheOre := bmp_Ore_Adamant;
'old adamant', 'new adamant': TheOre := bmp_Ore_Adamant;
end;
Num := CountItems(TheOre, 'bmp', [10]);
IncEx(Dropped, Num);
Wait(20);
ClickAllItems(TheOre, 'bmp', 'rop', 300+Random(300), [10]);
Inc(Loads);
srl_FreeBitmaps;
end;
This isnt counting any of the ores, could someone help? I also tried 'bmp mask' instead of 'bmp'.