Have you ever played Nibbles before?
Yes  33%  [ 1 ]
No  66%  [ 2 ]

So far, I have modified the Nibbles game (works correctly, no errors) so it exits outside the program, instead of inside the program.

Original code:

Code:
``` AxesOff:FnOff ClrDraw ZStandard 104→Xmax ⁻72→Ymin ZInteger Line(94,0,94,⁻61 Line(0,0,0,⁻61 Horizontal 0 Horizontal ⁻61 41→A:Ans→E 29→B:Ans→F 1→H:0→V 5→S:0→θ Pt-On(41,⁻29,2 Repeat not(pxl-Test(N-1,M-1 2+3int(31rand→M 2+3int(20rand→N End Pt-On(M,⁻N,2 Pt-Off(M,⁻N,3 Pxl-On(N,M Repeat 0 getKey→K If Ans:Then If H:Then (Ans=34)-(Ans=25→V If Ans 0→H Else (Ans=26)-(Ans=24→H If Ans 0→V End End If H:Then A+3H→A If pxl-Test(B,Ans-H) Then Text(27,34,"SCORE:",θ Return End Pt-On(Ans,⁻B,2 Pxl-Off(B,Ans-H Pxl-Off(B,Ans-2H Else B+3V→B If pxl-Test(Ans-V,A:Then Text(27,34,"SCORE:",θ Return End Pt-On(A,⁻Ans,2 Pxl-Off(Ans-V,A Pxl-Off(Ans-2V,A End If pxl-Test(B,A Then Pxl-Off(B,A Repeat not(pxl-Test(N-1,M-1 2+3int(31rand→M 2+3int(20rand→N End Pt-On(M,⁻N,2 Pt-Off(M,⁻N,3 Pxl-On(N,M If θ=95:Then Text(27,34,"WIN. Return End Pxl-On(62,θ 1+θ→θ S+3→S End If S:Then S-1→S:Else pxl-Test(F,E-1)-pxl-Test(F,E+1 If Ans:Then Pxl-On(F,E+2Ans Pt-Off(E,⁻F,2 E+3Ans→E Else 1-2pxl-Test(F+1,E Pxl-On(F+2Ans,E Pt-Off(E,⁻F,2 F+3Ans→F End End End ```

Modified Code:

Code:
``` ClrDraw ZStandard 104->Xmax ~72->Ymin ZInteger real(12,3,0,0,94,61,1 41->A:Ans->E 29->B:Ans->F 1->H:0->V 5->S:0->theta 0->D Pt-On(41,~29,2 Repeat not(pxl-Test(N-1,M-1    2+3int(31rand->M    2+3int(20rand->N End Pt-On(M,~N,2 Pt-Off(M,~N,3 Pxl-On(N,M Repeat D or K=45    getKey->K    If Ans:Then       If H:Then          (Ans=34)-(Ans=25->V          If Ans          0->H       Else          (Ans=26)-(Ans=24->H          If Ans          0->V       End    End    If H:Then       A+3H->A       If pxl-Test(B,Ans-H       1->D       A       Pt-On(Ans,~B,2       Pxl-Off(B,Ans-H       Pxl-Off(B,Ans-2H    Else       B+3V->B       If pxl-Test(Ans-V,A:1->D       B       Pt-On(A,~Ans,2       Pxl-Off(Ans-V,A       Pxl-Off(Ans-2V,A    End    If D    Goto SQ    If pxl-Test(B,A:Then       Pxl-Off(B,A       Repeat not(pxl-Test(N-1,M-1          2+3int(31rand->M          2+3int(20rand->N       End       Pt-On(M,~N,2       Pt-Off(M,~N,3       Pxl-On(N,M       Pxl-On(62,theta       theta+1->theta       If Ans=95       1->D       S+3->S    End    If D    Goto SQ    If S:Then    S-1->S:Else       pxl-Test(F,E-1)-pxl-Test(F,E+1       If Ans:Then          Pxl-On(F,E+2Ans          Pt-Off(E,~F,2          E+3Ans->E       Else          1-2pxl-Test(F+1,E          Pxl-On(F+2Ans,E          Pt-Off(E,~F,2          F+3Ans->F    End:End Lbl SQ:End ```

The only problem is that makes the game slower. If you were to run the original game and this game back-to-back, you can definitely tell a difference. Is there a faster way to do this so it doesn't affect performance? There are no memory leaks in this program. (This is programmed in Source Coder 3 on Cemetech, so ignore if some parts of the code if it looks funny. ~'s are negatives, and -> is the Store (→) character. theta is θ)
I’m not sure what you’ve modified here, and I’m also not familiar with Nibbles. Did you write both of these? Also, what do you mean by “exits outside the program”? I don’t see any particularly jarring differences between the two programs besides a few drawing commands that are there in the first and missing in the second, and some Gotos. I think everyone needs some backstory before we can help you.

If this is a program you’ve already posted here, you can just include a link to it in your original post.
The original Nibbles concept does not belong to me. The original game belongs to another user on TI-Basic developer. The game has four conditions where it checks if the user crashed or pressed CLEAR. The game ends inside the program, and I'm wanting it to end outside the program (After the End Statements). Setting boolean variables and gotos make the program slower. I'm wondering how I can make it faster than it is.

Note:

I may not be on Cemetech for a bit. Who knows, maybe a while. I'm turning in the school Chromebook tomorrow so I won't be able to use any Chromebook till next school year. If I am on a computer during the next three months, then I'll post updates.

Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

»
» All times are GMT - 5 Hours

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum