Viewing paste NN
made on Sat, 02 Nov 2013 23:15:00 -0400
Sane-itized version, click to copy:
&CARD.RENDER #3629= [setq(p,[u(CARD.PICTURE,[u(CARD.BY.NUMBER,%0)])])][setq(w,[u(#388/PIC.W,%qp)])][setq(h,[u(#388/PIC.H,%qp)])][if(fbexists(CARD_PIC_RAW),fbdestroy(CARD_PIC_RAW))][fbcreate(CARD_PIC_RAW,%qw,%qh)][fbwrite(CARD_PIC_RAW,0,0,SHOWPICTURE(%qp))][if(fbexists(CARD_PIC_REDUCED),fbdestroy(CARD_PIC_REDUCED))][fbcreate(CARD_PIC_REDUCED,16,16)][iter(lnum(0,15),[iter(lnum(0,15),{[setq(j,[val(mul(fdiv([itext(1)],15),%qw))])][setq(k,[val(mul(fdiv([itext(0)],15),%qh))])][setq(v,[fbstats(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(CARD_PIC_REDUCED,[itext(1)],[itext(0)],[color(%qf,%qb,[c(%qc)])])]},,%b)],,%b)][if(fbexists(CARD),fbdestroy(CARD))][fbcreate(CARD,17,17)][fbwrite(CARD,0,0,SHOWPICTURE(DNDCARD2))][FBCOPYTO(CARD_PIC_REDUCED,CARD,0,0,15,15,1,1,,255)]

Enter a target attribute, object reference and the mushcode.


 [setq(p,[u(CARD.PICTURE,[u(CARD.BY.NUMBER,%0)])])]
 [setq(w,[u(#388/PIC.W,%qp)])]
 [setq(h,[u(#388/PIC.H,%qp)])]
 [if(fbexists(CARD_PIC_RAW),fbdestroy(CARD_PIC_RAW))]
 [fbcreate(CARD_PIC_RAW,%qw,%qh)]
 [fbwrite(CARD_PIC_RAW,0,0,SHOWPICTURE(%qp))]
 [if(fbexists(CARD_PIC_REDUCED),fbdestroy(CARD_PIC_REDUCED))]
 [fbcreate(CARD_PIC_REDUCED,16,16)]
 [iter(lnum(0,15),
  [iter(lnum(0,15),{
   [setq(j,[val(mul(fdiv([itext(1)],15),%qw))])]
   [setq(k,[val(mul(fdiv([itext(0)],15),%qh))])]
   [setq(v,[fbstats(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(CARD_PIC_REDUCED,[itext(1)],[itext(0)],[color(%qf,%qb,[c(%qc)])])]
  },,%b)],,%b)]
 [if(fbexists(CARD),fbdestroy(CARD))]
 [fbcreate(CARD,17,17)]
 [fbwrite(CARD,0,0,SHOWPICTURE(DNDCARD2))]
 [FBCOPYTO(CARD_PIC_REDUCED,CARD,0,0,15,15,1,1,,255)]

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