0 Members and 2 Guests are viewing this topic.
A wave animation, I'll do a sea wave animation right away hahah.
:ClrHome:For(A,1,7:Disp " // Nothing after the quote:End:DelVar A1->B // A is Current X location, B is Variable to track movement:Repeat getKey:Disp " // Again, nothing after the quote:Output(8,1,sub(".......... ",10-A,10 // 10 periods followed by 9 spaces:A+B->A:If Ans=9 or not(Ans:-B->B // That's the negative sign, not minus:End
:Clrhome:For(A,1,8:Disp ":End:"(7 spaces).(7 spaces)->Str1:Delvar TWhile 1:T+1->T:Disp sub(Str1,T,8:If T=8:Delvar T:End
That gave me a syntax error, though, can't tell which line for now, WabbitEmu.
Quote from: ScoutDavid on October 29, 2010, 03:47:20 pmA wave animation, I'll do a sea wave animation right away hahah.My code for that one:Code: [Select]:ClrHome:For(A,1,7:Disp " // Nothing after the quote:End:DelVar A1->B // A is Current X location, B is Variable to track movement:Repeat getKey:Disp " // Again, nothing after the quote:Output(8,1,sub(".......... ",10-A,10 // 10 periods followed by 9 spaces:A+B->A:If Ans=9 or not(Ans:-B->B // That's the negative sign, not minus:End
For(A,1,7Disp "End1→AAns→BRepeat getKeyDisp "Output(8,1,sub("..........",1,AA+B→AIf max(Ans={1,10-B→BEnd
:ClrHome:For(A,1,500:Output(1,1,"DELETING RAM:2→A:Output(A,1,".:rand(15:Output(A,2,".:rand(15:Output(A,3,".:rand(15:Output(A,4,".:rand(15:Output(A,5,".:rand(15:Output(A,6,".:rand(15:Output(A,7,".:rand(15:Output(A,8,".:rand(15:Output(A,9,".:rand(15:Output(A,10,".:rand(15:Output(A,11,".:rand(15:Output(A,12,".:rand(15:Output(A,13,".:rand(15:Output(A,14,".:rand(15:Output(A,15,".:rand(15:Output(A,16,".:rand(15:Output(3,1,"RAM DELETED:A+2→A:Output(A,1,".:rand(15:Output(A,2,".:rand(15:Output(A,3,".:rand(15:Output(A,4,".:rand(15:Output(A,5,".:rand(15:Output(A,6,".:rand(15:Output(A,7,".:rand(15:Output(A,8,".:rand(15:Output(A,9,".:rand(15:Output(A,10,".:rand(15:Output(A,11,".:rand(15:Output(A,12,".:rand(15:Output(A,13,".:rand(15:Output(A,14,".:rand(15:Output(A,15,".:rand(15:Output(A,16,".:rand(15:Output(5,1,"DESTROYING:A+2→A:Output(A,1,".:rand(15:Output(A,2,".:rand(15:Output(A,3,".:rand(15:Output(A,4,".:rand(15:Output(A,5,".:rand(15:Output(A,6,".:rand(15:Output(A,7,".:rand(15:Output(A,8,".:rand(15:Output(A,9,".:rand(15:Output(A,10,".:rand(15:Output(A,11,".:rand(15:Output(A,12,".:rand(15:Output(A,13,".:rand(15:Output(A,14,".:rand(15:Output(A,15,".:rand(15:Output(A,16,".:rand(15:Output(7,1,"VIRUS FINISH:A+2→A:Output(A,1,".:rand(15:Output(A,2,".:rand(15:Output(A,3,".:rand(15:Output(A,4,".:rand(15:Output(A,5,".:rand(15:Output(A,6,".:rand(15:Output(A,7,".:rand(15:Output(A,8,".:rand(15:Output(A,9,".:rand(15:Output(A,10,".:rand(15:Output(A,11,".:rand(15:Output(A,12,".:rand(15:Output(A,13,".:rand(15:Output(A,14,".:rand(15:Output(A,15,".:rand(15:Output(A,16,".:rand(15:End