Mohenjo Daro

4

2

I think we need to fire the Admins.s… 77

73

56

53

44

In reality, it will do what he wants, but it isn't VB6 so it won't work and it isn't written correctly for use in and engine so yeah, it's of little use. But it does work for what he requested lol. It was more to show that it is simple enough to make/write.

Wow, my browser got screwed up… 41 !!!

33

Also look at my code for how to lay the code out in some areas like the counter, and see if you like what the whole thing does, and then use Matt's so you know how to put the code in, or just hire someone to write the code for you.

30, keep going guys!!! P.S. Don't cheat.

Well, I gave a program that works, I don't know VB6 and I don't know a great deal at all of dependent programs in an engine.

> So… much... no... Just click the "HERE" and download the .EXE and see what it does.

> What? xD Mate, your QB64 code is object oriented and not event oriented like the Eclipse engine. Thanks Matt, I already know that it is an independent code, I said as much. You would have to do a little reworking in it to make it work WITH any engine and it would have to be converted into VB6 to work with Eclipse, that I can't do, I don't know the language. So if you get someone to translate the code and someone else, or the same person, to make it work with the engine then you would/will be golden, I was only showing a code that would do what he was asking.

OK, dang that took awhile to get out all the kinks (though there is work needed so that people cant press different keys besides the ones you want…) but here is the code, not as short as I intended but it gets the job done nicely. (Please Note -- This code was made for QB64 and was made to work in its own window, not as part of a game. If you want it to work on Eclipse, you will need to edit it so it is in the correct language (VB6) and so that it is linked to the game instead of being independent) >! CLS >! GOSUB First.Question >! GOSUB Second.Question >! GOSUB Third.Question >! GOSUB Fourth.Question >! GOSUB Fifth.Question >! GOSUB Sixth.Question >! GOSUB Seventh.Question >! GOSUB Eighth.Question >! GOSUB Nineth.Question >! GOSUB Tenth.Question >! ' You Can Add More if You Want >! PRINT "Your Class is "; Class$ >! END >! First.Question: >! CLS >! PRINT "-This is Where You Put Your First Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Second.Question: >! CLS >! PRINT "-This is Where You Put Your Second Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Third.Question: >! CLS >! PRINT "-This is Where You Put Your Third Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Fourth.Question: >! CLS >! PRINT "-This is Where You Put Your Fourth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Fifth.Question: >! CLS >! PRINT "-This is Where You Put Your Fifth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Sixth.Question: >! CLS >! PRINT "-This is Where You Put Your Sixth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Seventh.Question: >! CLS >! PRINT "-This is Where You Put Your Seventh Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Eighth.Question: >! CLS >! PRINT "-This is Where You Put Your Eighth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Nineth.Question: >! CLS >! PRINT "-This is Where You Put Your Nineth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Tenth.Question: >! CLS >! PRINT "-This is Where You Put Your Tenth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! GOSUB Counter >! RETURN >! Tie.Breaker.Question: >! CLS >! PRINT "-This is Where You Put Your Eleventh Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! Control = 1 >! GOSUB Counter >! RETURN >! Tie.Breaker.Question2: >! CLS >! PRINT "-This is Where You Put Your Twelveth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! Control = 2 >! GOSUB Counter >! RETURN >! Tie.Breaker.Question3: >! CLS >! PRINT "-This is Where You Put Your Thirteenth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! Control = 3 >! GOSUB Counter >! RETURN >! Tie.Breaker.Question4: >! CLS >! PRINT "-This is Where You Put Your Fourteenth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! Control = 4 >! GOSUB Counter >! RETURN >! Tie.Breaker.Question5: >! CLS >! PRINT "-This is Where You Put Your Fifthteenth Question.- " >! PRINT "-This is Where You Put Your First A Answer.- Answer A " >! PRINT "-This is Where You Put Your First B Answer.- Answer B" >! PRINT "-This is Where You Put Your First C Answer.- Answer C" >! PRINT "-This is Where You Put Your First D Answer.- Answer D" >! INPUT "Please Pick Your Answer ", CharControl$ >! Control = 5 >! GOSUB Counter >! RETURN >! Counter: >! Counter = Counter + 1 >! IF CharControl$ = "A" THEN >! Count.A = Count.A + 1 >! ELSE >! IF CharControl$ = "B" THEN >! Count.B = Count.B + 1 >! END IF >! IF CharControl$ = "C" THEN >! Count.C = Count.C + 1 >! END IF >! IF CharControl$ = "D" THEN >! Count.D = Count.D + 1 >! END IF >! END IF >! IF Counter >= 10 THEN >! IF Count.A > ControlAmount THEN >! ControlAmount = Count.A >! END IF >! IF Count.B > ControlAmount THEN >! ControlAmount = Count.B >! END IF >! IF Count.C > ControlAmount THEN >! ControlAmount = Count.C >! END IF >! IF Count.D > ControlAmount THEN >! ControlAmount = Count.D >! END IF >! IF Count.A > Count.B AND Count.A > Count.C AND Count.A > Count.D THEN >! Class$ = "Warrior" >! ELSE >! END IF >! IF Count.B > Count.A AND Count.B > Count.C AND Count.B > Count.D THEN >! Class$ = "Mage" >! ELSE >! END IF >! IF Count.C > Count.A AND Count.C > Count.B AND Count.C > Count.D THEN >! Class$ = "Paladin" >! ELSE >! END IF >! IF Count.D > Count.A AND Count.D > Count.B AND Count.D > Count.C THEN >! Class$ = "Rouge" >! ELSE >! END IF >! IF ControlAmount = Count.A AND ControlAmount = Count.B OR ControlAmount = Count.A AND ControlAmount = Count.C OR ControlAmount = Count.A AND ControlAmount = Count.D OR ControlAmount = Count.B AND ControlAmount = Count.C OR ControlAmount = Count.B AND ControlAmount = Count.D OR ControlAmount = Count.C AND ControlAmount = Count.D THEN >! IF Control = 0 THEN >! GOSUB Tie.Breaker.Question >! GOTO Counter >! END IF >! IF Control = 1 THEN >! GOSUB Tie.Breaker.Question2 >! GOTO Counter >! END IF >! IF Control = 2 THEN >! GOSUB Tie.Breaker.Question3 >! GOTO Counter >! END IF >! IF Control = 3 THEN >! GOSUB Tie.Breaker.Question4 >! GOTO Counter >! END IF >! IF Control = 4 THEN >! GOSUB Tie.Breaker.Question5 >! GOTO Counter >! END IF >! ELSE >! END IF >! ELSE >! END IF >! IF Counter >= 15 THEN >! Class$ = "Cleric" >! ELSE >! END IF >! RETURN Now, if you wish to see how this code functions without you having to copy and paste the code into QB64, then [HERE](http://creationsforall.webs.com/Multi.Choice.Char.exe) is the download for the .EXE (Note – You will have to type in Capital letters of, A, B, C, or D)

That will work, but when you have that many conditionals… It really lags your game, and it gets way to confusing, it is easier to write a program that opens at the title right after you create your character. And I'm still working on my program, it's annoying while I'm multitasking...

Ok, let me make a script for this, I can't stand looking at that one, though some pieces are good, others… Lol, no offence intended Matt.

I will say, I would never have thought of doing this, but it is simple, just ask and I'll explain or give you a code.

Sure, I could write a script if you really wanted, it would be in QB64 and not the prettiest, but it would work I guess. Now if you are looking for direction of how you would do it, then I am willing to explain it to you.

I did not know it was in Waltz, good to know that it was added, but I have been using this system of changing for quite awhile now. And thanks.

Umm… Did you steal the sword from Skyrim? Lol.

You will have to give more details about what you are meaning…

If you are making this game then here is how you do it without changing any script. Make an Event – Give it choices/multiple choice -- For each answer give a different class (If you have more than 3 classes then make the last option a "More Choices", else make it a "Cancel". I hope this solves/answers you problem/question.

1 8elieve you are right.