« previous next »
Pages: [1] 2   Go Down

Author Topic: Tic-Tac-Toe  (Read 7327 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Tic-Tac-Toe
« 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.  
TicTacToe.jpg
* TicTacToe.jpg (Filesize: 30.84 KB, Dimensions: 601x504, Views: 151)
« Last Edit: January 29, 2021, 12:28:45 am by SierraKen »
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Tic-Tac-Toe
« Reply #1 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!
Logged
You're not done when it works, you're done when it's right.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #2 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!
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #3 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.  
TicTacToe.jpg
* TicTacToe.jpg (Filesize: 55.99 KB, Dimensions: 601x504, Views: 124)
« Last Edit: January 30, 2021, 02:10:54 am by SierraKen »
Logged

Offline NOVARSEG

  • Forum Resident
  • Posts: 509
    • View Profile
Re: Tic-Tac-Toe
« Reply #4 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?
« Last Edit: January 30, 2021, 02:10:18 am by NOVARSEG »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #5 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.
Logged

Offline NOVARSEG

  • Forum Resident
  • Posts: 509
    • View Profile
Re: Tic-Tac-Toe
« Reply #6 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.
« Last Edit: January 30, 2021, 02:39:27 am by NOVARSEG »
Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Tic-Tac-Toe
« Reply #7 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.
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Tic-Tac-Toe
« Reply #8 on: January 30, 2021, 03:22:50 am »
This should help you draw it Steve. Courtesy of xkcd.

 
tic_tac_toe.png
Logged
You're not done when it works, you're done when it's right.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Tic-Tac-Toe
« Reply #9 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?
« Last Edit: January 30, 2021, 10:26:17 am by bplus »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #10 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.  
TicTacToe.jpg
* TicTacToe.jpg (Filesize: 73.45 KB, Dimensions: 602x505, Views: 111)
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Tic-Tac-Toe
« Reply #11 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.  
image_2021-01-30_162331.png
* image_2021-01-30_162331.png (Filesize: 5.51 KB, Dimensions: 382x360, Views: 107)
« Last Edit: January 30, 2021, 04:23:32 pm by bplus »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #12 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.  
TicTacToe.jpg
* TicTacToe.jpg (Filesize: 80.53 KB, Dimensions: 599x503, Views: 108)
Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Tic-Tac-Toe
« Reply #13 on: January 30, 2021, 06:41:15 pm »
Looks like the O’s need to move down a little.
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Tic-Tac-Toe
« Reply #14 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.
Logged
You're not done when it works, you're done when it's right.
Pages: [1] 2   Go Up
« previous next »