Dinosaur Game Optimization

Forum Attachments

Summary:

Sort of like the Chrome Dino Game, but I will do a version more like that one much later.

Dinosaur Game Optimization

CalcNerd 07 Nov 2020 13:45

I made a game that is like the Chrome dino game. (obviously not the same quality. I will work on a version that is more like it later. For now, I will just use letters) It is lacking one major thing, randomly generated "cacti". I was working on this project yesterday, and I couldn't think of a way to do them. I thought about using a list, but I am not sure how I would do that. I will post the code below. If you can think of any way to do the randomly generated "objects", let me know!

Thanks!

CalcNerd

:7->X:16->A:ClrHome
:Output(8,1,"================ //16 Equals
:Repeat K=45 or X=7 and A=2
:getKey->K
:A-1->A
:If A=1
:16->A
:Output(7,1,"                // 16 spaces
:Output(7,A,"v
:If X=6
:Output(X+1,2," // One Space
:Output(X-1,2," //One Space
:Output(X,2,"θ
:max(4,min(7,X+1-4(K=21->X
:End

Re: Dinosaur Game Optimization

(account deleted) 09 Nov 2020 17:03

If you want any ideas or inspiration, here is Dino Run CE:
https://ticalc.org/archives/files/fileinfo/473/47362.html

---

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

Re: Dinosaur Game Optimization

(account deleted) 02 Dec 2020 14:21

you are right on the list thing.
so what you wanna do is have one cacti (with a height of some number from 1 to 3) spaced out with said spacing determined with

randInt(6,10

the list would be 16 items long, and it would be "shifted" using

ΔList(CumSum(L₁

example:

the list would look like this:
{0,0,0,0,0,2,0,0,0,0,0,0,3,0,0,0
and when put on screen, would look like this:

*
* *
* *

(the *'s are cacti)
edit: sorry it only shows if you can somehow edit my post. :(

Last edited on 02 Dec 2020 14:23 by (account deleted) Show more

Re: Dinosaur Game Optimization

CalcNerd 02 Dec 2020 17:05

Ok! I will try implementing this into my game and see how it goes! I will get back to you when it is finished.

Thanks!

CalcNerd

Re: Dinosaur Game Optimization

CasualGamer 03 Dec 2024 18:41

I tried to add the cacti but it didn’t work, it would be great if someone could fix it for me. Please keep in mind that this is only my second time coding, so sorry for the very bad and excess code and text.
Here’s the code:

:7->X:16->A:10->Z:ClrHome
:Output(8,1,”================ //16 Equals
:Repeat K=45 or X=7 and A=2 or X=6 and A=2 and Z=2 or X=5 and A=2 and Z=3 or X=6 and A=2 and Z=3
:If Z=10 // doesn’t need to be 10, just any # that isn’t 1, 2, or 3. If you change it, change all the 10s
:randInt(1,3)->Z
:Z->B
:End
:getKey->K
:A-1->A
:If A=1
:randInt(16,20)->A
:10->Z
:End
:Output(7,1,” // 16 spaces (the spaces don’t show)
:Output(6,1,” // 16 spaces
:Output(5,1,” // 16 spaces
:If A≤16 and Z≠10
:Output(Z,A,”v
:If Z≠1 and Z≠10
:Repeat B=1
:B-1->B
:Output(B,A,”v
:End
:End
:End
:If X≠7
:Output(X+1,2,” // One space
:Output(X-1,2,” // One space
:Output(X,2,”0
:max(4,min(7,X+1-4(K=25->X
:Wait .05
:End
:End