`switch(r, 1, 800, 2, 600, 3, 550, 4, 500, 5, 450, 6, 400, 7, 350, 8, 300, 9, 275, 10, 250, 11, 225, 12, 200, 13, 175, 14, 150, 15, 125, 16, 100) + (n * 10)`

You didn't say whether or not the bonus points apply to everyone who plays or just the top 16 players. The formula above awards it to everyone. If it should only be the top 16, then the formula would be:

`switch(r, 1, 800, 2, 600, 3, 550, 4, 500, 5, 450, 6, 400, 7, 350, 8, 300, 9, 275, 10, 250, 11, 225, 12, 200, 13, 175, 14, 150, 15, 125, 16, 100) + if(r < 17, (n * 10))`

Or here's the way to do it without a "switch":

`if(r < 17, max((20-r) * 25) + max(0, (8-r) * 25) + max(0, (2-r) * 150) + (n * 10))`