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 ... 392 393 [394] 395 396 ... 424
5896
« on: November 12, 2010, 10:51:58 am »
I think thirty. I don't know though.
Google Skechup, has DJ deduced is great to make simple houses to learn. I've made a few houses, making houses is very fun, then you can put furniture by easily downloading models
5897
« on: November 12, 2010, 10:51:16 am »
This one is very good, congratz.
5898
« on: November 12, 2010, 10:49:20 am »
I've never heard of this game before, so when I kept seeing the title "My first Quantum Translocator" pop up I assumed it was some silly thread in the random section. Curiosity got the better of me and I decided to take a look. "Oh, it's a game!" Lesson: Never judge a thread by it's title! Anyhow... the flash version is pretty cool and the calc version that you've been working on is coming along quite nicely. Nice job! =) I'd like to see the character as a sprite instead of a small square. Are you going to replace it eventually?
I would prefer a sprite too, that would be much better and closer to the original version. So, two persons wanting sprite already
5899
« on: November 12, 2010, 10:37:51 am »
It gives me a memory error.
Obviously, not enough space. Can the program be archived?
5900
« on: November 12, 2010, 10:37:18 am »
Hmm... Wabbitemu group support changed. It used to just ungroup stuff as you sent them, but now it doesn't anymore, and you absolutely have to send it to archive to get it to work. If sent to RAM it will not work.
And SourceCoder cannot open the file.
Anyway got it to work in the latest version of Wabbitemu. Send to archive, ungroup, done.
How you open files with SourceCoder, I thought it would only CREATE files???
5901
« on: November 12, 2010, 10:36:40 am »
Again, sorry to be late responding. -I can throw in the ability to call assembly programs, but for now only up to 768 byte of code. -I plan to make it an app, but for now it is a program. It takes a short time opening the asm program (like all asm programs), but while it is actually interpreting the code, it is just as fast as assembly (because it is). If I made a command equivalent to an OS command, it would be faster. -For now, the source is in hex (because that is how I am programming), but I am slowly converting it to mnemonics when I get the chance. -I definitely plan to start small and then I will build my way up. I think I will wait to add crazy things like labels and jumps and calls.
Actually, I just thought of this with that last one... I think I am going to make calls end with "End" and the code end with "Stop" because I only need to change one byte of the code for that.
YAY coding in Hex is super hard, you are one of the few who can make games and stuff using HEX 100%, though.
5902
« on: November 12, 2010, 10:35:52 am »
Un shell est un programme ou une application capable d'exécuter un programme asm stub. Les plus connus sont ion et mirage OS, mais il y a aussi Doors CS 7.1, noshell (que je conseil) et d'autres encore. C'est en fait une interface pour démarrer des programmes.
Ça c'est un shell, un OS es le OS de la calculatrice, comme KnightOS.
5903
« on: November 12, 2010, 10:35:07 am »
Returning to the map engine now and working on interactive tiles. Turns out that inData() can't look for 2 byte numbers so I think I'll just write my own routine for it. This should be the last major part of the engine. After this, I just have to add shops/inns, and the level up system and the engine is finished
Write a routine to change the number of byes allowed by Data? Is that possible?
5904
« on: November 12, 2010, 10:34:19 am »
A propos des nspires, elles peuvent toutes émuler une 84+?
Oui, moins les CAS qui ne pouvent pas de cambier le 'keypad'
5905
« on: November 12, 2010, 10:33:42 am »
Alvin's is the best one out there
5906
« on: November 12, 2010, 10:33:32 am »
I would love it if we could have contrast AND brightness (plus the grayscale )
5907
« on: November 12, 2010, 10:24:16 am »
Great, waiting final release. Hope I can learn a fwe more things
5908
« on: November 12, 2010, 10:22:53 am »
The bug is weird, any idea why it happens? The background is AWESOME
5909
« on: November 12, 2010, 10:20:03 am »
It's TI Basic, but full of errors:
Degree ClrHome:ClrDraw:ClrTable Disp "BONJOUR",STR4 Pause Label Z:ClrHome DelVar STR0 Input "TEXTCODE?",STR0 If STR0=STR9:Then Goto 0 Else Goto Q ClrHome:Goto 0 Label 30:ClrHome:ClrDraw Disp "F1:VERROUILLER Disp "F3:AIDE Disp "F5:QUITTER Pause :ClrHome Disp "MODE:PARAMETRES Disp "APPS:AUTRES Disp "SUPPR:EFFVARS Disp "MATH:MATHS Disp "PRGM:MENU Pause :Goto 0 Label 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 A,10->A B,10->B C,10->C D,10->D E,10->E If A=1andB=10 Then Output(5,3,"BLACKJACK Pause :Goto S Else If B=1andA=10:Then Output(5,3,"BLACKJACK Pause :Goto S End:End If A=1:Then B->T Disp "TOTAL DE 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 DE 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 DE 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 Label E:ClrHome If F>21:Then Output(3,4,"HOUSE BUST Output(5,5,"YOU WIN Pause :Goto 11 End Output(1,3,"TOTAL DE Output(2,9,T Output(4,2,"HOUSE TOTAL DE 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,"EGALITE Pause :Goto 11 End Else If C=1:Then:ClrHome Disp "TOTAL DE 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 DE 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 DE 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 DE 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 DE 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 DE Output(5,13,T If T>21:Then Goto B Else Pause :Goto E Label B:ClrHome Output(1,7,"BUST Output(3,5,"YOU LOSE Output(5,3,"TOTAL DE Output(5,12,T Pause :Goto 11 Label K:ClrHome:ClrDraw Disp "ERR:LABEL Disp "1:QUITTER DelVar S Repeat S!=0 getKey->S If S=105:Goto 99 If S=92:Goto Q End If S!=105andS!=92:Goto K Label 99 Disp " ECONOMIE Disp " Disp "1:TAUX VARIATION Disp " Disp "2:VAR RELAT Disp " Disp "3:ELASTICITE 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=23:Goto 24 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 Label T:ClrHome:ClrDraw Input "VAL DEPART=?",D Input "VAL ARRIVEE=?",A 100->100D/A->X Text(1,1,"TAUX VARIATION=",X,". Pause :DelVar X:DelVar A:DelVar D:Goto K Label U:ClrHome:ClrDraw Prompt A,D A-D->X Text(R,1,"VAR RELAT=",X,". Pause :DelVar A:DelVar X:DelVar D:Goto K Label V:ClrHome:ClrDraw Input "DEMANDE or CONSO=",D Input "PRIX or REVENU",P D/P->X Text(1,1,"ELASTICITE=",X,". If X<1 Text(11,1,"DEMANDE ELASTIQUE Pause :DelVar D:DelVar P:DelVar X:Goto K Label A:ClrHome:ClrDraw Prompt A,B gcd(A,B->X Text(1,1,"PGCD=",X,". If X=1 Text(6,1,"CES NOMBRES SONT PREMIERS ENTRE EUX Pause :DelVar A:DelVar B:DelVar X:Goto J Label C:ClrHome:ClrDraw Prompt A,B lcm(A,B->X Text(1,1,"PPCM=",X,". Pause :DelVar A:DelVar B:DelVar X:Goto J Label L:ClrHome Input X Disp X Pause :DelVar X:Goto K Label H:ClrHome:ClrDraw 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 Label J:ClrHome:ClrDraw Disp "1:REMIDENT Disp " Disp "2:CALCUL Disp " Disp "3:PRECALCUL Disp " Disp "4:STATISTIQUES" Repeat K!=0 getKey->K If K=23:Goto 24 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 Label A1:ClrDraw FnOff ê 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[degrees] Output(2,10,Z Input P P->L2(Z End Menu(" TYPE GRAPHIQUE ","NUAGE DE POINTS",A2,"COURBE",A3,"HISTOGRAMME",A4,"VALEURS",B2,"QUITTER",Q Label A2 Menu(" MARQUE ","€",A5,"[box]",A6,"[dot]",A7 Label A5 Plot1(Scatter,L1,L2,€ ZoomStat Trace Pause :Goto J Label A6 Plot1(Scatter,L1,L2,[box] ZoomStat Trace Pause :Goto J Label A7 Plot1(Scatter,L1,L2,[dot] ZoomStat Trace Pause :Goto J Label A3 Menu(" MARQUE ","€",A8,"[box]",A9,"[dot]",B1 Label A8 Plot1(xyLine,L1,L2,€ ZoomStat Trace Pause :Goto J Label A9 Plot1(xyLine,L1,L2,[box] ZoomStat Trace Pause :Goto J Label B1 Plot1(xyLine,L1,L2,[dot] ZoomStat Trace Pause :Goto J Label A4 Plot1(Histogram,L1,L2 L1)->Xmin max(L1)+I->Xmax I->Xscl max(L2)->Ymax 0->Ymin iPart(Ymax/10)->Yscl 1->c6 DispGraph Trace Pause :Goto J Label B2:ClrHome 1-Var Stats Pause :Goto J Label 14:ClrHome Disp " PRECALCULS Disp " Disp "1:PGCD Disp " Disp "2:PPCM Disp " Disp "3:RACINE CARREE Repeat K!=0 getKey->K If K=11:Goto Z If K=13:Goto 30 If K=15:Goto Q If K=23:Goto 24 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=44:Goto K End Label 16:ClrHome:ClrDraw Prompt N [root]^2N->X Text(1,1,"RACINE CARREE DE",N,"=",X,". Pause :Goto 14 Label 15:ClrHome:ClrDraw Disp "1:THEOREME Disp " Disp "2:RECIPROQUE Repeat K!=0 getKey->K If K=11:Goto Z If K=15:Goto Q If K=13:Goto 30 If K=23:Goto 24 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 Label 13:ClrHome Input "HYPOTENUSE=?",H Input "COTE 2=?",A Input "COTE 3=?",B If 0=H:Then A^2+B^2->H:[root]^2H->H ClrHome:Output(1,1,"HYPOTENUSE=",H,". If 0=A:Then H^2-B^2->A:[root]^2A->A ClrHome:Output(1,1,"COTE 2=",A,". If 0=B:Then H^2-A^2->B:[root]^2B->B ClrHome:Output(1,1,"COTE 3=",B,". End Pause :DelVar H:DelVar A:DelVar B:Goto 14 Label 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 :DelVar L:DelVar E:DelVar D:DelVar X:Goto 14 Label D:ClrHome:ClrDraw Prompt R R[pi]^2->A 2[pi]R->P Text(1,1,"AIRE=",A,". Text(7,1,"PERIMETRE=",P,". Pause :DelVar R:DelVar A:DelVar P:Goto I Label F:ClrHome:ClrDraw Disp "H=HAUTEUR/BASE Disp "F=HYP/3[degrees] COTE Prompt H,F (H*F)/2->X Text(1,1,"AIRE=",X,". Pause :DelVar H:DelVar F:DelVar X:Goto I Label G:ClrHome:ClrDraw Prompt A 6A^2->A:A^3->U Text(1,1,"AIRE=",A,". Text(7,1,"VOLUME=",V Pause :DelVar A:DelVar V:Goto I Label I:ClrHome:ClrDraw Disp "1:CERCLE Disp " Disp "2:TRECTANGLE Disp " Disp "3:CUBE Disp " Disp "4:PYTHAGORE Repeat K!=0 getKey->K If K=11:Goto Z If K=15:Goto Q If K=13:Goto 30 If K=23:Goto 24 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 Label P:ClrHome:ClrDraw "->STR1 "->STR2 GetCalc(STR3 [e](A=[pi])+[pi](A!=[pi]->A Label P:ClrHome Menu(" TI-MSN ","RECEVOIR",R,"ENVOYER",W,"MENU PRINCIPAL",0 Label W Input "MESSAGE: ",STR3 If A=[pi]:STR3->STR1 If A=[e]:STR3->STR2 Goto M:Label R If A=[e]:Then GetCalc(STR1 STR1 Else GetCalc(STR2 STR2 End Output(1,1,Ans Pause :Goto M Label 11:ClrHome:ClrDraw Disp " JEUX Disp " Disp "1:BLACKJACK Disp " Disp "2:MORPION Disp " Disp "3:SNAKE Repeat K!=0 getKey->K If K=11:Goto Z If K=15:Goto Q If K=13:Goto 30 If K=23:Goto 24 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=44:Goto K End Label O:ClrHome:ClrDraw Disp " AUTRES Disp " Disp "1:TI-MSN Disp " Disp "2:JEUX 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=23:Goto 24 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 Label N:ClrHome:ClrDraw 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=92andY=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=93andZ=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=94andW=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=82andT=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=83andU=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=84andV=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=72andO=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=73andP=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=74andQ=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 A GAGNE 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 A GAGNE Stop:End If O+P+Q+T+U+V+Y+Z+W=54:Then Output(7,4,"MATCH NUL Stop:End If K=0:Then:End:End Pause :Goto O Label M:ClrHome:ClrDraw Disp " MATHS Disp " Disp "1:ALGEBRE Disp " Disp "2:GEOMETRIE 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=23:Goto 24 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 Label 0:ClrHome:ClrDraw Disp "TI-83+.FR ALT OS Disp " Disp "1:MATHS Disp " Disp "2:AUTRES 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=23:Goto 24 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 Label 20 ClrHome:ClrDraw Disp " PARAMETRES Disp " Disp "1:NOM Disp " " Disp "2:EFF VARIABLES Repeat K!=0 getKey->K If K=11:Goto Z If K=15:Goto Q If K=13:Goto 30 If K=23:Goto 24 If K=44:Goto K If K=42:Goto O If K=41:Goto M If K=43:Goto 0 If K=22:Goto 20 If K=92:Goto 21 If K=93:Goto 24 End Label 25:ClrHome:ClrDraw Text(1,1,M Pause :Goto 0 Label 21:ClrHome:ClrDraw Disp " NOM Disp " Disp "1:AFFICHER NOM Repeat K!=0 getKey->K If K=11:Goto Z If K=15:Goto Q If K=13:Goto 30 If K=44:Goto K If K=23:Goto 24 If K=42:Goto O If K=41:Goto M If K=43:Goto 0 If K=22:Goto 20 If K=92:Goto 22 If K=93:Goto 23 End Label 22:ClrHome:ClrDraw Disp "TU T'APPELLES",STR4 Pause :Goto 0 Label 23:ClrHome:ClrDraw Input "TON NOM?",STR4 Text(1,1,"MODIFICATION EFFECTUEE Pause :Goto 0 Label 24:ClrHome:ClrDraw DelVar A:DelVar B:DelVar C:DelVar D:DelVar E:DelVar F:DelVar G:DelVar H:DelVar I:DelVar J:DelVar K:DelVar L:DelVar M:DelVar N:DelVar O:DelVar P:DelVar Q:DelVar R:DelVar S:DelVar T:DelVar U:DelVar V:DelVar W:DelVar X:DelVar Y:DelVar Z:DelVar STR1:DelVar STR2:DelVar STR3:ClrAllLists Output(1,1,"VARIABLES EFFACEES Pause :Goto 0 Label 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!=L1andAns!=L2 RandInt(1,8->S RandInt(1,16->T End Output(S,Ans,"* Repeat T=AnsandS=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 Label A0:ClrHome Output(1,1,"ERREUR: FAUSSE CMD Pause :ClrHome Output(1,1,"LISEZ L'AIDE F3 SUR LES TOUCHES Pause :Goto 0 Label Q:ClrHome:ClrDraw:AxesOn DelVar A:DelVar B:DelVar C:DelVar D:DelVar E:DelVar F:DelVar G:DelVar H:DelVar I:DelVar J:DelVar K:DelVar L:DelVar M:DelVar N:DelVar O:DelVar P:DelVar Q:DelVar R:DelVar S:DelVar T:DelVar U:DelVar V:DelVar W:DelVar X:DelVar Y:DelVar Z:DelVar STR1:DelVar STR2:DelVar STR3:ClrAllLists Output(1,1," No Str4 defined, maybe you should ask the user to input it? No Str9 defined, maybe you should ask the user to input it?
5910
« on: November 12, 2010, 10:11:31 am »
Thanks Juju, so nobody will be having bandwith problems this month [offtopic]I want to make WFRNG to PC Version with Graphical User Interface in Python Is there a PC version? 'cos I want to know if i'll be the first [/offtopic]
Pages: 1 ... 392 393 [394] 395 396 ... 424
|