0 Members and 2 Guests are viewing this topic.
PROGRAM:MOVE"//////////////// //Broke it down so it's easier to see./___///___///__//_///___///__/_//______/////___//__///__///__/_//_////__//__/////______________/////////////////→Str1Output(1,1,Str12→A2→BRepeat 0Output(A,B,"*Repeat AnsgetKey→KEndOutput(A,B,"_A+(Ans=34)(sub(Str1,AB+16,1)="_")-(Ans=25)(sub(Str1,AB-16,1)="_→AB+(K=26)-(K=24)→BEnd
PROGRAM:MOVE"//////////////// //Broke it down so it's easier to see./___///___///__//_///___///__/_//______/////___//__///__///__/_//_////__//__/////______________/////////////////→Str1Output(1,1,Ans //Save speed and a byte :)2→A2→BRepeat 0Output(A,B,"*Repeat AnsgetKey→KEndOutput(A,B,"_A+(Ans=34 and sub(Str1+"________________",16A+B,1)="_")-(Ans=25 and sub("________________"+Str1,16A+B-16,1)="_→A //That is 16 spaces both timesB+(K=26 and sub(Str1+"_",16A+B-15,1)="_")-(K=24 and sub("_"+Str1,16A+B-16,1)="_→B //One space each timeEnd
But in ztrumpet's, I don't see what adding the spaces does. (Thanks though, Nyrax.)
PROGRAM:MOVE"//////////////// //Broke it down so it's easier to see./___///___///__//_///___///__/_//______/////___//__///__///__/_//_////__//__/////______________/////////////////→Str1Output(1,1,Ans //Save speed and a byte :)2→A2→BRepeat 0Output(A,B,"*Repeat AnsgetKey→KEndOutput(A,B,"_A+(Ans=34 and sub(Str1,16A+B,1)="_")-(Ans=25 and sub(Str1,16A+B-16,1)="_→AB+(K=26 and sub(Str1,16A+B-15,1)="_")-(K=24 and sub(Str1,16A+B-17,1)="_→BEnd
"String->Str1 //Note: Put the real string here, not "String". =DOutput(1,1,Ans2->A2->BOutput(Ans,A,"*DelVar C0Repeat A+C=17 or B+Ans=9 or not((A+C)(B+AnsIf "_"=sub(Str1,16(B+Ans)+A+C-16,1ThenOutput(B,A,"_B+Ans->BA+C->AOutput(B,A,"*EndRepeat AnsgetKey->KEnd(Ans=26)-(Ans=24->C(K=34)-(K=25End
PROGRAM:MOVE"//////////////// /___///___///__//_///___///__/_//______/////___//__///__///__/_//_////__//__/////______________/////////////////→Str1Output(1,1,Ans 2→A2→BRepeat 0Output(A,B,"*Repeat AnsgetKey→KEndOutput(A,B,"_A+(Ans=34 and sub(Str1,16A-(16-B)+16,1)="_")-(Ans=25 and sub(Str1,16A-(16-B)-16,1)="_→AB+(K=26 and sub(Str1,16A-(16-B)+1,1)="_")-(K=24 and sub(Str1,16A-(16-B)-1,1)="_→BEnd