Anyone played "The Classroom"? Well here it is.

Re: Anyone played "The Classroom"? Well here it is.

Wed, 19 Nov 2008 21:59:06 +0000

No matter how hard i try, i can't seem to get an emulator to work. Can someone write a step by step post on how to get an emulator to work? I tried ROmdump.83 or whatever… Whats the best emulator and how do i set it up?

Re: Anyone played "The Classroom"? Well here it is.

Tue, 18 Nov 2008 03:36:21 +0000

We have an article on that.

By the way, if you click on "options" below any of your posts, you'll find an "edit" link. Use that instead of writing multiple replies, thanks.

Re: The Classroom

Tue, 18 Nov 2008 00:29:06 +0000

I think you're right.

Re: The Classroom

Tue, 18 Nov 2008 00:16:42 +0000

I got an idea: create a page lock for the forums. Just like the one for the pages.

Re: Anyone played "The Classroom"? Well here it is.

Mon, 17 Nov 2008 22:39:52 +0000

Not sure how to add programs to the archive… How do I?

EDIT:

I think i got it. I did the whole upload thing, and it says download unavailable…

http://tibasicdev.wikidot.com/archives:the-classroom

EDIT×2:

Lol. Sorry for the three posts in a row, but, how do you make animated GIFS? Like i've seen uploads with really cool animated stuff of their program… Number 1: How do you take so many pictures with TIScreenCapture? And number 2: How do you turn a bunch of pictures into a GIF?

Re: The Classroom

Mon, 17 Nov 2008 21:42:01 +0000

Doesn't that convert programs to code (not the other way around)?

Re: The Classroom

Mon, 17 Nov 2008 21:35:06 +0000

Ans is the fastest variable to recall.

Normal process:
Slowly recall variable and store to letter
Ans process:
Quickly recall variable and store to letter

However; we are not recalling variables are we? We are storing a set value (2). I have just discovered that it is quicker to store a set value to a variable than it is to store Ans to a variable. And like you said, it is only a one digit number so no memory is saved. So you are correct — I should not have changed the 2→A:2→B to 2→A:Ans→B. And there was no need to ‾Ans→C if it saves no bytes and is slower — so that one should remain ‾2→C.

BUT, you should save memory with the ones after that: ‾2→C:Ans→E:Ans→F:Ans→H

Thanks for pointing that out Jonathan — you learn something new every day!

EDIT: I hate it when this happens. Sorry for duplicating Weregoose's information above — as Weregoose posted his comment whilst I was typing mine (and hence I never saw it).

Re: The Classroom

Mon, 17 Nov 2008 21:26:30 +0000

