« previous next »
Pages: [1]   Go Down

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

0 Members and 1 Guest are viewing this topic.

This topic contains a post which is marked as Best Answer. Press here if you would like to see it.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Tic-Tac-Toe
« on: August 13, 2019, 10:10:38 pm »
I know this game has been remade countless times on QBasic and other languages, but personally, I've wanted to make this game ever since I was a kid in the 80's. So, I worked on it for most of the day today and was able to finish it. :) It even uses graphics and not just all text. The computer knows how to block, and win, and also choose a random space when it can't do either. Plus I'm excited to say that it uses the mouse to choose your space. :)) Check it out!

(Note: a better looking and sounding version is after this post on the same page.)

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

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Tic-Tac-Toe
« Reply #1 on: August 13, 2019, 10:48:04 pm »
Works well with mouse, nice!
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #2 on: August 13, 2019, 10:57:28 pm »
Thanks :). Was fun making it. I have code for every block possible and every win possible. Also learned how easy it is to use mouse detection areas.
Logged

Offline OldMoses

  • Seasoned Forum Regular
  • Posts: 469
    • View Profile
Re: Tic-Tac-Toe
« Reply #3 on: August 14, 2019, 12:01:04 am »
Best I can do is stalemate it. Good job.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #4 on: August 14, 2019, 12:12:10 am »
Thanks OldMoses! Yeah just like classic Tic-Tac-Toe, it takes a few games to win usually. :)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #5 on: August 14, 2019, 01:21:18 pm »
I decided to make the O's and X's thicker, which also made them brighter. I also added a tiny animation text in the beginning and adjusted some other text. Plus I added a small thump sound every time you choose a space. 

(Note: I found a little problem with these 2 that I've posted, so please scroll down to the next post, thank you.)

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

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Tic-Tac-Toe
« Reply #6 on: August 14, 2019, 01:44:03 pm »
Here is the fixed version. I still don't know exactly why this happened, but what was happening was if you pressed the Space Bar in the middle of the game, and when the game was over, it didn't clear the screen completely. Or it was playing part of the last game still. So I added an INKEY$ in the main loop for Esc to end the game and having that INKEY$ stopped anything to do with the Space Bar, until the game was over and then you can press the Space  Bar to play again. :) And as a side note, as I did before in this game, you don't see the welcome screen when you want to play again.

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

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Tic-Tac-Toe
« Reply #7 on: August 16, 2019, 03:20:16 pm »
Hi
I find it fine, smart (except AI of game) and with funny sounds
Logged
Programming isn't difficult, only it's  consuming time and coffee
Pages: [1]   Go Up
« previous next »