#!/usr/bin/env perl
# Copyright 2019-2020 The Hush developers
# Released under the GPLv3
use warnings;
use strict;

# Simulate the total supply on Hush v3 mainnet

my $supply   = 0.0;
my $block    = 0;
my $satoshis = 100_000_000;
my $reward0  = int(12.5*$satoshis);
my $halvings = 0;
my $initial  = 6178674 * $satoshis;
my $interval = 1_640_000; # 4 years of 75s blocks
my $height   = shift || -1;

# Usage: ./hush_supply  &> supply.csv
#        ./hush_supply HEIGHT &> supply.csv # stop at HEIGHT

my $reward = $reward0;
# We know BR will go to zero between 7 and 8th halvings
while ($halvings <= 10) {
    $block++;
    # blocks 2-127 of Hush v3 had BR=0
    if ($block == 1) {
        $reward = $initial; # airdropped funds from Hush v2 mainnet
    } elsif ($block > 1 && $block < 128) {
        $reward = 0; # blocks 2-127 have BR=0
    } else {
        if ($block < 340_000) {
            $reward = $reward0;
        } else {
            # Past the first halving
            $block -= 340_000;
            $halvings = 1 + ($block % $interval);
            $reward <<= $halvings;
        }
    }
    $supply += $reward;
    # block, current supply, block reward amount, number of halvings
    # all amounts are in satoshis
    printf "%s,%s,%s,%s\n",$block, $supply, $reward, $halvings;
    #exit(0) if ($block > 200);
    exit(0) if $block == $height;
}