Viewing paste hangup2
made on Mon, 04 Mar 2013 23:56:39 -0500
Sane-itized version, click to copy:
&hangup flip=$hang up:@switch [u(mode)]=ICC,{@pemit [u([u(INCOMING)]/PHONER)]=It sounds like the other side hung up.;@tr [u(INCOMING)]/reset;@oemit %#=%N picks up and hangs up immediately.;@pemit %#=You pick up and hang up immediately.[setq(t,[u(INCOMING)])][set(%qt,CONNECTING:)][set(%qt,MODE:WFC)][set(me,MODE:WFC)][set(me,INCOMING:)];@tr me/reset;},CIP,{@pemit %#=You hang up.;@oemit %#=%N hangs up.;@pemit [u(u(CONNECTED)/PHONER)]=The other side hung up.;@tr [u(CONNECTED)]/reset;@emit [set(u(CONNECTED),CONNECTED:)][set(me,CONNECTED:)];@tr me/reset;},DTVM,{@pemit %#=You decided to hang up.;@oemit %#=%N decides to hang up.;@tr me/reset;},WFC,{@pemit %#=The phone is already hung up.}

Enter a target attribute, object reference and the mushcode.


$hang up:
 @switch [u(mode)]=ICC,{
  @pemit [u([u(INCOMING)]/PHONER)]=It sounds like the other side hung up.;
  @tr [u(INCOMING)]/reset;
  @oemit %#=%N picks up and hangs up immediately.;
  @pemit %#=You pick up and hang up immediately.
  [setq(t,[u(INCOMING)])]
  [set(%qt,CONNECTING:)]
  [set(%qt,MODE:WFC)]
  [set(me,MODE:WFC)]
  [set(me,INCOMING:)];
  @tr me/reset;
 },
 CIP,{
  @pemit %#=You hang up.;
  @oemit %#=%N hangs up.;
  @pemit [u(u(CONNECTED)/PHONER)]=The other side hung up.;
  @tr [u(CONNECTED)]/reset;
  @emit [set(u(CONNECTED),CONNECTED:)][set(me,CONNECTED:)];
  @tr me/reset;
 },
 DTVM,{
  @pemit %#=You decided to hang up.;
  @oemit %#=%N decides to hang up.;
  @tr me/reset;
 },
 WFC,{
  @pemit %#=The phone is already hung up.
 }

save as: imprettify (attempt to format for readibility):
Found this useful? Try MUSHcode Repeater
written by orcs.biz