This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Messages - Munchor
Pages: 1 ... 198 199 [200] 201 202 ... 424
2986
« on: March 10, 2011, 03:26:22 pm »
It works pretty awesome on the Touchpad, no crash, good speed, +- visibility, I loved it.
Thanks much, it's the flag, button, peeerfect!
2987
« on: March 10, 2011, 03:23:41 pm »
Oh the song looks pretty cool! I think I'm going to make one too, since this inspired me.
2988
« on: March 10, 2011, 11:21:26 am »
Lets get rid of the evidence...
And witnesses too!
2989
« on: March 10, 2011, 11:15:09 am »
Oh my god! We've been warned by PETA, what can be done now? =P
2990
« on: March 09, 2011, 06:54:08 pm »
I have a ti-nspire with a touchpad and a 84+ keypad and use a regular USB cable for *both* keypads and using TI-Connect works perfectly
It works, I'm sure of it.
2991
« on: March 09, 2011, 06:20:53 pm »
It worked when I tested it. What OS are you using? (I have 2.0.1)
I have the same OS, but I did something different, thanks!
2992
« on: March 09, 2011, 06:15:30 pm »
Both look great, I seem to prefer thepenguin's though 
2993
« on: March 09, 2011, 05:58:36 pm »
myArray[7] won't work, I tested it.
2994
« on: March 09, 2011, 05:52:59 pm »
*Entire* code of what? I do have a location variable. X and Y. I switched the tilemapper to I and J.
The entire code of your program, it's easier for me and most of us to help you if we can read it. If you have your location variables, what exactly do you need help with?
2995
« on: March 09, 2011, 05:42:56 pm »
From what I got from the rest of the topic, are you using a tilemap?
Then my question is, do you have variables for your current position (as in (X,Y))?
I personally don't like tilemaps so I don't know much about them, but kind of understand how they work and I believe you need variables for your location.
In addition, can you paste the *entire* code?
2996
« on: March 09, 2011, 05:37:15 pm »
Asylum has officially been started! It's text based, and its current state is closer to a choose your own adventure novel than Zork. I'm going to attatch what I have so far ASAP.
Nice  Good luck with it.
2997
« on: March 09, 2011, 05:35:58 pm »
Hey there,
I was wondering if I have an array, how to add something to it:
{2,4,6,7,8,142}->myArray
Disp myArray
Disp myArray.count()
I want to add the number 666 to my array how can I do it?
Thanks.
2998
« on: March 09, 2011, 12:47:35 pm »
:Degree
:ClrHome:ClrDraw
:If 0=θ:Then
:Input "Username?",Str4
:Input "Password?",Str9
:1→θ
:Else
:Disp "Hello :)",Str4
:Lbl Z
:DelVar Str0
:Input "Textcode?",Str0
:If Str0=Str9:Then
:Goto 0
:Else
:Goto Q
:End:End
:Lbl 0:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"SimpleCS
:Output(3,6,"Maths
:Output(5,6,"Others
:Repeat K≠0
:getKey→K
:If K=44:Goto K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto M
:If K=93:Goto O
:End
:Lbl M:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Maths
:Output(3,5,"Algebra
:Output(5,5,"Geometry
:Repeat K≠0
:getKey→K
:If K=44:Goto K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto J
:If K=93:Goto I
:End
:Lbl J:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Algebra
:Output(3,5,"RemIdent
:Output(4,6,"Calcul
:Output(5,5,"Precalcul
:Output(6,5,"Statistic
:Repeat K≠0
:getKey→K
:If K=42:Goto O
:If K=41:Goto M
:If K=13:Goto 30
:If K=43:Goto 0
:If K=11:Goto Z
:If K=22:Goto 20
:If K=15:Goto Q
:If K=92:Goto H
:If K=93:Goto L
:If K=94:Goto 14
:If K=44:Goto K
:If K=82:Goto A1
:End
:Lbl 14:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Precalcul
:Output(3,7,"GCD
:Output(4,7,"LCM
:Output(5,5,"SquaRoot
:Output(6,5,"Trigo
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=13:Goto 30
:If K=15:Goto Q
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto A
:If K=93:Goto C
:If K=94:Goto 16
:If K=95:Goto 50
:If K=44:Goto K
:End
:Lbl I:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Geometry
:Output(3,5,"Circle
:Output(4,4,"TRectangle
:Output(5,6,"Cube
:Output(6,4,"Pythagore
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto D
:If K=93:Goto F
:If K=94:Goto G
:If K=82:Goto 15
:If K=44:Goto K
:End
:Lbl 15:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,4,"Pythagore
:Output(3,6,"Theory
:Output(5,5,"Reversed
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto 13
:If K=93:Goto 12
:If K=44:Goto K
:End
:Lbl K:ClrHome:ClrDraw
:Output(1,1,"ERR:LABEL
:Output(2,1,"1: EXIT
:DelVar S
:Repeat S≠0
:getKey→S
:If S=105:Goto 99
:If S=92:Goto Q
:End
:If S≠105 and S≠92:Goto K
:Lbl 99:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,4,"Economics
:Output(3,4,"Variation
:Output(4,4,"Relat Var
:Output(5,4,"Elasticity
:Repeat K≠0
:getKey→K
:If K=92:Goto T
:If K=93:Goto U
:If K=94:Goto V
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=44:Goto K
:End
:Lbl O:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Others
:Output(3,6,"TI-MSN
:Output(5,6,"Games
:Repeat K≠0
:getKey→K
:If K=44:Goto K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto P
:If K=93:Goto 11
:End
:Lbl 11:ClrHome:ClrDraw
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Games
:Output(3,4,"BlackJack
:Output(4,4,"TicTacToe
:Output(5,6,"Snake
:Output(6,5,"Matches
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto S
:If K=93:Goto N
:If K=94:Goto 10
:If K=82:Goto 02
:If K=44:Goto K
:End
:Lbl 30:ClrHome:ClrDraw
:Output(1,1,"F1: Lock
:Output(2,1,"F3: Help
:Output(3,1,"F5: Exit
:Output(4,1,"APPS: Others
:Output(5,1,"MATH: Maths
:Output(6,1,"PRGM: Menu
:Pause :Goto 0
:Lbl S:ClrHome
:randInt(1,13→A
:randInt(1,13→B
:randInt(1,13→C
:randInt(1,13→D
:randInt(1,13→E
:randInt(16,24→F
:min(A,10→A
:min(B,10→B
:min(C,10→C
:min(D,10→D
:min(E,10→E
:If A=1 and B=10
:Then
:Output(5,3,"BLACKJACK
:Pause :Goto S
:Else
:If B=1 and A=10:Then
:Output(5,3,"BLACKJACK
:Pause :Goto S
:End:End
:If A=1:Then
:B→T
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",A
:If A=1:Then
:1→A
:Else
:11→A
:End:End
:If B=1:Then
:A→T
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",G
:If G=1:Then
:1→B
:Else
:11→B
:End:End
:ClrHome
:A+B→T
:Output(1,5,"MAIN
:Output(3,1,A
:Output(3,4,B
:Output(5,3,"TOTAL OF
:Output(5,13,T
:Output(7,3,"STAY=1 HIT=2
:Disp "","","","","","",
:If T>21:Goto B
:Input G
:If G=1:Then
:Goto E
:Lbl E:ClrHome
:If F>21:Then
:Output(3,4,"HOUSE BUST
:Output(5,5,"YOU WIN
:Pause :Goto 11
:End
:Output(1,3,"TOTAL OF
:Output(2,9,T
:Output(4,2,"HOUSE TOTAL OF
:Output(5,9,F
:If T>F:Then
:Output(7,6,"YOU WIN
:Pause :Goto 11
:End
:If F>T:Then
:Output(7,5,"YOU LOSE
:Pause :Goto 11
:End
:If F=T:Then
:Output(7,4,"DRAW
:Pause :Goto 11
:End
:Else
:If C=1:Then:ClrHome
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",C
:If C=1:Then
:1→C
:Else
:11→C
:End:End
:A+B+C→T
:Disp "","","","","","",
:Output(1,5,"MAIN
:Output(3,1,A
:Output(3,4,B
:Output(3,7,C
:Output(5,3,"TOTAL OF
:Output(5,13,T
:Output(7,3,"STAY=1 HIT=2
:If T>21:Goto B
:Input G
:If G=1:Then
:Goto E
:Else
:If D=1:Then:ClrHome
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",D
:If D=1:Then
:1→D
:Else
:11→D
:End:End
:A+B+C+D→T
:Disp "","","","","","",
:Output(1,5,"MAIN
:Output(3,1,A
:Output(3,4,B
:Output(3,7,C
:Output(3,10,D
:Output(5,3,"TOTAL OF
:Output(5,13,"STAY=1 HIT=2
:If T>21:Goto B
:Input G
:If G=1:Then
:Goto E
:Else
:If E=1:Then
:Disp "TOTAL OF
:Disp T
:Input "1 or 11?",E
:If E=1:Then
:1→E
:Else
:11→E
:End:End
:A+B+C+D+E→T
:Disp "","","","","","",
:Output(1,5,"MAIN
:Output(3,1,A
:Output(3,4,B
:Output(3,7,C
:Output(3,10,D
:Output(3,13,E
:Output(5,3,"TOTAL OF
:Output(5,13,T
:If T>21:Then
:Goto B
:Else
:Pause :Goto E
:Lbl B:ClrHome
:Output(1,7,"BUST
:Output(3,5,"YOU LOSE
:Output(5,3,"TOTAL OF
:Output(5,12,T
:Pause :Goto 11
:Lbl T:ClrHome
:Input "Val depart=?",D
:Input "Val arrivee=?",A
:100→100D/A→X
:Text(1,1,"Variation /100=",X
:Pause :DelVar X:DelVar A:DelVar D:Goto K
:Lbl U:ClrHome
:Prompt A,D
:A-D→X
:Disp "Relative rate=",X,".
:Pause :DelVar A:DelVar X:DelVar D:Goto K
:Lbl V:ClrHome
:Input "DEMANDE or CONSU=",D
:Input "PRICE or WAGE",P
:D/P→X
:Text(1,1,"Elasticity=",X,".
:Pause :DelVar D:DelVar P:DelVar X:Goto K
:Lbl A:ClrHome:ClrDraw
:Prompt A,B
:gcd(A,B→X
:Text(1,1,"GCD=",X,".
:If X=1
:Lbl C:ClrHome:ClrDraw
:Prompt A,B
:lcm(A,B→X
:Text(1,1,"LCM=",X,".
:Pause :DelVar A:DelVar B:DelVar X:Goto J
:Lbl L:ClrHome
:Input X
:Disp X
:Pause :DelVar X:Goto K
:Lbl H:ClrHome
:Disp "(A+B)^2=
:Disp "A^2+2AB+B^2
:Pause
:Disp "(A-B)^2=
:Disp "A^2-2AB+B^2
:Pause
:Disp "(A+B)(A-B)="
:Disp "A^2-B^2
:Pause :Goto J
:Lbl A1
:FnOff
:PlotsOff
:AxesOn
:GridOff
:CoordOn
:ExprOn
:ClrHome
:Disp "Nb de donnees
:Input "par axe:",N
:N→dim(L1
:N→dim(L2
:ClrHome
:Disp "Abscisses
:Input "Depart:",D
:Input "Intervalle:",I
:D→L1(1)
:For(Z,2,N
:D+I(Z-1→L1(Z)
:End
:For(Z,1,N
:ClrHome
:Disp "Ordonnees:","Valeur nº
:Output(2,10,Z
:Input P
:P→L2(Z
:End
:ClrHome
:Output(1,3,"!
:Output(1,14,"!
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Plot Type
:Output(3,6,"Scatter
:Output(4,6,"xyLine
:Output(5,6,"Histogram
:Output(6,5,"Stats-Vars
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto A2
:If K=93:Goto A3
:If K=94:Goto A4
:If K=82:Goto B2
:If K=44:Goto K
:End
:Lbl A2:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Mark
:Output(3,8,"{cross}
:Output(4,8,"{box}
:Output(5,8,"{dot}
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto A5
:If K=93:Goto A6
:If K=94:Goto A7
:If K=44:Goto K
:End
:Lbl A5
:Plot1Scatter ,L1,L2,{cross}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A6
:Plot1Scatter ,L1,L2,{box}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A7
:Plot1Scatter ,L1,L2,{dot}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A3:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"Mark
:Output(3,8,"{cross}
:Output(4,8,"{box}
:Output(5,8,"3: {dot}
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto A8
:If K=93:Goto A9
:If K=94:Goto B1
:If K=44:Goto K
:End
:Lbl A8
:Plot1xyLine ,L1,L2,{cross}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A9
:Plot1xyLine ,L1,L2,{box}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl B1
:Plot1xyLine ,L1,L2,{dot}
:ZoomStat
:Trace
:Pause :Goto J
:Lbl A4
:Plot1Hist ,L1,L2
:min(L1)→Xmin
:max(L1)+I→Xmax
:I→XScl
:max(L2)→Ymax
:0→Ymin
:iPart(Ymax/10)→YScl
:1→Xres
:DispGraph
:Trace
:Pause :Goto J
:Lbl B2:ClrHome
:OneVar
:Pause :Goto J
:Lbl 16:ClrHome:ClrDraw
:Prompt N
:sqrt(N→X
:Text(1,1,"Square root=",N,"=",X,".
:Pause :Goto 14
:Lbl 13:ClrHome
:Input "Hypothenuse=?",H
:Input "COTE 2=?",A
:Input "COTE 3=?",B
:If 0=H:Then
:A^2+B^2→H:sqrt(H→H
:ClrHome:Output(1,1,"Hypothenuse=",H,".
:If 0=A:Then
:H^2-B^2→A:sqrt(A→A
:ClrHome:Output(1,1,"COTE 2=",A,".
:If 0=B:Then
:H^2-A^2→B:sqrt(B→B
:ClrHome:Output(1,1,"COTE 3=",B,".
:End
:Pause :DelVar H:DelVar A:DelVar B:Goto 14
:Lbl 12:ClrHome
:Input "Grande longueur=",L
:Prompt D,E
:L^2→L
:D^2+E^2→X
:If L=X:Then
:ClrHome:Output(1,1,"Le triangle est rectangle
:Else
:ClrHome:Output(1,1,"Le triangle n'est pas rectangle
:Pause :Goto 14
:Lbl 50:ClrHome
:Prompt N
:cos(n→x
:sin(n→y
:tan(n→z
:Disp "Cos(n)=",x
:Disp "Sin(n)=",y
:disp "Tan(n)=",z
:DelVar X:DelVar Y:DelVar Z
:Pause :Goto 14
:Lbl D:ClrHome:ClrDraw
:Prompt R
:Rπ^2→A
:2πR→P
:Text(1,1,"Area=",A,".
:Text(7,1,"Perimetre=",P,".
:Pause :DelVar R:DelVar A:DelVar P:Goto I
:Lbl F:ClrHome:ClrDraw
:Disp "H=HAUTEUR/BASE
:Disp "F=HYP/3º COTE
:Prompt H,F
:(H*F)/2→X
:Text(1,1,"AIRE=",X,".
:Pause :DelVar H:DelVar F:DelVar X:Goto I
:Lbl G:ClrHome:ClrDraw
:Prompt A
:6A^2→A:A^3→U
:Text(1,1,"Area=",A,".
:Text(7,1,"Volume=",V
:Pause :DelVar A:DelVar V:Goto I
:Lbl P:ClrHome
:"→Str1
:"→Str2
:GetCalc(Str3
:{e}(A=π)+π(A≠π→A
:Lbl P:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,6,"TI-MSN
:Output(3,5,"Receive
:Output(5,6,"Send
:Repeat K≠0
:getKey→K
:If K=11:Goto Z
:If K=15:Goto Q
:If K=13:Goto 30
:If K=42:Goto O
:If K=41:Goto M
:If K=43:Goto 0
:If K=22:Goto 20
:If K=92:Goto R
:If K=93:Goto W
:If K=44:Goto K
:End
:Lbl W
:Input "Message: ",Str3
:If A=π:Str3→Str1
:If A={e}:Str3→Str2
:Goto M:Lbl R
:If A={e}:Then
:GetCalc(Str1
:Str1
:Else
:GetCalc(Str2
:Str2
:End
:Output(1,1,Ans
:Pause :Goto M
:Lbl N:ClrHome
:Output(1,7,"!
:Output(1,9,"!
:Output(2,6,"-+-+-
:Output(3,7,"!
:Output(3,9,"!
:Output(4,6,"-+-+-
:Output(5,7,"!
:Output(5,9,"!
:Output(1,6,"7
:Output(1,8,"8
:Output(1,10,"9
:Output(3,6,"4
:Output(3,8,"5
:Output(3,10,"6
:Output(5,6,"1
:Output(5,8,"2
:Output(5,10,"3
:0→Y:0→Z:0→W:0→T
:0→U:0→V:0→O:0→P
:0→Q:0→A:0→X
:While 1
:A→X
:getKey→K
:If K=92 and Y=0:Then
:If X=1:Then
:Output(5,6,"O
:A-1→A
:1→Y
:Else
:If X=0:Then
:Output(5,6,"X
:A+1→A
:10→Y
:End:End:End
:If K=93 and Z=0:Then
:If X=1:Then
:Output(5,8,"O
:A-1→A
:1→Z
:Else
:If X=0:Then
:Output(5,8,"X
:A+1→A
:10→Z
:End:End:End
:If K=94 and W=0:Then
:If X=1:Then
:Output(5,10,"O
:A-1→A
:1→W
:Else
:If X=0:Then
:Output(5,10,"X
:A+1→A
:10→W
:End:End:End
:If K=82 and T=0:Then
:If X=1:Then
:Output(3,6,"O
:A-1→A
:1→T
:Else
:If X=0:Then
:Output(3,6,"X
:A+1→A
:10→T
:End:End:End
:If K=83 and U=0:Then
:If X=1:Then
:Output(3,8,"O
:A-1→A
:1→U
:Else
:If X=0:Then
:Output(3,8,"X
:A+1→A
:10→U
:End:End:End
:If K=84 and V=0:Then
:If X=1:Then
:Output(3,10,"O
:A-1→A
:1→V
:Else
:If X=0:Then
:Output(3,10,X
:A+1→A
:10→V
:End:End:End
:If K=72 and O=0:Then
:If X=1:Then
:Output(1,6,"O
:A-1→A
:1→O
:Else
:If X=0:Then
:Output(1,6,"X
:A+1→A
:10→O
:End:End:End
:If K=73 and P=0:Then
:If X=1:Then
:Output(1,8,"O
:A-1→A
:1→P
:Else
:If X=0:Then
:Output(1,8,"X
:A+1→A
:10→P
:End:End:End
:If K=74 and Q=0:Then
:If X=1:Then
:Output(1,10,"O
:A-1→A
:1→Q
:Else
:If X=0:Then
:Output(1,10,"X
:A+1→A
:10→Q
:End:End:End
:If K=45:Then:ClrHome
:Stop:End
:If Y+Z+W=3 or T+U+V=3 or O+P+Q=3 or O+U+W=3 or Y+U+Q=3 or O+T+Y=3 or P+U+Z=3 or Q+V+W=3
:Then
:Output(7,6,"O wins
:Stop:End
:If Y+Z+W=30 or T+U+V=30 or O+P+Q=30 or O+U+W=30 or Y+U+Q=30 or O+T+Y=30 or P+U+Z=30 or Q+V+W=30:Then
:Output(7,6,"X wins
:Stop:End
:If O+P+Q+T+U+V+Y+Z+W=54:Then
:Output(7,4,"Draw
:Stop:End
:If K=0:Then:End:End
:Pause :Goto O
:Lbl 02:ClrHome
:AxesOff
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,4,"Main menu
:Output(3,6,"Play
:Output(5,5,"Rules
:Repeat K≠0
:getKey→K
:If K=92:Goto 04
:If K=93:Goto 03
:If K=15:Goto 09
:End
:Lbl 03:ClrDraw
:Text(0,0,"Rules of the game:
:Text(6,0,"take off 1 to 6
:Text(12,0,"matches without taking
:Text(18,0,"the last one
:Pause :Goto 02
:Lbl 04
:Output(1,3,"Nbr players
:Output(3,1,"1: 1P
:Output(5,1,"2: 2P
:Repeat K≠0
:getKey→K
:If K=92:Goto 41
:If K=93:Goto 42
:End
:Lbl 41
:1->J
:Goto 05
:Lbl 42
:2->J
:Lbl 05
:randInt(0,1)->T
:36->A
:{12,12,12}->L1
:Repeat A<1
:For(I,1,3)
:For(K,1,L1(I))
:Output(2I+2,K+2,"I")
:End
:End
:If J=1 and T=1
:Then
:RandInt(1,6)->E
:Output(1,1,"Computer
:Output(2,1,"takes :
:Output(2,10,E)
:Pause
:Else
:Repeat E<7 and E>0
:Output(2,1,"Player
:Output(2,8,T+1)
:Input "Number to take",E
:End
:End
:ClrHome
:Not(T)->T
:L1(1)-E->L1(1)
:If L1(1)<0
:Then
:L1(2)+L1(1)->L1(2)
:0->L1(1)
:If L1(2)<0
:Then
:L1(3)+L1(2)->L1(3)
: 0->L1(2)
:End
:End
:L1(1)+L1(2)+L1(3)->A
:End
:Output(3,4,"Winner:
:If J=1 and T=1
:Then
:Output(4,4,"COMPUTER
:Else
:Output(4,5,"PLAYER
:Output(4,12,T+1
:End
:Pause
:ClrHome
:For(Z,1,16
:Output(2,Z,"-
:Output(7,Z,"-
:End:DelVar Z
:For(Z,1,8
:Output(Z,3,"!
:Output(Z,14,"!
:End:DelVar Z
:Output(2,3,"+
:Output(2,14,"+
:Output(7,3,"+
:Output(7,14,"+
:Output(1,5,"Start again?
:Output(3,6,"Yes
:Output(4,7,"No
:Output(5,5,"Exit
:Repeat K≠0
:getKey→K
:If K=92:Goto 05
:If K=93:Goto 02
:If K=94:Then: Lbl 09: ClrHome: ClrDraw: Stop
:End:End
:Lbl 20:prgmPARAMS
:Lbl 10:ClrHome:ClrDraw
:26-2int(2rand→K
:{4→{L1}:Ans→{L2}:1→I
:ClrHome
:For(J,1,{e}2
:{L1}(1→{L1}(J
:{L2}(1→{L2}(J
:Repeat max(S≠{L1} and Ans≠{L2}
:randInt(1,8→S
:randInt(1,16→T
:End
:Output(S,Ans,"*
:Repeat T=Ans and S={L1}(I
:getKey
:If Ans=45:Goto Q
:If Ans=34 or 2>abs(Ans-25:Ans→K
:I+1-J(I=J→I
:Output({L1}(Ans),{L2}(Ans),"
:(K=34)-(K=25)+{L1}(Ans-(Ans>1
:Ans+8(not(Ans)-(Ans=9→{L1}(I
:(K=26)-(K=24)+{L2}(I-(I>1
:Ans+16(not(Ans)-(Ans=17→{L2}(I
:Output({L1}(I),Ans,"O
:End:End
:ClrHome
:Lbl Q:ClrHome:ClrDraw
:AxesOn
:CoordOn
:Output(1,1," * Scout stares at the code and goes w00t. 1. DJ, thanks for giving me your password  2. rayquaza59, nice to see you're still working on this 3. Good luck fixing the bugs rayquaza59, but does it work well in hardware, I mean, your real calculator?
2999
« on: March 09, 2011, 12:40:18 pm »
I had some difficulties understanding who is who between Stefan Bauwens and Jim Bauwens, the two new members of the Omnimaga community and they are brothers and have more 13 brothers/sisters (so they're 15, it seems). In the meanwhile to help you all with this, I decided to make a table to help you guys with distinguishing the new members:  Hope this helps you!
3000
« on: March 09, 2011, 05:19:10 am »
Everything works fine in my calculator except for saving.
How is saving? I press the library button in the third level and then I leave and when I come back I'm in level 1, I don't know how to work this out :S
Pages: 1 ... 198 199 [200] 201 202 ... 424
|
Show Posts