Login [Register]
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.

» Go to Registration page
Page 1 of 1
» 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

 

Advertisement