pickup.phone
flip
Content:
@switch [u(mode)]=
ICC,{
 @pemit %0=You pick up the [fullname(me)].
 [set(me,PHONER:%0)]
 [set(me,MODE:CIP)]
 [set([u(INCOMING)],CONNECTED:[num(me)])]
 [set([u(INCOMING)],MODE:CIP)]
 [set(me,CONNECTED:[u(INCOMING)])]%r
 [showpicture(PICPICKUP)]%r
 Use '[color(green,black,psay -message-)]' (or '[color(green,black,p -message-)]') to talk into the phone.;
 @oemit %0=[fullname(%0)] picks up the [fullname(me)].;
 @pemit [u(INCOMING)]=You hear someone pick up.;
}
CIP,{You already are on the phone...},
{
 @pemit %0=You pick up the phone but no one is there. You hear a dialtone and then hang up. [play(u(DIALTONE))];
 @oemit %0=[fullname(%0)] picks up the phone, but no one is on the other end.
} 

One line version:

@switch [u(mode)]=ICC,{@pemit %0=You pick up the [fullname(me)].[set(me,PHONER:%0)][set(me,MODE:CIP)][set([u(INCOMING)],CONNECTED:[num(me)])][set([u(INCOMING)],MODE:CIP)][set(me,CONNECTED:[u(INCOMING)])]%r[showpicture(PICPICKUP)]%rUse '[color(green,black,psay -message-)]' (or '[color(green,black,p -message-)]') to talk into the phone.;@oemit %0=[fullname(%0)] picks up the [fullname(me)].;@pemit [u(INCOMING)]=You hear someone pick up.;}CIP,{You already are on the phone...},{@pemit %0=You pick up the phone but no one is there. You hear a dialtone and then hang up. [play(u(DIALTONE))];@oemit %0=[fullname(%0)] picks up the phone, but no one is on the other end.}