Author |
Message |
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 28 May 2009 05:21:49 pm Post subject: |
|
|
I've made a few 5-10 line programs that do nothing but are cool. If you have any, post them here.
I'll start:
Code: "12345
For(A,1,8
Output(A,1+int(A[sup]2[/sup]/5.5),Ans
End
|
|
Back to top |
|
|
tiuser1010
Member
Joined: 23 Apr 2009 Posts: 100
|
Posted: 28 May 2009 06:56:44 pm Post subject: |
|
|
Here's a little code
Code: 1->C
0->K
0->G
5->M
10->U
Repeat K[s]=[/s]0(Does not equal)
getkey->K
randInt(1,16)->A
randInt(1,8)->A
If C=1:Then
For(P,1,M
Output(A,B,"HELLO"
End
End
If C=2:Then
For(P,1,M
Output(A,B,"AND"
End
End
If C=3:Then
For(P,1,M
Output(A,B,"GOODBYE"
End
End
G+1->G
If G=U:Then
C+1->C
0->G
End
If C=4:1->C
End
If you change the varibles at the top of the code it will cahnge how long each word
will stay on the screen |
|
Back to top |
|
|
woodswolf
Advanced Newbie
Joined: 26 Feb 2009 Posts: 53
|
Posted: 29 May 2009 04:36:28 am Post subject: |
|
|
20-line code
Code: :Delvar C
:Output(1,1,"+--------------+!( ) ( ) ( )!! )( )( )( !!( ) ( ) ( )!! )( )( )( !!( ) ( ) ( )!+--------------+!Score: !
:Starttimer->D
:Lbl 0
:Output(8,8,C
:int(9rand->X
:int(1+X/3->A
:X-3A+3->B
:Output(2A,3+5B,"{}
:Repeat A-1=iPart(Ans) and B=10fPart(Ans
:.1(getkey-72
:If 30=Checktimer(D
:Goto 1
:End
:Output(2A,3+5B,"
:C+1->C
:Goto 0
:Lbl 1
:Output(8,13,"WIN
:Pause
Everybody knows this game...
EDIT: 5-10 line codes are rare, I try to make something that follows that rule
Last edited by Guest on 29 May 2009 04:38:40 am; edited 1 time in total |
|
Back to top |
|
|
woodswolf
Advanced Newbie
Joined: 26 Feb 2009 Posts: 53
|
Posted: 29 May 2009 04:50:57 am Post subject: |
|
|
Forgot I still had this one!
Code: :Axesoff
:FnOff
:ClrDraw
:For(A,1,94,2
:Line(Xmin+AΔX,Ymin+AΔY,Xmax-AΔX,Ymin+AΔY
:Line(Xmin+AΔX,Ymin+AΔY,Xmin+AΔX,Ymax-AΔY
:Line(Xmin+AΔX,Ymax-AΔY,Xmax-AΔX,Ymax-AΔY
:Line(Xmax-AΔX,Ymax-AΔY,Xmax-AΔX,Ymin+AΔY
:End
Xvirus
Last edited by Guest on 29 May 2009 04:51:24 am; edited 1 time in total |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 29 May 2009 05:24:29 pm Post subject: |
|
|
woodswolf wrote: EDIT: 5-10 line codes are rare, I try to make something that follows that rule
It's ok if they don't, but don't make them too long
Here's another: Code: ZStandard
ZSquare
For(A,10,1,-1
Circle(0,0,A,{i
End (The i is from [2nd] [.])
Edit: I like Xvirus!
Last edited by Guest on 29 May 2009 05:42:14 pm; edited 1 time in total |
|
Back to top |
|
|
IAmACalculator In a state of quasi-hiatus
Know-It-All
Joined: 21 Oct 2005 Posts: 1571
|
Posted: 29 May 2009 06:00:17 pm Post subject: |
|
|
I must have a billion of these useless little animations lying around, but they're mostly for the 89. This one's one of my favorites.
scrltxt(s,n)
Prgm
Local x
0 -> x
While getKey() = 0
Disp rotate(s,x)
mod(x+n,dim(s)) -> x
EndWhile
Pause
ClrIO
DispHome
EndPrgm
Last edited by Guest on 11 Jul 2010 03:15:55 pm; edited 1 time in total |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 29 May 2009 07:06:42 pm Post subject: |
|
|
I don't have a 89. Can you explain what it does?
By the way, games might go better in 5 minute programs. |
|
Back to top |
|
|
tiuser1010
Member
Joined: 23 Apr 2009 Posts: 100
|
Posted: 29 May 2009 07:31:33 pm Post subject: |
|
|
Quote: Forgot I still had this one!
Code: :Axesoff
:FnOff
:ClrDraw
:For(A,1,94,2
:Line(Xmin+AΔX,Ymin+AΔY,Xmax-AΔX,Ymin+AΔY
:Line(Xmin+AΔX,Ymin+AΔY,Xmin+AΔX,Ymax-AΔY
:Line(Xmin+AΔX,Ymax-AΔY,Xmax-AΔX,Ymax-AΔY
:Line(Xmax-AΔX,Ymax-AΔY,Xmax-AΔX,Ymin+AΔY
:End
Xvirus
How do you get the ΔY and ΔX on your calc or does
the triangle mean times |
|
Back to top |
|
|
dxfan101010
Member
Joined: 31 Mar 2008 Posts: 194
|
Posted: 29 May 2009 11:38:42 pm Post subject: |
|
|
its under the vars menu i think its here.
Vars
Window
8 is ΔX
and 9 is ΔY |
|
Back to top |
|
|
IAmACalculator In a state of quasi-hiatus
Know-It-All
Joined: 21 Oct 2005 Posts: 1571
|
Posted: 30 May 2009 06:31:14 am Post subject: |
|
|
ztrumpet wrote: I don't have a 89. Can you explain what it does? It's easier to show you:
scrltxt("ABCDEFG",1) would return
ABCDEFG
BCDEFGA
CDEFGAB
DEFGABC
etc...
Last edited by Guest on 11 Jul 2010 03:15:38 pm; edited 1 time in total |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 04 Jun 2009 09:41:39 am Post subject: |
|
|
Here's another cool one: Code: For(A,Ymin,Ymax,ΔY
Horizontal A
End
Repeat getKey
{randInt(0,62),randInt(0,94),randInt(0,94
For(A,Ans(2),Ans(3),1-2(Ans(2)>Ans(3
Pxl-Change(Ans(1),A
End
End
|
|
Back to top |
|
|
geekboy1011
Advanced Newbie
Joined: 13 May 2009 Posts: 99
|
Posted: 04 Jun 2009 03:47:50 pm Post subject: |
|
|
What is x virus supposed to look like
cool though i like all the ones i tried
i ll try to make one |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 04 Jun 2009 04:01:14 pm Post subject: |
|
|
I'll have an xvirus screenshot in 5 minutes...
Here:
Last edited by Guest on 04 Jun 2009 04:03:49 pm; edited 1 time in total |
|
Back to top |
|
|
woodswolf
Advanced Newbie
Joined: 26 Feb 2009 Posts: 53
|
Posted: 04 Jun 2009 04:35:34 pm Post subject: |
|
|
ztrumpet, I like the randomness of your last little piece of code.
and yup, thats my Xvirus . |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 04 Jun 2009 05:21:59 pm Post subject: |
|
|
Thanks!
My favorite one here is Xvirus. |
|
Back to top |
|
|
woodswolf
Advanced Newbie
Joined: 26 Feb 2009 Posts: 53
|
Posted: 18 Jun 2009 04:58:49 pm Post subject: |
|
|
Don't know if you guys are gonna like this one:
Code: :2→Xmin:1→ΔX
:2→Ymin:1→ΔY
:ClrDraw:Axesoff:CoordOn
:For(A,2,96
:For(X,A,96,A
:For(Y,A,64,A
:Pt-On(X,Y
:End
:End
:End
interactive divide checker
Run the program to see cool points who start covering the screen. You can check if a number is prime when you go down/left from that line that starts of in the left-corner and the number is prime when there are no points under or left of it |
|
Back to top |
|
|
ztrumpet
Active Member
Joined: 06 May 2009 Posts: 555
|
Posted: 21 Jun 2009 12:22:50 pm Post subject: |
|
|
Cool, but it takes a while. I like xvirus better. |
|
Back to top |
|
|
dxfan101010
Member
Joined: 31 Mar 2008 Posts: 194
|
Posted: 21 Jun 2009 03:11:23 pm Post subject: |
|
|
Xvirus is pretty cool |
|
Back to top |
|
|
woodswolf
Advanced Newbie
Joined: 26 Feb 2009 Posts: 53
|
Posted: 21 Jun 2009 07:10:54 pm Post subject: |
|
|
Yeah but, I can't seem to think of any program that can compete with Xvirus other then that prime checker |
|
Back to top |
|
|
tiuser1010
Member
Joined: 23 Apr 2009 Posts: 100
|
Posted: 22 Jun 2009 07:28:44 am Post subject: |
|
|
Here's something else i came up with
Code: :ZStandard
:AxesOff
:For(X,1,10
:Line(X,9,-X,-9
:End
:For(X,-10,1
:Line(X,9,-X,-9
:End
Last edited by Guest on 22 Jun 2009 09:55:34 am; edited 1 time in total |
|
Back to top |
|
|
|