Viewing paste dofall
made on Thu, 01 May 2014 16:46:33 -0400
Sane-itized version, click to copy:
&tr_do_fall zmo=th [setq(p,secure(%0))];@while falling(%qp)={th[setq(d,val(if(hasattr(loc(%qp),fall_delay),get(loc(%qp)/fall_delay),1)))][setq(l,objeval(%qp,u(loc(%qp)/fall_destination)))][setq(m,objeval(%qp,u(loc(%qp)/fall_message)))];@wait %qd={@if isdbref(%ql)={@tel %qp=%ql;@pemit %qp=%qm}}},th falling(%qp,,false)

Enter a target attribute, object reference and the mushcode.


th [setq(p,secure(%0))];@while falling(%qp)=
{
 th[setq(d,val(if(hasattr(loc(%qp),fall_delay),get(loc(%qp)/fall_delay),1)))]
  [setq(l,objeval(%qp,u(loc(%qp)/fall_destination)))]
  [setq(m,objeval(%qp,u(loc(%qp)/fall_message)))];@wait %qd=
  {
   @if isdbref(%ql)=
    {
     @tel %qp=%ql;@pemit %qp=%qm
    }
    
 }
 
},
th falling(%qp,,false)

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