Optimize me #5

Forum Attachments

Optimize me #5

Timothy Foster 28 Nov 2008 19:03

Here is the first game I've ever made in programming. Let's see how much optimization can be made…

:ClrHome
:Lbl 0
:Menu("Equation Game!","Level 1",1,"Level 2",2,"Level 3",3,"Level 4",4,"Level 5",5,"Extreme",6,"Ultimate",7)
:Lbl 1
:int(10rand)→A
:int(10rand)→B
:int(10rand)→C
:Disp "Numbers"
:Disp A
:Disp B
:Disp "Answer"
:Disp C
:Disp "Equation?"
:Prompt E
:If E=C
:Disp "You Win!"
:If E≠C
:Disp "You Lose"
:Pause
:Menu("Select","Again",1,"Menu",0,"Quit",Q)
:Lbl 2
:int(20rand)→A
:int(20rand)→B
:int(20rand)→C
:Disp "Numbers"
:Disp A
:Disp B
:Disp "Answer"
:Disp C
:Disp "Equation?"
:Prompt E
:If E=C
:Disp "You Win!"
:If E≠C
:Disp "You Lose"
:Pause
:Menu("Select","Again",2,"Menu",0,"Quit",Q)
:Lbl 3
:int(10rand)→A
:int(10rand)→B
:int(10rand)→C
:int(20rand)→D
:Disp "Numbers"
:Disp A
:Disp B
:Disp C
:Disp "Answer"
:Disp D
:Disp "Equation?"
:Prompt E
:If E=D
:Disp "You Win!"
:If E≠D
:Disp "You Lose"
:Pause
:Menu("Select","Again",3,"Menu",0,"Quit",Q)
:Lbl 4
:10+int(‾20rand)→A
:10+int(‾20rand)→B
:10+int(‾20rand)→C
:Disp "Numbers"
:Disp A
:Disp B
:Disp "Answer"
:Disp C
:Disp "Equation?"
:Prompt E
:If E=C
:Disp "You Win!"
:If E≠C
:Disp "You Lose"
:Pause
:Menu("Select","Again",4,"Menu",0,"Quit",Q)
:Lbl 5
:int(20rand)→A
:int(20rand)→B
:int(500rand)→C
:Disp "Numbers"
:Disp A
:Disp B
:Disp "Answer"
:Disp C
:Disp "Equation?"
:Prompt E
:If E=C
:Disp "You Win!"
:If E≠C
:Disp "You Lose"
:Pause
:Menu("Select","Again",5,"Menu",0,"Quit",Q)
:Lbl 6
:int(2rand)→A
:int(10rand)→B
:int(10rand)→C
:int(10rand)→D
:If A=1
:Disp "Use Only +-*/^"
:If A=0
:Disp "Use Only +-()√("
:Disp "Numbers"
:Disp A
:Disp B
:Disp "Answer"
:Disp C
:Disp "Equation?"
:Prompt E
:If E=C
:Disp "You Win!"
:If E≠C
:Disp "You Lose"
:Pause
:Menu("Select","Again",6,"Menu",0,"Quit",Q)
:Lbl 7
:int(10rand)→A
:int(10rand)→B
:int(10rand)→C
:int(10rand)→D
:int(10rand)→F
:int(10rand)→G
:Disp "Numbers"
:Disp A+Bi
:Disp C+Di
:Disp 2
:Disp "Answer"
:Disp F+Gi
:Disp "Equation?"
:Prompt E
:If real(E)=F and imag(E)=G
:Disp "You Win!"
:If real(E)≠F and imag(E)≠G
:Disp "You Lose"
:Pause
:Menu("Select","Again",7,"Menu",0,"Quit",Q)
:Lbl Q
:Clrhome

Ugly or what?

---

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Last edited on 28 Nov 2008 19:28 by Timothy Foster Show more

Re: Optimize me #5

jnesselr 28 Nov 2008 19:20

ahh… My eyes… My eyes… It's too… too… ahh, there isn't even a word to describe it!!!

Seriously now, I didn't look at it much, but it could use some optimization.

Re: Optimize me #5

rhombus p 28 Nov 2008 19:26

you have the same menu in there over and over again. you only need to put it in once and use a label to goto it

EDIT: oh never mind there different.

---

Last edited on 28 Nov 2008 19:30 by rhombus p Show more

Re: Optimize me #5

Timothy Foster 28 Nov 2008 19:31

Oops, those numbers on the Menu's were supposed to change.
Also, all of the int(10rand)'s can be randInt(1,10
The If's could be If…Then…Else…End
All the stores shouldn't exist.
In fact, the menu's can be omitted into a "Goto 0" and the player can select the same again if he/she wishes.

---

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Re: Optimize me #5

