Forest Escape

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.

You have not uploaded your program! Please edit the page to upload your program.

Author:

Bio_Hazard1282

Download: Forst_Escape.txtNo Download Available
Version: 1.0
Compatibility: TI-83/84/+/SE
File Size: 783 Bytes
Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc
Rating:
TI|BD

You are an explorer in a very deep forest, and you need to escape it to civilization. You are on your motorcycle, your only way of transportation. Unless you prefer walking. Can you beat the high score? Good luck!


Source code:

PROGRAM:FRUN
ClrHome
ClrDraw
AxesOff
ZStandard
ZInteger
PlotsOff
FnOff
SetUpEditor FRUN
2→dim(⸤FRUN
Text(44,0,"FOREST ESCAPE
Text(51,6,"HIGH DISTANCE: ",⸤FRUN(1),"m   //meters (metres if your in a different region)
Text(57,2,"TOTAL DISTANCE: ",⸤FRUN(2),"m
Pause
Delvar DDelvarG47→X
Repeat K=45 or pxl-Test(31,X
getKey→K
Pxl-On(31,X
Asm(prgmDOWN
D+1→D
If max(K={24,26,25
K→G
If K=105:Pause
X+(G=26)-(G=24→G
X+95(X=-1)-95(X=95→X
Text(0,randInt(0,94),"Y
End
If D>⸤FRUN(1
D→⸤FRUN(1
⸤FRUN(2)+D→⸤FRUN(2
Text(44,2,"HIGH DISTANCE: ",⸤FRUN(1),"m
Text(44,2,"TOTAL DISTANCE: ",⸤FRUN(2),"m
Pause
ClrDraw
ClrHome
PROGRAM:DOWN
:AsmPrgm213396113F9601F402EDB823010C00EF304CEF6A48C9  //Shift screen down one pixel level

What the community thinks:

Add a New Comment
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-Noncommercial 2.5 License.