0 Members and 2 Guests 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