Viewing paste hangup
made on Mon, 04 Mar 2013 22:17:07 -0500
Sane-itized version, click to copy:
&hangup flip=$hang up:@switch [u(mode)]=ICC,{@pemit [u(INCOMING)]=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.;@tr [u(CONNECTED)]/reset;@pemit [u(CONNECTED)]=The other side hung up.;@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(INCOMING)]=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.;
 @tr [u(CONNECTED)]/reset;
 @pemit [u(CONNECTED)]=The other side hung up.;
 @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