New Game for T1-84 plus

Forum Attachments

Summary:

So I have been working on a new game where you are a pixel on the screen and have to get points while avoiding the other pixels.

New Game for T1-84 plus

BossOpossum9 08 May 2017 19:27

So here is what I have so far. PLEASE NOTE I AM VERY NEW TO T1-BASIC AND AM STILL LEARNING IF YOU SEE ANY THING THAT CAN BE FIXED PLEASE LET ME KNOW THANK YOU.

: AxesOff
: Zstandard
: Clrdraw
: 47→X
: 31→Y
: 0→S : 1→E : 1→J
: Line(-2,-3,-2,3
: Line(-.6,-3,-.6,3
: Line(.6,-3,.6,3
: Line(2,-3,2,3
: Line(-2,-3,2,-3
: Line(-2,3,2,3
: Line(-2,-1,2,-1
: Line(-2,1,2,1
: RandInt(1,9)→P
:  
: Lbl 1
: getkey→G
: 0→D
:  
: Text(3,87,S)
:  
: If G=24 and D=0
: 1→D
: If G=26 and D=0
: 2→D
: If G=25 and D=0
: 3→D
: If G=34 and D=0
: 4→D
:  
: If D≠0
: Pxl-off(Y,X)
:  
: If D=1 and X≥47
: X-6→X
: If D=2 and X≤47
: X+6→x
: If D=3 and Y≥31
: Y-6→Y
: If D=4 and Y≤31
: Y+6→Y
:  
: Pxl-on(Y,X)
:  
: If P=1 : Then
: 41→B
: 25→A
: end
: If P=2 : Then
: 47→B
: 25→A
: end
: If P=3 : Then
: 53→B
: 25→A
: end
: If P=4 : Then
: 41→B
: 31→A
: end
: If P=5 : Then
: 47→B
: 31→A
: end
: If P=6 : Then
: 53→B
: 31→A
: end
: If P=7 : Then
: 41→B
: 37→A
: end
: If P=8 : Then
: 47→B
: 37→A
: end
: If P=9 :Then
: 53→B
: 37→A
: end
: Pxl-on(A,B)
: If Y=A and X=B : Then
: S+1→S
: RandInt(1,9)→P
: end
: If S>99 : Then
: Disp "YOU WIN!"
: Stop
: Goto 1
---The Following is the basis for what the screen should look like---
           _ _ _
          l_l_l_l
          l_l_l_l
          l_l_l_l

Last edited on 09 May 2017 18:38 by BossOpossum9 Show more

Re: New Game for T1-84 plus

Trenly 08 May 2017 19:40

max({1,2,3,4}{G=24,G=26,G=25,G=34}not(D)->D

Instead of:

: If G=24 and D=0
: 1→D
: If G=26 and D=0
: 2→D
: If G=25 and D=0
: 3→D
: If G=34 and D=0
: 4→D

X+max({-6,6}{X≥47,X≤47}{D=1,D=2}→X

Instead of:

: If D=1 and X≥47
: X-6→X
: If D=2 and X≤47
: X+6→x

Re: New Game for T1-84 plus

BossOpossum9 09 May 2017 18:35

I know how to optimize the program somewhat its just that I don't truly get how the optimizations work so I used this in order to create a working program. Thanks for responding though I need all the help I can get.

Re: New Game for T1-84 plus

wifijoe 09 May 2017 15:35

I got the program part that works to 404 bites, I'll post that later when I get to a computer.

Re: New Game for T1-84 plus

BossOpossum9 09 May 2017 18:35

OK got it thanks for the help by the way. =)

Re: New Game for T1-84 plus

wifijoe 09 May 2017 19:45

ok, just ask if you need any clearance on what does what ;)

AxesOff:ZStandard:ClrDraw //setting up screen
DelVar S:1→E:1→J:DelVar G //setting up variables
Line(­2,­3,­2,3 //setting up screen
Line(­.6,­3,­.6,3
Line(.6,­3,.6,3
Line(2,­3,2,3
Line(­2,­3,2,­3
Line(­2,3,2,3
Line(­2,­1,2,­1
Line(­2,1,2,1
47→X:31→Y //more variables NOTE: these must be here
randInt(1,9→P
While 1 //setting up loop
Pxl-Off(Y,X
X-((G=24 and X≥47)*6)+((G=26 and X≤47)*6→X //movment left and right
Y-((G=25 and Y≥31)*6)+((G=34 and Y≤31)*6→Y //movment up and down
Pxl-On(Y,X
If Y=A and X=B 
S+1→S
Text(1,87,S
While B=X and A=Y //while loop for setting up new dot location
randInt(1,9→P
41+(((P-1)*6)*(P<4))+(((P-4)*6)*(P>3 and P<7))+(((P-7)*6)*(P>6→B
If P<4:25→A
If P>3 and P<7:31→A
If P>6:37→A
End
Pxl-On(A,B
If S≥10:Then //the 10 can be changed into anything
Disp "YOU WIN!
Stop
End
Repeat G //input loop
getKey→G
End:End

Re: New Game for T1-84 plus

BossOpossum9 09 May 2017 20:24

OK I will be updating this once I have the pixels that scroll through the screen finished. =)

Re: New Game for T1-84 plus

BossOpossum9 10 May 2017 18:57

Hey I just wanted to ask you how could I do the pixels that move across the screen that will stop the program if they are equal to the Y and X values without them screwing up due to domain or leaving a trail behind them longer than 5 pixels and not going insanely fast.
If you don't want to help or would rather me work on this myself just let me know ok. =)

Re: New Game for T1-84 plus

wifijoe 10 May 2017 20:50

essentially you would want something like this:

30→X:30→Y //change x and y to v and w if the program stop does not work
1→C:1→D //these don't have to be these, this is just an example
1→E:1→F
ClrDraw
Pxl-On(Y,X
While 1
F→D:E→C
Pxl-On(C,D
if C=Y and D=X
Stop
F+1→F //to move horizontally
E+1→E //to move vertically
For(θ,1,25 //buffer loop (essentially slowing the program down)
End
Pxl-Off(C,D
End

Edit: change the 25 to a bigger number to slow it down further

Edit 2: why does Y give a 0 even after me setting it to 30? could someone explain that?

Last edited on 10 May 2017 22:58 by wifijoe Show more

Re: New Game for T1-84 plus

BossOpossum9 11 May 2017 13:04

cool thank you so much. Ill make sure to put you down as one of the people who wrote the code if I add this to archives ever.