0 Members and 2 Guests are viewing this topic.
All occasions toggle the state of the cell. If they didn't it would get stuck on certain values. #X%2 Y%2 Smove right #0 0 1move down #0 1 1move left #1 0 1move up #1 1 1move left #0 0 0move up #0 1 0move up #1 0 0move down #1 1 0
:.A:DiagnosticOff:Fix 5:ClrDraw:ClrDrawr:Full:For(L,0,713:95→{L1+L}End:0→A→B→C+1→E:Repeat getKey(15):.D:If getKey(3):→E:A<95+A→AEnd:If getKey(2):→E:A-(A>0)→AEnd:If getKey(1):→E:B<63+B→BEnd:If getKey(4):→E:B-(B>0)→BEnd:If E:If getKey(48):Pxl-Change(A,B)r:0→E:End:End:If getKey(55):ClrDrawr:End:.END D::RecallPic:.DRAW/MOVE:For(L,0,356:L*2+L1→S:{S}→T:{S+1}→U::If T<96 and (U<64):!If pxl-Test(T,U+1:U++:Else:If pxl-Test(T+1,U) and pxl-Test(T-1,U:U--:Else:!If rand^4:U--:End:rand^3-1+T→T:End:End::!If pxl-Test(T,U:T→{S}:U→{S+1}:End:Pxl-On(T,U:End::End:.END DRW/MV::.ADD:If getKey(54):!If pxl-Test(A,B:rand^357*2+L1→S:If {S}>95 or ({S+1}>63):A→{S}:B→{S+1}:End:End:End:.END ADD::Pxl-Change(A,B):DispGraphClrDraw:End