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