Advertisement
Guest User

collision_prevention_40.bas

a guest
Jun 28th, 2013
129
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.58 KB | None | 0 0
  1. set kernel multisprite
  2. set optimization noinlinedata
  3.  
  4. dim dx = temp1
  5. dim dy = temp2
  6. dim pptr = temp3
  7. dim dir = temp4
  8. dim cf = temp6
  9.  
  10. dim sc0 = score
  11. dim sc1 = score + 1
  12. dim sc2 = score + 2
  13.  
  14. dim jf = c
  15. dim sf = d
  16. dim pno = e
  17. dim pxcnt = f
  18.  
  19. const pxb = player0x
  20. const pyb = player0y
  21.  
  22. const screenheight=80
  23. pfheight = 1
  24.  
  25. mk1
  26.  
  27. gosub define_players
  28. gosub b00
  29.  
  30. pno = 0 : pxcnt = 0 : cf = $FF : jf = $80
  31.  
  32. COLUPF = $92
  33. COLUBK = $9C
  34. COLUP2 = $56
  35. COLUP3 = $46
  36. COLUP4 = $36
  37. COLUP5 = $26
  38.  
  39. player0x = $16 : player1x = $16 : player2x = $16
  40. player3x = $16 : player4x = $16 : player5x = $16
  41. player0y = $0C : player1y = $18 : player2y = $24
  42. player3y = $30 : player4y = $3C : player5y = $48
  43.  
  44. main
  45.  
  46. temp2 = ((jf ^ $80) & INPT4) & $80 : jf = INPT4
  47. if temp2 then pno = pno_tbl[pno]
  48.  
  49. temp2 = ((SWCHA ^ $FF) & sf)/16 : sf = SWCHA
  50. temp2 = (sf/16) ^ $0F
  51. dir = dir_tbl[temp2]
  52.  
  53. if temp2 then gosub move_player
  54.  
  55. no_move
  56. COLUP0 = $1C
  57. COLUP1 = $66
  58.  
  59. drawscreen
  60. goto main
  61.  
  62. move_player
  63.  
  64. gosub test
  65. if !cf then move
  66.  
  67. rem if not odd-diagonal then done
  68. rem else check x, y individually
  69.  
  70. if !dir{0} then move_done
  71. dir = (dir - 1) & 7
  72. gosub test
  73. if !cf then move
  74. dir = (dir + 2) & 7
  75. gosub test
  76. if cf then move_done
  77. move
  78.  
  79. rem adjust player position according to direction
  80.  
  81. pxb[pno] = pxb[pno] + dx_tbl[dir]
  82. pyb[pno] = pyb[pno] + dy_tbl[dir]
  83. temp1 = pxb[pno] : temp2 = pyb[pno]
  84. gosub update_scr
  85. move_done
  86. gosub update_bar
  87. return
  88.  
  89. test
  90. dx = dx_tbl[dir] + pxb[pno] : dy = dy_tbl[dir] + pyb[pno]
  91. pptr = pno_mul_tbl[pno] + dir : cf = $FF
  92. pxcnt = pxcnt + 1
  93. if !pfread(2, 0) then test_done
  94. pxcnt = pxcnt + 1
  95. if !pfread(1, 0) then test_done
  96. pxcnt = pxcnt + 1
  97. if !pfread(3, 0) then test_done
  98. pxcnt = pxcnt + 1
  99. if !pfread(4, 0) then test_done
  100. pxcnt = pxcnt + 1
  101. if !pfread(0, 0) then test_done
  102. cf = cf + 1
  103. test_done
  104. return
  105.  
  106.  
  107. data px_tbl
  108. -16, -15, -13, -10, -9, -10, -13, -15, -16, -15, -13, -10
  109. -21, -20, -19, -18, -17, -18, -19, -20, -21, -20, -19, -18
  110. -24, -24, -20, -17, -17, -19, -21, -22, -24, -24, -20, -17
  111. -24, -22, -20, -18, -17, -20, -21, -23, -24, -22, -20, -18
  112. -23, -20, -20, -20, -18, -21, -21, -21, -23, -20, -20, -20
  113. -24, -21, -21, -17, -17, -19, -21, -24, -24, -21, -21, -17
  114. end
  115.  
  116. data py_tbl
  117. -7, -5, -4, -5, -7, -9, -10, -9, -7, -5, -4, -5
  118. -4, -2, -1, -2, -4, -4, -4, -4, -4, -2, -1, -2
  119. -4, -3, -1, -3, -6, -8, -8, -6, -4, -3, -1, -3
  120. -4, -3, -1, -3, -5, -6, -8, -6, -4, -3, -1, -3
  121. -5, -5, -2, -5, -5, -5, -8, -5, -5, -5, -2, -5
  122. -3, -3, -1, -1, -4, -6, -7, -5, -3, -3, -1, -1
  123. end
  124.  
  125. data dx_tbl
  126. 0, 1, 1, 1, 0, -1, -1, -1
  127. end
  128.  
  129. data dy_tbl
  130. 1, 1, 0, -1, -1, -1, 0, 1
  131. end
  132.  
  133. data dir_tbl
  134. 0, 0, 4, 0, 6, 7, 5, 0, 2, 1, 3
  135. end
  136.  
  137. data pno_tbl
  138. 1, 2, 3, 4, 5, 0
  139. end
  140.  
  141. data pno_mul_tbl
  142. 0, 12, 24, 36, 48, 60
  143. end
  144.  
  145.  
  146. update_scr
  147. sc0 = 0 : sc1 = sc1 & 15
  148. if temp1 >= 100 then sc0 = sc0 + 16 : temp1 = temp1 - 100
  149. if temp1 >= 100 then sc0 = sc0 + 16 : temp1 = temp1 - 100
  150. if temp1 >= 50 then sc0 = sc0 + 5 : temp1 = temp1 - 50
  151. if temp1 >= 30 then sc0 = sc0 + 3 : temp1 = temp1 - 30
  152. if temp1 >= 20 then sc0 = sc0 + 2 : temp1 = temp1 - 20
  153. if temp1 >= 10 then sc0 = sc0 + 1 : temp1 = temp1 - 10
  154. sc1 = (temp1 * 4 * 4) | sc1
  155.  
  156. sc1 = sc1 & 240 : sc2 = 0
  157. if temp2 >= 100 then sc1 = sc1 + 1 : temp2 = temp2 - 100
  158. if temp2 >= 100 then sc1 = sc1 + 1 : temp2 = temp2 - 100
  159. if temp2 >= 50 then sc2 = sc2 + 80 : temp2 = temp2 - 50
  160. if temp2 >= 30 then sc2 = sc2 + 48 : temp2 = temp2 - 30
  161. if temp2 >= 20 then sc2 = sc2 + 32 : temp2 = temp2 - 20
  162. if temp2 >= 10 then sc2 = sc2 + 16 : temp2 = temp2 - 10
  163. sc2 = sc2 | temp2
  164. return
  165.  
  166. asm
  167. pfread
  168. clc
  169. adc pptr
  170. tax
  171. lda py_tbl,x
  172. clc
  173. adc dy
  174. lsr
  175. tay
  176. clc
  177. lda px_tbl,x
  178. adc dx
  179. lsr
  180. lsr
  181. clc
  182. adc #$08
  183. tax
  184. and #$10
  185. bne skip_PF2_and
  186. lda bit_masks-8,x
  187. and (PF1pointer),y
  188. rts
  189. skip_PF2_and
  190. lda bit_masks-8,x
  191. and (PF2pointer),y
  192. rts
  193.  
  194. bit_masks
  195. .byte $80, $40, $20, $10, $08, $04, $02, $01
  196. .byte $01, $02, $04, $08, $10, $20, $40, $80
  197. .byte $80, $40, $20, $10, $08, $04, $02, $01
  198. .byte $01, $02, $04, $08, $10, $20, $40, $80
  199. end
  200.  
  201. mk2
  202.  
  203. asm
  204. echo (.mk2 - .mk1)d
  205. end
  206.  
  207. update_bar
  208. rem if pxcnt > 15 then goto b15
  209. on pxcnt gosub b00 b01 b02 b03 b04 b05 b06 b07 b08 b09 b10 b11 b12 b13 b14 b15
  210. pxcnt = 0
  211. return
  212.  
  213.  
  214. define_players
  215.  
  216. player0:
  217. %00010000
  218. %01000010
  219. %00000000
  220. %10000001
  221. %00000000
  222. %01000010
  223. %00010000
  224. %10000000
  225. end
  226.  
  227. rem 0 0 upper left
  228. rem table order left middle = 0
  229. rem increasing counter clockwise
  230. rem -16 x offset -10 y offset
  231.  
  232. rem 0, 1, 3, 6, 7, 6, 3, 1
  233. rem -16, -15, -13, -10, -9, -10, -13, -15
  234.  
  235. rem 3, 5, 6, 5, 3, 1, 0, 1
  236. rem -7, -5, -4, -5, -7, -9, -10, -9
  237.  
  238. player1:
  239. %00000000
  240. %00000000
  241. %00000000
  242. %00000000
  243. %00011111
  244. %00001110
  245. %00001110
  246. %10000100
  247. end
  248.  
  249. rem 0 0 upper left
  250. rem table order left middle = 0
  251. rem increasing counter clockwise
  252. rem -24 x offset -8 y offset
  253.  
  254. rem 3, 4, 5, 6, 7, 6, 5, 4
  255. rem -21, -20, -19, -18, -17, -18, -19, -20
  256.  
  257. rem 4, 6, 7, 6, 4, 4, 4, 4
  258. rem -4, -2, -1, -2, -4, -4, -4, -4
  259.  
  260. player2:
  261. %00011100
  262. %00000000
  263. %00110001
  264. %00000001
  265. %10000001
  266. %10000001
  267. %00000000
  268. %00011000
  269. end
  270.  
  271. rem 0, 0, 4, 7, 7, 5, 3, 2
  272. rem -24, -24, -20, -17, -17, -19, -21, -22
  273.  
  274. rem 4, 5, 7, 5, 2, 0, 0, 2
  275. rem -4, -3, -1, -3, -6, -8, -8, -6
  276.  
  277. player3:
  278. %00010000
  279. %00010000
  280. %01111000
  281. %00011111
  282. %11111000
  283. %00111110
  284. %00001000
  285. %00001000
  286. end
  287.  
  288. rem 0, 2, 4, 6, 7, 4, 3, 1
  289. rem -24, -22, -20, -18, -17, -20, -21, -23
  290.  
  291. rem 4, 5, 7, 5, 3, 2, 0, 2
  292. rem -4, -3, -1, -3, -5, -6, -8, -6
  293.  
  294. player4:
  295. %00010000
  296. %00010000
  297. %00010000
  298. %01111110
  299. %00001000
  300. %00001000
  301. %00001000
  302. %00000000
  303. end
  304.  
  305. rem 1, 4, 4, 4, 6, 3, 3, 3
  306. rem -23, -20, -20, -20, -18, -21, -21, -21
  307.  
  308. rem 3, 3, 6, 3, 3, 3, 0, 3
  309. rem -5, -5, -2, -5, -5, -5, -8, -5
  310.  
  311.  
  312. player5:
  313. %00000000
  314. %00010000
  315. %00011100
  316. %00110000
  317. %10000001
  318. %10010111
  319. %00010100
  320. %00011100
  321. end
  322. return
  323.  
  324. rem 0, 3, 3, 7, 7, 5, 3, 0
  325. rem -24, -21, -21, -17, -17, -19, -21, -24
  326.  
  327. rem 5, 5, 7, 7, 4, 2, 1, 3
  328. rem -3, -3, -1, -1, -4, -6, -7, -5
  329.  
  330.  
  331.  
  332. b00
  333. playfield:
  334. ................
  335. .X.X.X.X.X.X.X..
  336. ................
  337. ................
  338. ................
  339. ................
  340. ................
  341. ................
  342. .........XXXXXXX
  343. .........X......
  344. .........X......
  345. .........X......
  346. .........X......
  347. .........X......
  348. .........X......
  349. .........X......
  350. .........X......
  351. .........X......
  352. .........X......
  353. .........X......
  354. .........X......
  355. .........X......
  356. .........X......
  357. .........X......
  358. .........X......
  359. .........X......
  360. .........X......
  361. .........X......
  362. .........X......
  363. .........X......
  364. .........X......
  365. .........X......
  366. .........X......
  367. .........XXXXXX.
  368. ................
  369. ................
  370. ................
  371. ................
  372. ................
  373. ................
  374. end
  375. return
  376.  
  377. b01
  378. playfield:
  379. X...............
  380. .X.X.X.X.X.X.X..
  381. ................
  382. ................
  383. ................
  384. ................
  385. ................
  386. ................
  387. .........XXXXXXX
  388. .........X......
  389. .........X......
  390. .........X......
  391. .........X......
  392. .........X......
  393. .........X......
  394. .........X......
  395. .........X......
  396. .........X......
  397. .........X......
  398. .........X......
  399. .........X......
  400. .........X......
  401. .........X......
  402. .........X......
  403. .........X......
  404. .........X......
  405. .........X......
  406. .........X......
  407. .........X......
  408. .........X......
  409. .........X......
  410. .........X......
  411. .........X......
  412. .........XXXXXX.
  413. ................
  414. ................
  415. ................
  416. ................
  417. ................
  418. ................
  419. end
  420. return
  421.  
  422. b02
  423. playfield:
  424. XX..............
  425. .X.X.X.X.X.X.X..
  426. ................
  427. ................
  428. ................
  429. ................
  430. ................
  431. ................
  432. .........XXXXXXX
  433. .........X......
  434. .........X......
  435. .........X......
  436. .........X......
  437. .........X......
  438. .........X......
  439. .........X......
  440. .........X......
  441. .........X......
  442. .........X......
  443. .........X......
  444. .........X......
  445. .........X......
  446. .........X......
  447. .........X......
  448. .........X......
  449. .........X......
  450. .........X......
  451. .........X......
  452. .........X......
  453. .........X......
  454. .........X......
  455. .........X......
  456. .........X......
  457. .........XXXXXX.
  458. ................
  459. ................
  460. ................
  461. ................
  462. ................
  463. ................
  464. end
  465. return
  466.  
  467. b03
  468. playfield:
  469. XXX.............
  470. .X.X.X.X.X.X.X..
  471. ................
  472. ................
  473. ................
  474. ................
  475. ................
  476. ................
  477. .........XXXXXXX
  478. .........X......
  479. .........X......
  480. .........X......
  481. .........X......
  482. .........X......
  483. .........X......
  484. .........X......
  485. .........X......
  486. .........X......
  487. .........X......
  488. .........X......
  489. .........X......
  490. .........X......
  491. .........X......
  492. .........X......
  493. .........X......
  494. .........X......
  495. .........X......
  496. .........X......
  497. .........X......
  498. .........X......
  499. .........X......
  500. .........X......
  501. .........X......
  502. .........XXXXXX.
  503. ................
  504. ................
  505. ................
  506. ................
  507. ................
  508. ................
  509. end
  510. return
  511.  
  512. b04
  513. playfield:
  514. XXXX............
  515. .X.X.X.X.X.X.X..
  516. ................
  517. ................
  518. ................
  519. ................
  520. ................
  521. ................
  522. .........XXXXXXX
  523. .........X......
  524. .........X......
  525. .........X......
  526. .........X......
  527. .........X......
  528. .........X......
  529. .........X......
  530. .........X......
  531. .........X......
  532. .........X......
  533. .........X......
  534. .........X......
  535. .........X......
  536. .........X......
  537. .........X......
  538. .........X......
  539. .........X......
  540. .........X......
  541. .........X......
  542. .........X......
  543. .........X......
  544. .........X......
  545. .........X......
  546. .........X......
  547. .........XXXXXX.
  548. ................
  549. ................
  550. ................
  551. ................
  552. ................
  553. ................
  554. end
  555. return
  556.  
  557. b05
  558. playfield:
  559. XXXXX...........
  560. .X.X.X.X.X.X.X..
  561. ................
  562. ................
  563. ................
  564. ................
  565. ................
  566. ................
  567. .........XXXXXXX
  568. .........X......
  569. .........X......
  570. .........X......
  571. .........X......
  572. .........X......
  573. .........X......
  574. .........X......
  575. .........X......
  576. .........X......
  577. .........X......
  578. .........X......
  579. .........X......
  580. .........X......
  581. .........X......
  582. .........X......
  583. .........X......
  584. .........X......
  585. .........X......
  586. .........X......
  587. .........X......
  588. .........X......
  589. .........X......
  590. .........X......
  591. .........X......
  592. .........XXXXXX.
  593. ................
  594. ................
  595. ................
  596. ................
  597. ................
  598. ................
  599. end
  600. return
  601.  
  602. b06
  603. playfield:
  604. XXXXXX..........
  605. .X.X.X.X.X.X.X..
  606. ................
  607. ................
  608. ................
  609. ................
  610. ................
  611. ................
  612. .........XXXXXXX
  613. .........X......
  614. .........X......
  615. .........X......
  616. .........X......
  617. .........X......
  618. .........X......
  619. .........X......
  620. .........X......
  621. .........X......
  622. .........X......
  623. .........X......
  624. .........X......
  625. .........X......
  626. .........X......
  627. .........X......
  628. .........X......
  629. .........X......
  630. .........X......
  631. .........X......
  632. .........X......
  633. .........X......
  634. .........X......
  635. .........X......
  636. .........X......
  637. .........XXXXXX.
  638. ................
  639. ................
  640. ................
  641. ................
  642. ................
  643. ................
  644. end
  645. return
  646.  
  647. b07
  648. playfield:
  649. XXXXXXX.........
  650. .X.X.X.X.X.X.X..
  651. ................
  652. ................
  653. ................
  654. ................
  655. ................
  656. ................
  657. .........XXXXXXX
  658. .........X......
  659. .........X......
  660. .........X......
  661. .........X......
  662. .........X......
  663. .........X......
  664. .........X......
  665. .........X......
  666. .........X......
  667. .........X......
  668. .........X......
  669. .........X......
  670. .........X......
  671. .........X......
  672. .........X......
  673. .........X......
  674. .........X......
  675. .........X......
  676. .........X......
  677. .........X......
  678. .........X......
  679. .........X......
  680. .........X......
  681. .........X......
  682. .........XXXXXX.
  683. ................
  684. ................
  685. ................
  686. ................
  687. ................
  688. ................
  689. end
  690. return
  691.  
  692. b08
  693. playfield:
  694. XXXXXXXX........
  695. .X.X.X.X.X.X.X..
  696. ................
  697. ................
  698. ................
  699. ................
  700. ................
  701. ................
  702. .........XXXXXXX
  703. .........X......
  704. .........X......
  705. .........X......
  706. .........X......
  707. .........X......
  708. .........X......
  709. .........X......
  710. .........X......
  711. .........X......
  712. .........X......
  713. .........X......
  714. .........X......
  715. .........X......
  716. .........X......
  717. .........X......
  718. .........X......
  719. .........X......
  720. .........X......
  721. .........X......
  722. .........X......
  723. .........X......
  724. .........X......
  725. .........X......
  726. .........X......
  727. .........XXXXXX.
  728. ................
  729. ................
  730. ................
  731. ................
  732. ................
  733. ................
  734. end
  735. return
  736.  
  737. b09
  738. playfield:
  739. XXXXXXXXX.......
  740. .X.X.X.X.X.X.X..
  741. ................
  742. ................
  743. ................
  744. ................
  745. ................
  746. ................
  747. .........XXXXXXX
  748. .........X......
  749. .........X......
  750. .........X......
  751. .........X......
  752. .........X......
  753. .........X......
  754. .........X......
  755. .........X......
  756. .........X......
  757. .........X......
  758. .........X......
  759. .........X......
  760. .........X......
  761. .........X......
  762. .........X......
  763. .........X......
  764. .........X......
  765. .........X......
  766. .........X......
  767. .........X......
  768. .........X......
  769. .........X......
  770. .........X......
  771. .........X......
  772. .........XXXXXX.
  773. ................
  774. ................
  775. ................
  776. ................
  777. ................
  778. ................
  779. end
  780. return
  781.  
  782. b10
  783. playfield:
  784. XXXXXXXXXX......
  785. .X.X.X.X.X.X.X..
  786. ................
  787. ................
  788. ................
  789. ................
  790. ................
  791. ................
  792. .........XXXXXXX
  793. .........X......
  794. .........X......
  795. .........X......
  796. .........X......
  797. .........X......
  798. .........X......
  799. .........X......
  800. .........X......
  801. .........X......
  802. .........X......
  803. .........X......
  804. .........X......
  805. .........X......
  806. .........X......
  807. .........X......
  808. .........X......
  809. .........X......
  810. .........X......
  811. .........X......
  812. .........X......
  813. .........X......
  814. .........X......
  815. .........X......
  816. .........X......
  817. .........XXXXXX.
  818. ................
  819. ................
  820. ................
  821. ................
  822. ................
  823. ................
  824. end
  825. return
  826.  
  827. b11
  828. playfield:
  829. XXXXXXXXXXX.....
  830. .X.X.X.X.X.X.X..
  831. ................
  832. ................
  833. ................
  834. ................
  835. ................
  836. ................
  837. .........XXXXXXX
  838. .........X......
  839. .........X......
  840. .........X......
  841. .........X......
  842. .........X......
  843. .........X......
  844. .........X......
  845. .........X......
  846. .........X......
  847. .........X......
  848. .........X......
  849. .........X......
  850. .........X......
  851. .........X......
  852. .........X......
  853. .........X......
  854. .........X......
  855. .........X......
  856. .........X......
  857. .........X......
  858. .........X......
  859. .........X......
  860. .........X......
  861. .........X......
  862. .........XXXXXX.
  863. ................
  864. ................
  865. ................
  866. ................
  867. ................
  868. ................
  869. end
  870. return
  871.  
  872. b12
  873. playfield:
  874. XXXXXXXXXXXX....
  875. .X.X.X.X.X.X.X..
  876. ................
  877. ................
  878. ................
  879. ................
  880. ................
  881. ................
  882. .........XXXXXXX
  883. .........X......
  884. .........X......
  885. .........X......
  886. .........X......
  887. .........X......
  888. .........X......
  889. .........X......
  890. .........X......
  891. .........X......
  892. .........X......
  893. .........X......
  894. .........X......
  895. .........X......
  896. .........X......
  897. .........X......
  898. .........X......
  899. .........X......
  900. .........X......
  901. .........X......
  902. .........X......
  903. .........X......
  904. .........X......
  905. .........X......
  906. .........X......
  907. .........XXXXXX.
  908. ................
  909. ................
  910. ................
  911. ................
  912. ................
  913. ................
  914. end
  915. return
  916.  
  917. b13
  918. playfield:
  919. XXXXXXXXXXXXX...
  920. .X.X.X.X.X.X.X..
  921. ................
  922. ................
  923. ................
  924. ................
  925. ................
  926. ................
  927. .........XXXXXXX
  928. .........X......
  929. .........X......
  930. .........X......
  931. .........X......
  932. .........X......
  933. .........X......
  934. .........X......
  935. .........X......
  936. .........X......
  937. .........X......
  938. .........X......
  939. .........X......
  940. .........X......
  941. .........X......
  942. .........X......
  943. .........X......
  944. .........X......
  945. .........X......
  946. .........X......
  947. .........X......
  948. .........X......
  949. .........X......
  950. .........X......
  951. .........X......
  952. .........XXXXXX.
  953. ................
  954. ................
  955. ................
  956. ................
  957. ................
  958. ................
  959. end
  960. return
  961.  
  962. b14
  963. playfield:
  964. XXXXXXXXXXXXXX..
  965. .X.X.X.X.X.X.X..
  966. ................
  967. ................
  968. ................
  969. ................
  970. ................
  971. ................
  972. .........XXXXXXX
  973. .........X......
  974. .........X......
  975. .........X......
  976. .........X......
  977. .........X......
  978. .........X......
  979. .........X......
  980. .........X......
  981. .........X......
  982. .........X......
  983. .........X......
  984. .........X......
  985. .........X......
  986. .........X......
  987. .........X......
  988. .........X......
  989. .........X......
  990. .........X......
  991. .........X......
  992. .........X......
  993. .........X......
  994. .........X......
  995. .........X......
  996. .........X......
  997. .........XXXXXX.
  998. ................
  999. ................
  1000. ................
  1001. ................
  1002. ................
  1003. ................
  1004. end
  1005. return
  1006.  
  1007. b15
  1008. playfield:
  1009. XXXXXXXXXXXXXXX.
  1010. .X.X.X.X.X.X.X..
  1011. ................
  1012. ................
  1013. ................
  1014. ................
  1015. ................
  1016. ................
  1017. .........XXXXXXX
  1018. .........X......
  1019. .........X......
  1020. .........X......
  1021. .........X......
  1022. .........X......
  1023. .........X......
  1024. .........X......
  1025. .........X......
  1026. .........X......
  1027. .........X......
  1028. .........X......
  1029. .........X......
  1030. .........X......
  1031. .........X......
  1032. .........X......
  1033. .........X......
  1034. .........X......
  1035. .........X......
  1036. .........X......
  1037. .........X......
  1038. .........X......
  1039. .........X......
  1040. .........X......
  1041. .........X......
  1042. .........XXXXXX.
  1043. ................
  1044. ................
  1045. ................
  1046. ................
  1047. ................
  1048. ................
  1049. end
  1050. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement