Viewing paste dialphone
made on Mon, 04 Mar 2013 23:11:44 -0500
Sane-itized version, click to copy:
&dial.phone flip=@pemit %#=[set(me,phoner:%#)]You dial %0[ufun(dialfun,%0)] on [fullname(me)].;@oemit %#=%N dials[ufun(dialfun,%0)] on [fullname(me)].;@wait 5={@switch [ufun(routecall,[u(findphone,ufun(sanenumber,%0))])]=1,{@pemit %#=[u(MSGWRONG)];@wait 5={@tr me/reset};},2,{@pemit %#=[u(MSGBUSY)];@wait 5={@tr me/reset};},3,{@ifelse [u(phonehasvmb,u(findphone,ufun(sanenumber,%0)))]={@tr me/ROUTEVMB=[u(findphone,ufun(sanenumber,%0))];},{@pemit %#=[u(MSGBUSY)];@wait 5={@tr me/reset};}},4,{@tr me/CALL=[ufun(sanenumber,%0)],[u(findphone,ufun(sanenumber,%0))]}}

Enter a target attribute, object reference and the mushcode.


@pemit %#=[set(me,phoner:%#)]You dial %0[ufun(dialfun,%0)] on [fullname(me)].;
@oemit %#=%N dials[ufun(dialfun,%0)] on [fullname(me)].;
@wait 5={
 @switch [ufun(routecall,[u(findphone,ufun(sanenumber,%0))])]=
1,{
 @pemit %#=[u(MSGWRONG)];
 @wait 5={@tr me/reset};
},
2,{
 @pemit %#=[u(MSGBUSY)];
 @wait 5={@tr me/reset};
},
3,{
 @ifelse [u(phonehasvmb,u(findphone,ufun(sanenumber,%0)))]={
  @tr me/ROUTEVMB=[u(findphone,ufun(sanenumber,%0))];
 },{
  @pemit %#=[u(MSGBUSY)];
  @wait 5={@tr me/reset};
 }
},
4,{
 @tr me/CALL=[ufun(sanenumber,%0)],[u(findphone,ufun(sanenumber,%0))]
 }
}

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