« previous next »
Pages: [1]   Go Down

Author Topic: Quake Chess  (Read 5137 times)

0 Members and 1 Guest are viewing this topic.

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Quake Chess
« on: April 01, 2020, 05:32:59 pm »
Hi All,

Inspired by the DOS classic from my youth "Battle Chess" and using models from my favorite shoot em up "Quake" this is a Re-write of a program i made many years ago (never finished it) which i've lost.

For now all you can do is control the pawns (Opposite side i white and goes first)...but i did only start coding this morning...i'll need some help on CPU implementation when i get that far fellas...

Extract the files/folder to your QB64 Directory and load/compile QuakeChess01.bas

Thanks

Unseen
* Quake_Chess.rar (Filesize: 3.95 MB, Downloads: 248)
Logged

Offline Richard Frost

  • Seasoned Forum Regular
  • Posts: 316
  • Needle nardle noo. - Peter Sellers
    • View Profile
Re: Quake Chess
« Reply #1 on: April 01, 2020, 06:08:41 pm »
I'd like to see and run this program, but the only rar extractor I see is NCH Software, which
apparently has a shady past. 

Might you use a more common compression scheme that produces zip files?

Check my insane chess pieces (program posted today) with shift-z.    :)

Logged
It works better if you plug it in.

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Quake Chess
« Reply #2 on: April 01, 2020, 06:19:00 pm »
No problems, and sure ill have a look see at your program in the morning, im off to me bed now but i look forward to your feedback.

Thanks

Unseen

* QuakeChess.zip (Filesize: 3.96 MB, Downloads: 236)
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Quake Chess
« Reply #3 on: April 01, 2020, 06:27:43 pm »
Thanks for zip, Battle Chess brings back memories.
Logged

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Quake Chess
« Reply #4 on: April 03, 2020, 06:40:59 pm »
Hi gang,

Latest code update, should work with the previous file download.

Now you can move all the pieces as they should move.

I need to add piece swapping (when you get a pawn to the other side), castling, checking for check and a few other gameplay bits as well as the animations but you can play a two player game with it now.

