0 Members and 3 Guests are viewing this topic.
:ClrDraw:ClrHome:{2,9,0,2,2→L1:Lbl 1:"map data→Str1:"map data→Str2:prgmBB:If not(L1(2:Then:ClrHome:ClrDraw:Output(1,4,"YOU HAVE DIED:Return:End:"map data→Str1:"map data→Str2:{L1(1),L1(2),0,2,7,2→L1:prgmBB:If not(L1(2:Then:ClrHome:Output(1,4,"YOU HAVE DIED:Return:End:If L1(5)=15 and 7=L1(4:Then:ClrHome:Output(1,4,"YOU HAVE WON:Return:End:{L1(1),L1(2),0,14,7→L1:Goto 1
:For(A,2,9):Text(-1,8A-2(8),0,sub(Str1,15A-(14+15),15:StorePic 2:Text(-1,8A-2(8),0,sub(Str2,15A-(14+15),15:RecallPic 2:End:L1(3→B:L1(4→A:L1(1→G:L1(2→H:DelVar M:DelVar JText(-1,0,90,H:While A≠0 and A≠10 and B≠0 and B≠16 and H:If E:Then:E-1→E:If not(E:Then:Text(-1,8,90," :End:End:A→C:B→D:Text(-1,8A-8,6B-6,"Ω:If M:Then:2→M:Text(-1,8A-8,6B-6,"Î:End:getKey→K:If K:Then:B+(K=26)-(K=24→B:If B≠D:Then:If B and B≠16 and ""=sub(Str1,15A-14+B-1,1:D→B:End:End:If not(J) and ""≠sub(Str1,15(A+1)-14+B-1,1) and ""≠sub(Str1,15(A-1)-14+B-1,1:Then:A+1→A:Else:J+G(K=21→J:End:If J:Then:If ""≠sub(Str1,15(A-1)-14+B-1,1:Then:A-1→A:End:J-1→J:End:If (A≠C or B≠D) and B:Then:Text(-1,8A-8,6B-6,"Ω:Text(-1,8C-8,6D-6," :If ""=sub(Str1,15C-14+B-1,1:Text(-1,8C-8,6D-6,":If 2=M:Then:Text(-1,8C-8,6D-6,"Î:DelVar M:End:End:If inString("Î*Δ",sub(Str1,15A-14+B-1,1:Then:If "Δ"=sub(Str1,15A-14+B-1,1:Then:H+3→H:If 9<H:Then:9→H:End:sub(Str1,15A-14+B,length(Str1)-15A-14+B→Str3:sub(Str1,1,15A-14+B-2→Str1:Str1+" "+Str3→Str1:Text(-1,0,90,H:Text(-1,8,90,"+:3→E:End:If "~"=sub(Str1,15A-14+B-1,1:Then:Text(-1,16,90,":sub(Str1,15A-14+B,length(Str1)-15A-14+B→Str3:sub(Str1,1,15A-14+B-2→Str1:Str1+" "+Str3→Str1:3→G:End:If "Î"=sub(Str1,15A-14+B-1,1:Then:Text(-1,0,90,H:H-1→H:1→M:End:End:End:If B=16:Text(-1,8A-8,6B-6," :G→L1(1:H→L1(2:A→L1(3:B→L1(4
:Text(-1,0,0,sub(Str1...:Text(-1,8,0,sub(Str1......:StorePic 2:Text(-1,0,0,sub(Str2...:Text(-1,8,0,sub(Str2......:RecallPic 2
You might be able to get a pretty good speed boost if you hard-code in the Text( commands to draw the map instead of looping over and having to use StorePic/RecallPic so many times. i.e.Code: [Select]:Text(-1,0,0,sub(Str1...:Text(-1,8,0,sub(Str1......:StorePic 2:Text(-1,0,0,sub(Str2...:Text(-1,8,0,sub(Str2......:RecallPic 2It would add to the program size, but you would be eliminating 16 calculations of 8A-16 and 15A-29; seven StorePics and RecallPics; and the overhead for running a For( loop. Plus, StorePic and RecallPic are pretty darn slow and StorePic automatically displays the screen so you could be getting some flicker.
the flickers not that bad, but it is a little slow. hmm, I wonder how big it will be. maybe I'll make it so that you can choose which one you want to use, the big one or the slower one