QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on February 02, 2020, 05:43:43 pm

Title: Checkers
Post by: SierraKen on February 02, 2020, 05:43:43 pm

I have this on the Chess thread but decided to make a new thread in case anyone wants to comment or add or change anything to this game.

From the other thread:
I got pretty close to finishing a 2-person checkers game after a week of programming every day. But I can't figure out how to keep the king symbol on a king checker piece. The symbol shows up fine on it when you get to the other side, but then when you move again it's deleted. I'm sure I didn't do the variables the right way. I actually just tossed in variables not knowing exactly what they do which is totally not good. I also am getting hang-ups every once in awhile where it won't let you plot coordinates (I don't even use the mouse in this game). So, I will probably either take a long break on this game or just give up on it.
Feel free to have the code anyone, if you wish to do anything with it. Just remember the king symbol doesn't stay and once in awhile maybe it won't let you plot (not sure I may have fixed that). The only reason I'm posting the code today is to show everyone how good I actually did make it so far. You can jump, but only do 1 jump per move. So all in all, it's a very rough and bad way to play checkers, but it is the best one I've made so far. Oh also, it does say which player wins when they do win. I've only played 1 full game of it myself. And like 40 other tries of fixing things. lol Been a crazy little program. But for now, I'm finished with it myself.

Code: QB64: [Select]