startTmr→T For(X,0,5E4) 1→A 1→B End checkTmr(T

5 minutes and 28 seconds over 50,000 iterations.

startTmr→T For(X,0,5E4) 1→A Ans→B End checkTmr(T

5 minutes and 36 seconds over the same number of iterations.

In theory, not using Ans over single digits is better. If you're locked into the habit of doing so, it's understandable if you wouldn't be bothered to change it.

Re: The Classroom

Mon, 17 Nov 2008 19:53:24 +0000

Is it really better to change

:2→A :2→B

:2→A :Ans→B

Correct me if I'm wrong, but believe using Ans over a single digit does not save any memory, and takes longer than typing in every number.
If the number is more than one digit long, than using Ans is the way to go.

Re: The Classroom

Mon, 17 Nov 2008 14:20:21 +0000

James use this.

Re: The Classroom

Mon, 17 Nov 2008 06:15:11 +0000

DUDE!

That is mega mega code! I have been typing it into my calculator for 10 minutes, and I only got up to the title "THE CLASSROOM"! If I persisted, I would be typing into my calculator for over an hour.

I too made this mistake once — I posted the entire code for my program, and nobody looked at it. It wasn't until I submitted a download-able file that my program got looked at.

You really need to do that, so that we can play the game.

By the way, your intro animation is really fast, and I liked it.

:Horizontal (I
should be
:Horizontal I

:0→W
:0→K
should be
:DelVar WDelVar K

:2→A
:2→B
:‾2→C
:2→D
:‾2→E
:‾2→F
:2→G
:‾2→H
should be
:2→A
:Ans→B
:Ans→D
:Ans→G
:‾Ans→C
:Ans→E
:Ans→F
:Ans→H

That's all I have looked at so far, but could you please upload this file to the Archives? I really want to play it.

Re: Anyone played "The Classroom"? Well here it is.

Sat, 15 Nov 2008 02:48:59 +0000

Eh, not like anyone's listening but I optimized some parts, and add a lot. The new version has (Cheat bar, ends when full, and Pt-On(X,Y,2 little box thing.)

:ClrDraw :0→Xmin:94→Xmax :0→Ymin:62→YMax :For(I,0,27 :Horizontal(I :End :For(I,48,62 :Horizontal(I :End :For(I,0,5 :Vertical I :End :For(I,86,94 :Vertical I :End :"==CONGARD==→Str7 :For(F,1,length(Str7 :For(G,1,2 :StorePic 1 :Text(‾1,17,7F+G,sub(Str7,F,1 :RecallPic 1 :End :End :"PRODUCTIONS→Str7 :For(F,1,length(Str7 :For(G,1,2 :StorePic 1 :Text(‾1,26,7F+G,sub(Str7,F,1 :RecallPic 1 :End :End :Repeat getKey :End :ZStandard :ClrDraw :0→W :0→K :.7→I :2→A :2→B :‾2→C :2→D :‾2→E :‾2→F :2→G :‾2→H :" !X( !"→Str1 :" iY= ["→Str2 :" iJ= ["→Str3 :" iX= ["→Str4 :" !X([!"→Str5 :Goto ME :Repeat K≥18 :A+I→A :B+I→B :C-I→C :D+I→D :E-I→E :F-I→F :G+I→G :H-I→H :K+1→K :ClrDraw :Line(A,B,C,D :Line(C,D,E,F :Line(E,F,G,H :Line(G,H,A,B :Line(A,B,15,15 :Line(C,D,‾15,15 :Line(E,F,‾15,‾15 :Line(G,H,15,‾15 :Line(A/2,B/2,C/2,D/2 :Line(A/2,B/2,A/2,H :Line(C/2,D/2,C/2,H :Line(C/2,H,A/2,H :Line(A/3,B/3,C/3,D/3 :Line(A/3,B/3,A/3,B/35 :Line(C/3,B/35,A/3,B/35 :Line(C/3,D/3,C/3,D/35 :End :Lbl 9 :Text(35,23,"THE CLASSROOM" :Text(‾1,20,27,"BILLY C : :Repeat getKey :Text(49,25,"PRESS ANY KEY :rand(25) :Text(‾1,49,25," :rand(20) :End : :C/2→C :D/2→D :7.2→A :4→G :7→B : :ClrDraw :For(I,1,17.2,2 :ClrDraw :Line(A-I,‾10,A-I,B :Line(‾7.2,B,A-I,B :Line(5.25,7,5.25,‾10 :Line(5.25,7,A-I,7 :Line(‾7.2,7,‾7.2,‾10 :End :Lbl ME :ClrDraw :Text(24,22,"START :Text(32,22,"INSTRUCTIONS :Text(40,22,"INFO :Text(48,22,"QUIT :Text(‾1,5,10,"THE CLASSROOM :Vertical ‾8.2 :Horizontal(2.5 :Horizontal(0 :Horizontal(‾2.58 :Horizontal(‾7.74 :Horizontal(‾5.16 :Pt-On(‾9.5,4,2 :Pt-On(‾9.5,‾3.87,2 :Line(‾10,5,10,5 :"((=====(< →Str9 :24→A :For(I,1,length(Str9 :Text(A,9+I,sub(Str9,I,1 :End :Repeat K=105 :getKey→K :If Ans:Then :Text(A,9," :A+8(K=34)(A≤40)-8(K=25)(A≥32)→A :For(I,1,length(Str9 :Text(A,9+I,sub(Str9,I,1 :End :End :End :If A=24:Goto PL :If A=32:Goto IN :If A=40:Goto IF :If A=48:Goto ED :Lbl ED :DelVar [A]DelVar Str1DelVar Str2DelVar Str3DelVar Str4DelVar Str5DelVar L1DelVar ADelVar B :ClrDraw :ClrHome :Output(1,1," :Stop :Lbl IN :ClrDraw :Text(‾1,1,1,"Instructions :Text(10,1,"To Move: :Text(16,1,"Arrow Keys,Delete To Cheat :Text(22,1,"To Quit: :Text(28,10,"Clear :Text(36,1,"Objective :Text(42,1,"Get To The Nerd(The Colored :Text(48,6,"Seat),Cheat,And Get Back :Text(54,8,"Without Getting Caught :Repeat getKey :End :Goto ME :Lbl PL :ClrDraw :0→Xmin:94→Xmax :0→Ymin:62→YMax :0→A:0→B :DelVar L1DelVar L2 :10→dim(L1 :List►MatrL1,L1,L1,L1,L1,L1,L1,L1,L1,L1,L1,L1,L1,[A] :1→[A](1,1 :Menu("LEVEL?","1",1,"2",2,"3",3 :Lbl 1 :ClrDraw :Text(‾1,1,1,"LOADING... :[[3,3,3,3,3,3,3,3,3,3,3,3,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,1,4,4,1,1,1,1,1,1,1,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,2,6,1,1,2,2,1,1,2,2,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,2,2,1,1,2,2,1,1,2,2,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,2,2,1,1,2,2,1,1,2,2,1,3][3,3,3,3,3,3,3,3,3,3,3,3,3]→[A] :{7,10→L1 :{5,3→L3 :Goto S :Lbl 2 :[[3,3,3,3,3,3,3,3,3,3,3,3,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,1,1,1,2,1,2,1,2,1,2,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,1,1,1,2,1,2,1,2,1,2,1,3][3,1,4,1,1,1,1,1,1,1,1,1,3][3,1,4,1,6,1,2,1,2,1,2,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,1,1,1,2,1,2,1,2,1,2,1,3][3,3,3,3,3,3,3,3,3,3,3,3,3]→[A] :{3,11→L1 :{7,5→L3 :Lbl S :ClrDraw :For(I,0,72,6 :For(J,0,54,6 :[A](J/6+1,I/6+1→M :If M≠1:Then :Text(J,I,sub(Str1,M,1 :Text(J,I+1,sub(Str2,M,1 :Text(J,I+2,sub(Str3,M,1 :Text(J,I+3,sub(Str4,M,1 :Text(J,I+4,sub(Str5,M,1 :Text(J,I+5," :End :End :End :Vertical 77 :Vertical 94 :Vertical 0 :Horizontal(0 :Horizontal(62 :L1(1)*6→A :L1(2)*6→B : :A/6+1→C :B/6+1→D :0→K :Pt-On(B+2,59-A,2 :Lbl PQ :Repeat K=45 :getKey→K :If Ans:Then :If K=23:Goto CH :Pt-Off(B+2,59-A,2 :A+6(K=34)([A](C+1,D)=1)-6(K=25)([A](C-1,D)=1)→A :B+6(K=26)([A](C,D+1)=1)-6(K=24)([A](C,D-1)=1)→B :A/6+1→C :B/6+1→D :Pt-On(B+2,59-A,2 :End :End : :Lbl CH :abs(C-L3(1→S :abs(D-L3(2→T :If (S=1 and T=1) or (T=0 and S=1) or (T=1 and S=0):Then :For(W,W,W+12 :Line(86,W,94,W :End :If W≥63:Stop :End :Goto PQ

I have an idea for the teacher, like in the real version, the teacher follows a specific path, then goes back to beggining and repeats. I'll have a list of 15 points, and it will keep going through. So, the Optimization challenge is still up, but I have an idea of where to go! Thanks for your help(no one)!!

~ibly31

Anyone played "The Classroom"? Well here it is.

Wed, 12 Nov 2008 23:47:13 +0000

Ok. I'm not sure whether this belongs here, because it's sort of a "Code In Progress", but theres no section for that, so here i am. I'm developing this game and I need a fast way for computer players. I.E. The Teacher, im deciding to do if you get within 1 block of the teacher you lose instead of the whole vision thing… And i tried adding it, buuuut it made it so slow, it sometimes made me HOLD a button just to move. Heres the code:

+ show block

– hide block

:ClrDraw :ZStandard :0→K :.7→I :2→A :2→B :‾2→C :2→D :‾2→E :‾2→F :2→G :‾2→H :" !X( !"→Str1 :" iY= ["→Str2 :" iJ= ["→Str3 :" iX= ["→Str4 :" !X([!"→Str5 :Goto ME :Repeat K≥18 :A+I→A :B+I→B :C-I→C :D+I→D :E-I→E :F-I→F :G+I→G :H-I→H :K+1→K :ClrDraw :Line(A,B,C,D :Line(C,D,E,F :Line(E,F,G,H :Line(G,H,A,B :Line(A,B,15,15 :Line(C,D,‾15,15 :Line(E,F,‾15,‾15 :Line(G,H,15,‾15 :Line(A/2,B/2,C/2,D/2 :Line(A/2,B/2,A/2,H :Line(C/2,D/2,C/2,H :Line(C/2,H,A/2,H :Line(A/3,B/3,C/3,D/3 :Line(A/3,B/3,A/3,B/35 :Line(C/3,B/35,A/3,B/35 :Line(C/3,D/3,C/3,D/35 :End :Lbl 9 :Text(35,23,"THE CLASSROOM" :Text(‾1,20,27,"BILLY C : :Repeat getKey :Text(49,25,"PRESS ANY KEY :rand(25) :Text(‾1,49,25," :rand(20) :End : :C/2→C :D/2→D :7.2→A :4→G :7→B : :ClrDraw :For(I,1,17.2,2 :ClrDraw :Line(A-I,‾10,A-I,B :Line(‾7.2,B,A-I,B :Line(5.25,7,5.25,‾10 :Line(5.25,7,A-I,7 :Line(‾7.2,7,‾7.2,‾10 :End :Lbl ME :ClrDraw :Text(24,22,"START :Text(32,22,"INSTRUCTIONS :Text(40,22,"INFO :Text(48,22,"QUIT :Text(‾1,5,10,"THE CLASSROOM :Vertical ‾8.2 :Horizontal(2.5 :Horizontal(0 :Horizontal(‾2.58 :Horizontal(‾7.74 :Horizontal(‾5.16 :Pt-On(‾9.5,4,2 :Pt-On(‾9.5,‾3.87,2 :Line(‾10,5,10,5 :"((=====(< →Str9 :24→A :For(I,1,length(Str9 :Text(A,9+I,sub(Str9,I,1 :End :Repeat K=105 :getKey→K :If Ans:Then :Text(A,9," :A+8(K=34)(A≤40)-8(K=25)(A≥32)→A :For(I,1,length(Str9 :Text(A,9+I,sub(Str9,I,1 :End :End :End :If A=24:Goto PL :If A=32:Goto IN :If A=40:Goto IF :If A=48:Goto ED :Lbl ED :DelVar [A]DelVar Str1DelVar Str2DelVar Str3DelVar Str4DelVar Str5DelVar L1DelVar ADelVar B :ClrDraw :ClrHome :Output(1,1," :Stop :Lbl IN :ClrDraw :Text(‾1,1,1,"Instructions :Text(10,1,"To Move: :Text(16,1,"Arrow Keys,Enter To Cheat :Text(22,1,"To Quit: :Text(28,10,"Clear :Text(36,1,"Objective :Text(42,1,"Get To The Nerd(The Colored :Text(48,6,"Seat),Cheat,And Get Back :Text(54,8,"Without Getting Caught :Repeat getKey :End :Goto ME :Lbl PL :ClrDraw :0→Xmin:94→Xmax :0→Ymin:62→YMax :"([[( →Str6 :"(]]( →Str7 :0→A:0→B :DelVar L1DelVar L2 :10→dim(L1 :List►MatrL1,L1,L1,L1,L1,L1,L1,L1,L1,L1,L1,L1,L1,[A] :1→[A](1,1 :Menu("LEVEL?","1",1,"2",2,"3",3 :Lbl 1 :ClrDraw :Text(‾1,1,1,"LOADING... :[[3,3,3,3,3,3,3,3,3,3,3,3,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,1,4,4,1,1,1,1,1,1,1,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,2,6,1,1,2,2,1,1,2,2,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,2,2,1,1,2,2,1,1,2,2,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,2,2,1,1,2,2,1,1,2,2,1,3][3,3,3,3,3,3,3,3,3,3,3,3,3]→[A] :{7,10}→L1 :Goto S :Lbl 2 :[[3,3,3,3,3,3,3,3,3,3,3,3,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,1,1,1,2,1,2,1,2,1,2,1,3][3,1,1,1,1,1,1,1,1,1,1,1,3][3,1,1,1,2,1,2,1,2,1,2,1,2][3,1,4,1,1,1,1,1,1,1,1,1,3][3,1,4,1,6,1,2,1,2,1,2,1,2][3,1,1,1,1,1,1,1,1,1,1,1,3][3,1,1,1,2,1,2,1,2,1,2,1,3][3,3,3,3,3,3,3,3,3,3,3,3,3]→[A] :{3,11}→L1 :Lbl S :ClrDraw :For(I,0,72,6 :For(J,0,54,6 :[A](J/6+1,I/6+1→M :If M≠1:Then :Text(J,I,sub(Str1,M,1 :Text(J,I+1,sub(Str2,M,1 :Text(J,I+2,sub(Str3,M,1 :Text(J,I+3,sub(Str4,M,1 :Text(J,I+4,sub(Str5,M,1 :Text(J,I+5," :End :End :End :Vertical 77 :Vertical 94 :Vertical 0 :Horizontal(0 :Horizontal(62 :L1(1)*6→A :L1(2)*6→B :24→N:24→O :A/6+1→C :B/6+1→D :For(I,0,length(Str6)-1 :Text(A,B+I,sub(Str6,I+1,1 :End :0→K :Repeat K=45 :getKey→K :If Ans:Then :Text(A,B," :A+6(K=34)([A](C+1,D)=1)-6(K=25)([A](C-1,D)=1)→A :B+6(K=26)([A](C,D+1)=1)-6(K=24)([A](C,D-1)=1)→B :A/6+1→C :B/6+1→D : :For(I,0,4 :Text(A,B+I,sub(Str6,I+1,1 :End :End :End

The variables are: A,B,C,D,E,F,G,H For the 3D intro… not important. The Vars in the game are: [A] is the map matrix. Strings are Str1,2,3,4, and 5. Those are used for the text sprites. Anyone who has analyzed "Donut Quest" should be familiar with the technique. Theres 5 strings, each with 1 part of a texture. So when i'm drawing i do the Nth part of the string. So if i want a wall in the map, on the matrix i'll do [blah,3,blah,more blah]. When it runs it draws the 3rd part of each string. BTW: A wall's texture is "XYJXX". The Characters coordinates are A and B. The Matrix character coordinates are C and D. Any other questions please ask me. I've been working alot on this and i really need help. If anyone would like to help a poor semi-noob with this, i'd be very thankful(lol thanksgiving soon, woot!)

~ibly31