Viewing paste NN2
made on Sat, 02 Nov 2013 23:45:40 -0400
Sane-itized version, click to copy:
&CARD.RENDER #3629=[null([setq(m,15)][setq(n,12)][setq(p,[u(CARD.PICTURE,[u(CARD.BY.NUMBER,%0)])])][setq(w,[u(#388/PIC.W,%qp)])][setq(h,[u(#388/PIC.H,%qp)])][iter(fblist(#7781),fbdestroy(#7781/##))][if(fbexists(#7781/CARD_PIC_RAW),fbdestroy(#7781/CARD_PIC_RAW))][fbcreate(#7781/CARD_PIC_RAW,%qw,%qh)][if(fbexists(#7781/CARD_PIC_REDUCED),fbdestroy(#7781/CARD_PIC_REDUCED))][fbwrite(#7781/CARD_PIC_RAW,0,0,SHOWPICTURE(%qp))][fbcreate(#7781/CARD_PIC_REDUCED,%qm,%qn)][iter(lnum(0,%qm),[iter(lnum(0,%qn),{[setq(j,[val(mul(fdiv([itext(1)],%qm),%qw))])][setq(k,[val(mul(fdiv([itext(0)],%qn),%qh))])][setq(v,[fbstats(#7781/CARD_PIC_RAW,%qj,%qk)])][setq(b,[extract(%qv,3,1,%b)])][setq(f,[extract(%qv,2,1,%b)])][setq(c,[extract(%qv,1,1,%b)])][fbwrite(#7781/CARD_PIC_REDUCED,[itext(1)],[itext(0)],[color(%qf,%qb,[c(%qc)])])]},,%b)],,%b)][fbdestroy(#7781/CARD_PIC_RAW)][if(fbexists(CARD),fbdestroy(CARD))][fbcreate(CARD,17,17)][fbwrite(CARD,0,0,SHOWPICTURE(DNDCARD2))][FBCOPYTO(#7781/CARD_PIC_REDUCED,CARD,0,0,%qm,%qn,1,1,,255)][fbdestroy(#7781/CARD_PIC_REDUCED)])]

Enter a target attribute, object reference and the mushcode.


[null(
 [setq(m,15)]
 [setq(n,12)]
 [setq(p,[u(CARD.PICTURE,[u(CARD.BY.NUMBER,%0)])])]
 [setq(w,[u(#388/PIC.W,%qp)])]
 [setq(h,[u(#388/PIC.H,%qp)])]
 [iter(fblist(#7781),fbdestroy(#7781/##))]
 [if(fbexists(#7781/CARD_PIC_RAW),fbdestroy(#7781/CARD_PIC_RAW))]
 [fbcreate(#7781/CARD_PIC_RAW,%qw,%qh)]
 [if(fbexists(#7781/CARD_PIC_REDUCED),fbdestroy(#7781/CARD_PIC_REDUCED))]
 [fbwrite(#7781/CARD_PIC_RAW,0,0,SHOWPICTURE(%qp))]
 [fbcreate(#7781/CARD_PIC_REDUCED,%qm,%qn)]
 [iter(lnum(0,%qm),
  [iter(lnum(0,%qn),{
   [setq(j,[val(mul(fdiv([itext(1)],%qm),%qw))])]
   [setq(k,[val(mul(fdiv([itext(0)],%qn),%qh))])]
   [setq(v,[fbstats(#7781/CARD_PIC_RAW,%qj,%qk)])]
   [setq(b,[extract(%qv,3,1,%b)])]
   [setq(f,[extract(%qv,2,1,%b)])]
   [setq(c,[extract(%qv,1,1,%b)])]
   [fbwrite(#7781/CARD_PIC_REDUCED,[itext(1)],[itext(0)],[color(%qf,%qb,[c(%qc)])])]
  },,%b)],,%b)]
 [fbdestroy(#7781/CARD_PIC_RAW)]
 [if(fbexists(CARD),fbdestroy(CARD))]
 [fbcreate(CARD,17,17)]
 [fbwrite(CARD,0,0,SHOWPICTURE(DNDCARD2))]
 [FBCOPYTO(#7781/CARD_PIC_REDUCED,CARD,0,0,%qm,%qn,1,1,,255)]
 [fbdestroy(#7781/CARD_PIC_REDUCED)]
)]

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