previousrpp = P.rptotal+P.storedrpp
					switch(input("How would you rank this RP?", "Assess Player") as null|anything in list("Okay","Average","Good","Exceptional","Clear"))
						if("Okay")
							if(previousrpp == 0)
								quality = 8
							if(previousrpp >= 0)
								quality = 5
							if(previousrpp >= 50)
								quality = 3
							if(previousrpp >= 100)
								quality = 2
							if(previousrpp >= 120)
								quality = 1
							if(previousrpp >= 150)
								quality = 0.5
							if(previousrpp >= 200)
								quality = 0.05
							if(previousrpp >= 230)
								quality = 0.01
							if(previousrpp >= 250)
								quality = 0.001
							textquality = "Okay"
						if("Average")
							if(previousrpp == 0)
								quality = 10
							if(previousrpp >= 0)
								quality = 6
							if(previousrpp >= 50)
								quality = 5
							if(previousrpp >= 100)
								quality = 4
							if(previousrpp >= 120)
								quality = 3
							if(previousrpp >= 150)
								quality = 2
							if(previousrpp >= 200)
								quality = 0.125
							if(previousrpp >= 230)
								quality = 0.05
							if(previousrpp >= 250)
								quality = 0.01
							textquality = "Average"
						if("Good")
							if(previousrpp == 0)
								quality = 15
							if(previousrpp >= 0)
								quality = 10
							if(previousrpp >= 50)
								quality = 7
							if(previousrpp >= 100)
								quality = 5
							if(previousrpp >= 120)
								quality = 4
							if(previousrpp > 150)
								quality = 3
							if(previousrpp >= 200)
								quality = 0.24
							if(previousrpp >= 230)
								quality = 0.125
							if(previousrpp >= 250)
								quality = 0.05
							textquality = "Good"
						if("Exceptional")
							if(previousrpp == 0)
								quality = 20
							if(previousrpp >= 0)
								quality = 15
							if(previousrpp >= 50)
								quality = 10
							if(previousrpp >= 100)
								quality = 6
							if(previousrpp >= 120)
								quality = 5
							if(previousrpp >= 150)
								quality = 4
							if(previousrpp >= 200)
								quality = 0.25
							if(previousrpp >= 230)
								quality = 0.15
							if(previousrpp >= 250)
								quality = 0.15
							textquality = "Exceptional"
						if("Clear")
							adminlog("[agewarning][key] cleared [P.name] ([P.key])'s unread count <b>without rewarding</b>.  ([P.unreadrps]U/[P.unreadrp_letters]L, cleared)",1)
							P.SaveCharacter(P.ckey)
							src << output(0, "assess.UnreadRPs")
							fdel("logs/chat/unreads/[P.ckey].html")
							P.loadUnreadLog()
							P.unreadlog("{[agewarning][key] cleared [P.name] ([P.key])'s unread count <b>without rewarding</b>. ([P.unreadrps]U/[P.unreadrp_letters]L, cleared)}",1)

							P.unreadrps=0
							P.unreadrp_letters = 0

							src << browse(file("logs/chat/unreads/[P.ckey].html"), "window=AssessBrowser")
							return
						if("Cancel")
							return
					switch(input("What activities occured during this RP?", "Assess Player") as null|anything in list("Casual/Slice of Life","Interesting Casual/Mild Plot","Character Dev/Mild Risk","High Risk","Clear"))
						if("Casual/Slice of Life")
							if(previousrpp == 0)
								category = 8
							if(previousrpp >= 0)
								category = 4
							if(previousrpp >= 50)
								category = 3
							if(previousrpp >= 100)
								category = 2
							if(previousrpp >= 120)
								category = 1
							if(previousrpp >= 150)
								category = 1
							if(previousrpp >= 200)
								category = 0
							if(previousrpp >= 230)
								category = 0
							if(previousrpp >= 250)
								category = 0
							textcategory="Casual/Slice of Life"
						if("Interesting Casual/Mild Plot")
							if(previousrpp == 0)
								category = 10
							if(previousrpp >= 0)
								category = 8
							if(previousrpp >= 50)
								category = 5
							if(previousrpp >= 100)
								category = 3
							if(previousrpp >= 120)
								category = 2
							if(previousrpp >= 150)
								category = 1
							if(previousrpp >= 200)
								category = 0
							if(previousrpp >= 230)
								category = 0
							if(previousrpp >= 250)
								category = 0
							textcategory="Interesting Casual/Mild Plot"
						if("Character Dev/Mild Risk")
							if(previousrpp == 0)
								category = 15
							if(previousrpp >= 0)
								category = 10
							if(previousrpp >= 50)
								category = 7
							if(previousrpp >= 100)
								category = 5
							if(previousrpp >= 120)
								category = 4
							if(previousrpp >= 150)
								category = 2
							if(previousrpp >= 200)
								category = 0.24
							if(previousrpp >= 230)
								category = 0.125
							if(previousrpp >= 250)
								category = 0.05
							textcategory="Character Dev/Mild Risk"
						if("High Risk")
							if(previousrpp == 0)
								category = 25
							if(previousrpp >= 0)
								category = 15
							if(previousrpp >= 50)
								category = 12
							if(previousrpp >= 100)
								category = 10
							if(previousrpp >= 120)
								category = 8
							if(previousrpp >= 150)
								category = 5
							if(previousrpp >= 200)
								category = 0.5
							if(previousrpp >= 230)
								category = 0.25
							if(previousrpp >= 250)
								category = 0.125
							textcategory="High Risk"