0 Members and 2 Guests are viewing this topic.
:ClrHome:":→Str4:"OMNIMAGA→Str1:" *--++--* →Str2:"THE RICK ROLLER'S OF TOMARROW→Str3:{1,2,3,4,5,6,7,6→L1:6→A:‾1→B:For(D,1,14:For(C,1,8:Str4+sub(sub(Str2,1,L1(C))+sub(Str1,L1(C),2)+sub(Str2,L1(C)+3,8-L1(C)),2,8)+sub(Str3,8(C-1)+1,8→Str4:End:A+B→A:If A=7 or A=1:‾B→B:augment(DeltaList(cumSum(L1)),{A→L1:Output(3,1,sub("[===============",1,D+1:Output(3,16,"]:End:sub(Str4,2,1792→Str4:prgmZZZZZ3
:ClrHome:0→A:Ans→B:While 1:Output(1,1,sub(Str4,128A+1,128:A+1→A:If A=13:0→A:End
Oh, sorry, I forgot, I only used the "Never Gonna" parts.nice meishe, I wonder how I didn't think of using for( to clear the RRoT part?
not sure if I cheated... but here is my solution. Run ZZZZZ2 to start it, and it will auto go into ZZZZZ3, afterwards you can just run ZZZZZ3.Spoiler For Spoiler: Prgm ZZZZZ2Code: [Select]:ClrHome:":→Str4:"OMNIMAGA→Str1:" *--++--* →Str2:"THE RICK ROLLER'S OF TOMARROW→Str3:{1,2,3,4,5,6,7,6→L1:6→A:‾1→B:For(D,1,14:For(C,1,8:Str4+sub(sub(Str2,1,L1(C))+sub(Str1,L1(C),2)+sub(Str2,L1(C)+3,8-L1(C)),2,8)+sub(Str3,8(C-1)+1,8→Str4:End:A+B→A:If A=7 or A=1:‾B→B:augment(DeltaList(cumSum(L1)),{A→L1:Output(3,1,sub("[===============",1,D+1:Output(3,16,"]:End:sub(Str4,2,1792→Str4:prgmZZZZZ3Prgm ZZZZZ3Code: [Select]:ClrHome:0→A:Ans→B:While 1:Output(1,1,sub(Str4,128A+1,128:A+1→A:If A=13:0→A:End
Wow, that works really well (no flickers ). And fast! (Except the loading, but that doesn't matter much.)EDIT: Sizes: ZZZZZ2 346 < Small... ZZZZZ3 65 < Wow, even smaller... Str4 1803 < ...