Something like this would do:
Fill the oreTypes array with all types of stuff you need to drop (find it with ,info command). Dont forget to change oreTypeCount to count of elements in the array.
Code:
sub dropOres()
dim oreTypes[50]
oreTypes[0] = '0x1234'
oreTypes[1] = '0x2345'
var oreTypeCount = 2
var i
for i=0 to oreTypeCount-1
UO.FindType(oreTypes[i],-1,'my')
while (UO.FindCount())
UO.DropHere('finditem')
if (UO.FindCount() > 1) then
wait(500)
endif
UO.FindType(oreTypes[i],-1,'my')
wend
endfor
endsub