Don't have an account? Register now to chat, post, use our tools, and much more.
Hello everyone, I just started development of a game which is a spin-off of the Jackbox Party Pack 2 game "Quiplash". It is basically a multiplayer game where each person answers 2 questions by themself; all the questions will be shown to the players, along with 2 answers. Whichever answer is the most clever should be voted more. Score is determined by how many votes for each answer are given. Whoever scores the highest after 3 rounds wins the game.

Right now, it is being written in Basic; graphic support would require porting the program in ICE (a custom Assembly language).
Update: Another thing, in the game, for each round, each person answers 2 questions as said before; each question, however, has to be answered by 2 random different people.

My implementation at first was, using a for loop to generate a random number, then use it in my subprogram (QUSTIONS) to display the random questions. So how I would I implement it so that the random number is used for 2 random different players while keeping the for loop in the main program?

Initial program

Code:
``` "SOURCE" "(title scmeen) ClrHome Disp "ANNOUNCER: Welcome to","QTIPlash! There are many","games out there in the","world, so I'm happy","that you chose QTIPlash.","So, how many people are" Lbl 00 Input "playing?",X DelVar ⌊Xint(abs(X→X If X<3 or X>6:Then ClrHome:Disp "ANNOUNCER: Sorry, the","limit is 3-6 players." Pause Disp "So how many are" Goto 00:Else X:End ClrHome:Disp "ANNOUNCER: Great! Why","don't we start the game","now?" Pause SetUpEditor ⌊QS,⌊PLYRS SetUpEditor ClrList ⌊QS,⌊PLYRS:X→dim(⌊QS ClrHome:Disp "ANNOUNCER: Now, who is","playing?","" "randIntNoRep(→Str1 For(R,1,X "Player "+toString(R)+"?→Str3 Input Str3,Str2 Str2+"→Str2 Str1+Str2→Str1 length(Str2→⌊PLYRS(R End sub(Str1,2,length(Str1)-2→Str1 ClrHome:Disp "ANNOUNCER: Okay, everyone!","Let's get to some","quiplashin'." Pause ClrHome Output(5,9,"ROUND 1 Pause For(R,1,X ClrHome:Disp "Player "+toString(R)+" answer:" Pause randInt(1,50→G prgmQUSTIONS End ```

Sub program:

Code:
``` Disp "ANOUNCER: If G=1 (Questions, went up to if G=12) Input "Your answer:",Str2 StringEqu(Str2,Y₁ Return ```

Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

»
» All times are GMT - 5 Hours

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum