This is a semi-complete game, I just need to optimize it. Basically you select a texture pack, weapon (Laser is recommended), and try not to let the large dots hit the bottom!
It requires a List named "⌊GAME"
I spent an hour long study hall on this and I feel pretty good on how it turned out. If I had time to remake it, I would completely change the way it detects and counts the dots. I feel like it would be smarter to just have a variable that you add to or subtract from instead of recounting every single time.
Code:
Have Fun!
It requires a List named "⌊GAME"
I spent an hour long study hall on this and I feel pretty good on how it turned out. If I had time to remake it, I would completely change the way it detects and counts the dots. I feel like it would be smarter to just have a variable that you add to or subtract from instead of recounting every single time.
Code:
Disp "Typing v1.1.0"
Disp "By _iPhoenix_"
Pause "{Press Enter to start}"
ClrHome
Pause
Menu("Texture pack select","Standard",A,"Curvy",B,"Large",C,"IDK",F,"Limited edition",G,"Custom",H
Lbl A
"·•"→Str1
Goto D
Lbl B
"()"→Str1
Goto D
Lbl C
".*"→Str1
Goto D
Lbl F
".•→Str1
Goto D
Lbl G
"▫⁺→Str1
Goto D
Lbl H
Input "Passive: ",Str2
Input "Agressive: ",Str3
Str2+Str3→Str1
Lbl D
Menu("Select weapon:","Laser",AA,"Sword",BB,"Salvo",CC,"Missle",DD
Lbl AA
1→O
Goto E
Lbl BB
2→O
Goto E
Lbl CC
3→O
Goto E
Lbl DD
4→O
Lbl E
SetUpEditor ⌊GAME
0→θ
{5,5→dim([D]
5→L
0→T
35→W
1→D
⌊GAME(1)→J
ClrHome
Repeat L≤0
Output(1,16,"High: "
Output(1,22,J
If θ≥W:Then
0→G
For(E,1,5
G+[D](5,E→G
End
If G≥1
Then
L-1→L
Disp L
End
0→θ
1→D
rowSwap([D],1,2→[D]
rowSwap([D],1,3→[D]
rowSwap([D],1,4→[D]
rowSwap([D],1,5→[D]
End
Repeat K or θ≥W
θ+1→θ
getKey→K
End
If θ<W
Then
1→D
K-10→K
If O=1
Then
5→N
0→F
Repeat N=0 or F
If [D](N,K)=1
Then
0→[D](N,K
T+1→T
1→F
End
Output(2N,6K-5,"!
N-1→N
End
Else:If O=2:Then
If [D](4,K)=1 or [D](5,K)=1
Then
T+1→T
0→[D](4,K
0→[D](5,K
End
Else
If O=3:Then
For(S,1,randInt(1,10)
randInt(1,5)→T
randInt(1,5)→U
abs([D](T,U)-1→[D](T,U
End
Else
0→G
5→N
For(S,1,5
0→[D](S,K
T+1→T
End
1→D
End
End
End
End
If D=1
Then
0→D
0→G
For(U,1,5
For(Z,1,5
Output(2U,6Z-5,sub(Str1,[D](U,Z)+1,1
End
End
End
For(U,1,5
For(Z,1,5
G+[D](U,Z→G
End
End
Output(1,1,"Score: "
Output(1,7,T
If G<5
Then
1→D
For(H,1,randInt(1,3)
1→[D](randInt(1,3),randInt(1,5))
End
End
If randInt(1,2)=1
W-rand²→W
End
ClrHome
If T>⌊GAME(1) and O<4
Then
Disp "New high score!","Congratulations!
T→⌊GAME(1)
End
Archive ⌊GAME
Have Fun!