Timothy Foster 28 Nov 2008 22:31

My optimization
I will finish later

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Re: Optimize me #5

basickevin 29 Nov 2008 01:23

Are we trying to optimize for speed or size as a priority?
edit: Also, what are all of the extra numbers for? I have no idea what is going on when I play this game. Almost all of the variables have nothing to do with the answer.

Last edited on 29 Nov 2008 01:34 by basickevin Show more

Re: Optimize me #5

rhombus p 29 Nov 2008 02:51

for the first 5 levels you could have somthing like this

ClrHome
1→A
Repeat K=105
getKey→K
Output(4,8,A
Output(3,8,"▫
Output(5,8,"
If K=25 and A<5
A+1→A
If K=34 and A>1
A-1→A
End
randInt(1,10A)→B
randInt(1,10A)→C
randInt(1,10A)→D
Disp "Numbers",B,C,"Answers",D
Input "Equation: ",E
If E=D
Disp "You Win!"
If E≠D
Disp "You Lose"

---

Last edited on 29 Nov 2008 15:34 by rhombus p Show more

Re: Optimize me #5

patriotsfan 29 Nov 2008 19:21

You can also remove the unnecessary parentheses and quotation marks.

Re: Optimize me #5

Xphoenix 05 Dec 2008 06:14

Lbl MM
DelVar KClrHome
Disp "EQUATION GAME!","LEVEL
1→L
While K≠105
Output(2,7,L
Repeat Ans          // custom input routine replaces labels with a level number...
getKey→K           // maybe just use Prompt?
End
If Ans=24 and L>1
L-1→L
If Ans=26 and L<7
L+1→L
End
Lbl G
{0,0,0,-10,0,0→L2          // referenced later based on level
{9,19,9,9,19,9→L3          // possible that it would be easier to use If/Then because of so many repeated values
Disp "NUMBERS
For(I,1,2+(L=3          // smaller without For( loop?
If L<7
Disp randInt(L2(L),L2(L
If L=7
Disp int(10rand)+i*int(10rand          // that's the imaginary i, not the letter, remove the multiply sign when entering on calculator
End
If L=7
Disp 2
If L=6 and rand>.5
Then
Disp "USE ONLY +-*/^\
Else
Disp "USE ONLY +-()√(
End
Disp "ANSWER
If L<5 or L=6
randInt(L2(L),L(L→D
If L=5
500rand→D
If L=7
10rand+i*10rand→D          // same here
Disp int(D),"EQUATION?
Prompt E
If imag(E)=imag(D) and real(E)=real(D
Then
"YOU WIN!
Else
"YOU LOSE!
End
Pause Ans
Menu("SELECT","AGAIN",G,"CHANGE LEVEL",MM,"QUIT",Q
Lbl Q

It's clearly smaller, but it can definitely be shrunk more. Also, I haven't actually tested it…

Re: Optimize me #5

crabbb622 14 Jan 2009 23:09

wait…
i'm confused about the point of the game

couldn't the person just enter whatever C is?

Re: Optimize me #5

Timothy Foster 14 Jan 2009 23:14

The game is to use the numbers above the answer in an arrangement of operations to create the answer. The user could technically just enter C, but then that means they lose the point of the game. The challenge only comes when you try. And besides, this was my first game program, so it isn't too great anyway.

---

Timothy Foster - @tfAuroratide
Auroratide.com - Go here if you're nerdy like me

Re: Optimize me #5

(account deleted) 16 Jan 2009 18:45

wow, quite a lot If-tenses.
never heard of boolean?
example:
instead of using this:

If Ans=24 and L>1
L-1→L

use this:

L-(And=24)(L>1)→L

ok, second thing:

While K≠105
Output(2,7,L
Repeat Ans          // custom input routine replaces labels with a level number...
getKey→K           // maybe just use Prompt?
End
If Ans=24 and L>1
L-1→L
If Ans=26 and L<7
L+1→L
End

this is shorter:

While Ans≠105
Output(2,7,L
L-(Ans=24)(L>1)→L
L+(Ans=26)(L<7)→L
GetKey
End

or Output destroys Ans in some kind of way?i dont know for sure.

+EDIT

:int(10rand)→A
:int(10rand)→B
:int(10rand)→C
:int(10rand)→D
:int(10rand)→F
:int(10rand)→G

maybe you should work with lists seeing this.

these are just 'standard' optimize thingys,
what does this game do? :P

Last edited on 16 Jan 2009 18:49 by (account deleted) Show more

wowaname (guest) 26 Nov 2014 14:02

L-(Ans=24)(L>1)→L
L+(Ans=26)(L<7)→L

can be simplified to

L-(Ans=24)(L>1)+(Ans=26)(L<7)→L