Grayscale Bug

Name: Grayscale Bug Author: blue_bear_94 Download: Grayscale%20Bug.zip Compatibility: TI-84/+/SE File Size: 668 Bytes

This is a game in grayscale. Even more surprising is that it's in pure TI-Basic.

What the community thinks:

Cool

willwac 11 Sep 2012 16:28

Cool

---

Thanks,
William "Your goto tech gut", CEO, and Owner of NewCoolPC

...

Robert Black 21 Oct 2014 13:38

I know how to make grayscale pixels, but how did you do it here, at the same time as running the program? Wouldn't that make it too dark or too light?

gaventemples31415 21 Oct 2014 19:36

Well, I'm assuming he had two characters in a loop and rapidly changed from one to the other, maybe with an sub( command, so like this:

0->S
Repeat 0
Output(A,B, sub("O+",S+1,1
not(S->S
End

Very impressive, have a suggestion

Kydapoot 07 Apr 2016 00:48

Although most of the coding is far beyond my level, I don't think it would be that difficult to add a score, or possibly a time or move limit, jut to make it more interesting. Very cool and fun to look at and mess with for a while, but I got bored pretty quickly. I do like the program though.

---

What do you get when you multiply six by nine? Forty-Two.

My Projects

My best work so far

Re: Very impressive, have a suggestion

(account deleted) 25 Apr 2018 14:05

Can someone post the source? This sounds fun

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: Very impressive, have a suggestion

Trenly 25 Apr 2018 14:14

1→dim(ʟBUG
ClrHome
Repeat getKey
Output(3,2,"G a s a e  u   B  b u - e r 9 
Output(3,2," r y c l  B g   y  l e b a - 4
End
Lbl Y
ClrHome
4→A
4→B
startTmr→C
randInt(1,8→D
randInt(1,16→E
DelVar SRepeat 60≤checkTmr(C
Repeat Ans
Output(A,B,"X
Output(D,E,"O
getKey
Output(A,B,"+
Output(D,E,"+
End
Ans→K
If Ans
Output(A,B," 
If Ans=105
Goto N
B-(Ans=24 and B≠1)+(Ans=26 and B≠16→B
A-(K=25 and A≠1)+(K=34 and A≠8→A
If min({A,B}={D,E
Then
S+1→S
randInt(1,8→D
randInt(1,16→E
End
End
ClrHome
For(I,1,200
Output(4,6,"S O !
Output(4,6," T P 
End
getKey
ClrHome
If S>ʟBUG(1
{S→BUG
S
Repeat getKey
Output(4,2," o r  c r  i :
Output(5,8,Ans
Output(4,2,"Y u  s o e  s 
Output(5,8,"  
End
ClrHome
ʟBUG(1
Repeat getKey
Output(4,7,"T p 
Output(5,8,Ans
Output(4,7," o :
Output(5,8,"  
End
Menu("Play again?","Yes",Y,"No",N
Lbl N
ClrHome
randInt(10,99→A
randInt(10,99→B
Disp ""
Output(1,1,A
Output(1,3,"*
Output(1,4,B
AB

Last edited on 25 Apr 2018 14:14 by Trenly Show more

Want to update this page?

• Upload new files to provide up-to-date versions of your program;
• or Edit the content of this page to provide up-to-date information about your program.

A moderator will only process these changes if you add the word update to the list of tags