Ti-84 Plus series programing game(see inside for details)
» > >
» Goto page Previous  1, 2
» View previous topic :: View next topic  

Code:
ClrDraw 
If 0
seq(X,X,1,26->L1 
FnOff 
AxesOff 
0->Xmin 
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2 
Repeat K 
getKey->K 
End
For(X,1,dim(L2 
End 
Pause
Disp "START!

Code:
ClrDraw 
If 0
seq(X,X,1,26->L1 
FnOff 
AxesOff 
0->Xmin 
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2 
Repeat K 
getKey->K 
End
For(X,1,dim(L2
Line(X/2,28,X/2,29
End 
Pause
Disp "START!


Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
Pause
Disp "START!

Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
Pause
Disp "START!


Code:
ClrDraw 

If 0

seq(X,X,1,26->L1 
FnOff 
AxesOff 
0->Xmin 
0->Ymin
94->Xmax
Horiz
Repeat K=45 or 3=sum(not(L2 
Repeat K 
getKey->K 
End
For(X,1,dim(L2 
End 
Pause
Disp "START!
For(X,0,10
Line(X,1,X,10)
End
[/code]

https://www.cemetech.net/forum/viewtopic.php?p=251760#251760
https://img.ourl.ca/
caleb, you can't change it like that. The rules are that you can only add 1 line at a time. Though you cannot delete a line, you can invalidate it using logic. Please read the rules! Smile

Here's what I was wanting to add to my last one...
Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105

Then

For(X,1,dim(L2
Line(X/2,28,X/2,29
End
Pause
Disp "START!


Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
Pause
Disp "START!
Pause



Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
Pause
Disp "START!"
Pause
Repeat K=22 or pxl-Test(A,B

I guess I'll go again, since no one has posted...

Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
If 0
Pause
Disp "START!"
Pause
Repeat K=22 or pxl-Test(A,B

I hope I'm not the only one still doing this...

Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
If 0
Pause
Disp "START!"
If 0
Pause
Repeat K=22 or pxl-Test(A,B


Code:

ClrDraw
If 0
seq(X,X,1,26->L1
FnOff 
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
If 0
Pause 
Disp "START!"
If 0
Pause 
Repeat K=22 or pxl-Test(A,B

If A>25
Sola Fide

Code:

ClrDraw
If 0
seq(X,X,1,26->L1
FnOff 
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
If 0
Pause 
Disp "START!"
If 0
Pause 
Repeat K=22 or pxl-Test(A,B
If A>25
Then

Who knows what this would be..... Smile

Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
If 0
Pause
Disp "START!"
If 0
Pause
Repeat K=22 or pxl-Test(A,B
If A>25
Then

End
I have no idea where this game is going... I feel like we should come up with a theme or general goal or something.

*Bump* can we please continue this? I don't know where it's going but I would like to see...

Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End
If 0
Pause
Disp "START!"
If 0
Pause
Repeat K=22 or pxl-Test(A,B
If A>25
Then

Text(0,0,"--"

End

...shall I keep going until someone else goes?

Code:
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End

End

If 0
Pause
Disp "START!"
If 0
Pause
Repeat K=22 or pxl-Test(A,B
If A>25
Then
Text(0,0,"--"
End


Code:

ClrList 1
ClrDraw
If 0
seq(X,X,1,26->L1
FnOff
AxesOff
0->Xmin
0->Ymin
94->Xmax
30->Ymax
Horiz
Repeat K=45 or 3=sum(not(L2
Repeat K
getKey->K
If max(K={45,25,34,21,105
End
If K=105
Then
For(X,1,dim(L2
Line(X/2,28,X/2,29
End

End

If 0
Pause
Disp "START!"
If 0
Pause
Repeat K=22 or pxl-Test(A,B
If A>25
Then
Text(0,0,"--"
End

https://www.cemetech.net/forum/viewtopic.php?p=251760#251760
https://img.ourl.ca/

Code:

ClrDraw   

If 0

seq(X,X,1,26->L1   
FnOff   
AxesOff   
0->Xmin   
0->Ymin
94->Xmax
Horiz
Repeat K=45 or 3=sum(not(L2   
Repeat K   
getKey->K   
End
For(X,1,dim(L2   
End   
Pause
Disp "START!
Input "Your Choice(1-6):",A
new projekts (basic): c-compiler 1% / mylib 3% / ultimative gaming lib 16% / mem cleared fake 100 % / math properity cheat 100 % / gta 1% /document 90 % / document premium 50% / fast small basic (fsb) 1%/
if you need basic graphics just send me a message Very Happy

Code:

ClrDraw   

If 0

seq(X,X,1,26->L1   
FnOff   
AxesOff   
0->Xmin   
0->Ymin
94->Xmax
Horiz
Repeat K=45 or 3=sum(not(L2   
Repeat K   
getKey->K   
End
For(X,1,dim(L2   
End   
Pause
Disp "START!
Input "Your Choice(1-6):",A

Line(A+2,A/2,0,0)

https://www.cemetech.net/forum/viewtopic.php?p=251760#251760
https://img.ourl.ca/
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Ti-84 Plus series programing game(see inside for details)
» Goto page Previous  1, 2
» View previous topic :: View next topic  
Page 2 of 2
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement