List sprite editor

noahbaby94 19 Oct 2008 22:07

Here is a useful list sprite editor.

```
:10→A
:10→B
:0→C
:1→θ
:DelVar {L1}DelVar {L2}
:Repeat K=45
:getKey→K
:If max(Ans={24,25,26,34
:Then
:Pxl-Change(A,B
:1→θ
:End
:If K=105
:Then
:C+1→C
:A→{L1}(C
:B→{L2}(C
:End
:min(62,max(0,A+sum(DeltaListK={25,34→A
:min(94,max(0,B+sum(DeltaListK={24,26→B
:If θ
:Then
:Pxl-Change(A,B
:0→θ
:End
:End
:{L1}-min({L1}→{L1}
:{L2}-min({L2}→{L2}
Generated by SourceCoder (http://www.cemetech.net/projects/basicelite/sourcecoder.php)
© 2005 Cemetech (http://www.cemetech.net)
```

Just hit enter on the point you want to be added and this will execute the sprite

```
:For(X,1,dim({L1}
:Pxl-On({L1}(X),{L2}(X
:End
```

It's quite useful for smaller sprites.

Edit: I also have some other routines

get's sum of every digit in a number including the fpart

`sum(ipart(10fpart(N/seq(10^X),X,-10,10`