Tic-Tac-Toe

[SierraKen]

The only way I know how to do that is if to re-draw the grid on every computer move. Hmm, I'll give it a try.

[SierraKen]

Cool I figured it out! It redraws the grid over each time the computer moves, except for the bottom row so the O's on the bottom can still overlap the grid there. Check out the photo. Here's the update to the game. Thanks for the help!

Code: QB64: [Select]

1. 'I've wanted to make this game for decades and finally am able to!
2. 'This game was made on August 14, 2019 by SierraKen.
3. 'This is Freeware.
4. 'Jan. 28, 2021 update: Choose at random who goes first.
5. 'Jan. 29, 2021 update: Random colored grid, better looking X's, faster welcome screen, centered welcome screen better, made the ability to click to play a new game and another game,
6. 'and added text colors.
7. 'Jan. 30, 2021 update: Added background blue shades. Also added a score in the Title Bar. Turned the game into 3D - Thanks to B+ for the idea!
8.  
9.  
10. DIM a(10), b(10)
11. _LIMIT 60
12. _TITLE "Tic-Tac-Toe     by SierraKen"
13. SCREEN _NEWIMAGE(600, 480, 32)
14. CLS
15. PRINT: PRINT: PRINT
16. LOCATE 10, 34: PRINT "-"
17. LOCATE 10, 40: PRINT "-"
18. FOR tic = 1 TO 10
19.     LOCATE tic, 30: PRINT "TIC"
20.     _DELAY .1
21.     LOCATE tic, 30: PRINT "   "
22. NEXT tic
23. LOCATE 10, 30: PRINT "TIC"
24. FOR tac = 20 TO 10 STEP -1
25.     LOCATE tac, 36: PRINT "TAC"
26.     _DELAY .1
27.     LOCATE tac, 36: PRINT "   "
28. NEXT tac
29. LOCATE 10, 36: PRINT "TAC"
30. FOR toe = 1 TO 10
31.     LOCATE toe, 42: PRINT "TOE"
32.     _DELAY .1
33.     LOCATE toe, 42: PRINT "   "
34. NEXT toe
35. LOCATE 10, 42: PRINT "TOE"
36. computer = 0
37. you = 0
38.  
39. PRINT: PRINT: PRINT
40. PRINT "                              By  SierraKen"
41. PRINT: PRINT: PRINT
42. PRINT "       Play against the computer in this classic game of Tic-Tac-Toe."
43. PRINT "                      Whoever gets 3 in a row wins."
44. PRINT
45. PRINT "                    Choose a sqace by using your mouse."
46. PRINT "                     Computer chooses who goes first."
47.  
48. COLOR _RGB32(255, 255, 255), _CLEARCOLOR
49. _PRINTSTRING (220, 430), "Click Here To Start"
50. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
51.  
52. DO
53.     _LIMIT 60
54.     mouseWheel = 0
55.     DO WHILE _MOUSEINPUT
56.         mouseX = _MOUSEX
57.         mouseY = _MOUSEY
58.         mouseLeftButton = _MOUSEBUTTON(1)
59.         mouseRightButton = _MOUSEBUTTON(2)
60.         mouseMiddleButton = _MOUSEBUTTON(3)
61.         mouseWheel = mouseWheel + _MOUSEWHEEL
62.     LOOP
63.     ag$ = INKEY$
64.     IF ag$ = CHR$(27) THEN END
65.     IF ag$ = " " THEN CLS: GOTO start:
66.     IF mouseLeftButton = -1 AND mouseX > 220 AND mouseX < 370 AND mouseY > 430 AND mouseY < 446 THEN CLS: GOTO start:
67. LOOP
68.  
69. start:
70. ag$ = ""
71. t = 0
72. turn = 0
73. comp = 0
74.  
75. FOR cc = 0 TO 480
76.     cl = cl + .5
77.     LINE (0, cc)-(640, cc), _RGB32(0, 0, cl)
78. NEXT cc
79. cl = 0
80. RANDOMIZE TIMER
81. c1 = INT(RND * 155) + 100
82. c2 = INT(RND * 155) + 100
83. c3 = INT(RND * 155) + 100
84.  
85. GOSUB grid:
86.  
87. whosfirst:
88. RANDOMIZE TIMER
89. first = INT(RND * 2) + 1
90. IF first = 1 THEN GOTO computerchoice:
91.  
92. Go:
93. _LIMIT 60
94. a$ = INKEY$
95. IF a$ = CHR$(27) THEN END
96. mouseWheel = 0
97. DO WHILE _MOUSEINPUT
98.     mouseX = _MOUSEX
99.     mouseY = _MOUSEY
100.     mouseLeftButton = _MOUSEBUTTON(1)
101.     mouseRightButton = _MOUSEBUTTON(2)
102.     mouseMiddleButton = _MOUSEBUTTON(3)
103.     mouseWheel = mouseWheel + _MOUSEWHEEL
104. LOOP
105.  
106. IF mouseLeftButton = -1 THEN
107.     IF mouseX > 88 AND mouseX < 218 AND mouseY > 93 AND mouseY < 182 AND b(1) = 0 AND a(1) = 0 AND t = 0 THEN GOSUB space1:
108.     IF mouseX > 241 AND mouseX < 357 AND mouseY > 93 AND mouseY < 182 AND b(2) = 0 AND a(2) = 0 AND t = 0 THEN GOSUB space2:
109.     IF mouseX > 381 AND mouseX < 509 AND mouseY > 93 AND mouseY < 182 AND b(3) = 0 AND a(3) = 0 AND t = 0 THEN GOSUB space3:
110.     IF mouseX > 88 AND mouseX < 218 AND mouseY > 205 AND mouseY < 302 AND b(4) = 0 AND a(4) = 0 AND t = 0 THEN GOSUB space4:
111.     IF mouseX > 241 AND mouseX < 357 AND mouseY > 205 AND mouseY < 302 AND b(5) = 0 AND a(5) = 0 AND t = 0 THEN GOSUB space5:
112.     IF mouseX > 381 AND mouseX < 509 AND mouseY > 205 AND mouseY < 302 AND b(6) = 0 AND a(6) = 0 AND t = 0 THEN GOSUB space6:
113.     IF mouseX > 88 AND mouseX < 218 AND mouseY > 326 AND mouseY < 410 AND b(7) = 0 AND a(7) = 0 AND t = 0 THEN GOSUB space7:
114.     IF mouseX > 241 AND mouseX < 357 AND mouseY > 326 AND mouseY < 410 AND b(8) = 0 AND a(8) = 0 AND t = 0 THEN GOSUB space8:
115.     IF mouseX > 381 AND mouseX < 509 AND mouseY > 326 AND mouseY < 410 AND b(9) = 0 AND a(9) = 0 AND t = 0 THEN GOSUB space9:
116. END IF
117.  
118. IF mouseLeftButton = -1 AND ending = 1 THEN GOTO start:
119. IF mouseRightButton = -1 AND ending = 1 THEN END
120.  
121. IF t = 1 THEN GOSUB computer:
122.  
123. GOTO Go:
124.  
125. checkwin:
126. 'Check to see if you won.
127. IF a(1) = 1 AND a(2) = 1 AND a(3) = 1 THEN GOTO won:
128. IF a(4) = 1 AND a(5) = 1 AND a(6) = 1 THEN GOTO won:
129. IF a(7) = 1 AND a(8) = 1 AND a(9) = 1 THEN GOTO won
130. IF a(1) = 1 AND a(4) = 1 AND a(7) = 1 THEN GOTO won:
131. IF a(2) = 1 AND a(5) = 1 AND a(8) = 1 THEN GOTO won:
132. IF a(3) = 1 AND a(6) = 1 AND a(9) = 1 THEN GOTO won:
133. IF a(1) = 1 AND a(5) = 1 AND a(9) = 1 THEN GOTO won:
134. IF a(3) = 1 AND a(5) = 1 AND a(7) = 1 THEN GOTO won:
135. turn = turn + 1
136. SOUND 100, .25
137. IF turn = 9 THEN GOTO catsgame:
138. GOTO Go:
139. won:
140. FOR snd = 300 TO 900 STEP 50
141.     SOUND snd, .5
142. NEXT snd
143. FOR tt = 1 TO 9
144.     a(tt) = 0
145.     b(tt) = 0
146. NEXT tt
147. you = you + 1
148. you$ = STR$(you)
149. computer$ = STR$(computer)
150. _TITLE "You: " + you$ + "   Computer: " + comp$
151. t = 0
152. COLOR _RGB32(255, 0, 0), _CLEARCOLOR
153. LOCATE 2, 32: PRINT "Y O U   W I N ! !"
154. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
155. GOTO playagain:
156.  
157. computer:
158.  
159. 'Check to win.
160. 'Last space gone.
161. IF b(1) = 1 AND b(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
162. IF b(4) = 1 AND b(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
163. IF b(7) = 1 AND b(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
164. IF b(1) = 1 AND b(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
165. IF b(2) = 1 AND b(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
166. IF b(3) = 1 AND b(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
167. IF b(1) = 1 AND b(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
168. IF b(3) = 1 AND b(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
169. 'First space gone.
170. IF b(2) = 1 AND b(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
171. IF b(5) = 1 AND b(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
172. IF b(8) = 1 AND b(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
173. IF b(4) = 1 AND b(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
174. IF b(5) = 1 AND b(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
175. IF b(6) = 1 AND b(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
176. IF b(5) = 1 AND b(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
177. IF b(7) = 1 AND b(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
178. 'Middle space gone.
179. IF b(1) = 1 AND b(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
180. IF b(4) = 1 AND b(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
181. IF b(7) = 1 AND b(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
182. IF b(1) = 1 AND b(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
183. IF b(2) = 1 AND b(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
184. IF b(3) = 1 AND b(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
185. IF b(1) = 1 AND b(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
186. IF b(3) = 1 AND b(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
187.  
188. 'Check to block.
189. 'Last space gone.
190. IF a(1) = 1 AND a(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
191. IF a(4) = 1 AND a(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
192. IF a(7) = 1 AND a(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
193. IF a(1) = 1 AND a(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
194. IF a(2) = 1 AND a(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
195. IF a(3) = 1 AND a(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
196. IF a(1) = 1 AND a(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
197. IF a(3) = 1 AND a(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
198. 'First space gone.
199. IF a(2) = 1 AND a(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
200. IF a(5) = 1 AND a(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
201. IF a(8) = 1 AND a(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
202. IF a(4) = 1 AND a(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
203. IF a(5) = 1 AND a(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
204. IF a(6) = 1 AND a(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
205. IF a(5) = 1 AND a(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
206. IF a(7) = 1 AND a(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
207. 'Middle space gone.
208. IF a(1) = 1 AND a(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
209. IF a(4) = 1 AND a(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
210. IF a(7) = 1 AND a(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
211. IF a(1) = 1 AND a(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
212. IF a(2) = 1 AND a(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
213. IF a(3) = 1 AND a(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
214. IF a(1) = 1 AND a(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
215. IF a(3) = 1 AND a(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
216.  
217. 'Computer decides a random space.
218. computerchoice:
219. RANDOMIZE TIMER
220. comp = INT(RND * 9) + 1
221. IF b(comp) = 1 THEN GOTO computerchoice:
222. IF a(comp) = 1 THEN GOTO computerchoice:
223. IF comp = 1 THEN GOTO compspace1:
224. IF comp = 2 THEN GOTO compspace2:
225. IF comp = 3 THEN GOTO compspace3:
226. IF comp = 4 THEN GOTO compspace4:
227. IF comp = 5 THEN GOTO compspace5:
228. IF comp = 6 THEN GOTO compspace6:
229. IF comp = 7 THEN GOTO compspace7:
230. IF comp = 8 THEN GOTO compspace8:
231. IF comp = 9 THEN GOTO compspace9:
232.  
233. 'Cat's Game
234. catsgame:
235. FOR snd = 400 TO 300 STEP -25
236.     SOUND snd, .5
237. NEXT snd
238. FOR tt = 1 TO 9
239.     a(tt) = 0
240.     b(tt) = 0
241. NEXT tt
242. t = 0
243. COLOR _RGB32(255, 0, 255), _CLEARCOLOR
244. LOCATE 2, 29: PRINT "Cat's Game - No Winners"
245. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
246. GOTO playagain:
247.  
248. 'Check to see if the computer won.
249. check:
250. IF b(1) = 1 AND b(2) = 1 AND b(3) = 1 THEN GOTO compwon:
251. IF b(4) = 1 AND b(5) = 1 AND b(6) = 1 THEN GOTO compwon:
252. IF b(7) = 1 AND b(8) = 1 AND b(9) = 1 THEN GOTO compwon
253. IF b(1) = 1 AND b(4) = 1 AND b(7) = 1 THEN GOTO compwon:
254. IF b(2) = 1 AND b(5) = 1 AND b(8) = 1 THEN GOTO compwon:
255. IF b(3) = 1 AND b(6) = 1 AND b(9) = 1 THEN GOTO compwon:
256. IF b(1) = 1 AND b(5) = 1 AND b(9) = 1 THEN GOTO compwon:
257. IF b(3) = 1 AND b(5) = 1 AND b(7) = 1 THEN GOTO compwon:
258. turn = turn + 1
259. IF turn = 9 THEN GOTO catsgame:
260. t = 0
261. GOTO Go:
262.  
263. compwon:
264. FOR snd = 900 TO 300 STEP -50
265.     SOUND snd, .5
266. NEXT snd
267. FOR tt = 1 TO 9
268.     a(tt) = 0
269.     b(tt) = 0
270. NEXT tt
271. t = 0
272. computer = computer + 1
273. you$ = STR$(you)
274. comp$ = STR$(computer)
275. _TITLE "You: " + you$ + "   Computer: " + comp$
276. COLOR _RGB32(128, 255, 255), _CLEARCOLOR
277. LOCATE 2, 33: PRINT "Computer  Wins"
278. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
279. GOTO playagain:
280.  
281. 'This part draws the computer's circle.
282. compspace1:
283. t = 0
284. b(1) = 1
285. FOR xx = .1 TO 10 STEP .1
286.     FOR s = .25 TO 10 STEP .25
287.         CIRCLE (160 - xx, 140 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
288.     NEXT s
289. NEXT xx
290. GOSUB grid:
291. GOTO check:
292. compspace2:
293. t = 0
294. b(2) = 1
295. FOR xx = .1 TO 10 STEP .1
296.     FOR s = .25 TO 10 STEP .25
297.         CIRCLE (300 - xx, 140 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
298.     NEXT s
299. NEXT xx
300. GOSUB grid:
301. GOTO check:
302. compspace3:
303. t = 0
304. b(3) = 1
305. FOR xx = .1 TO 10 STEP .1
306.     FOR s = .25 TO 10 STEP .25
307.         CIRCLE (440 - xx, 140 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
308.     NEXT s
309. NEXT xx
310. GOSUB grid:
311. GOTO check:
312. compspace4:
313. t = 0
314. b(4) = 1
315. FOR xx = .1 TO 10 STEP .1
316.     FOR s = .25 TO 10 STEP .25
317.         CIRCLE (160 - xx, 260 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
318.     NEXT s
319. NEXT xx
320. GOSUB grid:
321. GOTO check:
322. compspace5:
323. t = 0
324. b(5) = 1
325. FOR xx = .1 TO 10 STEP .1
326.     FOR s = .25 TO 10 STEP .25
327.         CIRCLE (300 - xx, 260 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
328.     NEXT s
329. NEXT xx
330. GOSUB grid:
331. GOTO check:
332. compspace6:
333. t = 0
334. b(6) = 1
335. FOR xx = .1 TO 10 STEP .1
336.     FOR s = .25 TO 10 STEP .25
337.         CIRCLE (440 - xx, 260 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
338.     NEXT s
339. NEXT xx
340. GOSUB grid:
341. GOTO check:
342. compspace7:
343. t = 0
344. b(7) = 1
345. FOR xx = .1 TO 10 STEP .1
346.     FOR s = .25 TO 10 STEP .25
347.         CIRCLE (160 - xx, 375 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
348.     NEXT s
349. NEXT xx
350. GOTO check:
351. compspace8:
352. t = 0
353. b(8) = 1
354. FOR xx = .1 TO 10 STEP .1
355.     FOR s = .25 TO 10 STEP .25
356.         CIRCLE (300 - xx, 375 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
357.     NEXT s
358. NEXT xx
359. GOTO check:
360. compspace9:
361. t = 0
362. b(9) = 1
363. FOR xx = .1 TO 10 STEP .1
364.     FOR s = .25 TO 10 STEP .25
365.         CIRCLE (440 - xx, 375 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
366.     NEXT s
367. NEXT xx
368. GOTO check:
369. 'This last part draws your X.
370. space1:
371. a(1) = 1
372. FOR xx = .1 TO 10 STEP .1
373.     FOR s = .25 TO 10 STEP .25
374.         LINE (115 + s - xx, 104 - xx)-(195 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
375.         LINE (195 + s - xx, 104 - xx)-(115 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
376.     NEXT s
377. NEXT xx
378. t = 1
379. GOTO checkwin:
380. space2:
381. a(2) = 1
382. FOR xx = .1 TO 10 STEP .1
383.     FOR s = .25 TO 10 STEP .25
384.         LINE (255 + s - xx, 104 - xx)-(335 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
385.         LINE (335 + s - xx, 104 - xx)-(255 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
386.     NEXT s
387. NEXT xx
388. t = 1
389. GOTO checkwin:
390. space3:
391. a(3) = 1
392. FOR xx = .1 TO 10 STEP .1
393.     FOR s = .25 TO 10 STEP .25
394.         LINE (395 + s - xx, 104 - xx)-(475 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
395.         LINE (475 + s - xx, 104 - xx)-(395 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
396.     NEXT s
397. NEXT xx
398. t = 1
399. GOTO checkwin:
400. space4:
401. a(4) = 1
402. FOR xx = .1 TO 10 STEP .1
403.     FOR s = .25 TO 10 STEP .25
404.         LINE (110 + s - xx, 224 - xx)-(190 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
405.         LINE (190 + s - xx, 224 - xx)-(110 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
406.     NEXT s
407. NEXT xx
408. t = 1
409. GOTO checkwin:
410. space5:
411. a(5) = 1
412. FOR xx = .1 TO 10 STEP .1
413.     FOR s = .25 TO 10 STEP .25
414.         LINE (255 + s - xx, 224 - xx)-(335 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
415.         LINE (335 + s - xx, 224 - xx)-(255 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
416.     NEXT s
417. NEXT xx
418. t = 1
419. GOTO checkwin:
420. space6:
421. a(6) = 1
422. FOR xx = .1 TO 10 STEP .1
423.     FOR s = .25 TO 10 STEP .25
424.         LINE (395 + s - xx, 224 - xx)-(475 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
425.         LINE (475 + s - xx, 224 - xx)-(395 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
426.     NEXT s
427. NEXT xx
428. t = 1
429. GOTO checkwin:
430. space7:
431. a(7) = 1
432. FOR xx = .1 TO 10 STEP .1
433.     FOR s = .25 TO 10 STEP .25
434.         LINE (110 + s - xx, 339 - xx)-(190 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
435.         LINE (190 + s - xx, 339 - xx)-(110 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
436.     NEXT s
437. NEXT xx
438. t = 1
439. GOTO checkwin:
440. space8:
441. a(8) = 1
442. FOR xx = .1 TO 10 STEP .1
443.     FOR s = .25 TO 10 STEP .25
444.         LINE (255 + s - xx, 339 - xx)-(335 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
445.         LINE (335 + s - xx, 339 - xx)-(255 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
446.     NEXT s
447. NEXT xx
448. t = 1
449. GOTO checkwin:
450. space9:
451. a(9) = 1
452. FOR xx = .1 TO 10 STEP .1
453.     FOR s = .25 TO 10 STEP .25
454.         LINE (395 + s - xx, 339 - xx)-(475 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
455.         LINE (475 + s - xx, 339 - xx)-(395 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
456.     NEXT s
457. NEXT xx
458. t = 1
459. GOTO checkwin:
460.  
461. playagain:
462. COLOR _RGB32(255, 0, 0), _CLEARCOLOR
463. _PRINTSTRING (220, 55), "Click Here To Play Again"
464. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
465.  
466. DO
467.     _LIMIT 60
468.     mouseWheel = 0
469.     DO WHILE _MOUSEINPUT
470.         mouseX = _MOUSEX
471.         mouseY = _MOUSEY
472.         mouseLeftButton = _MOUSEBUTTON(1)
473.         mouseRightButton = _MOUSEBUTTON(2)
474.         mouseMiddleButton = _MOUSEBUTTON(3)
475.         mouseWheel = mouseWheel + _MOUSEWHEEL
476.     LOOP
477.     ag$ = INKEY$
478.     IF ag$ = CHR$(27) THEN END
479.     IF ag$ = " " THEN CLS: GOTO start:
480.     IF mouseLeftButton = -1 AND mouseX > 220 AND mouseX < 412 AND mouseY > 55 AND mouseY < 69 THEN CLS: GOTO start:
481. LOOP
482.  
483. grid:
484. 'Draw Grid
485. 'Vertical Lines
486. FOR xx = .1 TO 15 STEP .1
487.     LINE (220 - xx, 100 - xx)-(240 - xx, 410 - xx), _RGB32(c1 - (xx * 10), c2 - (xx * 10), c3 - (xx * 10)), BF
488.     LINE (360 - xx, 100 - xx)-(380 - xx, 410 - xx), _RGB32(c1 - (xx * 10), c2 - (xx * 10), c3 - (xx * 10)), BF
489. NEXT xx
490. FOR xx = .1 TO 15 STEP .1
491.     'Horizontal Lines
492.     LINE (90 - xx, 185 - xx)-(510 - xx, 205 - xx), _RGB32(c1 - (xx * 10), c2 - (xx * 10), c3 - (xx * 10)), BF
493.     LINE (90 - xx, 305 - xx)-(510 - xx, 325 - xx), _RGB32(c1 - (xx * 10), c2 - (xx * 10), c3 - (xx * 10)), BF
494. NEXT xx
495. RETURN
496.  

[NOVARSEG]

@SMcNeill

Starting out, one of the corner pieces gives you the best chance to win.  Unless your opponent takes the middle with their first move, you win.

Will try that.  Starting at corner or center ,  same chance of a win?

[SMcNeill]

@SMcNeill

Will try that.  Starting at corner or center ,  same chance of a win?

If you start in the center, you’re only guaranteed a win if the second player takes a middle.

Tic-Tac-Toe isn’t really a game you can “win” at.  All you can do is screw up and lose.  There’s no perfect game, perfect move, or perfect position that guarantees you a win.  As long as neither player screws up, EVERY game will be a draw.

You don’t really win at it; the other guy just loses.

[SierraKen]

Actually, you do win when you have 2 ways you can go to win, and the other guy has to move once. Therefore you win by random chance and the fact you knew how to make it so you have 2 ways to win.

[SMcNeill]

Actually, you do win when you have 2 ways you can go to win, and the other guy has to move once. Therefore you win by random chance and the fact you knew how to make it so you have 2 ways to win.

But you didn’t make it that way.  The other guy just screwed up and failed to make the  proper block.

[SierraKen]

With my head injury problems, my short term memory problems does simple programming.

[NOVARSEG]

From https://www.rd.com/article/how-to-win-tic-tac-toe/

How to win tic tac toe when you go second
If you’re the second to go, it may be harder to win the game. If your opponent takes the center space, counteract that by placing your letter in a corner. If your opponent takes a corner space, take the middle space. This will force a draw in both cases. Winning is almost impossible unless a major mistake is made by your opponent.

But, if your opponent starts on an edge that is not a corner, you can win. There is an exact science on how to win tic tac toe if this is the case: Put your first letter in the center. You can only claim victory if your opponent puts their letter on the other edge. If not, you will have to settle for a draw.

[DANILIN]

Tic-Tac-Toe Russian Real-Time Strategy

 

   

 

picture is milli size

[OldMoses]

Tic Tac Toe is not one of those games I gravitate toward, and I don't really know the AI behind it, but your presentation looks amazing and it runs me to a draw every time. Well executed.

[SierraKen]

Thanks OldMoses! Yeah the computer usually beats me or a tie. Sometimes I beat the computer though. It's more of a random chance game but you still have to make the right move to win by making it impossible to lose by having 2 ways to win on one move. It can't happen when the computer has the middle area I think because the 2 ways to win are usually by diagonal or vertical. But you are right when you said you don't gravitate toward this game, because I usually don't either. But thanks for the compliments. Maybe I can make the look of this game just as good as the look of a more interesting game in the future. :)