Cheese Quest part 2

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

Author: Robert Black Download: README.txtNo Download Available Version: 1.0 Compatibility: TI-83/84/+/SE File Size: 0 Bytes Genre: Arcade Graphics Platform Puzzle RPG Strategy Sports Casino Board Utility Misc Rating:

Part 2 is where you are trying to get through the city walls. You control the paddle on the bottom, and the calculator controls the paddle on the top. If you get the ball past the paddle on top, it smashes part of the wall and you need to get the ball through there. This is a modified version of a program I found online. (The original coding only had one paddle (yours), and there wasn't a way to win) If you played this game, please comment, I want to see how many people have played this. :Delvar C :Delvar G :{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}→⌊1 :7→A :8→B :1→D :5→I :randInt(1,2)→J :0→Q :-1→E :6→F :While not(C :ClrHome :0→W :Output(A,B,". :Output(8,F,"-- :Output(2,I,"== :Q+1→Q :If Q=J :Then :1→J :0→Q :randInt(1,5)→S :If S=1 :Then :3→J :End :B→I :End :If A=1 :-D→D :If A=7 :Then :If B>=F-1 and B<=F+2 :-D→D :End :If A=3 :Then :If B>=I-1 and B<=I+2 :Then :abs(D)→D :End :End :If A=2 :Then :While not(W=16 :W+1→W :If B=W :Then :If ⌊1(W)=0 :Then :Pause "YOU WON PART 2! :Output(100,100,"P :End :If ⌊1(W)=1 :Then :0→⌊1(W :End :End :End :End :0→W :While not(W=16 :W+1→W :If ⌊1(W)=1 :Then :Output(1,W,"- :End :End :If B=1 or B=16 :-E→E :(A=8)→C :A+D→A :B+E→B :getKey→K :F+(K=26 and F<13)*2-(K=24 and F>1)*2→F :End :Pause "YOU LOSE" :ClrHome :Output(1,1,"")

What the community thinks:

TI BASIC

Muhammad Fazl 15 Oct 2014 12:35

How did you manage to make the ball reflect off the fortress and then make it disappear? I would like to know the code on how to do it.

Re: TI BASIC

Robert Black 20 Oct 2014 13:38

:If A=2 // If ball's Y co-ordinate is 2
:Then
:While not(W=16 // Keep repeating until W is 16
:W+1→W // Add 1 to W
:If B=W // If ball's X co-ordinate equals W
:Then
:If ⌊1(W)=0 // If the wall above the ball is already destroyed
:Then
:Pause "YOU WON PART 2! // Tell the player he won
:Output(100,100,"P // Stop the program
:End
:If ⌊1(W)=1 // If the wall above the ball isn't destroyed
:Then
:0→⌊1(W // Destroy the wall above the ball
:End
:End
:End
:End

Re: TI BASIC

Robert Black 20 Oct 2014 13:39

:If A=1 // If the ball's Y co-ordinate is 1
:-D→D // Change the ball's direction

Re: TI BASIC

Robert Black 20 Oct 2014 13:41

It may be hard to see, but there is a negative sign before the D in the previous comment ^
|

gaventemples31415 15 Oct 2014 19:35

Hmmm… Didn't feel like copying the code, but I can see some optimizations right off the bat:

:While not(W=16
:W+1→W
:If ⌊1(W)=1
:Then
:Output(1,W,"-
:End
:End

Ever heard of the repeat loop?

Repeat W=16  //Basically, this equals "While not(...)"
W+1->W
If L1(W  //Returns 1 if a value is present. Also, if you have a "If L1(W)=0", that can be "If not(L1(W"
Output(1,W,"-   //You don't need a Then statement because there is only one command after the If! I saw this quite a bit.
End

HI.

Muhammad Fazl 22 Oct 2014 17:38

It would be good to give a full-through explanation about this game and also try to do that with every game that you made or you're going to make.

Help

ap710 06 Apr 2017 21:44

In lines like Line 3:
:{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}→⌊1
What is the [ looking thing (second to last symbol).

Re: Help

Myles_Zadok 06 Apr 2017 22:00

It is the "L" that is used in front of a list. "L1" should already exist on your calculator, so you shouldn't have to create it.

Jacobz54 18 Dec 2018 01:59

so i finished typing in the code and i can only move my paddle right. how do i fix this so i can also move left?

Trenly 18 Dec 2018 02:33

Double check you typed everything 100% correctly

Jacobz54 18 Dec 2018 13:37

i looked over my code and i typed it in correctly. any other suggestions?

Trenly 18 Dec 2018 17:30

Triple check you typed everything correctly. I just tried the source code from the original post on my calculator and it worked flawlessly

More Optimizations

OneLetterShor 18 Dec 2018 20:10

In Line 3:

Change

{1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}→L₁

To

16→dim(L₁)
Fill(1,L₁)

This saves 22 bytes