Code: QB64: [Select]
  1. '// Quake Chess V.01
  2. '// By John Onyon a.k.a Unseen Machine
  3. '// Created 01/04/2020
  4. '// Last Update 03/04/2020
  6.  
  7. CONST FP = 1, Fixed = 2, Action = 3
  8.  
  9. REM $include:'GDK_GL\GDK_GL.bi'
  10.  
  11. DIM SHARED Init AS _BYTE, Model(5) AS MODEL, Allow_GL AS _BYTE, CamVec AS VECTOR_GL, Floor(1) AS LONG, Flr_Lst AS _UNSIGNED LONG
  12. DIM SHARED CamMode AS _BYTE, Debug%, Limit(3) AS INTEGER, MouseCol%, MouseRow%, Select_Piece%, Plyr%, Selected(1) AS _BYTE, CPU AS _BYTE
  13. DIM SHARED Board(1 TO 8, 1 TO 8) AS Square '// T1: Pawn = 1, Rook = 2, knight = 3, Bishop = 4, King = 5, Queen = 6 / Team 2 = same + 6
  14. DIM Mouse(1) AS MouseState, KB(1) AS KeyBoardState
  15.  
  16. FOR j% = 1 TO 4
  17.   FOR i% = 1 TO 8
  18.     READ Piece%
  19.     SELECT CASE j%
  20.       CASE 1
  21.         Board(i%, 2).PieceID = Piece%
  22.       CASE 2
  23.         Board(i%, 1).PieceID = Piece%
  24.       CASE 3
  25.         Board(i%, 7).PieceID = Piece%
  26.       CASE 4
  27.         Board(i%, 8).PieceID = Piece%
  28.     END SELECT
  29.   NEXT
  31.  
  32. RadHelp# = (4 * ATN(1)) / 180
  33.  
  34. SCREEN _NEWIMAGE(800, 600, 32)
  37. _FPS 30
  38. _MOUSEMOVE 400, 300
  39. GDK_Mouse_GetState Mouse(0)
  40. Mouse(1) = Mouse(0)
  41. CamMode = Fixed
  42. CamVec.Rot.X = 270
  43. CamVec.Rot.Y = 180
  44. CamVec.Pos.Y = 400
  45. Debug% = True
  46. COLOR _RGB32(255, 0, 0), _RGBA32(0, 0, 0, 0)
  47. Select_Piece% = True
  48. Plyr% = 1
  49.  
  50. '// Limit (x,xx,y,yy) 134, 664, 34, 564  '// step 66.25
  51. Limit(0) = 134
  52. Limit(1) = 664
  53. Limit(2) = 34
  54. Limit(3) = 564
  55.  
  56. Allow_GL = True
  57.  
  58.  
  60.   _LIMIT 30
  61.  
  62.   GDK_Keyboard_GetState KB(0)
  63.   GDK_Mouse_GetState Mouse(0) '// Get the mouse state
  64.  
  65.   SELECT CASE CamMode
  66.  
  67.     CASE FP
  68.       CamVec.Rot.X = CamVec.Rot.X + (Mouse(0).Y - Mouse(1).Y)
  69.       CamVec.Rot.Y = CamVec.Rot.Y + (Mouse(0).X - Mouse(1).X)
  70.       IF CamVec.Rot.Y > 360 THEN CamVec.Rot.Y = CamVec.Rot.Y - 360
  71.       StrafeY# = (CamVec.Rot.Y + 90) * RadHelp#
  72.       StrafeX# = (CamVec.Rot.X + 90) * RadHelp#
  73.       IF KB(0).Left THEN
  74.         CamVec.Pos.X = CamVec.Pos.X + SIN(StrafeY#)
  75.         CamVec.Pos.Z = CamVec.Pos.Z - COS(StrafeY#)
  76.       ELSEIF KB(0).Right THEN
  77.         CamVec.Pos.X = CamVec.Pos.X - SIN(StrafeY#)
  78.         CamVec.Pos.Z = CamVec.Pos.Z + COS(StrafeY#)
  79.       END IF
  80.       YSin# = SIN(CamVec.Rot.Y * RadHelp#) * 5
  81.       YCos# = COS(CamVec.Rot.Y * RadHelp#) * 5
  82.       XSin# = SIN(CamVec.Rot.X * RadHelp#) * 5
  83.       IF KB(0).Down THEN
  84.         CamVec.Pos.X = CamVec.Pos.X - YSin#
  85.         CamVec.Pos.Y = CamVec.Pos.Y - XSin#
  86.         CamVec.Pos.Z = CamVec.Pos.Z + YCos#
  87.       ELSEIF KB(0).Up THEN
  88.         CamVec.Pos.X = CamVec.Pos.X + YSin#
  89.         CamVec.Pos.Y = CamVec.Pos.Y + XSin#
  90.         CamVec.Pos.Z = CamVec.Pos.Z - YCos#
  91.       END IF
  92.  
  93.     CASE Fixed
  94.  
  95.       CamVec.Rot.X = 270
  96.       CamVec.Pos.Y = 300
  97.  
  98.       IF Mouse(0).X >= Limit(0) AND Mouse(0).X <= Limit(1) THEN
  99.         IF Mouse(0).Y >= Limit(2) AND Mouse(0).Y <= Limit(3) THEN
  100.           MX% = Mouse(0).X - Limit(0)
  101.           MY% = Mouse(0).Y - Limit(2)
  102.           MouseCol% = 1 + (MX% \ 66.25)
  103.           MouseRow% = 1 + (MY% \ 66.25)
  104.           IF Mouse(0).LB AND NOT Mouse(1).LB THEN '// Selecting a piece to move
  105.             IF Select_Piece% THEN
  106.               IF Plyr% = 1 THEN '// White
  107.                 IF Board(MouseCol%, MouseRow%).PieceID < 7 AND Board(MouseCol%, MouseRow%).PieceID > 0 THEN
  108.                   Selected(0) = MouseCol%
  109.                   Selected(1) = MouseRow%
  110.                   Select_Piece% = False
  111.                 END IF
  112.               ELSEIF Plyr% = 2 THEN '// Black
  113.                 IF CPU = False THEN
  114.                   IF Board(MouseCol%, MouseRow%).PieceID >= 7 THEN
  115.                     Selected(0) = MouseCol%
  116.                     Selected(1) = MouseRow%
  117.                     Select_Piece% = False
  118.                   ELSE '// CPU MOVE
  119.  
  120.                   END IF
  121.                 END IF
  122.               END IF
  123.             ELSE '// Setting destination
  124.  
  125.               SELECT CASE Board(Selected(0), Selected(1)).PieceID
  126.  
  127.                 CASE 1, 7 '// Pawn
  128.  
  129.                   IF MouseCol% <> Selected(0) THEN '// Diagonal attack
  130.                     IF Plyr% = 1 THEN
  131.                       IF MouseRow% = Selected(1) + 1 THEN
  132.                         IF MouseCol% = Selected(0) - 1 OR MouseCol% = Selected(0) + 1 THEN
  133.                           IF Board(MouseCol%, MouseRow%).PieceID >= 7 THEN '// valid attack
  134.                             SWAP Board(MouseCol%, MouseRow%), Board(Selected(0), Selected(1))
  135.                             Board(Selected(0), Selected(1)).PieceID = 0
  136.                             Board(Selected(0), Selected(1)).First_Move = False
  137.                             Plyr% = 2
  138.                           END IF
  139.                         END IF
  140.                       END IF
  141.                     ELSEIF Plyr% = 2 THEN
  142.                       IF CPU = False THEN
  143.                         IF MouseRow% = Selected(1) - 1 THEN
  144.                           IF MouseCol% = Selected(0) - 1 OR MouseCol% = Selected(0) + 1 THEN
  145.                             IF Board(MouseCol%, MouseRow%).PieceID <= 6 AND Board(MouseCol%, MouseRow%).PieceID > 0 THEN '// valid attack
  146.                               SWAP Board(MouseCol%, MouseRow%), Board(Selected(0), Selected(1))
  147.                               Board(Selected(0), Selected(1)).PieceID = 0
  148.                               Board(Selected(0), Selected(1)).First_Move = False
  149.                               Plyr% = 1
  150.                             END IF
  151.                           END IF
  152.                         END IF
  153.                       END IF
  154.                     END IF
  155.                   ELSE
  156.                     IF Board(MouseCol%, MouseRow%).PieceID = 0 THEN
  157.                       IF Plyr% = 1 THEN
  158.                         IF Board(Selected(0), Selected(1)).First_Move = False THEN
  159.                           IF MouseRow% = 3 OR MouseRow% = 4 THEN
  160.                             Board(Selected(0), Selected(1)).First_Move = True
  161.                             SWAP Board(MouseCol%, MouseRow%), Board(Selected(0), Selected(1))
  162.                             Plyr% = 2
  163.                           END IF
  164.                         ELSE
  165.                           IF MouseRow% = Selected(1) + 1 THEN
  166.                             SWAP Board(MouseCol%, MouseRow%), Board(Selected(0), Selected(1))
  167.                             Plyr% = 2
  168.                           END IF
  169.                         END IF
  170.  
  171.                       ELSEIF Plyr% = 2 THEN
  172.                         IF CPU = False THEN
  173.                           IF Board(Selected(0), Selected(1)).First_Move = False THEN
  174.                             IF MouseRow% = 5 OR MouseRow% = 6 THEN
  175.                               Board(Selected(0), Selected(1)).First_Move = True
  176.                               SWAP Board(MouseCol%, MouseRow%), Board(Selected(0), Selected(1))
  177.                               Plyr% = 1
  178.                             END IF
  179.                           ELSE
  180.                             IF MouseRow% = Selected(1) - 1 THEN
  181.                               SWAP Board(MouseCol%, MouseRow%), Board(Selected(0), Selected(1))
  182.                               Plyr% = 1
  183.                             END IF
  184.                           END IF
  185.                         END IF
  186.                       END IF
  187.                     END IF
  188.                   END IF
  189.  
  190.                 CASE 2, 8 '// rook
  191.  
  192.                   IF MouseCol% = Selected(0) THEN '// Vertical move
  193.                     IF MouseRow% > Selected(1) THEN StepVal% = 1 ELSE IF MouseRow% < Selected(1) THEN StepVal% = -1 ELSE GOTO Skip_Case
  194.  
  195.                     FOR Row% = Selected(1) + StepVal% TO MouseRow% STEP StepVal%
  196.                       IF Board(Selected(0), Row%).PieceID > 0 THEN
  197.                         IF Row% = MouseRow% THEN '// Attacking move
  198.                           IF Plyr% = 1 THEN
  199.                             IF Board(Selected(0), Row%).PieceID <= 6 THEN GOTO Skip_Case
  200.                           ELSEIF Plyr% = 2 THEN
  201.                             IF Board(Selected(0), Row%).PieceID >= 7 THEN GOTO Skip_Case
  202.                           END IF
  203.                           Board(MouseCol%, MouseRow%).PieceID = 0
  204.                           Board(MouseCol%, MouseRow%).First_Move = False
  205.                           SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  206.                         ELSE '// Invalid move
  207.                           GOTO Skip_Case
  208.                         END IF
  209.                       ELSE
  210.                         IF Row% = MouseRow% THEN SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  211.                       END IF
  212.                     NEXT
  213.  
  214.                     IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  215.  
  216.                   ELSEIF MouseRow% = Selected(1) THEN '// Horizontal move
  217.                     IF MouseCol% > Selected(0) THEN StepVal% = 1 ELSE IF MouseCol% < Selected(0) THEN StepVal% = -1 ELSE GOTO Skip_Case
  218.  
  219.                     FOR Col% = Selected(0) + StepVal% TO MouseCol% STEP StepVal%
  220.                       IF Board(Col%, Selected(1)).PieceID > 0 THEN
  221.                         IF Row% = MouseRow% THEN '// Attacking move
  222.                           IF Plyr% = 1 THEN
  223.                             IF Board(Col%, Selected(1)).PieceID <= 6 THEN GOTO Skip_Case
  224.                           ELSEIF Plyr% = 2 THEN
  225.                             IF Board(Col%, Selected(1)).PieceID >= 7 THEN GOTO Skip_Case
  226.                           END IF
  227.                           Board(MouseCol%, MouseRow%).PieceID = 0
  228.                           Board(MouseCol%, MouseRow%).First_Move = False
  229.                           SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  230.                         ELSE '// Invalid move
  231.                           GOTO Skip_Case
  232.                         END IF
  233.                       ELSE
  234.                         IF Col% = MouseCol% THEN SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  235.                       END IF
  236.                     NEXT
  237.  
  238.                     IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  239.  
  240.                   END IF
  241.  
  242.                 CASE 3, 9 '// bishop
  243.  
  244.                   IF MouseRow% > Selected(1) THEN
  245.                     RowDif% = MouseRow% - Selected(1)
  246.                     Y_Inc% = 1
  247.                   ELSEIF MouseRow% < Selected(1) THEN
  248.                     RowDif% = Selected(1) - MouseRow%
  249.                     Y_Inc% = -1
  250.                   END IF
  251.  
  252.                   IF MouseCol% > Selected(0) THEN
  253.                     ColDif% = MouseCol% - Selected(0)
  254.                     X_Inc% = 1
  255.                   ELSEIF MouseCol% < Selected(0) THEN
  256.                     ColDif% = Selected(0) - MouseCol%
  257.                     X_Inc% = -1
  258.                   END IF
  259.  
  260.                   IF RowDif% = ColDif% THEN '// Might be a valid move, check for stuff in the way
  261.  
  262.                     Row% = Selected(1) + Y_Inc%
  263.                     FOR Col% = Selected(0) + X_Inc% TO MouseCol% STEP X_Inc%
  264.                       IF Board(Col%, Row%).PieceID > 0 THEN '// Something on the square
  265.                         IF Col% = MouseCol% THEN
  266.                           IF Plyr% = 1 THEN
  267.                             IF Board(Col%, Row%).PieceID > 6 THEN
  268.                               Board(Col%, Row%).PieceID = 0
  269.                               Board(Col%, Row%).First_Move = False
  270.                               SWAP Board(Col%, Row%), Board(Selected(0), Selected(1))
  271.  
  272.                               IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  273.  
  274.                             ELSE
  275.                               GOTO Skip_Case
  276.                             END IF
  277.                           ELSE
  278.                             IF Board(Col%, Row%).PieceID <= 6 THEN
  279.                               Board(Col%, Row%).PieceID = 0
  280.                               Board(Col%, Row%).First_Move = False
  281.                               SWAP Board(Col%, Row%), Board(Selected(0), Selected(1))
  282.  
  283.                               IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  284.  
  285.                             ELSE
  286.                               GOTO Skip_Case
  287.                             END IF
  288.                           END IF
  289.                         ELSE
  290.                           GOTO Skip_Case '// illegal move
  291.                         END IF
  292.                       ELSE
  293.                         IF Col% = MouseCol% THEN
  294.                           SWAP Board(Col%, Row%), Board(Selected(0), Selected(1))
  295.  
  296.                           IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  297.  
  298.                         END IF
  299.                       END IF
  300.                       Row% = Row% + Y_Inc%
  301.                     NEXT
  302.                   ELSE
  303.                     GOTO Skip_Case
  304.                   END IF
  305.  
  306.                 CASE 4, 10 '// knight
  307.  
  308.                   IF MouseRow% > Selected(1) THEN
  309.                     RowDif% = MouseRow% - Selected(1)
  310.                   ELSEIF MouseRow% < Selected(1) THEN
  311.                     RowDif% = Selected(1) - MouseRow%
  312.                   ELSE
  313.                     GOTO Skip_Case '// Invalid move
  314.                   END IF
  315.  
  316.                   IF MouseCol% > Selected(0) THEN
  317.                     ColDif% = MouseCol% - Selected(0)
  318.                   ELSEIF MouseCol% < Selected(0) THEN
  319.                     ColDif% = Selected(0) - MouseCol%
  320.                   ELSE
  321.                     GOTO Skip_Case '// Invalise move
  322.                   END IF
  323.  
  324.                   IF (RowDif% = 2 AND ColDif% = 1) OR (RowDif% = 1 AND ColDif% = 2) THEN
  325.                     IF Plyr% = 1 THEN
  326.                       IF Board(MouseCol%, MouseRow%).PieceID = 0 OR Board(MouseCol%, MouseRow%).PieceID > 6 THEN
  327.                         Board(MouseCol%, MouseRow%).PieceID = 0
  328.                         Board(MouseCol%, MouseRow%).First_Move = False
  329.                         SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  330.  
  331.                         IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  332.  
  333.                       ELSE '// invalid move - own piece on that space
  334.                         GOTO Skip_Case
  335.                       END IF
  336.                     ELSE
  337.                       IF Board(MouseCol%, MouseRow%).PieceID = 0 OR Board(MouseCol%, MouseRow%).PieceID < 7 THEN
  338.                         Board(MouseCol%, MouseRow%).PieceID = 0
  339.                         Board(MouseCol%, MouseRow%).First_Move = False
  340.                         SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  341.  
  342.                         IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  343.  
  344.                       ELSE '// invalid move - own piece on that space
  345.                         GOTO Skip_Case
  346.                       END IF
  347.  
  348.                     END IF
  349.                   ELSE
  350.                     GOTO Skip_Case '// Invalid move
  351.                   END IF
  352.  
  353.  
  354.                 CASE 5, 11 '// King
  355.  
  356.                   IF MouseRow% > Selected(1) THEN
  357.                     RowDif% = MouseRow% - Selected(1)
  358.                   ELSEIF MouseRow% < Selected(1) THEN
  359.                     RowDif% = Selected(1) - MouseRow%
  360.                   ELSE
  361.                     RowDif% = 0
  362.                   END IF
  363.  
  364.                   IF MouseCol% > Selected(0) THEN
  365.                     ColDif% = MouseCol% - Selected(0)
  366.                   ELSEIF MouseCol% < Selected(0) THEN
  367.                     ColDif% = Selected(0) - MouseCol%
  368.                   ELSE
  369.                     ColDif% = 0
  370.                   END IF
  371.  
  372.                   IF ColDif% <= 1 AND RowDif% <= 1 THEN
  373.                     IF Plyr% = 1 THEN
  374.                       IF Board(MouseCol%, MouseRow%).PieceID = 0 OR Board(MouseCol%, MouseRow%).PieceID > 6 THEN
  375.                         Board(MouseCol%, MouseRow%).PieceID = 0
  376.                         Board(MouseCol%, MouseRow%).First_Move = False
  377.                         SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  378.  
  379.                         IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  380.  
  381.                       ELSE
  382.                         GOTO Skip_Case
  383.                       END IF
  384.                     ELSE
  385.                       IF Board(MouseCol%, MouseRow%).PieceID = 0 OR Board(MouseCol%, MouseRow%).PieceID < 7 THEN
  386.                         Board(MouseCol%, MouseRow%).PieceID = 0
  387.                         Board(MouseCol%, MouseRow%).First_Move = False
  388.                         SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  389.                         IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  390.  
  391.                       ELSE
  392.                         GOTO Skip_Case
  393.                       END IF
  394.                     END IF
  395.                   ELSE
  396.                     GOTO Skip_Case
  397.                   END IF
  398.  
  399.                 CASE 6, 12 '// queen '// Mixture of rook and bishop movement
  400.  
  401.                   IF MouseCol% = Selected(0) THEN '// Vertical move
  402.                     IF MouseRow% > Selected(1) THEN StepVal% = 1 ELSE IF MouseRow% < Selected(1) THEN StepVal% = -1 ELSE GOTO Skip_Case
  403.  
  404.                     FOR Row% = Selected(1) + StepVal% TO MouseRow% STEP StepVal%
  405.                       IF Board(Selected(0), Row%).PieceID > 0 THEN
  406.                         IF Row% = MouseRow% THEN '// Attacking move
  407.                           IF Plyr% = 1 THEN
  408.                             IF Board(Selected(0), Row%).PieceID <= 6 THEN GOTO Skip_Case
  409.                           ELSEIF Plyr% = 2 THEN
  410.                             IF Board(Selected(0), Row%).PieceID >= 7 THEN GOTO Skip_Case
  411.                           END IF
  412.                           Board(MouseCol%, MouseRow%).PieceID = 0
  413.                           Board(MouseCol%, MouseRow%).First_Move = False
  414.                           SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  415.                         ELSE '// Invalid move
  416.                           GOTO Skip_Case
  417.                         END IF
  418.                       ELSE
  419.                         IF Row% = MouseRow% THEN SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  420.                       END IF
  421.                     NEXT
  422.  
  423.                     IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  424.  
  425.                   ELSEIF MouseRow% = Selected(1) THEN '// Horizontal move
  426.                     IF MouseCol% > Selected(0) THEN StepVal% = 1 ELSE IF MouseCol% < Selected(0) THEN StepVal% = -1 ELSE GOTO Skip_Case
  427.  
  428.                     FOR Col% = Selected(0) + StepVal% TO MouseCol% STEP StepVal%
  429.                       IF Board(Col%, Selected(1)).PieceID > 0 THEN
  430.                         IF Row% = MouseRow% THEN '// Attacking move
  431.                           IF Plyr% = 1 THEN
  432.                             IF Board(Col%, Selected(1)).PieceID <= 6 THEN GOTO Skip_Case
  433.                           ELSEIF Plyr% = 2 THEN
  434.                             IF Board(Col%, Selected(1)).PieceID >= 7 THEN GOTO Skip_Case
  435.                           END IF
  436.                           Board(MouseCol%, MouseRow%).PieceID = 0
  437.                           Board(MouseCol%, MouseRow%).First_Move = False
  438.                           SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  439.                         ELSE '// Invalid move
  440.                           GOTO Skip_Case
  441.                         END IF
  442.                       ELSE
  443.                         IF Col% = MouseCol% THEN SWAP Board(Selected(0), Selected(1)), Board(MouseCol%, MouseRow%)
  444.                       END IF
  445.                     NEXT
  446.  
  447.                     IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  448.  
  449.                   ELSE '// Diagonal move
  450.  
  451.                     IF MouseRow% > Selected(1) THEN
  452.                       RowDif% = MouseRow% - Selected(1)
  453.                       Y_Inc% = 1
  454.                     ELSEIF MouseRow% < Selected(1) THEN
  455.                       RowDif% = Selected(1) - MouseRow%
  456.                       Y_Inc% = -1
  457.                     END IF
  458.  
  459.                     IF MouseCol% > Selected(0) THEN
  460.                       ColDif% = MouseCol% - Selected(0)
  461.                       X_Inc% = 1
  462.                     ELSEIF MouseCol% < Selected(0) THEN
  463.                       ColDif% = Selected(0) - MouseCol%
  464.                       X_Inc% = -1
  465.                     END IF
  466.  
  467.                     IF RowDif% = ColDif% THEN '// Might be a valid move, check for stuff in the way
  468.  
  469.                       Row% = Selected(1) + Y_Inc%
  470.                       FOR Col% = Selected(0) + X_Inc% TO MouseCol% STEP X_Inc%
  471.                         IF Board(Col%, Row%).PieceID > 0 THEN '// Something on the square
  472.                           IF Col% = MouseCol% THEN
  473.                             IF Plyr% = 1 THEN
  474.                               IF Board(Col%, Row%).PieceID > 6 THEN
  475.                                 Board(Col%, Row%).PieceID = 0
  476.                                 Board(Col%, Row%).First_Move = False
  477.                                 SWAP Board(Col%, Row%), Board(Selected(0), Selected(1))
  478.  
  479.                                 IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  480.  
  481.                               ELSE
  482.                                 GOTO Skip_Case
  483.                               END IF
  484.                             ELSE
  485.                               IF Board(Col%, Row%).PieceID <= 6 THEN
  486.                                 Board(Col%, Row%).PieceID = 0
  487.                                 Board(Col%, Row%).First_Move = False
  488.                                 SWAP Board(Col%, Row%), Board(Selected(0), Selected(1))
  489.  
  490.                                 IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  491.  
  492.                               ELSE
  493.                                 GOTO Skip_Case
  494.                               END IF
  495.                             END IF
  496.                           ELSE
  497.                             GOTO Skip_Case '// illegal move
  498.                           END IF
  499.                         ELSE
  500.                           IF Col% = MouseCol% THEN
  501.                             SWAP Board(Col%, Row%), Board(Selected(0), Selected(1))
  502.  
  503.                             IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  504.  
  505.                           END IF
  506.                         END IF
  507.                         Row% = Row% + Y_Inc%
  508.                       NEXT
  509.                     ELSE
  510.                       GOTO Skip_Case
  511.                     END IF
  512.                   END IF
  513.  
  514.  
  515.               END SELECT
  516.  
  517.               Select_Piece% = True
  518.  
  519.             END IF
  520.           END IF
  521.         END IF
  522.       END IF
  523.  
  524.     CASE Action
  525.  
  527.  
  528.   Skip_Case:
  529.  
  530.  
  531.   IF Debug% THEN
  532.     CLS
  533.     LOCATE 1, 1
  534.     PRINT "MOUSE (X,Y) : "; Mouse(0).X; Mouse(0).Y
  535.     PRINT "Col/Row : "; MouseCol%; MouseRow%
  536.     PRINT "Selected Col/Row : "; Selected(0); Selected(1)
  537.   END IF
  538.  
  539.   KB(1) = KB(0)
  540.   Mouse(1) = Mouse(0)
  541.  
  543.  
  545.  
  546. DATA 1,1,1,1,1,1,1,1
  547. DATA 2,4,3,6,5,3,4,2
  548. DATA 7,7,7,7,7,7,7,7
  549. DATA 8,10,9,12,11,9,10,8
  550.  
  551.  
  552. REM $include:'GDK_GL\GDK_GL.bm'
  553. REM $include:'UnseenGDK.bm'
  554.  
  555.  
  556. TYPE Square
  557.   PieceID AS _BYTE
  558.   Anim AS ANIMATION
  559.   Destination AS STRING * 2 '// If > 0 then destination square is col, row
  560.   First_Move AS _BYTE
  562.  
  563.  
  564. SUB _GL
  565.  
  566.   IF Allow_GL THEN
  567.  
  569.     _glClearColor 0, 0, 0, 1
  570.     _glEnable _GL_DEPTH_TEST
  571.     _glEnable _GL_TEXTURE_2D
  572.     _glMatrixMode _GL_PROJECTION
  574.     _gluPerspective 80, 800 / 600, 1, 2000
  575.     _glMatrixMode _GL_MODELVIEW
  577.     _glViewport 0, 0, 800, 600
  578.  
  579.     IF Init = False THEN
  580.  
  581.       IF NOT GDK_GL_MODEL_LOAD(Model(0), "GDK_Gl\QuakeChess\zombie.mdl") THEN PRINT "Failed to load model." '// Pawn
  582.       IF NOT GDK_GL_MODEL_LOAD(Model(1), "GDK_Gl\QuakeChess\ogre.mdl") THEN PRINT "Failed to load model." '// Rook
  583.       IF NOT GDK_GL_MODEL_LOAD(Model(2), "GDK_Gl\QuakeChess\wizard.mdl") THEN PRINT "Failed to load model." '// Bishop
  584.       IF NOT GDK_GL_MODEL_LOAD(Model(3), "GDK_Gl\QuakeChess\knight.mdl") THEN PRINT "Failed to load model." '// Knight
  585.       IF NOT GDK_GL_MODEL_LOAD(Model(4), "GDK_Gl\QuakeChess\soldier.mdl") THEN PRINT "Failed to load model." '// King
  586.       IF NOT GDK_GL_MODEL_LOAD(Model(5), "GDK_Gl\QuakeChess\demon.mdl") THEN PRINT "Failed to load model." '// Queen
  587.  
  588.       Floor(0) = GDK_GL_LOAD_TEXTURE("GDK_GL\QuakeChess\FloorRed.png")
  589.       Floor(1) = GDK_GL_LOAD_TEXTURE("GDK_GL\QuakeChess\FloorWhite.png")
  590.  
  591.       Flr_Lst = _glGenLists(1)
  592.       _glNewList Flr_Lst, _GL_COMPILE
  593.       FloorZ% = -200
  594.       FloorY% = 20
  595.       FOR j% = 1 TO 8
  596.         FloorX% = -200
  597.         FOR i% = 1 TO 8
  598.           IF White% THEN
  599.             GDK_GL_SET_TEXTURE Floor(1)
  600.             White% = False
  601.           ELSE
  602.             GDK_GL_SET_TEXTURE Floor(0)
  603.             White% = True
  604.           END IF
  605.           _glBegin _GL_QUADS
  606.           _glTexCoord2f 0, 0: _glVertex3f FloorX%, FloorY% - 50, FloorZ%
  607.           _glTexCoord2f 0, 1: _glVertex3f FloorX% + 50, FloorY% - 50, FloorZ%
  608.           _glTexCoord2f 1, 1: _glVertex3f FloorX% + 50, FloorY% - 50, FloorZ% + 50
  609.           _glTexCoord2f 1, 0: _glVertex3f FloorX%, FloorY% - 50, FloorZ% + 50
  610.           _glEnd
  611.           FloorX% = FloorX% + 50
  612.         NEXT
  613.         FloorZ% = FloorZ% + 50
  614.         IF White% THEN White% = False ELSE White% = True
  615.       NEXT
  616.       _glEndList
  617.  
  618.       Init = True
  619.  
  620.     ELSE
  621.  
  622.       GDK_GL_CLS
  623.  
  624.       '// Set the view to the cameras position
  625.       GDK_GL_VECTOR_APPLY_RT CamVec
  626.  
  627.       _glCallList Flr_Lst
  628.  
  629.       FloorZ% = -175
  630.       FloorY% = -55
  631.       FOR j% = 1 TO 8
  632.         FloorX% = 175
  633.         FOR i% = 1 TO 8
  634.           _glPushMatrix
  635.           _glTranslatef FloorX%, FloorY%, FloorZ%
  636.           _glRotatef 180, 0, 0, 1
  637.           IF Board(i%, j%).PieceID < 7 THEN _glRotatef 270, 0, 1, 0 ELSE _glRotatef 90, 0, 1, 0
  638.  
  639.           _glRotatef 270, 1, 0, 0
  640.  
  641.           SELECT CASE Board(i%, j%).PieceID
  642.             CASE 1, 7 '// Pawns
  643.               GDK_GL_MODEL_DRAW Model(0), 1
  644.             CASE 2, 8 '// Rook
  645.               GDK_GL_MODEL_DRAW Model(1), 1
  646.             CASE 3, 9 '// Bishop
  647.               GDK_GL_MODEL_DRAW Model(2), 1
  648.             CASE 4, 10 '// Knight
  649.               GDK_GL_MODEL_DRAW Model(3), 1
  650.             CASE 5, 11 '// King
  651.               GDK_GL_MODEL_DRAW Model(4), 1
  652.             CASE 6, 12 '// Queen
  653.               GDK_GL_MODEL_DRAW Model(5), 1
  654.           END SELECT
  655.           _glPopMatrix
  656.           FloorX% = FloorX% - 50
  657.         NEXT
  658.         FloorZ% = FloorZ% + 50
  659.       NEXT
  660.     END IF
  661.   END IF
  662.  
  664.  
  665.  
  666.  

Thanks

Unseen
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Quake Chess
« Reply #5 on: April 03, 2020, 07:26:03 pm »
Hi Unseen
fine vision from above the chessboard.
But I don't know why I cannot move any piece.... Yes mouse cohordinates and detection is good but no movement of pieces.

---------
in Kubuntu I got a system error for parameters for GDK_GL_NewVector ... it is because QB64 IDE doesn't recognize the code of the file .BI included into the .BM file that is included into  source code. So under kubuntu I cannot compile it!
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Quake Chess
« Reply #6 on: April 03, 2020, 07:38:46 pm »
Quote
But I don't know why I cannot move any piece.... Yes mouse cohordinates and detection is good but no movement of pieces.

Yeah mouse input is a bit dodgy..i dunno why though right now. The top set of pieces must move first, once youve selected a piece the debug read out should tell you the selected column/row its on.

As for linux, i dunno my man...im making this on an old XP laptop!

Thanks for trying it though and i appreaiate the feedback.

Unseen
QuakeChess.PNG
* QuakeChess.PNG (Filesize: 810.13 KB, Dimensions: 806x632, Views: 331)
« Last Edit: April 03, 2020, 07:43:01 pm by Unseen Machine »
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: Quake Chess
« Reply #7 on: April 04, 2020, 06:02:52 pm »
Hi Unseen

I try again with a second compiling and now I am able to move pieces.
I'll follow the further developing , very interesting the structure for object graphic routines.

Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Quake Chess
« Reply #8 on: April 07, 2020, 06:42:35 pm »
Hi all,

Here's the latest update. Now has standing and walking animations, dont move the knights yet though as they need a bit more code to make them work properly. Once ive done that bit ill be adding fight scenes and then attempting vs CPU....

Should still work with the files from the first post...

Code: QB64: [Select]
  1. '// Quake Chess V.01
  2. '// By John Onyon a.k.a Unseen Machine
  3. '// Created 01/04/2020
  4. '// Last Update 07/04/2020
  5.  
  6. REM $include:'GDK_GL\GDK_GL.bi'
  7.  
  8. CONST FP = 1, Fixed = 2, Action = 3, Battle = 4
  9. CONST Standing = 1, Walking = 2, Attack = 3, BeingHit = 4, Falling = 5 '// Animation ref constants
  10. CONST North = 270, NE = 315, East = 360, SE = 45, South = 90, SW = 135, West = 180, NW = 225 '// Rotation Direction Constants
  11.  
  12. DIM SHARED Init AS _BYTE, Model(5) AS MODEL, Allow_GL AS _BYTE, CamVec AS VECTOR_GL, Floor(1) AS LONG, Flr_Lst AS _UNSIGNED LONG
  13. DIM SHARED CamMode AS _BYTE, Debug%, Limit(3) AS INTEGER, MouseCol%, MouseRow%, Select_Piece%, Plyr%, Selected(1) AS _BYTE, CPU AS _BYTE
  14. DIM SHARED Board(1 TO 8, 1 TO 8) AS Square '// T1: Pawn = 1, Rook = 2, knight = 3, Bishop = 4, King = 5, Queen = 6 / Team 2 = same + 6
  15. DIM SHARED Anim(5, 1 TO 5) AS ANIMATION '// Standing, Walking, Running, Attacking, Falling
  16. DIM Mouse(1) AS MouseState, KB(1) AS KeyBoardState
  17. DIM SHARED Moving AS _BYTE '// If true destination then something is moving
  18. DIM SHARED Blank_Square AS Square '// Used for easily resetting squares
  19.  
  20. RadHelp# = (4 * ATN(1)) / 180
  21.  
  22. SCREEN _NEWIMAGE(800, 600, 32)
  25. _FPS 30
  26.  
  27. CamMode = Fixed
  28. CamVec.Rot.X = 270: CamVec.Rot.Y = 180: CamVec.Pos.Y = 400
  29. Debug% = True
  30. COLOR _RGB32(255, 0, 0), _RGBA32(0, 0, 0, 0)
  31. Select_Piece% = True
  32. Plyr% = 1
  33.  
  34. '// Limit (x,xx,y,yy) 134, 664, 34, 564  '// step 66.25
  35. Limit(0) = 134: Limit(1) = 664: Limit(2) = 34: Limit(3) = 564
  36.  
  37. Allow_GL = True
  38.  
  40.   _LIMIT 30
  41.  
  42.   GDK_Keyboard_GetState KB(0)
  43.   GDK_Mouse_GetState Mouse(0) '// Get the mouse state
  44.  
  45.   SELECT CASE CamMode
  46.  
  47.     CASE FP
  48.       CamVec.Rot.X = CamVec.Rot.X + (Mouse(0).Y - Mouse(1).Y)
  49.       CamVec.Rot.Y = CamVec.Rot.Y + (Mouse(0).X - Mouse(1).X)
  50.       IF CamVec.Rot.Y > 360 THEN CamVec.Rot.Y = CamVec.Rot.Y - 360
  51.       StrafeY# = (CamVec.Rot.Y + 90) * RadHelp#
  52.       StrafeX# = (CamVec.Rot.X + 90) * RadHelp#
  53.       IF KB(0).Left THEN
  54.         CamVec.Pos.X = CamVec.Pos.X + SIN(StrafeY#)
  55.         CamVec.Pos.Z = CamVec.Pos.Z - COS(StrafeY#)
  56.       ELSEIF KB(0).Right THEN
  57.         CamVec.Pos.X = CamVec.Pos.X - SIN(StrafeY#)
  58.         CamVec.Pos.Z = CamVec.Pos.Z + COS(StrafeY#)
  59.       END IF
  60.       YSin# = SIN(CamVec.Rot.Y * RadHelp#) * 5
  61.       YCos# = COS(CamVec.Rot.Y * RadHelp#) * 5
  62.       XSin# = SIN(CamVec.Rot.X * RadHelp#) * 5
  63.       IF KB(0).Down THEN
  64.         CamVec.Pos.X = CamVec.Pos.X - YSin#
  65.         CamVec.Pos.Y = CamVec.Pos.Y - XSin#
  66.         CamVec.Pos.Z = CamVec.Pos.Z + YCos#
  67.       ELSEIF KB(0).Up THEN
  68.         CamVec.Pos.X = CamVec.Pos.X + YSin#
  69.         CamVec.Pos.Y = CamVec.Pos.Y + XSin#
  70.         CamVec.Pos.Z = CamVec.Pos.Z - YCos#
  71.       END IF
  72.  
  73.     CASE Fixed
  74.  
  75.       CamVec.Rot.X = 270
  76.       CamVec.Pos.Y = 300
  77.  
  78.       IF Mouse(0).X >= Limit(0) AND Mouse(0).X <= Limit(1) THEN
  79.         IF Mouse(0).Y >= Limit(2) AND Mouse(0).Y <= Limit(3) THEN
  80.           MX% = Mouse(0).X - Limit(0)
  81.           MY% = Mouse(0).Y - Limit(2)
  82.           MouseCol% = 1 + (MX% \ 66.25)
  83.           MouseRow% = 1 + (MY% \ 66.25)
  84.           IF Mouse(0).LB AND NOT Mouse(1).LB THEN '// Selecting a piece to move
  85.             IF Select_Piece% THEN
  86.               IF Plyr% = 1 THEN '// White
  87.                 IF Board(MouseCol%, MouseRow%).PieceID < 7 AND Board(MouseCol%, MouseRow%).PieceID > 0 THEN
  88.                   Selected(0) = MouseCol%
  89.                   Selected(1) = MouseRow%
  90.                   Select_Piece% = False
  91.                 END IF
  92.               ELSEIF Plyr% = 2 THEN '// Black
  93.                 IF CPU = False THEN
  94.                   IF Board(MouseCol%, MouseRow%).PieceID >= 7 THEN
  95.                     Selected(0) = MouseCol%
  96.                     Selected(1) = MouseRow%
  97.                     Select_Piece% = False
  98.                   ELSE '// CPU MOVE
  99.  
  100.                   END IF
  101.                 END IF
  102.               END IF
  103.             ELSE '// Setting destination
  104.  
  105.               SELECT CASE Board(Selected(0), Selected(1)).PieceID
  106.  
  107.                 CASE 1, 7 '// Pawn
  108.  
  109.                   IF MouseCol% <> Selected(0) THEN '// Diagonal attack
  110.                     IF Plyr% = 1 THEN
  111.                       IF MouseRow% = Selected(1) + 1 THEN
  112.                         IF MouseCol% = Selected(0) - 1 OR MouseCol% = Selected(0) + 1 THEN
  113.                           IF Board(MouseCol%, MouseRow%).PieceID >= 7 THEN Moving = True
  114.                         END IF
  115.                       END IF
  116.                     ELSEIF Plyr% = 2 THEN
  117.                       IF CPU = False THEN
  118.                         IF MouseRow% = Selected(1) - 1 THEN
  119.                           IF MouseCol% = Selected(0) - 1 OR MouseCol% = Selected(0) + 1 THEN
  120.                             IF Board(MouseCol%, MouseRow%).PieceID <= 6 AND Board(MouseCol%, MouseRow%).PieceID > 0 THEN Moving = True
  121.                           END IF
  122.                         END IF
  123.                       END IF
  124.                     END IF
  125.                   ELSE
  126.                     IF Board(MouseCol%, MouseRow%).PieceID = 0 THEN
  127.                       IF Plyr% = 1 THEN
  128.                         IF Board(Selected(0), Selected(1)).First_Move = False THEN
  129.                           IF MouseRow% = 3 OR MouseRow% = 4 THEN Moving = True
  130.                         ELSE
  131.                           IF MouseRow% = Selected(1) + 1 THEN Moving = True
  132.                         END IF
  133.                       ELSEIF Plyr% = 2 THEN
  134.                         IF CPU = False THEN
  135.                           IF Board(Selected(0), Selected(1)).First_Move = False THEN
  136.                             IF MouseRow% = 5 OR MouseRow% = 6 THEN Moving = True
  137.                           ELSE
  138.                             IF MouseRow% = Selected(1) - 1 THEN Moving = True
  139.                           END IF
  140.                         ELSE '// Vs Cpu Game
  141.  
  142.                         END IF
  143.                       END IF
  144.                     END IF
  145.                   END IF
  146.  
  147.                 CASE 2, 8 '// rook
  148.  
  149.                   IF MouseCol% = Selected(0) THEN '// Vertical move
  150.                     IF MouseRow% > Selected(1) THEN StepVal% = 1 ELSE IF MouseRow% < Selected(1) THEN StepVal% = -1 ELSE GOTO Skip_Case
  151.  
  152.                     FOR Row% = Selected(1) + StepVal% TO MouseRow% STEP StepVal%
  153.                       IF Board(Selected(0), Row%).PieceID > 0 THEN
  154.                         IF Row% = MouseRow% THEN '// Attacking move
  155.                           IF Plyr% = 1 THEN
  156.                             IF Board(Selected(0), Row%).PieceID <= 6 THEN GOTO Skip_Case
  157.                           ELSEIF Plyr% = 2 THEN
  158.                             IF Board(Selected(0), Row%).PieceID >= 7 THEN GOTO Skip_Case
  159.                           END IF
  160.                           Moving = True
  161.                         ELSE '// Invalid move
  162.                           GOTO Skip_Case
  163.                         END IF
  164.                       ELSE
  165.                         IF Row% = MouseRow% THEN Moving = True
  166.                       END IF
  167.                     NEXT
  168.  
  169.                   ELSEIF MouseRow% = Selected(1) THEN '// Horizontal move
  170.                     IF MouseCol% > Selected(0) THEN StepVal% = 1 ELSE IF MouseCol% < Selected(0) THEN StepVal% = -1 ELSE GOTO Skip_Case
  171.  
  172.                     FOR Col% = Selected(0) + StepVal% TO MouseCol% STEP StepVal%
  173.                       IF Board(Col%, Selected(1)).PieceID > 0 THEN
  174.                         IF Row% = MouseRow% THEN '// Attacking move
  175.                           IF Plyr% = 1 THEN
  176.                             IF Board(Col%, Selected(1)).PieceID <= 6 THEN GOTO Skip_Case
  177.                           ELSEIF Plyr% = 2 THEN
  178.                             IF Board(Col%, Selected(1)).PieceID >= 7 THEN GOTO Skip_Case
  179.                           END IF
  180.                           Moving = True
  181.                         ELSE '// Invalid move
  182.                           GOTO Skip_Case
  183.                         END IF
  184.                       ELSE
  185.                         IF Col% = MouseCol% THEN Moving = True
  186.                       END IF
  187.                     NEXT
  188.  
  189.                   END IF
  190.  
  191.                 CASE 3, 9 '// bishop
  192.  
  193.                   IF MouseRow% > Selected(1) THEN
  194.                     RowDif% = MouseRow% - Selected(1)
  195.                     Y_Inc% = 1
  196.                   ELSEIF MouseRow% < Selected(1) THEN
  197.                     RowDif% = Selected(1) - MouseRow%
  198.                     Y_Inc% = -1
  199.                   END IF
  200.  
  201.                   IF MouseCol% > Selected(0) THEN
  202.                     ColDif% = MouseCol% - Selected(0)
  203.                     X_Inc% = 1
  204.                   ELSEIF MouseCol% < Selected(0) THEN
  205.                     ColDif% = Selected(0) - MouseCol%
  206.                     X_Inc% = -1
  207.                   END IF
  208.  
  209.                   IF RowDif% = ColDif% THEN '// Might be a valid move, check for stuff in the way
  210.  
  211.                     Row% = Selected(1) + Y_Inc%
  212.                     FOR Col% = Selected(0) + X_Inc% TO MouseCol% STEP X_Inc%
  213.                       IF Board(Col%, Row%).PieceID > 0 THEN '// Something on the square
  214.                         IF Col% = MouseCol% THEN
  215.                           IF Plyr% = 1 THEN
  216.                             IF Board(Col%, Row%).PieceID > 6 THEN Moving = True ELSE GOTO Skip_Case
  217.                           ELSE
  218.                             IF Board(Col%, Row%).PieceID <= 6 THEN Moving = True ELSE GOTO Skip_Case
  219.                           END IF
  220.                         ELSE
  221.                           GOTO Skip_Case '// illegal move
  222.                         END IF
  223.                       ELSE
  224.                         IF Col% = MouseCol% THEN Moving = True
  225.                       END IF
  226.                       Row% = Row% + Y_Inc%
  227.                     NEXT
  228.                   ELSE
  229.                     GOTO Skip_Case
  230.                   END IF
  231.  
  232.                 CASE 4, 10 '// knight
  233.  
  234.                   IF MouseRow% > Selected(1) THEN
  235.                     RowDif% = MouseRow% - Selected(1)
  236.                   ELSEIF MouseRow% < Selected(1) THEN
  237.                     RowDif% = Selected(1) - MouseRow%
  238.                   ELSE
  239.                     GOTO Skip_Case '// Invalid move
  240.                   END IF
  241.  
  242.                   IF MouseCol% > Selected(0) THEN
  243.                     ColDif% = MouseCol% - Selected(0)
  244.                   ELSEIF MouseCol% < Selected(0) THEN
  245.                     ColDif% = Selected(0) - MouseCol%
  246.                   ELSE
  247.                     GOTO Skip_Case '// Invalid move
  248.                   END IF
  249.  
  250.                   IF (RowDif% = 2 AND ColDif% = 1) OR (RowDif% = 1 AND ColDif% = 2) THEN
  251.                     IF Plyr% = 1 THEN
  252.                       IF Board(MouseCol%, MouseRow%).PieceID = 0 OR Board(MouseCol%, MouseRow%).PieceID > 6 THEN Moving = True ELSE GOTO Skip_Case
  253.                     ELSE
  254.                       IF Board(MouseCol%, MouseRow%).PieceID = 0 OR Board(MouseCol%, MouseRow%).PieceID < 7 THEN Moving = True ELSE GOTO Skip_Case
  255.                     END IF
  256.                   ELSE
  257.                     GOTO Skip_Case '// Invalid move
  258.                   END IF
  259.  
  260.  
  261.                 CASE 5, 11 '// King
  262.  
  263.                   IF MouseRow% > Selected(1) THEN
  264.                     RowDif% = MouseRow% - Selected(1)
  265.                   ELSEIF MouseRow% < Selected(1) THEN
  266.                     RowDif% = Selected(1) - MouseRow%
  267.                   ELSE
  268.                     RowDif% = 0
  269.                   END IF
  270.  
  271.                   IF MouseCol% > Selected(0) THEN
  272.                     ColDif% = MouseCol% - Selected(0)
  273.                   ELSEIF MouseCol% < Selected(0) THEN
  274.                     ColDif% = Selected(0) - MouseCol%
  275.                   ELSE
  276.                     ColDif% = 0
  277.                   END IF
  278.  
  279.                   IF ColDif% <= 1 AND RowDif% <= 1 THEN
  280.                     IF Plyr% = 1 THEN
  281.                       IF Board(MouseCol%, MouseRow%).PieceID = 0 OR Board(MouseCol%, MouseRow%).PieceID > 6 THEN Moving = True ELSE GOTO Skip_Case
  282.                     ELSE
  283.                       IF Board(MouseCol%, MouseRow%).PieceID = 0 OR Board(MouseCol%, MouseRow%).PieceID < 7 THEN Moving = True ELSE GOTO Skip_Case
  284.                     END IF
  285.                   ELSE
  286.                     GOTO Skip_Case
  287.                   END IF
  288.  
  289.                 CASE 6, 12 '// queen '// Mixture of rook and bishop movement
  290.  
  291.                   IF MouseCol% = Selected(0) THEN '// Vertical move
  292.                     IF MouseRow% > Selected(1) THEN StepVal% = 1 ELSE IF MouseRow% < Selected(1) THEN StepVal% = -1 ELSE GOTO Skip_Case
  293.  
  294.                     FOR Row% = Selected(1) + StepVal% TO MouseRow% STEP StepVal%
  295.                       IF Board(Selected(0), Row%).PieceID > 0 THEN
  296.                         IF Row% = MouseRow% THEN '// Attacking move
  297.                           IF Plyr% = 1 THEN
  298.                             IF Board(Selected(0), Row%).PieceID <= 6 THEN GOTO Skip_Case
  299.                           ELSEIF Plyr% = 2 THEN
  300.                             IF Board(Selected(0), Row%).PieceID >= 7 THEN GOTO Skip_Case
  301.                           END IF
  302.                           Moving = True
  303.                         ELSE '// Invalid move
  304.                           GOTO Skip_Case
  305.                         END IF
  306.                       ELSE
  307.                         IF Row% = MouseRow% THEN Moving = True
  308.                       END IF
  309.                     NEXT
  310.  
  311.                   ELSEIF MouseRow% = Selected(1) THEN '// Horizontal move
  312.                     IF MouseCol% > Selected(0) THEN StepVal% = 1 ELSE IF MouseCol% < Selected(0) THEN StepVal% = -1 ELSE GOTO Skip_Case
  313.  
  314.                     FOR Col% = Selected(0) + StepVal% TO MouseCol% STEP StepVal%
  315.                       IF Board(Col%, Selected(1)).PieceID > 0 THEN
  316.                         IF Row% = MouseRow% THEN '// Attacking move
  317.                           IF Plyr% = 1 THEN
  318.                             IF Board(Col%, Selected(1)).PieceID <= 6 THEN GOTO Skip_Case
  319.                           ELSEIF Plyr% = 2 THEN
  320.                             IF Board(Col%, Selected(1)).PieceID >= 7 THEN GOTO Skip_Case
  321.                           END IF
  322.                           Moving = True
  323.                         ELSE '// Invalid move
  324.                           GOTO Skip_Case
  325.                         END IF
  326.                       ELSE
  327.                         IF Col% = MouseCol% THEN Moving = True
  328.                       END IF
  329.                     NEXT
  330.  
  331.                   ELSE '// Diagonal move
  332.  
  333.                     IF MouseRow% > Selected(1) THEN
  334.                       RowDif% = MouseRow% - Selected(1)
  335.                       Y_Inc% = 1
  336.                     ELSEIF MouseRow% < Selected(1) THEN
  337.                       RowDif% = Selected(1) - MouseRow%
  338.                       Y_Inc% = -1
  339.                     END IF
  340.  
  341.                     IF MouseCol% > Selected(0) THEN
  342.                       ColDif% = MouseCol% - Selected(0)
  343.                       X_Inc% = 1
  344.                     ELSEIF MouseCol% < Selected(0) THEN
  345.                       ColDif% = Selected(0) - MouseCol%
  346.                       X_Inc% = -1
  347.                     END IF
  348.  
  349.                     IF RowDif% = ColDif% THEN '// Might be a valid move, check for stuff in the way
  350.                       Row% = Selected(1) + Y_Inc%
  351.                       FOR Col% = Selected(0) + X_Inc% TO MouseCol% STEP X_Inc%
  352.                         IF Board(Col%, Row%).PieceID > 0 THEN '// Something on the square
  353.                           IF Col% = MouseCol% THEN
  354.                             IF Plyr% = 1 THEN
  355.                               IF Board(Col%, Row%).PieceID > 6 THEN Moving = True ELSE GOTO Skip_Case
  356.                             ELSE
  357.                               IF Board(Col%, Row%).PieceID <= 6 THEN Moving = True ELSE GOTO Skip_Case
  358.                             END IF
  359.                           ELSE
  360.                             GOTO Skip_Case '// illegal move
  361.                           END IF
  362.                         ELSE
  363.                           IF Col% = MouseCol% THEN Moving = True
  364.                         END IF
  365.                         Row% = Row% + Y_Inc%
  366.                       NEXT
  367.                     ELSE
  368.                       GOTO Skip_Case
  369.                     END IF
  370.                   END IF
  371.  
  372.               END SELECT
  373.  
  374.               Select_Piece% = True
  375.  
  376.             END IF
  377.           END IF
  378.         END IF
  379.       END IF
  380.  
  381.       '/////////////////////////////////////////
  382.  
  383.       IF Moving = True THEN '// If any pieces have been set to move then do stuff here
  384.  
  385.         IF NOT Board(Selected(0), Selected(1)).PieceID = 4 AND NOT Board(Selected(0), Selected(1)).PieceID = 10 THEN
  386.           '// Calculate rotation
  387.           IF Selected(0) <> MouseCol% THEN
  388.             IF Selected(1) <> MouseRow% THEN '// Diagonal movement
  389.               IF MouseCol% > Selected(0) THEN
  390.                 IF MouseRow% < Selected(1) THEN
  391.                   Board(Selected(0), Selected(1)).Rotation = SE
  392.                 ELSE
  393.                   Board(Selected(0), Selected(1)).Rotation = NE
  394.                 END IF
  395.               ELSEIF MouseCol% < Selected(0) THEN
  396.                 IF MouseRow% < Selected(1) THEN
  397.                   Board(Selected(0), Selected(1)).Rotation = SW
  398.                 ELSE
  399.                   Board(Selected(0), Selected(1)).Rotation = NW
  400.                 END IF
  401.               END IF
  402.             ELSE '// Horizontal movement only
  403.               IF MouseCol% > Selected(0) THEN
  404.                 Board(Selected(0), Selected(1)).Rotation = East
  405.               ELSEIF MouseCol% < Selected(0) THEN
  406.                 Board(Selected(0), Selected(1)).Rotation = West
  407.               END IF
  408.             END IF
  409.           ELSE '// Vertical movement only
  410.             IF MouseRow% < Selected(1) THEN
  411.               Board(Selected(0), Selected(1)).Rotation = South
  412.             ELSE
  413.               Board(Selected(0), Selected(1)).Rotation = North
  414.             END IF
  415.           END IF
  416.         ELSE '// a knight - rotation calculated on the fly
  417.           IF MouseCol% > Selected(0) THEN
  418.             XVal% = MouseCol% - Selected(0)
  419.           ELSE
  420.             XVal% = Selected(0) - MouseCol%
  421.           END IF
  422.  
  423.           IF MouseRow% > Selected(1) THEN
  424.             YVal% = MouseRow% - Selected(1)
  425.           ELSE
  426.             YVal% = Selected(1) - MouseRow%
  427.           END IF
  428.  
  429.           Board(Selected(0), Selected(1)).Rotation = atan2(XVal%, YVal%) + 315
  430.  
  431.         END IF
  432.  
  433.         '// calculate relative x/y offset per animation frame for moving
  434.         IF Board(Selected(0), Selected(1)).PieceID >= 7 THEN
  435.           PieceId% = Board(Selected(0), Selected(1)).PieceID - 6
  436.         ELSE
  437.           PieceId% = Board(Selected(0), Selected(1)).PieceID
  438.         END IF
  439.  
  440.         Frames% = Anim(PieceId% - 1, Walking).ResetFrame - Anim(PieceId% - 1, Walking).StartFrame
  441.  
  442.         IF MouseCol% < Selected(0) THEN
  443.           Board(Selected(0), Selected(1)).X_Inc = 3
  444.         ELSEIF MouseCol% > Selected(0) THEN
  445.           Board(Selected(0), Selected(1)).X_Inc = -3
  446.         ELSE
  447.           Board(Selected(0), Selected(1)).X_Inc = 0
  448.         END IF
  449.  
  450.         IF MouseRow% < Selected(1) THEN
  451.           Board(Selected(0), Selected(1)).Z_Inc = -3
  452.         ELSEIF MouseRow% > Selected(1) THEN
  453.           Board(Selected(0), Selected(1)).Z_Inc = 3
  454.         ELSE
  455.           Board(Selected(0), Selected(1)).Z_Inc = 0
  456.         END IF
  457.  
  458.         Board(Selected(0), Selected(1)).Anim = Anim(PieceId% - 1, Walking)
  459.  
  460.         '// Switch cam mode to action view
  461.         CamMode = Action
  462.  
  463.       END IF
  464.  
  465.     CASE Action '// Action camera used for movement animations  /////////////////////////////////////////
  466.  
  467.       IF Board(Selected(0), Selected(1)).X_Offset < 0 THEN
  468.         Rel_Col% = Selected(0) - (Board(Selected(0), Selected(1)).X_Offset / 66.25)
  469.       ELSE
  470.         Rel_Col% = Selected(0) + (Board(Selected(0), Selected(1)).X_Offset / -66.25)
  471.       END IF
  472.  
  473.       IF Board(Selected(0), Selected(1)).Z_Offset < 0 THEN
  474.         Rel_Row% = Selected(1) - (Board(Selected(0), Selected(1)).Z_Offset / -66.25)
  475.       ELSE
  476.         Rel_Row% = Selected(1) + (Board(Selected(0), Selected(1)).Z_Offset / 66.25)
  477.       END IF
  478.  
  479.       IF Rel_Col% = MouseCol% AND Rel_Row% = MouseRow% THEN
  480.         '// At the end of movement - trigger battle if needed then swap/clear sqaures
  481.         Board(MouseCol%, MouseRow%) = Blank_Square
  482.         IF Board(Selected(0), Selected(1)).First_Move = False THEN Board(Selected(0), Selected(1)).First_Move = True
  483.         SWAP Board(MouseCol%, MouseRow%), Board(Selected(0), Selected(1))
  484.         Board(MouseCol%, MouseRow%).X_Offset = 0
  485.         Board(MouseCol%, MouseRow%).Z_Offset = 0
  486.  
  487.         IF Board(MouseCol%, MouseRow%).PieceID >= 7 THEN
  488.           PieceId% = Board(MouseCol%, MouseRow%).PieceID - 6
  489.         ELSE
  490.           PieceId% = Board(MouseCol%, MouseRow%).PieceID
  491.         END IF
  492.  
  493.         Board(MouseCol%, MouseRow%).Anim = Anim(PieceId% - 1, Standing)
  494.  
  495.         IF Plyr% = 1 THEN Plyr% = 2 ELSE Plyr% = 1
  496.         Moving = False
  497.         CamMode = Fixed
  498.  
  499.       ELSE
  500.         Board(Selected(0), Selected(1)).X_Offset = Board(Selected(0), Selected(1)).X_Offset + Board(Selected(0), Selected(1)).X_Inc
  501.         Board(Selected(0), Selected(1)).Z_Offset = Board(Selected(0), Selected(1)).Z_Offset + Board(Selected(0), Selected(1)).Z_Inc
  502.       END IF
  503.  
  504.     CASE Battle '// Fighting animations /////////////////////////////////////////
  505.  
  507.  
  508.   Skip_Case: '// get sent here by doing an invalid move
  509.  
  510.   '////////////// DEBUG ////////////////////
  511.   IF Debug% THEN
  512.     CLS
  513.     LOCATE 1, 1
  514.     PRINT "MOUSE (X,Y) : "; Mouse(0).X; Mouse(0).Y
  515.     PRINT "Col/Row : "; MouseCol%; MouseRow%
  516.     PRINT "Selected Col/Row : "; Selected(0); Selected(1)
  517.     PRINT "Rel_Col/Rel_Row : "; Rel_Col%; Rel_Row%
  518.   END IF
  519.   '/////////////////////////////////////////
  520.  
  521.   KB(1) = KB(0)
  522.   Mouse(1) = Mouse(0)
  523.  
  525.  
  527.  
  528. Default_Board:
  529.  
  530. DATA 1,1,1,1,1,1,1,1
  531. DATA 2,4,3,6,5,3,4,2
  532. DATA 7,7,7,7,7,7,7,7
  533. DATA 8,10,9,12,11,9,10,8
  534.  
  535. '//////////////////////////////////
  536.  
  537. REM $include:'GDK_GL\GDK_GL.bm'
  538. REM $include:'UnseenGDK.bm'
  539.  
  540. '//////////////////////////////////
  541.  
  542. TYPE Square
  543.   PieceID AS _BYTE
  544.   Anim AS ANIMATION '// Current animation
  545.   First_Move AS _BYTE '// If the piece has moved before or not
  546.   X_Offset AS INTEGER '// Position offsets for movement animations
  547.   Z_Offset AS INTEGER
  548.   X_Inc AS _BYTE '// Position offset increments (per animation frame)
  549.   Z_Inc AS _BYTE
  550.   Rotation AS INTEGER
  552.  
  553. '//////////////////////////////////
  554.  
  555. SUB _GL
  556.  
  557.   IF Allow_GL THEN
  558.  
  560.     _glClearColor 0, 0, 0, 1
  561.     _glEnable _GL_DEPTH_TEST
  562.     _glEnable _GL_TEXTURE_2D
  563.     _glMatrixMode _GL_PROJECTION
  565.     _gluPerspective 80, 800 / 600, 1, 2000
  566.     _glMatrixMode _GL_MODELVIEW
  568.     _glViewport 0, 0, 800, 600
  569.  
  570.     IF Init = False THEN
  571.  
  572.       IF NOT GDK_GL_MODEL_LOAD(Model(0), "GDK_Gl\QuakeChess\zombie.mdl") THEN PRINT "Failed to load model." '// Pawn
  573.       IF NOT GDK_GL_MODEL_LOAD(Model(1), "GDK_Gl\QuakeChess\ogre.mdl") THEN PRINT "Failed to load model." '// Rook
  574.       IF NOT GDK_GL_MODEL_LOAD(Model(2), "GDK_Gl\QuakeChess\wizard.mdl") THEN PRINT "Failed to load model." '// Bishop
  575.       IF NOT GDK_GL_MODEL_LOAD(Model(3), "GDK_Gl\QuakeChess\knight.mdl") THEN PRINT "Failed to load model." '// Knight
  576.       IF NOT GDK_GL_MODEL_LOAD(Model(4), "GDK_Gl\QuakeChess\soldier.mdl") THEN PRINT "Failed to load model." '// King
  577.       IF NOT GDK_GL_MODEL_LOAD(Model(5), "GDK_Gl\QuakeChess\demon.mdl") THEN PRINT "Failed to load model." '// Queen
  578.  
  579.  
  580.       '// Zombie animations - Pawns
  581.       GDK_ANIMATION_NEW Anim(0, Standing), 1, 1, 14, .1, TIMER(.001)
  582.       GDK_ANIMATION_NEW Anim(0, Walking), 34, 34, 51, .05, TIMER(.001)
  583.       GDK_ANIMATION_NEW Anim(0, Attack), 52, 52, 90, .1, TIMER(.001)
  584.       GDK_ANIMATION_NEW Anim(0, BeingHit), 131, 131, 149, .1, TIMER(.001)
  585.       GDK_ANIMATION_NEW Anim(0, Falling), 163, 163, 173, .1, TIMER(.001)
  586.  
  587.       '// Ogre animations - Rooks
  588.       GDK_ANIMATION_NEW Anim(1, Standing), 1, 1, 8, .1, TIMER(.001)
  589.       GDK_ANIMATION_NEW Anim(1, Walking), 9, 9, 24, .05, TIMER(.001)
  590.       GDK_ANIMATION_NEW Anim(1, Attack), 33, 33, 60, .1, TIMER(.001)
  591.       GDK_ANIMATION_NEW Anim(1, BeingHit), 131, 131, 149, .1, TIMER(.001) '// Not set yet
  592.       GDK_ANIMATION_NEW Anim(1, Falling), 112, 112, 125, .1, TIMER(.001)
  593.  
  594.       '// Wizard animation - Bishops
  595.       GDK_ANIMATION_NEW Anim(2, Standing), 1, 1, 14, .1, TIMER(.001)
  596.       GDK_ANIMATION_NEW Anim(2, Walking), 15, 15, 28, .05, TIMER(.001)
  597.       GDK_ANIMATION_NEW Anim(2, Attack), 29, 29, 41, .1, TIMER(.001)
  598.       GDK_ANIMATION_NEW Anim(2, BeingHit), 131, 131, 149, .1, TIMER(.001) '// Not set yet
  599.       GDK_ANIMATION_NEW Anim(2, Falling), 42, 42, 53, .1, TIMER(.001)
  600.  
  601.       '// Knight animations - Knight
  602.       GDK_ANIMATION_NEW Anim(3, Standing), 1, 1, 8, .1, TIMER(.001)
  603.       GDK_ANIMATION_NEW Anim(3, Walking), 53, 53, 66, .05, TIMER(.001)
  604.       GDK_ANIMATION_NEW Anim(3, Attack), 42, 42, 52, .1, TIMER(.001)
  605.       GDK_ANIMATION_NEW Anim(3, BeingHit), 28, 28, 41, .1, TIMER(.001)
  606.       GDK_ANIMATION_NEW Anim(3, Falling), 86, 86, 97, .1, TIMER(.001)
  607.  
  608.       '// Demon animations - King
  609.       GDK_ANIMATION_NEW Anim(4, Standing), 1, 1, 7, .1, TIMER(.001)
  610.       GDK_ANIMATION_NEW Anim(4, Walking), 90, 90, 114, .05, TIMER(.001)
  611.       GDK_ANIMATION_NEW Anim(4, Attack), 81, 81, 89, .1, TIMER(.001)
  612.       GDK_ANIMATION_NEW Anim(4, BeingHit), 46, 46, 60, .1, TIMER(.001)
  613.       GDK_ANIMATION_NEW Anim(5, Falling), 9, 9, 17, .1, TIMER(.001)
  614.  
  615.       '// Soldier animations - Queen
  616.       GDK_ANIMATION_NEW Anim(5, Standing), 1, 1, 12, .1, TIMER(.001)
  617.       GDK_ANIMATION_NEW Anim(5, Walking), 13, 13, 20, .05, TIMER(.001)
  618.       GDK_ANIMATION_NEW Anim(5, Attack), 54, 54, 69, .1, TIMER(.001)
  619.       GDK_ANIMATION_NEW Anim(5, BeingHit), 131, 131, 149, .1, TIMER(.001) '// Not set yet
  620.       GDK_ANIMATION_NEW Anim(5, Falling), 44, 44, 53, .1, TIMER(.001)
  621.  
  622.       RESTORE Default_Board
  623.       FOR j% = 1 TO 4
  624.         FOR i% = 1 TO 8
  625.           READ Piece%
  626.           IF Piece% >= 7 THEN AnimRef% = Piece% - 7 ELSE AnimRef% = Piece% - 1
  627.  
  628.           SELECT CASE j%
  629.             CASE 1
  630.               Board(i%, 2).PieceID = Piece%
  631.               Board(i%, 2).Anim = Anim(AnimRef%, Standing)
  632.             CASE 2
  633.               Board(i%, 1).PieceID = Piece%
  634.               Board(i%, 1).Anim = Anim(AnimRef%, Standing)
  635.             CASE 3
  636.               Board(i%, 7).PieceID = Piece%
  637.               Board(i%, 7).Anim = Anim(AnimRef%, Standing)
  638.             CASE 4
  639.               Board(i%, 8).PieceID = Piece%
  640.               Board(i%, 8).Anim = Anim(AnimRef%, Standing)
  641.           END SELECT
  642.  
  643.         NEXT
  644.       NEXT
  645.  
  646.       Floor(0) = GDK_GL_LOAD_TEXTURE("GDK_GL\QuakeChess\FloorRed.png")
  647.       Floor(1) = GDK_GL_LOAD_TEXTURE("GDK_GL\QuakeChess\FloorWhite.png")
  648.  
  649.       Flr_Lst = _glGenLists(1)
  650.       _glNewList Flr_Lst, _GL_COMPILE
  651.       FloorZ% = -200
  652.       FloorY% = 20
  653.       FOR j% = 1 TO 8
  654.         FloorX% = -200
  655.         FOR i% = 1 TO 8
  656.           IF White% THEN
  657.             GDK_GL_SET_TEXTURE Floor(1)
  658.             White% = False
  659.           ELSE
  660.             GDK_GL_SET_TEXTURE Floor(0)
  661.             White% = True
  662.           END IF
  663.           _glBegin _GL_QUADS
  664.           _glTexCoord2f 0, 0: _glVertex3f FloorX%, FloorY% - 50, FloorZ%
  665.           _glTexCoord2f 0, 1: _glVertex3f FloorX% + 50, FloorY% - 50, FloorZ%
  666.           _glTexCoord2f 1, 1: _glVertex3f FloorX% + 50, FloorY% - 50, FloorZ% + 50
  667.           _glTexCoord2f 1, 0: _glVertex3f FloorX%, FloorY% - 50, FloorZ% + 50
  668.           _glEnd
  669.           FloorX% = FloorX% + 50
  670.         NEXT
  671.         FloorZ% = FloorZ% + 50
  672.         IF White% THEN White% = False ELSE White% = True
  673.       NEXT
  674.       _glEndList
  675.  
  676.       Init = True
  677.  
  678.     ELSE
  679.  
  680.       GDK_GL_CLS
  681.  
  682.       '// Set the view to the cameras position
  683.       GDK_GL_VECTOR_APPLY_RT CamVec
  684.  
  685.       SELECT CASE CamMode
  686.  
  687.         CASE Fixed, Action '// Very similar so easier to adda fe IF's over a whole case block
  688.  
  689.           _glCallList Flr_Lst
  690.  
  691.           FloorZ% = -175
  692.           FloorY% = -55
  693.           FOR j% = 1 TO 8
  694.             FloorX% = 175
  695.             FOR i% = 1 TO 8
  696.               _glPushMatrix
  697.               _glTranslatef FloorX% + Board(i%, j%).X_Offset, FloorY%, FloorZ% + Board(i%, j%).Z_Offset
  698.               _glRotatef 180, 0, 0, 1
  699.  
  700.               IF Moving = False THEN '// Normal view
  701.                 IF Board(i%, j%).PieceID < 7 THEN _glRotatef 270, 0, 1, 0 ELSE _glRotatef 90, 0, 1, 0
  702.               ELSE '// Action view
  703.                 IF i% = Selected(0) AND j% = Selected(1) THEN
  704.                   _glRotatef Board(i%, j%).Rotation, 0, 1, 0
  705.                 ELSE
  706.                   IF Board(i%, j%).PieceID < 7 THEN _glRotatef 270, 0, 1, 0 ELSE _glRotatef 90, 0, 1, 0
  707.                 END IF
  708.               END IF
  709.  
  710.               _glRotatef 270, 1, 0, 0
  711.  
  712.               GDK_ANIMATION_UPDATE Board(i%, j%).Anim
  713.  
  714.               SELECT CASE Board(i%, j%).PieceID
  715.                 CASE 1, 7 '// Pawns
  716.                   GDK_GL_MODEL_DRAW Model(0), Board(i%, j%).Anim.Frame
  717.                 CASE 2, 8 '// Rook
  718.                   GDK_GL_MODEL_DRAW Model(1), Board(i%, j%).Anim.Frame
  719.                 CASE 3, 9 '// Bishop
  720.                   GDK_GL_MODEL_DRAW Model(2), Board(i%, j%).Anim.Frame
  721.                 CASE 4, 10 '// Knight
  722.                   GDK_GL_MODEL_DRAW Model(3), Board(i%, j%).Anim.Frame
  723.                 CASE 5, 11 '// King
  724.                   GDK_GL_MODEL_DRAW Model(4), Board(i%, j%).Anim.Frame
  725.                 CASE 6, 12 '// Queen
  726.                   GDK_GL_MODEL_DRAW Model(5), Board(i%, j%).Anim.Frame
  727.               END SELECT
  728.               _glPopMatrix
  729.  
  730.               FloorX% = FloorX% - 50
  731.             NEXT
  732.             FloorZ% = FloorZ% + 50
  733.           NEXT
  734.  
  735.         CASE Battle
  736.  
  737.  
  738.       END SELECT
  739.  
  740.     END IF
  741.   END IF
  743.  
  744.  
  745.  

I look forward to you feedback,

Thanks and happy coding.
Unseen
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Quake Chess
« Reply #9 on: April 07, 2020, 10:23:37 pm »
Hey Unseen,

Always been a huge quake fan, this look fun - I can imagine if you get all the quake sounds involved it'll be super badass.

I have some trouble selecting and moving pieces, seems to finally make a move when I spam the mouse randomly. Am I being too hasty?
Logged
You're not done when it works, you're done when it's right.

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Quake Chess
« Reply #10 on: April 08, 2020, 04:34:09 am »
Hey StxAxTIC,,

Yes sounds are planned for aswellas cinematic style fight scenes.

As for moude input, I agree, it's far from good, ill have to lookinto my routines to see if i can get it working better. For now the top team is white and moves forwards.

When you do finally manage to select a piece its col/row is printed onscreen as part of the debug info.  PRINT "Selected Col/Row : "; Selected(0); Selected(1)

Thanks for trying, and just out of interest what PC did you run it on? Mines really old and i assumed that could be the reason for the FPSlag and dodgy mouse input.

Thanks

Unseen
Logged
Pages: [1]   Go Up
« previous next »