n = 1000;

x = [1:n];
player = randi(8,[1,n]);

damask = [];
deldrimor = [];
elonian = [];

damask(1) = 4000 + (player(1)==1|player(1)==2|player(1)==3)*36 + (player(1)==4|player(1)==5|player(1)==6)*24 + (player(1)==7|player(1)==8)*25;
elonian(1) = 100 + (player(1)==1|player(1)==2|player(1)==3)*6 + (player(1)==4|player(1)==5|player(1)==6)*18;
deldrimor(1) = 1000 + (player(1)==7|player(1)==8)*16;

for i=2:n
    damask(i) = damask(i-1) + (player(i)==1|player(i)==2|player(i)==3)*36 + (player(i)==4|player(i)==5|player(i)==6)*24 + (player(i)==7|player(i)==8)*25;
    elonian(i) = elonian(i-1) + (player(i)==1|player(i)==2|player(i)==3)*6 + (player(i)==4|player(i)==5|player(i)==6)*18;
    deldrimor(i) = deldrimor(i-1) + (player(i)==7|player(i)==8)*16;
end

damask2 = [];
deldrimor2 = [];
elonian2 = [];

damask2(1) = 4000 + (player(1)==1|player(1)==2|player(1)==3)*36 + (player(1)==4|player(1)==5|player(1)==6)*24 + (player(1)==7|player(1)==8)*25;
elonian2(1) = 100 + (player(1)==1|player(1)==2|player(1)==3)*6 + (player(1)==4|player(1)==5|player(1)==6)*18;
deldrimor2(1) = 1000 + (player(1)==7|player(1)==8)*16;

for i=2:n
    damask2(i) = damask2(i-1) + ((player(i)==1|player(i)==2|player(i)==3)*18 + (player(i)==4|player(i)==5|player(i)==6)*6 + (player(i)==7|player(i)==8)*7) + (damask2(i-1)<elonian2(i-1)&damask2(i-1)<deldrimor2(i-1))*18;
    elonian2(i) = elonian2(i-1) + ((player(i)==1|player(i)==2|player(i)==3)*6 + (player(i)==4|player(i)==5|player(i)==6)*18) + (elonian2(i-1)<damask2(i-1)&elonian2(i-1)<deldrimor2(i-1))*18;
    deldrimor2(i) = deldrimor2(i-1) + ((player(i)==7|player(i)==8)*16) + (deldrimor2(i-1)<damask2(i-1)&deldrimor2(i-1)<elonian2(i-1))*18;
end

figure(1)
plot(x,[damask;elonian;deldrimor])
title('Current system')
xlabel('Number of players')
ylabel('Total Material Demand (units)')
legend('Bolt of Damask','Elonian Leather','Deldrimor Steel')

figure(2)
plot(x,[damask2;elonian2;deldrimor2])
title('Choosable insignia')
xlabel('Number of players')
ylabel('Total Material Demand (units)')
legend('Bolt of Damask','Elonian Leather','Deldrimor Steel')