Yes it would, you would get a nice flaming rectangle Also note that with this routing there is no need to erase your sprites unless you don't want them to be on fire

No, I meant wouldn't it be better to do rect(0,63,1,96 ?

Random question about the routine.  Would using Rect( work?

Ah cool.
So that does xor, or is it like Pt-on?

Is there a way to make RecallPic and StorePic work in a way so they don't overwrite the buffer being stored to?  So, instead of it working like Pt-Off, it would work like pt-on or pt-change?

Wow, this is awesome
Now I can make that "light people on fire" game I was going to make a while back

How well would this work for animated sprites?  And is there a way to make only part of the screen (say, a sprite) on fire?

Ok, I've been thinking.  After Dimension, I kind of have an idea of what I'm doing, more than before.  Starting tonight, I plan on starting the process to implement smoothscrolling in Tio.
What's going to be really tricky is how to draw the area outside of the level.  I tried to make it draw black, but it hasn't worked very well when I've tried applying it elsewhere.  See screenie.

While I'm busy doing that, are there any other tile ideas going around?

Important: If you downloaded the STIO6E from before, a problem in the source throws an ERR:BLOCK when compiling.  This is fixed now, and the edited program is here.

Ok, I've pretty much driven myself beyond frustration trying to get this to work.  I fix one error, and another sprouts in its place.  What's wrong with this code

This program is attached at the first post.
:.DMENSION
:DiagnosticOff
:[0000000000000000]→Pic1
:[FFFFFFFFFFFFFFFF]
:[FC84B4B484FC0000]→Pic2
:0→D→I→J
:4→N+1→O
:rand→E
:E/256→J
:E-(J*256)→I
:ClrDraw
:ClrDrawr
:For(Y,0,7
:Y*8→T
:For(X,0,11
:X*8→S
:Pt-Off(S,T,{E+D}^3/2*8+Pic1
:Pt-Off(S,T,{E+D+32768}^3/2*8+Pic1)r
:D+1→D
:End
:End
:0→D→W
:Repeat getKey(15)
:If getKey(48)
:E+32768→E
:Normal
:While getKey(48):DispGraphrr:End
:Full
:End
:If getKey(3)
:Z-2→Z
:End
:If getKey(2)
:Z+2→Z
:End
:Z-(Z>>6)+(Z<<‾6)→Z
:If getKey(54) and (D)
:6→θ
:End
:W+1→W
:!If W-2
:0→W
:Z-(Z>>0)+(Z<<0)→Z
:θ+1→θ
:End
:O+θ→O
:If O>>0
:J-1→J
:O-8→O
:End
:If O<<‾7
:J+1→J
:End
:N+Z→N
:If N>>0
:N-8→N
:I-1→I
:End
:If N<<‾7
:N+8→N
:I+1→I
:End
:
:.they're unoptimized, at least temporarily, for readability
:.top left
:29-O/8+J*256+(45-N/8+I)+E→P
:
:.top right
:29-O/8+J*256+(51-N/8+I)+E→Q
:
:.bottom left
:35-O/8+J*256+(45-N/8+I)+E→U
:
:.bottom right
:35-O/8+J*256+(51-N/8+I)+E→V
:
:.look at letter locations of PQUV and FGKL on keypad
:
:.if block pointed to is "on" or "off"
:P^3/2→F
:Q^3/2→G
:U^3*2→K
:V^3/2→L
:
:If F or (G)
:O-(θ<<‾2)→O
:‾θ→θ
:End
:If K or (L)
:If θ<<2 and (θ>>‾2)
:0→θ+1→D
:‾5→O
:Else
:‾θ//2→θ
:O+1→O
:End
:Else
:0→D
:End
:If G or (L)
:N-(Z>>2)→N
:‾Z//2→Z
:End
:If F or (K)
:N+(Z<<‾2)→N
:‾Z//2→Z
:End
:ClrDraw
:ClrDrawr
:For(B,0,8
:B*8+O→T
:For(A,0,12
:A*8+N→S
:Pt-Off(S,T,{J*256+I+(B*256+A)+E}^3/2*8+Pic1
:Pt-Off(S,T,{J*256+I+(B*256+A)+E+32768}^3/2*8+Pic1)r
:End
:End
:Pt-Change(45,29,Pic2
:Pt-Change(45,29,Pic2)r
:Normal
:DispGraphrr
:Full
:End
I'm going to keep trying to figure this out, but at this rate...