0 Members and 1 Guest are viewing this topic.
:"a huge string implementation of a 20x40 map→Str1:10→R:20→C:7→P:13→Q:For(A,1,8:Output(A,1,sub(Str1,40P-80+Q+40A,16:End:Output(4,8,"π:Repeat K=45:Repeat max(Ans={24,25,26,34,45:getKey→K:End:R-(K=25 and sub(Str1,40R-80+C,1)=" ")+(K=34 and sub(Str1,40R+C,1)=" →A:C-(K=24 and sub(Str1,40R-41+C,1)=" ")+(K=26 and sub(Str1,40R-39+C,1)=" →B:P+A-R→P:Q+B-C→Q:A→R:B→C:min(13,max(1,P→P:min(25,max(1,Q→Q:For(A,1,8:Output(A,1,sub(Str1,40P-80+Q+40A,16:End:Output(R-P+1,C-Q+1,"π:End
P+(K=25 and R-P+1>5)-(K=34 and R-P+1<4→PQ+(K=24 and C-Q+1>9)-(K=26 and C-Q+1<8→Q
I always had issue with the map running at like 1.5 FPS at the top of the string, then at the bottom 0.5
:"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX X XX X X XX X X X XX X X X X XX XX X X X XX X X X XX X X X XX XX X X XX X X XX X X X XX X X XX X X X XX X XX X X X X XX X X X XX X X X X XX X X X X XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX→Str1:20→L:40→W:10→R:20→C:7→P:13→Q:For(A,1,8:Output(A,1,sub(Str1,WP-2W+Q+WA,16:End:Output(4,8,"π:Repeat K=45:Repeat max(Ans={24,25,26,34,45:getKey→K:End:C-(K=24 and sub(Str1,WR-W-1+C,1)=" ")+(K=26 and sub(Str1,WR-W+1+C,1)=" →B:R-(K=25 and sub(Str1,WR-2W+C,1)=" ")+(K=34 and sub(Str1,WR+C,1)=" →A:min(L-7,max(1,P+Ans-R+(K=25 and R-P>4)-(K=34 and R-P<3→P:min(W-15,max(1,Q+B-C+(K=24 and C-Q>8)-(K=26 and C-Q<7→Q:A→R:B→C:For(A,1,8:Output(A,1,sub(Str1,WP-2W+Q+WA,16:End:Output(R-P+1,Ans-Q+1,"π:End