Code:
:DelVar WDelVarQDelVarUAns→Str0
:::"BASIC SPRITES
:For(I,0,length(Str0)-1
:sub(Str0,I+1,1
:If Ans="8" or Ans="9" or Ans="A" or Ans="B" or Ans="C" or Ans="D" or Ans="E" or Ans="F"
:Pxl-On(Q,X+W
:If Ans="4" or Ans="5" or Ans="6" or Ans="7" or Ans="C" or Ans="D" or Ans="E" or Ans="F"
:Pxl-On(Q,X+1+W
:If Ans="2" or Ans="3" or Ans="6" or Ans="7" or Ans="A" or Ans="B" or Ans="E" or Ans="F"
:Pxl-On(Q,X+2+W
:If Ans="1" or Ans="3" or Ans="5" or Ans="7" or Ans="9" or Ans="B" or Ans="D" or Ans="F"
:Pxl-On(Q,X+3+W
:1→U
:If W=4 and U
:Then
:DelVarUDelVarWQ+1→Q
:End
:4(U→W
:End
Basically, you use it like
Code:
"EDF12315AC910562":prgmSPRITE
Each character represents a set of 4 pixels constructed by its binary equivalent (EX. D=13=1101)
Is there anyway to make it work faster?