1Ok, I have another optimization that is fairly tough. This is my game that I made, but it slows down a ton. The point of the game is to figure out what X equals in the pattern. Some are very easy and others are crazy hard. I will post later with the answers to all of the patterns. Back on topic. It slows and gets boring because you have to wait for the timer. This uses Goto WAY too much. Here it is:
Variables:
∟CC - The list to see which codes have been done
P - Time and points (10's place)
Q - Time (1's place)
A - Answer
Str1 - Code
S - score
K - getKey
X - Used for menu
Y - Used for menu
0→S
16→dim(∟CC
Fill(1,∟CC
4→X
ClrHome
Output(2,1,"Codecracker.EXE Initiated
Output(5,1,"Getcode.EXE Enabled
Pause
Lbl A
ClrHome
Output(1,4,"PLAY MODE
Output(4,6,"SELECT
Output(5,6,"TUTORIAL
Output(X,4,"<>
While 1
getKey→K
While K=0
getKey→K
End
If K=25
Goto UP
If K=34
Goto DN
If K=105
Goto EN
Lbl UP
Output(X,5,"
Output(X,4,"
X-1→X
If X=3
5→X
Goto A
Lbl DN
Output(X,4,"
Output(X,5,"
X+1→X
If X=6
4→X
Goto A
Lbl EN
If X=3:Then
1→A:Goto UH:End
If X=4:Then
2→A:Goto X:End
ClrHome
Output(1,1,"IN THIS GAME, YOU MUST FIGURE OUT THE NEXT NUMBER IN THE PATTERN. YOU GET BONUS POINTSFOR ANSWERING FASTER
Pause
Goto A
Lbl X
Lbl NX
ClrHome
1→X
For(Z,1,7,2
For(LIST,4,13,3
Output(Z,LIST,X
X+1→X
End
End
1→X
3→Y
Lbl XA
Output(X,Y,"{
Output(X,Y+3,"}
While 1
getKey→K
While K=0
getKey→K
End
If K=24
Goto LL
If K=25
Goto UU
If K=26
Goto RR
If K=34
Goto DD
If K=105
Goto EE
Lbl LL
Output(X,Y,"
Output(X,Y+3,"
Y-3→Y
If Y<3:12→Y
Goto XA
Lbl UU
Output(X,Y,"
Output(X,Y+3,"
X-2→X
If X<1:7→X
Goto XA
Lbl RR
Output(X,Y,"
Output(X,Y+3,"
Y+3→Y
If Y>12:3→Y
Goto XA
Lbl DD
Output(X,Y,"
Output(X,Y+3,"
X+2→X
If X>7:1→X
Goto XA
Lbl EE
ClrHome
If X=1 and Y=3 and ∟CC(1)=1:Goto 1
If X=1 and Y=6 and ∟CC(2)=1:Goto 2
If X=1 and Y=9 and ∟CC(3)=1:Goto 3
If X=1 and Y=12 and ∟CC(4)=1:Goto 4
If X=3 and Y=3 and ∟CC(5)=1:Goto 5
If X=3 and Y=6 and ∟CC(6)=1:Goto 6
If X=3 and Y=9 and ∟CC(7)=1:Goto 7
If X=3 and Y=12 and ∟CC(8)=1:Goto 8
If X=5 and Y=3 and ∟CC(9)=1:Goto 9
If X=5 and Y=6 and ∟CC(10)=1:Goto 10
If X=5 and Y=9 and ∟CC(11)=1:Goto 11
If X=5 and Y=12 and ∟CC(12)=1:Goto 12
If X=7 and Y=3 and ∟CC(13)=1:Goto 13
If X=7 and Y=6 and ∟CC(14)=1:Goto 14
If X=7 and Y=9 and ∟CC(15)=1:Goto 15
If X=7 and Y=12 and ∟CC(16)=1:Goto 16
Goto NX
Lbl 1
99→P
"1,2,3,4,X"→Str1
5→A
0→∟CC(1
Goto RU
Lbl 2
200→P
"1,4,9,16,X"→Str1
25→A
0→∟CC(2
Goto RU
Lbl 3
300→P
"27,64,X,216,343"→Str1
125→A
0→∟CC(3
Goto RU
Lbl 4
400→P
"0,1,1,2,3,5,8,13,X"→Str1
21→A
0→∟CC(4
Goto RU
Lbl 5
200→P
"1,4,7,10,X"→Str1
13→A
0→∟CC(5
Goto RU
Lbl 6
250→P
"1,1,2,4,7,11,16,X"→Str1
22→A
0→∟CC(6
Goto RU
Lbl 7
200→P
"243,81,27,9,X"→Str1
3→A
0→∟CC(7
Goto RU
Lbl 8
600→P
"1,11,21,1211,3112,132112,X"→Str1
312213→A
0→∟CC(8
Goto RU
Lbl 9
400→P
"2,8,26,80,X"→Str1
242→A
0→∟CC(9
Goto RU
Lbl 10
200→P
"(1/2),(1/4),(1/8),(1/16),X"→Str1
1/32→A
0→∟CC(10
Goto RU
Lbl 11
400→P
"1,2,6,24,120,X"→Str1
720→A
0→∟CC(11
Goto RU
Lbl 12
600→P
"ð(2,2,4,16,X"→Str1
256→A
0→∟CC(12
Goto RU
Lbl 13
400→P
"(4,5),(8,7),(16,9),(32,11),(X,Y) ADD THEM"→Str1
77→A
0→∟CC(13
Goto RU
Lbl 14
600→P
"(5/1600),(10/400),(20,100),(40,25),(X)"→Str1
80/6.25→A
0→∟CC(14
Goto RU
Lbl 15
600→P
"1,2,8,X,32768"→Str1
128→A
0→∟CC(15
Goto RU
Lbl 16
200→P
"1,3,4,6,7,9,X"→Str1
10→A
0→∟CC(16
Goto RU
Lbl RU
Output(2,1,Str1
Repeat K>0
getKey→K
Output(1,14,P
P-1→P
If P=99 or P=9:Output(1,14,"
If P<0:Goto L
If K=105:Goto G
End
Lbl G
ClrHome
Input "X= ",X
If X=A:Goto W
Goto RU
Lbl W
P+S→S
ClrHome
Output(3,5,"GOOD JOB
Output(4,3,"POINTS:
Output(4,11,P
Output(5,4,"SCORE:
Output(5,11,S
Pause
ClrHome
Goto NX
Lbl L
Output(4,6,"NOPE...
Pause
ClrHome
Goto NX
Answers: (by code number)
5
25
125
21
13
22
3
312213
242
720
256
77
80/6.25
128
10
Have fun, good luck!
Edit 1: Fixed special characters
Edit 2: Added Answers and declared variables
Edit 3: Replaced store and list characters
-Ace