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

Forum Attachments

Summary:

The flash game on addictinggames is on the calculator, in pure TI-BASIC

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

ibly31 12 Nov 2008 23:47

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

: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

Last edited on 13 Nov 2008 01:32 by Weregoose Show more

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

ibly31 15 Nov 2008 02:48

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

Re: The Classroom

GoVegan 17 Nov 2008 06:15

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: The Classroom

noahbaby94 17 Nov 2008 14:20

James use this.

---

Join Codeworld.
Also check out my blog.

Re: The Classroom

GoVegan 17 Nov 2008 21:42

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

Re: The Classroom

Jonathan King 18 Nov 2008 00:29

I think you're right.

Re: The Classroom

Jonathan King 17 Nov 2008 19:53

Is it really better to change

:2→A
:2→B

to

: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

Weregoose 17 Nov 2008 21:26

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

GoVegan 17 Nov 2008 21:35

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).

Last edited on 17 Nov 2008 21:40 by GoVegan Show more

Re: The Classroom

Jonathan King 18 Nov 2008 00:16

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.

ibly31 17 Nov 2008 22:39

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?

Last edited on 18 Nov 2008 03:32 by Weregoose Show more

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

Weregoose 18 Nov 2008 03:36

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: Anyone played "The Classroom"? Well here it is.

ibly31 19 Nov 2008 21:59

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?