damage.level <- matrix(c(
1,0,5,
2,5,25,
3,25,75,
4,75,95,
5,95,100),
5,3,byrow=T,dimnames=list(NULL,c("score","lo","hi")))

plot(c(0,100),c(1,5),type="n",
	xlab="damage range (%)",ylab="score")
for (i in 1:5){
	lines(damage.level[i,c("lo","hi")],rep(damage.level[i,"score"],2))
}