0 Members and 1 Guest are viewing this topic.
:...:i and j are the top left corner of the map:h is height:m is width:p in the appvar pointer:vars count from zero:...:GetCalc(Str1,H+1*(M+1))→P:For(A,0,H::.1 is a solid block:1→{P+A}:1→{H+1*M+P+A}:End:For(A,0,M:1→{M+1*A+P}:1→{M+1*A+P+M}:End::.pre-define start and finish to avoid crashes--how ironic :P:3→{M+1*P+1}:4→{M+1*P+2:End:While getKey(54):Pause 10:End:End
:H*M→R:GetCalc(Str1,R+2)→P:H→{P}:M→{P+1}:P+2→P:0→{P}:Fill(P,R::For(A,0,M-1::.TOP:1→{P+A}::.BOTTOM:1→{M-1*H+1+P+A}::End:For(A,0,H-1::.LEFT:1→{A*M+P}::.RIGHT:1→{A*M+P+M-1}::End