1. _TITLE "1 Jump - 2 Player Checkers - by Ken G."
2. SCREEN _NEWIMAGE(800, 600, 32)
3. DIM black2(88), red2(88), bking(88), rking(88)
4.  
5. 'Make checkerboard
6. LINE (149, 49)-(651, 551), _RGB32(255, 255, 255), B
7. FOR ly = 50 TO 487.5 STEP 125
8.     FOR lx = 212.5 TO 650 STEP 125
9.         LINE (lx - 62.5, ly)-(lx, ly + 62.5), _RGB32(255, 0, 0), BF
10.     NEXT lx
11.     FOR lx = 212.5 TO 650 STEP 125
12.         LINE (lx, ly + 62.5)-(lx + 62.5, ly + 125), _RGB32(255, 0, 0), BF
13.     NEXT lx
14.     FOR lx = 275 TO 650 STEP 125
15.         LINE (lx - 62.5, ly)-(lx, ly + 62.5), _RGB32(0, 0, 0), BF
16.     NEXT lx
17.     FOR lx = 150 TO 587.5 STEP 125
18.         LINE (lx, ly + 62.5)-(lx + 62.5, ly + 125), _RGB32(0, 0, 0), BF
19.     NEXT lx
20. NEXT ly
21. COLOR _RGB32(255, 255, 255)
22. LOCATE 3, 87: PRINT "Red"
23. LOCATE 4, 87: PRINT "From:"
24. LOCATE 9, 87: PRINT "To:"
25. LOCATE 3, 5: PRINT "Black"
26. LOCATE 4, 5: PRINT "From:"
27. LOCATE 9, 5: PRINT "To:"
28.  
29. COLOR _RGB32(127, 255, 255)
30. FOR lx = 170 TO 607.5 STEP 62.5
31.     h = h + 1
32.     h$ = STR$(h)
33.     _PRINTSTRING (lx, 30), h$
34. NEXT lx
35. COLOR _RGB32(128, 249, 127)
36. FOR ly = 70 TO 507.5 STEP 62.5
37.     v = v + 1
38.     v$ = STR$(v)
39.     _PRINTSTRING (120, ly), v$
40. NEXT ly
41. h = 0: v = 0
42. COLOR _RGB32(127, 255, 255)
43. FOR lx = 170 TO 607.5 STEP 62.5
44.     h = h + 1
45.     h$ = STR$(h)
46.     _PRINTSTRING (lx, 560), h$
47. NEXT lx
48. COLOR _RGB32(128, 249, 127)
49. FOR ly = 70 TO 507.5 STEP 62.5
50.     v = v + 1
51.     v$ = STR$(v)
52.     _PRINTSTRING (660, ly), v$
53. NEXT ly
54.  
55. 'setup pieces
56. 'black
57. ly = 50
58. FOR lx = 212.5 TO 650 STEP 125
59.     CIRCLE (lx + 31.25, ly + 31.25), 20, _RGB32(50, 50, 50)
60.     PAINT (lx + 31.25, ly + 31.25), _RGB32(50, 50, 50)
61. NEXT lx
62. FOR lx = 212.5 TO 650 STEP 125
63.     CIRCLE (lx - 31.25, ly + 93.75), 20, _RGB32(50, 50, 50)
64.     PAINT (lx - 31.25, ly + 93.75), _RGB32(50, 50, 50)
65. NEXT lx
66. FOR lx = 212.5 TO 650 STEP 125
67.     CIRCLE (lx + 31.25, ly + 156.25), 20, _RGB32(50, 50, 50)
68.     PAINT (lx + 31.25, ly + 156.25), _RGB32(50, 50, 50)
69. NEXT lx
70. 'red
71. ly = 206.25
72. FOR lx = 212.5 TO 650 STEP 125
73.     CIRCLE (lx - 31.25, ly + 187.5), 20, _RGB32(200, 50, 50)
74.     PAINT (lx - 31.25, ly + 187.5), _RGB32(200, 50, 50)
75. NEXT lx
76. FOR lx = 212.5 TO 650 STEP 125
77.     CIRCLE (lx + 31.25, ly + 250), 20, _RGB32(200, 50, 50)
78.     PAINT (lx + 31.25, ly + 250), _RGB32(200, 50, 50)
79. NEXT lx
80. FOR lx = 212.5 TO 650 STEP 125
81.     CIRCLE (lx - 31.25, ly + 312.5), 20, _RGB32(200, 50, 50)
82.     PAINT (lx - 31.25, ly + 312.5), _RGB32(200, 50, 50)
83. NEXT lx
84.  
85. 'The coordinate variables use a 2 digit number, the first digit is the horizon, the second is the vertical.
86. black2(1) = 12
87. black2(2) = 14
88. black2(3) = 16
89. black2(4) = 18
90.  
91. black2(5) = 21
92. black2(6) = 23
93. black2(7) = 25
94. black2(8) = 27
95.  
96. black2(9) = 32
97. black2(10) = 34
98. black2(11) = 36
99. black2(12) = 38
100.  
101. red2(9) = 81
102. red2(10) = 83
103. red2(11) = 85
104. red2(12) = 87
105.  
106. red2(5) = 72
107. red2(6) = 74
108. red2(7) = 76
109. red2(8) = 78
110.  
111. red2(1) = 61
112. red2(2) = 63
113. red2(3) = 65
114. red2(4) = 67
115.  
116. '----------------------------------------------------------------------------
117. 'Main Loop
118.  
119. _LIMIT 200
120.  
121. 'Player One
122. one:
123. COLOR _RGB32(128, 249, 127)
124. LOCATE 5, 87: PRINT "Horizon": LOCATE 6, 87: INPUT ph
125. IF ph > 8 OR ph < 1 THEN GOTO one:
126. IF ph <> INT(ph) THEN GOTO one:
127. COLOR _RGB32(127, 255, 255)
128. LOCATE 7, 87: PRINT "Vertical": LOCATE 8, 87: INPUT pv
129. IF pv > 8 OR pv < 1 THEN GOTO one:
130. IF pv <> INT(pv) THEN GOTO one:
131. ph$ = STR$(ph)
132. pv$ = STR$(pv)
133. sp$ = ph$ + pv$
134. sp = VAL(sp$)
135. FOR check = 1 TO 88
136.     IF red2(check) = sp THEN ch = sp: GOTO move:
137. NEXT check
138. GOTO one:
139.  
140. 'Player Two
141. two:
142. COLOR _RGB32(128, 249, 127)
143. LOCATE 5, 5: PRINT "Horizon": LOCATE 6, 5: INPUT ph3
144. IF ph3 > 8 OR ph3 < 1 THEN GOTO two:
145. IF ph3 <> INT(ph3) THEN GOTO two:
146. COLOR _RGB32(127, 255, 255)
147. LOCATE 7, 5: PRINT "Vertical": LOCATE 8, 5: INPUT pv3
148. IF pv3 > 8 OR pv3 < 1 THEN GOTO two:
149. IF pv3 <> INT(pv3) THEN GOTO two:
150. ph3$ = STR$(ph3)
151. pv3$ = STR$(pv3)
152. sp3$ = ph3$ + pv3$
153. sp3 = VAL(sp3$)
154. FOR check2 = 1 TO 88
155.     IF black2(check2) = sp3 THEN ch2 = sp3: GOTO move2:
156. NEXT check2
157. GOTO two:
158.  
159. '----------------------------------------------------------------------------
160.  
161. move:
162. COLOR _RGB32(128, 249, 127)
163. LOCATE 10, 87: PRINT "Horizon": LOCATE 11, 87: INPUT ph2
164. IF ph2 > 8 OR ph2 < 1 THEN GOTO one:
165. IF ph2 <> INT(ph2) THEN GOTO one:
166.  
167. COLOR _RGB32(127, 255, 255)
168. LOCATE 12, 87: PRINT "Vertical": LOCATE 13, 87: INPUT pv2
169. IF pv2 > 8 OR pv2 < 1 THEN GOTO one:
170. IF pv2 <> INT(pv2) THEN GOTO one:
171. ph2$ = STR$(ph2)
172. pv2$ = STR$(pv2)
173. sp2$ = ph2$ + pv2$
174. sp2 = VAL(sp2$)
175. IF sp = sp2 THEN GOTO one:
176. IF pv = pv2 OR ph = ph2 THEN
177.     COLOR _RGB32(255, 0, 0)
178.     LOCATE 15, 87
179.     PRINT "Illegal Move"
180.     GOTO one:
181. END IF
182.  
183. 'Check for red squares.
184. IF sp2 = 11 OR sp2 = 13 OR sp2 = 15 OR sp2 = 17 OR sp2 = 22 OR sp2 = 24 OR sp2 = 26 OR sp2 = 28 THEN
185.     COLOR _RGB32(255, 0, 0)
186.     LOCATE 15, 87
187.     PRINT "Illegal Move"
188.     GOTO one:
189. END IF
190. IF sp2 = 31 OR sp2 = 33 OR sp2 = 35 OR sp2 = 37 OR sp2 = 42 OR sp2 = 44 OR sp2 = 46 OR sp2 = 48 THEN
191.     COLOR _RGB32(255, 0, 0)
192.     LOCATE 15, 87
193.     PRINT "Illegal Move"
194.     GOTO one:
195. END IF
196. IF sp2 = 51 OR sp2 = 53 OR sp2 = 55 OR sp2 = 57 OR sp2 = 62 OR sp2 = 64 OR sp2 = 66 OR sp2 = 68 THEN
197.     COLOR _RGB32(255, 0, 0)
198.     LOCATE 15, 87
199.     PRINT "Illegal Move"
200.     GOTO one:
201. END IF
202. IF sp2 = 71 OR sp2 = 73 OR sp2 = 75 OR sp2 = 77 OR sp2 = 82 OR sp2 = 84 OR sp2 = 86 OR sp2 = 88 THEN
203.     COLOR _RGB32(255, 0, 0)
204.     LOCATE 15, 87
205.     PRINT "Illegal Move"
206.     GOTO one:
207. END IF
208.  
209. red2(ch) = sp2
210.  
211. 'Draw player one checker in the new square.
212. 'First erase the old checker.
213. IF sp = 12 THEN CIRCLE (243.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 81.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 81.25
214. IF sp = 14 THEN CIRCLE (368.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 81.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 81.25
215. IF sp = 16 THEN CIRCLE (493.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 81.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 81.25
216. IF sp = 18 THEN CIRCLE (618.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 81.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 81.25
217. IF sp = 21 THEN CIRCLE (181.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 143.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 143.75
218. IF sp = 23 THEN CIRCLE (306.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 143.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 143.75
219. IF sp = 25 THEN CIRCLE (431.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 143.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 143.75
220. IF sp = 27 THEN CIRCLE (556.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 143.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 143.75
221. IF sp = 32 THEN CIRCLE (243.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 206.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 206.25
222. IF sp = 34 THEN CIRCLE (368.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 206.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 206.25
223. IF sp = 36 THEN CIRCLE (493.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 206.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 206.25
224. IF sp = 38 THEN CIRCLE (618.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 206.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 206.25
225. IF sp = 41 THEN CIRCLE (181.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 268.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 268.75
226. IF sp = 43 THEN CIRCLE (306.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 268.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 268.75
227. IF sp = 45 THEN CIRCLE (431.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 268.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 268.75
228. IF sp = 47 THEN CIRCLE (556.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 268.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 268.75
229. IF sp = 52 THEN CIRCLE (243.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 331.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 331.25
230. IF sp = 54 THEN CIRCLE (368.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 331.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 331.25
231. IF sp = 56 THEN CIRCLE (493.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 331.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 331.25
232. IF sp = 58 THEN CIRCLE (618.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 331.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 331.25
233. IF sp = 61 THEN CIRCLE (181.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 393.74), _RGB32(0, 0, 0): x1 = 181.25: y1 = 393.75
234. IF sp = 63 THEN CIRCLE (306.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 393.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 393.75
235. IF sp = 65 THEN CIRCLE (431.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 393.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 393.75
236. IF sp = 67 THEN CIRCLE (556.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 393.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 393.75
237. IF sp = 72 THEN CIRCLE (243.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 456.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 456.25
238. IF sp = 74 THEN CIRCLE (368.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 456.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 456.25
239. IF sp = 76 THEN CIRCLE (493.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 456.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 456.25
240. IF sp = 78 THEN CIRCLE (618.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 456.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 456.25
241. IF sp = 81 THEN CIRCLE (181.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 518.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 518.75
242. IF sp = 83 THEN CIRCLE (306.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 518.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 518.75
243. IF sp = 85 THEN CIRCLE (431.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 518.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 518.75
244. IF sp = 87 THEN CIRCLE (556.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 518.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 518.75
245.  
246. 'Now draw the new checker.
247. IF sp2 = 12 THEN CIRCLE (243.75, 81.25), 20, _RGB32(200, 50, 50): PAINT (243.75, 81.25), _RGB32(200, 50, 50): x2 = 243.75: y2 = 81.25
248. IF sp2 = 14 THEN CIRCLE (368.75, 81.25), 20, _RGB32(200, 50, 50): PAINT (368.75, 81.25), _RGB32(200, 50, 50): x2 = 368.75: y2 = 81.25
249. IF sp2 = 16 THEN CIRCLE (493.75, 81.25), 20, _RGB32(200, 50, 50): PAINT (493.75, 81.25), _RGB32(200, 50, 50): x2 = 493.75: y2 = 81.25
250. IF sp2 = 18 THEN CIRCLE (618.75, 81.25), 20, _RGB32(200, 50, 50): PAINT (618.75, 81.25), _RGB32(200, 50, 50): x2 = 618.75: y2 = 81.25
251. IF sp2 = 21 THEN CIRCLE (181.25, 143.75), 20, _RGB32(200, 50, 50): PAINT (181.25, 143.75), _RGB32(200, 50, 50): x2 = 181.25: y2 = 143.75
252. IF sp2 = 23 THEN CIRCLE (306.25, 143.75), 20, _RGB32(200, 50, 50): PAINT (306.25, 143.75), _RGB32(200, 50, 50): x2 = 306.25: y2 = 143.75
253. IF sp2 = 25 THEN CIRCLE (431.25, 143.75), 20, _RGB32(200, 50, 50): PAINT (431.25, 143.75), _RGB32(200, 50, 50): x2 = 431.25: y2 = 143.75
254. IF sp2 = 27 THEN CIRCLE (556.25, 143.75), 20, _RGB32(200, 50, 50): PAINT (556.25, 143.75), _RGB32(200, 50, 50): x2 = 556.25: y2 = 143.75
255. IF sp2 = 32 THEN CIRCLE (243.75, 206.25), 20, _RGB32(200, 50, 50): PAINT (243.75, 206.25), _RGB32(200, 50, 50): x2 = 243.75: y2 = 206.25
256. IF sp2 = 34 THEN CIRCLE (368.75, 206.25), 20, _RGB32(200, 50, 50): PAINT (368.75, 206.25), _RGB32(200, 50, 50): x2 = 368.75: y2 = 206.25
257. IF sp2 = 36 THEN CIRCLE (493.75, 206.25), 20, _RGB32(200, 50, 50): PAINT (493.75, 206.25), _RGB32(200, 50, 50): x2 = 493.75: y2 = 206.25
258. IF sp2 = 38 THEN CIRCLE (618.75, 206.25), 20, _RGB32(200, 50, 50): PAINT (618.75, 206.25), _RGB32(200, 50, 50): x2 = 618.75: y2 = 206.25
259. IF sp2 = 41 THEN CIRCLE (181.25, 268.75), 20, _RGB32(200, 50, 50): PAINT (181.25, 268.75), _RGB32(200, 50, 50): x2 = 181.25: y2 = 268.75
260. IF sp2 = 43 THEN CIRCLE (306.25, 268.75), 20, _RGB32(200, 50, 50): PAINT (306.25, 268.75), _RGB32(200, 50, 50): x2 = 306.25: y2 = 268.75
261. IF sp2 = 45 THEN CIRCLE (431.25, 268.75), 20, _RGB32(200, 50, 50): PAINT (431.25, 268.75), _RGB32(200, 50, 50): x2 = 431.25: y2 = 268.75
262. IF sp2 = 47 THEN CIRCLE (556.25, 268.75), 20, _RGB32(200, 50, 50): PAINT (556.25, 268.75), _RGB32(200, 50, 50): x2 = 556.25: y2 = 268.75
263. IF sp2 = 52 THEN CIRCLE (243.75, 331.25), 20, _RGB32(200, 50, 50): PAINT (243.75, 331.25), _RGB32(200, 50, 50): x2 = 243.75: y2 = 331.25
264. IF sp2 = 54 THEN CIRCLE (368.75, 331.25), 20, _RGB32(200, 50, 50): PAINT (368.75, 331.25), _RGB32(200, 50, 50): x2 = 368.75: y2 = 331.25
265. IF sp2 = 56 THEN CIRCLE (493.75, 331.25), 20, _RGB32(200, 50, 50): PAINT (493.75, 331.25), _RGB32(200, 50, 50): x2 = 493.75: y2 = 331.25
266. IF sp2 = 58 THEN CIRCLE (618.75, 331.25), 20, _RGB32(200, 50, 50): PAINT (618.75, 331.25), _RGB32(200, 50, 50): x2 = 618.75: y2 = 331.25
267. IF sp2 = 61 THEN CIRCLE (181.25, 393.75), 20, _RGB32(200, 50, 50): PAINT (181.25, 393.74), _RGB32(200, 50, 50): x2 = 181.25: y2 = 393.75
268. IF sp2 = 63 THEN CIRCLE (306.25, 393.75), 20, _RGB32(200, 50, 50): PAINT (306.25, 393.75), _RGB32(200, 50, 50): x2 = 306.25: y2 = 393.75
269. IF sp2 = 65 THEN CIRCLE (431.25, 393.75), 20, _RGB32(200, 50, 50): PAINT (431.25, 393.75), _RGB32(200, 50, 50): x2 = 431.25: y2 = 393.75
270. IF sp2 = 67 THEN CIRCLE (556.25, 393.75), 20, _RGB32(200, 50, 50): PAINT (556.25, 393.75), _RGB32(200, 50, 50): x2 = 556.25: y2 = 393.75
271. IF sp2 = 72 THEN CIRCLE (243.75, 456.25), 20, _RGB32(200, 50, 50): PAINT (243.75, 456.25), _RGB32(200, 50, 50): x2 = 243.75: y2 = 456.25
272. IF sp2 = 74 THEN CIRCLE (368.75, 456.25), 20, _RGB32(200, 50, 50): PAINT (368.75, 456.25), _RGB32(200, 50, 50): x2 = 368.75: y2 = 456.25
273. IF sp2 = 76 THEN CIRCLE (493.75, 456.25), 20, _RGB32(200, 50, 50): PAINT (493.75, 456.25), _RGB32(200, 50, 50): x2 = 493.75: y2 = 456.25
274. IF sp2 = 78 THEN CIRCLE (618.75, 456.25), 20, _RGB32(200, 50, 50): PAINT (618.75, 456.25), _RGB32(200, 50, 50): x2 = 618.75: y2 = 456.25
275. IF sp2 = 81 THEN CIRCLE (181.25, 518.75), 20, _RGB32(200, 50, 50): PAINT (181.25, 518.75), _RGB32(200, 50, 50): x2 = 181.25: y2 = 518.75
276. IF sp2 = 83 THEN CIRCLE (306.25, 518.75), 20, _RGB32(200, 50, 50): PAINT (306.25, 518.75), _RGB32(200, 50, 50): x2 = 306.25: y2 = 518.75
277. IF sp2 = 85 THEN CIRCLE (431.25, 518.75), 20, _RGB32(200, 50, 50): PAINT (431.25, 518.75), _RGB32(200, 50, 50): x2 = 431.25: y2 = 518.75
278. IF sp2 = 87 THEN CIRCLE (556.25, 518.75), 20, _RGB32(200, 50, 50): PAINT (556.25, 518.75), _RGB32(200, 50, 50): x2 = 556.25: y2 = 518.75
279.  
280. 'Check for a jump.
281. IF pv - pv2 = 2 OR pv2 - pv = 2 THEN
282.     IF ph - ph2 = 2 OR ph2 - ph = 2 THEN
283.         IF x1 > x2 THEN stp = -.25
284.         IF x1 < x2 THEN stp = .25
285.         IF y1 > y2 THEN stp2 = -.25
286.         IF y1 < y2 THEN stp2 = .25
287.         yy = y1
288.         FOR xx = x1 TO x2 STEP stp
289.             yy = yy + stp2
290.             IF POINT(xx, yy) = _RGB32(50, 50, 50) THEN
291.                 PAINT (xx, yy), _RGB32(0, 0, 0)
292.                 GOTO nex:
293.             END IF
294.         NEXT xx
295.     END IF
296. END IF
297. nex:
298.  
299.  
300. 'Check for a King.
301. IF ph2 = 1 THEN
302.     k1 = k1 + 1
303.     rking(k1) = red2(ch)
304.     GOSUB drawking:
305. END IF
306. FOR cch = 1 TO 88
307.     IF rking(cch) = red2(cch) AND rking(cch) <> 0 THEN GOSUB drawking:
308. NEXT cch
309.  
310.  
311. 'Check for a win.
312. FOR wx = 0 TO 800
313.     FOR wy = 0 TO 600
314.         IF POINT(wx, wy) = _RGB32(50, 50, 50) THEN GOTO nex3:
315.     NEXT wy
316. NEXT wx
317. COLOR _RGB32(255, 0, 0)
318. LOCATE 3, 87: PRINT "Red Wins!"
319. END
320.  
321. nex3:
322. LOCATE 5, 87: PRINT "           ": LOCATE 6, 87: PRINT "            "
323. LOCATE 7, 87: PRINT "           ": LOCATE 8, 87: PRINT "            "
324. LOCATE 10, 87: PRINT "           ": LOCATE 11, 87: PRINT "            "
325. LOCATE 12, 87: PRINT "           ": LOCATE 13, 87: PRINT "            "
326. LOCATE 15, 87: PRINT "            "
327. GOTO two:
328.  
329. '-----------------------------------------------------------------------------------------------------------
330. 'Player Two
331.  
332. move2:
333. COLOR _RGB32(128, 249, 127)
334. LOCATE 10, 5: PRINT "Horizon": LOCATE 11, 5: INPUT ph4
335. IF ph4 > 8 OR ph4 < 1 THEN GOTO two:
336. IF ph4 <> INT(ph4) THEN GOTO two:
337. COLOR _RGB32(127, 255, 255)
338. LOCATE 12, 5: PRINT "Vertical": LOCATE 13, 5: INPUT pv4
339.  
340. IF pv4 > 8 OR pv4 < 1 THEN GOTO two:
341. IF pv4 <> INT(pv4) THEN GOTO two:
342. ph4$ = STR$(ph4)
343. pv4$ = STR$(pv4)
344. sp4$ = ph4$ + pv4$
345. sp4 = VAL(sp4$)
346. IF sp3 = sp4 THEN GOTO two:
347. IF pv3 = pv4 OR ph3 = ph4 THEN
348.     COLOR _RGB32(255, 0, 0)
349.     LOCATE 15, 5
350.     PRINT "Illegal Move"
351.     GOTO one:
352. END IF
353.  
354. 'Check for red squares.
355. IF sp4 = 11 OR sp4 = 13 OR sp4 = 15 OR sp4 = 17 OR sp4 = 22 OR sp4 = 24 OR sp4 = 26 OR sp4 = 28 THEN
356.     COLOR _RGB32(255, 0, 0)
357.     LOCATE 15, 5
358.     PRINT "Illegal Move"
359.     GOTO two:
360. END IF
361. IF sp4 = 31 OR sp4 = 33 OR sp4 = 35 OR sp4 = 37 OR sp4 = 42 OR sp4 = 44 OR sp4 = 46 OR sp4 = 48 THEN
362.     COLOR _RGB32(255, 0, 0)
363.     LOCATE 15, 5
364.     PRINT "Illegal Move"
365.     GOTO two:
366. END IF
367. IF sp4 = 51 OR sp4 = 53 OR sp4 = 55 OR sp4 = 57 OR sp4 = 62 OR sp4 = 64 OR sp4 = 66 OR sp4 = 68 THEN
368.     COLOR _RGB32(255, 0, 0)
369.     LOCATE 15, 5
370.     PRINT "Illegal Move"
371.     GOTO two:
372. END IF
373. IF sp4 = 71 OR sp4 = 73 OR sp4 = 75 OR sp4 = 77 OR sp4 = 82 OR sp4 = 84 OR sp4 = 86 OR sp4 = 88 THEN
374.     COLOR _RGB32(255, 0, 0)
375.     LOCATE 15, 5
376.     PRINT "Illegal Move"
377.     GOTO two:
378. END IF
379.  
380. black2(ch2) = sp4
381.  
382. 'Draw player two checker in the new square.
383. 'First erase the old checker.
384. IF sp3 = 12 THEN CIRCLE (243.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 81.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 81.25
385. IF sp3 = 14 THEN CIRCLE (368.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 81.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 81.25
386. IF sp3 = 16 THEN CIRCLE (493.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 81.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 81.25
387. IF sp3 = 18 THEN CIRCLE (618.75, 81.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 81.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 81.25
388. IF sp3 = 21 THEN CIRCLE (181.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 143.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 143.75
389. IF sp3 = 23 THEN CIRCLE (306.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 143.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 143.75
390. IF sp3 = 25 THEN CIRCLE (431.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 143.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 143.75
391. IF sp3 = 27 THEN CIRCLE (556.25, 143.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 143.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 143.75
392. IF sp3 = 32 THEN CIRCLE (243.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 206.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 206.25
393. IF sp3 = 34 THEN CIRCLE (368.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 206.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 206.25
394. IF sp3 = 36 THEN CIRCLE (493.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 206.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 206.25
395. IF sp3 = 38 THEN CIRCLE (618.75, 206.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 206.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 206.25
396. IF sp3 = 41 THEN CIRCLE (181.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 268.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 268.75
397. IF sp3 = 43 THEN CIRCLE (306.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 268.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 268.75
398. IF sp3 = 45 THEN CIRCLE (431.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 268.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 268.75
399. IF sp3 = 47 THEN CIRCLE (556.25, 268.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 268.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 268.75
400. IF sp3 = 52 THEN CIRCLE (243.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 331.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 331.25
401. IF sp3 = 54 THEN CIRCLE (368.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 331.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 331.25
402. IF sp3 = 56 THEN CIRCLE (493.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 331.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 331.25
403. IF sp3 = 58 THEN CIRCLE (618.75, 331.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 331.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 331.25
404. IF sp3 = 61 THEN CIRCLE (181.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 393.74), _RGB32(0, 0, 0): x1 = 181.25: y1 = 393.75
405. IF sp3 = 63 THEN CIRCLE (306.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 393.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 393.75
406. IF sp3 = 65 THEN CIRCLE (431.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 393.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 393.75
407. IF sp3 = 67 THEN CIRCLE (556.25, 393.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 393.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 393.75
408. IF sp3 = 72 THEN CIRCLE (243.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (243.75, 456.25), _RGB32(0, 0, 0): x1 = 243.75: y1 = 456.25
409. IF sp3 = 74 THEN CIRCLE (368.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (368.75, 456.25), _RGB32(0, 0, 0): x1 = 368.75: y1 = 456.25
410. IF sp3 = 76 THEN CIRCLE (493.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (493.75, 456.25), _RGB32(0, 0, 0): x1 = 493.75: y1 = 456.25
411. IF sp3 = 78 THEN CIRCLE (618.75, 456.25), 20, _RGB32(0, 0, 0): PAINT (618.75, 456.25), _RGB32(0, 0, 0): x1 = 618.75: y1 = 456.25
412. IF sp3 = 81 THEN CIRCLE (181.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (181.25, 518.75), _RGB32(0, 0, 0): x1 = 181.25: y1 = 518.75
413. IF sp3 = 83 THEN CIRCLE (306.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (306.25, 518.75), _RGB32(0, 0, 0): x1 = 306.25: y1 = 518.75
414. IF sp3 = 85 THEN CIRCLE (431.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (431.25, 518.75), _RGB32(0, 0, 0): x1 = 431.25: y1 = 518.75
415. IF sp3 = 87 THEN CIRCLE (556.25, 518.75), 20, _RGB32(0, 0, 0): PAINT (556.25, 518.75), _RGB32(0, 0, 0): x1 = 556.25: y1 = 518.75
416.  
417. 'Now draw the new checker.
418. IF sp4 = 12 THEN CIRCLE (243.75, 81.25), 20, _RGB32(50, 50, 50): PAINT (243.75, 81.25), _RGB32(50, 50, 50): x2 = 243.75: y2 = 81.25
419. IF sp4 = 14 THEN CIRCLE (368.75, 81.25), 20, _RGB32(50, 50, 50): PAINT (368.75, 81.25), _RGB32(50, 50, 50): x2 = 368.75: y2 = 81.25
420. IF sp4 = 16 THEN CIRCLE (493.75, 81.25), 20, _RGB32(50, 50, 50): PAINT (493.75, 81.25), _RGB32(50, 50, 50): x2 = 493.75: y2 = 81.25
421. IF sp4 = 18 THEN CIRCLE (618.75, 81.25), 20, _RGB32(50, 50, 50): PAINT (618.75, 81.25), _RGB32(50, 50, 50): x2 = 618.75: y2 = 81.25
422. IF sp4 = 21 THEN CIRCLE (181.25, 143.75), 20, _RGB32(50, 50, 50): PAINT (181.25, 143.75), _RGB32(50, 50, 50): x2 = 181.25: y2 = 143.75
423. IF sp4 = 23 THEN CIRCLE (306.25, 143.75), 20, _RGB32(50, 50, 50): PAINT (306.25, 143.75), _RGB32(50, 50, 50): x2 = 306.25: y2 = 143.75
424. IF sp4 = 25 THEN CIRCLE (431.25, 143.75), 20, _RGB32(50, 50, 50): PAINT (431.25, 143.75), _RGB32(50, 50, 50): x2 = 431.25: y2 = 143.75
425. IF sp4 = 27 THEN CIRCLE (556.25, 143.75), 20, _RGB32(50, 50, 50): PAINT (556.25, 143.75), _RGB32(50, 50, 50): x2 = 556.25: y2 = 143.75
426. IF sp4 = 32 THEN CIRCLE (243.75, 206.25), 20, _RGB32(50, 50, 50): PAINT (243.75, 206.25), _RGB32(50, 50, 50): x2 = 243.75: y2 = 206.25
427. IF sp4 = 34 THEN CIRCLE (368.75, 206.25), 20, _RGB32(50, 50, 50): PAINT (368.75, 206.25), _RGB32(50, 50, 50): x2 = 368.75: y2 = 206.25
428. IF sp4 = 36 THEN CIRCLE (493.75, 206.25), 20, _RGB32(50, 50, 50): PAINT (493.75, 206.25), _RGB32(50, 50, 50): x2 = 493.75: y2 = 206.25
429. IF sp4 = 38 THEN CIRCLE (618.75, 206.25), 20, _RGB32(50, 50, 50): PAINT (618.75, 206.25), _RGB32(50, 50, 50): x2 = 618.75: y2 = 206.25
430. IF sp4 = 41 THEN CIRCLE (181.25, 268.75), 20, _RGB32(50, 50, 50): PAINT (181.25, 268.75), _RGB32(50, 50, 50): x2 = 181.25: y2 = 268.75
431. IF sp4 = 43 THEN CIRCLE (306.25, 268.75), 20, _RGB32(50, 50, 50): PAINT (306.25, 268.75), _RGB32(50, 50, 50): x2 = 306.25: y2 = 268.75
432. IF sp4 = 45 THEN CIRCLE (431.25, 268.75), 20, _RGB32(50, 50, 50): PAINT (431.25, 268.75), _RGB32(50, 50, 50): x2 = 431.25: y2 = 268.75
433. IF sp4 = 47 THEN CIRCLE (556.25, 268.75), 20, _RGB32(50, 50, 50): PAINT (556.25, 268.75), _RGB32(50, 50, 50): x2 = 556.25: y2 = 268.75
434. IF sp4 = 52 THEN CIRCLE (243.75, 331.25), 20, _RGB32(50, 50, 50): PAINT (243.75, 331.25), _RGB32(50, 50, 50): x2 = 243.75: y2 = 331.25
435. IF sp4 = 54 THEN CIRCLE (368.75, 331.25), 20, _RGB32(50, 50, 50): PAINT (368.75, 331.25), _RGB32(50, 50, 50): x2 = 368.75: y2 = 331.25
436. IF sp4 = 56 THEN CIRCLE (493.75, 331.25), 20, _RGB32(50, 50, 50): PAINT (493.75, 331.25), _RGB32(50, 50, 50): x2 = 493.75: y2 = 331.25
437. IF sp4 = 58 THEN CIRCLE (618.75, 331.25), 20, _RGB32(50, 50, 50): PAINT (618.75, 331.25), _RGB32(50, 50, 50): x2 = 618.75: y2 = 331.25
438. IF sp4 = 61 THEN CIRCLE (181.25, 393.75), 20, _RGB32(50, 50, 50): PAINT (181.25, 393.74), _RGB32(50, 50, 50): x2 = 181.25: y2 = 393.75
439. IF sp4 = 63 THEN CIRCLE (306.25, 393.75), 20, _RGB32(50, 50, 50): PAINT (306.25, 393.75), _RGB32(50, 50, 50): x2 = 306.25: y2 = 393.75
440. IF sp4 = 65 THEN CIRCLE (431.25, 393.75), 20, _RGB32(50, 50, 50): PAINT (431.25, 393.75), _RGB32(50, 50, 50): x2 = 431.25: y2 = 393.75
441. IF sp4 = 67 THEN CIRCLE (556.25, 393.75), 20, _RGB32(50, 50, 50): PAINT (556.25, 393.75), _RGB32(50, 50, 50): x2 = 556.25: y2 = 393.75
442. IF sp4 = 72 THEN CIRCLE (243.75, 456.25), 20, _RGB32(50, 50, 50): PAINT (243.75, 456.25), _RGB32(50, 50, 50): x2 = 243.75: y2 = 456.25
443. IF sp4 = 74 THEN CIRCLE (368.75, 456.25), 20, _RGB32(50, 50, 50): PAINT (368.75, 456.25), _RGB32(50, 50, 50): x2 = 368.75: y2 = 456.25
444. IF sp4 = 76 THEN CIRCLE (493.75, 456.25), 20, _RGB32(50, 50, 50): PAINT (493.75, 456.25), _RGB32(50, 50, 50): x2 = 493.75: y2 = 456.25
445. IF sp4 = 78 THEN CIRCLE (618.75, 456.25), 20, _RGB32(50, 50, 50): PAINT (618.75, 456.25), _RGB32(50, 50, 50): x2 = 618.75: y2 = 456.25
446. IF sp4 = 81 THEN CIRCLE (181.25, 518.75), 20, _RGB32(50, 50, 50): PAINT (181.25, 518.75), _RGB32(50, 50, 50): x2 = 181.25: y2 = 518.75
447. IF sp4 = 83 THEN CIRCLE (306.25, 518.75), 20, _RGB32(50, 50, 50): PAINT (306.25, 518.75), _RGB32(50, 50, 50): x2 = 306.25: y2 = 518.75
448. IF sp4 = 85 THEN CIRCLE (431.25, 518.75), 20, _RGB32(50, 50, 50): PAINT (431.25, 518.75), _RGB32(50, 50, 50): x2 = 431.25: y2 = 518.75
449. IF sp4 = 87 THEN CIRCLE (556.25, 518.75), 20, _RGB32(50, 50, 50): PAINT (556.25, 518.75), _RGB32(50, 50, 50): x2 = 556.25: y2 = 518.75
450.  
451. 'Check for a jump.
452. IF pv3 - pv4 = 2 OR pv4 - pv3 = 2 THEN
453.     IF ph3 - ph4 = 2 OR ph4 - ph3 = 2 THEN
454.         IF x1 > x2 THEN stp = -.25
455.         IF x1 < x2 THEN stp = .25
456.         IF y1 > y2 THEN stp2 = -.25
457.         IF y1 < y2 THEN stp2 = .25
458.         yy = y1
459.         FOR xx = x1 TO x2 STEP stp
460.             yy = yy + stp2
461.             IF POINT(xx, yy) = _RGB32(200, 50, 50) THEN
462.                 PAINT (xx, yy), _RGB32(0, 0, 0)
463.                 GOTO nex2:
464.             END IF
465.         NEXT xx
466.     END IF
467. END IF
468. nex2:
469.  
470. 'Check for a King.
471. IF ph4 = 8 THEN
472.     k2 = k2 + 1
473.     bking(k2) = black2(ch2)
474.     GOSUB drawking:
475. END IF
476. FOR cch = 1 TO 88
477.     IF bking(cch) = black2(cch) AND bking(cch) <> 0 THEN GOSUB drawking:
478. NEXT cch
479.  
480. 'Check for a win.
481. FOR wx = 0 TO 800
482.     FOR wy = 0 TO 600
483.         IF POINT(wx, wy) = _RGB32(200, 50, 50) THEN GOTO nex4:
484.     NEXT wy
485. NEXT wx
486. COLOR _RGB32(255, 0, 0)
487. LOCATE 3, 87: PRINT "Black Wins!"
488. END
489.  
490. nex4:
491. LOCATE 5, 5: PRINT "           ": LOCATE 6, 5: PRINT "            "
492. LOCATE 7, 5: PRINT "           ": LOCATE 8, 5: PRINT "            "
493. LOCATE 10, 5: PRINT "           ": LOCATE 11, 5: PRINT "            "
494. LOCATE 12, 5: PRINT "           ": LOCATE 13, 5: PRINT "            "
495. LOCATE 15, 5: PRINT "            "
496.  
497. 'Go back to Player One
498. GOTO one:
499.  
500. 'Draw the king symbol on the piece.
501. drawking:
502. LINE (x2 - 10, y2 + 10)-(x2 + 10, y2 + 10), _RGB32(255, 255, 255)
503. LINE (x2 - 10, y2 + 7)-(x2 + 10, y2 + 7), _RGB32(255, 255, 255)
504. LINE (x2 - 10, y2 + 7)-(x2 - 15, y2 - 2), _RGB32(255, 255, 255)
505. CIRCLE (x2 - 15, y2 - 5), 3, _RGB32(255, 255, 255)
506. LINE (x2 - 15, y2 - 2)-(x2 - 5, y2), _RGB32(255, 255, 255)
507. LINE (x2 - 5, y2)-(x2, y2 - 4), _RGB32(255, 255, 255)
508. CIRCLE (x2, y2 - 7), 3, _RGB32(255, 255, 255)
509. LINE (x2 + 10, y2 + 7)-(x2 + 15, y2 - 2), _RGB32(255, 255, 255)
510. CIRCLE (x2 + 15, y2 - 5), 3, _RGB32(255, 255, 255)
511. LINE (x2 + 15, y2 - 2)-(x2 + 5, y2), _RGB32(255, 255, 255)
512. LINE (x2 + 5, y2)-(x2, y2 - 4), _RGB32(255, 255, 255)
513. RETURN
514.  

Title: Re: Checkers
Post by: bplus on February 03, 2020, 10:22:08 pm

Hi Ken,

I checked out your program hoping to help with keeping King crowned but it's too much Ken's style and typing in moves got boring. Oh well, BUT you inspired me to try my hand at it! :) https://www.qb64.org/forum/index.php?topic=2149.0

Title: Re: Checkers
Post by: SierraKen on February 04, 2020, 12:50:34 pm

I agree Bplus, I kinda pushed myself into a corner on that one. But I appreciate you checking it out. Time to think of a new project. :)

Text Only | Text with Attachments