0. ; Also available at https://github.com/jbrains/trivia
1.  
2. #lang racket
3.  
4. (require data/queue)
5.  
6. (define players null)
7. (define places null)
8. (define purses null)
9. (define in-penalty-box? null)
10.  
11. (define pop-questions null)
12. (define science-questions null)
13. (define sports-questions null)
14. (define rock-questions null)
15.  
16. (define current-player null)
17. (define is-getting-out-of-penalty-box? null)
18.  
19. (define (reset-all)
20.   (set! players empty)
21.   (set! places (make-vector 6))
22.   (set! purses (make-vector 6))
23.   (set! in-penalty-box? (make-vector 6))
24.  
25.   (set! pop-questions (make-queue))
26.   (set! science-questions (make-queue))
27.   (set! sports-questions (make-queue))
28.   (set! rock-questions (make-queue))
29.  
30.   (set! current-player 0)
31.   (set! is-getting-out-of-penalty-box? #f)
32.  
33.   (for ([i (in-range 50)])
34.     (enqueue! pop-questions (~a "Pop Question " i))
35.     (enqueue! science-questions (~a "Science Question " i))
36.     (enqueue! sports-questions (~a "Sports Question " i))
37.     (enqueue! rock-questions (create-rock-question i))))
38.  
39. (define (create-rock-question i)
40.   (~a "Rock Question " i))
41.  
42. (reset-all)
43.  
44. (define (playable?)
45.   (>= how-many-players 2))
46.  
47. (define (print . args)
48.   (define s (apply ~a args))
49.   (displayln s))
50.  
51. (define (add player-name)
52.   (vector-set! places (how-many-players) 0)
53.   (vector-set! purses (how-many-players) 0)
54.   (vector-set! in-penalty-box? (how-many-players) #f)
55.   (set! players (append players (list player-name)))
56.  
57.   (print player-name " was added")
58.   (print "They are player number " (length players)))
59.  
60. (define (how-many-players)
61.   (length players))
62.  
63. (define (roll roll)
64.   (print (list-ref players current-player) " is the current player")
65.   (print "They have rolled a " roll)
66.  
67.   (if (vector-ref in-penalty-box? current-player)
68.       (cond [(odd? roll)
69.              (set! is-getting-out-of-penalty-box? #t)
70.  
71.              (print (list-ref players current-player)
72.                     " is getting out of the penalty box")
73.              (vector-set! places current-player
74.                           (+ roll (vector-ref places current-player)))
75.              (when (> (vector-ref places current-player) 11)
76.                (vector-set! places current-player
77.                             (- (vector-ref places current-player) 12)))
78.  
79.              (print (list-ref players current-player)
80.                     "'s new location is "
81.                     (vector-ref places current-player))
82.              (print "The category is " (current-category))
83.              (ask-question)]
84.             [else
85.              (print (list-ref players current-player)
86.                     " is not getting out of the penalty box")
87.              (set! is-getting-out-of-penalty-box? #f)])
88.       (begin
89.         (vector-set! places current-player
90.                      (+ roll (vector-ref places current-player)))
91.         (when (> (vector-ref places current-player) 11)
92.           (vector-set! places current-player
93.                        (- (vector-ref places current-player) 12)))
94.  
95.         (print (list-ref players current-player)
96.                "'s new location is "
97.                (vector-ref places current-player))
98.         (print "The category is " (current-category))
99.         (ask-question))))
100.  
101. (define (ask-question)
102.   (cond [(equal? (current-category) "Pop")
103.          (print (dequeue! pop-questions))]
104.         [(equal? (current-category) "Science")
105.          (print (dequeue! science-questions))]
106.         [(equal? (current-category) "Sports")
107.          (print (dequeue! sports-questions))]
108.         [(equal? (current-category) "Rock")
109.          (print (dequeue! rock-questions))]))
110.  
111. (define (current-category)
112.   (cond [(= (vector-ref places current-player) 0) "Pop"]
113.         [(= (vector-ref places current-player) 4) "Pop"]
114.         [(= (vector-ref places current-player) 8) "Pop"]
115.         [(= (vector-ref places current-player) 1) "Science"]
116.         [(= (vector-ref places current-player) 5) "Science"]
117.         [(= (vector-ref places current-player) 9) "Science"]
118.         [(= (vector-ref places current-player) 2) "Sports"]
119.         [(= (vector-ref places current-player) 6) "Sports"]
120.         [(= (vector-ref places current-player) 10) "Sports"]
121.         [else "Rock"]))
122.  
123. (define (was-correctly-answered?)
124.   (define winner null)
125.   (if (vector-ref in-penalty-box? current-player)
126.       (cond [is-getting-out-of-penalty-box?
127.              (print "Answer was correct!!!!")
128.              (vector-set! purses current-player (+ 1 (vector-ref purses current-player)))
129.              (print (list-ref players current-player) " now has "
130.                     (vector-ref purses current-player) " Gold Coins.")
131.  
132.              (set! winner (did-player-win?))
133.              (set! current-player (+ current-player 1))
134.              (when (= current-player (length players))
135.                (set! current-player 0))
136.              winner]
137.             [else (set! current-player (+ current-player 1))
138.                   (when (= current-player (length players))
139.                     (set! current-player 0))
140.                   #t])
141.       (begin
142.         (print "Answer was corrent!!!!")
143.         (vector-set! purses current-player (+ 1 (vector-ref purses current-player)))
144.         (print (list-ref players current-player) " now has "
145.                (vector-ref purses current-player) " Gold Coins.")
146.  
147.         (set! winner (did-player-win?))
148.         (set! current-player (+ current-player 1))
149.         (when (= current-player (length players))
150.           (set! current-player 0))
151.         winner)))
152.  
153.  
154. (define (wrong-answer)
155.   (print "Question was incorrectly answered")
156.   (print  (list-ref players current-player) " was sent to the penalty box")
157.   (vector-set! in-penalty-box? current-player #t)
158.  
159.   (set! current-player (+ current-player 1))
160.   (when (= current-player (length players))
161.     (set! current-player 0))
162.   #t)
163.  
164. (define (did-player-win?)
165.   (not (= (vector-ref purses current-player) 6)))
166.  
167.  
168. ; GAME LOOP
169.  
170. (define (play-game . players)
171.   (reset-all)
172.  
173.   (for ([p players])
174.     (add p))
175.   (define not-a-winner #f)
176.  
177.   (let G ()
178.     (roll (+ (random 6) 1))
179.     (set! not-a-winner
180.           (if (= (random 10) 7)
181.               (wrong-answer)
182.               (was-correctly-answered?)))
183.  
184.     (when not-a-winner
185.       (G))))
186.  
187.  
188. (play-game "Chet" "Pat" "Sue")

=>

Chet was added They are player number 1 Pat was added They are player number 2 Sue was added They are player number 3 Chet is the current player They have rolled a 1 Chet's new location is 1 The category is Science Science Question 0 Answer was corrent!!!! Chet now has 1 Gold Coins. Pat is the current player They have rolled a 2 Pat's new location is 2 The category is Sports Sports Question 0 Answer was corrent!!!! Pat now has 1 Gold Coins. Sue is the current player They have rolled a 1 Sue's new location is 1 The category is Science Science Question 1 Answer was corrent!!!! Sue now has 1 Gold Coins. Chet is the current player They have rolled a 1 Chet's new location is 2 The category is Sports Sports Question 1 Answer was corrent!!!! Chet now has 2 Gold Coins. Pat is the current player They have rolled a 5 Pat's new location is 7 The category is Rock Rock Question 0 Answer was corrent!!!! Pat now has 2 Gold Coins. Sue is the current player They have rolled a 2 Sue's new location is 3 The category is Rock Rock Question 1 Answer was corrent!!!! Sue now has 2 Gold Coins. Chet is the current player They have rolled a 5 Chet's new location is 7 The category is Rock Rock Question 2 Answer was corrent!!!! Chet now has 3 Gold Coins. Pat is the current player They have rolled a 5 Pat's new location is 0 The category is Pop Pop Question 0 Answer was corrent!!!! Pat now has 3 Gold Coins. Sue is the current player They have rolled a 2 Sue's new location is 5 The category is Science Science Question 2 Answer was corrent!!!! Sue now has 3 Gold Coins. Chet is the current player They have rolled a 3 Chet's new location is 10 The category is Sports Sports Question 2 Answer was corrent!!!! Chet now has 4 Gold Coins. Pat is the current player They have rolled a 4 Pat's new location is 4 The category is Pop Pop Question 1 Answer was corrent!!!! Pat now has 4 Gold Coins. Sue is the current player They have rolled a 6 Sue's new location is 11 The category is Rock Rock Question 3 Answer was corrent!!!! Sue now has 4 Gold Coins. Chet is the current player They have rolled a 2 Chet's new location is 0 The category is Pop Pop Question 2 Answer was corrent!!!! Chet now has 5 Gold Coins. Pat is the current player They have rolled a 2 Pat's new location is 6 The category is Sports Sports Question 3 Answer was corrent!!!! Pat now has 5 Gold Coins. Sue is the current player They have rolled a 5 Sue's new location is 4 The category is Pop Pop Question 3 Answer was corrent!!!! Sue now has 5 Gold Coins. Chet is the current player They have rolled a 5 Chet's new location is 5 The category is Science Science Question 3 Answer was corrent!!!! Chet now has 6 Gold Coins.