// rEvolt functions.
// Description:
//    Mining functions.
//
// Called after you kill a mineral to check mining skill and optionally giving +ore

function	script	mining	{
    if (!LVL_MINE) return;
    // It works essentially the same to hunting, but only with minerables
    // At mining level 100, you always get an extra mining loot
    if (rand2(100) >= LVL_MINE) return;
    // default loot: <array: 0, {[loot, probability]..}>
    setarray .@loot_id,
        Coal, 500,
        IronOre, 240,
        TreasureKey, 110,
        GoldNuggets, 80,
        DiamondShard, 16,
        SilverOre, 15,
        RubyShard, 12,
        CopperOre, 10,
        TopazShard, 9,
        EmeraldShard, 8,
        AmethystShard, 7,
        GoldOre, 6,
        TerraniteOre, 5,
        SapphireShard, 5,
        DiamondPowder, 4,
        RubyPowder, 4,
        EmeraldPowder, 4,
        SapphirePowder, 4,
        TopazPowder, 4,
        AmethystPowder, 4,
        PlatinumOre, 3,
        RotoniumOre, 2,
        CrudeDiamond, 2,
        CrudeRuby, 2,
        CrudeEmerald, 2,
        CrudeSapphire, 2,
        CrudeTopaz, 2,
        CrudeAmethyst, 2,
        ZealiteOre, 1;

	.@drop = relative_array_random(.@loot_id);
	getmapxy(.@m$, .@x, .@y, 0);
	makeitem(.@drop, 1, .@m$, .@x, .@y);
    return;
}