0 Members and 1 Guest are viewing this topic.

:ClrDraw:8→X:8→Y:[[0,0,0,0,0,0,0,0,0,0,0,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,0,0,0,0,0,0,0,0,0,0,0]]→[A]::0→K:Repeat K=45:¦ :¦ real(2,0,0,0,12,8,0,12,0,8,1,0,8,0:¦ real(1,X,Y,1,8,1,2,0,0,0,1:¦ :¦ X→S:Y→T:¦ :¦ getKey→K:¦ If K=24:¦ X-8→X:¦ If K=25:¦ Y-8→Y:¦ If K=26:¦ X+8→X:¦ If K=34:¦ Y+8→Y:¦ :¦ If [A](X,Y)=0:Then:¦ ¦ S→X:T→Y:¦ End::End

:8→X:8→Y://Beginning of Matrix : It directs me here.

:¦ If [A](X,Y)=0:Then:¦ ¦ S→X:T→Y:¦ End

:¦ If [A](X/8,Y/8)=0:Then:¦ ¦ S→X:T→Y:¦ End

:ClrDraw:16→X:16→Y:[[0,0,0,0,0,0,0,0,0,0,0,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,0,0,0,0,0,0,0,0,0,0,0]]→[A]::0→K:Repeat K=45:¦ :¦ real(2,0,0,0,12,8,0,12,0,8,1,0,8,0:¦ real(1,X,Y,1,8,1,2,0,0,0,1:¦ :¦ X→S:Y→T:¦ :¦ getKey→K:¦ If K=24:¦ X-8→X:¦ If K=25:¦ Y-8→Y:¦ If K=26:¦ X+8→X:¦ If K=34:¦ Y+8→Y:¦ :¦ If [A]((X/8)+1,(Y/8)+1)=0:Then:¦ ¦ S→X:T→Y:¦ End::End

:ClrDraw:8→X:8→Y:[[0,0,0,0,0,0,0,0,0,0,0,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,1,1,1,1,1,1,1,1,1,1,0][0,0,0,0,0,0,0,0,0,0,0,0]]→[A]::0→K:Repeat K=45::real(2,0,0,0,12,8,0,12,0,8,1,0,8,0:real(1,X,Y,1,8,1,2,0,0,0,1::X→S:Y→T::getKey→K:If K=24:X-8→X:If K=25:Y-8→Y:If K=26:X+8→X:If K=34:Y+8→Y::If [A]((Y/8)+1,(X/8)+1)=0:Then:S→X:T→Y:End:End