Viewing paste OROM
made on Tue, 27 Jan 2015 22:22:28 -0500
Sane-itized version, click to copy:
&OROM master=[setq(1,[u(#6896/M_%0_NAME)])][setq(T,[pick(u(playing))])][setq(c,[u(char.of,%qT)])][setq(2,[u(#6896/M_%0_ATTACK,[u(mygradient,[u(%qc/FIRST)])])])][setq(S,[u(#6896/M_%0_SKILL)])][setq(3,[u(#6896/M_%0_DAMAGE)])][setq(l,[fdiv(rand(0,10000),10000)])][setq(m,[mul(%ql,[log(%qS)])])][setq(n,[u(%qc/FIRST)])][setq(h,[gt(rand(0,100),[add(u(%qc/DEFENSE),u(%qc/DEX))])])][if(lt(u(damaged),100),{[ifelse([and(gt(mul(%qm,100),40),%qh)],{[setq(d,[add(1,round(mul(%qm,%q3),0))])][ifelse(gt(u(%qc/MOD.DEFENSE),0),{[setq(e,[sub(u(%qc/MOD.DEFENSE),%qd)])][ifelse(gte(%qe,0),{[emit(%q2%r[u(%qc/FIRST)]'s armor deflects [color(red,52,%qd damage)]!)][set(%qc,MOD.DEFENSE:%qe)]},{[setq(f,[abs(%qe)])][set(%qc,MOD.DEFENSE:0)][emit(%q2%r%qN's armor deflects [color(red,52,[sub(%qd,%qf)] damage)]!)][emit(However[c(44)] %q1 does [color(red,52,%qf damage)] to [u(mygradient,%qN)]!)][play(M[switch(rand(0,3),0,F,1,B,2,X,X)]O1L16DDDL4DMFO3DDGE)][set(%qc,HITPOINTS:[sub(u(%qc/HITPOINTS),%qf)])][if([lte(u(%qc/HITPOINTS),div(u(%qc/HITPOINTS.MAX),3))],{[emit([color(red,black,%qN IS IN DANGER OF DYING)])]})][if(lte(u(%qc/HITPOINTS),0),[emit([ucstr(%qN)] HAS DIED! [play(MFO3AMBO3CMFO3G)])]%r[u(%qc/DIED,%qT,%qC)])]})]},{[emit(%q2%r%q1 does [color(red,52,%qd damage)] to [u(mygradient,%qN)]!)][play(M[switch(rand(0,3),0,F,1,B,2,X,X)]O1L16DDDL4D)][set(%qc,HITPOINTS:[sub(u(%qc/HITPOINTS),%qd)])][if([lte(u(%qc/HITPOINTS),div(u(%qc/HITPOINTS.MAX),3))],{[emit([color(red,black,%qN IS IN DANGER OF DYING)])]})][if(lte(u(%qc/HITPOINTS),0),[emit([ucstr(%qN)] HAS DIED! [play(MFO3AMBO3CMFO3G)])]%r[u(%qc/DIED,%qT,%qC)])]})]},{[emit(%q1 misses %qN.)]})]})][if(lte(words(u(playing)),0),[set(me,party.mode:travelling)])]

Enter a target attribute, object reference and the mushcode.


[setq(1,[u(#6896/M_%0_NAME)])]
[setq(T,[pick(u(playing))])]
[setq(c,[u(char.of,%qT)])]
[setq(2,[u(#6896/M_%0_ATTACK,[u(mygradient,[u(%qc/FIRST)])])])]
[setq(S,[u(#6896/M_%0_SKILL)])]
[setq(3,[u(#6896/M_%0_DAMAGE)])]
[setq(l,[fdiv(rand(0,10000),10000)])]
[setq(m,[mul(%ql,[log(%qS)])])]
[setq(n,[u(%qc/FIRST)])]
[setq(h,[gt(rand(0,100),[add(u(%qc/DEFENSE),u(%qc/DEX))])])]
[if(lt(u(damaged),100),{
[ifelse([and(gt(mul(%qm,100),40),%qh)],
 {
  [setq(d,[add(1,round(mul(%qm,%q3),0))])]
  [ifelse(gt(u(%qc/MOD.DEFENSE),0),{
    [setq(e,[sub(u(%qc/MOD.DEFENSE),%qd)])]
    [ifelse(gte(%qe,0),
     {
      [emit(%q2%r[u(%qc/FIRST)]'s armor deflects [color(red,52,%qd damage)]!)]
      [set(%qc,MOD.DEFENSE:%qe)]
     },
     {
      [setq(f,[abs(%qe)])]
      [set(%qc,MOD.DEFENSE:0)]
      [emit(%q2%r%qN's armor deflects [color(red,52,[sub(%qd,%qf)] damage)]!)]
      [emit(However[c(44)] %q1 does [color(red,52,%qf damage)] to [u(mygradient,%qN)]!)]
      [play(M[switch(rand(0,3),0,F,1,B,2,X,X)]O1L16DDDL4DMFO3DDGE)]
      [set(%qc,HITPOINTS:[sub(u(%qc/HITPOINTS),%qf)])]
      [if([lte(u(%qc/HITPOINTS),div(u(%qc/HITPOINTS.MAX),3))],{
       [emit([color(red,black,%qN IS IN DANGER OF DYING)])]
       }
      )]
      [if(lte(u(%qc/HITPOINTS),0),
       [emit([ucstr(%qN)] HAS DIED! [play(MFO3AMBO3CMFO3G)])]%r
       [u(%qc/DIED,%qT,%qC)]
      )]
     }
    )]
   },
   {
    [emit(%q2%r%q1 does [color(red,52,%qd damage)] to [u(mygradient,%qN)]!)]
    [play(M[switch(rand(0,3),0,F,1,B,2,X,X)]O1L16DDDL4D)]
    [set(%qc,HITPOINTS:[sub(u(%qc/HITPOINTS),%qd)])]
      [if([lte(u(%qc/HITPOINTS),div(u(%qc/HITPOINTS.MAX),3))],{
       [emit([color(red,black,%qN IS IN DANGER OF DYING)])]
       }
      )]
    [if(lte(u(%qc/HITPOINTS),0),
     [emit([ucstr(%qN)] HAS DIED! [play(MFO3AMBO3CMFO3G)])]%r
     [u(%qc/DIED,%qT,%qC)]
    )]
   }
  )]
 },
 {
  [emit(%q1 misses %qN.)]
 }
)]
})]
[if(lte(words(u(playing)),0),[set(me,party.mode:travelling)])]

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