proc
			Answered()
				for(var/obj/items/Phone/P)
					if(P.calling == src.number)
						var/mob/C = locate(/mob) in oview(P,1)
						var/mob/R = locate(/mob) in oview(src,1)
						reply
						var/help = input(C,"What would you like to say?","") as null|text
						if(help)
							R <<"[html_encode(help)]"
							var/option = input(R,"Now what?","") in list("Answer","Hang Up")
							switch(option)
								if("Answer")
									var/help2 = input(C,"What would you like to say?","") as null|text
									if(help2)
										C <<"[html_encode(help2)]"
										var/option2 = input(C,"Now what?","") in list("Answer","Hang Up")
										switch(option2)
											if("Answer")
												goto reply
												
											if("Hangup")
												C <<"You hang up."
												R <<"The line goes dead."
												goto Hangup
									else
										goto Hangup
								
								if("Hang Up")
									R <<"You hang up."
									C <<"The line goes dead."
						else
							Hangup
							R.locked = 0
							C.locked = 0
							P.calling = null
							src.answered = 0