ciptalk
flip
Content:
$psay *:
@ifelse [u(is,u(mode),CIP)]={
 @oemit %#=%N says into the [fullname(me)] receiver, "%0";
 @pemit %#=You say into the phone: "%0";
 @if [u(is,u([u(CONNECTED)]/mode),CIP)]={
    @remit [loc([u(CONNECTED)])]=A voice [ifelse(u(%#/sex),man's,woman's)] on the other end says: "%0";
 },
 {
   @oemit %#=%N says, "%0";
   @pemit %#=You say, "%0", but no one is on the other end.
 }
}

One line version:

$psay *:@ifelse [u(is,u(mode),CIP)]={@oemit %#=%N says into the [fullname(me)] receiver, "%0";@pemit %#=You say into the phone: "%0";@if [u(is,u([u(CONNECTED)]/mode),CIP)]={@remit [loc([u(CONNECTED)])]=A voice [ifelse(u(%#/sex),man's,woman's)] on the other end says: "%0";},{@oemit %#=%N says, "%0";@pemit %#=You say, "%0", but no one is on the other end.}}