Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on January 29, 2021, 12:19:05 am

Title: Tic-Tac-Toe
Post by: SierraKen on January 29, 2021, 12:19:05 am
In August 2019 I made this Tic-Tac-Toe game which graphically uses X's and O's and the # grid. It also uses the mouse. What I didn't do back then is make it so the computer chooses who goes first. I think I just was overwhelmed a bit with the game and I thought it might not be possible. Well it's easier than I thought. So here it is, where the computer chooses who goes first. It adds another dynamic to the game and makes you think more. It's a 50/50 chance that you or the computer will go first. This is one of my better games I've made in my opinion. Enjoy :).

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 to choose at random who goes first.
  5.  
  6. DIM a(10), b(10)
  8. _TITLE "Tic-Tac-Toe     by SierraKen"
  9. SCREEN _NEWIMAGE(600, 480, 32)
  12. LOCATE 10, 32: PRINT "-"
  13. LOCATE 10, 38: PRINT "-"
  14. FOR tic = 1 TO 10
  15.     LOCATE tic, 28: PRINT "TIC"
  16.     _DELAY .2
  17.     LOCATE tic, 28: PRINT "   "
  18. NEXT tic
  19. LOCATE 10, 28: PRINT "TIC"
  20.  
  21. FOR tac = 20 TO 10 STEP -1
  22.     LOCATE tac, 34: PRINT "TAC"
  23.     _DELAY .2
  24.     LOCATE tac, 34: PRINT "   "
  25. NEXT tac
  26. LOCATE 10, 34: PRINT "TAC"
  27.  
  28. FOR toe = 1 TO 10
  29.     LOCATE toe, 40: PRINT "TOE"
  30.     _DELAY .2
  31.     LOCATE toe, 40: PRINT "   "
  32. NEXT toe
  33. LOCATE 10, 40: PRINT "TOE"
  34.  
  36. PRINT "                            By  SierraKen"
  38. PRINT "     Play against the computer in this classic game of Tic-Tac-Toe."
  39. PRINT "                    Whoever gets 3 in a row wins."
  41. PRINT "                  Choose a sqace by using your mouse."
  42. PRINT "                   Computer chooses who goes first."
  44. PRINT "                        Press Space Bar To Begin."
  45. st:
  46. sta$ = INKEY$
  47. IF sta$ = "" THEN GOTO st:
  48. IF sta$ = " " THEN CLS: GOTO start:
  49. GOTO st:
  50. start:
  51. ag$ = ""
  52. t = 0
  53. turn = 0
  54. comp = 0
  55.  
  56. 'Draw Grid
  57. 'Vertical Lines
  58. LINE (220, 100)-(240, 410), _RGB32(255, 255, 255), BF
  59. LINE (360, 100)-(380, 410), _RGB32(255, 255, 255), BF
  60. 'Horizontal Lines
  61. LINE (90, 185)-(510, 205), _RGB32(255, 255, 255), BF
  62. LINE (90, 305)-(510, 325), _RGB32(255, 255, 255), BF
  63.  
  64. whosfirst:
  66. first = INT(RND * 2) + 1
  67. IF first = 1 THEN GOTO computerchoice:
  68.  
  69. Go:
  71. a$ = INKEY$
  72. IF a$ = CHR$(27) THEN END
  73. mouseWheel = 0
  75.     mouseX = _MOUSEX
  76.     mouseY = _MOUSEY
  77.     mouseLeftButton = _MOUSEBUTTON(1)
  78.     mouseRightButton = _MOUSEBUTTON(2)
  79.     mouseMiddleButton = _MOUSEBUTTON(3)
  80.     mouseWheel = mouseWheel + _MOUSEWHEEL
  82.  
  83. IF mouseLeftButton = -1 THEN
  84.     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:
  85.     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:
  86.     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:
  87.     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:
  88.     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:
  89.     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:
  90.     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:
  91.     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:
  92.     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:
  94.  
  95. IF mouseLeftButton = -1 AND ending = 1 THEN GOTO start:
  96. IF mouseRightButton = -1 AND ending = 1 THEN END
  97.  
  98. IF t = 1 THEN GOSUB computer:
  99.  
  100. GOTO Go:
  101.  
  102. checkwin:
  103. 'Check to see if you won.
  104. IF a(1) = 1 AND a(2) = 1 AND a(3) = 1 THEN GOTO won:
  105. IF a(4) = 1 AND a(5) = 1 AND a(6) = 1 THEN GOTO won:
  106. IF a(7) = 1 AND a(8) = 1 AND a(9) = 1 THEN GOTO won
  107. IF a(1) = 1 AND a(4) = 1 AND a(7) = 1 THEN GOTO won:
  108. IF a(2) = 1 AND a(5) = 1 AND a(8) = 1 THEN GOTO won:
  109. IF a(3) = 1 AND a(6) = 1 AND a(9) = 1 THEN GOTO won:
  110. IF a(1) = 1 AND a(5) = 1 AND a(9) = 1 THEN GOTO won:
  111. IF a(3) = 1 AND a(5) = 1 AND a(7) = 1 THEN GOTO won:
  112. turn = turn + 1
  113. SOUND 100, .25
  114. IF turn = 9 THEN GOTO catsgame:
  115. GOTO Go:
  116. won:
  117. FOR snd = 300 TO 900 STEP 50
  118.     SOUND snd, .5
  119. NEXT snd
  120. FOR tt = 1 TO 9
  121.     a(tt) = 0
  122.     b(tt) = 0
  123. NEXT tt
  124. t = 0
  125. LOCATE 2, 32: PRINT "Y O U   W O N ! !"
  126. LOCATE 4, 27: PRINT "Press Space Bar to play again."
  127. LOCATE 6, 27: PRINT "Or any other key to end."
  128. again:
  129. ag$ = INKEY$
  130. IF ag$ = "" THEN GOTO again:
  131. IF ag$ <> " " THEN END
  132. IF ag$ = " " THEN CLS: GOTO start:
  133. GOTO again:
  134.  
  135. computer:
  136.  
  137. 'Check to win.
  138. 'Last space gone.
  139. IF b(1) = 1 AND b(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  140. IF b(4) = 1 AND b(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  141. IF b(7) = 1 AND b(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  142. IF b(1) = 1 AND b(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  143. IF b(2) = 1 AND b(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  144. IF b(3) = 1 AND b(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  145. IF b(1) = 1 AND b(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  146. IF b(3) = 1 AND b(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  147. 'First space gone.
  148. IF b(2) = 1 AND b(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  149. IF b(5) = 1 AND b(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  150. IF b(8) = 1 AND b(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  151. IF b(4) = 1 AND b(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  152. IF b(5) = 1 AND b(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  153. IF b(6) = 1 AND b(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  154. IF b(5) = 1 AND b(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  155. IF b(7) = 1 AND b(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  156. 'Middle space gone.
  157. IF b(1) = 1 AND b(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  158. IF b(4) = 1 AND b(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  159. IF b(7) = 1 AND b(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  160. IF b(1) = 1 AND b(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  161. IF b(2) = 1 AND b(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  162. IF b(3) = 1 AND b(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  163. IF b(1) = 1 AND b(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  164. IF b(3) = 1 AND b(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  165.  
  166. 'Check to block.
  167. 'Last space gone.
  168. IF a(1) = 1 AND a(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  169. IF a(4) = 1 AND a(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  170. IF a(7) = 1 AND a(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  171. IF a(1) = 1 AND a(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  172. IF a(2) = 1 AND a(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  173. IF a(3) = 1 AND a(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  174. IF a(1) = 1 AND a(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  175. IF a(3) = 1 AND a(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  176. 'First space gone.
  177. IF a(2) = 1 AND a(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  178. IF a(5) = 1 AND a(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  179. IF a(8) = 1 AND a(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  180. IF a(4) = 1 AND a(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  181. IF a(5) = 1 AND a(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  182. IF a(6) = 1 AND a(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  183. IF a(5) = 1 AND a(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  184. IF a(7) = 1 AND a(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  185. 'Middle space gone.
  186. IF a(1) = 1 AND a(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  187. IF a(4) = 1 AND a(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  188. IF a(7) = 1 AND a(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  189. IF a(1) = 1 AND a(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  190. IF a(2) = 1 AND a(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  191. IF a(3) = 1 AND a(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  192. IF a(1) = 1 AND a(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  193. IF a(3) = 1 AND a(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  194.  
  195. 'Computer decides a random space.
  196. computerchoice:
  198. comp = INT(RND * 9) + 1
  199. IF b(comp) = 1 THEN GOTO computerchoice:
  200. IF a(comp) = 1 THEN GOTO computerchoice:
  201. IF comp = 1 THEN GOTO compspace1:
  202. IF comp = 2 THEN GOTO compspace2:
  203. IF comp = 3 THEN GOTO compspace3:
  204. IF comp = 4 THEN GOTO compspace4:
  205. IF comp = 5 THEN GOTO compspace5:
  206. IF comp = 6 THEN GOTO compspace6:
  207. IF comp = 7 THEN GOTO compspace7:
  208. IF comp = 8 THEN GOTO compspace8:
  209. IF comp = 9 THEN GOTO compspace9:
  210.  
  211. 'Cat's Game
  212. catsgame:
  213. FOR snd = 400 TO 300 STEP -25
  214.     SOUND snd, .5
  215. NEXT snd
  216. FOR tt = 1 TO 9
  217.     a(tt) = 0
  218.     b(tt) = 0
  219. NEXT tt
  220. t = 0
  221. LOCATE 2, 27: PRINT "Cat's Game - No Winners"
  222. LOCATE 4, 27: PRINT "Press Space Bar to play again."
  223. LOCATE 6, 27: PRINT "Or any other key to end."
  224. again2:
  225. ag$ = INKEY$
  226. IF ag$ = "" THEN GOTO again:
  227. IF ag$ <> " " THEN END
  228. IF ag$ = " " THEN CLS: GOTO start:
  229. GOTO again2:
  230.  
  231. 'Check to see if the computer won.
  232. check:
  233. IF b(1) = 1 AND b(2) = 1 AND b(3) = 1 THEN GOTO compwon:
  234. IF b(4) = 1 AND b(5) = 1 AND b(6) = 1 THEN GOTO compwon:
  235. IF b(7) = 1 AND b(8) = 1 AND b(9) = 1 THEN GOTO compwon
  236. IF b(1) = 1 AND b(4) = 1 AND b(7) = 1 THEN GOTO compwon:
  237. IF b(2) = 1 AND b(5) = 1 AND b(8) = 1 THEN GOTO compwon:
  238. IF b(3) = 1 AND b(6) = 1 AND b(9) = 1 THEN GOTO compwon:
  239. IF b(1) = 1 AND b(5) = 1 AND b(9) = 1 THEN GOTO compwon:
  240. IF b(3) = 1 AND b(5) = 1 AND b(7) = 1 THEN GOTO compwon:
  241. turn = turn + 1
  242. IF turn = 9 THEN GOTO catsgame:
  243. t = 0
  244. GOTO Go:
  245.  
  246. compwon:
  247. FOR snd = 900 TO 300 STEP -50
  248.     SOUND snd, .5
  249. NEXT snd
  250. FOR tt = 1 TO 9
  251.     a(tt) = 0
  252.     b(tt) = 0
  253. NEXT tt
  254. t = 0
  255. LOCATE 2, 33: PRINT "Computer Wins"
  256. LOCATE 4, 27: PRINT "Press Space Bar to play again."
  257. LOCATE 6, 27: PRINT "Or any other key to end."
  258. again3:
  259. ag$ = INKEY$
  260. IF ag$ = "" THEN GOTO again:
  261. IF ag$ <> " " THEN END
  262. IF ag$ = " " THEN CLS: GOTO start:
  263. GOTO again3:
  264.  
  265. 'This part draws the computer's circle.
  266. compspace1:
  267. t = 0
  268. b(1) = 1
  269. FOR s = .25 TO 5 STEP .25
  270.     CIRCLE (160, 137), 40 - s, _RGB32(255, 0, 0)
  272. GOTO check:
  273. compspace2:
  274. t = 0
  275. b(2) = 1
  276. FOR s = .25 TO 5 STEP .25
  277.     CIRCLE (300, 137), 40 - s, _RGB32(255, 0, 0)
  279. GOTO check:
  280. compspace3:
  281. t = 0
  282. b(3) = 1
  283. FOR s = .25 TO 5 STEP .25
  284.     CIRCLE (440, 137), 40 - s, _RGB32(255, 0, 0)
  286. GOTO check:
  287. compspace4:
  288. t = 0
  289. b(4) = 1
  290. FOR s = .25 TO 5 STEP .25
  291.     CIRCLE (160, 257), 40 - s, _RGB32(255, 0, 0)
  293. GOTO check:
  294. compspace5:
  295. t = 0
  296. b(5) = 1
  297. FOR s = .25 TO 5 STEP .25
  298.     CIRCLE (300, 257), 40 - s, _RGB32(255, 0, 0)
  300. GOTO check:
  301. compspace6:
  302. t = 0
  303. b(6) = 1
  304. FOR s = .25 TO 5 STEP .25
  305.     CIRCLE (440, 257), 40 - s, _RGB32(255, 0, 0)
  307. GOTO check:
  308. compspace7:
  309. t = 0
  310. b(7) = 1
  311. FOR s = .25 TO 5 STEP .25
  312.     CIRCLE (160, 372), 40 - s, _RGB32(255, 0, 0)
  314. GOTO check:
  315. compspace8:
  316. t = 0
  317. b(8) = 1
  318. FOR s = .25 TO 5 STEP .25
  319.     CIRCLE (300, 372), 40 - s, _RGB32(255, 0, 0)
  321. GOTO check:
  322. compspace9:
  323. t = 0
  324. b(9) = 1
  325. FOR s = .25 TO 5 STEP .25
  326.     CIRCLE (440, 372), 40 - s, _RGB32(255, 0, 0)
  328. GOTO check:
  329. 'This last part draws your X.
  330. space1:
  331. a(1) = 1
  332. FOR s = .25 TO 5 STEP .25
  333.     LINE (120 + s, 120)-(200 + s, 165), _RGB32(0, 255, 0)
  334.     LINE (200 + s, 120)-(120 + s, 165), _RGB32(0, 255, 0)
  336. t = 1
  337. GOTO checkwin:
  338. space2:
  339. a(2) = 1
  340. FOR s = .25 TO 5 STEP .25
  341.     LINE (260 + s, 120)-(340 + s, 165), _RGB32(0, 255, 0)
  342.     LINE (340 + s, 120)-(260 + s, 165), _RGB32(0, 255, 0)
  344. t = 1
  345. GOTO checkwin:
  346. space3:
  347. a(3) = 1
  348. FOR s = .25 TO 5 STEP .25
  349.     LINE (400 + s, 120)-(480 + s, 165), _RGB32(0, 255, 0)
  350.     LINE (480 + s, 120)-(400 + s, 165), _RGB32(0, 255, 0)
  352. t = 1
  353. GOTO checkwin:
  354. space4:
  355. a(4) = 1
  356. FOR s = .25 TO 5 STEP .25
  357.     LINE (120 + s, 235)-(200 + s, 280), _RGB32(0, 255, 0)
  358.     LINE (200 + s, 235)-(120 + s, 280), _RGB32(0, 255, 0)
  360. t = 1
  361. GOTO checkwin:
  362. space5:
  363. a(5) = 1
  364. FOR s = .25 TO 5 STEP .25
  365.     LINE (260 + s, 235)-(340 + s, 280), _RGB32(0, 255, 0)
  366.     LINE (340 + s, 235)-(260 + s, 280), _RGB32(0, 255, 0)
  368. t = 1
  369. GOTO checkwin:
  370. space6:
  371. a(6) = 1
  372. FOR s = .25 TO 5 STEP .25
  373.     LINE (400 + s, 235)-(480 + s, 280), _RGB32(0, 255, 0)
  374.     LINE (480 + s, 235)-(400 + s, 280), _RGB32(0, 255, 0)
  376. t = 1
  377. GOTO checkwin:
  378. space7:
  379. a(7) = 1
  380. FOR s = .25 TO 5 STEP .25
  381.     LINE (120 + s, 350)-(200 + s, 395), _RGB32(0, 255, 0)
  382.     LINE (200 + s, 350)-(120 + s, 395), _RGB32(0, 255, 0)
  384. t = 1
  385. GOTO checkwin:
  386. space8:
  387. a(8) = 1
  388. FOR s = .25 TO 5 STEP .25
  389.     LINE (260 + s, 350)-(340 + s, 395), _RGB32(0, 255, 0)
  390.     LINE (340 + s, 350)-(260 + s, 395), _RGB32(0, 255, 0)
  392. t = 1
  393. GOTO checkwin:
  394. space9:
  395. a(9) = 1
  396. FOR s = .25 TO 5 STEP .25
  397.     LINE (400 + s, 350)-(480 + s, 395), _RGB32(0, 255, 0)
  398.     LINE (480 + s, 350)-(400 + s, 395), _RGB32(0, 255, 0)
  400. t = 1
  401. GOTO checkwin:
  402.  
Title: Re: Tic-Tac-Toe
Post by: STxAxTIC on January 29, 2021, 12:27:24 am
The intro is adorable!

Sounds go accordingly with win/loss, opponent AI is there, but not impossible to beat - I approve!
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 29, 2021, 12:30:13 am
Thanks Static! Well, I just realized that the game has no _LIMIT commands and was using around 14% of my CPU. So I just added 2 LIMIT commands (one at the start and one in the main loop). So I just updated the code on the first post. Please update your code if you have gotten it already. Sorry about that!
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 30, 2021, 02:03:15 am
I just added these to the game:
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, added text colors.


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.  
  8. DIM a(10), b(10)
  10. _TITLE "Tic-Tac-Toe     by SierraKen"
  11. SCREEN _NEWIMAGE(600, 480, 32)
  14. LOCATE 10, 34: PRINT "-"
  15. LOCATE 10, 40: PRINT "-"
  16. FOR tic = 1 TO 10
  17.     LOCATE tic, 30: PRINT "TIC"
  18.     _DELAY .1
  19.     LOCATE tic, 30: PRINT "   "
  20. NEXT tic
  21. LOCATE 10, 30: PRINT "TIC"
  22.  
  23. FOR tac = 20 TO 10 STEP -1
  24.     LOCATE tac, 36: PRINT "TAC"
  25.     _DELAY .1
  26.     LOCATE tac, 36: PRINT "   "
  27. NEXT tac
  28. LOCATE 10, 36: PRINT "TAC"
  29.  
  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.  
  38. PRINT "                              By  SierraKen"
  40. PRINT "       Play against the computer in this classic game of Tic-Tac-Toe."
  41. PRINT "                      Whoever gets 3 in a row wins."
  43. PRINT "                    Choose a sqace by using your mouse."
  44. PRINT "                     Computer chooses who goes first."
  45.  
  46. COLOR _RGB32(255, 255, 255), _RGB32(255, 0, 0)
  47. _PRINTSTRING (220, 430), "Click Here To Start"
  48. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  49.  
  51.     _LIMIT 30
  52.     mouseWheel = 0
  54.         mouseX = _MOUSEX
  55.         mouseY = _MOUSEY
  56.         mouseLeftButton = _MOUSEBUTTON(1)
  57.         mouseRightButton = _MOUSEBUTTON(2)
  58.         mouseMiddleButton = _MOUSEBUTTON(3)
  59.         mouseWheel = mouseWheel + _MOUSEWHEEL
  60.     LOOP
  61.     ag$ = INKEY$
  62.     IF ag$ = CHR$(27) THEN END
  63.     IF ag$ = " " THEN CLS: GOTO start:
  64.     IF mouseLeftButton = -1 AND mouseX > 220 AND mouseX < 370 AND mouseY > 430 AND mouseY < 446 THEN CLS: GOTO start:
  66.  
  67.  
  68.  
  69. start:
  70. ag$ = ""
  71. t = 0
  72. turn = 0
  73. comp = 0
  74.  
  76. c1 = INT(RND * 155) + 100
  77. c2 = INT(RND * 155) + 100
  78. c3 = INT(RND * 155) + 100
  79.  
  80. 'Draw Grid
  81. 'Vertical Lines
  82. LINE (220, 100)-(240, 410), _RGB32(c1, c2, c3), BF
  83. LINE (360, 100)-(380, 410), _RGB32(c1, c2, c3), BF
  84. 'Horizontal Lines
  85. LINE (90, 185)-(510, 205), _RGB32(c1, c2, c3), BF
  86. LINE (90, 305)-(510, 325), _RGB32(c1, c2, c3), BF
  87.  
  88. whosfirst:
  90. first = INT(RND * 2) + 1
  91. IF first = 1 THEN GOTO computerchoice:
  92.  
  93. Go:
  95. a$ = INKEY$
  96. IF a$ = CHR$(27) THEN END
  97. mouseWheel = 0
  99.     mouseX = _MOUSEX
  100.     mouseY = _MOUSEY
  101.     mouseLeftButton = _MOUSEBUTTON(1)
  102.     mouseRightButton = _MOUSEBUTTON(2)
  103.     mouseMiddleButton = _MOUSEBUTTON(3)
  104.     mouseWheel = mouseWheel + _MOUSEWHEEL
  106.  
  107. IF mouseLeftButton = -1 THEN
  108.     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:
  109.     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:
  110.     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:
  111.     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:
  112.     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:
  113.     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:
  114.     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:
  115.     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:
  116.     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:
  118.  
  119. IF mouseLeftButton = -1 AND ending = 1 THEN GOTO start:
  120. IF mouseRightButton = -1 AND ending = 1 THEN END
  121.  
  122. IF t = 1 THEN GOSUB computer:
  123.  
  124. GOTO Go:
  125.  
  126. checkwin:
  127. 'Check to see if you won.
  128. IF a(1) = 1 AND a(2) = 1 AND a(3) = 1 THEN GOTO won:
  129. IF a(4) = 1 AND a(5) = 1 AND a(6) = 1 THEN GOTO won:
  130. IF a(7) = 1 AND a(8) = 1 AND a(9) = 1 THEN GOTO won
  131. IF a(1) = 1 AND a(4) = 1 AND a(7) = 1 THEN GOTO won:
  132. IF a(2) = 1 AND a(5) = 1 AND a(8) = 1 THEN GOTO won:
  133. IF a(3) = 1 AND a(6) = 1 AND a(9) = 1 THEN GOTO won:
  134. IF a(1) = 1 AND a(5) = 1 AND a(9) = 1 THEN GOTO won:
  135. IF a(3) = 1 AND a(5) = 1 AND a(7) = 1 THEN GOTO won:
  136. turn = turn + 1
  137. SOUND 100, .25
  138. IF turn = 9 THEN GOTO catsgame:
  139. GOTO Go:
  140. won:
  141. FOR snd = 300 TO 900 STEP 50
  142.     SOUND snd, .5
  143. NEXT snd
  144. FOR tt = 1 TO 9
  145.     a(tt) = 0
  146.     b(tt) = 0
  147. NEXT tt
  148. t = 0
  149. COLOR _RGB32(255, 255, 255), _RGB32(255, 0, 0)
  150. LOCATE 2, 32: PRINT "Y O U   W I N ! !"
  151. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  152. GOTO playagain:
  153.  
  154. computer:
  155.  
  156. 'Check to win.
  157. 'Last space gone.
  158. IF b(1) = 1 AND b(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  159. IF b(4) = 1 AND b(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  160. IF b(7) = 1 AND b(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  161. IF b(1) = 1 AND b(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  162. IF b(2) = 1 AND b(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  163. IF b(3) = 1 AND b(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  164. IF b(1) = 1 AND b(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  165. IF b(3) = 1 AND b(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  166. 'First space gone.
  167. IF b(2) = 1 AND b(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  168. IF b(5) = 1 AND b(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  169. IF b(8) = 1 AND b(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  170. IF b(4) = 1 AND b(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  171. IF b(5) = 1 AND b(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  172. IF b(6) = 1 AND b(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  173. IF b(5) = 1 AND b(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  174. IF b(7) = 1 AND b(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  175. 'Middle space gone.
  176. IF b(1) = 1 AND b(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  177. IF b(4) = 1 AND b(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  178. IF b(7) = 1 AND b(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  179. IF b(1) = 1 AND b(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  180. IF b(2) = 1 AND b(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  181. IF b(3) = 1 AND b(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  182. IF b(1) = 1 AND b(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  183. IF b(3) = 1 AND b(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  184.  
  185. 'Check to block.
  186. 'Last space gone.
  187. IF a(1) = 1 AND a(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  188. IF a(4) = 1 AND a(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  189. IF a(7) = 1 AND a(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  190. IF a(1) = 1 AND a(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  191. IF a(2) = 1 AND a(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  192. IF a(3) = 1 AND a(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  193. IF a(1) = 1 AND a(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  194. IF a(3) = 1 AND a(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  195. 'First space gone.
  196. IF a(2) = 1 AND a(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  197. IF a(5) = 1 AND a(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  198. IF a(8) = 1 AND a(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  199. IF a(4) = 1 AND a(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  200. IF a(5) = 1 AND a(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  201. IF a(6) = 1 AND a(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  202. IF a(5) = 1 AND a(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  203. IF a(7) = 1 AND a(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  204. 'Middle space gone.
  205. IF a(1) = 1 AND a(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  206. IF a(4) = 1 AND a(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  207. IF a(7) = 1 AND a(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  208. IF a(1) = 1 AND a(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  209. IF a(2) = 1 AND a(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  210. IF a(3) = 1 AND a(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  211. IF a(1) = 1 AND a(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  212. IF a(3) = 1 AND a(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  213.  
  214. 'Computer decides a random space.
  215. computerchoice:
  217. comp = INT(RND * 9) + 1
  218. IF b(comp) = 1 THEN GOTO computerchoice:
  219. IF a(comp) = 1 THEN GOTO computerchoice:
  220. IF comp = 1 THEN GOTO compspace1:
  221. IF comp = 2 THEN GOTO compspace2:
  222. IF comp = 3 THEN GOTO compspace3:
  223. IF comp = 4 THEN GOTO compspace4:
  224. IF comp = 5 THEN GOTO compspace5:
  225. IF comp = 6 THEN GOTO compspace6:
  226. IF comp = 7 THEN GOTO compspace7:
  227. IF comp = 8 THEN GOTO compspace8:
  228. IF comp = 9 THEN GOTO compspace9:
  229.  
  230. 'Cat's Game
  231. catsgame:
  232. FOR snd = 400 TO 300 STEP -25
  233.     SOUND snd, .5
  234. NEXT snd
  235. FOR tt = 1 TO 9
  236.     a(tt) = 0
  237.     b(tt) = 0
  238. NEXT tt
  239. t = 0
  240. COLOR _RGB32(255, 255, 255), _RGB32(255, 0, 255)
  241. LOCATE 2, 29: PRINT "Cat's Game - No Winners"
  242. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  243. GOTO playagain:
  244.  
  245. 'Check to see if the computer won.
  246. check:
  247. IF b(1) = 1 AND b(2) = 1 AND b(3) = 1 THEN GOTO compwon:
  248. IF b(4) = 1 AND b(5) = 1 AND b(6) = 1 THEN GOTO compwon:
  249. IF b(7) = 1 AND b(8) = 1 AND b(9) = 1 THEN GOTO compwon
  250. IF b(1) = 1 AND b(4) = 1 AND b(7) = 1 THEN GOTO compwon:
  251. IF b(2) = 1 AND b(5) = 1 AND b(8) = 1 THEN GOTO compwon:
  252. IF b(3) = 1 AND b(6) = 1 AND b(9) = 1 THEN GOTO compwon:
  253. IF b(1) = 1 AND b(5) = 1 AND b(9) = 1 THEN GOTO compwon:
  254. IF b(3) = 1 AND b(5) = 1 AND b(7) = 1 THEN GOTO compwon:
  255. turn = turn + 1
  256. IF turn = 9 THEN GOTO catsgame:
  257. t = 0
  258. GOTO Go:
  259.  
  260. compwon:
  261. FOR snd = 900 TO 300 STEP -50
  262.     SOUND snd, .5
  263. NEXT snd
  264. FOR tt = 1 TO 9
  265.     a(tt) = 0
  266.     b(tt) = 0
  267. NEXT tt
  268. t = 0
  269. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 255)
  270. LOCATE 2, 33: PRINT "Computer  Wins"
  271. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  272. GOTO playagain:
  273.  
  274. 'This part draws the computer's circle.
  275. compspace1:
  276. t = 0
  277. b(1) = 1
  278. FOR s = .25 TO 5 STEP .25
  279.     CIRCLE (160, 137), 40 - s, _RGB32(255, 0, 0)
  281. GOTO check:
  282. compspace2:
  283. t = 0
  284. b(2) = 1
  285. FOR s = .25 TO 5 STEP .25
  286.     CIRCLE (300, 137), 40 - s, _RGB32(255, 0, 0)
  288. GOTO check:
  289. compspace3:
  290. t = 0
  291. b(3) = 1
  292. FOR s = .25 TO 5 STEP .25
  293.     CIRCLE (440, 137), 40 - s, _RGB32(255, 0, 0)
  295. GOTO check:
  296. compspace4:
  297. t = 0
  298. b(4) = 1
  299. FOR s = .25 TO 5 STEP .25
  300.     CIRCLE (160, 257), 40 - s, _RGB32(255, 0, 0)
  302. GOTO check:
  303. compspace5:
  304. t = 0
  305. b(5) = 1
  306. FOR s = .25 TO 5 STEP .25
  307.     CIRCLE (300, 257), 40 - s, _RGB32(255, 0, 0)
  309. GOTO check:
  310. compspace6:
  311. t = 0
  312. b(6) = 1
  313. FOR s = .25 TO 5 STEP .25
  314.     CIRCLE (440, 257), 40 - s, _RGB32(255, 0, 0)
  316. GOTO check:
  317. compspace7:
  318. t = 0
  319. b(7) = 1
  320. FOR s = .25 TO 5 STEP .25
  321.     CIRCLE (160, 372), 40 - s, _RGB32(255, 0, 0)
  323. GOTO check:
  324. compspace8:
  325. t = 0
  326. b(8) = 1
  327. FOR s = .25 TO 5 STEP .25
  328.     CIRCLE (300, 372), 40 - s, _RGB32(255, 0, 0)
  330. GOTO check:
  331. compspace9:
  332. t = 0
  333. b(9) = 1
  334. FOR s = .25 TO 5 STEP .25
  335.     CIRCLE (440, 372), 40 - s, _RGB32(255, 0, 0)
  337. GOTO check:
  338. 'This last part draws your X.
  339. space1:
  340. a(1) = 1
  341. FOR s = .25 TO 5 STEP .25
  342.     LINE (120 + s, 110)-(200 + s, 175), _RGB32(0, 255, 0)
  343.     LINE (200 + s, 110)-(120 + s, 175), _RGB32(0, 255, 0)
  345. t = 1
  346. GOTO checkwin:
  347. space2:
  348. a(2) = 1
  349. FOR s = .25 TO 5 STEP .25
  350.     LINE (260 + s, 110)-(340 + s, 175), _RGB32(0, 255, 0)
  351.     LINE (340 + s, 110)-(260 + s, 175), _RGB32(0, 255, 0)
  353. t = 1
  354. GOTO checkwin:
  355. space3:
  356. a(3) = 1
  357. FOR s = .25 TO 5 STEP .25
  358.     LINE (400 + s, 110)-(480 + s, 175), _RGB32(0, 255, 0)
  359.     LINE (480 + s, 110)-(400 + s, 175), _RGB32(0, 255, 0)
  361. t = 1
  362. GOTO checkwin:
  363. space4:
  364. a(4) = 1
  365. FOR s = .25 TO 5 STEP .25
  366.     LINE (120 + s, 225)-(200 + s, 290), _RGB32(0, 255, 0)
  367.     LINE (200 + s, 225)-(120 + s, 290), _RGB32(0, 255, 0)
  369. t = 1
  370. GOTO checkwin:
  371. space5:
  372. a(5) = 1
  373. FOR s = .25 TO 5 STEP .25
  374.     LINE (260 + s, 225)-(340 + s, 290), _RGB32(0, 255, 0)
  375.     LINE (340 + s, 225)-(260 + s, 290), _RGB32(0, 255, 0)
  377. t = 1
  378. GOTO checkwin:
  379. space6:
  380. a(6) = 1
  381. FOR s = .25 TO 5 STEP .25
  382.     LINE (400 + s, 225)-(480 + s, 290), _RGB32(0, 255, 0)
  383.     LINE (480 + s, 225)-(400 + s, 290), _RGB32(0, 255, 0)
  385. t = 1
  386. GOTO checkwin:
  387. space7:
  388. a(7) = 1
  389. FOR s = .25 TO 5 STEP .25
  390.     LINE (120 + s, 340)-(200 + s, 405), _RGB32(0, 255, 0)
  391.     LINE (200 + s, 340)-(120 + s, 405), _RGB32(0, 255, 0)
  393. t = 1
  394. GOTO checkwin:
  395. space8:
  396. a(8) = 1
  397. FOR s = .25 TO 5 STEP .25
  398.     LINE (260 + s, 340)-(340 + s, 405), _RGB32(0, 255, 0)
  399.     LINE (340 + s, 340)-(260 + s, 405), _RGB32(0, 255, 0)
  401. t = 1
  402. GOTO checkwin:
  403. space9:
  404. a(9) = 1
  405. FOR s = .25 TO 5 STEP .25
  406.     LINE (400 + s, 340)-(480 + s, 405), _RGB32(0, 255, 0)
  407.     LINE (480 + s, 340)-(400 + s, 405), _RGB32(0, 255, 0)
  409. t = 1
  410. GOTO checkwin:
  411.  
  412. playagain:
  413. COLOR _RGB32(255, 255, 255), _RGB32(255, 0, 0)
  414. _PRINTSTRING (220, 55), "Click Here To Play Again"
  415. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  416.  
  418.     _LIMIT 30
  419.     mouseWheel = 0
  421.         mouseX = _MOUSEX
  422.         mouseY = _MOUSEY
  423.         mouseLeftButton = _MOUSEBUTTON(1)
  424.         mouseRightButton = _MOUSEBUTTON(2)
  425.         mouseMiddleButton = _MOUSEBUTTON(3)
  426.         mouseWheel = mouseWheel + _MOUSEWHEEL
  427.     LOOP
  428.     ag$ = INKEY$
  429.     IF ag$ = CHR$(27) THEN END
  430.     IF ag$ = " " THEN CLS: GOTO start:
  431.     IF mouseLeftButton = -1 AND mouseX > 220 AND mouseX < 412 AND mouseY > 55 AND mouseY < 69 THEN CLS: GOTO start:
  433.  
Title: Re: Tic-Tac-Toe
Post by: NOVARSEG on January 30, 2021, 02:08:49 am
@SierraKen

Is the center square the best play for the first move and is there a best 2nd move if the first move was the center square?
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 30, 2021, 02:12:01 am
Novarseg, I believe the center square is the best square to have first so you have the most options to go from there. As for the second move, I really don't know.
Title: Re: Tic-Tac-Toe
Post by: NOVARSEG on January 30, 2021, 02:20:50 am
Ran your latest code -  I like the layout colors.

Ok so I started in the center and the computer chose a side. I determined that if the 2nd move is a side move, then the first player wins if played right. The third move in that case is a side move.

If the first move is center and the second move is a corner then it looks like no player can win if played right.
Title: Re: Tic-Tac-Toe
Post by: SMcNeill on January 30, 2021, 03:21:10 am
Tic-Tac-Toe is a simplistic game with a very limited set of moves.

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.

XO.
X..
...

X.O
...
..X

X..
..O
X..

I can draw out all the possibilities, if you need, but unless O goes in the center on their first move, X will win.
Title: Re: Tic-Tac-Toe
Post by: STxAxTIC on January 30, 2021, 03:22:50 am
This should help you draw it Steve. Courtesy of xkcd.

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Tic-Tac-Toe
Post by: bplus on January 30, 2021, 10:25:12 am
RE: Best moves
If you cant win on next move, spoil opponents possible win, if neither then Center square is best, corner blocking one of other players potential ttt  is 2nd best, take the sides only to stop other from winning, guaranteed win or draw every time, yawn. ;-))

@Anthony.R.Brown has your program got this figured out yet?
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 30, 2021, 02:39:10 pm
Today I decided to add background blue shades, which you can see in the picture below. I also decided to add a score for you and the computer in the Topic Bar. There's no end so you can play as long as you want.

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.
  8.  
  9.  
  10. DIM a(10), b(10)
  12. _TITLE "Tic-Tac-Toe     by SierraKen"
  13. SCREEN _NEWIMAGE(600, 480, 32)
  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.  
  25. FOR tac = 20 TO 10 STEP -1
  26.     LOCATE tac, 36: PRINT "TAC"
  27.     _DELAY .1
  28.     LOCATE tac, 36: PRINT "   "
  29. NEXT tac
  30. LOCATE 10, 36: PRINT "TAC"
  31.  
  32. FOR toe = 1 TO 10
  33.     LOCATE toe, 42: PRINT "TOE"
  34.     _DELAY .1
  35.     LOCATE toe, 42: PRINT "   "
  36. NEXT toe
  37. LOCATE 10, 42: PRINT "TOE"
  38. computer = 0
  39. you = 0
  40.  
  42. PRINT "                              By  SierraKen"
  44. PRINT "       Play against the computer in this classic game of Tic-Tac-Toe."
  45. PRINT "                      Whoever gets 3 in a row wins."
  47. PRINT "                    Choose a sqace by using your mouse."
  48. PRINT "                     Computer chooses who goes first."
  49.  
  50. COLOR _RGB32(255, 255, 255), _RGB32(255, 0, 0)
  51. _PRINTSTRING (220, 430), "Click Here To Start"
  52. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  53.  
  55.     _LIMIT 30
  56.     mouseWheel = 0
  58.         mouseX = _MOUSEX
  59.         mouseY = _MOUSEY
  60.         mouseLeftButton = _MOUSEBUTTON(1)
  61.         mouseRightButton = _MOUSEBUTTON(2)
  62.         mouseMiddleButton = _MOUSEBUTTON(3)
  63.         mouseWheel = mouseWheel + _MOUSEWHEEL
  64.     LOOP
  65.     ag$ = INKEY$
  66.     IF ag$ = CHR$(27) THEN END
  67.     IF ag$ = " " THEN CLS: GOTO start:
  68.     IF mouseLeftButton = -1 AND mouseX > 220 AND mouseX < 370 AND mouseY > 430 AND mouseY < 446 THEN CLS: GOTO start:
  70.  
  71. start:
  72. ag$ = ""
  73. t = 0
  74. turn = 0
  75. comp = 0
  76.  
  77. FOR cc = 0 TO 480
  78.     cl = cl + .5
  79.     LINE (0, cc)-(640, cc), _RGB32(0, 0, cl)
  80. NEXT cc
  81. cl = 0
  83. c1 = INT(RND * 155) + 100
  84. c2 = INT(RND * 155) + 100
  85. c3 = INT(RND * 155) + 100
  86.  
  87. 'Draw Grid
  88. 'Vertical Lines
  89. LINE (220, 100)-(240, 410), _RGB32(c1, c2, c3), BF
  90. LINE (360, 100)-(380, 410), _RGB32(c1, c2, c3), BF
  91. 'Horizontal Lines
  92. LINE (90, 185)-(510, 205), _RGB32(c1, c2, c3), BF
  93. LINE (90, 305)-(510, 325), _RGB32(c1, c2, c3), BF
  94.  
  95. whosfirst:
  97. first = INT(RND * 2) + 1
  98. IF first = 1 THEN GOTO computerchoice:
  99.  
  100. Go:
  102. a$ = INKEY$
  103. IF a$ = CHR$(27) THEN END
  104. mouseWheel = 0
  106.     mouseX = _MOUSEX
  107.     mouseY = _MOUSEY
  108.     mouseLeftButton = _MOUSEBUTTON(1)
  109.     mouseRightButton = _MOUSEBUTTON(2)
  110.     mouseMiddleButton = _MOUSEBUTTON(3)
  111.     mouseWheel = mouseWheel + _MOUSEWHEEL
  113.  
  114. IF mouseLeftButton = -1 THEN
  115.     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:
  116.     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:
  117.     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:
  118.     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:
  119.     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:
  120.     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:
  121.     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:
  122.     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:
  123.     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:
  125.  
  126. IF mouseLeftButton = -1 AND ending = 1 THEN GOTO start:
  127. IF mouseRightButton = -1 AND ending = 1 THEN END
  128.  
  129. IF t = 1 THEN GOSUB computer:
  130.  
  131. GOTO Go:
  132.  
  133. checkwin:
  134. 'Check to see if you won.
  135. IF a(1) = 1 AND a(2) = 1 AND a(3) = 1 THEN GOTO won:
  136. IF a(4) = 1 AND a(5) = 1 AND a(6) = 1 THEN GOTO won:
  137. IF a(7) = 1 AND a(8) = 1 AND a(9) = 1 THEN GOTO won
  138. IF a(1) = 1 AND a(4) = 1 AND a(7) = 1 THEN GOTO won:
  139. IF a(2) = 1 AND a(5) = 1 AND a(8) = 1 THEN GOTO won:
  140. IF a(3) = 1 AND a(6) = 1 AND a(9) = 1 THEN GOTO won:
  141. IF a(1) = 1 AND a(5) = 1 AND a(9) = 1 THEN GOTO won:
  142. IF a(3) = 1 AND a(5) = 1 AND a(7) = 1 THEN GOTO won:
  143. turn = turn + 1
  144. SOUND 100, .25
  145. IF turn = 9 THEN GOTO catsgame:
  146. GOTO Go:
  147. won:
  148. FOR snd = 300 TO 900 STEP 50
  149.     SOUND snd, .5
  150. NEXT snd
  151. FOR tt = 1 TO 9
  152.     a(tt) = 0
  153.     b(tt) = 0
  154. NEXT tt
  155. you = you + 1
  156. you$ = STR$(you)
  157. computer$ = STR$(computer)
  158. _TITLE "You: " + you$ + "   Computer: " + comp$
  159. t = 0
  160. COLOR _RGB32(255, 255, 255), _RGB32(255, 0, 0)
  161. LOCATE 2, 32: PRINT "Y O U   W I N ! !"
  162. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  163. GOTO playagain:
  164.  
  165. computer:
  166.  
  167. 'Check to win.
  168. 'Last space gone.
  169. IF b(1) = 1 AND b(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  170. IF b(4) = 1 AND b(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  171. IF b(7) = 1 AND b(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  172. IF b(1) = 1 AND b(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  173. IF b(2) = 1 AND b(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  174. IF b(3) = 1 AND b(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  175. IF b(1) = 1 AND b(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  176. IF b(3) = 1 AND b(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  177. 'First space gone.
  178. IF b(2) = 1 AND b(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  179. IF b(5) = 1 AND b(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  180. IF b(8) = 1 AND b(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  181. IF b(4) = 1 AND b(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  182. IF b(5) = 1 AND b(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  183. IF b(6) = 1 AND b(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  184. IF b(5) = 1 AND b(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  185. IF b(7) = 1 AND b(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  186. 'Middle space gone.
  187. IF b(1) = 1 AND b(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  188. IF b(4) = 1 AND b(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  189. IF b(7) = 1 AND b(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  190. IF b(1) = 1 AND b(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  191. IF b(2) = 1 AND b(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  192. IF b(3) = 1 AND b(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  193. IF b(1) = 1 AND b(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  194. IF b(3) = 1 AND b(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  195.  
  196. 'Check to block.
  197. 'Last space gone.
  198. IF a(1) = 1 AND a(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  199. IF a(4) = 1 AND a(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  200. IF a(7) = 1 AND a(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  201. IF a(1) = 1 AND a(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  202. IF a(2) = 1 AND a(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  203. IF a(3) = 1 AND a(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  204. IF a(1) = 1 AND a(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  205. IF a(3) = 1 AND a(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  206. 'First space gone.
  207. IF a(2) = 1 AND a(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  208. IF a(5) = 1 AND a(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  209. IF a(8) = 1 AND a(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  210. IF a(4) = 1 AND a(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  211. IF a(5) = 1 AND a(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  212. IF a(6) = 1 AND a(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  213. IF a(5) = 1 AND a(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  214. IF a(7) = 1 AND a(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  215. 'Middle space gone.
  216. IF a(1) = 1 AND a(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  217. IF a(4) = 1 AND a(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  218. IF a(7) = 1 AND a(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  219. IF a(1) = 1 AND a(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  220. IF a(2) = 1 AND a(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  221. IF a(3) = 1 AND a(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  222. IF a(1) = 1 AND a(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  223. IF a(3) = 1 AND a(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  224.  
  225. 'Computer decides a random space.
  226. computerchoice:
  228. comp = INT(RND * 9) + 1
  229. IF b(comp) = 1 THEN GOTO computerchoice:
  230. IF a(comp) = 1 THEN GOTO computerchoice:
  231. IF comp = 1 THEN GOTO compspace1:
  232. IF comp = 2 THEN GOTO compspace2:
  233. IF comp = 3 THEN GOTO compspace3:
  234. IF comp = 4 THEN GOTO compspace4:
  235. IF comp = 5 THEN GOTO compspace5:
  236. IF comp = 6 THEN GOTO compspace6:
  237. IF comp = 7 THEN GOTO compspace7:
  238. IF comp = 8 THEN GOTO compspace8:
  239. IF comp = 9 THEN GOTO compspace9:
  240.  
  241. 'Cat's Game
  242. catsgame:
  243. FOR snd = 400 TO 300 STEP -25
  244.     SOUND snd, .5
  245. NEXT snd
  246. FOR tt = 1 TO 9
  247.     a(tt) = 0
  248.     b(tt) = 0
  249. NEXT tt
  250. t = 0
  251. COLOR _RGB32(255, 255, 255), _RGB32(255, 0, 255)
  252. LOCATE 2, 29: PRINT "Cat's Game - No Winners"
  253. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  254. GOTO playagain:
  255.  
  256. 'Check to see if the computer won.
  257. check:
  258. IF b(1) = 1 AND b(2) = 1 AND b(3) = 1 THEN GOTO compwon:
  259. IF b(4) = 1 AND b(5) = 1 AND b(6) = 1 THEN GOTO compwon:
  260. IF b(7) = 1 AND b(8) = 1 AND b(9) = 1 THEN GOTO compwon
  261. IF b(1) = 1 AND b(4) = 1 AND b(7) = 1 THEN GOTO compwon:
  262. IF b(2) = 1 AND b(5) = 1 AND b(8) = 1 THEN GOTO compwon:
  263. IF b(3) = 1 AND b(6) = 1 AND b(9) = 1 THEN GOTO compwon:
  264. IF b(1) = 1 AND b(5) = 1 AND b(9) = 1 THEN GOTO compwon:
  265. IF b(3) = 1 AND b(5) = 1 AND b(7) = 1 THEN GOTO compwon:
  266. turn = turn + 1
  267. IF turn = 9 THEN GOTO catsgame:
  268. t = 0
  269. GOTO Go:
  270.  
  271. compwon:
  272. FOR snd = 900 TO 300 STEP -50
  273.     SOUND snd, .5
  274. NEXT snd
  275. FOR tt = 1 TO 9
  276.     a(tt) = 0
  277.     b(tt) = 0
  278. NEXT tt
  279. t = 0
  280. computer = computer + 1
  281. you$ = STR$(you)
  282. comp$ = STR$(computer)
  283. _TITLE "You: " + you$ + "   Computer: " + comp$
  284. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 255)
  285. LOCATE 2, 33: PRINT "Computer  Wins"
  286. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  287. GOTO playagain:
  288.  
  289. 'This part draws the computer's circle.
  290. compspace1:
  291. t = 0
  292. b(1) = 1
  293. FOR s = .25 TO 5 STEP .25
  294.     CIRCLE (160, 137), 40 - s, _RGB32(255, 0, 0)
  296. GOTO check:
  297. compspace2:
  298. t = 0
  299. b(2) = 1
  300. FOR s = .25 TO 5 STEP .25
  301.     CIRCLE (300, 137), 40 - s, _RGB32(255, 0, 0)
  303. GOTO check:
  304. compspace3:
  305. t = 0
  306. b(3) = 1
  307. FOR s = .25 TO 5 STEP .25
  308.     CIRCLE (440, 137), 40 - s, _RGB32(255, 0, 0)
  310. GOTO check:
  311. compspace4:
  312. t = 0
  313. b(4) = 1
  314. FOR s = .25 TO 5 STEP .25
  315.     CIRCLE (160, 257), 40 - s, _RGB32(255, 0, 0)
  317. GOTO check:
  318. compspace5:
  319. t = 0
  320. b(5) = 1
  321. FOR s = .25 TO 5 STEP .25
  322.     CIRCLE (300, 257), 40 - s, _RGB32(255, 0, 0)
  324. GOTO check:
  325. compspace6:
  326. t = 0
  327. b(6) = 1
  328. FOR s = .25 TO 5 STEP .25
  329.     CIRCLE (440, 257), 40 - s, _RGB32(255, 0, 0)
  331. GOTO check:
  332. compspace7:
  333. t = 0
  334. b(7) = 1
  335. FOR s = .25 TO 5 STEP .25
  336.     CIRCLE (160, 372), 40 - s, _RGB32(255, 0, 0)
  338. GOTO check:
  339. compspace8:
  340. t = 0
  341. b(8) = 1
  342. FOR s = .25 TO 5 STEP .25
  343.     CIRCLE (300, 372), 40 - s, _RGB32(255, 0, 0)
  345. GOTO check:
  346. compspace9:
  347. t = 0
  348. b(9) = 1
  349. FOR s = .25 TO 5 STEP .25
  350.     CIRCLE (440, 372), 40 - s, _RGB32(255, 0, 0)
  352. GOTO check:
  353. 'This last part draws your X.
  354. space1:
  355. a(1) = 1
  356. FOR s = .25 TO 5 STEP .25
  357.     LINE (120 + s, 110)-(200 + s, 175), _RGB32(0, 255, 0)
  358.     LINE (200 + s, 110)-(120 + s, 175), _RGB32(0, 255, 0)
  360. t = 1
  361. GOTO checkwin:
  362. space2:
  363. a(2) = 1
  364. FOR s = .25 TO 5 STEP .25
  365.     LINE (260 + s, 110)-(340 + s, 175), _RGB32(0, 255, 0)
  366.     LINE (340 + s, 110)-(260 + s, 175), _RGB32(0, 255, 0)
  368. t = 1
  369. GOTO checkwin:
  370. space3:
  371. a(3) = 1
  372. FOR s = .25 TO 5 STEP .25
  373.     LINE (400 + s, 110)-(480 + s, 175), _RGB32(0, 255, 0)
  374.     LINE (480 + s, 110)-(400 + s, 175), _RGB32(0, 255, 0)
  376. t = 1
  377. GOTO checkwin:
  378. space4:
  379. a(4) = 1
  380. FOR s = .25 TO 5 STEP .25
  381.     LINE (120 + s, 225)-(200 + s, 290), _RGB32(0, 255, 0)
  382.     LINE (200 + s, 225)-(120 + s, 290), _RGB32(0, 255, 0)
  384. t = 1
  385. GOTO checkwin:
  386. space5:
  387. a(5) = 1
  388. FOR s = .25 TO 5 STEP .25
  389.     LINE (260 + s, 225)-(340 + s, 290), _RGB32(0, 255, 0)
  390.     LINE (340 + s, 225)-(260 + s, 290), _RGB32(0, 255, 0)
  392. t = 1
  393. GOTO checkwin:
  394. space6:
  395. a(6) = 1
  396. FOR s = .25 TO 5 STEP .25
  397.     LINE (400 + s, 225)-(480 + s, 290), _RGB32(0, 255, 0)
  398.     LINE (480 + s, 225)-(400 + s, 290), _RGB32(0, 255, 0)
  400. t = 1
  401. GOTO checkwin:
  402. space7:
  403. a(7) = 1
  404. FOR s = .25 TO 5 STEP .25
  405.     LINE (120 + s, 340)-(200 + s, 405), _RGB32(0, 255, 0)
  406.     LINE (200 + s, 340)-(120 + s, 405), _RGB32(0, 255, 0)
  408. t = 1
  409. GOTO checkwin:
  410. space8:
  411. a(8) = 1
  412. FOR s = .25 TO 5 STEP .25
  413.     LINE (260 + s, 340)-(340 + s, 405), _RGB32(0, 255, 0)
  414.     LINE (340 + s, 340)-(260 + s, 405), _RGB32(0, 255, 0)
  416. t = 1
  417. GOTO checkwin:
  418. space9:
  419. a(9) = 1
  420. FOR s = .25 TO 5 STEP .25
  421.     LINE (400 + s, 340)-(480 + s, 405), _RGB32(0, 255, 0)
  422.     LINE (480 + s, 340)-(400 + s, 405), _RGB32(0, 255, 0)
  424. t = 1
  425. GOTO checkwin:
  426.  
  427. playagain:
  428. COLOR _RGB32(255, 255, 255), _RGB32(255, 0, 0)
  429. _PRINTSTRING (220, 55), "Click Here To Play Again"
  430. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  431.  
  433.     _LIMIT 30
  434.     mouseWheel = 0
  436.         mouseX = _MOUSEX
  437.         mouseY = _MOUSEY
  438.         mouseLeftButton = _MOUSEBUTTON(1)
  439.         mouseRightButton = _MOUSEBUTTON(2)
  440.         mouseMiddleButton = _MOUSEBUTTON(3)
  441.         mouseWheel = mouseWheel + _MOUSEWHEEL
  442.     LOOP
  443.     ag$ = INKEY$
  444.     IF ag$ = CHR$(27) THEN END
  445.     IF ag$ = " " THEN CLS: GOTO start:
  446.     IF mouseLeftButton = -1 AND mouseX > 220 AND mouseX < 412 AND mouseY > 55 AND mouseY < 69 THEN CLS: GOTO start:
  448.  
Title: Re: Tic-Tac-Toe
Post by: bplus on January 30, 2021, 04:02:26 pm
@SierraKen  do you know how to do clear backgrounds for printing? I think that might look better.

Also can get fake 3D effect going by printing same thing over and over with slightly different color and offset.

Code: QB64: [Select]
  1. _TITLE "Fake 3D demo" 'b+ 2020- 01-30
  2.  
  3. CONST xmax = 800, ymax = 600, xc = 400, yc = 300
  4. SCREEN _NEWIMAGE(xmax, ymax, 32)
  5. _DELAY .25 'need time for screen to load before attempting to move it.
  8. FOR i = 1 TO 50
  9.     colr = _RGB32(0 + 5 * i, 0, 0)
  10.     Text 60 + i, 20 + i, 256, colr, "B+"
  12.  
  13. SUB Text (x, y, textHeight, K AS _UNSIGNED LONG, txt$)
  14.     DIM fg AS _UNSIGNED LONG, cur&, I&, multi, xlen
  15.     fg = _DEFAULTCOLOR
  16.     'screen snapshot
  17.     cur& = _DEST
  18.     I& = _NEWIMAGE(8 * LEN(txt$), 16, 32)
  19.     _DEST I&
  20.     COLOR K, _RGBA32(0, 0, 0, 0)
  21.     _PRINTSTRING (0, 0), txt$
  22.     multi = textHeight / 16
  23.     xlen = LEN(txt$) * 8 * multi
  24.     _PUTIMAGE (x, y)-STEP(xlen, textHeight), I&, cur&
  25.     COLOR fg
  26.     _FREEIMAGE I&
  28.  
  29.  
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 30, 2021, 06:37:59 pm
I did it!! Thanks for the idea B+! I turned the game into 3D. I also learned about _CLEARCOLOR which I didn't know about before and used that for my text instead of the background red. This is probably the best looking game or program I've ever made!

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)
  12. _TITLE "Tic-Tac-Toe     by SierraKen"
  13. SCREEN _NEWIMAGE(600, 480, 32)
  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.  
  40. PRINT "                              By  SierraKen"
  42. PRINT "       Play against the computer in this classic game of Tic-Tac-Toe."
  43. PRINT "                      Whoever gets 3 in a row wins."
  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.  
  53.     _LIMIT 60
  54.     mouseWheel = 0
  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:
  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
  81. c1 = INT(RND * 155) + 100
  82. c2 = INT(RND * 155) + 100
  83. c3 = INT(RND * 155) + 100
  84.  
  85. 'Draw Grid
  86. 'Vertical Lines
  87. FOR xx = .1 TO 15 STEP .1
  88.     LINE (220 - xx, 100 - xx)-(240 - xx, 410 - xx), _RGB32(c1 - (xx * 10), c2 - (xx * 10), c3 - (xx * 10)), BF
  89.     LINE (360 - xx, 100 - xx)-(380 - xx, 410 - xx), _RGB32(c1 - (xx * 10), c2 - (xx * 10), c3 - (xx * 10)), BF
  90. NEXT xx
  91. FOR xx = .1 TO 15 STEP .1
  92.     'Horizontal Lines
  93.     LINE (90 - xx, 185 - xx)-(510 - xx, 205 - xx), _RGB32(c1 - (xx * 10), c2 - (xx * 10), c3 - (xx * 10)), BF
  94.     LINE (90 - xx, 305 - xx)-(510 - xx, 325 - xx), _RGB32(c1 - (xx * 10), c2 - (xx * 10), c3 - (xx * 10)), BF
  95. NEXT xx
  96. whosfirst:
  98. first = INT(RND * 2) + 1
  99. IF first = 1 THEN GOTO computerchoice:
  100.  
  101. Go:
  103. a$ = INKEY$
  104. IF a$ = CHR$(27) THEN END
  105. mouseWheel = 0
  107.     mouseX = _MOUSEX
  108.     mouseY = _MOUSEY
  109.     mouseLeftButton = _MOUSEBUTTON(1)
  110.     mouseRightButton = _MOUSEBUTTON(2)
  111.     mouseMiddleButton = _MOUSEBUTTON(3)
  112.     mouseWheel = mouseWheel + _MOUSEWHEEL
  114.  
  115. IF mouseLeftButton = -1 THEN
  116.     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:
  117.     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:
  118.     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:
  119.     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:
  120.     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:
  121.     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:
  122.     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:
  123.     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:
  124.     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:
  126.  
  127. IF mouseLeftButton = -1 AND ending = 1 THEN GOTO start:
  128. IF mouseRightButton = -1 AND ending = 1 THEN END
  129.  
  130. IF t = 1 THEN GOSUB computer:
  131.  
  132. GOTO Go:
  133.  
  134. checkwin:
  135. 'Check to see if you won.
  136. IF a(1) = 1 AND a(2) = 1 AND a(3) = 1 THEN GOTO won:
  137. IF a(4) = 1 AND a(5) = 1 AND a(6) = 1 THEN GOTO won:
  138. IF a(7) = 1 AND a(8) = 1 AND a(9) = 1 THEN GOTO won
  139. IF a(1) = 1 AND a(4) = 1 AND a(7) = 1 THEN GOTO won:
  140. IF a(2) = 1 AND a(5) = 1 AND a(8) = 1 THEN GOTO won:
  141. IF a(3) = 1 AND a(6) = 1 AND a(9) = 1 THEN GOTO won:
  142. IF a(1) = 1 AND a(5) = 1 AND a(9) = 1 THEN GOTO won:
  143. IF a(3) = 1 AND a(5) = 1 AND a(7) = 1 THEN GOTO won:
  144. turn = turn + 1
  145. SOUND 100, .25
  146. IF turn = 9 THEN GOTO catsgame:
  147. GOTO Go:
  148. won:
  149. FOR snd = 300 TO 900 STEP 50
  150.     SOUND snd, .5
  151. NEXT snd
  152. FOR tt = 1 TO 9
  153.     a(tt) = 0
  154.     b(tt) = 0
  155. NEXT tt
  156. you = you + 1
  157. you$ = STR$(you)
  158. computer$ = STR$(computer)
  159. _TITLE "You: " + you$ + "   Computer: " + comp$
  160. t = 0
  162. LOCATE 2, 32: PRINT "Y O U   W I N ! !"
  163. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  164. GOTO playagain:
  165.  
  166. computer:
  167.  
  168. 'Check to win.
  169. 'Last space gone.
  170. IF b(1) = 1 AND b(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  171. IF b(4) = 1 AND b(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  172. IF b(7) = 1 AND b(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  173. IF b(1) = 1 AND b(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  174. IF b(2) = 1 AND b(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  175. IF b(3) = 1 AND b(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  176. IF b(1) = 1 AND b(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  177. IF b(3) = 1 AND b(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  178. 'First space gone.
  179. IF b(2) = 1 AND b(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  180. IF b(5) = 1 AND b(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  181. IF b(8) = 1 AND b(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  182. IF b(4) = 1 AND b(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  183. IF b(5) = 1 AND b(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  184. IF b(6) = 1 AND b(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  185. IF b(5) = 1 AND b(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  186. IF b(7) = 1 AND b(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  187. 'Middle space gone.
  188. IF b(1) = 1 AND b(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  189. IF b(4) = 1 AND b(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  190. IF b(7) = 1 AND b(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  191. IF b(1) = 1 AND b(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  192. IF b(2) = 1 AND b(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  193. IF b(3) = 1 AND b(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  194. IF b(1) = 1 AND b(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  195. IF b(3) = 1 AND b(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  196.  
  197. 'Check to block.
  198. 'Last space gone.
  199. IF a(1) = 1 AND a(2) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  200. IF a(4) = 1 AND a(5) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  201. IF a(7) = 1 AND a(8) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  202. IF a(1) = 1 AND a(4) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  203. IF a(2) = 1 AND a(5) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  204. IF a(3) = 1 AND a(6) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  205. IF a(1) = 1 AND a(5) = 1 AND a(9) = 0 AND b(9) = 0 THEN GOTO compspace9:
  206. IF a(3) = 1 AND a(5) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  207. 'First space gone.
  208. IF a(2) = 1 AND a(3) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  209. IF a(5) = 1 AND a(6) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  210. IF a(8) = 1 AND a(9) = 1 AND a(7) = 0 AND b(7) = 0 THEN GOTO compspace7:
  211. IF a(4) = 1 AND a(7) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  212. IF a(5) = 1 AND a(8) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  213. IF a(6) = 1 AND a(9) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  214. IF a(5) = 1 AND a(9) = 1 AND a(1) = 0 AND b(1) = 0 THEN GOTO compspace1:
  215. IF a(7) = 1 AND a(5) = 1 AND a(3) = 0 AND b(3) = 0 THEN GOTO compspace3:
  216. 'Middle space gone.
  217. IF a(1) = 1 AND a(3) = 1 AND a(2) = 0 AND b(2) = 0 THEN GOTO compspace2:
  218. IF a(4) = 1 AND a(6) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  219. IF a(7) = 1 AND a(9) = 1 AND a(8) = 0 AND b(8) = 0 THEN GOTO compspace8:
  220. IF a(1) = 1 AND a(7) = 1 AND a(4) = 0 AND b(4) = 0 THEN GOTO compspace4:
  221. IF a(2) = 1 AND a(8) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  222. IF a(3) = 1 AND a(9) = 1 AND a(6) = 0 AND b(6) = 0 THEN GOTO compspace6:
  223. IF a(1) = 1 AND a(9) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  224. IF a(3) = 1 AND a(7) = 1 AND a(5) = 0 AND b(5) = 0 THEN GOTO compspace5:
  225.  
  226. 'Computer decides a random space.
  227. computerchoice:
  229. comp = INT(RND * 9) + 1
  230. IF b(comp) = 1 THEN GOTO computerchoice:
  231. IF a(comp) = 1 THEN GOTO computerchoice:
  232. IF comp = 1 THEN GOTO compspace1:
  233. IF comp = 2 THEN GOTO compspace2:
  234. IF comp = 3 THEN GOTO compspace3:
  235. IF comp = 4 THEN GOTO compspace4:
  236. IF comp = 5 THEN GOTO compspace5:
  237. IF comp = 6 THEN GOTO compspace6:
  238. IF comp = 7 THEN GOTO compspace7:
  239. IF comp = 8 THEN GOTO compspace8:
  240. IF comp = 9 THEN GOTO compspace9:
  241.  
  242. 'Cat's Game
  243. catsgame:
  244. FOR snd = 400 TO 300 STEP -25
  245.     SOUND snd, .5
  246. NEXT snd
  247. FOR tt = 1 TO 9
  248.     a(tt) = 0
  249.     b(tt) = 0
  250. NEXT tt
  251. t = 0
  252. COLOR _RGB32(255, 0, 255), _CLEARCOLOR
  253. LOCATE 2, 29: PRINT "Cat's Game - No Winners"
  254. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  255. GOTO playagain:
  256.  
  257. 'Check to see if the computer won.
  258. check:
  259. IF b(1) = 1 AND b(2) = 1 AND b(3) = 1 THEN GOTO compwon:
  260. IF b(4) = 1 AND b(5) = 1 AND b(6) = 1 THEN GOTO compwon:
  261. IF b(7) = 1 AND b(8) = 1 AND b(9) = 1 THEN GOTO compwon
  262. IF b(1) = 1 AND b(4) = 1 AND b(7) = 1 THEN GOTO compwon:
  263. IF b(2) = 1 AND b(5) = 1 AND b(8) = 1 THEN GOTO compwon:
  264. IF b(3) = 1 AND b(6) = 1 AND b(9) = 1 THEN GOTO compwon:
  265. IF b(1) = 1 AND b(5) = 1 AND b(9) = 1 THEN GOTO compwon:
  266. IF b(3) = 1 AND b(5) = 1 AND b(7) = 1 THEN GOTO compwon:
  267. turn = turn + 1
  268. IF turn = 9 THEN GOTO catsgame:
  269. t = 0
  270. GOTO Go:
  271.  
  272. compwon:
  273. FOR snd = 900 TO 300 STEP -50
  274.     SOUND snd, .5
  275. NEXT snd
  276. FOR tt = 1 TO 9
  277.     a(tt) = 0
  278.     b(tt) = 0
  279. NEXT tt
  280. t = 0
  281. computer = computer + 1
  282. you$ = STR$(you)
  283. comp$ = STR$(computer)
  284. _TITLE "You: " + you$ + "   Computer: " + comp$
  285. COLOR _RGB32(128, 255, 255), _CLEARCOLOR
  286. LOCATE 2, 33: PRINT "Computer  Wins"
  287. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  288. GOTO playagain:
  289.  
  290. 'This part draws the computer's circle.
  291. compspace1:
  292. t = 0
  293. b(1) = 1
  294. FOR xx = .1 TO 10 STEP .1
  295.     FOR s = .25 TO 10 STEP .25
  296.         CIRCLE (160 - xx, 130 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  297.     NEXT s
  298. NEXT xx
  299. GOTO check:
  300. compspace2:
  301. t = 0
  302. b(2) = 1
  303. FOR xx = .1 TO 10 STEP .1
  304.     FOR s = .25 TO 10 STEP .25
  305.         CIRCLE (300 - xx, 130 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  306.     NEXT s
  307. NEXT xx
  308. GOTO check:
  309. compspace3:
  310. t = 0
  311. b(3) = 1
  312. FOR xx = .1 TO 10 STEP .1
  313.     FOR s = .25 TO 10 STEP .25
  314.         CIRCLE (440 - xx, 130 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  315.     NEXT s
  316. NEXT xx
  317. GOTO check:
  318. compspace4:
  319. t = 0
  320. b(4) = 1
  321. FOR xx = .1 TO 10 STEP .1
  322.     FOR s = .25 TO 10 STEP .25
  323.         CIRCLE (160 - xx, 250 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  324.     NEXT s
  325. NEXT xx
  326. GOTO check:
  327. compspace5:
  328. t = 0
  329. b(5) = 1
  330. FOR xx = .1 TO 10 STEP .1
  331.     FOR s = .25 TO 10 STEP .25
  332.         CIRCLE (300 - xx, 250 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  333.     NEXT s
  334. NEXT xx
  335. GOTO check:
  336. compspace6:
  337. t = 0
  338. b(6) = 1
  339. FOR xx = .1 TO 10 STEP .1
  340.     FOR s = .25 TO 10 STEP .25
  341.         CIRCLE (440 - xx, 250 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  342.     NEXT s
  343. NEXT xx
  344. GOTO check:
  345. compspace7:
  346. t = 0
  347. b(7) = 1
  348. FOR xx = .1 TO 10 STEP .1
  349.     FOR s = .25 TO 10 STEP .25
  350.         CIRCLE (160 - xx, 365 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  351.     NEXT s
  352. NEXT xx
  353. GOTO check:
  354. compspace8:
  355. t = 0
  356. b(8) = 1
  357. FOR xx = .1 TO 10 STEP .1
  358.     FOR s = .25 TO 10 STEP .25
  359.         CIRCLE (300 - xx, 365 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  360.     NEXT s
  361. NEXT xx
  362. GOTO check:
  363. compspace9:
  364. t = 0
  365. b(9) = 1
  366. FOR xx = .1 TO 10 STEP .1
  367.     FOR s = .25 TO 10 STEP .25
  368.         CIRCLE (440 - xx, 365 - xx), 40 - s, _RGB32(255 - (xx * 10), 0, 0)
  369.     NEXT s
  370. NEXT xx
  371. GOTO check:
  372. 'This last part draws your X.
  373. space1:
  374. a(1) = 1
  375. FOR xx = .1 TO 10 STEP .1
  376.     FOR s = .25 TO 10 STEP .25
  377.         LINE (115 + s - xx, 104 - xx)-(195 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
  378.         LINE (195 + s - xx, 104 - xx)-(115 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
  379.     NEXT s
  380. NEXT xx
  381. t = 1
  382. GOTO checkwin:
  383. space2:
  384. a(2) = 1
  385. FOR xx = .1 TO 10 STEP .1
  386.     FOR s = .25 TO 10 STEP .25
  387.         LINE (255 + s - xx, 104 - xx)-(335 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
  388.         LINE (335 + s - xx, 104 - xx)-(255 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
  389.     NEXT s
  390. NEXT xx
  391. t = 1
  392. GOTO checkwin:
  393. space3:
  394. a(3) = 1
  395. FOR xx = .1 TO 10 STEP .1
  396.     FOR s = .25 TO 10 STEP .25
  397.         LINE (395 + s - xx, 104 - xx)-(475 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
  398.         LINE (475 + s - xx, 104 - xx)-(395 + s - xx, 169 - xx), _RGB32(0, 255 - (xx * 10), 0)
  399.     NEXT s
  400. NEXT xx
  401. t = 1
  402. GOTO checkwin:
  403. space4:
  404. a(4) = 1
  405. FOR xx = .1 TO 10 STEP .1
  406.     FOR s = .25 TO 10 STEP .25
  407.         LINE (110 + s - xx, 224 - xx)-(190 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
  408.         LINE (190 + s - xx, 224 - xx)-(110 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
  409.     NEXT s
  410. NEXT xx
  411. t = 1
  412. GOTO checkwin:
  413. space5:
  414. a(5) = 1
  415. FOR xx = .1 TO 10 STEP .1
  416.     FOR s = .25 TO 10 STEP .25
  417.         LINE (255 + s - xx, 224 - xx)-(335 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
  418.         LINE (335 + s - xx, 224 - xx)-(255 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
  419.     NEXT s
  420. NEXT xx
  421. t = 1
  422. GOTO checkwin:
  423. space6:
  424. a(6) = 1
  425. FOR xx = .1 TO 10 STEP .1
  426.     FOR s = .25 TO 10 STEP .25
  427.         LINE (395 + s - xx, 224 - xx)-(475 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
  428.         LINE (475 + s - xx, 224 - xx)-(395 + s - xx, 289 - xx), _RGB32(0, 255 - (xx * 10), 0)
  429.     NEXT s
  430. NEXT xx
  431. t = 1
  432. GOTO checkwin:
  433. space7:
  434. a(7) = 1
  435. FOR xx = .1 TO 10 STEP .1
  436.     FOR s = .25 TO 10 STEP .25
  437.         LINE (110 + s - xx, 339 - xx)-(190 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
  438.         LINE (190 + s - xx, 339 - xx)-(110 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
  439.     NEXT s
  440. NEXT xx
  441. t = 1
  442. GOTO checkwin:
  443. space8:
  444. a(8) = 1
  445. FOR xx = .1 TO 10 STEP .1
  446.     FOR s = .25 TO 10 STEP .25
  447.         LINE (255 + s - xx, 339 - xx)-(335 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
  448.         LINE (335 + s - xx, 339 - xx)-(255 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
  449.     NEXT s
  450. NEXT xx
  451. t = 1
  452. GOTO checkwin:
  453. space9:
  454. a(9) = 1
  455. FOR xx = .1 TO 10 STEP .1
  456.     FOR s = .25 TO 10 STEP .25
  457.         LINE (395 + s - xx, 339 - xx)-(475 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
  458.         LINE (475 + s - xx, 339 - xx)-(395 + s - xx, 404 - xx), _RGB32(0, 255 - (xx * 10), 0)
  459.     NEXT s
  460. NEXT xx
  461. t = 1
  462. GOTO checkwin:
  463.  
  464. playagain:
  466. _PRINTSTRING (220, 55), "Click Here To Play Again"
  467. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  468.  
  470.     _LIMIT 60
  471.     mouseWheel = 0
  473.         mouseX = _MOUSEX
  474.         mouseY = _MOUSEY
  475.         mouseLeftButton = _MOUSEBUTTON(1)
  476.         mouseRightButton = _MOUSEBUTTON(2)
  477.         mouseMiddleButton = _MOUSEBUTTON(3)
  478.         mouseWheel = mouseWheel + _MOUSEWHEEL
  479.     LOOP
  480.     ag$ = INKEY$
  481.     IF ag$ = CHR$(27) THEN END
  482.     IF ag$ = " " THEN CLS: GOTO start:
  483.     IF mouseLeftButton = -1 AND mouseX > 220 AND mouseX < 412 AND mouseY > 55 AND mouseY < 69 THEN CLS: GOTO start:
  485.  
Title: Re: Tic-Tac-Toe
Post by: SMcNeill on January 30, 2021, 06:41:15 pm
Looks like the O’s need to move down a little.
Title: Re: Tic-Tac-Toe
Post by: STxAxTIC on January 30, 2021, 06:44:27 pm
Maybe just change the plot order so the X's and O's appear to be "on shelves" - give it a try.
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 30, 2021, 06:52:52 pm
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.
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 30, 2021, 07:05:48 pm
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)
  12. _TITLE "Tic-Tac-Toe     by SierraKen"
  13. SCREEN _NEWIMAGE(600, 480, 32)
  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.  
  40. PRINT "                              By  SierraKen"
  42. PRINT "       Play against the computer in this classic game of Tic-Tac-Toe."
  43. PRINT "                      Whoever gets 3 in a row wins."
  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.  
  53.     _LIMIT 60
  54.     mouseWheel = 0
  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:
  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
  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:
  89. first = INT(RND * 2) + 1
  90. IF first = 1 THEN GOTO computerchoice:
  91.  
  92. Go:
  94. a$ = INKEY$
  95. IF a$ = CHR$(27) THEN END
  96. mouseWheel = 0
  98.     mouseX = _MOUSEX
  99.     mouseY = _MOUSEY
  100.     mouseLeftButton = _MOUSEBUTTON(1)
  101.     mouseRightButton = _MOUSEBUTTON(2)
  102.     mouseMiddleButton = _MOUSEBUTTON(3)
  103.     mouseWheel = mouseWheel + _MOUSEWHEEL
  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:
  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
  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:
  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:
  463. _PRINTSTRING (220, 55), "Click Here To Play Again"
  464. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  465.  
  467.     _LIMIT 60
  468.     mouseWheel = 0
  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:
  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
  496.  
Title: Re: Tic-Tac-Toe
Post by: NOVARSEG on January 30, 2021, 07:36:55 pm
@SMcNeill

Quote
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?
Title: Re: Tic-Tac-Toe
Post by: SMcNeill on January 30, 2021, 08:07:14 pm
Quote from: NOVARSEG on January 30, 2021, 07:36:55 pm
@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.
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 30, 2021, 08:15:56 pm
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.
Title: Re: Tic-Tac-Toe
Post by: SMcNeill on January 30, 2021, 08:22:06 pm
Quote from: SierraKen on January 30, 2021, 08:15:56 pm
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.
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 30, 2021, 08:30:20 pm
With my head injury problems, my short term memory problems does simple programming.
Title: Re: Tic-Tac-Toe
Post by: NOVARSEG on January 30, 2021, 09:09:16 pm
From https://www.rd.com/article/how-to-win-tic-tac-toe/

Quote
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.

Title: Re: Tic-Tac-Toe
Post by: DANILIN on January 31, 2021, 10:24:59 am
Tic-Tac-Toe Russian Real-Time Strategy

 
   


 


picture is milli size
Title: Re: Tic-Tac-Toe
Post by: OldMoses on January 31, 2021, 05:23:51 pm
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.
Title: Re: Tic-Tac-Toe
Post by: SierraKen on January 31, 2021, 07:46:09 pm
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. :)
Text Only | Text with Attachments