Hey Guys

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

Forum Attachments

Hey Guys

(account deleted) 09 Apr 2018 14:05

I have been working on a program during spring break, here it is. If you want to comment or optimize, go ahead.
(This is kind of like the program LIGHT CYCLES.)

ClrHome
SetUpEditor RUN
1→dim(⸤RUN
abs(iPart(⸤RUN→⸤RUN
AxesOff
ZStandard
ZInteger
PlotsOff
FnOff
For(I,47,45,-1
Vertical I
Vertical -I
Horizontal I-16
Horizontal -I+16
End
Text(-1,28,31,"Ready?
Text(53,4,"High Score:",⸤RUN(1),"ft
30→Y
Line(46,29,46,-30,0
Repeat K=105 or Y=-31
getKey→K
Y-1→Y
Pt-On(46,Y
rand(10
If K=23:Then
Text(53,4,"High score:0ft              //30 spaces after "ft"
End:End
Vertical 46
For(I,3,-28,-1
Line(-44,I,44,I,0
End
47→X:31→Y:0→D:26→G
startTmr→T
Repeat K=45 or pxl-Text(Y,X
Repeat K or pxl-Text(Y,X
Pxl-On(Y,X
X+(G=26)-(G=24)→X
Y+(G=34)-(G=25)→Y
D+1→D
End
K→G
End
For(I,28,-28,-1
Line(-44,I,44,I,0
End
Text(3,4,"GAME OVER!
Text(9,4,"Distance: ",D,"ft
checkTmr(T→T
iPart(Ans/60→M
T-60Ans→T
Text(15,4,"Time: ",M,"m ",Ans,"
Text(21,4,"Highscore: ",⸤RUN(1),"ft
If D>⸤RUN(1:Then
D→⸤RUN(1
Text(27,4,"New highscore!
End
Pause
ClrDraw
ClrHome
Archive ⸤RUN

Code finished: 100% Done (Finished on 4/10/2018 @ 8:02 AM

---

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

Last edited on 10 Apr 2018 14:08 by (account deleted) Show more