« previous next »
Pages: [1]   Go Down

Author Topic: Re: Spritesheets  (Read 359 times)

0 Members and 1 Guest are viewing this topic.

Offline keybone

  • Forum Regular
  • Posts: 116
  • My name a Nursultan Tulyakbay.
    • View Profile
Re: Spritesheets
« on: April 20, 2020, 10:24:17 pm »
Word...
Logged
I am from a Kazakhstan, we follow the hawk.

Offline Unseen Machine

  • Forum Regular
  • Posts: 158
  • Make the game not the engine!
    • View Profile
Re: Spritesheets
« Reply #1 on: April 21, 2020, 03:34:54 am »
Hi [banned user],

Looks good for a first attempt. Have a look at the sprite/animation/vector/game object routines in this (and in terry's sprite library) and happy coding bro.

Unseen

Code: QB64: [Select]
  1. '\\ Unseen Game Deveopment Kit (GDK) - Version 1.8 - DEVELOPMENT VERSION - NOT FINISHED!!!
  2. '// Updated 30/7/2019
  3. '// Created By John Onyon a.k.a Unseen Machine
  4. '// Optimistation by CodeGuy and DarthWho
  5. '// ScanKeys% function by Cypherium
  6. '// Image rotation function by Galleon
  7. '// Rotated Rectangle Collision Detection By Richard Notley
  8.  
  9. '##########################################################################################################################
  10. '// Typdef's
  11. '##########################################################################################################################
  12.  
  13. SUB GDK_Types
  14.  
  15.   TYPE Sprite
  16.     File AS LONG
  18.     Height AS INTEGER
  19.     Alpha AS _UNSIGNED LONG
  20.     IsVisible AS _BYTE
  21.     XFrameCount AS _BYTE
  22.     YFrameCount AS _BYTE
  23.     TotalFrameCount AS INTEGER
  24.     RotationX AS SINGLE
  25.     RotationY AS SINGLE
  26.     Scale AS SINGLE
  27.     BitMask AS _MEM '// For pixel perfect collisions
  29.  
  30.   TYPE Vector
  31.     X AS SINGLE
  32.     Y AS SINGLE
  33.     Speed AS SINGLE
  34.     Rotation AS DOUBLE
  35.     Accel AS SINGLE
  36.     Decel AS SINGLE
  38.  
  39.   TYPE BoundingCircle
  40.     X AS INTEGER
  41.     Y AS INTEGER
  42.     Radius AS INTEGER
  44.  
  45.   TYPE MouseState
  46.     X AS INTEGER
  47.     Y AS INTEGER
  48.     LB AS _BYTE
  49.     RB AS _BYTE
  50.     MB AS _BYTE
  51.     MW AS _BYTE
  53.  
  54.   TYPE KeyBoardState
  55.     Left AS LONG
  56.     Right AS LONG
  57.     Down AS LONG
  58.     Up AS LONG
  59.     CTRL AS LONG
  60.     SHIFT AS LONG
  61.     ALT AS LONG
  62.     SPACE AS LONG
  63.     ENTER AS LONG
  64.     ESC AS LONG
  65.     Num1 AS LONG
  66.     Num2 AS LONG
  67.     Num3 AS LONG
  68.     Num4 AS LONG
  69.     Num5 AS LONG
  70.     Num6 AS LONG
  71.     Num7 AS LONG
  72.     Num8 AS LONG
  73.     Num9 AS LONG
  74.     Num0 AS LONG
  75.     PLUS AS LONG
  76.     MINUS AS LONG
  77.     BACKSPACE AS LONG
  78.     TAB AS LONG
  79.     A AS LONG
  80.     B AS LONG
  81.     C AS LONG
  82.     D AS LONG
  83.     E AS LONG
  84.     F AS LONG
  85.     G AS LONG
  86.     H AS LONG
  87.     I AS LONG
  88.     J AS LONG
  89.     K AS LONG
  90.     L AS LONG
  91.     M AS LONG
  92.     N AS LONG
  93.     O AS LONG
  94.     P AS LONG
  95.     Q AS LONG
  96.     R AS LONG
  97.     S AS LONG
  98.     T AS LONG
  99.     U AS LONG
  100.     V AS LONG
  101.     W AS LONG
  102.     X AS LONG
  103.     Y AS LONG
  104.     Z AS LONG
  106.  
  107.  
  108.   TYPE ANIMATION
  109.     Frame AS INTEGER
  110.     StartFrame AS INTEGER
  111.     ResetFrame AS INTEGER
  113.     Time AS DOUBLE
  114.     Dir AS _BYTE
  116.  
  117.   TYPE Emitter
  118.     X AS INTEGER
  119.     Y AS INTEGER
  120.     SpawnRate AS INTEGER
  121.     SpawnAngleMin AS SINGLE
  122.     SpawnAngleMax AS SINGLE
  123.     SpawnMaxVelocity AS SINGLE
  124.     SpawnMinVelocity AS SINGLE
  125.     MaxLifeTime AS DOUBLE
  126.     MinLifeTime AS DOUBLE
  127.     AccelMax AS SINGLE
  128.     DecelMax AS SINGLE
  129.     AccelMin AS SINGLE
  130.     DecelMIn AS SINGLE
  131.     Gravity AS SINGLE
  133.  
  134.   TYPE Particle
  135.     InitialCLR AS _UNSIGNED LONG
  136.     CurrentCLR AS _UNSIGNED LONG
  137.     ClrChange AS _UNSIGNED LONG
  138.     ClrChangeMode AS INTEGER
  139.     Vector AS Vector
  140.     BirthTime AS DOUBLE
  141.     LifeTime AS DOUBLE
  142.     Exists AS _BYTE
  143.     Accel AS SINGLE
  144.     Decel AS SINGLE
  145.     Gravity AS SINGLE
  147.  
  148.   TYPE Tileset
  149.     Sheet AS Sprite
  150.     THeight AS INTEGER
  151.     TWidth AS INTEGER
  153.  
  154.   TYPE XY
  155.     X AS INTEGER
  156.     Y AS INTEGER
  158.  
  159.   TYPE Rectangle
  160.     XY AS XY
  161.     WH AS XY
  162.     Rotation AS SINGLE
  163.     RotationPoint AS XY
  164.     C1 AS XY
  165.     C2 AS XY
  166.     C3 AS XY
  167.     C4 AS XY
  169.  
  170.   TYPE GameObject
  171.     Sprite AS Sprite
  172.     Vector AS Vector
  173.     Rect AS Rectangle
  175.  
  176.   TYPE Tile
  177.     RECT AS Rectangle
  178.     Tile AS INTEGER
  180.  
  181.   TYPE Path
  182.     Vector AS Vector
  183.     LastVector AS Vector
  184.     TargetVector AS Vector
  185.     NumPoints AS INTEGER
  186.     CurrentPoint AS INTEGER
  187.     HitTargetX AS INTEGER
  188.     HitTargetY AS INTEGER
  189.     Repeat AS INTEGER
  190.     Relative AS INTEGER
  191.     Reverse AS INTEGER
  192.     IsReversing AS INTEGER
  194.  
  195.   TYPE PathPoint
  196.     X AS INTEGER
  197.     Y AS INTEGER
  198.     Speed AS INTEGER
  200.  
  201.  
  203.  
  204. '##########################################################################################################################
  205. '// Collision detection
  206. '##########################################################################################################################
  207.  
  208. SUB GDK_Rectangle_New (RectRef AS Rectangle, x%, y%, Width%, Height%)
  209.   RectRef.XY.X = x%
  210.   RectRef.XY.Y = y%
  211.   RectRef.WH.X = Width%
  212.   RectRef.WH.Y = Height%
  214.  
  215. SUB GDK_Rectangle_Autosize (Sprite AS Sprite, Vector AS Vector, Rect AS Rectangle)
  216.   Rect.XY.X = Vector.X - (Sprite.RotationX * Sprite.Scale)
  217.   Rect.XY.Y = Vector.Y - (Sprite.RotationY * Sprite.Scale)
  218.   Rect.WH.X = (Sprite.Width / Sprite.XFrameCount) * Sprite.Scale
  219.   Rect.WH.Y = (Sprite.Height / Sprite.YFrameCount) * Sprite.Scale
  220.   Rect.Rotation = Vector.Rotation
  221.   Rect.RotationPoint.X = Sprite.RotationX * Sprite.Scale
  222.   Rect.RotationPoint.Y = Sprite.RotationY * Sprite.Scale
  223.   DIM pX(3) AS SINGLE, pY(3) AS SINGLE, W AS LONG, H AS LONG, I AS LONG, X AS LONG, Y AS LONG, X2 AS LONG, Y2 AS LONG, PointX AS LONG, PointY AS LONG
  224.   X = Vector.X
  225.   Y = Vector.Y
  226.   W = (Sprite.Width / Sprite.XFrameCount)
  227.   H = (Sprite.Height / Sprite.YFrameCount)
  228.   PointX = Sprite.RotationX
  229.   PointY = Sprite.RotationY
  230.   pX(0) = -PointX
  231.   pY(0) = -PointY
  232.   pX(1) = -PointX
  233.   pY(1) = -PointY + H - 1
  234.   pX(2) = -PointX + W - 1
  235.   pY(2) = -PointY + H - 1
  236.   pX(3) = -PointX + W - 1
  237.   pY(3) = -PointY 'Set dest screen points
  238.   SINr = SIN(Vector.Rotation)
  239.   COSr = COS(Vector.Rotation) 'Precalculate SIN & COS of angle
  240.   FOR I = 0 TO 3
  241.     pX(I) = pX(I) * Sprite.Scale
  242.     pY(I) = pY(I) * Sprite.Scale 'Scale
  243.     X2 = pX(I) * COSr + SINr * pY(I)
  244.     pY(I) = pY(I) * COSr - pX(I) * SINr
  245.     pX(I) = X2 'Rotate Dest Points
  246.     pX(I) = pX(I) + X
  247.     pY(I) = pY(I) + Y 'Translate Dest Points
  248.     SELECT CASE I
  249.       CASE 0
  250.         Rect.C1.X = pX(I)
  251.         Rect.C1.Y = pY(I)
  252.       CASE 1
  253.         Rect.C2.X = pX(I)
  254.         Rect.C2.Y = pY(I)
  255.       CASE 2
  256.         Rect.C3.X = pX(I)
  257.         Rect.C3.Y = pY(I)
  258.       CASE 3
  259.         Rect.C4.X = pX(I)
  260.         Rect.C4.Y = pY(I)
  261.     END SELECT
  262.   NEXT
  264.  
  265.  
  266. FUNCTION GDK_Rectangle_Intersect (Rect1 AS Rectangle, Rect2 AS Rectangle)
  267.   'IF Rect1.Rotation = 0 AND Rect2.Rotation = 0 THEN '// No rotation do standard collision check'''
  268. '
  269. '    IF Rect1.XY.X <= Rect2.XY.X + Rect2.WH.X THEN
  270. '      IF Rect1.XY.X + Rect1.WH.X >= Rect2.XY.X THEN
  271. '        IF Rect1.XY.Y <= Rect2.XY.Y + Rect2.WH.Y THEN
  272. '          IF Rect1.XY.Y + Rect1.WH.Y >= Rect2.XY.Y THEN
  273. '            GDK_Rectangle_Intersect = -1
  274. '            EXIT FUNCTION
  275. '          END IF
  276. '        END IF
  277. '      END IF
  278. '    END IF'
  279.  
  280. '  ELSE '// Rotated rectangles
  281.  
  282.     '// Adapted from code created by Richard Notley
  283.     '// http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=12564.0
  284.     REDIM sngCorners1!(3, 1), sngCorners2!(3, 1), sngCorners2A!(3, 1), sngCentre!(1, 1)
  285.  
  286.     '// Put rect data into arrays
  287.     sngCorners1!(0, 0) = Rect1.C1.X
  288.     sngCorners1!(0, 1) = Rect1.C1.Y
  289.     sngCorners1!(1, 0) = Rect1.C2.X
  290.     sngCorners1!(1, 1) = Rect1.C2.Y
  291.     sngCorners1!(2, 0) = Rect1.C3.X
  292.     sngCorners1!(2, 1) = Rect1.C3.Y
  293.     sngCorners1!(3, 0) = Rect1.C4.X
  294.     sngCorners1!(3, 1) = Rect1.C4.Y
  295.  
  296.     sngCorners2!(0, 0) = Rect2.C1.X
  297.     sngCorners2!(0, 1) = Rect2.C1.Y
  298.     sngCorners2!(1, 0) = Rect2.C2.X
  299.     sngCorners2!(1, 1) = Rect2.C2.Y
  300.     sngCorners2!(2, 0) = Rect2.C3.X
  301.     sngCorners2!(2, 1) = Rect2.C3.Y
  302.     sngCorners2!(3, 0) = Rect2.C4.X
  303.     sngCorners2!(3, 1) = Rect2.C4.Y
  304.  
  305.     'Extra copy of sngCorners2! used for second poke-through condition check
  306.     FOR bytN%% = 0 TO 3
  307.       FOR bytM%% = 0 TO 1
  308.         sngCorners2A!(bytN%%, bytM%%) = sngCorners2!(bytN%%, bytM%%)
  309.       NEXT bytM%%
  310.     NEXT bytN%%
  311.  
  312.     'Find Centres of Rectangles
  313.     sngCentre!(0, 0) = (sngCorners1!(0, 0) + sngCorners1!(1, 0) + sngCorners1!(2, 0) + sngCorners1!(3, 0)) / 4
  314.     sngCentre!(0, 1) = (sngCorners1!(0, 1) + sngCorners1!(1, 1) + sngCorners1!(2, 1) + sngCorners1!(3, 1)) / 4
  315.     sngCentre!(1, 0) = (sngCorners2!(0, 0) + sngCorners2!(1, 0) + sngCorners2!(2, 0) + sngCorners2!(3, 0)) / 4
  316.     sngCentre!(1, 1) = (sngCorners2!(0, 1) + sngCorners2!(1, 1) + sngCorners2!(2, 1) + sngCorners2!(3, 1)) / 4
  317.  
  318.     'Find lengths of rectangle diagonals
  319.     sngDiag1! = (SQR((sngCorners1!(2, 0) - sngCorners1!(0, 0)) * (sngCorners1!(2, 0) - sngCorners1!(0, 0)) + (sngCorners1!(2, 1) - sngCorners1!(0, 1)) * (sngCorners1!(2, 1) - sngCorners1!(0, 1)))) / 2
  320.     sngDiag2! = (SQR((sngCorners2!(2, 0) - sngCorners2!(0, 0)) * (sngCorners2!(2, 0) - sngCorners2!(0, 0)) + (sngCorners2!(2, 1) - sngCorners2!(0, 1)) * (sngCorners2!(2, 1) - sngCorners2!(0, 1)))) / 2
  321.     sngSepn! = SQR((sngCentre!(1, 0) - sngCentre!(0, 0)) * (sngCentre!(1, 0) - sngCentre!(0, 0)) + (sngCentre!(1, 1) - sngCentre!(0, 1)) * (sngCentre!(1, 1) - sngCentre!(0, 1)))
  322.  
  323.     IF sngSepn! <= sngDiag1! + sngDiag2! THEN
  324.       'Only need to do collision check if rectangles are closer than sum of half-diagonals
  325.  
  326.       'Check for intersect of diagonals
  327.       IF HF_CrossOver%%(sngCorners1!(0, 1), sngCorners1!(0, 0), sngCorners1!(2, 1), sngCorners1!(2, 0), sngCorners2!(0, 1), sngCorners2!(0, 0), sngCorners2!(2, 1), sngCorners2!(2, 0)) = -1 THEN
  328.         GDK_Rectangle_Intersect = -1
  329.         EXIT FUNCTION
  330.       ELSEIF HF_CrossOver%%(sngCorners1!(0, 1), sngCorners1!(0, 0), sngCorners1!(2, 1), sngCorners1!(2, 0), sngCorners2!(1, 1), sngCorners2!(1, 0), sngCorners2!(3, 1), sngCorners2!(3, 0)) = -1 THEN
  331.         GDK_Rectangle_Intersect = -1
  332.         EXIT FUNCTION
  333.       ELSEIF HF_CrossOver%%(sngCorners1!(1, 1), sngCorners1!(1, 0), sngCorners1!(3, 1), sngCorners1!(3, 0), sngCorners2!(0, 1), sngCorners2!(0, 0), sngCorners2!(2, 1), sngCorners2!(2, 0)) = -1 THEN
  334.         GDK_Rectangle_Intersect = -1
  335.         EXIT FUNCTION
  336.       ELSEIF HF_CrossOver%%(sngCorners1!(1, 1), sngCorners1!(1, 0), sngCorners1!(3, 1), sngCorners1!(3, 0), sngCorners2!(1, 1), sngCorners2!(1, 0), sngCorners2!(3, 1), sngCorners2!(3, 0)) = -1 THEN
  337.         GDK_Rectangle_Intersect = -1
  338.         EXIT FUNCTION
  339.       ELSE
  340.         'Check for poke-throughs
  341.  
  342.         'adjust sngCorners2! relative to sngArr1! centre
  343.  
  344.         FOR bytN%% = 0 TO 3
  345.           FOR bytM%% = 0 TO 1
  346.             sngCorners2!(bytN%%, bytM%%) = sngCorners2!(bytN%%, bytM%%) - sngCentre!(0, bytM%%)
  347.           NEXT bytM%%
  348.         NEXT bytN%%
  349.  
  350.         'rotate to sngArr1!
  351.  
  352.         'find Angle of sngCorners1!
  353.         sngAngRot! = HF_Angle!(sngCorners1!(3, 1) - sngCorners1!(0, 1), sngCorners1!(3, 0) - sngCorners1!(0, 0))
  354.  
  355.         FOR bytN%% = 0 TO 3
  356.           sngR! = SQR(sngCorners2!(bytN%%, 0) * sngCorners2!(bytN%%, 0) + sngCorners2!(bytN%%, 1) * sngCorners2!(bytN%%, 1)): sngPhi! = HF_Angle!(sngCorners2!(bytN%%, 1), sngCorners2!(bytN%%, 0))
  357.           sngCorners2!(bytN%%, 1) = sngR! * COS(sngPhi! - sngAngRot!)
  358.           sngCorners2!(bytN%%, 0) = sngR! * SIN(sngPhi! - sngAngRot!)
  359.         NEXT bytN%%
  360.  
  361.         'Find height and width of sngCorners1!
  362.         sngRWidth! = SQR((sngCorners1!(0, 0) - sngCorners1!(1, 0)) * (sngCorners1!(0, 0) - sngCorners1!(1, 0)) + (sngCorners1!(0, 1) - sngCorners1!(1, 1)) * (sngCorners1!(0, 1) - sngCorners1!(1, 1)))
  363.         sngRHeight! = SQR((sngCorners1!(0, 0) - sngCorners1!(3, 0)) * (sngCorners1!(0, 0) - sngCorners1!(3, 0)) + (sngCorners1!(0, 1) - sngCorners1!(3, 1)) * (sngCorners1!(0, 1) - sngCorners1!(3, 1)))
  364.  
  365.         FOR bytN%% = 0 TO 3
  366.           IF sngCorners2!(bytN%%, 1) <= sngRHeight! / 2 THEN
  367.             IF sngCorners2!(bytN%%, 1) >= -sngRHeight! / 2 THEN
  368.               IF sngCorners2!(bytN%%, 0) <= sngRWidth! / 2 THEN
  369.                 IF sngCorners2!(bytN%%, 0) >= -sngRWidth! / 2 THEN
  370.                   GDK_Rectangle_Intersect = -1
  371.                   EXIT FUNCTION
  372.                 END IF
  373.               END IF
  374.             END IF
  375.           END IF
  376.         NEXT
  377.  
  378.         'adjust sngCorners1! relative to sngArr2! centre
  379.  
  380.         FOR bytN%% = 0 TO 3
  381.           FOR bytM%% = 0 TO 1
  382.             sngCorners1!(bytN%%, bytM%%) = sngCorners1!(bytN%%, bytM%%) - sngCentre!(1, bytM%%)
  383.           NEXT bytM%%
  384.         NEXT bytN%%
  385.  
  386.         'rotate to sngArr2!
  387.  
  388.         'find Angle of sngCorners2A!
  389.         sngAngRot! = HF_Angle!(sngCorners2A!(3, 1) - sngCorners2A!(0, 1), sngCorners2A!(3, 0) - sngCorners2A!(0, 0))
  390.  
  391.         FOR bytN%% = 0 TO 3
  392.           sngR! = SQR(sngCorners1!(bytN%%, 0) * sngCorners1!(bytN%%, 0) + sngCorners1!(bytN%%, 1) * sngCorners1!(bytN%%, 1)): sngPhi! = HF_Angle!(sngCorners1!(bytN%%, 1), sngCorners1!(bytN%%, 0))
  393.           sngCorners1!(bytN%%, 1) = sngR! * COS(sngPhi! - sngAngRot!)
  394.           sngCorners1!(bytN%%, 0) = sngR! * SIN(sngPhi! - sngAngRot!)
  395.         NEXT bytN%%
  396.  
  397.         'Find height and width of sngCorners2!
  398.         sngRWidth! = SQR((sngCorners2A!(0, 0) - sngCorners2A!(1, 0)) * (sngCorners2A!(0, 0) - sngCorners2A!(1, 0)) + (sngCorners2A!(0, 1) - sngCorners2A!(1, 1)) * (sngCorners2A!(0, 1) - sngCorners2A!(1, 1)))
  399.         sngRHeight! = SQR((sngCorners2A!(0, 0) - sngCorners2A!(3, 0)) * (sngCorners2A!(0, 0) - sngCorners2A!(3, 0)) + (sngCorners2A!(0, 1) - sngCorners2A!(3, 1)) * (sngCorners2A!(0, 1) - sngCorners2A!(3, 1)))
  400.  
  401.         FOR bytN%% = 0 TO 3
  402.           IF sngCorners1!(bytN%%, 1) <= sngRHeight! / 2 THEN
  403.             IF sngCorners1!(bytN%%, 1) >= -sngRHeight! / 2 THEN
  404.               IF sngCorners1!(bytN%%, 0) <= sngRWidth! / 2 THEN
  405.                 IF sngCorners1!(bytN%%, 0) >= -sngRWidth! / 2 THEN
  406.                   GDK_Rectangle_Intersect = -1
  407.                   EXIT FUNCTION
  408.                 END IF
  409.               END IF
  410.             END IF
  411.           END IF
  412.         NEXT
  413.  
  414.       END IF
  415.     END IF
  416. '  END IF
  418.  
  419. FUNCTION HF_Angle! (X!, Y!) '// Helper function for collisions
  420.   IF X! = 0 THEN
  421.     IF Y! < 0 THEN
  422.       HF_Angle! = -_PI / 2
  423.     ELSE
  424.       HF_Angle! = _PI / 2
  425.     END IF
  426.   ELSE
  427.     HF_Angle! = ATN(Y! / X!)
  428.   END IF
  429.   IF X! < 0 THEN
  430.     HF_Angle! = HF_Angle! - _PI
  431.     IF HF_Angle! < -_PI THEN HF_Angle! = HF_Angle! + 2 * _PI
  432.   END IF
  434.  
  435. FUNCTION HF_CrossOver%% (sngXT1!, sngYT1!, sngXS1!, sngYS1!, sngXT2!, sngYT2!, sngXS2!, sngYS2!) '// Helper function
  436.   sngM1! = (sngYT1! - sngYS1!) / (sngXT1! - sngXS1!)
  437.   sngC1! = ((sngXT1! * sngYS1!) - (sngXS1! * sngYT1!)) / (sngXT1! - sngXS1!)
  438.   sngM2! = (sngYT2! - sngYS2!) / (sngXT2! - sngXS2!)
  439.   sngC2! = ((sngXT2! * sngYS2!) - (sngXS2! * sngYT2!)) / (sngXT2! - sngXS2!)
  440.   sngXCross! = (sngC1! - sngC2!) / (sngM2! - sngM1!) '!!! <- Possible Divide by zero
  441.   sngYCross! = (sngM1! * sngXCross!) + sngC1!
  442.   sngX1H! = sngXT1!: sngY1H! = sngYT1!
  443.   sngX1L! = sngXS1!: sngY1L! = sngYS1!
  444.   sngX2H! = sngXT2!: sngY2H! = sngYT2!
  445.   sngX2L! = sngXS2!: sngY2L! = sngYS2!
  446.   IF sngX1L! > sngX1H! THEN SWAP sngX1L!, sngX1H!
  447.   IF sngY1L! > sngY1H! THEN SWAP sngY1L!, sngY1H!
  448.   IF sngX2L! > sngX2H! THEN SWAP sngX2L!, sngX2H!
  449.   IF sngY2L! > sngY2H! THEN SWAP sngY2L!, sngY2H!
  450.   IF sngXCross! >= sngX1L! THEN
  451.     IF sngXCross! <= sngX1H! THEN
  452.       IF sngYCross! >= sngY1L! THEN
  453.         IF sngYCross! <= sngY1H! THEN
  454.           IF sngXCross! >= sngX2L! THEN
  455.             IF sngXCross! <= sngX2H! THEN
  456.               IF sngYCross! >= sngY2L! THEN
  457.                 IF sngYCross! <= sngY2H! THEN
  458.                   HF_CrossOver%% = -1
  459.                 END IF
  460.               END IF
  461.             END IF
  462.           END IF
  463.         END IF
  464.       END IF
  465.     END IF
  466.   END IF
  468.  
  469.  
  470.  
  471. FUNCTION GDK_BoundingCircle_Intersect (Circ1 AS BoundingCircle, Circ2 AS BoundingCircle)
  472.   LRAD% = Circ1.Radius + Circ2.Radius
  473.   CDist! = GDK_Distance(Circ1.X, Circ1.Y, Circ2.X, Circ2.Y)
  474.   IF CDist! > LRAD% THEN
  475.     GDK_BoundingCircle_Intersect = 0
  476.   ELSE
  477.     GDK_BoundingCircle_Intersect = -1
  478.   END IF
  480.  
  481. SUB GDK_BoundingCircle_New (Circ1 AS BoundingCircle, X%, Y%, Radius%)
  482.   Circ1.X = X%
  483.   Circ1.Y = Y%
  484.   Circ1.Radius = Radius%
  486.  
  487.  
  488. '##########################################################################################################################
  489. '//Vector stuff
  490. '##########################################################################################################################
  491.  
  492. SUB GDK_Vector_New (Vector AS Vector, X%, Y%, Speed!, Rotation#)
  493.   Vector.X = X%
  494.   Vector.Y = Y%
  495.   Vector.Speed = Speed!
  496.   Vector.Rotation = Rotation#
  498.  
  499. SUB GDK_Vector_SetPosition (Vector AS Vector, X%, Y%)
  500.   Vector.X = X%
  501.   Vector.Y = Y%
  503.  
  504. SUB GDK_Vector_SetRotation (Vector AS Vector, Rotation#)
  505.   Vector.Rotation = Rotation#
  507.  
  508. SUB GDK_Vector_SetSpeed (Vector AS Vector, Speed!)
  509.   Vector.Speed = Speed!
  511.  
  512. SUB GDK_Vector_SetAccelDecel (Vector AS Vector, Accel!, Decel!)
  513.   Vector.Accel = Accel!
  514.   Vector.Decel = Decel!
  516.  
  517. SUB GDK_Vector_Update (Vector AS Vector)
  518.   IF Vector.Decel > 0 THEN
  519.     IF Vector.Accel > 0 THEN
  520.       Vector.Accel = Vector.Accel - Vector.Decel
  521.     ELSE
  522.       IF Vector.Speed > (Vector.Decel) THEN Vector.Speed = Vector.Speed - Vector.Decel ELSE Vector.Speed = 0
  523.     END IF
  524.   END IF
  525.   IF Vector.Accel > 0 THEN Vector.Speed = Vector.Speed + Vector.Accel
  526.   GDK_Vector_Move Vector
  528.  
  529. SUB GDK_Vector_Move (Vector AS Vector)
  530.   Vector.X = Vector.X - SIN(Vector.Rotation) * Vector.Speed
  531.   Vector.Y = Vector.Y - COS(Vector.Rotation) * Vector.Speed
  533.  
  534. '##########################################################################################################################
  535. '// Sprite stuff
  536. '##########################################################################################################################
  537.  
  538. SUB GDK_Sprite_New (Sprite AS Sprite, FileSource$, XFrameCount%, YFrameCount%, TotalFrameCount%, Alpha&)
  539.   Sprite.File = _LOADIMAGE(FileSource$, 32)
  540.   Sprite.Width = _WIDTH(Sprite.File)
  541.   Sprite.Height = _HEIGHT(Sprite.File)
  542.   Sprite.XFrameCount = XFrameCount%
  543.   Sprite.YFrameCount = YFrameCount%
  544.   Sprite.TotalFrameCount = TotalFrameCount%
  545.   Sprite.Scale = 1
  546.   Sprite.IsVisible = -1
  547.   Sprite.Alpha = Alpha&
  549.  
  550. SUB GDK_Sprite_SetRotationPoint (Sprite AS Sprite, X!, Y!)
  551.   Sprite.RotationX = X!
  552.   Sprite.RotationY = Y!
  554.  
  555. SUB GDK_Sprite_SetVisibility (Sprite AS Sprite, OnOff AS _BYTE)
  556.   Sprite.IsVisible = OnOff
  558.  
  559. SUB GDK_Sprite_SetAlpha (Sprite AS Sprite, Alpha&)
  560.   Sprite.Alpha = Alpha&
  562.  
  563. SUB GDK_Sprite_DrawXY (Sprite AS Sprite, X%, Y%, Rotation!, AnimationFrame%)
  564.   DIM tempvect AS Vector
  565.   GDK_Vector_New tempvect, X%, Y%, 0, Rotation!
  566.   GDK_Sprite_Draw Sprite, tempvect, AnimationFrame%
  568.  
  569. SUB GDK_Sprite_Hide (Handle AS Sprite)
  570.   Handle.IsVisible = 0
  572.  
  573. SUB GDK_Sprite_Show (Handle AS Sprite)
  574.   Handle.IsVisible = -1
  576.  
  577. SUB GDK_Sprite_Free (Sprite AS Sprite)
  578.   _FREEIMAGE (Sprite.File)
  579.   Sprite.IsVisible = 0
  581.  
  582. SUB GDK_Sprite_Clone (SourceSprite AS Sprite, DestSprite AS Sprite)
  583.   DestSprite = SourceSprite
  585.  
  586. SUB GDK_Sprite_Clone_X (SourceSprite AS Sprite, DestSprite() AS Sprite, FirstClone%, NumberOfClones%)
  587.   FOR CloneCount% = FirstClone% TO FirstClone% + NumberOfClones% - 1
  588.     DestSprite(CloneCount%) = SourceSprite
  589.   NEXT
  591.  
  592. SUB GDK_Sprite_SetRotationAsCenter (Sprite AS Sprite)
  593.   GDK_Sprite_SetRotationPoint Sprite, Sprite.Width / (Sprite.XFrameCount * 2), Sprite.Height / (Sprite.YFrameCount * 2)
  595.  
  596. '// UPDATED VERSION!!
  597. SUB GDK_Sprite_Draw (Sprite AS Sprite, DestVector AS Vector, Frame%)
  598.   IF Frame% = 0 THEN Frame% = 1
  599.   _CLEARCOLOR Sprite.Alpha, Sprite.File
  600.   IF Sprite.IsVisible THEN
  601.     FrameXSize% = Sprite.Width / Sprite.XFrameCount
  602.     FrameYSize% = Sprite.Height / Sprite.YFrameCount
  603.     FrameXStart% = ((INT((Frame% - 1) MOD Sprite.XFrameCount)) * FrameXSize%)
  604.     FrameYStart% = ((INT((Frame% - 1) / Sprite.XFrameCount)) * FrameYSize%)
  605.     TmpImage& = _NEWIMAGE(FrameXSize%, FrameYSize%, 32)
  606.     _PUTIMAGE (0, 0), Sprite.File, TmpImage&, (FrameXStart%, FrameYStart%)-(FrameXStart% + FrameXSize%, FrameYStart% + FrameYSize%)
  607.     Rotate_Scale_AroundPoint DestVector.X, DestVector.Y, TmpImage&, -GDK_RadianToDegree(DestVector.Rotation), Sprite.Scale, Sprite.Scale, Sprite.RotationX, Sprite.RotationY
  608.     _FREEIMAGE TmpImage&
  609.   END IF
  611.  
  612.  
  613. '##########################################################################################################################
  614. '// SCREEN Stuff!
  615. '##########################################################################################################################
  616.  
  617. SUB GDK_Screen_SetRes (ScreenHandle&, width%, height%)
  618.   ScreenHandle& = _NEWIMAGE(width%, height%, 32)
  619.   SCREEN ScreenHandle&
  621.  
  622.  
  623. '##########################################################################################################################
  624. '// User input subs and functions.
  625. '##########################################################################################################################
  626.  
  627. SUB GDK_Keyboard_GetState (KeyboardRef AS KeyBoardState)
  628.   FOR x% = 1 TO 88 'read each key scancode from array
  629.     IF x% = 1 THEN KeyboardRef.ESC = ScanKey%(x%)
  630.     IF x% = 2 THEN KeyboardRef.Num1 = ScanKey%(x%)
  631.     IF x% = 3 THEN KeyboardRef.Num2 = ScanKey%(x%)
  632.     IF x% = 4 THEN KeyboardRef.Num3 = ScanKey%(x%)
  633.     IF x% = 5 THEN KeyboardRef.Num4 = ScanKey%(x%)
  634.     IF x% = 6 THEN KeyboardRef.Num5 = ScanKey%(x%)
  635.     IF x% = 7 THEN KeyboardRef.Num6 = ScanKey%(x%)
  636.     IF x% = 8 THEN KeyboardRef.Num7 = ScanKey%(x%)
  637.     IF x% = 9 THEN KeyboardRef.Num8 = ScanKey%(x%)
  638.     IF x% = 10 THEN KeyboardRef.Num9 = ScanKey%(x%)
  639.     IF x% = 11 THEN KeyboardRef.Num0 = ScanKey%(x%)
  640.     IF x% = 12 THEN KeyboardRef.MINUS = ScanKey%(x%)
  641.     IF x% = 13 THEN KeyboardRef.PLUS = ScanKey%(x%)
  642.     IF x% = 14 THEN KeyboardRef.BACKSPACE = ScanKey%(x%)
  643.     IF x% = 15 THEN KeyboardRef.TAB = ScanKey%(x%)
  644.     IF x% = 30 THEN KeyboardRef.A = ScanKey%(x%)
  645.     IF x% = 48 THEN KeyboardRef.B = ScanKey%(x%)
  646.     IF x% = 46 THEN KeyboardRef.C = ScanKey%(x%)
  647.     IF x% = 32 THEN KeyboardRef.D = ScanKey%(x%)
  648.     IF x% = 18 THEN KeyboardRef.E = ScanKey%(x%)
  649.     IF x% = 33 THEN KeyboardRef.F = ScanKey%(x%)
  650.     IF x% = 34 THEN KeyboardRef.G = ScanKey%(x%)
  651.     IF x% = 35 THEN KeyboardRef.H = ScanKey%(x%)
  652.     IF x% = 23 THEN KeyboardRef.I = ScanKey%(x%)
  653.     IF x% = 36 THEN KeyboardRef.J = ScanKey%(x%)
  654.     IF x% = 37 THEN KeyboardRef.K = ScanKey%(x%)
  655.     IF x% = 38 THEN KeyboardRef.L = ScanKey%(x%)
  656.     IF x% = 50 THEN KeyboardRef.M = ScanKey%(x%)
  657.     IF x% = 49 THEN KeyboardRef.N = ScanKey%(x%)
  658.     IF x% = 24 THEN KeyboardRef.O = ScanKey%(x%)
  659.     IF x% = 25 THEN KeyboardRef.P = ScanKey%(x%)
  660.     IF x% = 16 THEN KeyboardRef.Q = ScanKey%(x%)
  661.     IF x% = 19 THEN KeyboardRef.R = ScanKey%(x%)
  662.     IF x% = 31 THEN KeyboardRef.S = ScanKey%(x%)
  663.     IF x% = 20 THEN KeyboardRef.T = ScanKey%(x%)
  664.     IF x% = 22 THEN KeyboardRef.U = ScanKey%(x%)
  665.     IF x% = 47 THEN KeyboardRef.V = ScanKey%(x%)
  666.     IF x% = 17 THEN KeyboardRef.W = ScanKey%(x%)
  667.     IF x% = 45 THEN KeyboardRef.X = ScanKey%(x%)
  668.     IF x% = 21 THEN KeyboardRef.Y = ScanKey%(x%)
  669.     IF x% = 44 THEN KeyboardRef.Z = ScanKey%(x%)
  670.     IF x% = 72 THEN KeyboardRef.Up = ScanKey%(x%)
  671.     IF x% = 75 THEN KeyboardRef.Left = ScanKey%(x%)
  672.     IF x% = 77 THEN KeyboardRef.Right = ScanKey%(x%)
  673.     IF x% = 80 THEN KeyboardRef.Down = ScanKey%(x%)
  674.     IF x% = 28 THEN KeyboardRef.ENTER = ScanKey%(x%)
  675.     IF x% = 57 THEN KeyboardRef.SPACE = ScanKey%(x%)
  676.     IF x% = 29 THEN KeyboardRef.CTRL = ScanKey%(x%)
  677.     IF x% = 56 THEN KeyboardRef.ALT = ScanKey%(x%)
  678.     IF x% = 42 THEN KeyboardRef.SHIFT = ScanKey%(x%)
  679.   NEXT
  681.  
  682. FUNCTION ScanKey% (scancode%)
  683.   STATIC Ready%, keyflags%() 'retain values on procedure exit
  684.   IF NOT Ready% THEN REDIM keyflags%(0 TO 127): Ready% = -1 'create array on first use
  685.   i% = INP(&H60) 'read keyboard states
  686.   IF (i% AND 128) THEN keyflags%(i% XOR 128) = 0
  687.   IF (i% AND 128) = 0 THEN keyflags%(i%) = -1
  688.   K$ = INKEY$ 'clears key buffer to prevent beeps
  689.   ScanKey% = keyflags%(scancode%)
  690.   IF scancode% = 0 THEN Ready% = 0 'allows program to reset all values to 0 with a REDIM
  692.  
  693. SUB GDK_Mouse_GetState (MouseRef AS MouseState)
  695.   MouseRef.X = _MOUSEX
  696.   MouseRef.Y = _MOUSEY
  697.   MouseRef.LB = _MOUSEBUTTON(1)
  698.   MouseRef.RB = _MOUSEBUTTON(2)
  699.   MouseRef.MB = _MOUSEBUTTON(3)
  700.   MouseRef.MW = _MOUSEWHEEL
  702. '##########################################################################################################################
  703. '//Particle engine v.03
  704. '##########################################################################################################################
  705.  
  706. SUB GDK_Emitter_New (EmitRef AS Emitter, x%, y%, SpawnRate%, AngleMin!, AngleMax!, VelMin!, VelMax!, MinLifeTime#, MaxLifeTime#)
  707.   EmitRef.X = x%
  708.   EmitRef.Y = y%
  709.   EmitRef.SpawnRate = SpawnRate%
  710.   EmitRef.SpawnAngleMin = AngleMin!
  711.   EmitRef.SpawnAngleMax = AngleMax!
  712.   EmitRef.SpawnMaxVelocity = VelMax!
  713.   EmitRef.SpawnMinVelocity = VelMin!
  714.   EmitRef.MaxLifeTime = MaxLifeTime#
  715.   EmitRef.MinLifeTime = MinLifeTime#
  717.  
  718. SUB GDK_Emitter_SetGravity (EmitRef AS Emitter, Gravity!)
  719.   EmitRef.Gravity = Gravity!
  721.  
  722. SUB GDK_Emitter_SetAccelDecel (EmitRef AS Emitter, AccelMin!, AccelMax!, DecelMin!, DecelMax!)
  723.   EmitRef.AccelMin = AccelMin!
  724.   EmitRef.AccelMax = AccelMax!
  725.   EmitRef.DecelMIn = DecelMin!
  726.   EmitRef.DecelMax! = DecelMax!
  728.  
  729. SUB GDK_Particles_Spawn (EmitRef AS Emitter, PartRef() AS Particle, ParticleMax&, InitialColor&, ColorChange&, ChangeMode%)
  730.   PBTime# = TIMER(.001)
  731.   FOR i& = 0 TO ParticleMax&
  732.     IF NOT PartRef(i&).Exists THEN
  733.       PartRef(i&).Vector.X = EmitRef.X
  734.       PartRef(i&).Vector.Y = EmitRef.Y
  735.       PartRef(i&).Exists = -1
  736.       PartRef(i&).Vector.Rotation = (RND * EmitRef.SpawnAngleMax) + EmitRef.SpawnAngleMin
  737.       PartRef(i&).Vector.Speed = (RND * EmitRef.SpawnMaxVelocity) + EmitRef.SpawnMinVelocity
  738.       PartRef(i&).LifeTime = (RND * EmitRef.MaxLifeTime) + EmitRef.MinLifeTime
  739.       PartRef(i&).InitialCLR = InitialColor&
  740.       PartRef(i&).CurrentCLR = InitialColor&
  741.       PartRef(i&).ClrChange = ColorChange&
  742.       PartRef(i&).BirthTime = PBTime#
  743.       PartRef(i&).ClrChangeMode = ChangeMode%
  744.       IF EmitRef.AccelMax > 0 THEN
  745.         PartRef(i&).Accel = (RND * EmitRef.AccelMax) + EmitRef.AccelMin
  746.       END IF
  747.       IF EmitRef.DecelMax > 0 THEN
  748.         PartRef(i&).Decel = (RND * EmitRef.DecelMax) + EmitRef.DecelMIn
  749.       END IF
  750.       IF SuccessfulSpawns& = EmitRef.SpawnRate THEN EXIT FOR ELSE SuccessfulSpawns& = SuccessfulSpawns& + 1
  751.     END IF
  752.   NEXT
  754.  
  755. SUB GDK_Particles_Update (PartRef() AS Particle, ParticleMax&)
  756.   FOR i& = 0 TO ParticleMax&
  757.     IF PartRef(i&).Exists THEN
  758.       IF TIMER(.001) - PartRef(i&).BirthTime >= PartRef(i&).LifeTime THEN
  759.         PartRef(i&).Exists = 0
  760.       ELSE
  761.         IF PartRef(i&).Vector.Speed > 0 THEN
  762.           IF PartRef(i&).Decel > 0 THEN
  763.             IF PartRef(i&).Accel > 0 THEN
  764.               PartRef(i&).Accel = PartRef(i&).Accel - PartRef(i&).Decel
  765.             ELSE
  766.               PartRef(i&).Vector.Speed = PartRef(i&).Vector.Speed - PartRef(i&).Decel
  767.             END IF
  768.           END IF
  769.           IF PartRef(i&).Accel > 0 THEN PartRef(i&).Vector.Speed = PartRef(i&).Vector.Speed + PartRef(i&).Accel
  770.           IF PartRef(i&).ClrChangeMode = 1 THEN
  771.             PartRef(i&).CurrentCLR = _RGB32(_RED(PartRef(i&).CurrentCLR) - _RED(PartRef(i&).ClrChange), _GREEN(PartRef(i&).CurrentCLR) - _GREEN(PartRef(i&).ClrChange), _BLUE(PartRef(i&).CurrentCLR) - _BLUE(PartRef(i&).ClrChange))
  772.           ELSE
  773.             PartRef(i&).CurrentCLR = _RGB32(_RED(PartRef(i&).CurrentCLR) + _RED(PartRef(i&).ClrChange), _GREEN(PartRef(i&).CurrentCLR) + _GREEN(PartRef(i&).ClrChange), _BLUE(PartRef(i&).CurrentCLR) + _BLUE(PartRef(i&).ClrChange))
  774.           END IF
  775.           GDK_Vector_Move PartRef(i&).Vector
  776.         ELSE
  777.           PartRef(i&).Exists = 0
  778.         END IF
  779.       END IF
  780.     END IF
  781.   NEXT
  783.  
  784. SUB GDK_Particles_Draw (PartRef() AS Particle, ParticleMax&)
  785.   FOR i& = 0 TO ParticleMax&
  786.     IF PartRef(i&).Exists THEN
  787.       PSET (PartRef(i&).Vector.X, PartRef(i&).Vector.Y), PartRef(i&).CurrentCLR
  788.     END IF
  789.   NEXT
  791.  
  792. '##########################################################################################################################
  793. '// MATH FUNCTIONS
  794. '##########################################################################################################################
  795.  
  796. FUNCTION GDK_Distance! (X%, Y%, XX%, YY%)
  797.   xd% = XX% - X%
  798.   yd% = YY% - Y%
  799.   GDK_Distance! = SQR((xd% * xd%) + (yd% * yd%))
  801.  
  802. FUNCTION GDK_RadianToDegree! (Radians!)
  803.   GDK_RadianToDegree! = Radians! * (180 / (4 * ATN(1)))
  805.  
  806. FUNCTION GDK_DegreeToRadian! (Degrees!)
  807.   GDK_DegreeToRadian! = Degrees! * ((4 * ATN(1)) / 180)
  809.  
  810. SUB GDK_MathX
  812.     FUNCTION atan2# (BYVAL y#, BYVAL x#)
  813.     FUNCTION acos# (BYVAL x#)
  814.     FUNCTION asin# (BYVAL x#)
  815.     FUNCTION cosh# (BYVAL x#)
  816.     FUNCTION sinh# (BYVAL x#)
  817.     FUNCTION tanh# (BYVAL x#)
  818.     FUNCTION pow# (BYVAL base#, BYVAL exponent#)
  821.  
  822. '##########################################################################################################################
  823. '// Tile engine
  824. '##########################################################################################################################
  825.  
  826. SUB GDK_TileSet_New (TileRef AS Tileset, File$, XTiles%, YTiles%, Alpha&)
  827.   GDK_Sprite_New TileRef.Sheet, File$, XTiles%, YTiles%, XTiles% * YTiles%, Alpha&
  828.   TileRef.TWidth = (TileRef.Sheet.Width / XTiles%)
  829.   TileRef.THeight = (TileRef.Sheet.Height / YTiles%)
  831.  
  832. SUB GDK_TileMap_Load (Level() AS Tile, XTiles%, YTiles%)
  833.   FOR j% = 0 TO YTiles% - 1
  834.     FOR i% = 0 TO XTiles% - 1
  835.       READ tile%
  836.       Level(i%, j%).Tile = tile%
  837.     NEXT
  838.   NEXT
  840.  
  841. SUB GDK_TileMap_Draw (TileRef AS Tileset, Level() AS Tile, X%, Y%, XCnt%, YCnt%, XMax%, YMax%)
  842.   Tx% = X%
  843.   Ty% = Y%
  844.   sx% = _WIDTH(_DEST)
  845.   sy% = _HEIGHT(_DEST)
  846.   FOR j% = YCnt% TO YMax% - 1
  847.     FOR i% = XCnt% TO XMax% - 1
  848.       IF Tx% < sx% THEN
  849.         IF Level(i%, j%).Tile > 0 THEN
  850.           GDK_Sprite_DrawXY TileRef.Sheet, Tx%, Ty%, 0, Level(i%, j%).Tile
  851.         END IF
  852.         Tx% = Tx% + (TileRef.TWidth * TileRef.Sheet.Scale)
  853.       ELSE
  854.         EXIT FOR
  855.       END IF
  856.     NEXT
  857.     Tx% = X%
  858.     IF Ty% < sy% THEN Ty% = Ty% + (TileRef.THeight * TileRef.Sheet.Scale) ELSE EXIT FOR
  859.   NEXT
  861.  
  862.  
  863. SUB GDK_TileMap_Load_FromFile (GameFile$, Level() AS Tile, YTiles%)
  864.   X& = FREEFILE
  865.   OPEN GameFile$ FOR INPUT AS #X&
  866.   FOR i% = 0 TO YTiles% - 1
  867.     LINE INPUT #X&, DataLine$
  868.     Cnt% = 0
  869.     FOR j% = 0 TO LEN(DataLine$)
  870.       IF INSTR(j%, DataLine$, ",") > 0 THEN
  871.         Level(Cnt%, i%).Tile = VAL(MID$(DataLine$, j%, INSTR(j%, DataLine$, ",") - j%))
  872.         j% = INSTR(j%, DataLine$, ",")
  873.         Cnt% = Cnt% + 1
  874.       ELSE
  875.         Level(Cnt%, i%).Tile = VAL(MID$(DataLine$, j%))
  876.       END IF
  877.     NEXT
  878.   NEXT
  879.   CLOSE #X&
  881.  
  882. SUB GDK_Tileset_SetScale (TileRef AS Tileset, Scale!)
  883.   TileRef.Sheet.Scale = Scale!
  885.  
  886. 'SUB GDK_Tiles_Draw_ISO (TileRef AS Tileset, XYRef() AS XY, Level() AS Tile, X%, Y%, XCnt%, YCnt%, XMax%, YMax%)
  887. '  Tx% = X%
  888. '  Ty% = Y%
  889. '  YCntr% = 0
  890. '  FOR j% = YCnt% TO YMax% - 1
  891. '    FOR i% = XCnt% TO XMax% - 1
  892. '            IF Level(i%, j%).Tile > 0 THEN GDK_Tile_Draw TileRef, Level(i%, j%).Tile, XYRef(), Tx%, Ty%
  893. '            Tx% = Tx% + (TileRef.TWidth / 2)
  894. '            Ty% = Ty% + (TileRef.THeight / 4)
  895. '        NEXT
  896. '        YCntr% = YCntr% + 1
  897. '        Ty% = Y% + YCntr% * (TileRef.THeight / 4)
  898. '        Tx% = X% - (YCntr% * (TileRef.TWidth / 2))
  899. '    NEXT
  900. 'END SUB
  901.  
  902.  
  903. '##########################################################################################################################
  904. '// GameObject Subs and Functions - SUper fast prototyping commands for games
  905. '##########################################################################################################################
  906.  
  907. SUB GDK_GameObject_New (Handle AS GameObject, File$, XframeCount%, YFrameCount%, X%, Y%, Speed!, Rotation!)
  908.   GDK_Sprite_New Handle.Sprite, File$, XframeCount%, YFrameCount%, XframeCount% * YFrameCount%, 1
  909.   GDK_Vector_New Handle.Vector, X%, Y%, Speed!, Rotation!
  910.   GDK_Sprite_SetVisibility Handle.Sprite, -1
  911.   GDK_Sprite_SetAlpha Handle.Sprite, _RGB(255, 0, 255)
  913.  
  914. SUB GDK_GameObject_Draw (GameObject AS GameObject, AnimationFrame%)
  915.   GDK_Sprite_Draw GameObject.Sprite, GameObject.Vector, AnimationFrame%
  917.  
  918. SUB GDK_GameObject_Update (Handle AS GameObject)
  919.   GDK_Vector_Update Handle.Vector
  920.   GDK_Rectangle_Autosize Handle.Sprite, Handle.Vector, Handle.Rect
  922.  
  923. SUB GDK_GameObject_Rotate (Handle AS GameObject, Rot!)
  924.   Handle.Vector.Rotation = Handle.Vector.Rotation + Rot!
  926.  
  927. SUB GDK_GameObject_Hide (Handle AS GameObject)
  928.   Handle.Sprite.IsVisible = 0
  930.  
  931. SUB GDK_GameObject_Show (Handle AS GameObject)
  932.   Handle.Sprite.IsVisible = -1
  934.  
  935. FUNCTION GDK_GameObject_Intersect (Handle AS GameObject, Handle2 AS GameObject)
  936.   IF GDK_Rectangle_Intersect(Handle.Rect, Handle2.Rect) THEN
  937.     GDK_GameObject_Intersect = -1
  938.   ELSE
  939.     GDK_GameObject_Intersect = 0
  940.   END IF
  942.  
  943. '##########################################################################################################################
  944. '// Animation routines - Taken from GDK_GL
  945. '##########################################################################################################################
  946.  
  947. SUB GDK_ANIMATION_NEW (Anim AS ANIMATION, Frame%, StartFrame%, ResetFrame%, AnimTime#, AnimTimer#)
  948.   Anim.Frame = Frame%
  949.   Anim.StartFrame = StartFrame%
  950.   Anim.ResetFrame = ResetFrame%
  951.   Anim.Time = AnimTime#
  952.   Anim.Timer = AnimTimer#
  953.   IF ResetFrame% < StartFrame% THEN Anim.Dir = -1 ELSE Anim.Dir = 0
  955.  
  956. SUB GDK_ANIMATION_UPDATE (Anim AS ANIMATION)
  957.   IF Anim.Dir = -1 THEN
  958.     IF Anim.Frame > Anim.StartFrame OR Anim.Frame < Anim.ResetFrame THEN
  959.       Anim.Frame = Anim.StartFrame
  960.       Anim.Timer = TIMER(.001)
  961.     ELSE
  962.       IF TIMER(.001) - Anim.Timer >= Anim.Time THEN
  963.         IF Anim.Frame = Anim.ResetFrame THEN
  964.           Anim.Frame = Anim.StartFrame
  965.         ELSE
  966.           Anim.Frame = Anim.Frame - 1
  967.         END IF
  968.         Anim.Timer = TIMER(.001)
  969.       END IF
  970.     END IF
  971.   ELSE
  972.     IF Anim.Frame < Anim.StartFrame OR Anim.Frame > Anim.ResetFrame THEN
  973.       Anim.Frame = Anim.StartFrame
  974.       Anim.Timer = TIMER(.001)
  975.     ELSE
  976.       IF TIMER(.001) - Anim.Timer >= Anim.Time THEN
  977.         IF Anim.Frame = Anim.ResetFrame THEN
  978.           Anim.Frame = Anim.StartFrame
  979.         ELSE
  980.           Anim.Frame = Anim.Frame + 1
  981.         END IF
  982.         Anim.Timer = TIMER(.001)
  983.       END IF
  984.     END IF
  985.   END IF
  987. '##########################################################################################################################
  988. '// Image ROTATION/ZOOM FUNCTION BY GALLEON
  989. '##########################################################################################################################
  990.  
  991. SUB Rotate_Scale_AroundPoint (X AS LONG, Y AS LONG, Image AS LONG, Rotation AS SINGLE, ScaleX AS SINGLE, ScaleY AS SINGLE, PointX AS LONG, PointY AS LONG)
  992.   DEFSNG A-Z
  993.   DIM pX(3) AS SINGLE: DIM pY(3) AS SINGLE
  994.   DIM W AS LONG, H AS LONG, I AS LONG, X2 AS LONG, Y2 AS LONG
  995.   W = _WIDTH(Image): H = _HEIGHT(Image)
  996.   pX(0) = -PointX: pY(0) = -PointY: pX(1) = -PointX: pY(1) = -PointY + H - 1: pX(2) = -PointX + W - 1: pY(2) = -PointY + H - 1: pX(3) = -PointX + W - 1: pY(3) = -PointY 'Set dest screen points
  997.   Radians = -Rotation / 57.29578: SINr = SIN(Radians): COSr = COS(Radians) 'Precalculate SIN & COS of angle
  998.   FOR I = 0 TO 3
  999.     pX(I) = pX(I) * ScaleX: pY(I) = pY(I) * ScaleY 'Scale
  1000.     X2 = pX(I) * COSr + SINr * pY(I): pY(I) = pY(I) * COSr - pX(I) * SINr: pX(I) = X2 'Rotate Dest Points
  1001.     pX(I) = pX(I) + X: pY(I) = pY(I) + Y 'Translate Dest Points
  1002.   NEXT
  1003.   _MAPTRIANGLE (0, 0)-(0, H - 1)-(W - 1, H - 1), Image TO(pX(0), pY(0))-(pX(1), pY(1))-(pX(2), pY(2))
  1004.   _MAPTRIANGLE (0, 0)-(W - 1, 0)-(W - 1, H - 1), Image TO(pX(0), pY(0))-(pX(3), pY(3))-(pX(2), pY(2))
  1006.  
  1007.  
  1008.  
  1009.  
  1010.  
  1011. '##########################################################################################################################
  1012. '// Path based movement v.02
  1013. '##########################################################################################################################
  1014.  
  1015. SUB GDK_Path_New (Path AS Path, PathPoint() AS PathPoint, NumPoints%, Reverse%, Repeat%, Relative%)
  1016.   IF Relative% THEN READ Path.Vector.X, Path.Vector.Y, Path.Vector.Speed
  1017.   FOR i% = 0 TO NumPoints% - 1
  1018.     READ PathPoint(i%).X, PathPoint(i%).Y, PathPoint(i%).Speed
  1019.   NEXT
  1020.   IF Relative% THEN
  1021.     Path.TargetVector.X = Path.Vector.X + PathPoint(0).X
  1022.     Path.TargetVector.Y = Path.Vector.Y + PathPoint(0).Y
  1023.     Path.Vector.Rotation = -atan2(Path.Vector.Y - Path.TargetVector.Y, Path.Vector.X - Path.TargetVector.X) + (2 * ATN(1))
  1024.   ELSE
  1025.     Path.Vector.X = PathPoint(0).X
  1026.     Path.Vector.Y = PathPoint(0).Y
  1027.     Path.Vector.Speed = PathPoint(0).Speed
  1028.     Path.Vector.Rotation = -atan2(PathPoint(0).Y - PathPoint(1).Y, PathPoint(0).X - PathPoint(1).X) + (2 * ATN(1))
  1029.     Path.TargetVector.X = PathPoint(1).X
  1030.     Path.TargetVector.Y = PathPoint(1).Y
  1031.   END IF
  1032.   Path.LastVector = Path.Vector
  1033.   Path.NumPoints = NumPoints%
  1034.   Path.Reverse = Reverse%
  1035.   Path.Repeat = Repeat%
  1036.   Path.Relative = Relative%
  1038.  
  1039.  
  1040. SUB GDK_Path_Update (Path AS Path, PathPoint() AS PathPoint)
  1041.   IF Path.Relative THEN '// Relative movement
  1042.     IF NOT Path.HitTargetX THEN IF IsWithinRange(Path.TargetVector.X, Path.LastVector.X, Path.Vector.X) THEN Path.HitTargetX = -1
  1043.     IF NOT Path.HitTargetY THEN IF IsWithinRange(Path.TargetVector.Y, Path.LastVector.Y, Path.Vector.Y) THEN Path.HitTargetY = -1
  1044.     IF Path.HitTargetX AND Path.HitTargetY THEN
  1045.       IF Path.CurrentPoint < Path.NumPoints - 1 THEN
  1046.         Path.TargetVector.X = Path.Vector.X + PathPoint(Path.CurrentPoint + 1).X
  1047.         Path.TargetVector.Y = Path.Vector.Y + PathPoint(Path.CurrentPoint + 1).Y
  1048.         Path.Vector.Rotation = -atan2(Path.Vector.Y - Path.TargetVector.Y, Path.Vector.X - Path.TargetVector.X) + (2 * ATN(1))
  1049.         Path.Vector.Speed = PathPoint(Path.CurrentPoint).Speed
  1050.         Path.CurrentPoint = Path.CurrentPoint + 1
  1051.       ELSE '// Last point
  1052.         IF Path.Repeat THEN
  1053.           Path.CurrentPoint = 0
  1054.           Path.TargetVector.X = Path.Vector.X + PathPoint(0).X
  1055.           Path.TargetVector.Y = Path.Vector.Y + PathPoint(0).Y
  1056.           Path.Vector.Rotation = -atan2(Path.Vector.Y - Path.TargetVector.Y, Path.Vector.X - Path.TargetVector.X) + (2 * ATN(1))
  1057.           Path.Vector.Speed = PathPoint(0).Speed
  1058.         ELSE
  1059.           Path.Vector.Speed = 0
  1060.         END IF
  1061.       END IF
  1062.       Path.HitTargetX = 0
  1063.       Path.HitTargetY = 0
  1064.     END IF
  1065.   ELSE '// Co-ordinate based movement
  1066.     IF Path.IsReversing THEN
  1067.       IF Path.CurrentPoint > 0 THEN
  1068.         IF NOT Path.HitTargetX THEN IF IsWithinRange(PathPoint(Path.CurrentPoint - 1).X, Path.LastVector.X, Path.Vector.X) THEN Path.HitTargetX = -1
  1069.         IF NOT Path.HitTargetY THEN IF IsWithinRange(PathPoint(Path.CurrentPoint - 1).Y, Path.LastVector.Y, Path.Vector.Y) THEN Path.HitTargetY = -1
  1070.         IF Path.HitTargetX AND Path.HitTargetY THEN
  1071.           IF Path.CurrentPoint > 1 THEN
  1072.             Path.CurrentPoint = Path.CurrentPoint - 1
  1073.             Path.Vector.Rotation = -atan2(Path.Vector.Y - PathPoint(Path.CurrentPoint - 1).Y, Path.Vector.X - PathPoint(Path.CurrentPoint - 1).X) + (2 * ATN(1))
  1074.           ELSE '// First point
  1075.             Path.CurrentPoint = 0
  1076.             IF Path.Reverse THEN
  1077.               Path.IsReversing = 0
  1078.               Path.Vector.Rotation = -atan2(Path.Vector.Y - PathPoint(Path.CurrentPoint + 1).Y, Path.Vector.X - PathPoint(Path.CurrentPoint + 1).X) + (2 * ATN(1))
  1079.             END IF
  1080.           END IF
  1081.           Path.HitTargetX = 0
  1082.           Path.HitTargetY = 0
  1083.           Path.Vector.Speed = PathPoint(Path.CurrentPoint).Speed
  1084.         END IF
  1085.       END IF
  1086.     ELSE
  1087.       IF Path.CurrentPoint <= Path.NumPoints - 1 THEN
  1088.         IF NOT Path.HitTargetX THEN IF IsWithinRange(PathPoint(Path.CurrentPoint + 1).X, Path.LastVector.X, Path.Vector.X) THEN Path.HitTargetX = -1
  1089.         IF NOT Path.HitTargetY THEN IF IsWithinRange(PathPoint(Path.CurrentPoint + 1).Y, Path.LastVector.Y, Path.Vector.Y) THEN Path.HitTargetY = -1
  1090.         IF Path.HitTargetX AND Path.HitTargetY THEN
  1091.           IF Path.CurrentPoint < Path.NumPoints - 2 THEN
  1092.             Path.CurrentPoint = Path.CurrentPoint + 1
  1093.             Path.Vector.Rotation = -atan2(Path.Vector.Y - PathPoint(Path.CurrentPoint + 1).Y, Path.Vector.X - PathPoint(Path.CurrentPoint + 1).X) + (2 * ATN(1))
  1094.           ELSE '// Last point
  1095.             Path.CurrentPoint = Path.NumPoints - 1
  1096.             IF Path.Reverse THEN
  1097.               Path.IsReversing = -1
  1098.               Path.Vector.Rotation = -atan2(Path.Vector.Y - PathPoint(Path.CurrentPoint - 1).Y, Path.Vector.X - PathPoint(Path.CurrentPoint - 1).X) + (2 * ATN(1))
  1099.             ELSEIF Path.Repeat THEN
  1100.               Path.CurrentPoint = 0
  1101.               IF Path.Repeat THEN
  1102.                 FOR i% = 1 TO Path.NumPoints - 1
  1103.                   XDif% = PathPoint(i%).X - PathPoint(i% - 1).X
  1104.                   YDif% = PathPoint(i%).Y - PathPoint(i% - 1).Y
  1105.                   IF i% = 1 THEN
  1106.                     PathPoint(0).X = Path.Vector.X
  1107.                     PathPoint(0).Y = Path.Vector.Y
  1108.                   END IF
  1109.                   PathPoint(i%).X = PathPoint(i% - 1).X + XDif%
  1110.                   PathPoint(i%).Y = PathPoint(i% - 1).Y + YDif%
  1111.                 NEXT
  1112.               END IF
  1113.               Path.Vector.Rotation = -atan2(Path.Vector.Y - PathPoint(Path.CurrentPoint + 1).Y, Path.Vector.X - PathPoint(Path.CurrentPoint + 1).X) + (2 * ATN(1))
  1114.             ELSE '// Stop at end
  1115.               PathPoint(Path.CurrentPoint).Speed = 0
  1116.             END IF
  1117.           END IF
  1118.           Path.Vector.Speed = PathPoint(Path.CurrentPoint).Speed
  1119.           Path.HitTargetX = 0
  1120.           Path.HitTargetY = 0
  1121.         END IF
  1122.       END IF
  1123.     END IF
  1124.   END IF
  1125.   Path.LastVector = Path.Vector
  1126.   GDK_Vector_Update Path.Vector
  1128.  
  1129. '// GDK_Path_Update helper function
  1130. FUNCTION IsWithinRange% (Target%, MinRange%, MaxRange%)
  1131.   IF Target% >= MinRange% AND Target% <= MaxRange% THEN
  1132.     IsWithinRange% = -1
  1133.   ELSEIF Target% <= MinRange% AND Target% >= MaxRange% THEN
  1134.     IsWithinRange% = -1
  1135.   ELSE
  1136.     IsWithinRange% = 0
  1137.   END IF
  1139.  
  1140.  
  1141. '##########################################################################################################################
  1142. '// END OF LIBRARY!!!
  1143. '##########################################################################################################################
  1144.  
  1145.  

« Last Edit: April 21, 2020, 03:35:59 am by Unseen Machine »
Logged
Pages: [1]   Go Up
« previous next »