Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - TerryRitchie

Pages: 1 [2] 3 4
16
QB64 Discussion / Qb64 Editor having trouble resizing
« on: March 04, 2020, 03:14:35 am »
Has this happened to any one else? Sometimes when I start the editor (perhaps 1 out of 100 times) it will flash rapidly between the default size and the size I set it to previously perhaps 20 or so times and just give up and return to the default size.

I believe I've noticed a pattern to this as well. If I set the size manually using values in the editor I don't believe I've ever noticed this behavior when I restart the editor. However, if I resize the editor using the mouse by dragging the sides or corners then upon restart this behavior may happen.

By the way this is happening in version 1.3. I have not moved everything fully over to 1.4 yet which may have had this issue resolved.

17
Programs / QB64 Simon
« on: February 29, 2020, 10:46:46 pm »
I was going through some of my old code and came across the Simon game I created back in 2015. I don't believe I ever posted it here. It's an exact replica of the Simon game from the 1980's (well, I added the QB64 bee graphic).

Game play can be done with keyboard, mouse, or both. Press F1 for a help screen.

The .ZIP file below contains the source code and asset files needed to compile and play the game.

18
Programs / Vector Library and WideScreen Asteroids
« on: February 05, 2020, 11:13:16 pm »
---------------------------------------
UPDATE 02/11/20 9:21PM EST
Updated the .ZIP file below again. I made it to level 12 and ... crash. Found the bug and fixed it. The maximum asteroids that can ever be on the screen at once in a perfect scenario is 64 (16 large asteroids times 4 small asteroids). I set the asteroids array to 63 when it should have been 64. Oops.
---------------------------------------
UPDATE 02/07/20 3:15PM EST
The .ZIP has again been updated. The Button function has been completely rewritten to use the vector library's ObjPrint vector text command instead. _PRINTSTRING is just way too resource heavy to be used in real-time menus. Also made a few more efficiency changes. No matter how many objects on the screen now the drop down menu does not slow anything down.
---------------------------------------
UPDATE 02/06/20 11:15PM EST
I updated the .ZIP file below with a bug fixed and some inefficiencies in the collision routines I corrected. I also removed the pre-compiled .EXE to make the .ZIP file smaller.
---------------------------------------

Sorry I have been away for so long but I come bearing gifts :-)

I had to put the Sprite library on the back-burner because of unforeseen problems I encountered with it. Because of that I decided to step away from programming for a bit. When I got my head on straight again I decided to write a vector library. Of course I need to write a game to prove the library so I wrote Widescreen Asteroids.

Widescreen Asteroids is not a clone. It's what I always wanted in an Asteroids game. It's very close to the original with a few enhancements. The vector engine is fast so the game is filled with particle effects and, of course, asteroids. I hope you'll like the game. Please report any bugs or errors you find in the game.

I don't have documentation written yet for the vector library. Below is a crude listing of commands that it supports. I'll have the documentation finished soon.

The ZIP file contains everything needed to run and compile the game. It contains a pre-compiled .EXE so you can run the game right away if you wish. If you prefer to compile yourself simply delete "asteroids.exe".

--- CRUDE COMMAND LISTING FOR VECTOR LIBRARY ---

Sub         ObjActive   ObjID, Flag               Sets the active value of an object
Sub         ObjAngle   ObjID, Angle            Set the angle of an object
Sub         ObjBind      ObjID, X1, Y1, X2, Y2, Mode   Set the minimum X and Y coordinates allowed for object
Sub         ObjColor   ObjID, Lnumber, Clr         Set or reset the color for one or all line segments within an object
Sub         ObjDraw      ObjID                  Draw an object to the screen
Sub         ObjFriction   ObjID, Friction            Set the friction amount for an object
Sub         ObjInit                           Initialize variables for object library
Sub         ObjLines   ObjID                  Get all line info from an object at current angle (INTERNAL USE ONLY)
Sub         ObjMove      ObjID                  Update an object's position based on all current values
Sub         ObjPrint   tx, tx, Text, Scale, Clr   Print vector text at the coordinates specified
Sub         ObjPush      ObjID, Force            Push an object in its current direction
Sub         ObjPut      ObjID, X, Y               Set the X,Y coordinates of an object
Sub         ObjRotate   ObjID, Angle, Mode         Rotate an object to either absolute or relative angle, or auto rotate
Sub         ObjScale   ObjID, Scale            Set the X and Y scale of an object
Sub         ObjScaleX   ObjID, Scale            Set the X scale of an object
Sub         ObjScaleY   ObjID, Scale            Set the Y scale of an object
Sub         ObjStamp   ObjID, x, y, Angle, Scale, Clr   Place a copy of an object on-screen
Sub         ObjVectorX   ObjID, XV               Set the X vector value for an object
Sub         ObjVectorY   ObjID, YV               Set the Y vector value for an object

Function   ObjActive   ObjID                  Get the active value of an object
Function   ObjAngle   ObjID                  Get current angle of object
Function    ObjAngleO2O   ObjID1, ObjID1            Get the angle between two object center points
Function   ObjAngleP2P   x1, y1, x2, y2            Get the angle between two X,Y coordinate pairs
Function   ObjBoxHit   ObjID1, ObjID2            Return TRUE if two objects touching via bounding boxes
Function   ObjColor   ObjID, Lnumber            Get color of line within object
Function   ObjDistO2O   ObjID1, ObjID2            Get distance between center point of two objects
Function   ObjDistP2P   x1, y1, x2, y2            Get distance between two X,Y coordinate pairs
Function   ObjFixAngle   Angle                  Return the angle passed in from 0 to 360
Function   ObjFriction   ObjID                  Get current friction of object
Function   ObjHeight   ObjID                  Get current height of object
Function   ObjIntersect   p1x, p1y, q1x, q1y, p2x, p2y, q2x, q2y   Return TRUE if two line segments are intersecting
Function   ObjLineHit   ObjID, p2x, p2y, q2x,q2y   Return TRUE if a line segment is touching an object
Function   ObjLoad      File                  Load an object file into memory
Function   ObjObjectHit   ObjID1, ObjID2         Return TRUE if any line segments in two objects touch
Function   ObjMake      ObjID                  Make an object from objects in memory
Function   ObjMax      n1, n2                  Return the largest of two numbers
Function   ObjMaxX      ObjID                  Get maximum X coordinate allowed for object
Function   ObjMaxY      ObjID                  Get maximum Y coordinate allowed for object
Function   ObjMin      n1, n2                  Return the smallest of two numbers
Function   ObjMinX      ObjID                  Get minimum X coordinate allowed for object
Function   ObjMinY      ObjID                  Get minimum Y coordinate allowed for object
Function   ObjNCosine   Angle                  Get the cosine value of a negative angle
Function   ObjNSine   Angle                  Get the sine value of a negative angle
Function   OBJPCosine   Angle                  Get the cosine value of a positive angle
Function   ObjPSine   Angle                  Get the since value of a positive angle
Function   ObjRadius   ObjID                  Get current radius of object
Function   ObjRadiusHit   ObjID1, ObjID2         Return TRUE if two objects touching via radii distance
Function   ObjScale   ObjID                  Get scale of object if X and Y scales are the same, otherwise -1
Function   ObjScaleX   ObjID                  Get X scale of object
Function   ObjScaleY   ObjID                  Get Y scale of object
Function   ObjSpeed   ObjID                  Get current speed of object
Function   ObjVectorX   ObjID                  Get current X vector of object
Function   ObjVectorY   ObjID                  Get current Y vector of object
Function   ObjX      ObjID                  Get current X coordinate of object
Function   ObjX1      ObjID, Lnumber            Get start X coordinate of line within object
Function   ObjX2      ObjID, Lnumber            Get end X coordinate of line within object
Function   ObjY      ObjID                  Get current Y coordinate of object
Function   ObjY1      ObjID, Lnumber            Get start Y coordinate of line within object
Function   ObjY2      ObjID, Lnumber            Get end Y coordinate of line within object
Fucntion   ObjWidth   ObjID                  Get current width of object
Function   onSegment   p, q, r                  Return TRUE if point q lies on line segment pr (INTERNAL USE ONLY)
Function   Orientation   p, q, r                  Returns orientation of ordered triplet pair (INTERNAL USE ONLY)

19
QB64 Discussion / The future of QB64
« on: October 30, 2018, 05:37:31 pm »
The following article is a good read: https://www.tomshardware.com/news/play-windows-games-linux-steam-play,37990.html

Back in 2015 Valve was sounding the alarm that Microsoft's intention is to one day only allow Microsoft approved apps to be installed on Windows computers through the Windows store. To this end Valve became heavily involved in the Linux community helping to develop WINE further so more PC games could be played on the Linux platform. For years this looked like it had stalled but as the above article highlights they have come a long way.

So why do I bring this up? Well, when the switch to approved only apps happens this means that programs will need to be in the UWP (Universal Windows Platform) format leaving QB64 out in the cold. My guess is, and this is just my opinion, this change will happen soon after Windows 7 end of life. I'm sure at first traditional software will be allowed in the store but over time, slowly but surely, legacy software will be pushed aside in favor of UWP.

The future of QB64 after that? In one word ... Linux. Valve increasingly making it more popular for gamers to move to Linux will mean that soon after Windows 7 end of life we'll probably see an influx of users to Linux. Over time (with any luck) Windows will become a wasteland of Windows store apps that no one wants and Windows itself will become a has-been (Zune anyone?).

My point, I believe more development in the Linux arena should be considered now for the future of QB64. We'll see how this pans out 5 years from now, but my humble guess is this will happen and it's going to be ugly.

20
QB64 Discussion / Color Constants
« on: October 18, 2018, 12:41:20 am »
Hey everyone, I could have swore I saw a file someone made of CONSTant values for common colors.

Something like:

CONST RED = &HFF0000
CONST YELLOW = &HFFFF00
CONST GOLDENROD = &HDAA520

etc..

However, after searching the site I can't seem to find it. Was I seeing things? If you are the person that posted it could you please point me to the post?

Thanks everyone :)

21
Programs / Sprite Library Layering
« on: October 08, 2018, 03:45:38 pm »
I was having a few really hard to track down issues with layering so I decided to break the sprite library into modules for easy debugging and coding. This is the library control and layering routines section. I have all the layering issues sorted out now and the little parallax demo below shows how easy the layers are to manipulate.

You can move the mouse to the right or left on the image to get the scrolling to change direction.

You'll need the layers.zip file as well that contains 7 layer images.

Code: QB64: [Select]
  2.  
  3.  
  4. CONST SL_ALL = -32767
  5. CONST SL_VALID = -32766
  6. CONST SL_DEST = -32765
  7. CONST SL_SOURCE = -32764
  8. CONST SL_VISIBLE = -32763
  9. CONST SL_INVISIBLE = -32762
  10. CONST SL_LEFT = -32761
  11. CONST SL_TOP = -32760
  12. CONST SL_RIGHT = -32759
  13. CONST SL_BOTTOM = -32758
  14. CONST SL_CENTERX = -32757
  15. CONST SL_CENTERY = -32756
  16. CONST SL_WIDTH = -32755
  17. CONST SL_HEIGHT = -32754
  18. CONST SL_GET = -32753
  19. CONST SL_TOTAL = -32752
  20. CONST SL_UP = -32751
  21. CONST SL_DOWN = -32750
  22. CONST SL_UPRIGHT = -32749
  23. CONST SL_DOWNRIGHT = -32748
  24. CONST SL_DOWNLEFT = -32747
  25. CONST SL_UPLEFT = -32746
  26.  
  27.  
  28.  
  29. TYPE SL_RECT '                          RECTANGULAR OBJECT PROPERTIES
  30.     left AS INTEGER
  31.     top AS INTEGER
  32.     right AS INTEGER
  33.     bottom AS INTEGER
  34.     centerx AS INTEGER
  35.     centery AS INTEGER
  37.     height AS INTEGER
  39.  
  40. TYPE SL_ROUND
  41.     centerx AS INTEGER
  42.     centery AS INTEGER
  43.     radius AS INTEGER
  45.  
  46. TYPE SL_LAYERS ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ LAYER DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  47.     image AS LONG '                     software image of screen layer
  48.     visible AS INTEGER '                -1 (TRUE) if layer is visible
  49.     dest AS INTEGER '                   -1 (TRUE) if layer is destination   ** needed? **
  50.     source AS INTEGER '                 -1 (TRUE) if layer is source        ** needed? **
  51. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  52.  
  53. TYPE SL_GLOBAL ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ GLOBALS DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  54.     screen AS SL_RECT '                 screen coordinate properties
  55.     framerate AS INTEGER '              global frame rate
  56.     source AS INTEGER '                 current source layer                        0 - x, 0 for main screen, -1 if no layer is a source
  57.     destination AS INTEGER '            current destination layer                   0 - x, 0 for main screen, -1 if no layer is a destination
  58. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  59.  
  60. REDIM SL_layer(1) AS SL_LAYERS '       master layer array
  61. DIM SL_global AS SL_GLOBAL '            common globals
  62.  
  63.  
  64. ' main program (for testing)
  65.  
  66.  
  67. DIM layer AS INTEGER
  68. DIM direction AS INTEGER
  69.  
  70.  
  71. SL_WINDOW 960, 540, 7
  72.  
  73. SL_SET_LAYER 7, SL_DEST
  74. _PUTIMAGE , _LOADIMAGE("layer7.png", 32)
  75. SL_SET_LAYER 6, SL_DEST
  76. _PUTIMAGE , _LOADIMAGE("layer6.png", 32)
  77. SL_SET_LAYER 5, SL_DEST
  78. _PUTIMAGE , _LOADIMAGE("layer5.png", 32)
  79. SL_SET_LAYER 4, SL_DEST
  80. _PUTIMAGE , _LOADIMAGE("layer4.png", 32)
  81. SL_SET_LAYER 3, SL_DEST
  82. _PUTIMAGE , _LOADIMAGE("layer3.png", 32)
  83. SL_SET_LAYER 2, SL_DEST
  84. _PUTIMAGE , _LOADIMAGE("layer2.png", 32)
  85. SL_SET_LAYER 1, SL_DEST
  86. _PUTIMAGE , _LOADIMAGE("layer1.png", 32)
  87.  
  89.     _LIMIT 30
  91.     IF _MOUSEX < SL_GET_SCREEN(SL_CENTERX) THEN direction = SL_RIGHT ELSE direction = SL_LEFT
  92.     FOR layer = 1 TO 7
  93.         SL_SHIFT_LAYER layer, direction, 8 - layer
  94.     NEXT layer
  95.     SL_DISPLAY
  97.  
  98. SL_QUIT
  99.  
  100.  
  101.  
  102.  
  103. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  104. '                                                                    ----------==========                         ==========----------
  105. '                                                                    ----------========== LIBARY CONTROL ROUTINES ==========----------
  106. '                                                                    ----------==========                         ==========----------
  107. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  108.  
  109. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  110. SUB SL_WINDOW (swidth AS INTEGER, sheight AS INTEGER, layers AS INTEGER) '                                                                                                                    SL_WINDOW
  111.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  112.  
  113.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  114.     SHARED SL_global AS SL_GLOBAL '     common globals
  115.     DIM layer AS INTEGER '              layer counter
  116.  
  117.     IF layers < 1 THEN '                                                                                creating at least one layer?
  118.         SL_error "SL_WINDOW", 1, "" '                                                                   no, report error to programmer
  119.     END IF
  120.     IF swidth < 1 OR sheight < 1 THEN '                                                                 window width and/or height greater than zero?
  121.         SL_error "SL_WINDOW", 2, "" '                                                                   no, report error to programmer
  122.     END IF
  123.     REDIM SL_layer(layers) AS SL_LAYERS '                                                               increase layer array to match requested number of layers
  124.     SL_global.screen.width = swidth '                                                                   save screen dimensions
  125.     SL_global.screen.height = sheight
  126.     SL_global.screen.top = 0
  127.     SL_global.screen.left = 0
  128.     SL_global.screen.right = swidth - 1
  129.     SL_global.screen.bottom = sheight - 1
  130.     SL_global.screen.centerx = swidth \ 2 - 1
  131.     SL_global.screen.centery = sheight \ 2 - 1
  132.     layer = 0 '                                                                                         reset layer counter
  133.     DO '                                                                                                cycle through layers
  134.         layer = layer + 1 '                                                                             increment layer counter
  135.         SL_layer(layer).image = _NEWIMAGE(swidth, sheight, 32) '                                        create layer software image
  136.         SL_layer(layer).visible = -1 '                                                          (TRUE)  layer is visible
  137.     LOOP UNTIL layer = UBOUND(SL_layer) '                                                               leave when all layers created
  138.     SCREEN _NEWIMAGE(swidth, sheight, 32) '                                                             initialize working screen
  139.     SL_SET_LAYER 1, SL_DEST '                                                                           set layer 1 as the destination
  140.     SL_SET_LAYER 1, SL_SOURCE '                                                                         set layer 1 as the source
  141.  
  143.  
  144. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  145. SUB SL_DISPLAY () '                                                                                                                                                                          SL_DISPLAY
  146.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  147.  
  148.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  149.     SHARED SL_global AS SL_GLOBAL '     common globals array
  150.     DIM layer AS INTEGER '              layer counter
  151.     DIM merge AS LONG '                 software image to merge all layers onto
  152.     DIM hwimage AS LONG '               final hardware image of merged layers
  153.  
  154.     merge = _NEWIMAGE(SL_global.screen.width, SL_global.screen.height, 32) '                            create image to merge layers
  155.     layer = UBOUND(SL_layer) '                                                                          start with the highest numbered layer
  156.  
  157.     DO '                                                                                                cycle through layers backwards (high to low)
  158.         IF SL_layer(layer).visible THEN '                                                               is this layer visible?
  159.             _PUTIMAGE , SL_layer(layer).image, merge '                                                  place this layer onto merge image
  160.         END IF
  161.         layer = layer - 1 '                                                                             decrement layer counter
  162.     LOOP UNTIL layer = 0 '                                                                              leave when all layers merged
  163.     hwimage = _COPYIMAGE(merge, 33) '                                                                   create hardware image of merged layers
  164.     _PUTIMAGE , hwimage, 0 '                                                                            place hardware image on main screen
  165.     _FREEIMAGE merge '                                                                                  merged software image no longer needed
  166.     _FREEIMAGE hwimage '                                                                                merged hardware image no longer needed
  167.  
  168.     '*
  169.     '* SL_draw_sprites '                                                                                   draw all sprites in use <---------------------------------------------------- LOOK
  170.     '*
  171.  
  172.     _DISPLAY '                                                                                          update display screen with changes
  173.  
  175.  
  176. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  177. SUB SL_QUIT () '                                                                                                                                                                                SL_QUIT
  178.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  179.  
  180.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  181.     DIM count AS INTEGER '              layer counter
  182.  
  183.     SCREEN 0, 0, 0, 0 '                                                                                 go to a text screen
  184.     DO '                                                                                                cycle through layers
  185.         count = count + 1 '                                                                             increment layer counter
  186.         _FREEIMAGE SL_layer(count).image '                                                              remove layer image from meory
  187.     LOOP UNTIL count = UBOUND(SL_layer) '                                                               leave when all layers removed
  188.     SYSTEM '                                                                                            return to OS
  189.  
  191.  
  192. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  193. SUB SL_SET_SCREEN (x AS INTEGER, y AS INTEGER) '                                                                                                                                          SL_SET_SCREEN
  194.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  195.  
  196.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  197.     SHARED SL_global AS SL_GLOBAL '     common globals array
  198.     DIM osource AS LONG '               original source
  199.     DIM odest AS LONG '                 original destination
  200.     DIM temp AS LONG '                  temporary screen and layer image
  201.     DIM current AS LONG '               current screen and layer image
  202.     DIM layer AS INTEGER '              layer counter
  203.     DIM source AS INTEGER '             -1 (TRUE) if layer is the source
  204.     DIM destination AS INTEGER '        -1 (TRUE) if layer is the destination
  205.  
  206.     IF (x < 1) OR (y < 1) THEN SL_error "SL_SET_SCREEN", 9, "" '                                        report error to programmer
  207.  
  208.     ' change the screen's dimensions
  209.  
  210.     osource = _SOURCE '                                                                                 save current source
  211.     odest = _DEST '                                                                                     save current destination
  212.     _SOURCE 0 '                                                                                         set screen as the source
  213.     _DEST 0 '                                                                                           set screen as the destination
  214.     current = _SOURCE '                                                                                 get current screen source handle
  215.     temp = _COPYIMAGE(current, 32) '                                                                    make a copy of the screen
  216.     SCREEN temp '                                                                                       make the copy the current screen
  217.     _FREEIMAGE current '                                                                                remove the old screen from memory
  218.     'currentscreen = _NEWIMAGE(x, y, 32)
  219.     'SCREEN currentscreen
  220.     '_PUTIMAGE (0, 0), tempscreen, currentscreen
  221.     SCREEN _NEWIMAGE(x, y, 32) '                                                                        create the new screen with new dimensions
  222.     _PUTIMAGE , temp '                                                                                  put the old screen image back on top
  223.     _FREEIMAGE temp '                                                                                   remove the temporary image from memory
  224.     _DEST odest '                                                                                       restore the original destination
  225.     _SOURCE osource '                                                                                   restore the original source
  226.     SL_global.screen.width = x '                                                                        save screen dimensions
  227.     SL_global.screen.height = y
  228.     SL_global.screen.top = 0
  229.     SL_global.screen.left = 0
  230.     SL_global.screen.right = x - 1
  231.     SL_global.screen.bottom = y - 1
  232.     SL_global.screen.centerx = x \ 2 - 1
  233.     SL_global.screen.centery = y \ 2 - 1
  234.  
  235.     ' change each layer's dimensions to match new screen dimensions
  236.  
  237.     layer = 0 '                                                                                         reset layer counter
  238.     DO '                                                                                                cycle through all layers
  239.         layer = layer + 1 '                                                                             increment layer counter
  240.         source = 0 '                                                                                    reset source indicator
  241.         destination = 0 '                                                                               reset destination indicator
  242.         temp = _NEWIMAGE(1, 1, 32) '                                                                    create a tempory source and destination place holder
  243.         IF _SOURCE = SL_layer(layer).image THEN _SOURCE temp: source = -1 '                             remember that this layer is the source
  244.         IF _DEST = SL_layer(layer).image THEN _DEST temp: destination = -1 '                            remember that this layer is the destination
  245.         current = _COPYIMAGE(SL_layer(layer).image, 32) '                                               make a copy of the layer's image
  246.         _FREEIMAGE SL_layer(layer).image '                                                              remove current layer from memory
  247.         SL_layer(layer).image = _NEWIMAGE(SL_global.screen.width, SL_global.screen.height, 32) '        create new layer image
  248.         _PUTIMAGE (0, 0), current, SL_layer(layer).image '                                              put the old layer image back on top
  249.         _FREEIMAGE current '                                                                            remove old layer image from memory
  250.         _FREEIMAGE temp '                                                                               remove temporary image from memory
  251.         IF source THEN _SOURCE SL_layer(layer).image '                                                  this was source, set it back
  252.         IF destination THEN _DEST SL_layer(layer).image '                                               this was destination, set it back
  253.     LOOP UNTIL layer = UBOUND(SL_layer)
  254.  
  256.  
  257. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  258. FUNCTION SL_GET_SCREEN (value AS INTEGER) ' (MULTI_FUNCTION COMMAND)                                                                                                                      SL_GET_SCREEN
  259.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  260.  
  261.     ' sl_get_screen(sl_width)
  262.     ' sl_get_screen(sl_height)
  263.     ' sl_get_screen(sl_centerx)
  264.     ' sl_get_screen(sl_centery)
  265.     ' sl_get_screen(sl_top)
  266.     ' sl_get_screen(sl_left)
  267.     ' sl_get_screen(sl_bottom)
  268.     ' sl_get_screen(sl_right)
  269.  
  270.     SHARED SL_global AS SL_GLOBAL '     common globals array
  271.  
  272.     SELECT CASE value '                                                                                 yes, which one?
  273.         CASE SL_WIDTH '                                                                                 screen width
  274.             SL_GET_SCREEN = SL_global.screen.width '                                                    return the screen width
  275.         CASE SL_HEIGHT '                                                                                screen height
  276.             SL_GET_SCREEN = SL_global.screen.height '                                                   return the screen height
  277.         CASE SL_CENTERX '                                                                               screen x center location
  278.             SL_GET_SCREEN = SL_global.screen.centerx '                                                  return x center location
  279.         CASE SL_CENTERY '                                                                               screen y center location
  280.             SL_GET_SCREEN = SL_global.screen.centery '                                                  return y center location
  281.         CASE SL_TOP '                                                                                   upper y location
  282.             SL_GET_SCREEN = SL_global.screen.top '                                                      return upper y location
  283.         CASE SL_LEFT '                                                                                  left x location
  284.             SL_GET_SCREEN = SL_global.screen.left '                                                     return left x location
  285.         CASE SL_BOTTOM '                                                                                bottom y location
  286.             SL_GET_SCREEN = SL_global.screen.bottom '                                                   return bottom y location
  287.         CASE SL_RIGHT '                                                                                 right x location
  288.             SL_GET_SCREEN = SL_global.screen.right '                                                    return right x location
  289.         CASE ELSE '                                                                                     unknown error?
  290.             SL_error "SL_GET_SCREEN", 10, "" '                                                          report error to programmer
  291.     END SELECT
  292.  
  294.  
  295.  
  296. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  297. '                                                                       ----------==========                ==========----------
  298. '                                                                       ----------========== LAYER ROUTINES ==========----------
  299. '                                                                       ----------==========                ==========----------
  300. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  301.  
  302.  
  303. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  304. FUNCTION SL_GET_LAYER (layer AS INTEGER, action AS INTEGER) ' (MULTI-FUNCTION COMMAND)                                                                                                     SL_GET_LAYER
  305.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  306.  
  307.     ' usage:
  308.     '           value = SL_GET_LAYER(SL_GET, SL_DEST)       return the value of current destination layer           returns the value of the destination layer, 0 if no destination exists
  309.     '           value = SL_GET_LAYER(SL_GET, SL_SOURCE)     return the value of the current source layer            returns the value of the source layer, 0 if no source exists
  310.     '           value = SL_GET_LAYER(SL_GET, SL_TOTAL)      return the total number of layers available             returns the total number of layers
  311.     '           value = SL_GET_LAYER(x, SL_DEST)            test if the specified layer is the destination          returns -1 if layer is destination, 0 otherwise
  312.     '           value = SL_GET_LAYER(x, SL_SOURCE)          test if the specified layer is the source               returns -1 if layer is source, otherwise 0
  313.     '           value = SL_GET_LAYER(x, SL_VALID)           return either -1 or 0 depending on layer x being valid  returns -1 if layer is valid, 0 if layer is invalid
  314.  
  315.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  316.     SHARED SL_global AS SL_GLOBAL '     common globals array
  317.  
  318.     SELECT CASE action '                                                                                which action was requested?
  319.         CASE SL_VALID '                                                                                 check for valid layer
  320.             IF layer = SL_GET THEN SL_error "SL_GET_LAYER", 3, "" '                                     report error to programmer
  321.             IF (layer > 0) AND (layer <= UBOUND(SL_layer)) THEN SL_GET_LAYER = -1 '                     if layer valid then return -1
  322.         CASE SL_DEST '                                                                                  get destination layer
  323.             IF layer = SL_GET THEN '                                                                    getting the destination layer?
  324.                 IF SL_global.destination <> -1 THEN '                                                   yes, are one of the layers set as a destination?
  325.                     IF _DEST = SL_layer(SL_global.destination).image THEN '                             yes, is this layer actually still the destination?
  326.                         SL_GET_LAYER = SL_global.destination '                                          yes, report current destination layer
  327.                     ELSE '                                                                              no, the programmer changed the destination to something else
  328.                         SL_layer(SL_global.destination).dest = 0 '                                      mark this layer as not the destination layer any longer
  329.                         SL_global.destination = -1 '                                                    set that there are currently no layers set to destination
  330.                     END IF
  331.                 END IF
  332.             ELSE '                                                                                      no, checking one layer for destination
  333.                 IF NOT SL_GET_LAYER(layer, SL_VALID) THEN SL_error "SL_GET_LAYER", 6, "" '              report error to programmer                      (function recursion)
  334.                 IF SL_GET_LAYER(SL_GET, SL_DEST) = layer THEN SL_GET_LAYER = -1 '                       report this layer is the current destination    (function recursion)
  335.             END IF
  336.         CASE SL_SOURCE '                                                                                get source layer
  337.             IF layer = SL_GET THEN '                                                                    getting the source layer?
  338.                 IF SL_global.source <> -1 THEN '                                                        yes, are one of the layers set as a source?
  339.                     IF _SOURCE = SL_layer(SL_global.source).image THEN '                                yes, is this layer actually still the source?
  340.                         SL_GET_LAYER = SL_global.source '                                               yes, report current source layer
  341.                     ELSE '                                                                              no, the programmer changed the source to something else
  342.                         SL_layer(SL_global.source).source = 0 '                                         mark this layer as not the source layer any longer
  343.                         SL_global.source = -1 '                                                         set that there are currently no layers set to source
  344.                     END IF
  345.                 END IF
  346.             ELSE '                                                                                      no, checking one layer for source
  347.                 IF NOT SL_GET_LAYER(layer, SL_VALID) THEN SL_error "SL_GET_LAYER", 6, "" '              report error to programmer                      (function recursion)
  348.                 IF SL_GET_LAYER(SL_GET, SL_SOURCE) = layer THEN SL_GET_LAYER = -1 '                     report this layer is the current source         (function recursion)
  349.             END IF
  350.         CASE SL_TOTAL
  351.             IF layer <> SL_GET THEN SL_error "SL_GET_LAYER", 11, "" '                                   report error to programmer
  352.             SL_GET_LAYER = UBOUND(SL_layer) '                                                           return total number of layers present
  353.         CASE ELSE '                                                                                     command not formatted properly
  354.             SL_error "SL_GET_LAYER", 5, "" '                                                            report error to programmer
  355.     END SELECT
  356.  
  358.  
  359. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  360. SUB SL_CLEAR_LAYER (layer AS INTEGER) '                                                                                                                                                  SL_CLEAR_LAYER
  361.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  362.  
  363.     ' usage:
  364.     '           SL_CLEAR_LAYER x             clear layer x
  365.     '           SL_CLEAR_LAYER SL_ALL        clear all layers
  366.  
  367.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  368.     SHARED SL_global AS SL_GLOBAL '     common globals array
  369.     DIM count AS INTEGER '              layer counter
  370.     DIM temp AS LONG '                  temp source/destination image
  371.     DIM source AS INTEGER '             -1 (TRUE) if current layer is the source
  372.     DIM destination AS INTEGER '        -1 (TRUE) if current layer is the destination
  373.  
  374.     IF layer <> SL_ALL THEN '                                                                           clear all layers?
  375.         IF NOT SL_GET_LAYER(layer, SL_VALID) THEN SL_error "SL_CLEAR_LAYER", 6, "" '                    report error to programmer
  376.         count = layer '                                                                                 no, just clear this one layer
  377.     ELSE '                                                                                              yes, clear all layers
  378.         count = 1 '                                                                                     start with first layer
  379.     END IF
  380.     temp = _NEWIMAGE(1, 1, 32) '                                                                        great a temp image for source / destination
  381.     DO '                                                                                                cycle through layer(s)
  382.         source = 0 '                                                                                    reset source indicator
  383.         destination = 0 '                                                                               reset destination indicator
  384.         IF _SOURCE = SL_layer(count).image THEN _SOURCE temp: source = -1 '                             remember that this layer is the source
  385.         IF _DEST = SL_layer(count).image THEN _DEST temp: destination = -1 '                            remember that this layer is the destination
  386.         _FREEIMAGE SL_layer(count).image '                                                              remove current layer from memory
  387.         SL_layer(count).image = _NEWIMAGE(SL_global.screen.width, SL_global.screen.height, 32) '        create new layer image
  388.         IF source THEN _SOURCE SL_layer(count).image '                                                  this was source, set it back
  389.         IF destination THEN _DEST SL_layer(count).image '                                               this was destination, set it back
  390.         count = count + 1 '                                                                             increment layer counter
  391.     LOOP UNTIL count = UBOUND(SL_layer) + 1 OR layer <> SL_ALL '                                        leave when layer(s) cleared
  392.     _FREEIMAGE temp '                                                                                   remove temp image from memory
  393.  
  395.  
  396. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  397. SUB SL_SET_LAYER (layer AS INTEGER, action AS INTEGER) ' (MULTI-FUNCTION COMMAND)                                                                                                          SL_SET_LAYER
  398.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  399.  
  400.     ' usage:
  401.     '           SL_SET_LAYER(x, SL_DEST)            set layer x as destination
  402.     '           SL_SET_LAYER(x, SL_SOURCE)          set layer x as the source
  403.     '           SL_SET_LAYER(x, SL_VISBILE)         set layer x as visible
  404.     '           SL_SET_LAYER(SL_ALL, SL_VISIBLE)    set all layers as visible
  405.     '           SL_SET_LAYER(x, SL_INVISIBLE)       set layer x as invisible
  406.     '           SL_SET_LAYER(SL_ALL, SL_INVISIBLE)  set all layers as invisible
  407.  
  408.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  409.     SHARED SL_global AS SL_GLOBAL '     common globals array
  410.     DIM count AS INTEGER '              layer counter
  411.     DIM visibility AS INTEGER '         layer visibility status
  412.  
  413.     IF layer <> SL_ALL THEN IF NOT SL_GET_LAYER(layer, SL_VALID) THEN SL_error "SL_SET_LAYER", 6, "" '  report error to programmer
  414.     SELECT CASE action '                                                                                which action was requested?
  415.         CASE SL_DEST '                                                                                  set destination layer
  416.             IF layer = SL_ALL THEN SL_error "SL_SET_LAYER", 7, "" '                                     report error to programmer
  417.             _DEST SL_layer(layer).image '                                                               set layer software image as destination
  418.             SL_global.destination = layer '                                                             save destination layer in global settings
  419.             SL_layer(layer).dest = -1 '                                                                 mark this layer as the destination
  420.         CASE SL_SOURCE '                                                                                set source layer
  421.             IF layer = SL_ALL THEN SL_error "SL_SET_LAYER", 7, "" '                                     report error to programmer
  422.             _SOURCE SL_layer(layer).image '                                                             set layer software image as source
  423.             SL_global.source = layer '                                                                  save source layer in global settings
  424.             SL_layer(layer).source = -1 '                                                               mark this layer as the source
  425.         CASE SL_VISIBLE, SL_INVISIBLE '                                                                 make layer(s) (in)visible
  426.             IF action = SL_VISIBLE THEN visibility = -1 '                                               determine visibility setting
  427.             IF layer = SL_ALL THEN '                                                                    change visibility of all layers?
  428.                 DO '                                                                                    cycle through all layers
  429.                     count = count + 1 '                                                                 increment layer counter
  430.                     SL_layer(count).visible = visibility '                                              change visibility of layer
  431.                 LOOP UNTIL count = UBOUND(SL_layer) '                                                   leave when all layers changed
  432.             ELSE '                                                                                      no, change visibility of one layer
  433.                 SL_layer(layer).visible = visibility '                                                  change visibility of layer
  434.             END IF
  435.         CASE ELSE '                                                                                     unknown error?
  436.             SL_error "SL_SET_LAYER", 8, "" '                                                            report error to programmer
  437.     END SELECT
  438.  
  440.  
  441. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  442. SUB SL_SHIFT_LAYER (layer AS INTEGER, angle AS INTEGER, speed AS INTEGER) '                                                                                                              SL_SHIFT_LAYER
  443.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  444.  
  445.     ' SL_SHIFT_LAYER(x, 90, 5)              SL_UP, SL_RIGHT, SL_DOWN, SL_LEFT
  446.     ' SL_SHIFT_LAYER(SL_ALL, 90, 5)         SL_UPRIGHT, SL_DOWNRIGHT, SL_DOWNLEFT, SL_UPLEFT
  447.  
  448.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  449.     SHARED SL_global AS SL_GLOBAL '     common globals array
  450.     DIM current AS LONG '               current layer image
  451.     DIM xdir AS SINGLE '                direction in x to travel
  452.     DIM ydir AS SINGLE '                direction in y to travel
  453.     DIM source AS INTEGER '             -1 (TRUE) if layer is current source
  454.     DIM destination AS INTEGER '        -1 (TRUE) if layer is current destination
  455.     DIM temp AS LONG '                  temp image for source and destination holding
  456.     DIM degrees AS INTEGER
  457.  
  458.  
  459.     IF NOT SL_GET_LAYER(layer, SL_VALID) THEN '                                                         valid layer requested?
  460.         SL_error "SL_SHIFT_LAYER", 6, "" '                                                              no, report error to programmer
  461.     END IF
  462.  
  463.     SELECT CASE angle '                                                                                 direction passed in?
  464.         CASE SL_UP '                                                                                    straight up (0 use pixel movement)
  465.             xdir = 0 '                                                                                  pixels in x direction
  466.             ydir = -speed '                                                                             pixels in y direction
  467.         CASE SL_UPRIGHT '                                                                               up and to the right (45)
  468.             xdir = speed
  469.             ydir = -speed
  470.         CASE SL_RIGHT '                                                                                 to the right (90)
  471.             xdir = speed
  472.             ydir = 0
  473.         CASE SL_DOWNRIGHT '                                                                             to the right and down (135)
  474.             xdir = speed
  475.             ydir = speed
  476.         CASE SL_DOWN '                                                                                  straight down (180)
  477.             xdir = 0
  478.             ydir = speed
  479.         CASE SL_DOWNLEFT '                                                                              to the left and down (225)
  480.             xdir = -speed
  481.             ydir = speed
  482.         CASE SL_LEFT '                                                                                  to the left (270)
  483.             xdir = -speed
  484.             ydir = 0
  485.         CASE SL_UPLEFT '                                                                                up and to the right (315)
  486.             xdir = -speed
  487.             ydir = -speed
  488.         CASE ELSE '                                                                                     use angle movements instead
  489.             degrees = SL_FIX_DEGREES(angle) '                                                           correct angle if needed
  490.             xdir = SIN(degrees * .017453292) * speed '                                                  calculate x distance given angle and speed
  491.             ydir = -COS(degrees * .017453292) * speed '                                                 calculate y distance given angle and speed
  492.     END SELECT
  493.     temp = _NEWIMAGE(1, 1, 32) '                                                                        create temp image to make source and destination
  494.     current = _COPYIMAGE(SL_layer(layer).image, 32) '                                                   get current layer image
  495.  
  496.     'xdir = _CEIL(xdir)
  497.     'ydir = _CEIL(ydir)
  498.  
  499.     IF SL_GET_LAYER(layer, SL_SOURCE) THEN _SOURCE temp: source = -1 '                                  remember that this layer is the current source
  500.     IF SL_GET_LAYER(layer, SL_DEST) THEN _DEST temp: destination = -1 '                                 remember that this layer is the currnt destination
  501.     _FREEIMAGE SL_layer(layer).image '                                                                  free the old layer image from memory
  502.     SL_layer(layer).image = _NEWIMAGE(SL_global.screen.width, SL_global.screen.height, 32) '            create a new clean layer image
  503.     _PUTIMAGE (xdir, ydir), current, SL_layer(layer).image '                                            place old layer image in new spot
  504.     _PUTIMAGE (xdir - SGN(xdir) * SL_global.screen.width, ydir), current, SL_layer(layer).image '       place old layer image to fill gap left or right
  505.     _PUTIMAGE (xdir, ydir - SGN(ydir) * SL_global.screen.height), current, SL_layer(layer).image '      place old layer image to fill gap top or bottom
  506.     _PUTIMAGE (xdir - SGN(xdir) * SL_global.screen.width, ydir - SGN(ydir) * SL_global.screen.height), current, SL_layer(layer).image ' place old layer image to fill diagonal gap
  507.     IF source THEN _SOURCE SL_layer(layer).image '                                                      return layer as source if necessary
  508.     IF destination THEN _DEST SL_layer(layer).image '                                                   return layer as destination if necessary
  509.     _FREEIMAGE temp '                                                                                   free temporary images from memory
  510.     _FREEIMAGE current
  511.  
  513.  
  514. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  515. SUB SL_SWAP_LAYER (layer1 AS INTEGER, layer2 AS INTEGER) '                                                                                                                                SL_SWAP_LAYER
  516.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  517.  
  518.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  519.     DIM current1 AS LONG '              layer 1 current image
  520.     DIM current2 AS LONG '              layer 2 current image
  521.     DIM source AS INTEGER '             -1 (TRUE) if layer is current source
  522.     DIM destination AS INTEGER '        -1 (TRUE) if layer is current destination
  523.     DIM temp AS LONG '                  source/destination place holder image
  524.  
  525.     IF (NOT SL_GET_LAYER(layer1, SL_VALID)) OR (NOT SL_GET_LAYER(layer2, SL_VALID)) THEN '              valid layers requested?
  526.         SL_error "SL_SWAP_LAYER", 6, "" '                                                               no, report error to programmer
  527.     END IF
  528.  
  529.     current1 = _COPYIMAGE(SL_layer(layer1).image, 32) '                                                 get first layer image
  530.     current2 = _COPYIMAGE(SL_layer(layer2).image, 32) '                                                 get second layer image
  531.     temp = _NEWIMAGE(1, 1, 32) '                                                                        image to act as source/destination place holder
  532.     IF SL_GET_LAYER(layer1, SL_SOURCE) THEN _SOURCE temp: source = -1 '                                 remember that this layer is the current source
  533.     IF SL_GET_LAYER(layer1, SL_DEST) THEN _DEST temp: destination = -1 '                                remember that this layer is the currnt destination
  534.     _FREEIMAGE SL_layer(layer1).image '                                                                 remove layer image from memory
  535.     SL_layer(layer1).image = _COPYIMAGE(current2, 32) '                                                 this layer now contains the other layer's image
  536.     IF source THEN _SOURCE SL_layer(layer1).image '                                                     return layer as source if necessary
  537.     IF destination THEN _DEST SL_layer(layer1).image '                                                  return layer as destination if necessary
  538.     source = 0 '                                                                                        reset source indicator
  539.     destination = 0 '                                                                                   reset destination indicator
  540.     IF SL_GET_LAYER(layer2, SL_SOURCE) THEN _SOURCE temp: source = -1 '                                 remember that this layer is the current source
  541.     IF SL_GET_LAYER(layer2, SL_DEST) THEN _DEST temp: destination = -1 '                                remember that this layer is the currnt destination
  542.     _FREEIMAGE SL_layer(layer2).image '                                                                 remove layer image from memory
  543.     SL_layer(layer2).image = _COPYIMAGE(current1, 32) '                                                 this layer now contains the other layer's image
  544.     IF source THEN _SOURCE SL_layer(layer2).image '                                                     return layer as source if necessary
  545.     IF destination THEN _DEST SL_layer(layer2).image '                                                  return layer as destination if necessary
  546.     _FREEIMAGE temp '                                                                                   remove temporary image from memory
  547.     _FREEIMAGE current2 '                                                                               remove current images from memory
  548.     _FREEIMAGE current1
  549.  
  551.  
  552. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  553. SUB SL_KILL_LAYER (layer AS INTEGER) '                                                                                                                                                    SL_KILL_LAYER
  554.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  555.  
  556.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  557.     SHARED SL_global AS SL_GLOBAL '     common globals array
  558.     DIM count AS INTEGER '              layer counter
  559.  
  560.     IF UBOUND(SL_layer) = 1 THEN SL_error "SL_KILL_LAYER", 4, "" '                                      report error to programmer
  561.     IF NOT SL_GET_LAYER(layer, SL_VALID) THEN SL_error "SL_KILL_LAYER", 6, "" '                         report error to programmer
  562.     count = layer '                                                                                     start with layer being deleted
  563.     DO
  564.         IF count <> 1 THEN '                                                                            is layer 1 being deleted?
  565.             IF _DEST = SL_layer(count).image THEN '                                                     no, is this layer the curent destination?
  566.                 _DEST SL_layer(count - 1).image '                                                       yes, make previous layer the new destination
  567.                 SL_global.destination = count - 1 '                                                     set previous layer as the new destination
  568.                 SL_layer(count - 1).dest = -1 '                                                         mark previous layer as the destination
  569.                 SL_layer(count).dest = 0 '                                                              set this layer as no longer the destination
  570.             END IF
  571.             IF _SOURCE = SL_layer(count).image THEN '                                                   is this layer the current source?
  572.                 _SOURCE SL_layer(count - 1).image '                                                     yes, make previous layer the new source
  573.                 SL_global.source = count - 1 '                                                          set previous layer as the new source
  574.                 SL_layer(count - 1).source = -1 '                                                       mark previous layer as the source
  575.                 SL_layer(count).source = 0 '                                                            set this layer as no longer the source
  576.             END IF
  577.         END IF
  578.         SL_SWAP_LAYER count, count + 1 '                                                                swap the layer images
  579.  
  580.         '*
  581.         '* add code to update sprite layers <--------------------------------------------------------------------------------------------------------------------------------------------------- LOOK
  582.         '*
  583.  
  584.         count = count + 1 '                                                                             increment layer counter
  585.     LOOP UNTIL count = UBOUND(SL_layer)
  586.     _FREEIMAGE SL_layer(UBOUND(SL_layer)).image
  587.     REDIM _PRESERVE SL_layer(UBOUND(SL_layer) - 1) AS SL_LAYERS '                                       delete the last layer from the array
  588.  
  590.  
  591. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  592. FUNCTION SL_ADD_LAYER (layers AS INTEGER) '                                                                                                                                                SL_ADD_LAYER
  593.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  594.  
  595.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  596.     SHARED SL_global AS SL_GLOBAL '     common globals array
  597.     DIM newlayer AS INTEGER '           new layers counter
  598.  
  599.     newlayer = UBOUND(SL_layer) + 1 '                                                                   start of new layer(s)
  600.     SL_ADD_LAYER = newlayer '                                                                           return where new layer(s) start
  601.     REDIM _PRESERVE SL_layer(UBOUND(SL_layer) + layers) AS SL_LAYERS '                                  increase size of layer array
  602.  
  603.     DO '                                                                                                cycle through new layers
  604.         SL_layer(newlayer).image = _NEWIMAGE(SL_global.screen.width, SL_global.screen.height, 32) '     create new layer software image
  605.         SL_layer(newlayer).visible = -1 '                                                      (TRUE)   new layer is visible
  606.         newlayer = newlayer + 1 '                                                                       increment new layer counter
  607.     LOOP UNTIL newlayer = UBOUND(SL_layer) + 1 '                                                        leave when all new layers created
  608.  
  610.  
  611.  
  612.  
  613.  
  614.  
  615.  
  616.  
  617.  
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631.  
  632.  
  633.  
  634.  
  635.  
  636.  
  637.  
  638.  
  639.  
  640. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  641. FUNCTION SL_FIX_DEGREES (degrees AS INTEGER) '                                                                                                                                           SL_FIX_DEGREES
  642.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  643.  
  644.     ' Credits: this function uses code contriibuted by codeguy
  645.     '          https://www.qb64.org/forum/index.php?topic=537.15
  646.  
  647.     DIM degree AS INTEGER '             degree angle passed in
  648.  
  649.     degree = degrees MOD 360 '                                                                          get -359 to 359
  650.     IF degree < 0 THEN '                                                                                need to make positive?
  651.         SL_FIX_DEGREES = degree + 360 '                                                                 yes, correct value and return degree angle
  652.     ELSE
  653.         SL_FIX_DEGREES = degree '                                                                       no correction needed, return degree angle
  654.     END IF
  655.  
  657.  
  658. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  659. SUB SL_error (routine AS STRING, errno AS INTEGER, info AS STRING) '                                                                                                                           SL_error
  660.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  661.  
  662.     DIM tune AS INTEGER
  664.     tune = INT(RND(1) * 2) + 1
  665.     SELECT CASE tune
  666.         CASE 1
  667.             PLAY "o2l8eeel2c" '                                                                         duh, duh, duh, dooooh
  668.         CASE 2
  669.             PLAY "o2l8gl16ddl8ed" '                                                                     shave and a hair cut
  670.         CASE 3
  671.  
  672.     END SELECT
  673.     SCREEN 0, 0, 0, 0 '                                                                                 go to a pure text screen
  674.     _FONT 16 '                                                                                          set the standard screen 0 font
  675.     IF _FULLSCREEN THEN _FULLSCREEN _OFF '                                                              turn off full screen if on
  676.     _AUTODISPLAY '                                                                                      auto update the display
  677.     CLS '                                                                                               clear the screen
  678.     COLOR 10, 0
  679.     PRINT "                    **************************************" '                                print error header
  680.     PRINT "                    ** Sprite Library Error Encountered **"
  681.     PRINT "                    **************************************"
  682.     PRINT
  683.     COLOR 15, 0
  684.     PRINT " "; routine;
  685.     COLOR 7, 0
  686.     PRINT " has reported error";
  687.     COLOR 30, 0
  688.     PRINT STR$(errno)
  689.     COLOR 7, 0
  690.     PRINT
  691.     SELECT CASE errno '                                                                                 which error number is being reported?
  692.  
  693.         ' general purpose errors for all subs/functions
  694.  
  695.         CASE 1
  696.             PRINT " You must create at least one layer to work in."
  697.         CASE 2
  698.             PRINT " You must specify a window width and height greater than zero (0)."
  699.         CASE 3
  700.             PRINT " SL_GET can't be used with SL_VALID."
  701.             PRINT
  702.             PRINT " usage  : ";
  703.             COLOR 14, 0
  704.             PRINT "result = SL_GET_LAYER(x, SL_VALID)"
  705.             COLOR 7, 0
  706.             PRINT
  707.             PRINT "      x = the layer being checked for validity"
  708.             PRINT " result = -1 if the layer is valid, 0 if the layer is invalid"
  709.         CASE 4
  710.             PRINT " Only one layer remains. Unable to delete last remaining layer."
  711.         CASE 5
  712.             PRINT " SL_DEST, SL_SOURCE, and SL_VALID are the only second parameter values allowed."
  713.             PRINT
  714.             PRINT " usage  : ";
  715.             COLOR 14, 0
  716.             PRINT "result = SL_GET_LAYER(SL_GET, SL_DEST)"
  717.             PRINT "          result = SL_GET_LAYER(SL_GET, SL_SOURCE)"
  718.             PRINT "          result = SL_GET_LAYER(x, SL_DEST)"
  719.             PRINT "          result = SL_GET_LAYER(x, SL_SOURCE"
  720.             PRINT "          result = SL_GET_LAYER(x, SL_VALID)"
  721.             COLOR 7, 0
  722.         CASE 6
  723.             PRINT "- The specified layer(s) does not exist."
  724.         CASE 7
  725.             PRINT " SL_ALL can't be used with SL_DEST or SL_SOURCE."
  726.             PRINT
  727.             PRINT " usage  : ";
  728.             COLOR 14, 0
  729.             PRINT " SL_SET_LAYER x, SL_DEST"
  730.             PRINT
  731.             PRINT "           SL_SET_LAYER x, SL_SOURCE"
  732.             COLOR 7, 0
  733.             PRINT
  734.             PRINT "      x = the layer being set as source or destination"
  735.         CASE 8
  736.             PRINT " SL_DEST, SL_SOURCE, SL_VISIBLE, and SL_INVISIBLE are the only second"
  737.             PRINT " parameter values allowed."
  738.             PRINT
  739.             PRINT " usage  : ";
  740.             COLOR 14, 0
  741.             PRINT "SL_SET_LAYER x, SL_DEST"
  742.             PRINT "          SL_SET_LAYER x, SL_SOURCE"
  743.             PRINT "          SL_SET_LAYER x, SL_VISIBLE"
  744.             PRINT "          SL_SET_LAYER SL_ALL, SL_VISIBLE"
  745.             PRINT "          SL_SET_LAYER x, SL_INVISIBLE"
  746.             PRINT "          SL_SET_LAYER SL_ALL, SL_INVISIBLE"
  747.         CASE 9
  748.             PRINT " You must specify a screen width and height greater than zero (0)."
  749.         CASE 10
  750.             PRINT " Incorrect parameter given."
  751.             PRINT
  752.             PRINT " usage  : ";
  753.             COLOR 14, 0
  754.             PRINT "result = SL_SCREEN(SL_WIDTH)"
  755.             PRINT "          result = SL_SCREEN(SL_HEIGHT)"
  756.             PRINT "          result = SL_SCREEN(SL_CENTERX)"
  757.             PRINT "          result = SL_SCREEN(SL_CENTERY)"
  758.             PRINT "          result = SL_SCREEN(SL_TOP)"
  759.             PRINT "          result = SL_SCREEN(SL_LEFT)"
  760.             PRINT "          result = SL_SCREEN(SL_BOTTOM)"
  761.             PRINT "          result = SL_SCREEN(SL_RIGHT)"
  762.         CASE 11
  763.             PRINT "SL_GET must be used with SL_TOTAL."
  764.             PRINT
  765.             PRINT " usage  : ";
  766.             COLOR 14, 0
  767.             PRINT "result = SL_GET_LAYER(SL_GET, SL_TOTAL)"
  768.             COLOR 7, 0
  769.             PRINT
  770.             PRINT "result = the total number of layers availabel"
  771.  
  772.  
  773.  
  774.  
  775.  
  776.  
  777.  
  778.     END SELECT
  779.     COLOR 12, 0
  780.     PRINT
  781.     PRINT " See sprite library doumentation for further explanation."
  782.     COLOR 7, 0
  783.     SELECT CASE tune
  784.         CASE 1
  785.             PLAY "o2l8dddl2o1b" '                                                                       duh duh duh dum
  786.         CASE 2
  787.             PLAY "o2p8l8f#g" '                                                                          two bits
  788.     END SELECT
  789.     DO: LOOP UNTIL INKEY$ = "" '                                                                        clear the keyboard buffer
  790.     END '                                                                                               end the program
  791.  
  793.  

22
QB64 Discussion / Multi-Function Commands. Your opinions?
« on: October 03, 2018, 05:02:43 pm »
Ok, the sprite library is getting big with LOTS of commands. This is creating command overload:

SL_GET_DESTINATION_LAYER
SL_GET_SOURCE_LAYER
SL_SET_DESTINATION_LAYER
SL_SET_SOURCE_LAYER ... etc... etc..

Steve mentioned in another post that these long commands are troublesome, and I agree. Since they all deal with the same topic, layers in this case, I though about combining everything into one generalized command.

As a test I took all the layer related commands and built a multi-function command that does it all based on how it's configured. Being a FUNCTION it will always require a return value, even if it's doing something like setting a value. To this end I decided to incorporate error detection into the return value. Also, if the command is not configured properly, the return value will indicate an error as well as an audible beep.

See the code sample below to get an idea of what I'm going for here. Let me know your opinion on this.

Code: QB64: [Select]
  1. FUNCTION SL_LAYER (layer AS INTEGER, action AS INTEGER) ' (MULTI-FUNCTION COMMAND)
  2.  
  3.     ' An audible tone (BEEP) will be heard if command is configured improperly and a value of 0 returned to indicate the command did not complete successfully.
  4.     '
  5.     ' usage:
  6.     '           value = SL_LAYER(x, SL_DEST)            set layer x as destination                              returns -1 if command completed successfully, 0 otherwise
  7.     '           value = SL_LAYER(SL_GET, SL_DEST)       return the value of current destination layer           returns the value of the destination layer, 0 if no destination found
  8.     '           value = SL_LAYER(x, SL_SOURCE)          set layer x as the source                               returns -1 if command completed successfully, 0 otherwise
  9.     '           value = SL_LAYER(SL_GET, SL_SOURCE)     return the value of the current source layer            returns the value of the source layer, 0 if no source found
  10.     '           value = SL_LAYER(x, SL_CLS)             clear layer x                                           returns -1 if command completed successfully, 0 otherwise
  11.     '           value = SL_LAYER(SL_ALL, SL_CLS)        clear all layers                                        returns -1 if command completed successfully, 0 otherwise
  12.     '           value = SL_LAYER(x, SL_VALID)           return either -1 or 0 depending on layer x being valid  returns -1 if layer is valid, 0 if layer is invalid
  13.     '           value = SL_LAYER(x, SL_VISBILE)         set layer x as visible '                                returns -1 if command completed successfully, 0 otherwise
  14.     '           value = SL_LAYER(SL_ALL, SL_VISIBLE)    set all layers as visible                               returns -1 if command completed successfully, 0 otherwise
  15.     '           value = SL_LAYER(x, SL_INVISIBLE)       set layer x as invisible                                returns -1 if command completed successfully, 0 otherwise
  16.     '           value = SL_LAYER(SL_ALL, SL_INVISIBLE)  set all layers as invisible                             returns -1 if command completed successfully, 0 otherwise
  17.  
  18.     ' declare global variables
  19.  
  20.     SHARED SL_layers() AS SL_LAYERS '   master layer array
  21.     SHARED SL_global AS SL_GLOBAL '     common globals array
  22.  
  23.     ' declare local variables
  24.  
  25.     DIM count AS INTEGER '              layer counter
  26.     DIM temp AS LONG '                  temp source/destination iamge
  27.     DIM visibility AS INTEGER '         layer visibility status
  28.  
  29.     IF (layer <> SL_ALL) AND (layer <> SL_GET) THEN '                                                   was a layer value supplied?
  30.         IF layer < 1 OR layer > UBOUND(SL_layers) THEN SL_LAYER = 0: EXIT FUNCTION '                    yes, if not valid then report error and leave
  31.     END IF
  32.     SELECT CASE action '                                                                                which action was requested?
  33.         CASE SL_DEST '                                                                             (0)  get or set destination layer
  34.             IF layer = SL_ALL THEN SL_LAYER = 0: BEEP: EXIT FUNCTION '                                  SL_ALL not valid with SL_DEST
  35.             IF layer = SL_GET THEN '                                                                    retrieve current destination layer?
  36.                 SL_LAYER = SL_global.destination '                                                      yes, report current destination layer
  37.             ELSE '                                                                                      no, a layer value was supplied
  38.                 _DEST SL_layers(layer).image '                                                          set destination as layer software image
  39.                 SL_layers(layer).dest = -1 '                                                            mark this layer as the destination
  40.                 SL_global.destination = layer '                                                         save destination layer in global settings
  41.                 SL_LAYER = -1 '                                                                         report that command executed correctly
  42.             END IF
  43.         CASE SL_SOURCE '                                                                           (1)  get or set source layer
  44.             IF layer = SL_ALL THEN SL_LAYER = 0: BEEP: EXIT FUNCTION '                                  SL_ALL not valid with SL_SOURCE
  45.             IF layer = SL_GET THEN '                                                                    retrieve current source layer?
  46.                 SL_LAYER = SL_global.source '                                                           yes, report current source layer
  47.             ELSE '                                                                                      no, a layer value was supplied
  48.                 _SOURCE SL_layers(layer).image '                                                        set source as layer software image
  49.                 SL_layers(layer).source = -1 '                                                          mark this layer as the source
  50.                 SL_global.source = layer '                                                              save source layer in global settings
  51.                 SL_LAYER = -1 '                                                                         report that command executed correctly
  52.             END IF
  53.         CASE SL_CLS '                                                                              (2)  clear layer(s)
  54.             IF layer = SL_GET THEN SL_LAYER = 0: BEEP: EXIT FUNCTION '                                  SL_GET not valid with SL_CLS
  55.             temp = _NEWIMAGE(1, 1, 32) '                                                                great a temp image for source / destination
  56.             IF layer = SL_ALL THEN '                                                                    clear all layers?
  57.                 _SOURCE temp '                                                                          yes, make temp image the current source
  58.                 _DEST temp '                                                                            make temp image the current destination
  59.                 DO '                                                                                    cycle through all layers
  60.                     count = count + 1 '                                                                 increment layer counter
  61.                     _FREEIMAGE SL_layers(count).image '                                                 remove current layer from memory
  62.                     SL_layers(count).image = _NEWIMAGE(SL_global.swidth, SL_global.sheight, 32) '       create new layer image
  63.                     IF SL_global.source = count THEN _SOURCE SL_layers(count).image '                   set it back to source if necessary
  64.                     IF SL_global.destination = count THEN _DEST SL_layers(count).image '                set it back to destination if necessary
  65.                 LOOP UNTIL UBOUND(SL_layers) '                                                          leave when all layers cleared
  66.                 _FREEIMAGE temp '                                                                       remove temp image from memory
  67.                 SL_LAYER = -1 '                                                                         report that command executed correctly
  68.             ELSE '                                                                                      no, just clear one layer
  69.                 IF SL_global.source = layer THEN _SOURCE temp '                                         make temp image the source if necessary
  70.                 IF SL_global.destination = layer THEN _DEST temp '                                      make temp image the destination if necessary
  71.                 _FREEIMAGE SL_layers(layer).image '                                                     remove currentl layer from memory
  72.                 SL_layers(layer).image = _NEWIMAGE(SL_global.swidth, SL_global.sheight, 32) '           create new layer image
  73.                 IF SL_global.source = layer THEN _SOURCE SL_layers(layer).image '                       set it back to source if necessary
  74.                 IF SL_global.destination = layer THEN _DEST SL_layers(layer).image '                    set it back to destination if necessary
  75.                 _FREEIMAGE temp '                                                                       remove temp image from memory
  76.                 SL_LAYER = -1 '                                                                         report that command executed correctly
  77.             END IF
  78.         CASE SL_VALID '                                                                            (3)  check for valid layer
  79.             IF layer = SL_ALL OR layer = SL_GET THEN SL_LAYER = 0: BEEP: EXIT FUNCTION '                SL_ALL and SL_GET not valid with SL_VALID
  80.             SL_LAYER = -1 '                                                                             yes, report that this is a valid layer
  81.         CASE SL_VISIBLE, SL_INVISIBLE '                                                         (4, 5)  make layer(s) (in)visible
  82.             IF action = SL_VISIBLE THEN visibility = -1 '                                               determine visibility setting
  83.             IF layer = SL_GET THEN SL_LAYER = 0: BEEP: EXIT FUNCTION '                                  SL_GET not valid with SL_(IN)VISIBLE
  84.             IF layer = SL_ALL THEN '                                                                    change visibility of all layers?
  85.                 DO '                                                                                    cycle through all layers
  86.                     count = count + 1 '                                                                 increment layer counter
  87.                     SL_layers(count).visible = visibility '                                             change visibility of layer
  88.                 LOOP UNTIL count = UBOUND(SL_layers) '                                                  leave when all layers changed
  89.                 SL_LAYER = -1 '                                                                         report that command executed correctly
  90.             ELSE '                                                                                      no, change visibility of one layer
  91.                 SL_layers(layer).visible = visibility '                                                 change visibility of layer
  92.                 SL_LAYER = -1 '                                                                         report that command executed correctly
  93.             END IF
  94.         CASE ELSE '                                                                                     unknown error?
  95.             BEEP: SL_LAYER = 0 '                                                                        report that command did not execute correctly
  96.     END SELECT
  97.  

23
Programs / Neko the Cat!
« on: October 02, 2018, 11:25:06 am »
Here's another little example program showing what the sprite library can do so far. Some of you may remember Neko from 1990 and Windows 3.0. He was a little cat that would run around on the screen and chase the mouse pointer. I've recreated him here for your enjoyment. You'll need the Neko sprite sheet included below.

The further up the screen you make Neko run, the farther in the distance he goes. The further down the screen, the closer he gets.

Neko will:

- Randomly start with a different cat breed (White Angola, Black Spooky, Calico, Siamese)
- Chase the mouse pointer around. If you make him chase too long he'll take a nap.
- React to being clicked on while sleeping or sitting.
- Scratch at the mouse if it is close enough or you move the mouse off screen then he scratches at the edge of the screen.
- Randomly clean himself and take naps.
- Resume chasing the mouse pointer if he feels like it.

Basically, he acts like a real finicky cat would.

While creating this little demo it highlighted some more bugs I had to work out in the library's code. I completely removed anything software related to sprites. All sprites are now hardware based. I still need to code in software objects for interaction with the library's software layers. I also realized a few more commands needed while creating the demo.

Let me know what you think.

Code: QB64: [Select]
  1. '** NOTES **
  2.  
  3.  
  4.  
  5. ' Ideas to add
  6. '
  7. ' if SL_EVENT_TRIGGER then 'check for event that was sent (add event triggers)
  8. ' - possible link sounds to events
  9. ' add gravity, attraction, repulsion  SL_SET_PHYSICS
  10. ' add mass, elasticity (bounciness?)   ^  ^  ^
  11. ' add arc calculator for things like a swinging vine or radar scope
  12. ' ability to link sprites, when one moves the other moves, break apart when collision happens SL_LINK_SPRITE
  13. ' give sprites path-following ability (bezier curves?) SL_FOLLOW_PATH
  14. ' divide work space into cells and detect when sprites enter/leave a cell
  15. ' stand-alone program to develop sprite sheets (inform)        \
  16. ' stand-alone program to develop celled work spaces (inform)   /  combine these into one program?
  17. ' when sprite interact their mass, elascticity, etc. govern the way the move and fall
  18. ' - I will need help from a math major for this
  19.  
  20. ' Planned additions
  21. '
  22. ' get sprite width and height (both actual and collision box) SL_GET_ACTUAL_WIDTH, SL_GET_ACTUAL_HEIGHT, SL_GET_COLLISION_WIDTH, SL_GET_COLLISION_HEIGHT
  23. ' set Z depth of sprite for different planes/layers (possibly incorporate this into zoom?)
  24. ' - need to figure out how to rotate collision box along with sprites, not too hard
  25. ' - this will require line segment intersection algorithms for collision detection, yikes! hard, probably need help
  26. ' - possibly link sounds to collisions SL_LINK_COLLIDE_SOUND
  27. ' Parallaxing layers  SL_CREATE_PARALLAX, SL_UPDATE_PARALLAX
  28. ' Game font printing
  29. ' Sprite tiling, square for sure, isometric?
  30.  
  31. ' Things to improve
  32. '
  33. ' Naming convention of constants and their values
  34. ' Use integers wherever possible
  35. ' allow SINGLE value rotation angles for accuracy but convert to integer before sprite rotation
  36. ' - using only integer now, may not be precise enough for future improvements
  37.  
  38. ' Investigate
  39. '
  40. ' Use of _MAPTRIANGLE for 3D rotation   SL_ROTATE_3D
  41. ' _HARDWARE vs _HARDWARE1
  42.  
  43. ' Remember
  44. '
  45. ' Any code added that is OS dependant needs to detect the OS running first
  46. ' - try to create routines that are OS dependant for all OS'
  47.  
  48.  
  49.  
  50. OPTION _EXPLICIT ' need to remove before publishing library!!
  51.  
  52. '*
  53. '* constant declarations
  54. '*
  55.  
  56. '      CONSTANT NAME                   DESCRIPTION                                                       FUNCTIONS / SUBROUTINES THAT MAY USE THIS CONSTANT
  57. ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  58. CONST SL_RESET = -32767 '   reset a function or subroutine              SL_ROTATE_SPRITE, SL_FLIP_SPRITE, SL_ZOOM_SPRITE, SL_SET_ZOOM, SL_CHANGE_AUTOROTATION, SL_CHANGE_AUTOMOTION, SL_CHANGE_ROTATION_SPEED, SL_SET_COLLISION
  59. CONST SL_NOFLIP = 0 '       sprite will use no flipping                 SL_FLIP_SPRITE
  60. CONST SL_HORIZONTAL = 1 '   sprite will be flipped horizontally         SL_FLIP_SPRITE
  61. CONST SL_VERTICAL = 2 '     sprite will be flipped vertically           SL_FLIP_SPRITE
  62. CONST SL_FLIPBOTH = 3 '     sprite will be flipped both direction       SL_FLIP_SPRITE
  63. CONST SL_USESHEET = -1 '    use sheet's transparency info (.PNG)        SL_NEW_SHEET
  64. CONST SL_SET = 0 '          manually set transparency                   SL_NEW_SHEET
  65. CONST SL_NONE = 1 '         don't use transparency with sheet           SL_NEW_SHEET
  66. 'CONST SL_NOSAVE = 0 '       sprite will not save background             SL_NEW_SPRITE, SL_SET_SOFTWARE
  67. 'CONST SL_SAVE = -1 '        sprite will save background                 SL_NEW_SPRITE, SL_SET_SOFTWARE
  68. 'CONST SL_HARDWARE = 0 '     sprite in hardware mode                     SL_NEW_SPRITE, SL_update_auto_sprites
  69. 'CONST SL_SOFTWARE = -1 '    sprite in software mode                     SL_NEW_SPRITE, SL_update_auto_sprites
  70. CONST SL_START = -1 '       enable auto motion / rotation               SL_CHANGE_AUTOMOTION, SL_CHANGE_AUTOROTATION, SL_SET_AUTOANIMATION, SL_SET_ANIMATION, SL_SET_MOTION, SL_SET_ROTATION
  71. CONST SL_STOP = 0 '         disable auto motion / rotation              SL_CHANGE_AUTOMOTION, SL_CHANGE_AUTOROTATION, SL_SET_AUTOANIMATION, SL_SET_ANIMATION, SL_SET_MOTION, SL_SET_ROTATION, SL_CHANGE_ROTATION_SPEED
  72. CONST SL_FORWARD = 0 '      animation cells proceed forward             SL_SET_ANIMATION
  73. CONST SL_BACKWARD = 1 '     animation cells proceed backwards           SL_SET_ANIMATION
  74. CONST SL_BACKFORTH = 2 '    animation cells toggle forward/backward     SL_SET_ANIMATION
  75. CONST SL_CURRENTCELL = -1 ' use current cell as starting cell           SL_SET_ANIMATION, SL_CHANGE_ANIMATION_CELLS
  76. CONST SL_SHOW = -1 '        sprite will be shown on screen              SL_SET_SPRITE_VISIBLE, SL_SET_LAYER_VISIBLE
  77. CONST SL_HIDE = 0 '         sprite will not be shown on screen          SL_SET_SPRITE_VISIBLE, SL_SET_LAYER_VISIBLE
  78. CONST SL_NODETECT = 0 '     sprite uses no collision detection          SL_SET_COLLISION
  79. CONST SL_BOXDETECT = 1 '    sprite uses box collision detect            SL_SET_COLLISION
  80. CONST SL_ROUNDDETECT = 2 '  sprite uses round collision detect '        SL_SET_COLLISION
  81. CONST SL_PIXELDETECT = 3 '  sprite uses pixel perfect collision detect  SL_SET_COLLISION
  82. CONST SL_ALL = -1 '         check for all sprites                       SL_GET_COLLISION, SL_GET_MOUSE, SL_CLEAR_LAYER
  83. CONST SL_NOMOUSE = 0 '      no mouse interaction with sprite            SL_GET_MOUSE
  84. CONST SL_HOVER = 1 '        mouse pointer hovering over sprite          SL_GET_MOUSE
  85. CONST SL_LEFTCLICK = 2 '    left mouse button clicked on sprite         SL_GET_MOUSE
  86. CONST SL_RIGHTCLICK = 3 '   right mouse button clicked on sprite        SL_GET_MOUSE
  87. CONST SL_CENTERCLICK = 4 '  center mouse button clicked on sprite       SL_GET_MOUSE
  88.  
  89. '*
  90. '* type declarations
  91. '*
  92.  
  93. TYPE SL_SHEET ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE SHEET DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  94.     software AS LONG '                  software sprite image
  95.     mask AS LONG '                      software mask image
  96.     swidth AS INTEGER '                 width of sprite
  97.     sheight AS INTEGER '                height of sprite
  98.     transparency AS INTEGER '           -1 (TRUE) if sheet uses transparency
  99.     clearcolor AS _UNSIGNED LONG '      transparent color of image
  100. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  101.  
  102. TYPE SL_XY ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ X,Y LOCATIONS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  103.     real AS SINGLE '                    single values of sprite x,y center point
  104.     int AS INTEGER '                    integer values of sprite x,y center point
  105.     actual AS INTEGER '                 integer values of sprite upper left x,y location
  106.     dir AS SINGLE '                     single values of sprite x,y motion vectors
  107. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  108.  
  109. TYPE SL_IMAGE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ IMAGES ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  110.     hardware AS LONG '                  hardware sprite image
  111.     software AS LONG '                  software sprite image
  112.     mask AS LONG '                      software sprite mask image
  113. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  114.  
  115. TYPE SL_ANIM ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ANIMATION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  116.     cell AS INTEGER '                   current animation cell
  117.     cellfrom AS INTEGER '               starting animation cell
  118.     cellto AS INTEGER '                 ending animation cell
  119.     dir AS INTEGER '                    animation direction
  120.     mode AS INTEGER '                   animation mode (forward, backward, back/forth)
  121.     framerate AS INTEGER '              sprite animation frame rate
  122.     frame AS INTEGER '                  animation frame counter
  123.     skip AS INTEGER '                   how often to skip a frame to achieve framerate
  124.     auto AS INTEGER '                   auto-animation on/off
  125. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  126.  
  127. TYPE SL_MOTION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ MOTION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  128.     auto AS INTEGER '                   -1 (TRUE) if auto-motion turned on
  129.     speed AS SINGLE '                   speed of sprite during motion
  130.     angle AS INTEGER '                  direction of sprite during motion (0 - 359)
  131. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  132.  
  133. TYPE SL_ROTATION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ROTATION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  134.     auto AS INTEGER '                   -1 (TRUE) if auto-rotation turned on
  135.     speed AS INTEGER '                  spin rate in degrees of sprite (0 - 359)
  136.     angle AS INTEGER '                  current rotation angle of sprite
  137. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  138.  
  139. TYPE SL_COLLISION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ COLLISION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  140.     detect AS INTEGER '                 type of detection this sprite uses (box, round, ellipse, pixel)
  141.     box AS INTEGER '                    -1 (TRUE) if a box collision detected
  142.     round AS INTEGER '                  -1 (TRUE) if a round collision detected
  143.     pixel AS INTEGER '                  -1 (TRUE) if a pixel perfect collision detected
  144.     with AS INTEGER '                   the sprite collision happened with
  145.     radius AS INTEGER '                 radius of round collision area
  146.     x1 AS INTEGER '                     collision box upper left x
  147.     x2 AS INTEGER '                     collision box lower right x
  148.     y1 AS INTEGER '                     collision box upper left y
  149.     y2 AS INTEGER '                     collision box lower right y
  150.     cwidth AS INTEGER '                 width of collision box
  151.     cheight AS INTEGER '                height of collision box
  152.     xpoint AS INTEGER '                 x location of collision
  153.     ypoint AS INTEGER '                 y location of collision
  154. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  155.  
  156. TYPE SL_MOUSE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ MOUSE SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  157.     event AS INTEGER '                  last event on sprite (hover, click, etc)
  158.     x AS INTEGER '                      x location of mouse on sprite
  159.     y AS INTEGER '                      y location of mouse on sprite
  160.     xa AS INTEGER '                     x location of mouse on screen
  161.     ya AS INTEGER '                     y location of mouse on screen
  162. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  163.  
  164. TYPE SL_SPRITE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  165.     inuse AS INTEGER '                  this array index in use
  166.     x AS SL_XY '                        x coordinate locations
  167.     y AS SL_XY '                        y coordinate locations
  168.     gfx AS SL_IMAGE '                   image graphics
  169.     animation AS SL_ANIM '              animation settings
  170.     motion AS SL_MOTION '               motion settings
  171.     rotation AS SL_ROTATION '           rotation settings
  172.     collision AS SL_COLLISION '         collision settings
  173.     mouse AS SL_MOUSE '                 mouse interaction settings
  174.     sheet AS INTEGER '                  sheet sprite belongs to
  175.     cell AS INTEGER '                   current sprite cell
  176.     swidth AS INTEGER '                 width of sprite
  177.     sheight AS INTEGER '                height of sprite
  178.     flip AS INTEGER '                   flip horizontally, vertically, or both
  179.     transparency AS INTEGER '           -1 (TRUE) if sprite uses transparency
  180.     zoom AS INTEGER '                   zoom level of sprite (1% - x%)
  181.     software AS INTEGER '               -1 (TRUE) if sprite is to be treated as software image
  182.     score AS INTEGER '                  point score of sprite
  183.     visible AS INTEGER '                -1 (TRUE) if sprite visible
  184.     layer AS INTEGER '                  the layer the sprite belongs to
  185. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  186.  
  187. TYPE SL_ANGLE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ROTATION ANGLE & COLLISION BOX DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  188.     x1 AS INTEGER '                     collision box upper left x
  189.     x2 AS INTEGER '                     collision box lower right x
  190.     y1 AS INTEGER '                     collision box upper left y
  191.     y2 AS INTEGER '                     collision box lower right y
  192.     cwidth AS INTEGER '                 collision box width
  193.     cheight AS INTEGER '                collision box height
  194.     radius AS INTEGER '                 collision circle radius
  195.     rwidth AS INTEGER '                 rotated sprite width
  196.     rheight AS INTEGER '                rotated sprite height
  197.     px0 AS INTEGER '                    rectangular rotation coordinates
  198.     px1 AS INTEGER
  199.     px2 AS INTEGER
  200.     px3 AS INTEGER
  201.     py0 AS INTEGER
  202.     py1 AS INTEGER
  203.     py2 AS INTEGER
  204.     py3 AS INTEGER
  205. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  206.  
  207. TYPE SL_LAYERS ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ LAYER DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  208.     image AS LONG '                     software image of screen layer
  209.     visible AS INTEGER '                -1 (TRUE) if layer is visible
  210. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  211.  
  212. TYPE SL_GLOBAL ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ GLOBALS DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  213.     layer AS INTEGER '                  active layer
  214.     swidth AS INTEGER '                 screen width
  215.     sheight AS INTEGER '                screen height
  216.     framerate AS INTEGER '              global frame rate
  217.     source AS INTEGER '                 current source layer
  218.     destination AS INTEGER '            current destination layer
  219.     hardware AS LONG '                  merged hardware layer used in SL_DISPLAY
  220.     screen AS LONG '                    main screen
  221. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  222.  
  223. '*
  224. '* global dynamic array declarations
  225. '*
  226.  
  227. REDIM SL_sheet(1, 1) AS SL_SHEET '      sheet#, cell# - master sheet array
  228. REDIM SL_angle(1, 1, 359) AS SL_ANGLE ' sheet#, cell#, angle# - master sheet precalculated angle array
  229. REDIM SL_sprite(1) AS SL_SPRITE '       master working sprite array
  230. REDIM SL_layer(1) AS SL_LAYERS '        image layer array
  231.  
  232. '
  233. '*
  234. '* global variable declarations
  235. '*
  236.  
  237. DIM SL_global AS SL_GLOBAL
  238.  
  239. '*
  240. '* main code (for testing)
  241. '*
  242.  
  243. ' set up variables for program
  244.  
  245. CONST CHASING = 1 '                     Neko is chasing mouse
  246. CONST RESTING = 2 '                     Neko is sitting still
  247. CONST SLEEPING = 3 '                    Neko is sleeping
  248. CONST CLEANING = 4 '                    Neko is cleaning
  249. CONST CLAWING = 5 '                     Neko is clawing at mouse/screen border
  250. CONST YAWNING = 6 '                     Neko is tired
  251. CONST ALERT = 7 '                       Neko has been startled
  252.  
  253. TYPE GLOBALS
  254.     action AS INTEGER '                 Neko's current action
  255.     catbreed AS INTEGER '               Neko's cat breed
  256.     frame AS INTEGER '                  frame counter
  258.  
  259. DIM global AS GLOBALS '                 global variables
  260. DIM nekosheet AS INTEGER '              Neko the cat sprite sheet
  261. DIM neko AS INTEGER '                   Neko the cat sprite
  262. DIM mouse AS INTEGER '                  mouse pointer sprite
  263.  
  264. ' set up sprite engine
  265.  
  266. SL_SCREEN 800, 600, 1 '                                                                                 800x600 screen with 1 layer
  267. _TITLE "Neko the Cat!" '                                                                                give screen a title
  268. CLS , _RGB32(159, 159, 159) '                                                                           light gray background
  269. _MOUSEHIDE '                                                                                            hide the system mouse pointer
  270. RANDOMIZE TIMER '                                                                                       seed random number generator
  271. SL_SET_FRAMERATE 30 '                                                                                   set the global framerate
  272.  
  273. ' set up sprites, their motion, and animation characteristics
  274.  
  275. nekosheet = SL_NEW_SHEET("neko.png", 32, 32, SL_SET, _RGB32(255, 0, 255)) '                             load Neko sprite sheet
  276. neko = SL_NEW_SPRITE(1, nekosheet, 1) '                                                                 create a Neko sprite
  277. mouse = SL_NEW_SPRITE(1, nekosheet, 137) '                                                              create a mouse pointer sprite
  278. SL_PUT_SPRITE neko, 399, 299 '                                                                          put Neko at center of screen
  279. SL_PUT_SPRITE mouse, _MOUSEX, _MOUSEY '                                                                 place mouse pointer on screen
  280. SL_SET_MOTION neko, 90, 3, SL_START '                                                                   give Neko motion
  281. SL_SET_ANIMATION neko, 21, 22, SL_FORWARD, 5, SL_START '                                                give Neko animation
  282. SL_SET_COLLISION neko, SL_BOXDETECT '                                                                   turn collision detection on
  283. SL_SET_COLLISION mouse, SL_BOXDETECT '                                                                  turn collision detection on
  284.  
  285. ' set up variables
  286.  
  287. global.catbreed = INT(RND(1) * 4) * 32 '                                                                choose Neko's breed
  288. global.action = CHASING '                                                                               set Neko's action
  289.  
  290. ' main loop
  291.  
  292. DO '                                                                                                    ** MAIN LOOP **
  293.  
  294.     _LIMIT SL_GET_FRAMERATE '                                                                           maintain global frame rate
  295.     WHILE _MOUSEINPUT: WEND '                                                                           get latest mouse update
  296.     IF global.action = CHASING THEN ChaseThe mouse, neko '                                              Neko chases mouse
  297.     IF global.action = RESTING THEN TimeToRest neko '                                                   Neko is resting
  298.     IF global.action = SLEEPING THEN GoToSleep neko '                                                   Neko is sleeping
  299.     IF global.action = CLEANING THEN CleanYourself neko '                                               Neko is cleaning
  300.     IF global.action = CLAWING THEN ClawThePlaceUp neko '                                               Neko is clawing
  301.     IF global.action = YAWNING THEN GetReadyForBed neko '                                               Neko is yawning
  302.     IF global.action = ALERT THEN WhatWasThat neko '                                                    Neko saw something!
  303.     SL_SET_ZOOM mouse, SL_GET_INTY(mouse) / 6 + 75 '                                                    how distant is mouse pointer
  304.     SL_PUT_SPRITE mouse, _MOUSEX, _MOUSEY '                                                             put mouse pointer sprite on screen
  305.     global.frame = global.frame + 1 '                                                                   increment frame counter
  306.     SL_DISPLAY '                                                                                        update sprites, layers, and screen
  307.  
  308. LOOP UNTIL _KEYHIT = 27 '                                                                               ** MAIN LOOP **
  309.  
  310. ' sprite engine cleanup
  311.  
  312. SL_FREE_SPRITE neko '                                                                                   remove sprites from memory
  313. SL_FREE_SPRITE mouse
  314. SYSTEM '                                                                                                return to OS
  315.  
  316.  
  317. '******************************************************************************
  318. SUB ClawThePlaceUp (neko AS INTEGER) ' (CLAWING)
  319.  
  320.     SHARED global AS GLOBALS '  global variables
  321.  
  322.     IF global.frame = SL_GET_FRAMERATE * 3 THEN '                                                       have 3 seconds gone by?
  323.         SL_CHANGE_AUTOANIMATION neko, SL_STOP '                                                         yes, stop Neko's animation
  324.         SL_SET_CELL neko, 1 + global.catbreed '                                                         sit Neko, sit
  325.         global.frame = 0 '                                                                              reset frame counter
  326.         global.action = RESTING '                                                                       rest Neko, rest
  327.     END IF
  329. '******************************************************************************
  330. SUB CleanYourself (neko AS INTEGER) ' (CLEANING)
  331.  
  332.     SHARED global AS GLOBALS '  global variables
  333.  
  334.     IF global.frame = SL_GET_FRAMERATE THEN '                                                           has one second gone by?
  335.         SL_CHANGE_AUTOANIMATION neko, SL_START '                                                        yes, start Neko's animation
  336.         SL_CHANGE_ANIMATION_FRAMERATE neko, 10 '                                                        set Neko's local frame rate
  337.         SL_CHANGE_ANIMATION_CELLS neko, 2 + global.catbreed, 4 + global.catbreed '                      Neko scratching
  338.     ELSEIF global.frame = SL_GET_FRAMERATE * 4 THEN '                                                   has Neko been scratching for three seconds?
  339.         SL_CHANGE_AUTOANIMATION neko, SL_STOP '                                                         yes, stop Neko's animation
  340.         SL_SET_CELL neko, 1 + global.catbreed '                                                         sit Neko, sit
  341.         global.frame = 0 '                                                                              reset frame counter
  342.         global.action = RESTING '                                                                       rest Neko, rest
  343.     END IF
  345. '******************************************************************************
  346. SUB WhatWasThat (neko AS INTEGER) ' (ALERT)
  347.  
  348.     SHARED global AS GLOBALS '  global variables
  349.  
  350.     IF global.frame = SL_GET_FRAMERATE THEN '                                                           has one cecond gone by?
  351.         SL_SET_CELL neko, 1 + global.catbreed '                                                         yes, sit Neko, sit
  352.         global.frame = 0 '                                                                              reset frame counter
  353.         global.action = RESTING '                                                                       rest Neko, rest
  354.     END IF
  356. '******************************************************************************
  357. SUB GoToSleep (neko AS INTEGER) ' (SLEEPING)
  358.  
  359.     SHARED global AS GLOBALS '  global variables
  360.  
  361.     IF global.frame > SL_GET_FRAMERATE * 10 THEN '                                                      has Neko been sleeping for at least 10 seconds?
  362.         IF INT(RND(1) * 500) + 1 = 250 THEN '                                                           time to wake up?
  363.             SL_SET_CELL neko, 1 + global.catbreed '                                                     sit Neko, sit
  364.             global.action = RESTING '                                                                   yes, rest Neko, rest
  365.         END IF
  366.     END IF
  367.     IF SL_GET_MOUSE(neko) > 1 THEN '                                                                    user clicked on Neko!
  368.         SL_SET_CELL neko, 8 + global.catbreed '                                                         alert Neko!
  369.         global.action = ALERT '                                                                         what was that Neko?
  370.     END IF
  371.     IF global.action <> SLEEPING THEN '                                                                 is Neko done sleeping?
  372.         SL_CHANGE_AUTOANIMATION neko, SL_STOP '                                                         yes, stop Neko's animation
  373.         global.frame = 0 '                                                                              reset frame counter
  374.     END IF
  376. '******************************************************************************
  377. SUB TimeToRest (neko AS INTEGER) ' (RESTING)
  378.  
  379.     SHARED global AS GLOBALS '  global variables
  380.  
  381.     DIM nekonext AS INTEGER '   Nekos next move
  382.  
  383.     IF global.frame = SL_GET_FRAMERATE * 2 THEN '                                                       has Neko been resting for two seconds?
  384.         nekonext = INT(RND(1) * 4) + 1
  385.         IF nekonext = 1 THEN '                                                                          clean yourself Neko
  386.             SL_SET_CELL neko, 2 + global.catbreed '                                                     clean Neko, clean
  387.             global.action = CLEANING
  388.         ELSEIF nekonext = 2 THEN '                                                                      go to sleep Neko
  389.             global.action = YAWNING
  390.         ELSEIF nekonext = 3 THEN '                                                                      chase the mouse Neko!
  391.             SL_CHANGE_AUTOANIMATION neko, SL_START '                                                    start Neko's animation
  392.             SL_CHANGE_AUTOMOTION neko, SL_START '                                                       start Neko's motion
  393.             global.action = CHASING '                                                                   chase Neko, chase
  394.         ELSEIF nekonext = 4 THEN '                                                                      scratch at the mouse Neko
  395.             IF SL_GET_DISTANCE_TO_POINT(neko, _MOUSEX, _MOUSEY) < 100 THEN
  396.                 SL_CHANGE_AUTOANIMATION neko, SL_START '                                                start Neko's animation
  397.                 SL_CHANGE_ANIMATION_FRAMERATE neko, 5 '                                                 set Neko's local frame rate
  398.                 SELECT CASE SL_GET_ANGLE_TO_POINT(neko, _MOUSEX, _MOUSEY)
  399.                     CASE 315 TO 359, 0 TO 45 ' up
  400.                         SL_CHANGE_ANIMATION_CELLS neko, 9 + global.catbreed, 10 + global.catbreed '     Neko clawing up
  401.                     CASE 46 TO 135 ' right
  402.                         SL_CHANGE_ANIMATION_CELLS neko, 11 + global.catbreed, 12 + global.catbreed '    Neko clawing right
  403.                     CASE 136 TO 225 ' down
  404.                         SL_CHANGE_ANIMATION_CELLS neko, 13 + global.catbreed, 14 + global.catbreed '    Neko clawing down
  405.                     CASE 226 TO 314 ' left
  406.                         SL_CHANGE_ANIMATION_CELLS neko, 15 + global.catbreed, 16 + global.catbreed '    Neko clawing left
  407.                 END SELECT
  408.                 global.action = CLAWING '                                                               claw Neko, claw
  409.             ELSE '                                                                                      continue resting Neko
  410.                 global.frame = 0 '                                                                      reset frame counter
  411.             END IF
  412.         END IF
  413.     END IF
  414.     IF SL_GET_MOUSE(neko) = 2 THEN '                                                                    user click Neko?
  415.         SL_SET_CELL neko, 8 + global.catbreed '                                                         yes, alert Neko!
  416.         global.action = ALERT '                                                                         what was that Neko?
  417.     END IF
  418.     IF global.action <> RESTING THEN '                                                                  done resting?
  419.         global.frame = 0 '                                                                              yes, reset frame counter
  420.     END IF
  422. '******************************************************************************
  423. SUB GetReadyForBed (neko AS INTEGER) ' (YAWNING) yawn then sleep
  424.  
  425.     SHARED global AS GLOBALS '  global variables
  426.  
  427.     IF global.frame = SL_GET_FRAMERATE * 2 THEN '                                                       have two seconds gone by?
  428.         SL_CHANGE_ANIMATION_CELLS neko, 6 + global.catbreed, 7 + global.catbreed '                      yes, Neko sleeping
  429.         SL_CHANGE_AUTOANIMATION neko, SL_START '                                                        start Neko's animation
  430.         SL_CHANGE_ANIMATION_FRAMERATE neko, 2 '                                                         set Neko's local frame rate
  431.         global.action = SLEEPING '                                                                      Neko needs to sleep
  432.         global.frame = 0 '                                                                              reset frame counter
  433.     ELSEIF global.frame = SL_GET_FRAMERATE THEN '                                                       no, has one second gone by?
  434.         SL_SET_CELL neko, 5 + global.catbreed '                                                         yes, yawn Neko, yawn
  435.     END IF
  436.  
  438. '******************************************************************************
  439. SUB ChaseThe (mouse AS INTEGER, neko AS INTEGER) ' (CHASING) chase then tired or mouse caught
  440.  
  441.     SHARED global AS GLOBALS '  global variables
  442.  
  443.     DIM mouseangle AS INTEGER ' angle of mouse pointer from Neko
  444.     DIM nekoframe AS INTEGER '  Neko's local frame rate
  445.  
  446.     mouseangle = SL_GET_ANGLE_TO_SPRITE(neko, mouse) '                                        angle to mouse pointer from Neko (changed 10/03/18)
  447.     SL_CHANGE_MOTION_DIRECTION neko, mouseangle '                                                       point Neko in direction of mouse
  448.     SELECT CASE mouseangle '                                                                            which animation cells to use?
  449.         CASE 338 TO 359, 0 TO 22
  450.             SL_CHANGE_ANIMATION_CELLS neko, 17 + global.catbreed, 18 + global.catbreed '                Neko running up
  451.         CASE 23 TO 67
  452.             SL_CHANGE_ANIMATION_CELLS neko, 19 + global.catbreed, 20 + global.catbreed '                Neko running up to the right
  453.         CASE 68 TO 112
  454.             SL_CHANGE_ANIMATION_CELLS neko, 21 + global.catbreed, 22 + global.catbreed '                Neko running right
  455.         CASE 113 TO 157
  456.             SL_CHANGE_ANIMATION_CELLS neko, 23 + global.catbreed, 24 + global.catbreed '                Neko running down to the right
  457.         CASE 158 TO 202
  458.             SL_CHANGE_ANIMATION_CELLS neko, 25 + global.catbreed, 26 + global.catbreed '                Neko running down
  459.         CASE 203 TO 247
  460.             SL_CHANGE_ANIMATION_CELLS neko, 27 + global.catbreed, 28 + global.catbreed '                Neko running down to the left
  461.         CASE 248 TO 292
  462.             SL_CHANGE_ANIMATION_CELLS neko, 29 + global.catbreed, 30 + global.catbreed '                Neko running left
  463.         CASE 253 TO 337
  464.             SL_CHANGE_ANIMATION_CELLS neko, 31 + global.catbreed, 32 + global.catbreed '                Neko running up to the left
  465.     END SELECT
  466.     SL_SET_ZOOM neko, SL_GET_INTY(neko) / 6 + 100 '                                                     how distant is Neko
  467.     SL_CHANGE_MOTION_SPEED neko, SL_GET_INTY(neko) / 75 '                                               speed changes with distance
  468.     nekoframe = SL_GET_INTY(neko) / 50 '                                                                Neko's frame rate changes with distance
  469.     IF nekoframe < 5 THEN '                                                                             keep his frame rate within sane levels
  470.         nekoframe = 5
  471.     ELSEIF nekoframe > 10 THEN
  472.         nekoframe = 10
  473.     END IF
  474.     SL_CHANGE_ANIMATION_FRAMERATE neko, nekoframe '                                                     set Neko's local frame rate
  475.     IF SL_GET_COLLISION(neko, mouse) THEN global.action = RESTING '                                     Neko caught the mouse! time to rest
  476.     IF global.frame > SL_GET_FRAMERATE * 5 THEN '                                                       has Neko been chasing for at least 5 seconds?
  477.         IF INT(RND(1) * 500) + 1 = 250 THEN global.action = YAWNING '                                   yes, you are making him tired! time for sleep
  478.     END IF
  479.     IF SL_GET_INTX(neko) - SL_GET_WIDTH(neko) \ 2 < 0 THEN '                                            Neko at left side of screen?
  480.         SL_PUT_SPRITE neko, SL_GET_WIDTH(neko) \ 2 + 5, SL_GET_INTY(neko) '                             yes, keep Neko there
  481.         SL_CHANGE_ANIMATION_CELLS neko, 15 + global.catbreed, 16 + global.catbreed '                    Neko clawing at left screen edge
  482.         global.action = CLAWING '                                                                       claw Neko, claw
  483.     ELSEIF SL_GET_INTX(neko) + SL_GET_WIDTH(neko) \ 2 > SL_SCREEN_WIDTH THEN '                          Neko at right edge of screen?
  484.         SL_PUT_SPRITE neko, SL_SCREEN_WIDTH - 6 - SL_GET_WIDTH(neko) \ 2, SL_GET_INTY(neko) '           yes, keep Neko there
  485.         SL_CHANGE_ANIMATION_CELLS neko, 11 + global.catbreed, 12 + global.catbreed '                    Neko clawing at right screen edge
  486.         global.action = CLAWING '                                                                       claw Neko, claw
  487.     ELSEIF SL_GET_INTY(neko) - SL_GET_HEIGHT(neko) \ 2 < 0 THEN '                                       Neko at top of screen?
  488.         SL_PUT_SPRITE (neko), SL_GET_INTX(neko), SL_GET_HEIGHT(neko) \ 2 + 5 '                          yes, keep Neko there
  489.         SL_CHANGE_ANIMATION_CELLS neko, 9 + global.catbreed, 10 + global.catbreed '                     Neko clawing at top screen edge
  490.         global.action = CLAWING '                                                                       claw Neko, claw
  491.     ELSEIF SL_GET_INTY(neko) + SL_GET_HEIGHT(neko) \ 2 > SL_SCREEN_HEIGHT THEN '                        Neko at bottom of screen?
  492.         SL_PUT_SPRITE neko, SL_GET_INTX(neko), SL_SCREEN_HEIGHT - 6 - SL_GET_HEIGHT(neko) \ 2 '         yes, keep Neko there
  493.         SL_CHANGE_ANIMATION_CELLS neko, 13 + global.catbreed, 14 + global.catbreed '                    Neko clawing at bottom screen edge
  494.         global.action = CLAWING '                                                                       claw Neko, claw
  495.     END IF
  496.     IF global.action <> CHASING THEN '                                                                  is Neko done chasing?
  497.         IF NOT global.action = CLAWING THEN '                                                           is Neko now clawing?
  498.             SL_CHANGE_AUTOANIMATION neko, SL_STOP '                                                     no, stop Neko's animation
  499.             SL_SET_CELL neko, 1 + global.catbreed '                                                     sit Neko, sit
  500.         END IF
  501.         SL_CHANGE_AUTOMOTION neko, SL_STOP '                                                            stop Neko's motion
  502.         global.frame = 0 '                                                                              reset frame counter
  503.     END IF
  504.  
  506.  
  507.  
  508.  
  509.  
  510.  
  511.  
  512.  
  513.  
  514.  
  515.  
  516.  
  517.  
  518.  
  519. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  520. '                                                                       ----------==========                ==========----------
  521. '                                                                       ----------========== LAYER ROUTINES ==========----------
  522. '                                                                       ----------==========                ==========----------
  523. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  524.  
  525. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  526. SUB SL_SCREEN (swidth AS INTEGER, sheight AS INTEGER, layers AS INTEGER) '                                                                                                                    SL_SCREEN
  527.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  528.  
  529.     ' declare global variables
  530.  
  531.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  532.     SHARED SL_global AS SL_GLOBAL '     common globals array
  533.  
  534.     ' declare local variables
  535.  
  536.     DIM layer AS INTEGER '              layer counter
  537.  
  538.     ' perform error checks
  539.  
  540.     IF layers < 1 THEN '                                                                                creating at least one layer?
  541.         SL_error "SL_SCREEN", 26, "" '                                                                  no, report error to programmer
  542.     END IF
  543.  
  544.     REDIM SL_layer(layers) AS SL_LAYERS '                                                               increase layer array to match requested number of layers
  545.     SL_global.swidth = swidth '                                                                         set screen width
  546.     SL_global.sheight = sheight '                                                                       set screen height
  547.     layer = 0 '                                                                                         reset layer counter
  548.  
  549.     DO '                                                                                                cycle through layers
  550.         SL_layer(layer).image = _NEWIMAGE(swidth, sheight, 32) '                                        create layer software image
  551.         SL_layer(layer).visible = -1 '                                                          (TRUE)  layer is visible
  552.         layer = layer + 1 '                                                                             increment layer counter
  553.     LOOP UNTIL layer = UBOUND(SL_layer) + 1 '                                                           leave when all layers created
  554.  
  555.     SL_global.screen = SL_layer(0).image
  556.     SCREEN SL_global.screen '                                                                           initialize layer 0 working screen
  557.  
  559.  
  560. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  561. SUB SL_DISPLAY () '                                                                                                                                                                          SL_DISPLAY
  562.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  563.  
  564.     ' declare global variables
  565.  
  566.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  567.     SHARED SL_global AS SL_GLOBAL '     common globals array
  568.  
  569.     ' declare local variables
  570.  
  571.     DIM layer AS INTEGER '              layer counter
  572.     DIM odest AS INTEGER '              original destination
  573.     DIM osource AS LONG '               original source
  574.     DIM merge AS LONG '                 software image to merge all layers onto
  575.  
  576.     odest = _DEST '                                                                                     save original destination
  577.     osource = _SOURCE '                                                                                 save original source
  578.     _DEST SL_global.screen '                                                                            main screen is destination
  579.     _SOURCE SL_global.screen '                                                                          main screen is source
  580.     merge = _NEWIMAGE(SL_global.swidth, SL_global.sheight, 32) '                                        create screen to merge layers
  581.     layer = UBOUND(SL_layer) '                                                                          reset layer counter
  582.  
  583.     DO '                                                                                                cycle through layers backwards (high to low)
  584.         IF SL_layer(layer).visible THEN '                                                               is this layer visible?
  585.             _PUTIMAGE , SL_layer(layer).image, merge '                                                  merge this layer
  586.         END IF
  587.         layer = layer - 1 '                                                                             decrement layer counter
  588.     LOOP UNTIL layer = 0 '                                                                              leave when all layers merged
  589.  
  590.     IF SL_global.hardware THEN _FREEIMAGE SL_global.hardware '                                          free old merged hardware image
  591.     SL_global.hardware = _COPYIMAGE(merge, 33) '                                                        create hardware image of merged layers
  592.     _PUTIMAGE , SL_global.hardware '                                                                    place hardware image on main screen
  593.     _FREEIMAGE merge '                                                                                  merged software image no longer needed
  594.  
  595.     SL_draw_sprites '                                                                                   draw all sprites in use
  596.     _DISPLAY '                                                                                          update display screen with changes
  597.     _DEST odest '                                                                                       restore original destination
  598.     _SOURCE osource '                                                                                   restore original source
  599.  
  601.  
  602. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  603. SUB SL_SET_DESTINATION_LAYER (layer AS INTEGER) '                                                                                                                              SL_SET_DESTINATION_LAYER
  604.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  605.  
  606.     ' declare global variables
  607.  
  608.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  609.     SHARED SL_global AS SL_GLOBAL '     common globals array
  610.  
  611.     ' perform error checks
  612.  
  613.     IF layer <> -32767 THEN '                                                               (SL_RESET)  reset to working image?
  614.         IF NOT SL_VALID_LAYER(layer) THEN '                                                             no, valid layer?
  615.             SL_error "SL_SET_DESTINATION_LAYER", 25, "" '                                               no, report error to programmer
  616.         ELSE '                                                                                          yes, valid layer
  617.             _DEST SL_layer(layer).image '                                                               set destination as layer software image
  618.             SL_global.destination = layer '                                                             save new destination layer
  619.         END IF
  620.     ELSE '                                                                                              yes, reset layer
  621.         _DEST SL_layer(1).image '                                                                       set destination as layer 1 software image
  622.         SL_global.destination = 1 '                                                                     save new destination layer
  623.     END IF
  624.  
  626.  
  627. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  628. SUB SL_SET_SOURCE_LAYER (layer AS INTEGER) '                                                                                                                                        SL_SET_SOURCE_LAYER
  629.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  630.  
  631.     ' declare global variables
  632.  
  633.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  634.     SHARED SL_global AS SL_GLOBAL '     common globals array
  635.  
  636.     ' perform error checks
  637.  
  638.     IF layer <> -32767 THEN '                                                               (SL_RESET)  reset to working image?
  639.         IF NOT SL_VALID_LAYER(layer) THEN '                                                             no, valid layer?
  640.             SL_error "SL_SET_SOURCE_LAYER", 25, "" '                                                    no, report error to programmer
  641.         ELSE '                                                                                          yes, valid layer
  642.             _SOURCE SL_layer(layer).image '                                                             set source as layer software image
  643.             SL_global.source = layer '                                                                  save new source layer
  644.         END IF
  645.     ELSE '                                                                                              yes, reset layer
  646.         _SOURCE SL_layer(1).image '                                                                     set source as layer 1 software image
  647.         SL_global.source = 1 '                                                                          save new source layer
  648.     END IF
  649.  
  651.  
  652. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  653. FUNCTION SL_GET_DESTINATION_LAYER () '                                                                                                                                         SL_GET_DESTINATION_LAYER
  654.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  655.  
  656.     ' declare global variables
  657.  
  658.     SHARED SL_global AS SL_GLOBAL '     common globals array
  659.  
  660.     SL_GET_DESTINATION_LAYER = SL_global.destination '                                                  return current destination layer
  661.  
  663.  
  664. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  665. FUNCTION SL_GET_SOURCE_LAYER () '                                                                                                                                                   SL_GET_SOURCE_LAYER
  666.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  667.  
  668.     ' declare global variables
  669.  
  670.     SHARED SL_global AS SL_GLOBAL '     common globals array
  671.  
  672.     SL_GET_SOURCE_LAYER = SL_global.source '                                                            return current source layer
  673.  
  675.  
  676. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  677. SUB SL_CLEAR_LAYER (layer AS INTEGER) '                                                                                                                                                  SL_CLEAR_LAYER
  678.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  679.  
  680.     ' declare global variables
  681.  
  682.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  683.     SHARED SL_global AS SL_GLOBAL '     common globals array
  684.  
  685.     ' declare local variables
  686.  
  687.     DIM layers AS INTEGER '             layer counter
  688.  
  689.     ' perform error checks
  690.  
  691.     IF layer <> -1 THEN '                                                                     (SL_ALL)  clear all layers?
  692.         IF NOT SL_VALID_LAYER(layer) THEN '                                                             no, valid layer?
  693.             SL_error "SL_CLEAR_LAYER", 25, "" '                                                         no, report error to programmer
  694.         END IF
  695.         _FREEIMAGE SL_layer(layer).image '                                                              free the layer's software image from memory
  696.         SL_layer(layer).image = _NEWIMAGE(SL_global.swidth, SL_global.sheight, 32) '                    create a new software layer
  697.     ELSE '                                                                                              yes, clear all layers
  698.         layers = 0 '                                                                                    reset layer counter
  699.         DO
  700.             layers = layers + 1 '                                                                       increment layer counter
  701.             _FREEIMAGE SL_layer(layers).image '                                                         free the layer's software image from memory
  702.             SL_layer(layers).image = _NEWIMAGE(SL_global.swidth, SL_global.sheight, 32) '               create a new software layer
  703.         LOOP UNTIL layers = UBOUND(SL_layer) '                                                          leave when all layers cleared
  704.     END IF
  705.  
  707.  
  708. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  709. FUNCTION SL_VALID_LAYER (layer AS INTEGER) '                                                                                                                                             SL_VALID_LAYER
  710.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  711.  
  712.     ' declare global variables
  713.  
  714.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  715.  
  716.     IF layer < 1 OR layer > UBOUND(SL_layer) THEN '                                                     valid layer?
  717.         SL_VALID_LAYER = 0 '                                                                   (FALSE)  no, return invalid
  718.     ELSE '                                                                                              yes
  719.         SL_VALID_LAYER = -1 '                                                                   (TRUE)  return valid
  720.     END IF
  721.  
  723.  
  724. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  725. FUNCTION SL_SCREEN_WIDTH () '                                                                                                                                                           SL_SCREEN_WIDTH
  726.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  727.  
  728.     ' declare global variables
  729.  
  730.     SHARED SL_global AS SL_GLOBAL '     common globals array
  731.  
  732.     SL_SCREEN_WIDTH = SL_global.swidth '                                                                return screen width
  733.  
  735.  
  736. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  737. FUNCTION SL_SCREEN_HEIGHT () '                                                                                                                                                         SL_SCREEN_HEIGHT
  738.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  739.  
  740.     ' declare global variables
  741.  
  742.     SHARED SL_global AS SL_GLOBAL '     common globals array
  743.  
  744.     SL_SCREEN_HEIGHT = SL_global.sheight '                                                              return screen height
  745.  
  747.  
  748. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  749. SUB SL_SET_LAYER_VISBILE (layer AS INTEGER, visible AS INTEGER) '                                                                                                                  SL_SET_LAYER_VISIBLE
  750.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  751.  
  752.     ' declare global variables
  753.  
  754.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  755.  
  756.     ' perform error checks
  757.  
  758.     IF NOT SL_VALID_LAYER(layer) THEN '                                                                 no, valid layer?
  759.         SL_error "SL_SET_LAYER_VISIBLE", 25, "" '                                                       no, report error to programmer
  760.     END IF
  761.     IF (visible < -1) OR (visible > 0) THEN '                                      (SL_SHOW & SL_HIDE)  valid visible behavior requested?
  762.         SL_error "SL_SET_LAYER_VISIBLE", 20, "" '                                                       no, report error to programmer
  763.     END IF
  764.  
  765.     SL_layer(layer).visible = visible '                                                                 set layer visibility
  766.  
  768.  
  769. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  770. '                                                                       ----------==========                ==========----------
  771. '                                                                       ----------========== MOUSE ROUTINES ==========----------
  772. '                                                                       ----------==========                ==========----------
  773. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  774.  
  775. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  776. FUNCTION SL_GET_MOUSE (handle AS INTEGER) '                                                                                                                                                SL_GET_MOUSE
  777.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  778.  
  779.     ' declare global variables
  780.  
  781.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  782.  
  783.     ' declare local variables
  784.  
  785.     DIM sprite AS INTEGER '             sprite counter to cycle through array
  786.     DIM event AS INTEGER '              -1 (TRUE) if an event was recorded
  787.     DIM leave AS INTEGER '              -1 (TRUE) if only one sprite to check
  788.  
  789.     ' perform error checks
  790.  
  791.     IF handle <> -1 THEN '                                                                    (SL_ALL)  check all sprites for mouse interaction?
  792.         IF NOT SL_VALID_SPRITE(handle) THEN '                                                           no, is this a valid sprite?
  793.             SL_error "SL_GET_MOUSE", 1, "" '                                                            no, report error to programmer
  794.         END IF
  795.         IF NOT SL_sprite(handle).visible THEN '                                                         is sprite visible?
  796.             EXIT FUNCTION '                                                                             no, leave function
  797.         END IF
  798.         sprite = handle '                                                                               check this one sprite
  799.         leave = -1 '                                                                                    then leave after that one sprite checked
  800.     ELSE '                                                                                              yes, check all sprites
  801.         sprite = 1 '                                                                                    start with first sprite
  802.     END IF
  803.  
  804.     DO '                                                                                                cycle through sprite array
  805.         IF SL_sprite(sprite).inuse AND SL_sprite(sprite).visible THEN '                                 is sprite in use and visible?
  806.             SL_sprite(sprite).mouse.event = 0 '                                                         yes, reset mouse settings
  807.             SL_sprite(sprite).mouse.x = 0
  808.             SL_sprite(sprite).mouse.y = 0
  809.             SL_sprite(sprite).mouse.xa = 0
  810.             SL_sprite(sprite).mouse.ya = 0
  811.             WHILE _MOUSEINPUT: WEND '                                                                   get latest mouse information
  812.             IF SL_BOX_COLLISION(_MOUSEX, _MOUSEY, 1, 1, SL_sprite(sprite).collision.x1, SL_sprite(sprite).collision.y1, SL_sprite(sprite).collision.cwidth, SL_sprite(sprite).collision.cheight) THEN ' mouse collision?
  813.                 event = -1 '                                                                            yes, remember that an event occurred
  814.                 SL_sprite(sprite).mouse.xa = _MOUSEX '                                                  screen location of mouse x
  815.                 SL_sprite(sprite).mouse.ya = _MOUSEY '                                                  screen location of mouse y
  816.                 SL_sprite(sprite).mouse.x = _MOUSEX - SL_sprite(sprite).x.actual '                      sprite location of mouse x
  817.                 SL_sprite(sprite).mouse.y = _MOUSEY - SL_sprite(sprite).y.actual '                      sprite location of mouse y
  818.                 IF _MOUSEBUTTON(1) THEN '                                                               is left button clicked?
  819.                     SL_GET_MOUSE = 2 '                                                  (SL_LEFTCLICK)  yes, return value
  820.                     SL_sprite(sprite).mouse.event = 2 '                                 (SL_LEFTCLICK)  record mouse event
  821.                 ELSEIF _MOUSEBUTTON(2) THEN '                                                           no, is right button clicked?
  822.                     SL_GET_MOUSE = 3 '                                                 (SL_RIGHTCLICK)  yes, return value
  823.                     SL_sprite(sprite).mouse.event = 3 '                                (SL_RIGHTCLICK)  record mouse event
  824.                 ELSEIF _MOUSEBUTTON(3) THEN '                                                           no, is center button clicked?
  825.                     SL_GET_MOUSE = 4 '                                                (SL_CENTERCLICK)  yes, return value
  826.                     SL_sprite(sprite).mouse.event = 4 '                               (SL_CENTERCLICK)  record mouse event
  827.                 ELSE '                                                                                  no, mouse is just hovering
  828.                     SL_GET_MOUSE = 1 '                                                      (SL_HOVER)  return value
  829.                     SL_sprite(sprite).mouse.event = 1 '                                     (SL_HOVER)  record mouse event
  830.                 END IF
  831.             END IF
  832.         END IF
  833.         sprite = sprite + 1 '                                                                           increment sprite counter
  834.     LOOP UNTIL sprite = (UBOUND(SL_sprite) + 1) OR leave '                                              leave when full array or single sprite checked
  835.  
  836.     IF handle = -1 THEN '                                                                     (SL_ALL)  were all sprites checked?
  837.         IF event THEN '                                                                                 yes, was there an event with any of them?
  838.             SL_GET_MOUSE = -1 '                                                                 (TRUE)  return that an event occurred
  839.         ELSE '                                                                                          no events recorded
  840.             SL_GET_MOUSE = 0 '                                                                 (FALSE)  return that no events occurred
  841.         END IF
  842.     END IF
  843.  
  845.  
  846. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  847. FUNCTION SL_GET_MOUSE_EVENT (handle AS INTEGER) '                                                                                                                                    SL_GET_MOUSE_EVENT
  848.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  849.  
  850.     ' declare global variables
  851.  
  852.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  853.  
  854.     ' perform error checks
  855.  
  856.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  857.         SL_error "SL_GET_MOUSE_EVENT", 1, "" '                                                          no, report error to programmer
  858.     END IF
  859.  
  860.     SL_GET_MOUSE_EVENT = SL_sprite(handle).mouse.event '                                                return mouse event
  861.     SL_sprite(handle).mouse.event = 0 '                                                                 reset now that value retrieved
  862.  
  864.  
  865. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  866. FUNCTION SL_GET_MOUSE_SPRITEX (handle AS INTEGER) '                                                                                                                                SL_GET_MOUSE_SPRITEX
  867.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  868.  
  869.     ' declare global variables
  870.  
  871.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  872.  
  873.     ' perform error checks
  874.  
  875.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  876.         SL_error "SL_GET_MOUSE_SPRITEX", 1, "" '                                                        no, report error to programmer
  877.     END IF
  878.  
  879.     SL_GET_MOUSE_SPRITEX = SL_sprite(handle).mouse.x '                                                  return x value of mouse on sprite
  880.     SL_sprite(handle).mouse.x = 0 '                                                                     reset now that value retrieved
  881.  
  883.  
  884. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  885. FUNCTION SL_GET_MOUSE_SPRITEY (handle AS INTEGER) '                                                                                                                                SL_GET_MOUSE_SPRITEY
  886.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  887.  
  888.     ' declare global variables
  889.  
  890.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  891.  
  892.     ' perform error checks
  893.  
  894.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  895.         SL_error "SL_GET_MOUSE_SPRITEY", 1, "" '                                                        no, report error to programmer
  896.     END IF
  897.  
  898.     SL_GET_MOUSE_SPRITEY = SL_sprite(handle).mouse.y '                                                  return y value of mouse on sprite
  899.     SL_sprite(handle).mouse.y = 0 '                                                                     reset now that value retrieved
  900.  
  902.  
  903. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  904. FUNCTION SL_GET_MOUSE_ACTUALX (handle AS INTEGER) '                                                                                                                                SL_GET_MOUSE_ACTUALX
  905.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  906.  
  907.     ' declare global variables
  908.  
  909.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  910.  
  911.     ' perform error checks
  912.  
  913.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  914.         SL_error "SL_GET_MOUSE_ACTUALX", 1, "" '                                                        no, report error to programmer
  915.     END IF
  916.  
  917.     SL_GET_MOUSE_ACTUALX = SL_sprite(handle).mouse.xa '                                                 return x value of mouse on screen
  918.     SL_sprite(handle).mouse.xa = 0 '                                                                    reset now that value retrieved
  919.  
  921.  
  922. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  923. FUNCTION SL_GET_MOUSE_ACTUALY (handle AS INTEGER) '                                                                                                                                SL_GET_MOUSE_ACTUALY
  924.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  925.  
  926.     ' declare global variables
  927.  
  928.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  929.  
  930.     ' perform error checks
  931.  
  932.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  933.         SL_error "SL_GET_MOUSE_ACTUALY", 1, "" '                                                        no, report error to programmer
  934.     END IF
  935.  
  936.     SL_GET_MOUSE_ACTUALY = SL_sprite(handle).mouse.ya '                                                 return y value of mouse on screen
  937.     SL_sprite(handle).mouse.ya = 0 '                                                                    reset now that value retrieved
  938.  
  940.  
  941. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  942. '                                                                     ----------==========                    ==========----------
  943. '                                                                     ----------========== COLLISION ROUTINES ==========----------
  944. '                                                                     ----------==========                    ==========----------
  945. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  946.  
  947. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  948. FUNCTION SL_GET_COLLISION (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                                   SL_GET_COLLISION
  949.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  950.  
  951.     ' declare global variables
  952.  
  953.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  954.  
  955.     ' declare local variables
  956.  
  957.     DIM sprite AS INTEGER '             sprite counter in loop
  958.  
  959.     ' perform error checks
  960.  
  961.     IF NOT SL_VALID_SPRITE(handle1) THEN '                                                              is this a valid sprite?
  962.         SL_error "SL_GET_COLLISION", 1, "" '                                                            no, report error to programmer
  963.     END IF
  964.     IF handle2 <> -1 THEN '                                                                   (SL_ALL)  check for collision with all sprites?
  965.         IF NOT SL_VALID_SPRITE(handle2) THEN '                                                          no, is this a valid sprite?
  966.             SL_error "SL_GET_COLLISION", 1, "" '                                                        no, report error to programmer
  967.         END IF
  968.         IF SL_sprite(handle2).collision.detect = 0 THEN '                                               collision detection turned on?
  969.             SL_error "SL_GET_COLLISION", 22, "" '                                                       no, report error to programmer
  970.         END IF
  971.         'IF SL_sprite(handle1).collision.detect <> SL_sprite(handle2).collision.detect THEN '            both sprites use same detection method?
  972.         '    SL_error "SL_GET_COLLISION", 23, "" '                                                       no, report error to programmer
  973.         'END IF
  974.     END IF
  975.     IF SL_sprite(handle1).collision.detect = 0 THEN '                                                   collision detection turned on?
  976.         SL_error "SL_GET_COLLISION", 21, "" '                                                           no, report error to programmer
  977.     END IF
  978.  
  979.     SELECT CASE SL_sprite(handle1).collision.detect
  980.         CASE 1 '                                                                              (SL_BOX)  box detection
  981.             IF handle2 <> -1 THEN '                                                           (SL_ALL)  check all sprites for collision?
  982.                 IF SL_sprite(handle1).layer <> SL_sprite(handle2).layer THEN EXIT FUNCTION '            no need to check if not on same layer
  983.                 SL_sprite(handle1).collision.box = SL_box_collision(SL_sprite(handle1).collision.x1,_
  984.                                                                     SL_sprite(handle1).collision.y1,_
  985.                                                                     SL_sprite(handle1).collision.cwidth,_
  986.                                                                     SL_sprite(handle1).collision.cheight,_
  987.                                                                     SL_sprite(handle2).collision.x1,_
  988.                                                                     SL_sprite(handle2).collision.y1,_
  989.                                                                     SL_sprite(handle2).collision.cwidth,_
  990.                                                                     SL_sprite(handle2).collision.cheight) ' no, check for a box collision of two sprites
  991.                 IF SL_sprite(handle1).collision.box THEN '                                              was there a collision?
  992.                     SL_sprite(handle1).collision.with = handle2 '                                       yes, record sprite that was collided with
  993.                     SL_sprite(handle2).collision.with = handle1 '                                       tell the other sprite who it collided with
  994.                     SL_GET_COLLISION = handle2 '                                                (TRUE)  return that a collision happened
  995.                 END IF
  996.             ELSE '                                                                                      yes, check all sprites
  997.                 sprite = 0 '                                                                            reset sprite counter
  998.                 DO '                                                                                    cycle through sprite array
  999.                     sprite = sprite + 1 '                                                               increment sprite counter
  1000.                     IF SL_sprite(handle1).layer = SL_sprite(sprite).layer THEN '                        are sprites on same layer?
  1001.                         IF SL_sprite(sprite).inuse AND SL_sprite(sprite).collision.detect THEN '        yes, is sprite in use and using collision detection?
  1002.                         SL_sprite(handle1).collision.box = SL_box_collision(SL_sprite(handle1).collision.x1,_
  1003.                                                                             SL_sprite(handle1).collision.y1,_
  1004.                                                                             SL_sprite(handle1).collision.cwidth,_
  1005.                                                                             SL_sprite(handle1).collision.cheight,_
  1006.                                                                             SL_sprite(sprite).collision.x1,_
  1007.                                                                             SL_sprite(sprite).collision.y1,_
  1008.                                                                             SL_sprite(sprite).collision.cwidth,_
  1009.                                                                             SL_sprite(sprite).collision.cheight) ' yes, check for a box collision of two sprites
  1010.                             IF SL_sprite(handle1).collision.box THEN '                                  box collision detected?
  1011.                                 SL_sprite(handle1).collision.with = sprite '                            yes, record sprite that was collided with
  1012.                                 SL_sprite(sprite).collision.with = handle1 '                            tell the other sprite who it collided with
  1013.                                 SL_GET_COLLISION = sprite '                                     (TRUE)  return that collision happened
  1014.                                 sprite = UBOUND(SL_sprite) '                                            no need to check further
  1015.                             END IF
  1016.                         END IF
  1017.                     END IF
  1018.                 LOOP UNTIL sprite = UBOUND(SL_sprite) '                                                 leave when end of array reached
  1019.             END IF
  1020.         CASE 2 '                                                                            (SL_ROUND)  round collision
  1021.             IF handle2 <> -1 THEN '                                                           (SL_ALL)  check all sprites for collision?
  1022.                 IF SL_sprite(handle1).layer <> SL_sprite(handle2).layer THEN EXIT FUNCTION '            no need to check if not on same layer
  1023.                 SL_sprite(handle1).collision.round = sl_round_collision(SL_sprite(handle1).x.int,_
  1024.                                                                         SL_sprite(handle1).y.int,_
  1025.                                                                         SL_sprite(handle1).collision.radius,_
  1026.                                                                         SL_SPRITE(handle2).x.int,_
  1027.                                                                         SL_sprite(handle2).y.int,_
  1028.                                                                         SL_sprite(handle2).collision.radius) ' no, check for a round collision of two sprites
  1029.                 IF SL_sprite(handle1).collision.round THEN '                                            was there a collision?
  1030.                     SL_sprite(handle1).collision.with = handle2 '                                       yes, record sprite that was collided with
  1031.                     SL_sprite(handle2).collision.with = handle1 '                                       tell the other sprite who it collided with
  1032.                     SL_GET_COLLISION = handle2 '                                                (TRUE)  return that a collision happened
  1033.                 END IF
  1034.             ELSE '                                                                                      yes, check all sprites
  1035.                 sprite = 0 '                                                                            reset sprite counter
  1036.                 DO '                                                                                    cycle through sprite array
  1037.                     sprite = sprite + 1 '                                                               increment sprite counter
  1038.                     IF SL_sprite(handle1).layer = SL_sprite(sprite).layer THEN '                        are sprites on same layer?
  1039.                         IF SL_sprite(sprite).inuse AND SL_sprite(sprite).collision.detect THEN '        yes, is sprite in use and using collision detection?
  1040.                         SL_sprite(handle1).collision.round = sl_round_collision(SL_sprite(handle1).x.int,_
  1041.                                                                                 SL_sprite(handle1).y.int,_
  1042.                                                                                 SL_sprite(handle1).collision.radius,_
  1043.                                                                                 SL_sprite(sprite).x.int,_
  1044.                                                                                 SL_sprite(sprite).y.int,_
  1045.                                                                                 SL_sprite(sprite).collision.radius) ' yes, check for a round collision of two sprites
  1046.                             IF SL_sprite(handle1).collision.round THEN '                                round collision detected?
  1047.                                 SL_sprite(handle1).collision.with = sprite '                            yes, record sprite that was collided with
  1048.                                 SL_sprite(sprite).collision.with = handle1 '                            tell the other sprite who it collided with
  1049.                                 SL_GET_COLLISION = sprite '                                     (TRUE)  return that collision happened
  1050.                                 sprite = UBOUND(SL_sprite) '                                            no need to check further
  1051.                             END IF
  1052.                         END IF
  1053.                     END IF
  1054.                 LOOP UNTIL sprite = UBOUND(SL_sprite) '                                                 leave when end of array reached
  1055.             END IF
  1056.         CASE 3 '                                                                            (SL_PIXEL)  pixel perfect collision
  1057.             IF handle2 <> -1 THEN '                                                           (SL_ALL)  check all sprites for collision?
  1058.                 IF SL_sprite(handle1).layer <> SL_sprite(handle2).layer THEN EXIT FUNCTION '            no need to check if not on same layer
  1059.                 SL_sprite(handle1).collision.pixel = SL_PIXEL_COLLISION(handle1, handle2) '             yes, check for a pixel collision of two sprites
  1060.                 IF SL_sprite(handle1).collision.pixel THEN '                                            pixel collision detected?
  1061.                     SL_sprite(handle1).collision.with = handle2 '                                       yes, record sprite that was collided with
  1062.                     SL_sprite(handle2).collision.with = handle1 '                                       tell the other sprite who it collided with
  1063.                     SL_GET_COLLISION = handle2 '                                                (TRUE)  return that collision happened
  1064.                 END IF
  1065.             ELSE '                                                                                      yes, check all sprites
  1066.                 sprite = 0 '                                                                            reset sprite counter
  1067.                 DO '                                                                                    cycle through sprite array
  1068.                     sprite = sprite + 1 '                                                               increment sprite counter
  1069.                     IF SL_sprite(handle1).layer = SL_sprite(sprite).layer THEN '                        are sprites on same layer?
  1070.                         IF SL_sprite(sprite).inuse AND SL_sprite(sprite).collision.detect THEN '        yes, is sprite in use and using collision detection? (may need to see if mask available too) <--------------- LOOK
  1071.                             SL_sprite(handle1).collision.pixel = SL_PIXEL_COLLISION(handle1, sprite) '  yes, check for a pixel collision of two sprites
  1072.                             IF SL_sprite(handle1).collision.pixel THEN '                                pixel collision detected?
  1073.                                 SL_sprite(handle1).collision.with = sprite '                            yes, record sprite that was collided with
  1074.                                 SL_sprite(sprite).collision.with = handle1 '                            tell the other sprite who it collided with
  1075.                                 SL_GET_COLLISION = sprite '                                     (TRUE)  return that collision happened
  1076.                                 sprite = UBOUND(SL_sprite) '                                            no need to check further
  1077.                             END IF
  1078.                         END IF
  1079.                     END IF
  1080.                 LOOP UNTIL sprite = UBOUND(SL_sprite) '                                                 leave when end of array reached
  1081.             END IF
  1082.     END SELECT
  1083.  
  1085.  
  1086. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1087. FUNCTION SL_ROUND_COLLISION (x1 AS INTEGER, y1 AS INTEGER, r1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, r2 AS INTEGER) '                                                             SL_ROUND_COLLISION
  1088.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1089.  
  1090.     IF SL_GET_DISTANCE_POINT_TO_POINT(x1, y1, x2, y2) < r1 + r2 THEN '                                  is distance less than both radii added together?
  1091.         SL_ROUND_COLLISION = -1 '                                                               (TRUE)  yes, return a collision
  1092.     END IF
  1093.  
  1095.  
  1096. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1097. FUNCTION SL_BOX_COLLISION (x1 AS INTEGER, y1 AS INTEGER, w1 AS INTEGER, h1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, w2 AS INTEGER, h2 AS INTEGER) '                                   SL_BOX_COLLISION
  1098.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1099.  
  1100.     IF x1 < x2 + w2 THEN '                                                                             is x1 within box 2's width?
  1101.         IF x1 + w1 > x2 THEN '                                                                         yes, is x2 within box 1's width?
  1102.             IF y1 < y2 + h2 THEN '                                                                     yes, is y1 within box 2's height?
  1103.                 IF y1 + h1 > y2 THEN '                                                                 yes, is y2 within box 1's height?
  1104.                     SL_BOX_COLLISION = -1 '                                                     (TRUE)  yes, return a collision
  1105.                 END IF
  1106.             END IF
  1107.         END IF
  1108.     END IF
  1109.  
  1111.  
  1112. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1113. FUNCTION SL_PIXEL_COLLISION (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                               SL_PIXEL_COLLISION
  1114.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1115.  
  1116.     ' declare global variables
  1117.  
  1118.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1119.  
  1120.     ' declare local variables
  1121.  
  1122.     DIM leftx AS INTEGER '              upper left x location of box collision area
  1123.     DIM rightx AS INTEGER '             lower right x location of box collision area
  1124.     DIM topy AS INTEGER '               upper left y location of box collision area
  1125.     DIM bottomy AS INTEGER '            lower right y location of box collision area
  1126.     DIM masks AS LONG '                 box collision area image to place masks
  1127.     DIM h1x AS INTEGER '                center point x offset for first sprite mask image
  1128.     DIM h2x AS INTEGER '                center point x offset for second sprite mask image
  1129.     DIM h1y AS INTEGER '                center point y offset for first sprite mask image
  1130.     DIM h2y AS INTEGER '                center point y offset for second sprite mask image
  1131.     DIM odest AS LONG '                 original destination
  1132.     DIM osource AS LONG '               original source
  1133.     DIM x AS INTEGER '                  counter to cycle through width of mask image
  1134.     DIM y AS INTEGER '                  counter to cycle throuogh height of mask image
  1135.  
  1136.     ' perform error checks
  1137.  
  1138.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
  1139.         SL_error "SL_PIXEL_COLLISION", 1, "" '                                                          no, report error to programmer
  1140.     END IF
  1141.  
  1142.     ' if there is no box collision then no need to check for pixel collision
  1143.  
  1144.     IF  SL_box_collision(SL_sprite(handle1).collision.x1, SL_sprite(handle1).collision.y1,_
  1145.                            SL_sprite(handle1).collision.cwidth, SL_sprite(handle1).collision.cheight,_
  1146.                            SL_sprite(handle2).collision.x2, SL_sprite(handle2).collision.y2,_
  1147.                            SL_sprite(handle2).collision.cwidth, SL_sprite(handle2).collision.cheight) THEN 'is there a box collision?
  1148.         leftx = SL_max(SL_sprite(handle1).collision.x1, SL_sprite(handle2).collision.x1) '              yes, get collision area coordinates
  1149.         rightx = SL_min(SL_sprite(handle1).collision.x1 + SL_sprite(handle1).collision.cwidth,_
  1150.                         SL_sprite(handle2).collision.x1 + SL_sprite(handle2).collision.cwidth)
  1151.         topy = SL_max(SL_sprite(handle1).collision.y1, SL_sprite(handle2).collision.y1)
  1152.         bottomy = SL_min(SL_sprite(handle1).collision.y1 + SL_sprite(handle1).collision.cheight,_
  1153.                          SL_sprite(handle2).collision.y1 + SL_sprite(handle2).collision.cheight)
  1154.  
  1155.         odest = _DEST '                                                                                 save original destination
  1156.         osource = _SOURCE '                                                                             save original source
  1157.         masks = _NEWIMAGE(rightx - leftx, bottomy - topy, 32) '                                         create image of same size to hold image masks
  1158.         h1x = SL_sprite(handle1).x.int - leftx '                                                        get image mask center point offsets from collision area upper left x,y
  1159.         h1y = SL_sprite(handle1).y.int - topy
  1160.         h2x = SL_sprite(handle2).x.int - leftx
  1161.         h2y = SL_sprite(handle2).y.int - topy
  1162.         _DEST masks '                                                                                   masks are to be drawn on new image
  1163.         _SOURCE masks '                                                                                 pixels are to be examined on new image
  1164.         _PUTIMAGE (-h1x, -h1y), SL_sprite(handle1).gfx.mask '                                           draw first sprite mask onto image
  1165.         _PUTIMAGE (-h2x, -h2y), SL_sprite(handle2).gfx.mask '                                           draw second sprite mask onto image
  1166.         x = 0 '                                                                                         reset width couonter
  1167.  
  1168.         DO '                                                                                            cycle through width of image
  1169.             y = 0 '                                                                                     reset height counter
  1170.             DO '                                                                                        cycle through height of image
  1171.                 IF POINT(x, y) = _RGBA32(0, 0, 0, 0) THEN '                                             is this a black pixel? <----------------------------------- used saved clearcolor instead?  LOOK
  1172.                     SL_sprite(handle1).collision.with = handle2 '                                       yes, record sprite that was collided with
  1173.                     SL_sprite(handle2).collision.with = handle1 '                                       tell the other sprite who it collided with
  1174.                     SL_PIXEL_COLLISION = handle2 '                                              (TRUE)  return that collision happened
  1175.                     y = _HEIGHT(masks) - 1 '                                                            no need to continue loop
  1176.                     x = _WIDTH(masks) - 1 '                                                             no need to continue loop
  1177.                 END IF
  1178.                 y = y + 1 '                                                                             increment height counter
  1179.             LOOP UNTIL y = _HEIGHT(masks) '                                                             leave when full height cycled
  1180.             x = x + 1 '                                                                                 increment width counter
  1181.         LOOP UNTIL x = _WIDTH(masks) '                                                                  leave when full width cycled
  1182.  
  1183.         _SOURCE osource '                                                                               restore original source
  1184.         _DEST odest '                                                                                   restore original destination
  1185.         _FREEIMAGE masks '                                                                              mask image no longer needed
  1186.     END IF
  1187.  
  1189.  
  1190. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1191. SUB SL_SET_COLLISION (handle AS INTEGER, method AS INTEGER) '                                                                                                                          SL_SET_COLLISION
  1192.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1193.  
  1194.     ' declare global variables
  1195.  
  1196.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1197.  
  1198.     ' perform error checks
  1199.  
  1200.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1201.         SL_error "SL_SET_COLLISION", 1, "" '                                                            no, report error to programmer
  1202.     END IF
  1203.     IF method = -32767 THEN '                                                               (SL_RESET)  reset collision detection?
  1204.         SL_sprite(handle).collision.detect = 0 '                                         (SL_NODETECT)  yes, reset detection
  1205.     ELSEIF method < 0 OR method > 3 THEN ' (SL_NODETECT, SL_BOXDETECT, SL_ROUNDDETECT, SL_PIXELDETECT)  invalid mode?
  1206.         SL_error "SL_SET_COLLISION", 24, "" '                                                           yes, report error to programmer
  1207.     ELSE '                                                                                              no
  1208.         SL_sprite(handle).collision.detect = method '                                                   set collision detection mode
  1209.     END IF
  1210.  
  1212.  
  1213. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1214. '                                                                     ----------==========                    ==========----------
  1215. '                                                                     ----------========== ANIMATION ROUTINES ==========----------
  1216. '                                                                     ----------==========                    ==========----------
  1217. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1218.  
  1219. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1220. SUB SL_SET_FRAMERATE (framerate AS INTEGER) '                                                                                                                                          SL_SET_FRAMERATE
  1221.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1222.  
  1223.     ' declare global variables
  1224.  
  1225.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1226.     SHARED SL_global AS SL_GLOBAL
  1227.  
  1228.     ' declare local variables
  1229.  
  1230.     DIM handle AS INTEGER '             counter to cycle through sprite handles
  1231.  
  1232.     ' perform error checks
  1233.  
  1234.     IF framerate < 1 THEN '                                                                             valid frame rate?
  1235.         SL_error "SL_SET_FRAMERATE", 10, "" '                                                           no, report error to programmer
  1236.     END IF
  1237.  
  1238.     ' set local variables
  1239.  
  1240.     SL_global.framerate = framerate '                                                                   set global frame rate
  1241.     handle = 0 '                                                                                        reset handle counter
  1242.  
  1243.     DO '                                                                                                update all available sprites
  1244.         handle = handle + 1 '                                                                           increment sprite pointer
  1245.         IF SL_sprite(handle).inuse THEN '                                                               is this sprite in use?
  1246.             IF SL_sprite(handle).animation.framerate THEN '                                             yes, does it contain an animation frame rate?
  1247.                 IF framerate < SL_sprite(handle).animation.framerate THEN '                             is new global frame rate less than sprite's frame rate?
  1248.                     SL_sprite(handle).animation.framerate = framerate '                                 yes, set sprite's frame rate to global frame rate
  1249.                 END IF
  1250.                 IF framerate = SL_sprite(handle).animation.framerate THEN '                             animation and global frame rates the same?
  1251.                     SL_sprite(handle).animation.skip = 0 '                                              yes, nothing needs to be done with frames
  1252.                 ELSEIF SL_sprite(handle).animation.framerate >= framerate \ 2 THEN '                    no, sprite frame rate 1/2 or less of master frame rate?
  1253.                     SL_sprite(handle).animation.skip = framerate \ (framerate - SL_sprite(handle).animation.framerate) ' yes, calculate every frame to skip
  1254.                 ELSE '                                                                                  no, sprite frame rate is greater than 1/2 of master frame rate
  1255.                     SL_sprite(handle).animation.skip = framerate \ SL_sprite(handle).animation.framerate ' calculate every frame to draw
  1256.                 END IF
  1257.             END IF
  1258.         END IF
  1259.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when all sprites updated
  1260.  
  1262.  
  1263. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1264. FUNCTION SL_GET_FRAMERATE () '                                                                                                                                                         SL_GET_FRAMERATE
  1265.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1266.  
  1267.     ' declare global variables
  1268.  
  1269.     SHARED SL_global AS SL_GLOBAL
  1270.  
  1271.     SL_GET_FRAMERATE = SL_global.framerate '                                                            return global frame rate
  1272.  
  1274.  
  1275. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1276. SUB SL_NEXT_ANIMATION_CELL (handle AS INTEGER) '                                                                                                                                 SL_NEXT_ANIMATION_CELL
  1277.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1278.  
  1279.     ' declare global variables
  1280.  
  1281.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1282.  
  1283.     ' perform error checks
  1284.  
  1285.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1286.         SL_error "SL_NEXT_ANIMATION_CELL", 1, "" '                                                      no, report error to programmer
  1287.     END IF
  1288.     IF NOT SL_sprite(handle).animation.cellfrom THEN '                                                  has animation been assigned to this sprite?
  1289.         SL_error "SL_NEXT_ANIMATION_CELL", 15, "" '                                                     no, report error to programmer
  1290.     END IF
  1291.     IF SL_sprite(handle).animation.auto THEN '                                                          is this sprite under auto animation control?
  1292.         SL_error "SL_NEXT_ANIMATION_CELL", 18, "" '                                                     yes, report error to programmer
  1293.     END IF
  1294.  
  1295.     SELECT CASE SL_sprite(handle).animation.mode '                                                      which animation mode is this sprite using?
  1296.         CASE 0 '                                                                          (SL_FORWARD)  move forward through the cells
  1297.             SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + 1 '                   increment animation cell
  1298.             IF SL_sprite(handle).animation.cell > SL_sprite(handle).animation.cellto THEN '             passed the last cell?
  1299.                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom '               yes, go back to first cell
  1300.             END IF
  1301.         CASE 1 '                                                                         (SL_BACKWARD)  move backward through the cells
  1302.             SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell - 1 '                   decrement animation cell
  1303.             IF SL_sprite(handle).animation.cell < SL_sprite(handle).animation.cellfrom THEN '           passed the first cell?
  1304.                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto '                 yes, go back to last cell
  1305.             END IF
  1306.         CASE 2 '                                                                        (SL_BACKFORTH)  ping-pong back and forth through the cells
  1307.             SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + SL_sprite(handle).animation.dir ' increment/decrement animation cell
  1308.             IF SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto OR _
  1309.                SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom THEN '           is this the first or last cell?
  1310.                 SL_sprite(handle).animation.dir = -SL_sprite(handle).animation.dir '                    yes, reverse animation direction
  1311.             END IF
  1312.     END SELECT
  1313.     SL_sprite(handle).cell = SL_sprite(handle).animation.cell '                                         update current sprite cell
  1314.  
  1316.  
  1317. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1318. SUB SL_CHANGE_ANIMATION_CELLS (handle AS INTEGER, cellfrom AS INTEGER, cellto AS INTEGER) '                                                                                   SL_CHANGE_ANIMATION_CELLS
  1319.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1320.  
  1321.     ' declare global variables
  1322.  
  1323.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1324.  
  1325.     ' perform error checks
  1326.  
  1327.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1328.         SL_error "SL_CHANGE_ANIMATION_CELLS", 1, "" '                                                   no, report error to programmer
  1329.     END IF
  1330.     'IF NOT SL_sprite(handle).animation.cellfrom THEN '                                                  has animation been assigned to this sprite?
  1331.     IF SL_sprite(handle).animation.cellfrom < 1 THEN
  1332.         SL_error "SL_CHANGE_ANIMATION_CELLS", 15, "" '                                                  no, report error to programmer
  1333.     END IF
  1334.     IF NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellfrom) THEN '                                      no, is this a valid cell request?
  1335.         SL_error "SL_CHANGE_ANIMATION_CELLS", 13, "" '                                                  no, report error to rpogrammer
  1336.     END IF
  1337.     IF NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellto) THEN '                                        is this valid cell request?
  1338.         SL_error "SL_CHANGE_ANIMATION_CELLS", 13, "" '                                                  no, report error to programmer
  1339.     END IF
  1340.  
  1341.     IF (cellfrom = SL_sprite(handle).animation.cellfrom) AND (cellto = SL_sprite(handle).animation.cellto) THEN ' have the cells really been changed?
  1342.         EXIT SUB '                                                                                      no, leave subroutine, no need to continue
  1343.     END IF
  1344.  
  1345.     SL_sprite(handle).animation.cellfrom = cellfrom '                                                   set first cell in animation
  1346.     SL_sprite(handle).animation.cellto = cellto '                                                       set last cell in animation
  1347.     SL_sprite(handle).animation.cell = cellfrom '                                                       set current animation cell to first cell
  1348.     SL_sprite(handle).cell = cellfrom '                                                                 set current sprite cell to first cell
  1349.  
  1350.     IF SL_sprite(handle).animation.cellto < SL_sprite(handle).animation.cellfrom THEN '                 is cellto greater than cellfrom?
  1351.         SL_error "SL_CHANGE_ANIMATION_CELLS", 19, "" '                                                  no, report error to programmer
  1352.     END IF
  1353.  
  1355.  
  1356. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1357. SUB SL_CHANGE_ANIMATION_FRAMERATE (handle AS INTEGER, framerate AS INTEGER) '                                                                                             SL_CHANGE_ANIMATION_FRAMERATE
  1358.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1359.     ' declare global variables
  1360.  
  1361.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1362.     SHARED SL_global AS SL_GLOBAL '     common globals array
  1363.  
  1364.     ' perform error checks
  1365.  
  1366.     IF framerate < 1 OR framerate > SL_global.framerate THEN '                                          valid frame rate supplied?
  1367.         SL_error "SL_CHANGE_ANIMATION_FRAMERATE", 11, "" '                                              no, report error to programmer
  1368.     END IF
  1369.  
  1370.     SL_sprite(handle).animation.framerate = framerate '                                                 save sprite frame rate
  1371.     IF SL_global.framerate = framerate THEN '                                                           animation and global frame rates the same?
  1372.         SL_sprite(handle).animation.skip = 0 '                                                          yes, nothing needs to be done with frames
  1373.     ELSEIF framerate >= SL_global.framerate \ 2 THEN '                                                  no, sprite frame rate 1/2 or less of master frame rate?
  1374.         SL_sprite(handle).animation.skip = SL_global.framerate \ (SL_global.framerate - framerate) '    yes, calculate every frame to skip
  1375.     ELSE '                                                                                              no, sprite frame rate is greater than 1/2 of master frame rate
  1376.         SL_sprite(handle).animation.skip = SL_global.framerate \ framerate '                            calculate every frame to draw
  1377.     END IF
  1378.  
  1380.  
  1381. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1382. SUB SL_CHANGE_AUTOANIMATION (handle AS INTEGER, auto AS INTEGER) '                                                                                                              SL_CHANGE_AUTOANIMATION
  1383.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1384.  
  1385.     ' declare global variables
  1386.  
  1387.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1388.  
  1389.     ' perform error checks
  1390.  
  1391.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1392.         SL_error "SL_CHANGE_AUTOANIMATION", 1, "" '                                                     no, report error to programmer
  1393.     END IF
  1394.     IF auto < -1 OR auto > 0 THEN '                                                                     valid auto animation value?
  1395.         SL_error "SL_CHANGE_ANIMATION", 14, "" '                                                        no, report error to programmer
  1396.     END IF
  1397.  
  1398.     SL_sprite(handle).animation.auto = auto '                                     (SL_START & SL_STOP)  set auto-animation
  1399.  
  1401.  
  1402. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1403. SUB SL_SET_ANIMATION (handle AS INTEGER, cellfrom AS INTEGER, cellto AS INTEGER, mode AS INTEGER, framerate AS INTEGER, auto AS INTEGER) '                                             SL_SET_ANIMATION
  1404.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1405.  
  1406.     ' declare global variables
  1407.  
  1408.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1409.     SHARED SL_global AS SL_GLOBAL '     common globals array
  1410.  
  1411.     ' perform error checks
  1412.  
  1413.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1414.         SL_error "SL_SET_ANIMATION", 1, "" '                                                            no, report error to programmer
  1415.     END IF
  1416.     IF framerate < 1 OR framerate > SL_global.framerate THEN '                                          valid frame rate supplied?
  1417.         SL_error "SL_SET_ANIMATION", 11, "" '                                                           no, report error to programmer
  1418.     END IF
  1419.     IF mode < 0 OR mode > 2 THEN '                                                                      valid animation mode supplied?
  1420.         SL_error "SL_SET_ANIMATION", 12, "" '                                                           no, report error to programmer
  1421.     END IF
  1422.     IF cellfrom <> -1 THEN '                                                          (SL_CURRENTCELL)  is the current cell being requested for cellfrom?
  1423.         IF cellfrom < 1 OR (NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellfrom)) THEN '                no, is this a valid cell request? <----------------------------- line need modified?   LOOK
  1424.             SL_error "SL_SET_ANIMATION", 13, "" '                                                       no, report error to rpogrammer
  1425.         END IF
  1426.     END IF
  1427.     IF cellto < 1 OR (NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellto)) THEN '                        is this valid cell request?
  1428.         SL_error "SL_SET_ANIMATION", 13, "" '                                                           no, report error to programmer
  1429.     END IF
  1430.     IF auto < -1 OR auto > 0 THEN '                                                                     valid auto animation value?
  1431.         SL_error "SL_SET_ANIMATION", 14, "" '                                                           no, report error to programmer
  1432.     END IF
  1433.  
  1434.     IF cellfrom = -1 THEN '                                                           (SL_CURRENTCELL)  use current cell as start cell?
  1435.         SL_sprite(handle).animation.cellfrom = SL_sprite(handle).animation.cell '                       yes, set first cell as current cell
  1436.     ELSE '                                                                                              no
  1437.         SL_sprite(handle).animation.cell = cellfrom '                                                   set starting cell
  1438.         SL_sprite(handle).animation.cellfrom = cellfrom '                                               set first cell in animation
  1439.     END IF
  1440.     SL_sprite(handle).animation.cellto = cellto '                                                       set last cell in animation
  1441.  
  1442.     IF cellto <= cellfrom THEN '                                                                        is cellto greater than cellfrom?
  1443.         SL_error "SL_SET_ANIMATION", 19, "" '                                                           no, report error to programmer
  1444.     END IF
  1445.  
  1446.     SL_sprite(handle).animation.framerate = framerate '                                                 save sprite frame rate
  1447.     IF SL_global.framerate = framerate THEN '                                                           animation and global frame rates the same?
  1448.         SL_sprite(handle).animation.skip = 0 '                                                          yes, nothing needs to be done with frames
  1449.     ELSEIF framerate >= SL_global.framerate \ 2 THEN '                                                  no, sprite frame rate 1/2 or less of master frame rate?
  1450.         SL_sprite(handle).animation.skip = SL_global.framerate \ (SL_global.framerate - framerate) '    yes, calculate every frame to skip
  1451.     ELSE '                                                                                              no, sprite frame rate is greater than 1/2 of master frame rate
  1452.         SL_sprite(handle).animation.skip = SL_global.framerate \ framerate '                            calculate every frame to draw
  1453.     END IF
  1454.     SL_sprite(handle).animation.frame = 0 '                                                             reset skip frame counter
  1455.     SL_sprite(handle).animation.mode = mode '                (SL_FORWARD & SL_BACKWARD & SL_BACKFORTH)  set animation mode
  1456.     IF mode = 0 OR mode = 2 THEN '                                        (SL_FORWARD or SL_BACKFORTH)  forward or back and forth?
  1457.         SL_sprite(handle).animation.dir = 1 '                                                           yes, set animation direction forward
  1458.     ELSE '                                                                               (SL_BACKWARD)  no, backward
  1459.         SL_sprite(handle).animation.dir = -1 '                                                          set animation direction backward
  1460.     END IF
  1461.     SL_sprite(handle).animation.auto = auto '                                     (SL_START & SL_STOP)  set auto-animation
  1462.  
  1464.  
  1465. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1466. FUNCTION SL_GET_CELL (handle AS INTEGER) '                                                                                                                                                  SL_GET_CELL
  1467.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1468.  
  1469.     ' declare global variables
  1470.  
  1471.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1472.  
  1473.     ' perform error checks
  1474.  
  1475.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1476.         SL_error "SL_GET_CELL", 1, "" '                                                                 no, report error to programmer
  1477.     END IF
  1478.  
  1479.     SL_GET_CELL = SL_sprite(handle).cell '                                                              return current cell of this sprite
  1480.  
  1482.  
  1483. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1484. FUNCTION SL_GET_ANIMATION_CELL (handle AS INTEGER) '                                                                                                                              SL_GET_ANIMATION_CELL
  1485.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1486.  
  1487.     ' declare global variables
  1488.  
  1489.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1490.  
  1491.     ' perform error checks
  1492.  
  1493.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1494.         SL_error "SL_GET_CELL", 1, "" '                                                                 no, report error to programmer
  1495.     END IF
  1496.  
  1497.     SL_GET_ANIMATION_CELL = SL_sprite(handle).cell '                                                    return current animation cell of this sprite
  1498.  
  1500.  
  1501. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1502. SUB SL_SET_CELL (handle AS INTEGER, cell AS INTEGER) '                                                                                                                                      SL_SET_CELL
  1503.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1504.  
  1505.     ' declare global variables
  1506.  
  1507.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1508.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  1509.  
  1510.     ' perform error checks
  1511.  
  1512.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1513.         SL_error "SL_SET_CELL", 1, "" '                                                                 no, report error to programmer
  1514.     END IF
  1515.     IF NOT SL_VALID_CELL(SL_sprite(handle).sheet, cell) THEN '                                          valid cell requested?
  1516.         SL_error "SL_SET_CELL", 13, "" '                                                                no, report error to programmer
  1517.     END IF
  1518.  
  1519.     SL_sprite(handle).cell = cell '                                                                     set the sprite's new cell
  1520.  
  1522.  
  1523. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1524. FUNCTION SL_VALID_CELL (sheet AS INTEGER, cell AS INTEGER) '                                                                                                                              SL_VALID_CELL
  1525.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1526.  
  1527.     ' declare global variables
  1528.  
  1529.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
  1530.  
  1531.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
  1532.         SL_error "SL_VALID_CELL", 5, "" '                                                               no, report error to programmer
  1533.     END IF
  1534.  
  1535.     IF (cell < 1) OR (cell > UBOUND(SL_sheet, 2)) THEN '                                                is cell withing range of cells on sheet?
  1536.         SL_VALID_CELL = 0 '                                                                    (FALSE)  no, return false for invalid cell
  1537.     ELSE '                                                                                              yes, within total cells
  1538.         SL_VALID_CELL = -1 '                                                                    (TRUE)  return true for valid cell
  1539.     END IF
  1540.  
  1542.  
  1543. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1544. '                                                                       ----------==========                 ==========----------
  1545. '                                                                       ----------========== MOTION ROUTINES ==========----------
  1546. '                                                                       ----------==========                 ==========----------
  1547. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1548.  
  1549. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1550. SUB SL_REVERSE_MOTIONX (handle AS INTEGER) '                                                                                                                                         SL_REVERSE_MOTIONX
  1551.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1552.  
  1553.     ' declare global variables
  1554.  
  1555.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1556.  
  1557.     ' perform error checks
  1558.  
  1559.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1560.         SL_error "SL_REVERSE_MOTIONX", 1, "" '                                                          no, report error to programmer
  1561.     END IF
  1562.  
  1563.     SL_sprite(handle).x.dir = -SL_sprite(handle).x.dir '                                                reverse x motion direction
  1564.  
  1566.  
  1567. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1568. SUB SL_REVERSE_MOTIONY (handle AS INTEGER) '                                                                                                                                         SL_REVERSE_MOTIONY
  1569.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1570.  
  1571.     ' declare global variables
  1572.  
  1573.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1574.  
  1575.     ' perform error checks
  1576.  
  1577.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1578.         SL_error "SL_REVERSE_MOTIONY", 1, "" '                                                          no, report error to programmer
  1579.     END IF
  1580.  
  1581.     SL_sprite(handle).y.dir = -SL_sprite(handle).y.dir '                                                reverse y motion direction
  1582.  
  1584.  
  1585. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1586. FUNCTION SL_GET_MOTIONX (handle AS INTEGER) '                                                                                                                                            SL_GET_MOTIONX
  1587.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1588.  
  1589.     ' declare global variables
  1590.  
  1591.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1592.  
  1593.     ' perform error checks
  1594.  
  1595.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1596.         SL_error "SL_GET_MOTIONX", 1, "" '                                                              no, report error to programmer
  1597.     END IF
  1598.  
  1599.     SL_GET_MOTIONX = SL_sprite(handle).x.dir '                                                          return x motion direction
  1600.  
  1602.  
  1603. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1604. FUNCTION SL_GET_MOTIONY (handle AS INTEGER) '                                                                                                                                            SL_GET_MOTIONY
  1605.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1606.  
  1607.     ' declare global variables
  1608.  
  1609.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1610.  
  1611.     ' perform error checks
  1612.  
  1613.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1614.         SL_error "SL_GET_MOTIONY", 1, "" '                                                              no, report error to programmer
  1615.     END IF
  1616.  
  1617.     SL_GET_MOTIONY = SL_sprite(handle).y.dir '                                                          return y motion direction
  1618.  
  1620.  
  1621. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1622. SUB SL_SET_MOTIONX (handle AS INTEGER, xdir AS SINGLE) '                                                                                                                                 SL_SET_MOTIONX
  1623.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1624.     ' declare global variables
  1625.  
  1626.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1627.  
  1628.     ' perform error checks
  1629.  
  1630.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1631.         SL_error "SL_SET_MOTIONX", 1, "" '                                                              no, report error to programmer
  1632.     END IF
  1633.  
  1634.     SL_sprite(handle).x.dir = xdir '                                                                    set x motion direction
  1635.  
  1637.  
  1638. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1639. SUB SL_SET_MOTIONY (handle AS INTEGER, ydir AS SINGLE) '                                                                                                                                 SL_SET_MOTIONY
  1640.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1641.  
  1642.     ' declare global variables
  1643.  
  1644.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1645.  
  1646.     ' perform error checks
  1647.  
  1648.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1649.         SL_error "SL_SET_MOTIONY", 1, "" '                                                              no, report error to programmer
  1650.     END IF
  1651.  
  1652.     SL_sprite(handle).y.dir = ydir '                                                                    set y motion direction
  1653.  
  1655.  
  1656. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1657. SUB SL_UPDATE_MOTION (handle AS INTEGER) '                                                                                                                                             SL_UPDATE_MOTION
  1658.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1659.  
  1660.     ' declare global variables
  1661.  
  1662.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1663.  
  1664.     ' perform error checks
  1665.  
  1666.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1667.         SL_error "SL_UPDATE_MOTION", 1, "" '                                                            no, report error to programmer
  1668.     END IF
  1669.     IF SL_sprite(handle).motion.auto THEN '                                                             attempt to move sprite under automatic control?
  1670.         SL_error "SL_UPDATE_MOTION", 16, "" '                                                           yes, report error to programmer
  1671.     END IF
  1672.  
  1673.     SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '                     update x location
  1674.     SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '                     update y location
  1675.     SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                          update sprite location
  1676.  
  1678.  
  1679. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1680. SUB SL_SET_MOTION (handle AS INTEGER, degrees AS INTEGER, speed AS SINGLE, auto AS INTEGER) '                                                                                            SL_SET_MOTION
  1681.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1682.  
  1683.     ' declare global variables
  1684.  
  1685.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1686.  
  1687.     ' perform error checks
  1688.  
  1689.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1690.         SL_error "SL_SET_MOTION", 1, "" '                                                               no, report error to programmer
  1691.     END IF
  1692.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
  1693.         SL_error "SL_SET_MOTION", 7, "" '                                                               no, report error to programmer
  1694.     END IF
  1695.  
  1696.     SL_sprite(handle).motion.speed = speed '                                                            set motion speed of sprite
  1697.     SL_CHANGE_MOTION_DIRECTION handle, SL_FIX_DEGREES(degrees) '                                        set motion angle of sprite
  1698.     SL_sprite(handle).motion.auto = auto '                                        (SL_START & SL_STOP)  set auto-motion of sprite
  1699.  
  1701.  
  1702. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1703. SUB SL_CHANGE_MOTION_DIRECTION (handle AS INTEGER, degrees AS INTEGER) '                                                                                                     SL_CHANGE_MOTION_DIRECTION
  1704.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1705.  
  1706.     ' declare global variables
  1707.  
  1708.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1709.  
  1710.     ' delcare local variables
  1711.  
  1712.     DIM degree AS INTEGER '             degree angle passed in
  1713.  
  1714.     ' perform error checks
  1715.  
  1716.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1717.         SL_error "SL_CHANGE_MOTION_DIRECTION", 1, "" '                                                  no, report error to programmer
  1718.     END IF
  1719.  
  1720.     degree = SL_FIX_DEGREES(degrees) '                                                                  get degree angle passed in
  1721.     SL_sprite(handle).motion.angle = degree '                                                           set motion degree angle
  1722.     SL_sprite(handle).x.dir = SIN(degree * .017453292) * SL_sprite(handle).motion.speed '               calculate x vector
  1723.     SL_sprite(handle).y.dir = -COS(degree * .017453292) * SL_sprite(handle).motion.speed '              calculate y vector
  1724.  
  1726.  
  1727. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1728. FUNCTION SL_GET_MOTION_DIRECTION (handle AS INTEGER) '                                                                                                                          SL_GET_MOTION_DIRECTION
  1729.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1730.  
  1731.     ' declare global variables
  1732.  
  1733.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1734.  
  1735.     ' perform error checks
  1736.  
  1737.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1738.         SL_error "SL_GET_MOTION_DIRECTION", 1, "" '                                                     no, report error to programmer
  1739.     END IF
  1740.  
  1741.     SL_GET_MOTION_DIRECTION = SL_sprite(handle).motion.angle '                                          return direction sprite currently set to
  1742.  
  1744.  
  1745. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1746. SUB SL_CHANGE_MOTION_SPEED (handle AS INTEGER, speed AS SINGLE) '                                                                                                                SL_CHANGE_MOTION_SPEED
  1747.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1748.  
  1749.     ' declare global variables
  1750.  
  1751.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1752.  
  1753.     ' perform error checks
  1754.  
  1755.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1756.         SL_error "SL_CHANGE_MOTION_SPEED", 1, "" '                                                      no, report error to programmer
  1757.     END IF
  1758.  
  1759.     SL_sprite(handle).motion.speed = speed '                                                            set sprite motion speed
  1760.     SL_sprite(handle).x.dir = SIN(SL_sprite(handle).motion.angle * .017453292) * speed '                calculate x vector
  1761.     SL_sprite(handle).y.dir = -COS(SL_sprite(handle).motion.angle * .017453292) * speed '               calculate y vector
  1762.  
  1764.  
  1765. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1766. FUNCTION SL_GET_MOTION_SPEED (handle AS INTEGER) '                                                                                                                                  SL_GET_MOTION_SPEED
  1767.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1768.  
  1769.     ' declare global variables
  1770.  
  1771.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1772.  
  1773.     ' perform error checks
  1774.  
  1775.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1776.         SL_error "SL_GET_MOTION_SPEED", 1, "" '                                                         no, report error to programmer
  1777.     END IF
  1778.  
  1779.     SL_GET_MOTION_SPEED = SL_sprite(handle).motion.speed '                                              return current sprite motion speed
  1780.  
  1782.  
  1783. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1784. SUB SL_CHANGE_AUTOMOTION (handle AS INTEGER, auto AS INTEGER) '                                                                                                                    SL_CHANGE_AUTOMOTION
  1785.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1786.  
  1787.     ' declare global variables
  1788.  
  1789.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1790.  
  1791.     ' perform error checks
  1792.  
  1793.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1794.         SL_error "SL_CHANGE_AUTOMOTION", 1, "" '                                                        no, report error to programmer
  1795.     END IF
  1796.     IF auto = -32767 THEN '                                                                 (SL_RESET)  reset auto motion?
  1797.         SL_sprite(handle).motion.auto = 0 '                                                  (SL_STOP)  yes, turn auto motion off
  1798.     ELSEIF auto < -1 OR auto > 0 THEN '                                           (SL_START & SL_STOP)  valid on/off switch supplied?
  1799.         SL_error "SL_CHANGE_AUTOMOTION", 7, "" '                                                        no, report error to programmer
  1800.     ELSE '                                                                                              yes
  1801.         SL_sprite(handle).motion.auto = auto '                                          (TRUE & FALSE)  set auto motion status
  1802.     END IF
  1803.  
  1805.  
  1806. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1807. FUNCTION SL_GET_AUTOMOTION (handle AS INTEGER) '                                                                                                                                      SL_GET_AUTOMOTION
  1808.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1809.  
  1810.     ' declare global variables
  1811.  
  1812.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1813.  
  1814.     ' perform error checks
  1815.  
  1816.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1817.         SL_error "SL_GET_AUTOMOTION", 1, "" '                                                           no, report error to programmer
  1818.     END IF
  1819.  
  1820.     SL_GET_AUTOMOTION = SL_sprite(handle).motion.auto '                                 (TRUE & FALSE)  return auto motion status
  1821.  
  1823.  
  1824. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1825. '                                                                      ----------==========                   ==========----------
  1826. '                                                                      ----------========== ROTATION ROUTINES ==========----------
  1827. '                                                                      ----------==========                   ==========----------
  1828. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1829.  
  1830. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1831. SUB SL_UPDATE_ROTATION (handle AS INTEGER) '                                                                                                                                         SL_UPDATE_ROTATION
  1832.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1833.  
  1834.     ' declare global variables
  1835.  
  1836.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1837.  
  1838.     ' perform error checks
  1839.  
  1840.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1841.         SL_error "SL_UPDATE_ROTATION", 1, "" '                                                          no, report error to programmer
  1842.     END IF
  1843.     IF SL_sprite(handle).rotation.auto THEN '                                                           attempt to rotate sprite under automatic control?
  1844.         SL_error "SL_UPDATE_ROTATION", 17, "" '                                                         yes, report error to programmer
  1845.     END IF
  1846.  
  1847.     SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle + SL_sprite(handle).rotation.speed '      rotate sprite to next degree angle
  1848.  
  1850.  
  1851.  
  1852. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1853. SUB SL_SET_ROTATION (handle AS INTEGER, degrees AS INTEGER, speed AS INTEGER, auto AS INTEGER) '                                                                                        SL_SET_ROTATION
  1854.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1855.  
  1856.     ' declare global variables
  1857.  
  1858.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1859.  
  1860.     ' perform error checks
  1861.  
  1862.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1863.         SL_error "SL_SET_ROTATION", 1, "" '                                                             no, report error to programmer
  1864.     END IF
  1865.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
  1866.         SL_error "SL_SET_ROTATION", 8, "" '                                                             no, report error to programmer
  1867.     END IF
  1868.     IF ABS(degrees) > 359 THEN '                                                                        degree requested between -359 and 359?
  1869.         SL_error "SL_SET_ROTATION", 9, "" '                                                             no, report error to programmer
  1870.     END IF
  1871.  
  1872.     SL_sprite(handle).rotation.speed = speed '                                                          set rotation speed
  1873.     SL_ROTATE_SPRITE handle, degrees '                                                                  set start angle
  1874.     SL_sprite(handle).rotation.auto = auto '                                                            set auto-rotation
  1875.  
  1877.  
  1878. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1879. SUB SL_CHANGE_AUTOROTATION (handle AS INTEGER, auto AS INTEGER) '                                                                                                                SL_CHANGE_AUTOROTATION
  1880.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1881.  
  1882.     ' declare global variables
  1883.  
  1884.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1885.  
  1886.     ' perform error checks
  1887.  
  1888.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1889.         SL_error "SL_CHANGE_AUTOROTATION", 1, "" '                                                      no, report error to programmer
  1890.     END IF
  1891.     IF auto = -32767 THEN '                                                                 (SL_RESET)  reset auto rotate?
  1892.         SL_sprite(handle).rotation.auto = 0 '                                                  (FALSE)  yes, turn auto rotation off
  1893.     ELSEIF auto < -1 OR auto > 0 THEN '                                           (SL_START & SL_STOP)  valid on/off switch supplied?
  1894.         SL_error "SL_CHANGE_AUTOROTATION", 8, "" '                                                      no, report error to programmer
  1895.     ELSE '                                                                                              yes
  1896.         SL_sprite(handle).rotation.auto = auto '                                        (TRUE & FALSE)  set auto rotation status
  1897.     END IF
  1898.  
  1900.  
  1901. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1902. FUNCTION SL_GET_AUTOROTATION (handle AS INTEGER) '                                                                                                                                  SL_GET_AUTOROTATION
  1903.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1904.  
  1905.     ' declare global variables
  1906.  
  1907.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1908.  
  1909.     ' perform error checks
  1910.  
  1911.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1912.         SL_error "SL_GET_AUTOROTATION", 1, "" '                                                         no, report error to programmer
  1913.     END IF
  1914.  
  1915.     SL_GET_AUTOROTATION = SL_sprite(handle).rotation.auto '                             (TRUE & FALSE)  return auto rotation status
  1916.  
  1918.  
  1919. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1920. SUB SL_CHANGE_ROTATION_SPEED (handle AS INTEGER, degrees AS INTEGER) '                                                                                                         SL_CHANGE_ROTATION_SPEED
  1921.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1922.  
  1923.     ' declare global variables
  1924.  
  1925.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1926.  
  1927.     ' perform error checks
  1928.  
  1929.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1930.         SL_error "SL_CHANGE_ROTATION_SPEED", 1, "" '                                                    no, report error to programmer
  1931.     END IF
  1932.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset requested?
  1933.         SL_sprite(handle).rotation.speed = 0 '                                               (SL_STOP)  turn auto spin off
  1934.     ELSEIF ABS(degrees) > 359 THEN '                                                                    degree requested between -359 and 359?
  1935.         SL_error "SL_CHANGE_ROTATION_SPEED", 9, "" '                                                    no, report error to programmer
  1936.     ELSE '                                                                                              yes
  1937.         SL_sprite(handle).rotation.speed = degrees '                                                    set sprite spin rate
  1938.     END IF
  1939.  
  1941.  
  1942. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1943. FUNCTION SL_GET_ROTATION_SPEED (handle AS INTEGER) '                                                                                                                              SL_GET_ROTATION_SPEED
  1944.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1945.  
  1946.     ' declare global variables
  1947.  
  1948.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1949.  
  1950.     ' perform error checks
  1951.  
  1952.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1953.         SL_error "SL_GET_ROTATION_SPEED", 1, "" '                                                       no, report error to programmer
  1954.     END IF
  1955.  
  1956.     SL_GET_ROTATION_SPEED = SL_sprite(handle).rotation.speed '                                          return current sprite spin rate
  1957.  
  1959.  
  1960. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1961. SUB SL_ROTATE_SPRITE (handle AS INTEGER, degrees AS INTEGER) '                                                                                                                         SL_ROTATE_SPRITE
  1962.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1963.  
  1964.     ' declare global variables
  1965.  
  1966.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1967.  
  1968.     ' perform error checks
  1969.  
  1970.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1971.         SL_error "SL_ROTATE_SPRITE", 1, "" '                                                            no, report error to programmer
  1972.     END IF
  1973.  
  1974.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset sprite rotation?
  1975.         SL_sprite(handle).rotation.angle = 0 '                                                          reset rotation angle
  1976.     ELSE
  1977.         SL_sprite(handle).rotation.angle = SL_FIX_DEGREES(degrees) '                                    set degree of rotation
  1978.     END IF
  1979.  
  1981.  
  1982. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1983. FUNCTION SL_GET_ROTATION_ANGLE (handle AS INTEGER) '                                                                                                                              SL_GET_ROTATION_ANGLE
  1984.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1985.  
  1986.     ' declare global variables
  1987.  
  1988.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1989.  
  1990.     ' perform error checks
  1991.  
  1992.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1993.         SL_error "SL_GET_ROTATION_ANGLE", 1, "" '                                                       no, report error to programmer
  1994.     END IF
  1995.  
  1996.     SL_GET_ROTATION_ANGLE = SL_sprite(handle).rotation.angle '                                          return current angle of rotation
  1997.  
  1999.  
  2000. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2001. FUNCTION SL_FIX_DEGREES (degrees AS INTEGER) '                                                                                                                                           SL_FIX_DEGREES
  2002.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2003.  
  2004.     ' Credits: this function uses code contriibuted by codeguy
  2005.     '          https://www.qb64.org/forum/index.php?topic=537.15
  2006.  
  2007.     'declare local variables
  2008.  
  2009.     DIM degree AS INTEGER '             degree angle passed in
  2010.  
  2011.     ' set local variables
  2012.  
  2013.     degree = degrees MOD 360 '                                                                          get -359 to 359
  2014.     IF degree < 0 THEN '                                                                                need to make positive?
  2015.         SL_FIX_DEGREES = degree + 360 '                                                                 yes, correct value and return degree angle
  2016.     ELSE
  2017.         SL_FIX_DEGREES = degree '                                                                       no correction needed, return degree angle
  2018.     END IF
  2019.  
  2021.  
  2022.  
  2023. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2024. '                                                                      ----------==========                   ==========----------
  2025. '                                                                      ----------========== LOCATION ROUTINES ==========----------
  2026. '                                                                      ----------==========                   ==========----------
  2027. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2028.  
  2029.  
  2030. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2031. FUNCTION SL_GET_REALX (handle AS INTEGER) '                                                                                                                                                SL_GET_REALX
  2032.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2033.  
  2034.     ' declare global variables
  2035.  
  2036.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2037.  
  2038.     ' perform error checks
  2039.  
  2040.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2041.         SL_error "SL_GET_REALX", 1, "" '                                                                no, report error to programmer
  2042.     END IF
  2043.  
  2044.     SL_GET_REALX = SL_sprite(handle).x.real '                                                           return real number center point x
  2045.  
  2047.  
  2048. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2049. FUNCTION SL_GET_REALY (handle AS INTEGER) '                                                                                                                                                SL_GET_REALY
  2050.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2051.  
  2052.     ' declare global variables
  2053.  
  2054.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2055.  
  2056.     ' perform error checks
  2057.  
  2058.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2059.         SL_error "SL_GET_REALY", 1, "" '                                                                no, report error to programmer
  2060.     END IF
  2061.  
  2062.     SL_GET_REALY = SL_sprite(handle).y.real '                                                           return real number center point y
  2063.  
  2065.  
  2066. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2067. FUNCTION SL_GET_INTX (handle AS INTEGER) '                                                                                                                                                  SL_GET_INTX
  2068.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2069.  
  2070.     ' declare global variables
  2071.  
  2072.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2073.  
  2074.     ' perform error checks
  2075.  
  2076.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2077.         SL_error "SL_GET_INTX", 1, "" '                                                                 no, report error to programmer
  2078.     END IF
  2079.  
  2080.     SL_GET_INTX = SL_sprite(handle).x.int '                                                             return integer number center point x
  2081.  
  2083.  
  2084. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2085. FUNCTION SL_GET_INTY (handle AS INTEGER) '                                                                                                                                                  SL_GET_INTY
  2086.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2087.  
  2088.     ' declare global variables
  2089.  
  2090.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2091.  
  2092.     ' perform error checks
  2093.  
  2094.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2095.         SL_error "SL_GET_INTY", 1, "" '                                                                 no, report error to programmer
  2096.     END IF
  2097.  
  2098.     SL_GET_INTY = SL_sprite(handle).y.int '                                                             return integer number center point x
  2099.  
  2101.  
  2102. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2103. FUNCTION SL_GET_X1 (handle AS INTEGER) '                                                                                                                                                      SL_GET_X1
  2104.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2105.  
  2106.     ' declare global variables
  2107.  
  2108.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2109.  
  2110.     ' perform error checks
  2111.  
  2112.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2113.         SL_error "SL_GET_X1", 1, "" '                                                                   no, report error to programmer
  2114.     END IF
  2115.  
  2116.     SL_GET_X1 = SL_sprite(handle).x.actual '                                                            return integer number upper left point x
  2117.  
  2119.  
  2120. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2121. FUNCTION SL_GET_Y1 (handle AS INTEGER) '                                                                                                                                                      SL_GET_Y1
  2122.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2123.  
  2124.     ' declare global variables
  2125.  
  2126.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2127.  
  2128.     ' perform error checks
  2129.  
  2130.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2131.         SL_error "SL_GET_Y1", 1, "" '                                                                   no, report error to programmer
  2132.     END IF
  2133.  
  2134.     SL_GET_Y1 = SL_sprite(handle).y.actual '                                                            return integer number upper left point y
  2135.  
  2137.  
  2138. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2139. FUNCTION SL_GET_X2 (handle AS INTEGER) '                                                                                                                                                      SL_GET_X2
  2140.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2141.  
  2142.     ' declare global variables
  2143.  
  2144.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2145.  
  2146.     ' perform error checks
  2147.  
  2148.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2149.         SL_error "SL_GET_X2", 1, "" '                                                                   no, report error to programmer
  2150.     END IF
  2151.  
  2152.     SL_GET_X2 = SL_sprite(handle).x.actual + SL_sprite(handle).swidth '                                 return integer number lower right point x
  2153.  
  2155.  
  2156. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2157. FUNCTION SL_GET_Y2 (handle AS INTEGER) '                                                                                                                                                      SL_GET_Y2
  2158.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2159.  
  2160.     ' declare global variables
  2161.  
  2162.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2163.  
  2164.     ' perform error checks
  2165.  
  2166.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2167.         SL_error "SL_GET_Y2", 1, "" '                                                                   no, report error to programmer
  2168.     END IF
  2169.  
  2170.     SL_GET_Y2 = SL_sprite(handle).y.actual + SL_sprite(handle).sheight '                                return integer number lower right point y
  2171.  
  2173.  
  2174. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2175. FUNCTION SL_GET_WIDTH (handle AS INTEGER) '                                                                                                                                                SL_GET_WIDTH
  2176.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2177.  
  2178.     ' declare global variables
  2179.  
  2180.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2181.  
  2182.     ' perform error checks
  2183.  
  2184.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2185.         SL_error "SL_GET_WIDTH", 1, "" '                                                                no, report error to programmer
  2186.     END IF
  2187.  
  2188.     SL_GET_WIDTH = SL_sprite(handle).swidth '                                                           return width of sprite
  2189.  
  2191.  
  2192. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2193. FUNCTION SL_GET_HEIGHT (handle AS INTEGER) '                                                                                                                                              SL_GET_HEIGHT
  2194.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2195.  
  2196.     ' declare global variables
  2197.  
  2198.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2199.  
  2200.     ' perform error checks
  2201.  
  2202.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2203.         SL_error "SL_GET_HEIGHT", 1, "" '                                                               no, report error to programmer
  2204.     END IF
  2205.  
  2206.     SL_GET_HEIGHT = SL_sprite(handle).sheight '                                                         return height of sprite
  2207.  
  2209.  
  2210. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2211. FUNCTION SL_GET_DISTANCE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                   SL_GET_DISTANCE_POINT_TO_POINT
  2212.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2213.  
  2214.     'declare local variables
  2215.  
  2216.     DIM a AS INTEGER '                  side a of triangle
  2217.     DIM b AS INTEGER '                  side b of triangle
  2218.  
  2219.     'solve for c (hypotenuse)
  2220.  
  2221.     a = x1 - x2 '                                                                                       get length of side a
  2222.     b = y1 = y2 '                                                                                       get length of side b
  2223.  
  2224.     SL_GET_DISTANCE_POINT_TO_POINT = INT(SQR(a * a + b * b)) '                                          return length of side c
  2225.  
  2227.  
  2228. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2229. FUNCTION SL_GET_DISTANCE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                 SL_GET_DISTANCE_TO_SPRITE
  2230.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2231.  
  2232.     ' declare global variables
  2233.  
  2234.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2235.  
  2236.     'perform error checks
  2237.  
  2238.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
  2239.         SL_error "SL_GET_DISTANCE_TO_SPRITE", 1, "" '                                                   no, report error to programmer
  2240.     END IF
  2241.  
  2242.     SL_GET_DISTANCE_TO_SPRITE = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle1).x.int, SL_sprite(handle1).y.int, _
  2243.                                                                SL_sprite(handle2).x.int, SL_sprite(handle2).y.int) '  return distance to sprite 2
  2244.  
  2246.  
  2247. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2248. FUNCTION SL_GET_DISTANCE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                            SL_GET_DISTANCE_TO_POINT
  2249.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2250.  
  2251.     ' declare global variables
  2252.  
  2253.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2254.  
  2255.     'perform error checks
  2256.  
  2257.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2258.         SL_error "SL_GET_DISTANCE_TO_POINT", 1, "" '                                                    no, report error to programmer
  2259.     END IF
  2260.  
  2261.     SL_GET_DISTANCE_TO_POINT = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle).x.int, SL_sprite(handle).y.int, x, y) ' return distance to point
  2262.  
  2264.  
  2265. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2266. FUNCTION SL_GET_ANGLE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                         SL_GET_ANGLE_POINT_TO_POINT
  2267.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2268.  
  2269.     'declare local variables
  2270.  
  2271.     DIM angle AS INTEGER '              angle from first x,y location to second x,y location
  2272.  
  2273.     IF y1 = y2 THEN '                                                                                   both y values same?
  2274.         IF x1 = x2 THEN '                                                                               yes, both x values same?
  2275.             EXIT FUNCTION '                                                                             yes, there is no angle (0), leave
  2276.         END IF
  2277.         IF x2 > x1 THEN '                                                                               is second x to the right of first x?
  2278.             SL_GET_ANGLE_POINT_TO_POINT = 90 '                                                          yes, the angle must be 90 degrees
  2279.         ELSE '                                                                                          no, second x is to the left of first x
  2280.             SL_GET_ANGLE_POINT_TO_POINT = 270 '                                                         the angle must be 270 degrees
  2281.         END IF
  2282.         EXIT FUNCTION '                                                                                 leave function, angle computed
  2283.     END IF
  2284.     IF x1 = x2 THEN '                                                                                   both x values same?
  2285.         IF y2 > y1 THEN '                                                                               yes, is second y lower than first y?
  2286.             SL_GET_ANGLE_POINT_TO_POINT = 180 '                                                         yes, the angle must be 180
  2287.         END IF
  2288.         EXIT FUNCTION '                                                                                 leave function, angle computed (angle is 0 if no calculation done)
  2289.     END IF
  2290.     angle = ATN((x2 - x1) / (y2 - y1)) * -57.2957795131 '                                               calculate initial angle
  2291.     IF y2 < y1 THEN '                                                                                   is second y higher than first y?
  2292.         IF x2 > x1 THEN '                                                                               yes, is second x to right of first x?
  2293.             SL_GET_ANGLE_POINT_TO_POINT = angle '                                                       yes, angle needs no adjustment
  2294.         ELSE '                                                                                          no, second x is to left of first x
  2295.             SL_GET_ANGLE_POINT_TO_POINT = angle + 360 '                                                 adjust angle accordingly
  2296.         END IF
  2297.     ELSE '                                                                                              no, second y is lower than first y
  2298.         SL_GET_ANGLE_POINT_TO_POINT = angle + 180 '                                                     adjust angle accordingly
  2299.     END IF
  2300.  
  2302.  
  2303. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2304. FUNCTION SL_GET_ANGLE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                       SL_GET_ANGLE_TO_SPRITE
  2305.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2306.  
  2307.     ' declare global variables
  2308.  
  2309.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2310.  
  2311.     'perform error checks
  2312.  
  2313.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
  2314.         SL_error "SL_GET_ANGLE_TO_SPRITE", 1, "" '                                                      no, report error to programmer
  2315.     END IF
  2316.  
  2317.     SL_GET_ANGLE_TO_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle1).x.int, SL_sprite(handle1).y.int, _
  2318.                                                          SL_sprite(handle2).x.int, SL_sprite(handle2).y.int) ' return angle to sprite 2
  2319.  
  2321.  
  2322. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2323. FUNCTION SL_GET_ANGLE_FROM_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                   SL_GET_ANGLE_FROM_SPRITE
  2324.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2325.  
  2326.     ' declare global variables
  2327.  
  2328.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2329.  
  2330.     'perform error checks
  2331.  
  2332.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
  2333.         SL_error "SL_GET_ANGLE_FROM_SPRITE", 1, "" '                                                    no, report error to programmer
  2334.     END IF
  2335.  
  2336.     SL_GET_ANGLE_FROM_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle2).x.int, SL_sprite(handle2).y.int, _
  2337.                                                            SL_sprite(handle1).x.int, SL_sprite(handle1).y.int) '  return angle from sprite 2
  2338.  
  2340.  
  2341. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2342. FUNCTION SL_GET_ANGLE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                                  SL_GET_ANGLE_TO_POINT
  2343.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2344.  
  2345.     ' declare global variables
  2346.  
  2347.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2348.  
  2349.     'perform error checks
  2350.  
  2351.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2352.         SL_error "SL_GET_ANGLE_TO_POINT", 1, "" '                                                       no, report error to programmer
  2353.     END IF
  2354.  
  2355.     SL_GET_ANGLE_TO_POINT = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle).x.int, SL_sprite(handle).y.int, x, y) ' return angle to point x,y
  2356.  
  2358.  
  2359. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2360. FUNCTION SL_GET_ANGLE_FROM_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                              SL_GET_ANGLE_FROM_POINT
  2361.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2362.  
  2363.     ' declare global variables
  2364.  
  2365.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2366.  
  2367.     'perform error checks
  2368.  
  2369.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2370.         SL_error "SL_GET_ANGLE_FROM_POINT", 1, "" '                                                     no, report error to programmer
  2371.     END IF
  2372.  
  2373.     SL_GET_ANGLE_FROM_POINT = SL_GET_ANGLE_POINT_TO_POINT(x, y, SL_sprite(handle).x.int, SL_sprite(handle).y.int) 'return angle from point x,y
  2374.  
  2376.  
  2377. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2378. '                                                                       ----------==========                 ==========----------
  2379. '                                                                       ----------========== SPRITE ROUTINES ==========----------
  2380. '                                                                       ----------==========                 ==========----------
  2381. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2382.  
  2383. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2384. SUB SL_SET_SPRITE_VISIBLE (handle AS INTEGER, visible AS INTEGER) '                                                                                                               SL_SET_SPRITE_VISIBLE
  2385.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2386.  
  2387.     ' declare global variables
  2388.  
  2389.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2390.  
  2391.     ' perform error checks
  2392.  
  2393.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2394.         SL_error "SL_SET_SPRITE_VISIBLE", 1, "" '                                                       no, report error to programmer
  2395.     END IF
  2396.     IF (visible < -1) OR (visible > 0) THEN '                                      (SL_SHOW & SL_HIDE)  valid visible behavior requested?
  2397.         SL_error "SL_SET_SPRITE_VISIBLE", 20, "" '                                                      no, report error to programmer
  2398.     END IF
  2399.  
  2400.     SL_sprite(handle).visible = visible '                                          (SL_SHOW & SL_HIDE)  set visible mode
  2401.  
  2403.  
  2404. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2405. FUNCTION SL_COPY_SPRITE (handle AS INTEGER) '                                                                                                                                            SL_COPY_SPRITE
  2406.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2407.  
  2408.     ' declare global variables
  2409.  
  2410.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2411.  
  2412.     ' declare local variables
  2413.  
  2414.     DIM newhandle AS INTEGER '          handle of copied sprite
  2415.  
  2416.     ' perform error checks
  2417.  
  2418.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2419.         SL_error "SL_COPY_SPRITE", 1, "" '                                                              no, report error to programmer
  2420.     END IF
  2421.  
  2422.     newhandle = 0 '                                                                                     initialize new handle counter
  2423.  
  2424.     ' increase sprite array's size if needed
  2425.  
  2426.     DO '                                                                                                look for next available handle
  2427.         newhandle = newhandle + 1 '                                                                     increment to next handle value
  2428.     LOOP UNTIL (NOT SL_sprite(newhandle).inuse) OR newhandle = UBOUND(SL_sprite) '                      stop looking when valid handle found
  2429.     IF SL_sprite(newhandle).inuse THEN '                                                                is the last array element in use?
  2430.         newhandle = newhandle + 1 '                                                                     yes, increment to next handle value
  2431.         REDIM _PRESERVE SL_sprite(newhandle) AS SL_SPRITE '                                             increase the size of the sprite array
  2432.     END IF
  2433.  
  2434.     ' copy new sprite
  2435.  
  2436.     SL_sprite(newhandle) = SL_sprite(handle) '                                                          copy entire sprite contents
  2437.     SL_sprite(newhandle).gfx.hardware = _COPYIMAGE(SL_sprite(handle).gfx.hardware, 33) '                create an actual copy of the hardware sprite
  2438.     SL_sprite(newhandle).gfx.software = _COPYIMAGE(SL_sprite(handle).gfx.software, 32) '                create an actual copy of the software image
  2439.     IF SL_sprite(handle).gfx.mask THEN '                                                                does the original contain a mask image?
  2440.         SL_sprite(newhandle).gfx.mask = _COPYIMAGE(SL_sprite(handle).gfx.mask, 32) '                    yes, create an actual copy of the software mask image
  2441.     END IF
  2442.  
  2443.     SL_COPY_SPRITE = newhandle '                                                                        return new sprite's handle pointer
  2444.  
  2446.  
  2447. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2448. SUB SL_STAMP_SPRITE (layer AS INTEGER, x AS INTEGER, y AS INTEGER, sheet AS INTEGER, cell AS INTEGER, degrees AS INTEGER, flip AS INTEGER, zoom AS INTEGER) '                           SL_STAMP_SPRITE
  2449.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2450.  
  2451.     ' declare global variables
  2452.  
  2453.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  2454.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2455.  
  2456.     ' declare local variables
  2457.  
  2458.     DIM tempsprite AS LONG '            temporary sprite to stamp
  2459.  
  2460.     ' perform error checks
  2461.  
  2462.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
  2463.         SL_error "SL_STAMP_SPRITE", 5, "" '                                                             no, report error to programmer
  2464.     END IF
  2465.     IF NOT SL_VALID_CELL(sheet, cell) THEN '                                                            valid cell?
  2466.         SL_error "SL_STAMP_SPRITE", 13, "" '                                                            no, report error to programmer
  2467.     END IF
  2468.     IF flip < 0 OR flip > 3 THEN '                                                                      valid flip behavior requested?
  2469.         SL_error "SL_STAMP_SPRITE", 3, "" '                                                             no, report error to programmer
  2470.     END IF
  2471.     IF zoom < 1 THEN '                                                                                  valid zoom level requested?
  2472.         SL_error "SL_STAMP_SPRITE", 4, "" '                                                             no, report error to programmer
  2473.     END IF
  2474.     IF NOT SL_VALID_LAYER(layer) THEN '                                                                 valid layer?
  2475.         SL_error "SL_STAMP_SPRITE", 25, "" '                                                            no, report error to programmer
  2476.     END IF
  2477.  
  2478.  
  2479.     ' NEED TO STAMP ON CORRECT LAYER <---------------------------------------------------------------------------------------------------------------------------------------- LOOK
  2480.  
  2481.     ' this whole routine need to be looked at - how to place image of sprite on layer
  2482.  
  2483.     tempsprite = SL_NEW_SPRITE(1, sheet, cell) '                                              create new temporary software sprite
  2484.     SL_sprite(tempsprite).rotation.angle = SL_FIX_DEGREES(degrees) '                                    set angle of rotation
  2485.     SL_sprite(tempsprite).flip = flip '                                                                 set flipping behavior
  2486.     SL_sprite(tempsprite).zoom = zoom '                                                                 set zoom level
  2487.     SL_PUT_SPRITE x, y, tempsprite '                                                                    place sprite on current destination
  2488.     SL_FREE_SPRITE tempsprite '                                                                         temporary sprite no longer needed
  2489.  
  2491.  
  2492. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2493. SUB SL_SET_ZOOM (handle AS INTEGER, zoom AS INTEGER) '                                                                                                                                      SL_SET_ZOOM
  2494.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2495.  
  2496.     ' declare global variables
  2497.  
  2498.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2499.  
  2500.     ' perform error checks
  2501.  
  2502.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2503.         SL_error "SL_SET_ZOOM", 1, "" '                                                                 no, report error to programmer
  2504.     END IF
  2505.     IF zoom = -32767 THEN '                                                                 (SL_RESET)  reset zoom level?
  2506.         SL_sprite(handle).zoom = 100 '                                                                  yes, reset level to normal
  2507.     ELSEIF zoom < 1 THEN '                                                                              valid zoom level requested?
  2508.         SL_error "SL_SET_ZOOM", 4, "" '                                                                 no, report error to programmer
  2509.     ELSE '                                                                                              yes
  2510.         SL_sprite(handle).zoom = zoom '                                                                 set zoom level
  2511.     END IF
  2512.  
  2514.  
  2515. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2516. SUB SL_FLIP_SPRITE (handle AS INTEGER, flip AS INTEGER) '                                                                                                                                SL_FLIP_SPRITE
  2517.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2518.  
  2519.     ' declare global variables
  2520.  
  2521.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2522.  
  2523.     ' perform error checks
  2524.  
  2525.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2526.         SL_error "SL_FLIP_SPRITE", 1, "" '                                                              no, report error to programmer
  2527.     END IF
  2528.     IF flip = -32767 THEN '                                                                 (SL_RESET)  reset flipping behavior?
  2529.         SL_sprite(handle).flip = 0 '                                                       (SL_NOFLIP)  yes, reset flip value
  2530.     ELSEIF flip < 0 OR flip > 3 THEN '                                                                  valid flip behavior requested?
  2531.         SL_error "SL_FLIP_SPRITE", 3, "" '                                                              no, report error to programmer
  2532.     ELSE '                                                                                              yes
  2533.         SL_sprite(handle).flip = flip '           (SL_NOFLIP, SL_HORIZONTAL, SL_VERTICAL, SL_FLIPBOTH)  set flipping behavior
  2534.     END IF
  2535.  
  2537.  
  2538. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2539. SUB SL_PUT_SPRITE (handle AS INTEGER, x AS SINGLE, y AS SINGLE) '                                                                                                                         SL_PUT_SPRITE
  2540.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2541.  
  2542.     ' declare global variables
  2543.  
  2544.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2545.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  2546.     SHARED SL_angle() AS SL_ANGLE '     master rotation array
  2547.  
  2548.     ' update location and collision box information
  2549.  
  2550.     SL_sprite(handle).x.real = x '                                                            (SINGLE)  save requested x center location
  2551.     SL_sprite(handle).y.real = y '                                                            (SINGLE)  save requested y center location
  2552.     SL_sprite(handle).x.int = INT(x) '                                                       (INTEGER)  save screen x center location
  2553.     SL_sprite(handle).y.int = INT(y) '                                                       (INTEGER)  save screen y center location
  2554.     SL_sprite(handle).x.actual = SL_sprite(handle).x.int - SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).swidth \ 2 '  (INTEGER)  save actual screen x location
  2555.     SL_sprite(handle).y.actual = SL_sprite(handle).y.int - SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).sheight \ 2 ' (INTEGER)  save actual screen y location
  2556.     SL_sprite(handle).collision.x1 = SL_sprite(handle).x.actual + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).x1 * SL_sprite(handle).zoom / 100 ' upper left x
  2557.     SL_sprite(handle).collision.x2 = SL_sprite(handle).x.actual + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).x2 * SL_sprite(handle).zoom / 100 ' lower right x
  2558.     SL_sprite(handle).collision.y1 = SL_sprite(handle).y.actual + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).y1 * SL_sprite(handle).zoom / 100 ' upper left y
  2559.     SL_sprite(handle).collision.y2 = SL_sprite(handle).y.actual + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).y2 * SL_sprite(handle).zoom / 100 ' lower right y
  2560.     SL_sprite(handle).collision.radius = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).radius * SL_sprite(handle).zoom / 100 '                      collision radius
  2561.     SL_sprite(handle).collision.cwidth = SL_sprite(handle).collision.x2 - SL_sprite(handle).collision.x1 '  collision box width
  2562.     SL_sprite(handle).collision.cheight = SL_sprite(handle).collision.y2 - SL_sprite(handle).collision.y1 ' collision box height
  2563.  
  2565.  
  2566. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2567. SUB SL_draw_sprites () '                                                                                                                                                                SL_draw_sprites
  2568.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2569.  
  2570.     ' declare global variables
  2571.  
  2572.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2573.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  2574.     SHARED SL_angle() AS SL_ANGLE '     master rotation array
  2575.     SHARED SL_layer() AS SL_LAYERS '    master layers array
  2576.     SHARED SL_global AS SL_GLOBAL '     master globals
  2577.  
  2578.     ' declare local variables
  2579.  
  2580.     DIM xa AS INTEGER '                 actual x location of sprite on screen
  2581.     DIM ya AS INTEGER '                 actual y location of sprite on screen
  2582.     DIM sw AS INTEGER '                 width of sprite to be drawn
  2583.     DIM sh AS INTEGER '                 height of sprite to be drawn
  2584.     DIM rw AS INTEGER '                 precalculated rotated sprite width
  2585.     DIM rh AS INTEGER '                 precalculated rotated sprite height
  2586.     DIM px0 AS INTEGER '                precalculated triangular coordinates
  2587.     DIM px1 AS INTEGER
  2588.     DIM px2 AS INTEGER
  2589.     DIM px3 AS INTEGER
  2590.     DIM py0 AS INTEGER
  2591.     DIM py1 AS INTEGER
  2592.     DIM py2 AS INTEGER
  2593.     DIM py3 AS INTEGER
  2594.     DIM software AS LONG '              software sprite image
  2595.     DIM mask AS LONG '                  software sprite mask image
  2596.     DIM handle AS INTEGER '             sprite handle counter
  2597.     DIM nextcell AS INTEGER '           -1 (TRUE) if going to next cell in animation
  2598.     DIM sprite AS LONG '                hardware sprite image
  2599.     DIM odest AS LONG '                 original destination layer
  2600.     DIM zoomfactor AS SINGLE '          zoom multiplication factor
  2601.  
  2602.     'local variable setup
  2603.  
  2604.     odest = _DEST '                                                                                     save original destination
  2605.     handle = 0 '                                                                                        reset handle counter
  2606.  
  2607.     DO '                                                                                                cycle through sprite array
  2608.         handle = handle + 1 '                                                                           increment handle counter
  2609.         IF SL_sprite(handle).inuse THEN '                                                               is this sprite in use?
  2610.  
  2611.             ' updates sprites with auto motion, rotation, and animation features
  2612.  
  2613.             IF (SL_sprite(handle).motion.auto OR SL_sprite(handle).rotation.auto OR SL_sprite(handle).animation.auto) THEN ' yes, is this sprite being used and automagically controlled?
  2614.  
  2615.                 ' auto motion
  2616.  
  2617.                 IF SL_sprite(handle).motion.auto THEN '                                                 yes, is auto motion enabled?
  2618.                     SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '     yes, update x location
  2619.                     SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '     update y location
  2620.                     SL_sprite(handle).x.int = INT(SL_sprite(handle).x.real) '                           update x screen location
  2621.                     SL_sprite(handle).y.int = INT(SL_sprite(handle).y.real) '                           update y screen location
  2622.                 END IF
  2623.  
  2624.                 ' auto animation
  2625.  
  2626.                 IF SL_sprite(handle).animation.auto THEN '                                              is auto animation enabled?
  2627.                     IF SL_sprite(handle).animation.skip = 0 THEN '                                      yes, always go to next cell?
  2628.                         nextcell = -1 '                                                         (TRUE)  yes, draw next cell
  2629.                     ELSE '                                                                              no
  2630.  
  2631.                         ' decide to draw or skip next cell
  2632.  
  2633.                         SL_sprite(handle).animation.frame = SL_sprite(handle).animation.frame + 1 '     increment frame counter
  2634.                         IF SL_sprite(handle).animation.skip <= SL_sprite(handle).animation.frame THEN ' time to skip or go to next cell?
  2635.                             SL_sprite(handle).animation.frame = 0 '                                     yes, reset the frame counter
  2636.                             IF SL_sprite(handle).animation.framerate >= SL_global.framerate \ 2 THEN '  should this cell be skipped?
  2637.                                 nextcell = 0 '                                                 (FALSE)  yes, skip next cell
  2638.                             ELSE '                                                                      no
  2639.                                 nextcell = -1 '                                                 (TRUE)  go to next cell
  2640.                             END IF
  2641.                         ELSEIF SL_sprite(handle).animation.framerate >= SL_global.framerate \ 2 THEN '  no, is sprite frame rate equal or greater than half global frame rate?
  2642.                             nextcell = -1 '                                                             yes, go to next cell
  2643.                         END IF
  2644.                     END IF
  2645.  
  2646.                     ' draw next cell
  2647.  
  2648.                     IF nextcell THEN '                                                                  update animation cell?
  2649.                         SELECT CASE SL_sprite(handle).animation.mode '                                  which animation mode is this sprite using?
  2650.                             CASE 0 '                                                      (SL_FORWARD)  move forward through the cells
  2651.                                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + 1 ' increment animation cell
  2652.                                 IF SL_sprite(handle).animation.cell > SL_sprite(handle).animation.cellto THEN ' passed the last cell?
  2653.                                     SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom ' yes, go back to first cell
  2654.                                 END IF
  2655.                             CASE 1 '                                                     (SL_BACKWARD)  move backward through the cells
  2656.                                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell - 1 ' decrement animation cell
  2657.                                 IF SL_sprite(handle).animation.cell < SL_sprite(handle).animation.cellfrom THEN ' passed the first cell?
  2658.                                     SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto ' yes, go back to last cell
  2659.                                 END IF
  2660.                             CASE 2 '                                                    (SL_BACKFORTH)  ping-pong back and forth through the cells
  2661.                                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + SL_sprite(handle).animation.dir ' increment/decrement animation cell
  2662.                                 IF SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto OR _
  2663.                                     SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom THEN ' is this the first or last cell?
  2664.                                     SL_sprite(handle).animation.dir = -SL_sprite(handle).animation.dir 'yes, reverse animation direction
  2665.                                 END IF
  2666.                         END SELECT
  2667.                         SL_sprite(handle).cell = SL_sprite(handle).animation.cell '                     update current sprite cell
  2668.                     END IF
  2669.                 END IF
  2670.  
  2671.                 ' auto rotation
  2672.  
  2673.                 IF SL_sprite(handle).rotation.auto THEN '                                               is auto rotation enabled?
  2674.                     SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle + SL_sprite(handle).rotation.speed ' yes, rotate sprite to next degree angle
  2675.                 END IF
  2676.             END IF
  2677.  
  2678.             software = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).software '             get image handle from sprite sheet
  2679.             mask = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).mask '                     get mask handle from sprite sheet
  2680.             sw = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).swidth '                     get default sprite width from sprite sheet
  2681.             sh = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).sheight '                    get default sprite height from sprite sheet
  2682.  
  2683.             ' free previous images
  2684.  
  2685.             _FREEIMAGE SL_sprite(handle).gfx.hardware '                                                 free previous hardware sprite image
  2686.             _FREEIMAGE SL_sprite(handle).gfx.software '                                                 free previous software sprite image <----------------------------------- NEED?????    LOOK
  2687.  
  2688.             'adjust sprite rotation if needed
  2689.  
  2690.             IF SL_sprite(handle).rotation.angle THEN '                                                  rotate sprite?
  2691.                 px0 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).px0 ' yes, get precalculated triangular coordinates
  2692.                 px1 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).px1
  2693.                 px2 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).px2
  2694.                 px3 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).px3
  2695.                 py0 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).py0
  2696.                 py1 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).py1
  2697.                 py2 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).py2
  2698.                 py3 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).py3
  2699.                 rw = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).rwidth ' get precalculated rotated sprite width
  2700.                 rh = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).rheight 'get precalculated rotated sprite height
  2701.                 SL_sprite(handle).gfx.software = _NEWIMAGE(rw, rh, 32) '                                create image using precalculated width/height
  2702.                 _MAPTRIANGLE (0, 0)-(0, sh - 1)-(sw - 1, sh - 1), software TO(px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).gfx.software ' map rotated sprite onto image
  2703.                 _MAPTRIANGLE (0, 0)-(sw - 1, 0)-(sw - 1, sh - 1), software TO(px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).gfx.software
  2704.                 IF SL_sprite(handle).transparency THEN '                                                does this sprite have a mask?
  2705.                     SL_sprite(handle).gfx.mask = _NEWIMAGE(rw, rh, 32) '                                yes, create mask image
  2706.                     _MAPTRIANGLE (0, 0)-(0, sh - 1)-(sw - 1, sh - 1), mask TO(px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).gfx.mask ' map rotated mask onto image
  2707.                     _MAPTRIANGLE (0, 0)-(sw - 1, 0)-(sw - 1, sh - 1), mask TO(px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).gfx.mask
  2708.                 END IF
  2709.                 sw = rw '                                                                               save new sprite width
  2710.                 sh = rh '                                                                               save new sprite height
  2711.             ELSE '                                                                                      no rotation needed
  2712.                 SL_sprite(handle).gfx.software = _COPYIMAGE(software, 32) '                             copy software image from sprite sheet
  2713.                 IF SL_sprite(handle).transparency THEN '                                                does this sprite have a mask?
  2714.                     SL_sprite(handle).gfx.mask = _COPYIMAGE(mask, 32) '                                 yes, copy software mask from sprite sheet
  2715.                 END IF
  2716.             END IF
  2717.  
  2718.             'update hardware image
  2719.  
  2720.             SL_sprite(handle).gfx.hardware = _COPYIMAGE(SL_sprite(handle).gfx.software, 33) '           create new hardware sprite of image
  2721.  
  2722.             'adjust zoom level if needed
  2723.  
  2724.             IF SL_sprite(handle).zoom <> 100 THEN '                                                     zoom sprite in/out?
  2725.                 zoomfactor = SL_sprite(handle).zoom / 100 '                                             yes, calculate zoom value
  2726.                 sw = sw * zoomfactor '                                                                  yes, calculate new zoom width
  2727.                 sh = sh * zoomfactor '                                                                  calculate new zoom height
  2728.             ELSE '                                                                                      no zoom required
  2729.                 zoomfactor = 1 '                                                                        keep one to one zoom factor
  2730.             END IF
  2731.  
  2732.             'calculate actual sprite screen coordinates
  2733.  
  2734.             xa = SL_sprite(handle).x.int - sw \ 2 '                                                     calculate actual screen x location from center
  2735.             ya = SL_sprite(handle).y.int - sh \ 2 '                                                     calculate actual screen y location from center
  2736.             SL_sprite(handle).x.actual = xa '                                                (INTEGER)  save actual screen x location
  2737.             SL_sprite(handle).y.actual = ya '                                                (INTEGER)  save actual screen y location
  2738.  
  2739.             ' update collision box location and dimensions based on actual x,y location, radius, and zoom factor
  2740.  
  2741.             SL_sprite(handle).collision.x1 = xa + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).x1 * zoomfactor '    upper left x
  2742.             SL_sprite(handle).collision.x2 = xa + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).x2 * zoomfactor '    lower right x
  2743.             SL_sprite(handle).collision.y1 = ya + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).y1 * zoomfactor '    upper left y
  2744.             SL_sprite(handle).collision.y2 = ya + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).y2 * zoomfactor '    lower right y
  2745.             SL_sprite(handle).collision.radius = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).radius * zoomfactor ' collision radius
  2746.             SL_sprite(handle).collision.cwidth = SL_sprite(handle).collision.x2 - SL_sprite(handle).collision.x1 '                                                 collision box width
  2747.             SL_sprite(handle).collision.cheight = SL_sprite(handle).collision.y2 - SL_sprite(handle).collision.y1 '                                                collision box height
  2748.  
  2749.  
  2750.             SL_sprite(handle).swidth = sw
  2751.             SL_sprite(handle).sheight = sh
  2752.  
  2753.  
  2754.             _DEST SL_global.screen '                                                                    set main screen as destination
  2755.  
  2756.             ' place sprite on the current destination with desired flip method
  2757.  
  2758.             IF SL_sprite(handle).visible THEN '                                    (SL_SHOW & SL_HIDE)  show this sprite?
  2759.                 SELECT CASE SL_sprite(handle).flip '                                                    yes, which flipping style is selected?
  2760.                     CASE 0 '                                                               (SL_NOFLIP)  normal, no flipping
  2761.                         _PUTIMAGE (xa, ya)-(xa + sw - 1, ya + sh - 1), SL_sprite(handle).gfx.hardware ' draw normal sprite
  2762.                     CASE 1 '                                                           (SL_HORIZONTAL)  flip horizontally
  2763.                         _PUTIMAGE (xa + sw - 1, ya)-(xa, ya + sh - 1), SL_sprite(handle).gfx.hardware ' draw horizontally flipped sprite
  2764.                     CASE 2 '                                                             (SL_VERTICAL)  flip vertically
  2765.                         _PUTIMAGE (xa, ya + sh - 1)-(xa + sw - 1, ya), SL_sprite(handle).gfx.hardware ' draw vertically flipped sprite
  2766.                     CASE 3 '                                                             (SL_FLIPBOTH)  flip vertically and horizontally
  2767.                         _PUTIMAGE (xa + sw - 1, ya + sh - 1)-(xa, ya), SL_sprite(handle).gfx.hardware ' draw horizontally and vertically flipped sprite
  2768.                 END SELECT
  2769.             END IF
  2770.         END IF
  2771.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when entire array checked
  2772.     _DEST odest '                                                                                       restore original destination
  2773.  
  2775.  
  2776. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2777. FUNCTION SL_NEW_SPRITE (layer AS INTEGER, sheet AS INTEGER, cell AS INTEGER) '                                                                                                            SL_NEW_SPRITE
  2778.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2779.  
  2780.     ' declare global variables
  2781.  
  2782.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  2783.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2784.     SHARED SL_angle() AS SL_ANGLE '     master rotation array
  2785.  
  2786.     ' declare local variables
  2787.  
  2788.     DIM handle AS INTEGER '             handle (pointer) number of new sprite
  2789.  
  2790.     ' perform error checks
  2791.  
  2792.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sprite sheet?
  2793.         SL_error "SL_NEW_SPRITE", 5, "" '                                                               no, report error to programmer
  2794.     END IF
  2795.     IF NOT SL_VALID_CELL(sheet, cell) THEN '                                                            valid cell?
  2796.         SL_error "SL_NEW_SPRITE", 13, "" '                                                              no, report error to programmer
  2797.     END IF
  2798.  
  2799.     ' local variable setup
  2800.  
  2801.     handle = 0 '                                                                                        initialize handle value
  2802.  
  2803.     ' increase sprite array's size if needed
  2804.  
  2805.     DO '                                                                                                look for next available handle
  2806.         handle = handle + 1 '                                                                           increment to next handle value
  2807.     LOOP UNTIL (NOT SL_sprite(handle).inuse) OR handle = UBOUND(SL_sprite) '                            stop looking when valid handle found
  2808.     IF SL_sprite(handle).inuse THEN '                                                                   is the last array element in use?
  2809.         handle = handle + 1 '                                                                           yes, increment to next handle value
  2810.         REDIM _PRESERVE SL_sprite(handle) AS SL_SPRITE '                                                increase the size of the sprite array
  2811.     END IF
  2812.  
  2813.     ' populate sprite array, general settings
  2814.  
  2815.     SL_sprite(handle).inuse = -1 '                                                              (TRUE)  mark array index as in use
  2816.     SL_sprite(handle).sheet = sheet '                                                                   point to sheet where sprite resides
  2817.     SL_sprite(handle).cell = cell '                                                                     cell sprite is located in on sheet
  2818.     SL_sprite(handle).swidth = SL_sheet(sheet, cell).swidth '                                           get width of sprite
  2819.     SL_sprite(handle).sheight = SL_sheet(sheet, cell).sheight '                                         get height of sprite
  2820.     SL_sprite(handle).flip = 0 '                                                                        no sprite flipping
  2821.     SL_sprite(handle).zoom = 100 '                                                                      zoom normal at 100%
  2822.     SL_sprite(handle).score = 0 '                                                                       no point score
  2823.     SL_sprite(handle).visible = -1 '                                                            (TRUE)  sprite visible on screen
  2824.     SL_sprite(handle).layer = layer
  2825.  
  2826.     ' mouse settings
  2827.  
  2828.     SL_sprite(handle).mouse.event = 0 '(SL_NOMOUSE, SL_HOVER, SL_LEFTCLICK, SL_RIGHTCLICK, SL_CENTERCLICK) reset mouse interaction
  2829.     SL_sprite(handle).mouse.x = 0 '                                                                     reset mouse pointer locations
  2830.     SL_sprite(handle).mouse.y = 0
  2831.     SL_sprite(handle).mouse.xa = 0
  2832.     SL_sprite(handle).mouse.ya = 0
  2833.  
  2834.     ' collision settings
  2835.  
  2836.     SL_sprite(handle).collision.detect = 0 '                                                            reset collision detection method selected
  2837.     SL_sprite(handle).collision.box = 0 '                                                      (FALSE)  reset box collision detected
  2838.     SL_sprite(handle).collision.round = 0 '                                                    (FALSE)  reset round collision detected
  2839.     SL_sprite(handle).collision.pixel = 0 '                                                    (FALSE)  reset pixel perfect collision detected
  2840.     SL_sprite(handle).collision.with = 0 '                                                              reset collision detected
  2841.     SL_sprite(handle).collision.xpoint = 0 '                                                            reset collision x point
  2842.     SL_sprite(handle).collision.ypoint = 0 '                                                            reset collision y point
  2843.     SL_sprite(handle).collision.radius = 0 '                              set collision information
  2844.     SL_sprite(handle).collision.x1 = 0
  2845.     SL_sprite(handle).collision.y1 = 0
  2846.     SL_sprite(handle).collision.x2 = 0
  2847.     SL_sprite(handle).collision.y2 = 0
  2848.     SL_sprite(handle).collision.cwidth = 0
  2849.     SL_sprite(handle).collision.cheight = 0
  2850.  
  2851.  
  2852.  
  2853.     'SL_sprite(handle).collision.radius = SL_angle(sheet, cell, 0).radius '                              set collision information
  2854.     'SL_sprite(handle).collision.x1 = SL_angle(sheet, cell, 0).x1
  2855.     'SL_sprite(handle).collision.y1 = SL_angle(sheet, cell, 0).y1
  2856.     'SL_sprite(handle).collision.x2 = SL_angle(sheet, cell, 0).x2
  2857.     'SL_sprite(handle).collision.y2 = SL_angle(sheet, cell, 0).y2
  2858.     'SL_sprite(handle).collision.cwidth = SL_angle(sheet, cell, 0).cwidth
  2859.     'SL_sprite(handle).collision.cheight = SL_angle(sheet, cell, 0).cheight
  2860.  
  2861.     ' animation settings
  2862.  
  2863.     SL_sprite(handle).animation.cell = cell '                                                           the animation cell this sprite is in
  2864.     SL_sprite(handle).animation.cellfrom = 0 '                                                          reset sprite beginning animation cell
  2865.     SL_sprite(handle).animation.cellto = 0 '                                                            reset sprite ending animation cell
  2866.     SL_sprite(handle).animation.dir = 0 '                      (SL_FORWARD, SL_BACKWARD & SLBACKFORTH)  reset sprite animation direction
  2867.     SL_sprite(handle).animation.mode = 0 '                                                              reset sprite animation mode
  2868.     SL_sprite(handle).animation.frame = 0 '                                                             reset sprite animation frame counter
  2869.     SL_sprite(handle).animation.skip = 0 '                                                              reset sprite animation skip rate
  2870.     SL_sprite(handle).animation.auto = 0 '                                                     (FALSE)  sprite has no auto animation
  2871.  
  2872.     ' x,y location settings
  2873.  
  2874.     SL_sprite(handle).x.real = 0 '                                                                      reset x location of sprite (center x)
  2875.     SL_sprite(handle).y.real = 0 '                                                                      reset y location of sprite (center y)
  2876.     SL_sprite(handle).x.int = 0 '                                                                       reset x location of sprite on screen INT(xreal) (center x)
  2877.     SL_sprite(handle).y.int = 0 '                                                                       reset y location of sprite on screen INT(yreal) (center y)
  2878.     SL_sprite(handle).x.actual = 0 '                                                                    reset x location of sprite on screen (upper left x)
  2879.     SL_sprite(handle).y.actual = 0 '                                                                    reset y location of sprite on screen (upper left y)
  2880.     SL_sprite(handle).x.dir = 0 '                                                                       x direction during motion
  2881.     SL_sprite(handle).y.dir = 0 '                                                                       y direction during motion
  2882.  
  2883.     ' graphics image settings
  2884.  
  2885.     SL_sprite(handle).gfx.hardware = _COPYIMAGE(SL_sheet(sheet, cell).software, 33) '                   create hardware sprite image
  2886.     SL_sprite(handle).gfx.software = _COPYIMAGE(SL_sheet(sheet, cell).software, 32) '                   copy software sprite image from sheet
  2887.     IF SL_sheet(sheet, cell).transparency THEN '                                                        does this sprite use transparency?
  2888.         SL_sprite(handle).gfx.mask = _COPYIMAGE(SL_sheet(sheet, cell).mask, 32) '                       yes, copy software sprite mask image from sheet
  2889.         SL_sprite(handle).transparency = -1 '                                                   (TRUE)  remember this sprite has a transparency layer
  2890.     ELSE '                                                                                              no transparency
  2891.         SL_sprite(handle).gfx.mask = 0 '                                                                no mask will be brought in
  2892.         SL_sprite(handle).transparency = 0 '                                                   (FALSE)  remember this sprite has no transparency layer
  2893.     END IF
  2894.  
  2895.     ' rotation settings
  2896.  
  2897.     SL_sprite(handle).rotation.angle = 0 '                                                              no sprite rotation angle
  2898.     SL_sprite(handle).rotation.speed = 0 '                                                              no spin rate
  2899.     SL_sprite(handle).rotation.auto = 0 '                                                      (FALSE)  auto rotation disabled
  2900.  
  2901.     ' motion settings
  2902.  
  2903.     SL_sprite(handle).motion.speed = 0 '                                                                speed during motion
  2904.     SL_sprite(handle).motion.angle = 0 '                                                                direction during motion (0 - 359)
  2905.     SL_sprite(handle).motion.auto = 0 '                                                        (FALSE)  auto motion disabled
  2906.  
  2907.     SL_NEW_SPRITE = handle '                                                                            return pointer value of new sprite
  2908.  
  2910.  
  2911. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2912. SUB SL_FREE_SPRITE (handle AS INTEGER) '                                                                                                                                                 SL_FREE_SPRITE
  2913.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2914.  
  2915.     ' declare global variables
  2916.  
  2917.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2918.  
  2919.     ' check for errors
  2920.  
  2921.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2922.         SL_error "SL_FREE_SPRITE", 1, "" '                                                              no, report error to programmer
  2923.     END IF
  2924.  
  2925.     IF SL_sprite(handle).gfx.mask THEN _FREEIMAGE SL_sprite(handle).gfx.mask '                          free sprite mask image if present
  2926.     _FREEIMAGE SL_sprite(handle).gfx.hardware '                                                         free hardware sprite image
  2927.     _FREEIMAGE SL_sprite(handle).gfx.software '                                                         free software sprite image
  2928.  
  2929.     IF (handle = UBOUND(sl_sprite)) AND (handle <> 1) THEN '                                            is handle the last element in array?
  2930.         REDIM _PRESERVE SL_sprite(handle - 1) AS SL_SPRITE '                                            yes, remove index and resize array
  2931.     ELSE '                                                                                              no, index somewhere else
  2932.         SL_sprite(handle).inuse = 0 '                                                          (FALSE)  mark index as usable later
  2933.     END IF
  2934.  
  2936.  
  2937. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2938. FUNCTION SL_VALID_SPRITE (handle AS INTEGER) '                                                                                                                                         SL_VALID_SPRITE
  2939.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2940.  
  2941.     ' declare global variables
  2942.  
  2943.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2944.  
  2945.     IF (handle > UBOUND(SL_sprite)) OR (handle < 1) THEN '                                              is this a valid sprite handle?
  2946.         SL_VALID_SPRITE = 0 '                                                                  (FALSE)  no, return 0
  2947.         EXIT FUNCTION '                                                                                 leave function
  2948.     ELSEIF NOT SL_sprite(handle).inuse THEN '                                                           is this sprite in use?
  2949.         SL_VALID_SPRITE = 0 '                                                                  (FALSE)  no, return 0
  2950.     ELSE '                                                                                              yes, it is valid
  2951.         SL_VALID_SPRITE = -1 '                                                                  (TRUE)  return -1
  2952.     END IF
  2953.  
  2955.  
  2956. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2957. SUB SL_SET_SCORE (handle AS INTEGER, score AS INTEGER) '                                                                                                                                   SL_SET_SCORE
  2958.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2959.  
  2960.     ' declare global variables
  2961.  
  2962.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2963.  
  2964.     ' perform error checks
  2965.  
  2966.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2967.         SL_error "SL_SET_SCORE", 1, "" '                                                                no, report error to programmer
  2968.     END IF
  2969.  
  2970.     SL_sprite(handle).score = score '                                                                   set sprite score
  2971.  
  2973.  
  2974. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2975. FUNCTION SL_GET_SCORE (handle AS INTEGER) '                                                                                                                                                SL_GET_SCORE
  2976.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2977.  
  2978.     ' declare global variables
  2979.  
  2980.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2981.  
  2982.     ' perform error checks
  2983.  
  2984.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2985.         SL_error "SL_GET_SCORE", 1, "" '                                                                no, report error to programmer
  2986.     END IF
  2987.  
  2988.     SL_GET_SCORE = SL_sprite(handle).score '                                                            return sprite score
  2989.  
  2991.  
  2992.  
  2993. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2994. '                                                                       ----------==========                ==========----------
  2995. '                                                                       ----------========== SHEET ROUTINES ==========----------
  2996. '                                                                       ----------==========                ==========----------
  2997. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2998.  
  2999.  
  3000. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3001. FUNCTION SL_NEW_SHEET (filename AS STRING, swidth AS INTEGER, sheight AS INTEGER, transparency AS INTEGER, transcolor AS _UNSIGNED LONG) '                                                 SL_NEW_SHEET
  3002.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3003.  
  3004.     ' The saving/loading of rotational data file added from an idea by Bplus
  3005.     ' https://www.qb64.org/forum/index.php?topic=537.30
  3006.  
  3007.     ' declare global variables
  3008.  
  3009.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  3010.     SHARED SL_angle() AS SL_ANGLE '     precalculated rotation table
  3011.  
  3012.     ' declare local variables
  3013.  
  3014.     DIM handle AS INTEGER '             handle (pointer) number of new sprite sheet
  3015.     DIM x AS INTEGER '                  generic counter to cycle through sheet sprite columns
  3016.     DIM y AS INTEGER '                  generic counter to cycle through sheet sprite rows
  3017.     DIM osource AS LONG '               original source image before this function was called
  3018.     DIM odest AS LONG '                 original destination image before this function was called
  3019.     DIM pixel AS _UNSIGNED LONG '       pixel color at each coordinate in sprite sheet
  3020.     DIM alpha AS _UNSIGNED LONG '       alpha level of current pixel
  3021.     DIM top AS INTEGER '                upper boundary of sprite image
  3022.     DIM bottom AS INTEGER '             lower boundary of sprite image
  3023.     DIM left AS INTEGER '               left boundary of sprite image
  3024.     DIM right AS INTEGER '              right boundary of sprite image
  3025.     DIM sheetimage AS LONG '            sprite sheet image
  3026.     DIM sheetwidth AS INTEGER '         width of sprite sheet in pixels
  3027.     DIM sheetheight AS INTEGER '        height of sprite sheet in pixels
  3028.     DIM rows AS INTEGER '               number of sprite rows contained on sheet
  3029.     DIM columns AS INTEGER '            number of sprite columns contained on sheet
  3030.     DIM clearcolor AS _UNSIGNED LONG '  transcolor passed in will be modified
  3031.     DIM tempsprite AS LONG '            temporary sprite image
  3032.     DIM px(3) AS SINGLE '               polar x coordinates of maptriangle
  3033.     DIM py(3) AS SINGLE '               polar y coordinates of maptriangle
  3034.     DIM sinr AS SINGLE '                sin rotation calculation
  3035.     DIM cosr AS SINGLE '                cosine rotation calculation
  3036.     DIM bx1 AS SINGLE '                 boundaries of collision box
  3037.     DIM bx2 AS SINGLE
  3038.     DIM by1 AS SINGLE
  3039.     DIM by2 AS SINGLE
  3040.     DIM x2 AS SINGLE '                  new computed polar coordinates
  3041.     DIM y2 AS SINGLE
  3042.     DIM cells AS INTEGER '              total number of cells on sheet
  3043.     DIM cell AS INTEGER '               cell counter
  3044.     DIM degree AS INTEGER '             degree counter
  3045.     DIM polar AS INTEGER '              polar coordinate counter
  3046.     DIM xoffset AS INTEGER '            x offset to rotated center
  3047.     DIM yoffset AS INTEGER '            y offset to rotated center
  3048.     DIM xwidth AS INTEGER '             sprite width counter
  3049.     DIM yheight AS INTEGER '            sprite height counter
  3050.     DIM rotfile AS STRING '             name of rotation data file
  3051.     DIM preloaded AS INTEGER '          -1 (TRUE) if rotation data preloaded
  3052.     DIM filenum AS INTEGER '            FREEFILE number
  3053.  
  3054.     ' perform error checks
  3055.  
  3056.     IF NOT _FILEEXISTS(filename) THEN '                                                                 does the sprite sheet exist?
  3057.         SL_error "SL_NEW_SHEET", 100, filename '                                                        no, report error to programmer
  3058.     END IF
  3059.     IF ABS(transparency) > 1 THEN '                                                                     valid transparency setting?
  3060.         SL_error "SL_NEW_SHEET", 101, "" '                                                              no, report error to programmer
  3061.     END IF
  3062.     IF swidth < 1 OR sheight < 1 THEN '                                                                 valid sprite width/height supplied?
  3063.         SL_error "SL_NEW_SHEET", 102, "" '                                                              no, report error to programmer
  3064.     END IF
  3065.     IF transparency = -1 AND UCASE$(RIGHT$(filename, 4)) <> ".PNG" THEN '                               wrong file type for transparency?
  3066.         SL_error "SL_NEW_SHEET", 103, UCASE$(RIGHT$(filename, 4)) '                                     yes, report error to programmer
  3067.     END IF
  3068.  
  3069.     ' local variable setup
  3070.  
  3071.     sheetimage = _LOADIMAGE(filename, 32) '                                                             load sprite sheet file
  3072.     sheetwidth = _WIDTH(sheetimage) '                                                                   get width of sheet
  3073.     sheetheight = _HEIGHT(sheetimage) '                                                                 get height of sheet
  3074.     columns = sheetwidth \ swidth '                                                                     get number of whole columns of sprites
  3075.     rows = sheetheight \ sheight '                                                                      get number of whole rows of sprites
  3076.     cells = rows * columns '                                                                            calculate total number of cells on sheet
  3077.  
  3078.     IF columns < 1 OR rows < 1 THEN '                                                                   at least one sprite column and row on sheet?
  3079.         SL_error "SL_NEW_SHEET", 104, "" '                                                              no, report error to programmer
  3080.     END IF
  3081.  
  3082.     osource = _SOURCE '                                                                                 remember current source image
  3083.     odest = _DEST '                                                                                     remember current destination image
  3084.     handle = 0 '                                                                                        initialize handle value
  3085.     clearcolor = transcolor '                                                                           get background/transparent color passed in
  3086.  
  3087.     ' increase sheet array's 1st dimension if needed to create a new sprite sheet
  3088.  
  3089.     DO '                                                                                                look for the next available handle
  3090.         handle = handle + 1 '                                                                           increment the handle value
  3091.     LOOP UNTIL (NOT SL_sheet(handle, 0).software) OR handle = UBOUND(SL_sheet) '                        stop looking when valid handle value found
  3092.     IF SL_sheet(handle, 0).software = -1 THEN '                                                 (TRUE)  is the last array element in use?
  3093.         handle = handle + 1 '                                                                           yes, increment the handle value
  3094.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2)) AS SL_SHEET '                             create new sheet in sprite array
  3095.         REDIM _PRESERVE SL_angle(handle, UBOUND(SL_angle, 2), 359) AS SL_ANGLE '                        increase rotation array to match
  3096.     END IF
  3097.  
  3098.     ' increase sheet array's 2nd dimension if needed to match number of cells
  3099.  
  3100.     IF cells > UBOUND(SL_sheet, 2) THEN '                                                               more cells in this sheet than others?
  3101.         REDIM _PRESERVE SL_sheet(handle, cells) AS SL_SHEET '                                           yes, increase the array's 2nd dimension to match
  3102.         REDIM _PRESERVE SL_angle(handle, cells, 359) AS SL_ANGLE '                                      increase rotation array to match
  3103.     END IF
  3104.  
  3105.     ' the variables in SL_sheet(x, 0) will serve a dual purpose
  3106.     ' SL_sheet(x, 0).image will contain either -1 (true) or 0 (false) to indicate the first dimension of the array is in use.
  3107.  
  3108.     SL_sheet(handle, 0).software = -1 '                                                         (TRUE)  mark as in use
  3109.  
  3110.     ' identify transparency of sprite sheet if requested
  3111.  
  3112.     IF transparency = -1 THEN '                                                          (SL_USESHEET)  sheet have alpha channel?
  3113.         x = 0 '                                                                                         yes, start at upper left x of sheet
  3114.         y = 0 '                                                                                         start at upper left y of sheet
  3115.         alpha = 255 '                                                                                   assume no alpha channel
  3116.         _SOURCE sheetimage '                                                                            set sprite sheet image as source image
  3117.         DO '                                                                                            start looping through the sheet's pixels
  3118.             pixel = POINT(x, y) '                                                                       get the pixel's color attributes
  3119.             alpha = _ALPHA32(pixel) '                                                                   get the alpha level (0 - 255)
  3120.             IF alpha = 0 THEN EXIT DO '                                                                 if it is transparent then leave the loop
  3121.             x = x + 1 '                                                                                 move right one pixel
  3122.             IF x > sheetwidth THEN '                                                                    have we gone off the sheet?
  3123.                 x = 0 '                                                                                 yes, reset back to the left beginning
  3124.                 y = y + 1 '                                                                             move down one pixel
  3125.             END IF
  3126.         LOOP UNTIL y > sheetheight '                                                                    don't stop until the entire sheet has been checked
  3127.         IF alpha = 0 THEN '                                                                             did we find a transparent pixel?
  3128.             tempsprite = _NEWIMAGE(1, 1, 32) '                                                          yes, create a temporary image         * why did I have to do
  3129.             _CLEARCOLOR pixel, tempsprite '                                                             set pixel found as transparent        * this hack to get
  3130.             clearcolor = _CLEARCOLOR(tempsprite) '                                                      get the transparent color from image  * clearcolor to come out
  3131.             _FREEIMAGE tempsprite '                                                                     temporary image no longer needed      * to the right value?
  3132.         ELSE '                                                                                          no transparency found within sheet
  3133.             transparency = 1 '                                                                          set sheet to having no alpha channel
  3134.         END IF
  3135.     ELSEIF transparency = 0 THEN '                                                            (SL_SET)  manually set alpha channel?
  3136.         _CLEARCOLOR clearcolor, sheetimage '                                                            yes, set color as transparent
  3137.         clearcolor = _CLEARCOLOR(sheetimage) '                                                          get the transparent color ************* again, why this hack?
  3138.     END IF
  3139.  
  3140.     ' preload rotational data if it exists
  3141.  
  3142.     rotfile = LEFT$(filename, INSTR(filename, ".") - 1) + ".rot" '                                      the name of the rotational data file
  3143.     IF _FILEEXISTS(rotfile) THEN '                                                                      does it exist?
  3144.         preloaded = -1 '                                                                                yes, remember that data has been preloaded
  3145.         filenum = FREEFILE
  3146.         OPEN rotfile FOR BINARY AS filenum '                                                            open it for reading
  3147.         FOR x = 1 TO cells '                                                                            cycle through all animation cells
  3148.             FOR y = 0 TO 359 '                                                                          and their associated rotational data
  3149.                 GET #1, , SL_angle(handle, x, y) '                                                      get the data
  3150.             NEXT y
  3151.         NEXT x
  3152.         CLOSE filenum '                                                                                 close the file
  3153.     END IF
  3154.  
  3155.     ' load sprites from sheet and place into sprite array
  3156.  
  3157.     x = 0 '                                                                                             reset column counter
  3158.     DO '                                                                                                cycle through sheet's columns
  3159.         x = x + 1 '                                                                                     increment column counter
  3160.         y = 0 '                                                                                         reset row counter
  3161.         DO '                                                                                            cycle through sheet's rows
  3162.             y = y + 1 '                                                                                 increment row counter
  3163.             cell = (y - 1) * columns + x '                                                              calculate current cell number
  3164.             SL_sheet(handle, cell).software = _NEWIMAGE(swidth, sheight, 32) '                          create software sprite image
  3165.  
  3166.             SL_sheet(handle, cell).swidth = swidth
  3167.             SL_sheet(handle, cell).sheight = sheight
  3168.  
  3169.  
  3170.             IF transparency < 1 THEN '                                                                  should a mask be created?
  3171.                 SL_sheet(handle, cell).mask = _NEWIMAGE(swidth, sheight, 32) '                          yes, create software sprite mask image
  3172.                 _DEST SL_sheet(handle, cell).mask '                                                     write to the mask image
  3173.             ELSE '                                                                                      no software mask image
  3174.                 SL_sheet(handle, cell).transparency = 0 '                                      (FALSE)  set sprite as having no transparency
  3175.             END IF
  3176.             _PUTIMAGE , sheetimage, SL_sheet(handle, cell).software,_
  3177.                 ((x - 1) * swidth, (y - 1) * sheight)-_
  3178.                 ((x - 1) * swidth + swidth - 1, (y - 1) * sheight + sheight - 1) '                      copy sprite from sheet and place in sprite image
  3179.  
  3180.             ' precalculate collision boundaries and update sprite mask if needed
  3181.  
  3182.             _SOURCE SL_sheet(handle, cell).software '                                                   work from the software sprite image
  3183.             top = sheight - 1 '                                                                         set initial collision boundary markers
  3184.             left = swidth - 1
  3185.             bottom = 0
  3186.             right = 0
  3187.  
  3188.             xwidth = 0 '                                                                                reset width counter
  3189.             DO '                                                                                        cycle through width of sprite
  3190.                 yheight = 0 '                                                                           reset height counter
  3191.                 DO '                                                                                    cycle through height of sprite
  3192.                     IF POINT(xwidth, yheight) <> clearcolor THEN '                                      is this pixel a transparent/background color?
  3193.                         IF xwidth < left THEN left = xwidth '                                           no, save position if left-most pixel
  3194.                         IF yheight < top THEN top = yheight '                                           save position if top-most pixel
  3195.                         IF xwidth > right THEN right = xwidth '                                         save position if right-most pixel
  3196.                         IF yheight > bottom THEN bottom = yheight '                                     save position if bbottom-most pixel
  3197.                     END IF
  3198.                     IF transparency < 1 THEN '                                                          update software sprite mask?
  3199.                         IF POINT(xwidth, yheight) = clearcolor THEN '                                   yes, is this pixel a transparent/background color?
  3200.                             PSET (xwidth, yheight), _RGB32(255, 255, 255) '                             yes, set as white on the mask image
  3201.                         END IF
  3202.                     END IF
  3203.                     yheight = yheight + 1 '                                                             increment height counter
  3204.                 LOOP UNTIL yheight = sheight '                                                          leave when height of sprite reached (-1)
  3205.                 xwidth = xwidth + 1 '                                                                   increment width counter
  3206.             LOOP UNTIL xwidth = swidth '                                                                leave when width of sprite reached (-1)
  3207.  
  3208.             SL_angle(handle, cell, 0).x1 = left '                                                       collision box top left x
  3209.             SL_angle(handle, cell, 0).y1 = top '                                                        collision box top left y
  3210.             SL_angle(handle, cell, 0).x2 = right '                                                      collision box bottom right x
  3211.             SL_angle(handle, cell, 0).y2 = bottom '                                                     collision box bottom right y
  3212.             SL_angle(handle, cell, 0).cwidth = right - left '                                           remember collision box width
  3213.             SL_angle(handle, cell, 0).cheight = bottom - top '                                          remember collision box height
  3214.             SL_angle(handle, cell, 0).radius = (SL_angle(handle, cell, 0).cwidth + SL_angle(handle, cell, 0).cheight) \ 4 ' calculate round collision radius
  3215.  
  3216.             IF NOT preloaded THEN
  3217.  
  3218.                 degree = 0 '                                                                            reset degree counter
  3219.                 DO '                                                                                    cycle from 1 to 359 degrees
  3220.                     degree = degree + 1 '                                                               increment degree counter
  3221.                     'px(0) = (-swidth + 1) / 2 '                                                         upper left  x polar coordinate of sprite
  3222.                     'py(0) = (-sheight + 1) / 2 '                                                        upper left  y polar coordinate of sprite
  3223.                     px(0) = -swidth / 2 '                                                               upper left  x polar coordinate of sprite
  3224.                     py(0) = -sheight / 2 '                                                              upper left  y polar coordinate of sprite
  3225.                     px(1) = px(0) '                                                                     lower left  x polar coordinate of sprite
  3226.                     'py(1) = (sheight -1) / 2 '                                                          lower left  y polar coordinate of sprite
  3227.                     'px(2) = (swidth - 1) / 2 '                                                          lower right x polar coordinate of sprite
  3228.                     py(1) = sheight / 2 '                                                               lower left  y polar coordinate of sprite
  3229.                     px(2) = swidth / 2 '                                                                lower right x polar coordinate of sprite
  3230.                     py(2) = py(1) '                                                                     lower right y polar coordinate of sprite
  3231.                     px(3) = px(2) '                                                                     upper right x polar coordinate of sprite
  3232.                     py(3) = py(0) '                                                                     upper right y polar coordinate of sprite
  3233.                     sinr = SIN(-degree / 57.2957795131) '                                               calculate the sin of rotation
  3234.                     cosr = COS(-degree / 57.2957795131) '                                               calculate the cosine of rotation
  3235.                     bx1 = 0 '                                                                           upper left x boundary of sprite
  3236.                     by1 = 0 '                                                                           upper left y boundary of sprite
  3237.                     bx2 = 0 '                                                                           lower right x boundary of sprite
  3238.                     by2 = 0 '                                                                           lower right y boundary of sprite
  3239.  
  3240.                     polar = 0 '                                                                         reset counter
  3241.                     DO '                                                                                cycle through all four polar coordinates (0 to 3)
  3242.                         x2 = (px(polar) * cosr + sinr * py(polar)) '                                    compute new polar coordinate location
  3243.                         y2 = (py(polar) * cosr - px(polar) * sinr) '                                    compute new polar coordinate location
  3244.                         px(polar) = x2 '                                                                save the new polar coordinate
  3245.                         py(polar) = y2 '                                                                save the new polar coordinate
  3246.                         IF px(polar) < bx1 THEN bx1 = px(polar) '                                       save lowest  x value seen \  NOTE: use for
  3247.                         IF px(polar) > bx2 THEN bx2 = px(polar) '                                       save highest x value seen  \ background image         <--------------------- LOOK
  3248.                         IF py(polar) < by1 THEN by1 = py(polar) '                                       save lowest  y value seen  / rectangle coordinates
  3249.                         IF py(polar) > by2 THEN by2 = py(polar) '                                       save highest y value seen /
  3250.                         polar = polar + 1 '                                                             increment counter
  3251.                     LOOP UNTIL polar = 4 '                                                              leave when all coordinates calculated
  3252.  
  3253.                     SL_angle(handle, cell, degree).rwidth = bx2 - bx1 + 1 '                             calculate width of rotated sprite
  3254.                     SL_angle(handle, cell, degree).rheight = by2 - by1 + 1 '                            calculate height of rotated sprite
  3255.                     xoffset = SL_angle(handle, cell, degree).rwidth \ 2 '                               calculate x offset
  3256.                     yoffset = SL_angle(handle, cell, degree).rheight \ 2 '                              calculate y offset
  3257.                     SL_angle(handle, cell, degree).px0 = px(0) + xoffset '                              add offsets to coordinates
  3258.                     SL_angle(handle, cell, degree).px1 = px(1) + xoffset
  3259.                     SL_angle(handle, cell, degree).px2 = px(2) + xoffset
  3260.                     SL_angle(handle, cell, degree).px3 = px(3) + xoffset
  3261.                     SL_angle(handle, cell, degree).py0 = py(0) + yoffset
  3262.                     SL_angle(handle, cell, degree).py1 = py(1) + yoffset
  3263.                     SL_angle(handle, cell, degree).py2 = py(2) + yoffset
  3264.                     SL_angle(handle, cell, degree).py3 = py(3) + yoffset
  3265.  
  3266.                     ' rotate image here to get rotated collision box info
  3267.  
  3268.                     tempsprite = _NEWIMAGE(SL_angle(handle, cell, degree).rwidth, SL_angle(handle, cell, degree).rheight, 32) ' create temp image using precalculated width/height
  3269.                 _MAPTRIANGLE (0, 0)-(0, sheight - 1)-(swidth - 1, sheight - 1), SL_sheet(handle, cell).software TO _
  3270.                              (SL_angle(handle, cell, degree).px0, SL_angle(handle, cell, degree).py0)-(SL_angle(handle, cell, degree).px1,_
  3271.                               SL_angle(handle, cell, degree).py1)-(SL_angle(handle, cell, degree).px2, SL_angle(handle, cell, degree).py2), tempsprite ' map rotated sprite onto temp image
  3272.                 _MAPTRIANGLE (0, 0)-(swidth - 1, 0)-(swidth - 1, sheight - 1), SL_sheet(handle, cell).software TO _
  3273.                              (SL_angle(handle, cell, degree).px0, SL_angle(handle, cell, degree).py0)-(SL_angle(handle, cell, degree).px3,_
  3274.                               SL_angle(handle, cell, degree).py3)-(SL_angle(handle, cell, degree).px2, SL_angle(handle, cell, degree).py2), tempsprite
  3275.  
  3276.                     ' precalculate rotated collision boundaries
  3277.  
  3278.                     _SOURCE tempsprite '                                                                work from the temp image
  3279.                     top = SL_angle(handle, cell, degree).rheight - 1 '                                  set initial collision boundary markers
  3280.                     left = SL_angle(handle, cell, degree).rwidth - 1
  3281.                     bottom = 0
  3282.                     right = 0
  3283.  
  3284.                     xwidth = 0 '                                                                        reset width counter
  3285.                     DO '                                                                                cycle through width of rotated sprite
  3286.                         yheight = 0 '                                                                   reset height counter
  3287.                         DO '                                                                            cycle through height of rotated sprite
  3288.                             IF POINT(xwidth, yheight) <> clearcolor THEN '                              is this pixel a transparent/background color?
  3289.                                 IF xwidth < left THEN left = xwidth '                                   no, save position if left-most pixel
  3290.                                 IF yheight < top THEN top = yheight '                                   save position if top-most pixel
  3291.                                 IF xwidth > right THEN right = xwidth '                                 save position if right-most pixel
  3292.                                 IF yheight > bottom THEN bottom = yheight '                             save position if bbottom-most pixel
  3293.                             END IF
  3294.                             yheight = yheight + 1 '                                                     increment height counter
  3295.                         LOOP UNTIL yheight = SL_angle(handle, cell, degree).rheight '                   leave when height of rotated sprite reached (-1)
  3296.                         xwidth = xwidth + 1 '                                                           increment width counter
  3297.                     LOOP UNTIL xwidth = SL_angle(handle, cell, degree).rwidth '                         leave when width of rotated sprite reached (-1)
  3298.  
  3299.                     _FREEIMAGE tempsprite '                                                             temp image no longer needed
  3300.                     SL_angle(handle, cell, degree).x1 = left '                                          collision box top left x
  3301.                     SL_angle(handle, cell, degree).y1 = top '                                           collision box top left y
  3302.                     SL_angle(handle, cell, degree).x2 = right '                                         collision box bottom right x
  3303.                     SL_angle(handle, cell, degree).y2 = bottom '                                        collision box bottom right y
  3304.                     SL_angle(handle, cell, degree).cwidth = right - left '                              remember collision box width
  3305.                     SL_angle(handle, cell, degree).cheight = bottom - top '                             remember collision box height
  3306.                     SL_angle(handle, cell, degree).radius = (SL_angle(handle, cell, degree).cwidth + SL_angle(handle, cell, degree).cheight) \ 4 ' calculate round collision radius
  3307.                 LOOP UNTIL degree = 359 '                                                               leave when all degree angles calculated
  3308.  
  3309.             END IF ' preloaded
  3310.  
  3311.         LOOP UNTIL y = rows '                                                                           leave when all rows processed
  3312.     LOOP UNTIL x = columns '                                                                            leave when all columns processed
  3313.  
  3314.     _FREEIMAGE sheetimage '                                                                             sprite sheet image no longer needed
  3315.     _SOURCE osource '                                                                                   return source to current
  3316.     _DEST odest '                                                                                       return destination to current
  3317.     IF NOT _FILEEXISTS(rotfile) THEN '                                                                  does it exist?
  3318.         filenum = FREEFILE
  3319.         OPEN rotfile FOR BINARY AS filenum '                                                            no, open it for writing
  3320.         FOR x = 1 TO cells '                                                                            cycle through all sprite cells
  3321.             FOR y = 0 TO 359 '                                                                          and their rotational angles
  3322.                 PUT #1, , SL_angle(handle, x, y) '                                                      put the data
  3323.             NEXT y
  3324.         NEXT x
  3325.         CLOSE filenum '                                                                                 close the file
  3326.     END IF
  3327.  
  3328.     SL_NEW_SHEET = handle '                                                                             return the handle number pointing to this sheet
  3329.  
  3331.  
  3332. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3333. FUNCTION SL_VALID_SHEET (sheet AS INTEGER) '                                                                                                                                             SL_VALID_SHEET
  3334.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3335.  
  3336.     ' declare global variables
  3337.  
  3338.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
  3339.  
  3340.     IF (sheet > UBOUND(SL_sheet)) OR (sheet < 1) THEN '                                                 is this a valid sheet?
  3341.         SL_VALID_SHEET = 0 '                                                                   (FALSE)  no, return false
  3342.     ELSEIF NOT SL_sheet(sheet, 0).software THEN '                                                       is sprite sheet in use?
  3343.         SL_VALID_SHEET = 0 '                                                                   (FALSE)  no, return false
  3344.     ELSE '                                                                                              everything checks out
  3345.         SL_VALID_SHEET = -1 '                                                                   (TRUE)  return true
  3346.     END IF
  3347.  
  3349.  
  3350.  
  3351. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  3352. '                                                                      ----------==========                   ==========----------
  3353. '                                                                      ----------========== INTERNAL USE ONLY ==========----------
  3354. '                                                                      ----------==========                   ==========----------
  3355. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  3356.  
  3357.  
  3358. ''    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3359. 'SUB SL_update_auto_sprites (software AS INTEGER) '                                                                                                                               SL_update_auto_sprites
  3360. '    'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3361.  
  3362. '    ' declare global variables
  3363.  
  3364. '    SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  3365. '    SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
  3366. '    SHARED SL_global AS SL_GLOBAL '     common globals array
  3367.  
  3368. '    ' declare local variables
  3369.  
  3370. '    DIM handle AS INTEGER '             handle of sprite
  3371. '    DIM nextcell AS SINGLE '            draw (-1 TRUE) or skip (0 FALSE) next animation cell
  3372.  
  3373. '    ' local variable setup
  3374.  
  3375. '    handle = 0 '                                                                                        initialize handle counter
  3376.  
  3377. '    DO '                                                                                                cycle through all sprite indexes
  3378. '        handle = handle + 1 '                                                                           increment to next sprite handle
  3379. '        IF SL_sprite(handle).software = software THEN '                                                 hardware or software type equal to requested type?
  3380.  
  3381.  
  3382. '            IF SL_sprite(handle).inuse AND (SL_sprite(handle).motion.auto OR _
  3383. '                                            SL_sprite(handle).rotation.auto OR _
  3384. '                                            SL_sprite(handle).animation.auto) THEN '                    yes, is this sprite being used and automagically controlled?
  3385.  
  3386. '                ' auto motion
  3387.  
  3388. '                IF SL_sprite(handle).motion.auto THEN '                                                 yes, is auto motion enabled?
  3389. '                    SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '     yes, update x location
  3390. '                    SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '     update y location
  3391. '                END IF
  3392.  
  3393.  
  3394. '                ' auto animation
  3395.  
  3396. '                IF SL_sprite(handle).animation.auto THEN '                                              is auto animation enabled?
  3397. '                    IF SL_sprite(handle).animation.skip = 0 THEN '                                      yes, always go to next cell?
  3398. '                        nextcell = -1 '                                                         (TRUE)  yes, draw next cell
  3399. '                    ELSE '                                                                              no
  3400.  
  3401. '                        ' decide to draw or skip next cell
  3402.  
  3403. '                        SL_sprite(handle).animation.frame = SL_sprite(handle).animation.frame + 1 '     increment frame counter
  3404. '                        IF SL_sprite(handle).animation.skip <= SL_sprite(handle).animation.frame THEN '  time to skip or go to next cell?
  3405. '                            SL_sprite(handle).animation.frame = 0 '                                     yes, reset the frame counter
  3406. '                            IF SL_sprite(handle).animation.framerate >= SL_global.framerate \ 2 THEN '  should this cell be skipped?
  3407. '                                nextcell = 0 '                                                 (FALSE)  yes, skip next cell
  3408. '                            ELSE '                                                                      no
  3409. '                                nextcell = -1 '                                                 (TRUE)  go to next cell
  3410. '                            END IF
  3411. '                        ELSEIF SL_sprite(handle).animation.framerate >= SL_global.framerate \ 2 THEN '  no, is sprite frame rate equal or greater than half global frame rate?
  3412. '                            nextcell = -1 '                                                             yes, go to next cell
  3413. '                        END IF
  3414. '                    END IF
  3415.  
  3416. '                    'PRINT SL_sprite(handle).animation.frame; SL_sprite(handle).animation.skip; nextcell; SL_sprite(handle).animation.cell
  3417.  
  3418. '                    ' draw next cell
  3419.  
  3420. '                    IF nextcell THEN '                                                                  update animation cell?
  3421. '                        SELECT CASE SL_sprite(handle).animation.mode '                                  which animation mode is this sprite using?
  3422. '                            CASE 0 '                                                      (SL_FORWARD)  move forward through the cells
  3423. '                                SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + 1 ' increment animation cell
  3424. '                                IF SL_sprite(handle).animation.cell > SL_sprite(handle).animation.cellto THEN ' passed the last cell?
  3425. '                                    SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom ' yes, go back to first cell
  3426. '                                END IF
  3427. '                            CASE 1 '                                                     (SL_BACKWARD)  move backward through the cells
  3428. '                                SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell - 1 ' decrement animation cell
  3429. '                                IF SL_sprite(handle).animation.cell < SL_sprite(handle).animation.cellfrom THEN ' passed the first cell?
  3430. '                                    SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto ' yes, go back to last cell
  3431. '                                END IF
  3432. '                            CASE 2 '                                                    (SL_BACKFORTH)  ping-pong back and forth through the cells
  3433. '                                SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + SL_sprite(handle).animation.dir ' increment/decrement animation cell
  3434. '                                IF SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto OR _
  3435. '                                    SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom THEN ' is this the first or last cell?
  3436. '                                    SL_sprite(handle).animation.dir = -SL_sprite(handle).animation.dir 'yes, reverse animation direction
  3437. '                                END IF
  3438. '                        END SELECT
  3439. '                        SL_sprite(handle).cell = SL_sprite(handle).animation.cell '                     update current sprite cell
  3440.  
  3441.  
  3442.  
  3443. '                        _FREEIMAGE SL_sprite(handle).gfx.software
  3444. '                        SL_sprite(handle).gfx.software = _COPYIMAGE(SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).software, 32)
  3445.  
  3446.  
  3447.  
  3448. '                        IF SL_sprite(handle).rotation.angle AND (NOT SL_sprite(handle).rotation.auto) THEN ' is this animation currently rotated but not automatic?
  3449. '                            SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle '                 yes, this new cell will need manually rotated as well
  3450. '                        END IF
  3451. '                    END IF
  3452. '                END IF
  3453.  
  3454. '                ' auto rotation
  3455.  
  3456. '                IF SL_sprite(handle).rotation.auto THEN '                                               is auto rotation enabled?
  3457. '                    SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle + SL_sprite(handle).rotation.speed ' yes, rotate sprite to next degree angle
  3458. '                END IF
  3459. '                SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '              update sprite motion location, rotation, and animation
  3460. '            END IF
  3461. '        END IF
  3462. '    LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when all indexes checked
  3463.  
  3464. 'END SUB
  3465.  
  3466. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3467. FUNCTION SL_min (a AS INTEGER, b AS INTEGER) '                                                                                                                                                   SL_min
  3468.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3469.  
  3470.     IF a < b THEN '                                                                                     is a the smaller number?
  3471.         SL_min = a '                                                                                    yes, return a
  3472.     ELSE '                                                                                              no, b is smaller number
  3473.         SL_min = b '                                                                                    return b (or a = b)
  3474.     END IF
  3475.  
  3477.  
  3478. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3479. FUNCTION SL_max (a AS INTEGER, b AS INTEGER) '                                                                                                                                                   SL_max
  3480.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3481.  
  3482.     IF a > b THEN '                                                                                     is a the larger number?
  3483.         SL_max = a '                                                                                    yes, return a
  3484.     ELSE '                                                                                              no, b is the larger number
  3485.         SL_max = b '                                                                                    return b (or a = b)
  3486.     END IF
  3487.  
  3489.  
  3490. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3491. SUB SL_error (routine AS STRING, errno AS INTEGER, info AS STRING) '                                                                                                                           SL_error
  3492.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3493.  
  3494.     SCREEN 0, 0, 0, 0 '                                                                                 go to a pure text screen
  3495.     _FONT 16 '                                                                                          set the standard screen 0 font
  3496.     IF _FULLSCREEN THEN _FULLSCREEN _OFF '                                                              turn off full screen if on
  3497.     _AUTODISPLAY '                                                                                      auto update the display
  3498.     CLS '                                                                                               clear the screen
  3499.     COLOR 10, 0
  3500.     PRINT "                   **************************************" '                                 print error header
  3501.     PRINT "                   ** Sprite Library Error Encountered **"
  3502.     PRINT "                   **************************************"
  3503.     PRINT
  3504.     COLOR 15, 0
  3505.     PRINT " "; routine;
  3506.     COLOR 7, 0
  3507.     PRINT " has reported error";
  3508.     COLOR 30, 0
  3509.     PRINT STR$(errno)
  3510.     COLOR 7, 0
  3511.     PRINT
  3512.     SELECT CASE errno '                                                                                 which error number is being reported?
  3513.  
  3514.         ' general purpose errors for all subs/functions
  3515.  
  3516.         CASE 1
  3517.             PRINT "- the requested sprite does not exist"
  3518.         CASE 2
  3519.             PRINT "- invalid background restore setting supplied - valid settings are"
  3520.             PRINT "- : -1 (constant SL_SAVE)"
  3521.             PRINT "- :  0 (constant SL_NOSAVE)"
  3522.         CASE 3
  3523.             PRINT "- invalid flip setting supplied - valid settings are"
  3524.             PRINT "- : 0 (constant SL_NOFLIP or SL_RESET)"
  3525.             PRINT "- : 1 (constant SL_HORIZONTAL)"
  3526.             PRINT "- : 2 (constant SL_VERTICAL)"
  3527.             PRINT "- : 3 (constant SL_FLIPBOTH)"
  3528.         CASE 4
  3529.             PRINT "- invalid zoom level setting supplied"
  3530.             PRINT "- zoom level must be greater than zero (0)"
  3531.         CASE 5
  3532.             PRINT "- the specified sprite sheet is not in use or does not exist"
  3533.         CASE 6
  3534.             PRINT "- invalid row or column selected for specified sprite sheet"
  3535.         CASE 7
  3536.             PRINT "- invalid auto motion behavior requested - valid settings are"
  3537.             PRINT "- : -1 (constant SL_START)"
  3538.             PRINT "- :  0 (constant SL_STOP)"
  3539.         CASE 8
  3540.             PRINT "- invalid auto rotation behavior requested - valid settings are"
  3541.             PRINT "- : -1 (constant SL_START)"
  3542.             PRINT "- :  0 (constant SL_STOP)"
  3543.         CASE 9
  3544.             PRINT "- rotation speed must be between -359 and 359 degrees"
  3545.         CASE 10
  3546.             PRINT "- frame rate must be greater than zero (0)"
  3547.         CASE 11
  3548.             PRINT "- frame rate must be greater than zero (0) and less than or equal"
  3549.             PRINT "- to the global frame rate"
  3550.         CASE 12
  3551.             PRINT "- incorrect animation direction mode setting - valid settings are"
  3552.             PRINT "- : 0 (constant SL_FORWARD)"
  3553.             PRINT "- : 1 (constant SL_BACKWARD)"
  3554.             PRINT "- : 2 (constant CL_BACKFORTH"
  3555.         CASE 13
  3556.             PRINT "- invalid cell value given - it must be greater than 0 and less"
  3557.             PRINT "- than or equal to the total number of animation cells on a sheet"
  3558.         CASE 14
  3559.             PRINT "- invalid auto animation behavior requested - valid settings are"
  3560.             PRINT "- : -1 (constant SL_START)"
  3561.             PRINT "- :  0 (constant SL_STOP)"
  3562.         CASE 15
  3563.             PRINT "- animation has not been assigned to this sprite - use"
  3564.             PRINT "- SL_SET_ANIMATION to assign animation to this sprite"
  3565.         CASE 16
  3566.             PRINT "- this srpite is already under auto motion control"
  3567.             PRINT "- use SL_CHANGE_AUTOMOTION to disable auto motion control"
  3568.         CASE 17
  3569.             PRINT "- this sprite is already under auto rotation control"
  3570.             PRINT "- use SL_CHANGE_AUTOROTATION to disable auto rotation control"
  3571.         CASE 18
  3572.             PRINT "- this sprite is already under auto animation control"
  3573.             PRINT "- use SL_CHNAGE_AUTOANIMATION to disable auto animation control"
  3574.         CASE 19
  3575.             PRINT "- the destination cell must be greater than the starting cell"
  3576.         CASE 20
  3577.             PRINT "- invalid visible setting reguested - valid setting are"
  3578.             PRINT "- : -1 (constant SL_SHOW)"
  3579.             PRINT "- :  0 (constant SL_HIDE)"
  3580.         CASE 21
  3581.             PRINT "- the sprite being checked for collisions has no collision detection"
  3582.             PRINT "- enabled - use SL_XXXXXXXXXX to turn on collision detection for"
  3583.             PRINT "- the sprite"
  3584.         CASE 22
  3585.             PRINT "- the sprite being checked for a collision with has no collision"
  3586.             PRINT "- detection enabled - use SL_XXXXXXX to turn on collision detection"
  3587.             PRINT "- for the sprite"
  3588.         CASE 23
  3589.             PRINT "- both sprites must have the same collision detection method"
  3590.         CASE 24
  3591.             PRINT "- invalid collision detection mode requested - valid settings are"
  3592.             PRINT "- : 0 (constant SL_NODETECT or SL_RESET)"
  3593.             PRINT "- : 1 (constant SL_BOXDETECT)"
  3594.             PRINT "- : 2 (constant SL_ROUNDDETECT)"
  3595.             PRINT "- : 3 (constant SL_PIXELDETECT)"
  3596.         CASE 25
  3597.             PRINT "- invalid layer requested - the layer does not exist"
  3598.         CASE 26
  3599.             PRINT "- you must create at least one (1) layer"
  3600.  
  3601.             ' errors belonging to SL_NEW_SHEET (100 - 109)
  3602.  
  3603.         CASE 100
  3604.             PRINT "- "; CHR$(34); info; CHR$(34); " sprite sheet does not exist"
  3605.             PRINT "- check path or spelling"
  3606.         CASE 101
  3607.             PRINT "- invalid transparency setting supplied - valid settings are"
  3608.             PRINT "- : -1 (constant SL_USESHEET)"
  3609.             PRINT "- :  0 (constant SL_SET)"
  3610.             PRINT "- :  1 (constant SL_NONE)"
  3611.         CASE 102
  3612.             PRINT "- sprite width and/or height must be greater than zero"
  3613.         CASE 103
  3614.             PRINT "- selecting to use a sheet's transparency only works with .PNG files"
  3615.             PRINT "- the function was passed a "; info; " file."
  3616.         CASE 104
  3617.             PRINT "- there must be at least one column and one row of sprites on sheet"
  3618.             PRINT "- the sheet being loaded does not meet these minimums"
  3619.  
  3620.             'errors belonging to SL_NEW_SPRITE (110 - 119)
  3621.  
  3622.             'CASE 110
  3623.             '    PRINT "- the specified sprite sheet is not in use or does not exist"
  3624.             'CASE 111
  3625.             '    PRINT "- invalid row or column selected for specified sprite sheet"
  3626.         CASE 112
  3627.             PRINT "- invalid hardware / software setting supplied - valid settings are"
  3628.             PRINT "- : -1 (constant SL_SOFTWARE)"
  3629.             PRINT "- :  0 (constant SL_HARDWARE)"
  3630.         CASE 113
  3631.             PRINT "- there is no need to restore the background with hardware sprites"
  3632.             PRINT "- change background restore setting to zero (0) (constant SL_NOSAVE)"
  3633.  
  3634.     END SELECT
  3635.     COLOR 12, 0
  3636.     PRINT
  3637.     PRINT " See sprite library doumentation for further explanation."
  3638.     COLOR 7, 0
  3639.     DO: LOOP UNTIL INKEY$ = "" '                                                                        clear the keyboard buffer
  3640.     END '                                                                                               end the program
  3641.  
  3643.  
  3644.  

24
Programs / Analog Clock Demo
« on: September 30, 2018, 12:52:17 am »
I'm not sure how many of you may be following the sprite library revisited thread on the site but I wanted to highlight the progress I have made so far.

Below is the entire code for the library to date with a demo built in of an analog clock. It uses three sprites and an image for the clock face. The clock window is resizable as well and the library's zoom feature adjusts the sprites according to the size of the window.

The library, in my estimation, is about half-way finished. I have most of the sprite related commands completed and need to start working on the game engine side of things now (path following, physics, maze generation, etc..)

You'll need the two images supplied below to run the clock demo. Let me know what you think so far. The old library looks like child's play to this new sprite library I am cooking up. Lots of fun!

Oh, one other thing. When you first run the code a file called "hands73x533.rot" will be created. This is a file that holds all of the rotational data for the sprite sheet. It's ok to delete the file, the library simply recreates it if necessary. (which reminds me, I need to incorporate Steve's saving/loading routine in place of mine.)

Code: QB64: [Select]
  1. '** NOTES **
  2.  
  3.  
  4.  
  5. ' Ideas to add
  6. '
  7. ' if SL_EVENT_TRIGGER then 'check for event that was sent (add event triggers)
  8. ' - possible link sounds to events
  9. ' add gravity, attraction, repulsion  SL_SET_PHYSICS
  10. ' add mass, elasticity (bounciness?)   ^  ^  ^
  11. ' add arc calculator for things like a swinging vine or radar scope
  12. ' ability to link sprites, when one moves the other moves, break apart when collision happens SL_LINK_SPRITE
  13. ' give sprites path-following ability (bezier curves?) SL_FOLLOW_PATH
  14. ' divide work space into cells and detect when sprites enter/leave a cell
  15. ' stand-alone program to develop sprite sheets (inform)        \
  16. ' stand-alone program to develop celled work spaces (inform)   /  combine these into one program?
  17. ' when sprite interact their mass, elascticity, etc. govern the way the move and fall
  18. ' - I will need help from a math major for this
  19.  
  20. ' Planned additions
  21. '
  22. ' get sprite width and height (both actual and collision box) SL_GET_ACTUAL_WIDTH, SL_GET_ACTUAL_HEIGHT, SL_GET_COLLISION_WIDTH, SL_GET_COLLISION_HEIGHT
  23. ' set Z depth of sprite for different planes/layers (possibly incorporate this into zoom?)
  24. ' - need to figure out how to rotate collision box along with sprites, not too hard
  25. ' - this will require line segment intersection algorithms for collision detection, yikes! hard, probably need help
  26. ' - possibly link sounds to collisions SL_LINK_COLLIDE_SOUND
  27. ' Parallaxing layers  SL_CREATE_PARALLAX, SL_UPDATE_PARALLAX
  28. ' Game font printing
  29. ' Sprite tiling, square for sure, isometric?
  30.  
  31. ' Things to improve
  32. '
  33. ' Naming convention of constants and their values
  34. ' Use integers wherever possible
  35. ' allow SINGLE value rotation angles for accuracy but convert to integer before sprite rotation
  36. ' - using only integer now, may not be precise enough for future improvements
  37.  
  38. ' Investigate
  39. '
  40. ' Use of _MAPTRIANGLE for 3D rotation   SL_ROTATE_3D
  41. ' _HARDWARE vs _HARDWARE1
  42.  
  43. ' Remember
  44. '
  45. ' Any code added that is OS dependant needs to detect the OS running first
  46. ' - try to create routines that are OS dependant for all OS'
  47.  
  48.  
  49.  
  50. OPTION _EXPLICIT ' need to remove before publishing library!!
  51.  
  52. '*
  53. '* constant declarations
  54. '*
  55.  
  56. '      CONSTANT NAME                   DESCRIPTION                                                       FUNCTIONS / SUBROUTINES THAT MAY USE THIS CONSTANT
  57. ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  58. CONST SL_RESET = -32767 '   reset a function or subroutine              SL_ROTATE_SPRITE, SL_FLIP_SPRITE, SL_ZOOM_SPRITE, SL_SET_ZOOM, SL_CHANGE_AUTOROTATION, SL_CHANGE_AUTOMOTION, SL_CHANGE_ROTATION_SPEED, SL_SET_COLLISION
  59. CONST SL_NOFLIP = 0 '       sprite will use no flipping                 SL_FLIP_SPRITE
  60. CONST SL_HORIZONTAL = 1 '   sprite will be flipped horizontally         SL_FLIP_SPRITE
  61. CONST SL_VERTICAL = 2 '     sprite will be flipped vertically           SL_FLIP_SPRITE
  62. CONST SL_FLIPBOTH = 3 '     sprite will be flipped both direction       SL_FLIP_SPRITE
  63. CONST SL_USESHEET = -1 '    use sheet's transparency info (.PNG)        SL_NEW_SHEET
  64. CONST SL_SET = 0 '          manually set transparency                   SL_NEW_SHEET
  65. CONST SL_NONE = 1 '         don't use transparency with sheet           SL_NEW_SHEET
  66. CONST SL_NOSAVE = 0 '       sprite will not save background             SL_NEW_SPRITE, SL_SET_SOFTWARE
  67. CONST SL_SAVE = -1 '        sprite will save background                 SL_NEW_SPRITE, SL_SET_SOFTWARE
  68. CONST SL_HARDWARE = 0 '     sprite in hardware mode                     SL_NEW_SPRITE, SL_update_auto_sprites
  69. CONST SL_SOFTWARE = -1 '    sprite in software mode                     SL_NEW_SPRITE, SL_update_auto_sprites
  70. CONST SL_START = -1 '       enable auto motion / rotation               SL_CHANGE_AUTOMOTION, SL_CHANGE_AUTOROTATION, SL_SET_AUTOANIMATION, SL_SET_ANIMATION, SL_SET_MOTION, SL_SET_ROTATION
  71. CONST SL_STOP = 0 '         disable auto motion / rotation              SL_CHANGE_AUTOMOTION, SL_CHANGE_AUTOROTATION, SL_SET_AUTOANIMATION, SL_SET_ANIMATION, SL_SET_MOTION, SL_SET_ROTATION, SL_CHANGE_ROTATION_SPEED
  72. CONST SL_FORWARD = 0 '      animation cells proceed forward             SL_SET_ANIMATION
  73. CONST SL_BACKWARD = 1 '     animation cells proceed backwards           SL_SET_ANIMATION
  74. CONST SL_BACKFORTH = 2 '    animation cells toggle forward/backward     SL_SET_ANIMATION
  75. CONST SL_CURRENTCELL = -1 ' use current cell as starting cell           SL_SET_ANIMATION, SL_CHANGE_ANIMATION_CELLS
  76. CONST SL_SHOW = -1 '        sprite will be shown on screen              SL_SET_SPRITE_VISIBLE, SL_SET_LAYER_VISIBLE
  77. CONST SL_HIDE = 0 '         sprite will not be shown on screen          SL_SET_SPRITE_VISIBLE, SL_SET_LAYER_VISIBLE
  78. CONST SL_NODETECT = 0 '     sprite uses no collision detection          SL_SET_COLLISION
  79. CONST SL_BOXDETECT = 1 '    sprite uses box collision detect            SL_SET_COLLISION
  80. CONST SL_ROUNDDETECT = 2 '  sprite uses round collision detect '        SL_SET_COLLISION
  81. CONST SL_PIXELDETECT = 3 '  sprite uses pixel perfect collision detect  SL_SET_COLLISION
  82. CONST SL_ALL = -1 '         check for all sprites                       SL_GET_COLLISION, SL_GET_MOUSE, SL_CLEAR_LAYER
  83. CONST SL_NOMOUSE = 0 '      no mouse interaction with sprite            SL_GET_MOUSE
  84. CONST SL_HOVER = 1 '        mouse pointer hovering over sprite          SL_GET_MOUSE
  85. CONST SL_LEFTCLICK = 2 '    left mouse button clicked on sprite         SL_GET_MOUSE
  86. CONST SL_RIGHTCLICK = 3 '   right mouse button clicked on sprite        SL_GET_MOUSE
  87. CONST SL_CENTERCLICK = 4 '  center mouse button clicked on sprite       SL_GET_MOUSE
  88.  
  89. '*
  90. '* type declarations
  91. '*
  92.  
  93. TYPE SL_SHEET ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE SHEET DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  94.     software AS LONG '                  software sprite image
  95.     mask AS LONG '                      software mask image
  96.     swidth AS INTEGER '                 width of sprite
  97.     sheight AS INTEGER '                height of sprite
  98.     transparency AS INTEGER '           -1 (TRUE) if sheet uses transparency
  99.     clearcolor AS _UNSIGNED LONG '      transparent color of image
  100. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  101.  
  102. TYPE SL_XY ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ X,Y LOCATIONS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  103.     real AS SINGLE '                    single values of sprite x,y center point
  104.     int AS INTEGER '                    integer values of sprite x,y center point
  105.     actual AS INTEGER '                 integer values of sprite upper left x,y location
  106.     back AS INTEGER '                   integer values of sprite's background image x,y location
  107.     dir AS SINGLE '                     single values of sprite x,y motion vectors
  108. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  109.  
  110. TYPE SL_IMAGE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ IMAGES ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  111.     hardware AS LONG '                  hardware sprite image
  112.     software AS LONG '                  software sprite image
  113.     mask AS LONG '                      software sprite mask image
  114.     back AS LONG '                      software sprite saved background image
  115. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  116.  
  117. TYPE SL_ANIM ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ANIMATION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  118.     cell AS INTEGER '                   current animation cell
  119.     cellfrom AS INTEGER '               starting animation cell
  120.     cellto AS INTEGER '                 ending animation cell
  121.     dir AS INTEGER '                    animation direction
  122.     mode AS INTEGER '                   animation mode (forward, backward, back/forth)
  123.     framerate AS INTEGER '              sprite animation frame rate
  124.     frame AS INTEGER '                  animation frame counter
  125.     skip AS INTEGER '                   how often to skip a frame to achieve framerate
  126.     auto AS INTEGER '                   auto-animation on/off
  127. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  128.  
  129. TYPE SL_MOTION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ MOTION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  130.     auto AS INTEGER '                   -1 (TRUE) if auto-motion turned on
  131.     speed AS SINGLE '                   speed of sprite during motion
  132.     angle AS INTEGER '                  direction of sprite during motion (0 - 359)
  133. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  134.  
  135. TYPE SL_ROTATION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ROTATION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  136.     auto AS INTEGER '                   -1 (TRUE) if auto-rotation turned on
  137.     speed AS INTEGER '                  spin rate in degrees of sprite (0 - 359)
  138.     angle AS INTEGER '                  current rotation angle of sprite
  139. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  140.  
  141. TYPE SL_COLLISION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ COLLISION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  142.     detect AS INTEGER '                 type of detection this sprite uses (box, round, ellipse, pixel)
  143.     box AS INTEGER '                    -1 (TRUE) if a box collision detected
  144.     round AS INTEGER '                  -1 (TRUE) if a round collision detected
  145.     pixel AS INTEGER '                  -1 (TRUE) if a pixel perfect collision detected
  146.     with AS INTEGER '                   the sprite collision happened with
  147.     radius AS INTEGER '                 radius of round collision area
  148.     x1 AS INTEGER '                     collision box upper left x
  149.     x2 AS INTEGER '                     collision box lower right x
  150.     y1 AS INTEGER '                     collision box upper left y
  151.     y2 AS INTEGER '                     collision box lower right y
  152.     cwidth AS INTEGER '                 width of collision box
  153.     cheight AS INTEGER '                height of collision box
  154.     xpoint AS INTEGER '                 x location of collision
  155.     ypoint AS INTEGER '                 y location of collision
  156. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  157.  
  158. TYPE SL_MOUSE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ MOUSE SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  159.     event AS INTEGER '                  last event on sprite (hover, click, etc)
  160.     x AS INTEGER '                      x location of mouse on sprite
  161.     y AS INTEGER '                      y location of mouse on sprite
  162.     xa AS INTEGER '                     x location of mouse on screen
  163.     ya AS INTEGER '                     y location of mouse on screen
  164. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  165.  
  166. TYPE SL_SPRITE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  167.     inuse AS INTEGER '                  this array index in use
  168.     x AS SL_XY '                        x coordinate locations
  169.     y AS SL_XY '                        y coordinate locations
  170.     gfx AS SL_IMAGE '                   image graphics
  171.     animation AS SL_ANIM '              animation settings
  172.     motion AS SL_MOTION '               motion settings
  173.     rotation AS SL_ROTATION '           rotation settings
  174.     collision AS SL_COLLISION '         collision settings
  175.     mouse AS SL_MOUSE '                 mouse interaction settings
  176.     sheet AS INTEGER '                  sheet sprite belongs to
  177.     cell AS INTEGER '                   current sprite cell
  178.     swidth AS INTEGER '                 width of sprite
  179.     sheight AS INTEGER '                height of sprite
  180.     restore AS INTEGER '                -1 (TRUE) if sprite restores background
  181.     flip AS INTEGER '                   flip horizontally, vertically, or both
  182.     transparency AS INTEGER '           -1 (TRUE) if sprite uses transparency
  183.     zoom AS INTEGER '                   zoom level of sprite (1% - x%)
  184.     software AS INTEGER '               -1 (TRUE) if sprite is to be treated as software image
  185.     score AS INTEGER '                  point score of sprite
  186.     visible AS INTEGER '                -1 (TRUE) if sprite visible
  187.     layer AS INTEGER '                  the layer the sprite belongs to
  188. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  189.  
  190. TYPE SL_ANGLE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ROTATION ANGLE & COLLISION BOX DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  191.     x1 AS INTEGER '                     collision box upper left x
  192.     x2 AS INTEGER '                     collision box lower right x
  193.     y1 AS INTEGER '                     collision box upper left y
  194.     y2 AS INTEGER '                     collision box lower right y
  195.     cwidth AS INTEGER '                 collision box width
  196.     cheight AS INTEGER '                collision box height
  197.     radius AS INTEGER '                 collision circle radius
  198.     rwidth AS INTEGER '                 rotated sprite width
  199.     rheight AS INTEGER '                rotated sprite height
  200.     px0 AS INTEGER '                    rectangular rotation coordinates
  201.     px1 AS INTEGER
  202.     px2 AS INTEGER
  203.     px3 AS INTEGER
  204.     py0 AS INTEGER
  205.     py1 AS INTEGER
  206.     py2 AS INTEGER
  207.     py3 AS INTEGER
  208. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  209.  
  210. TYPE SL_LAYERS ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ LAYER DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  211.     image AS LONG '                     software image of screen layer
  212.     visible AS INTEGER '                -1 (TRUE) if layer is visible
  213. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  214.  
  215. TYPE SL_GLOBAL ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ GLOBALS DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  216.     layer AS INTEGER '                  active layer
  217.     swidth AS INTEGER '                 screen width
  218.     sheight AS INTEGER '                screen height
  219.     framerate AS INTEGER '              global frame rate
  220.     source AS INTEGER '                 current source layer
  221.     destination AS INTEGER '            current destination layer
  222. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  223.  
  224. '*
  225. '* global dynamic array declarations
  226. '*
  227.  
  228. REDIM SL_sheet(1, 1) AS SL_SHEET '      sheet#, cell# - master sheet array
  229. REDIM SL_angle(1, 1, 359) AS SL_ANGLE ' sheet#, cell#, angle# - master sheet precalculated angle array
  230. REDIM SL_sprite(1) AS SL_SPRITE '       master working sprite array
  231. REDIM SL_layer(1) AS SL_LAYERS '        image layer array
  232.  
  233. '
  234. '*
  235. '* global variable declarations
  236. '*
  237.  
  238. DIM SL_global AS SL_GLOBAL
  239.  
  240. '*
  241. '* main code (for testing)
  242. '*
  243.  
  245.  
  246. DIM handsheet AS INTEGER '      clock hand sprite sheet
  247. DIM hour AS INTEGER '           hour hand sprite
  248. DIM minute AS INTEGER '         minute hand sprite
  249. DIM second AS INTEGER '         second hand sprite
  250. DIM face AS LONG '              clock face image
  251. DIM h, m, s AS INTEGER '        current hour. minute, second values
  252. DIM current, temp AS LONG '     current SL_SCREEN and a temp screen
  253. DIM square, center AS INTEGER ' width, height, and center of screen
  254. DIM zoom AS INTEGER '           zoom level of sprites
  255. DIM frame AS INTEGER '          frame counter
  256. DIM olds AS INTEGER '           the previous second
  257.  
  258. square = 551
  259. center = 276
  260. SL_SCREEN square, square, 1 '                                                                           set window size and layers
  261. _DELAY .2 '                                                                                             need to wait for _RESIZE below
  262. temp = _RESIZE '                                                                                        clear resize flag
  263. _TITLE "Sprite Library Clock Demo" '                                                                    give window a title
  264. handsheet = SL_NEW_SHEET("hands73x533.png", 73, 533, SL_SET, _RGB32(255, 0, 255)) '                     load the clock hands
  265. hour = SL_NEW_SPRITE(1, handsheet, 2, SL_HARDWARE, SL_NOSAVE) '                                         get the hour hand
  266. minute = SL_NEW_SPRITE(1, handsheet, 1, SL_HARDWARE, SL_NOSAVE) '                                       get the minute hand
  267. second = SL_NEW_SPRITE(1, handsheet, 3, SL_HARDWARE, SL_NOSAVE) '                                       get the second hand
  268. face = _LOADIMAGE("face.png", 32) '                                                                     load the clock face
  269. _PUTIMAGE , face '                                                                                      display the clock face
  270. SL_SET_FRAMERATE 6 '                                                                                    set the global frame rate (must be 6 FPS)
  272.     _LIMIT SL_GET_FRAMERATE '                                                                           maintain global frame rate
  273.     h = VAL(TIME$) '                                                                                    get current hour value
  274.     IF h > 11 THEN h = h - 12 '                                                                         keep a 12 hour clock
  275.     m = VAL(MID$(TIME$, 4, 2)) '                                                                        get current minute value
  276.     s = VAL(MID$(TIME$, 7, 2)) '                                                                        get current second value
  277.     frame = frame + 1 '                                                                                 increment frame counter
  278.     IF s <> olds THEN '                                                                                 new second?
  279.         frame = 0 '                                                                                     yes, reset frame counter
  280.         olds = s '                                                                                      remember this second value
  281.     END IF
  282.     SL_ROTATE_SPRITE hour, 30 * h + m \ 2 '                                                             rotate hour hand into position
  283.     SL_ROTATE_SPRITE minute, 6 * m + s \ 10 '                                                           rotate minute hand into position
  284.     SL_ROTATE_SPRITE second, 6 * s + frame '                                                            rotate second hand into position
  285.     SL_PUT_SPRITE center, center, hour '                                                                display the hour hand
  286.     SL_PUT_SPRITE center, center, minute '                                                              display the minute hand
  287.     SL_PUT_SPRITE center, center, second '                                                              display the second hand
  288.     IF _RESIZE THEN '                                                                                   did user resize screen?
  289.         current = _SOURCE '                                                                             yes, get the current screen pointer
  290.         temp = _COPYIMAGE(_SOURCE, 32) '                                                                make a copy of the current screen
  291.         SCREEN temp '                                                                                   make the copy active
  292.         _FREEIMAGE current '                                                                            free the old current screen
  293.         SL_SCREEN _RESIZEWIDTH, _RESIZEWIDTH, 1 '                                                       create the new current screen (square _RESIZEWIDTH)
  294.         _PUTIMAGE (0, 0)-(_WIDTH(_SOURCE) - 1, _HEIGHT(_SOURCE) - 1), face '                            stretch the clock face onto it
  295.         _FREEIMAGE temp '                                                                               no longer need copy of old current screen
  296.         zoom = _WIDTH(_SOURCE) / square * 100 '                                                         calculate sprite zoom level
  297.         SL_SET_ZOOM hour, zoom '                                                                        zoom the sprites to match new dimensions
  298.         SL_SET_ZOOM minute, zoom
  299.         SL_SET_ZOOM second, zoom
  300.         center = _WIDTH(_SOURCE) \ 2 '                                                                  new center point for clock hands
  301.     END IF
  302.     SL_DISPLAY '                                                                                        merge layers and display
  303. LOOP UNTIL _KEYHIT '                                                                                    leave when key hit
  304. SL_FREE_SPRITE hour '                                                                                   free sprites from memory
  305. SL_FREE_SPRITE minute
  306. SL_FREE_SPRITE second
  307. 'SL_FREE_SHEET handsheet '                                                                              free sprite sheet images (coming soon)
  308. SYSTEM '                                                                                                return to OS
  309.  
  310.  
  311. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  312. '                                                                       ----------==========                ==========----------
  313. '                                                                       ----------========== LAYER ROUTINES ==========----------
  314. '                                                                       ----------==========                ==========----------
  315. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  316.  
  317. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  318. SUB SL_SCREEN (swidth AS INTEGER, sheight AS INTEGER, layers AS INTEGER) '                                                                                                                    SL_SCREEN
  319.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  320.  
  321.     ' declare global variables
  322.  
  323.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  324.     SHARED SL_global AS SL_GLOBAL '     common globals array
  325.  
  326.     ' declare local variables
  327.  
  328.     DIM layer AS INTEGER '              layer counter
  329.  
  330.     ' perform error checks
  331.  
  332.     IF layers < 1 THEN '                                                                                creating at least one layer?
  333.         SL_error "SL_SCREEN", 26, "" '                                                                  no, report error to programmer
  334.     END IF
  335.  
  336.     REDIM SL_layer(layers) AS SL_LAYERS '                                                               increase layer array to match requested number of layers
  337.     SL_global.swidth = swidth '                                                                         set screen width
  338.     SL_global.sheight = sheight '                                                                       set screen height
  339.     layer = 0 '                                                                                         reset layer counter
  340.  
  341.     DO '                                                                                                cycle through layers
  342.         SL_layer(layer).image = _NEWIMAGE(swidth, sheight, 32) '                                        create layer software image
  343.         SL_layer(layer).visible = -1 '                                                          (TRUE)  layer is visible
  344.         layer = layer + 1 '                                                                             increment layer counter
  345.     LOOP UNTIL layer = UBOUND(SL_layer) + 1 '                                                           leave when all layers created
  346.  
  347.     SL_SET_DESTINATION_LAYER 1 '                                                                        set destination layer
  348.     SL_SET_SOURCE_LAYER 1 '                                                                             set source layer
  349.     SCREEN SL_layer(0).image '                                                                          initialize layer 0 working screen
  350.  
  352.  
  353. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  354. SUB SL_DISPLAY () '                                                                                                                                                                          SL_DISPLAY
  355.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  356.  
  357.     ' declare global variables
  358.  
  359.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  360.     SHARED SL_global AS SL_GLOBAL '     common globals array
  361.  
  362.     ' declare local variables
  363.  
  364.     DIM layer AS INTEGER '              layer counter
  365.     DIM odest AS INTEGER '              original destination
  366.     DIM merge AS LONG '                 software image to merge all layers onto
  367.     DIM hardware AS LONG '              hardware image of merged layers to place on working screen
  368.  
  369.     SL_update_auto_sprites -1 '                                                          (SL_SOFTWARE)  update all software automatic sprites
  370.     'odest = _DEST '                                                                                     save original destination
  371.     _DEST SL_layer(0).image '                                                                           working screen is destination
  372.     _SOURCE SL_layer(0).image
  373.     merge = _NEWIMAGE(SL_global.swidth, SL_global.sheight, 32) '                                        create screen to merge layers
  374.     layer = UBOUND(SL_layer) '                                                                          reset layer counter
  375.  
  376.     DO '                                                                                                cycle through layers backwards (high to low)
  377.         IF SL_layer(layer).visible THEN '                                                               is this layer visible?
  378.             _PUTIMAGE , SL_layer(layer).image, merge '                                                  merge this layer
  379.         END IF
  380.         layer = layer - 1 '                                                                             decrement layer counter
  381.     LOOP UNTIL layer = 0 '                                                                              leave when all layers merged
  382.  
  383.     hardware = _COPYIMAGE(merge, 33) '                                                                  create hardware image of merged layers
  384.     _PUTIMAGE , hardware '                                                                              place hardware image on working screen
  385.     _FREEIMAGE merge '                                                                                  merged software image no longer needed
  386.     _FREEIMAGE hardware '                                                                               merged hardware image no longer needed
  387.     SL_update_auto_sprites 0 '                                                           (SL_HARDWARE)  update all hardware automatic sprites
  388.  
  389.     '_DEST odest '                                                                                       restore original destination
  390.     _DISPLAY '                                                                                          update display screen with changes
  391.  
  393.  
  394. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  395. SUB SL_SET_DESTINATION_LAYER (layer AS INTEGER) '                                                                                                                              SL_SET_DESTINATION_LAYER
  396.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  397.  
  398.     ' declare global variables
  399.  
  400.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  401.     SHARED SL_global AS SL_GLOBAL '     common globals array
  402.  
  403.     ' perform error checks
  404.  
  405.     IF layer <> -32767 THEN '                                                               (SL_RESET)  reset to working image?
  406.         IF NOT SL_VALID_LAYER(layer) THEN '                                                             no, valid layer?
  407.             SL_error "SL_SET_DESTINATION_LAYER", 25, "" '                                               no, report error to programmer
  408.         ELSE '                                                                                          yes, valid layer
  409.             _DEST SL_layer(layer).image '                                                               set destination as layer software image
  410.             SL_global.destination = layer '                                                             save new destination layer
  411.         END IF
  412.     ELSE '                                                                                              yes, reset layer
  413.         _DEST SL_layer(1).image '                                                                       set destination as layer 1 software image
  414.         SL_global.destination = 1 '                                                                     save new destination layer
  415.     END IF
  416.  
  418.  
  419. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  420. SUB SL_SET_SOURCE_LAYER (layer AS INTEGER) '                                                                                                                                        SL_SET_SOURCE_LAYER
  421.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  422.  
  423.     ' declare global variables
  424.  
  425.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  426.     SHARED SL_global AS SL_GLOBAL '     common globals array
  427.  
  428.     ' perform error checks
  429.  
  430.     IF layer <> -32767 THEN '                                                               (SL_RESET)  reset to working image?
  431.         IF NOT SL_VALID_LAYER(layer) THEN '                                                             no, valid layer?
  432.             SL_error "SL_SET_SOURCE_LAYER", 25, "" '                                                    no, report error to programmer
  433.         ELSE '                                                                                          yes, valid layer
  434.             _SOURCE SL_layer(layer).image '                                                             set source as layer software image
  435.             SL_global.source = layer '                                                                  save new source layer
  436.         END IF
  437.     ELSE '                                                                                              yes, reset layer
  438.         _SOURCE SL_layer(1).image '                                                                     set source as layer 1 software image
  439.         SL_global.source = 1 '                                                                          save new source layer
  440.     END IF
  441.  
  443.  
  444. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  445. FUNCTION SL_GET_DESTINATION_LAYER () '                                                                                                                                         SL_GET_DESTINATION_LAYER
  446.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  447.  
  448.     ' declare global variables
  449.  
  450.     SHARED SL_global AS SL_GLOBAL '     common globals array
  451.  
  452.     SL_GET_DESTINATION_LAYER = SL_global.destination '                                                  return current destination layer
  453.  
  455.  
  456. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  457. FUNCTION SL_GET_SOURCE_LAYER () '                                                                                                                                                   SL_GET_SOURCE_LAYER
  458.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  459.  
  460.     ' declare global variables
  461.  
  462.     SHARED SL_global AS SL_GLOBAL '     common globals array
  463.  
  464.     SL_GET_SOURCE_LAYER = SL_global.source '                                                            return current source layer
  465.  
  467.  
  468. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  469. SUB SL_CLEAR_LAYER (layer AS INTEGER) '                                                                                                                                                  SL_CLEAR_LAYER
  470.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  471.  
  472.     ' declare global variables
  473.  
  474.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  475.     SHARED SL_global AS SL_GLOBAL '     common globals array
  476.  
  477.     ' declare local variables
  478.  
  479.     DIM layers AS INTEGER '             layer counter
  480.  
  481.     ' perform error checks
  482.  
  483.     IF layer <> -1 THEN '                                                                     (SL_ALL)  clear all layers?
  484.         IF NOT SL_VALID_LAYER(layer) THEN '                                                             no, valid layer?
  485.             SL_error "SL_CLEAR_LAYER", 25, "" '                                                         no, report error to programmer
  486.         END IF
  487.         _FREEIMAGE SL_layer(layer).image '                                                              free the layer's software image from memory
  488.         SL_layer(layer).image = _NEWIMAGE(SL_global.swidth, SL_global.sheight, 32) '                    create a new software layer
  489.     ELSE '                                                                                              yes, clear all layers
  490.         layers = 0 '                                                                                    reset layer counter
  491.         DO
  492.             layers = layers + 1 '                                                                       increment layer counter
  493.             _FREEIMAGE SL_layer(layers).image '                                                         free the layer's software image from memory
  494.             SL_layer(layers).image = _NEWIMAGE(SL_global.swidth, SL_global.sheight, 32) '               create a new software layer
  495.         LOOP UNTIL layers = UBOUND(SL_layer) '                                                          leave when all layers cleared
  496.     END IF
  497.  
  499.  
  500. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  501. FUNCTION SL_VALID_LAYER (layer AS INTEGER) '                                                                                                                                             SL_VALID_LAYER
  502.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  503.  
  504.     ' declare global variables
  505.  
  506.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  507.  
  508.     IF layer < 1 OR layer > UBOUND(SL_layer) THEN '                                                     valid layer?
  509.         SL_VALID_LAYER = 0 '                                                                   (FALSE)  no, return invalid
  510.     ELSE '                                                                                              yes
  511.         SL_VALID_LAYER = -1 '                                                                   (TRUE)  return valid
  512.     END IF
  513.  
  515.  
  516. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  517. FUNCTION SL_SCREEN_WIDTH () '                                                                                                                                                           SL_SCREEN_WIDTH
  518.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  519.  
  520.     ' declare global variables
  521.  
  522.     SHARED SL_global AS SL_GLOBAL '     common globals array
  523.  
  524.     SL_SCREEN_WIDTH = SL_global.swidth '                                                                return screen width
  525.  
  527.  
  528. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  529. FUNCTION SL_SCREEN_HEIGHT () '                                                                                                                                                         SL_SCREEN_HEIGHT
  530.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  531.  
  532.     ' declare global variables
  533.  
  534.     SHARED SL_global AS SL_GLOBAL '     common globals array
  535.  
  536.     SL_SCREEN_HEIGHT = SL_global.sheight '                                                              return screen height
  537.  
  539.  
  540. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  541. SUB SL_SET_LAYER_VISBILE (layer AS INTEGER, visible AS INTEGER) '                                                                                                                  SL_SET_LAYER_VISIBLE
  542.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  543.  
  544.     ' declare global variables
  545.  
  546.     SHARED SL_layer() AS SL_LAYERS '    master layer array
  547.  
  548.     ' perform error checks
  549.  
  550.     IF NOT SL_VALID_LAYER(layer) THEN '                                                                 no, valid layer?
  551.         SL_error "SL_SET_LAYER_VISIBLE", 25, "" '                                                       no, report error to programmer
  552.     END IF
  553.     IF (visible < -1) OR (visible > 0) THEN '                                      (SL_SHOW & SL_HIDE)  valid visible behavior requested?
  554.         SL_error "SL_SET_LAYER_VISIBLE", 20, "" '                                                       no, report error to programmer
  555.     END IF
  556.  
  557.     SL_layer(layer).visible = visible '                                                                 set layer visibility
  558.  
  560.  
  561. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  562. '                                                                       ----------==========                ==========----------
  563. '                                                                       ----------========== MOUSE ROUTINES ==========----------
  564. '                                                                       ----------==========                ==========----------
  565. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  566.  
  567. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  568. FUNCTION SL_GET_MOUSE (handle AS INTEGER) '                                                                                                                                                SL_GET_MOUSE
  569.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  570.  
  571.     ' declare global variables
  572.  
  573.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  574.  
  575.     ' declare local variables
  576.  
  577.     DIM sprite AS INTEGER '             sprite counter to cycle through array
  578.     DIM event AS INTEGER '              -1 (TRUE) if an event was recorded
  579.  
  580.     ' perform error checks
  581.  
  582.     IF handle <> -1 THEN '                                                                    (SL_ALL)  check all sprites for mouse interaction?
  583.         IF NOT SL_VALID_SPRITE(handle) THEN '                                                           no, is this a valid sprite?
  584.             SL_error "SL_GET_MOUSE", 1, "" '                                                            no, report error to programmer
  585.         END IF
  586.         IF NOT SL_sprite(handle).visible THEN '                                                         is sprite visible?
  587.             EXIT FUNCTION '                                                                             no, leave function
  588.         END IF
  589.     END IF
  590.     IF handle = -1 THEN '                                                                     (SL_ALL)  check all sprites?
  591.         sprite = 1 '                                                                                    yes, start with first index
  592.     ELSE '                                                                                              no, check a single sprite
  593.         sprite = handle '                                                                               start with that sprite
  594.     END IF
  595.  
  596.     DO '                                                                                                cycle through sprite array
  597.         IF SL_sprite(handle).inuse AND SL_sprite(handle).visible THEN '                                 is sprite in use and visible?
  598.             SL_sprite(handle).mouse.event = 0 '                                                         yes, reset mouse settings
  599.             SL_sprite(handle).mouse.x = 0
  600.             SL_sprite(handle).mouse.y = 0
  601.             SL_sprite(handle).mouse.xa = 0
  602.             SL_sprite(handle).mouse.ya = 0
  603.             WHILE _MOUSEINPUT: WEND '                                                                   get latest mouse information
  604.             IF _MOUSEX >= SL_sprite(sprite).collision.x1 THEN '                                         is mouse pointer on sprite?
  605.                 IF _MOUSEX <= SL_sprite(sprite).collision.x2 THEN
  606.                     IF _MOUSEY >= SL_sprite(sprite).collision.y1 THEN
  607.                         IF _MOUSEY <= SL_sprite(sprite).collision.y2 THEN
  608.                             event = -1 '                                                                yes, remember that an event occurred
  609.                             SL_sprite(sprite).mouse.xa = _MOUSEX '                                      screen location of mouse x
  610.                             SL_sprite(sprite).mouse.ya = _MOUSEY '                                      screen location of mouse y
  611.                             SL_sprite(sprite).mouse.x = _MOUSEX - SL_sprite(sprite).x.actual '          sprite location of mouse x
  612.                             SL_sprite(sprite).mouse.y = _MOUSEY - SL_sprite(sprite).y.actual '          sprite location of mouse y
  613.                             IF _MOUSEBUTTON(1) THEN '                                                   is left button clicked?
  614.                                 SL_GET_MOUSE = 2 '                                      (SL_LEFTCLICK)  yes, return value
  615.                                 SL_sprite(sprite).mouse.event = 2 '                     (SL_LEFTCLICK)  record mouse event
  616.                             ELSEIF _MOUSEBUTTON(2) THEN '                                               no, is right button clicked?
  617.                                 SL_GET_MOUSE = 3 '                                     (SL_RIGHTCLICK)  yes, return value
  618.                                 SL_sprite(sprite).mouse.event = 3 '                    (SL_RIGHTCLICK)  record mouse event
  619.                             ELSEIF _MOUSEBUTTON(3) THEN '                                               no, is center button clicked?
  620.                                 SL_GET_MOUSE = 4 '                                    (SL_CENTERCLICK)  yes, return value
  621.                                 SL_sprite(sprite).mouse.event = 4 '                   (SL_CENTERCLICK)  record mouse event
  622.                             ELSE '                                                                      no, mouse is just hovering
  623.                                 SL_GET_MOUSE = 1 '                                          (SL_HOVER)  return value
  624.                                 SL_sprite(sprite).mouse.event = 1 '                         (SL_HOVER)  record mouse event
  625.                             END IF
  626.                         END IF
  627.                     END IF
  628.                 END IF
  629.             END IF
  630.         END IF
  631.         sprite = sprite + 1 '                                                                           increment sprite counter
  632.     LOOP UNTIL sprite = (UBOUND(SL_sprite) + 1) OR (handle = -1) '                                      leave when full array or single sprite checked
  633.  
  634.     IF handle = -1 THEN '                                                                     (SL_ALL)  were all sprites checked?
  635.         IF event THEN '                                                                                 yes, was there an event with any of them?
  636.             SL_GET_MOUSE = -1 '                                                                 (TRUE)  return that an event occurred
  637.         ELSE '                                                                                          no events recorded
  638.             SL_GET_MOUSE = 0 '                                                                 (FALSE)  return that no events occurred
  639.         END IF
  640.     END IF
  641.  
  643.  
  644. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  645. FUNCTION SL_GET_MOUSE_EVENT (handle AS INTEGER) '                                                                                                                                    SL_GET_MOUSE_EVENT
  646.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  647.  
  648.     ' declare global variables
  649.  
  650.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  651.  
  652.     ' perform error checks
  653.  
  654.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  655.         SL_error "SL_GET_MOUSE_EVENT", 1, "" '                                                          no, report error to programmer
  656.     END IF
  657.  
  658.     SL_GET_MOUSE_EVENT = SL_sprite(handle).mouse.event '                                                return mouse event
  659.     SL_sprite(handle).mouse.event = 0 '                                                                 reset now that value retrieved
  660.  
  662.  
  663. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  664. FUNCTION SL_GET_MOUSE_SPRITEX (handle AS INTEGER) '                                                                                                                                SL_GET_MOUSE_SPRITEX
  665.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  666.  
  667.     ' declare global variables
  668.  
  669.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  670.  
  671.     ' perform error checks
  672.  
  673.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  674.         SL_error "SL_GET_MOUSE_SPRITEX", 1, "" '                                                        no, report error to programmer
  675.     END IF
  676.  
  677.     SL_GET_MOUSE_SPRITEX = SL_sprite(handle).mouse.x '                                                  return x value of mouse on sprite
  678.     SL_sprite(handle).mouse.x = 0 '                                                                     reset now that value retrieved
  679.  
  681.  
  682. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  683. FUNCTION SL_GET_MOUSE_SPRITEY (handle AS INTEGER) '                                                                                                                                SL_GET_MOUSE_SPRITEY
  684.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  685.  
  686.     ' declare global variables
  687.  
  688.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  689.  
  690.     ' perform error checks
  691.  
  692.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  693.         SL_error "SL_GET_MOUSE_SPRITEY", 1, "" '                                                        no, report error to programmer
  694.     END IF
  695.  
  696.     SL_GET_MOUSE_SPRITEY = SL_sprite(handle).mouse.y '                                                  return y value of mouse on sprite
  697.     SL_sprite(handle).mouse.y = 0 '                                                                     reset now that value retrieved
  698.  
  700.  
  701. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  702. FUNCTION SL_GET_MOUSE_ACTUALX (handle AS INTEGER) '                                                                                                                                SL_GET_MOUSE_ACTUALX
  703.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  704.  
  705.     ' declare global variables
  706.  
  707.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  708.  
  709.     ' perform error checks
  710.  
  711.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  712.         SL_error "SL_GET_MOUSE_ACTUALX", 1, "" '                                                        no, report error to programmer
  713.     END IF
  714.  
  715.     SL_GET_MOUSE_ACTUALX = SL_sprite(handle).mouse.xa '                                                 return x value of mouse on screen
  716.     SL_sprite(handle).mouse.xa = 0 '                                                                    reset now that value retrieved
  717.  
  719.  
  720. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  721. FUNCTION SL_GET_MOUSE_ACTUALY (handle AS INTEGER) '                                                                                                                                SL_GET_MOUSE_ACTUALY
  722.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  723.  
  724.     ' declare global variables
  725.  
  726.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  727.  
  728.     ' perform error checks
  729.  
  730.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  731.         SL_error "SL_GET_MOUSE_ACTUALY", 1, "" '                                                        no, report error to programmer
  732.     END IF
  733.  
  734.     SL_GET_MOUSE_ACTUALY = SL_sprite(handle).mouse.ya '                                                 return y value of mouse on screen
  735.     SL_sprite(handle).mouse.ya = 0 '                                                                    reset now that value retrieved
  736.  
  738.  
  739. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  740. '                                                                     ----------==========                    ==========----------
  741. '                                                                     ----------========== COLLISION ROUTINES ==========----------
  742. '                                                                     ----------==========                    ==========----------
  743. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  744.  
  745. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  746. FUNCTION SL_GET_COLLISION (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                                   SL_GET_COLLISION
  747.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  748.  
  749.     ' declare global variables
  750.  
  751.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  752.  
  753.     ' declare local variables
  754.  
  755.     DIM sprite AS INTEGER '             sprite counter in loop
  756.  
  757.     ' perform error checks
  758.  
  759.     IF NOT SL_VALID_SPRITE(handle1) THEN '                                                              is this a valid sprite?
  760.         SL_error "SL_GET_COLLISION", 1, "" '                                                            no, report error to programmer
  761.     END IF
  762.     IF handle2 <> -1 THEN '                                                                   (SL_ALL)  check for collision with all sprites?
  763.         IF NOT SL_VALID_SPRITE(handle2) THEN '                                                          no, is this a valid sprite?
  764.             SL_error "SL_GET_COLLISION", 1, "" '                                                        no, report error to programmer
  765.         END IF
  766.         IF SL_sprite(handle2).collision.detect = 0 THEN '                                               collision detection turned on?
  767.             SL_error "SL_GET_COLLISION", 22, "" '                                                       no, report error to programmer
  768.         END IF
  769.         'IF SL_sprite(handle1).collision.detect <> SL_sprite(handle2).collision.detect THEN '            both sprites use same detection method?
  770.         '    SL_error "SL_GET_COLLISION", 23, "" '                                                       no, report error to programmer
  771.         'END IF
  772.     END IF
  773.     IF SL_sprite(handle1).collision.detect = 0 THEN '                                                   collision detection turned on?
  774.         SL_error "SL_GET_COLLISION", 21, "" '                                                           no, report error to programmer
  775.     END IF
  776.  
  777.     SELECT CASE SL_sprite(handle1).collision.detect
  778.         CASE 1 '                                                                              (SL_BOX)  box detection
  779.             IF handle2 <> -1 THEN '                                                           (SL_ALL)  check all sprites for collision?
  780.                 SL_sprite(handle1).collision.box = SL_box_collision(SL_sprite(handle1).collision.x1,_
  781.                                                                     SL_sprite(handle1).collision.y1,_
  782.                                                                     SL_sprite(handle1).collision.cwidth,_
  783.                                                                     SL_sprite(handle1).collision.cheight,_
  784.                                                                     SL_sprite(handle2).collision.x2,_
  785.                                                                     SL_sprite(handle2).collision.y2,_
  786.                                                                     SL_sprite(handle2).collision.cwidth,_
  787.                                                                     SL_sprite(handle2).collision.cheight) ' no, check for a box collision of two sprites
  788.                 IF SL_sprite(handle1).collision.box THEN '                                              was there a collision?
  789.                     SL_sprite(handle1).collision.with = handle2 '                                       yes, record sprite that was collided with
  790.                     SL_sprite(handle2).collision.with = handle1 '                                       tell the other sprite who it collided with
  791.                     SL_GET_COLLISION = handle2 '                                                (TRUE)  return that a collision happened
  792.                 END IF
  793.             ELSE '                                                                                      yes, check all sprites
  794.                 sprite = 0 '                                                                            reset sprite counter
  795.                 DO '                                                                                    cycle through sprite array
  796.                     sprite = sprite + 1 '                                                               increment sprite counter
  797.                     IF SL_sprite(sprite).inuse AND SL_sprite(sprite).collision.detect THEN '            is sprite in use and using collision detection?
  798.                         SL_sprite(handle1).collision.box = SL_box_collision(SL_sprite(handle1).collision.x1,_
  799.                                                                             SL_sprite(handle1).collision.y1,_
  800.                                                                             SL_sprite(handle1).collision.cwidth,_
  801.                                                                             SL_sprite(handle1).collision.cheight,_
  802.                                                                             SL_sprite(sprite).collision.x2,_
  803.                                                                             SL_sprite(sprite).collision.y2,_
  804.                                                                             SL_sprite(sprite).collision.cwidth,_
  805.                                                                             SL_sprite(sprite).collision.cheight) ' yes, check for a box collision of two sprites
  806.                         IF SL_sprite(handle1).collision.box THEN '                                      box collision detected?
  807.                             SL_sprite(handle1).collision.with = sprite '                                yes, record sprite that was collided with
  808.                             SL_sprite(sprite).collision.with = handle1 '                                tell the other sprite who it collided with
  809.                             SL_GET_COLLISION = sprite '                                         (TRUE)  return that collision happened
  810.                             sprite = UBOUND(SL_sprite) '                                                no need to check further
  811.                         END IF
  812.                     END IF
  813.                 LOOP UNTIL sprite = UBOUND(SL_sprite) '                                                 leave when end of array reached
  814.             END IF
  815.         CASE 2 '                                                                            (SL_ROUND)  round collision
  816.             IF handle2 <> -1 THEN '                                                           (SL_ALL)  check all sprites for collision?
  817.                 SL_sprite(handle1).collision.round = sl_round_collision(SL_sprite(handle1).x.int,_
  818.                                                                         SL_sprite(handle1).y.int,_
  819.                                                                         SL_sprite(handle1).collision.radius,_
  820.                                                                         SL_SPRITE(handle2).x.int,_
  821.                                                                         SL_sprite(handle2).y.int,_
  822.                                                                         SL_sprite(handle2).collision.radius) ' no, check for a round collision of two sprites
  823.                 IF SL_sprite(handle1).collision.round THEN '                                            was there a collision?
  824.                     SL_sprite(handle1).collision.with = handle2 '                                       yes, record sprite that was collided with
  825.                     SL_sprite(handle2).collision.with = handle1 '                                       tell the other sprite who it collided with
  826.                     SL_GET_COLLISION = handle2 '                                                (TRUE)  return that a collision happened
  827.                 END IF
  828.             ELSE '                                                                                      yes, check all sprites
  829.                 sprite = 0 '                                                                            reset sprite counter
  830.                 DO '                                                                                    cycle through sprite array
  831.                     sprite = sprite + 1 '                                                               increment sprite counter
  832.                     IF SL_sprite(sprite).inuse AND SL_sprite(sprite).collision.detect THEN '            is sprite in use and using collision detection?
  833.                         SL_sprite(handle1).collision.round = sl_round_collision(SL_sprite(handle1).x.int,_
  834.                                                                                 SL_sprite(handle1).y.int,_
  835.                                                                                 SL_sprite(handle1).collision.radius,_
  836.                                                                                 SL_sprite(sprite).x.int,_
  837.                                                                                 SL_sprite(sprite).y.int,_
  838.                                                                                 SL_sprite(sprite).collision.radius) ' yes, check for a round collision of two sprites
  839.                         IF SL_sprite(handle1).collision.round THEN '                                    round collision detected?
  840.                             SL_sprite(handle1).collision.with = sprite '                                yes, record sprite that was collided with
  841.                             SL_sprite(sprite).collision.with = handle1 '                                tell the other sprite who it collided with
  842.                             SL_GET_COLLISION = sprite '                                         (TRUE)  return that collision happened
  843.                             sprite = UBOUND(SL_sprite) '                                                no need to check further
  844.                         END IF
  845.                     END IF
  846.                 LOOP UNTIL sprite = UBOUND(SL_sprite) '                                                 leave when end of array reached
  847.             END IF
  848.         CASE 3 '                                                                            (SL_PIXEL)  pixel perfect collision
  849.             IF handle2 <> -1 THEN '                                                           (SL_ALL)  check all sprites for collision?
  850.                 SL_sprite(handle1).collision.pixel = SL_PIXEL_COLLISION(handle1, handle2) '             yes, check for a pixel collision of two sprites
  851.                 IF SL_sprite(handle1).collision.pixel THEN '                                            pixel collision detected?
  852.                     SL_sprite(handle1).collision.with = handle2 '                                       yes, record sprite that was collided with
  853.                     SL_sprite(handle2).collision.with = handle1 '                                       tell the other sprite who it collided with
  854.                     SL_GET_COLLISION = handle2 '                                                (TRUE)  return that collision happened
  855.                 END IF
  856.             ELSE '                                                                                      yes, check all sprites
  857.                 sprite = 0 '                                                                            reset sprite counter
  858.                 DO '                                                                                    cycle through sprite array
  859.                     sprite = sprite + 1 '                                                               increment sprite counter
  860.                     IF SL_sprite(sprite).inuse AND SL_sprite(sprite).collision.detect THEN '            is sprite in use and using collision detection? (may need to see if mask available too) <--------------- LOOK
  861.                         SL_sprite(handle1).collision.pixel = SL_PIXEL_COLLISION(handle1, sprite) '      yes, check for a pixel collision of two sprites
  862.                         IF SL_sprite(handle1).collision.pixel THEN '                                    pixel collision detected?
  863.                             SL_sprite(handle1).collision.with = sprite '                                yes, record sprite that was collided with
  864.                             SL_sprite(sprite).collision.with = handle1 '                                tell the other sprite who it collided with
  865.                             SL_GET_COLLISION = sprite '                                         (TRUE)  return that collision happened
  866.                             sprite = UBOUND(SL_sprite) '                                                no need to check further
  867.                         END IF
  868.                     END IF
  869.                 LOOP UNTIL sprite = UBOUND(SL_sprite) '                                                 leave when end of array reached
  870.             END IF
  871.     END SELECT
  872.  
  874.  
  875. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  876. FUNCTION SL_ROUND_COLLISION (x1 AS INTEGER, y1 AS INTEGER, r1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, r2 AS INTEGER) '                                                             SL_ROUND_COLLISION
  877.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  878.  
  879.     IF SL_GET_DISTANCE_POINT_TO_POINT(x1, y1, x2, y2) < r1 + r2 THEN '                                  is distance less than both radii added together?
  880.         SL_ROUND_COLLISION = -1 '                                                               (TRUE)  yes, return a collision
  881.     END IF
  882.  
  884.  
  885. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  886. FUNCTION SL_BOX_COLLISION (x1 AS INTEGER, y1 AS INTEGER, w1 AS INTEGER, h1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, w2 AS INTEGER, h2 AS INTEGER) '                                   SL_BOX_COLLISION
  887.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  888.  
  889.     IF x1 <= x2 + w2 THEN '                                                                             is x1 within box 2's width?
  890.         IF x1 + w1 >= x2 THEN '                                                                         yes, is x2 within box 1's width?
  891.             IF y1 <= y2 + h2 THEN '                                                                     yes, is y1 within box 2's height?
  892.                 IF y1 + h1 >= y2 THEN '                                                                 yes, is y2 within box 1's height?
  893.                     SL_BOX_COLLISION = -1 '                                                     (TRUE)  yes, return a collision
  894.                 END IF
  895.             END IF
  896.         END IF
  897.     END IF
  898.  
  900.  
  901. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  902. FUNCTION SL_PIXEL_COLLISION (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                               SL_PIXEL_COLLISION
  903.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  904.  
  905.     ' declare global variables
  906.  
  907.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  908.  
  909.     ' declare local variables
  910.  
  911.     DIM leftx AS INTEGER '              upper left x location of box collision area
  912.     DIM rightx AS INTEGER '             lower right x location of box collision area
  913.     DIM topy AS INTEGER '               upper left y location of box collision area
  914.     DIM bottomy AS INTEGER '            lower right y location of box collision area
  915.     DIM masks AS LONG '                 box collision area image to place masks
  916.     DIM h1x AS INTEGER '                center point x offset for first sprite mask image
  917.     DIM h2x AS INTEGER '                center point x offset for second sprite mask image
  918.     DIM h1y AS INTEGER '                center point y offset for first sprite mask image
  919.     DIM h2y AS INTEGER '                center point y offset for second sprite mask image
  920.     DIM odest AS LONG '                 original destination
  921.     DIM osource AS LONG '               original source
  922.     DIM x AS INTEGER '                  counter to cycle through width of mask image
  923.     DIM y AS INTEGER '                  counter to cycle throuogh height of mask image
  924.  
  925.     ' perform error checks
  926.  
  927.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
  928.         SL_error "SL_PIXEL_COLLISION", 1, "" '                                                          no, report error to programmer
  929.     END IF
  930.  
  931.     ' if there is no box collision then no need to check for pixel collision
  932.  
  933.     IF  SL_box_collision(SL_sprite(handle1).collision.x1, SL_sprite(handle1).collision.y1,_
  934.                            SL_sprite(handle1).collision.cwidth, SL_sprite(handle1).collision.cheight,_
  935.                            SL_sprite(handle2).collision.x2, SL_sprite(handle2).collision.y2,_
  936.                            SL_sprite(handle2).collision.cwidth, SL_sprite(handle2).collision.cheight) THEN 'is there a box collision?
  937.         leftx = SL_max(SL_sprite(handle1).collision.x1, SL_sprite(handle2).collision.x1) '              yes, get collision area coordinates
  938.         rightx = SL_min(SL_sprite(handle1).collision.x1 + SL_sprite(handle1).collision.cwidth,_
  939.                         SL_sprite(handle2).collision.x1 + SL_sprite(handle2).collision.cwidth)
  940.         topy = SL_max(SL_sprite(handle1).collision.y1, SL_sprite(handle2).collision.y1)
  941.         bottomy = SL_min(SL_sprite(handle1).collision.y1 + SL_sprite(handle1).collision.cheight,_
  942.                          SL_sprite(handle2).collision.y1 + SL_sprite(handle2).collision.cheight)
  943.  
  944.         odest = _DEST '                                                                                 save original destination
  945.         osource = _SOURCE '                                                                             save original source
  946.         masks = _NEWIMAGE(rightx - leftx, bottomy - topy, 32) '                                         create image of same size to hold image masks
  947.         h1x = SL_sprite(handle1).x.int - leftx '                                                        get image mask center point offsets from collision area upper left x,y
  948.         h1y = SL_sprite(handle1).y.int - topy
  949.         h2x = SL_sprite(handle2).x.int - leftx
  950.         h2y = SL_sprite(handle2).y.int - topy
  951.         _DEST masks '                                                                                   masks are to be drawn on new image
  952.         _SOURCE masks '                                                                                 pixels are to be examined on new image
  953.         _PUTIMAGE (-h1x, -h1y), SL_sprite(handle1).gfx.mask '                                           draw first sprite mask onto image
  954.         _PUTIMAGE (-h2x, -h2y), SL_sprite(handle2).gfx.mask '                                           draw second sprite mask onto image
  955.         x = 0 '                                                                                         reset width couonter
  956.  
  957.         DO '                                                                                            cycle through width of image
  958.             y = 0 '                                                                                     reset height counter
  959.             DO '                                                                                        cycle through height of image
  960.                 IF POINT(x, y) = _RGBA32(0, 0, 0, 0) THEN '                                             is this a black pixel? <----------------------------------- used saved clearcolor instead?  LOOK
  961.                     SL_sprite(handle1).collision.with = handle2 '                                       yes, record sprite that was collided with
  962.                     SL_sprite(handle2).collision.with = handle1 '                                       tell the other sprite who it collided with
  963.                     SL_PIXEL_COLLISION = handle2 '                                              (TRUE)  return that collision happened
  964.                     y = _HEIGHT(masks) - 1 '                                                            no need to continue loop
  965.                     x = _WIDTH(masks) - 1 '                                                             no need to continue loop
  966.                 END IF
  967.                 y = y + 1 '                                                                             increment height counter
  968.             LOOP UNTIL y = _HEIGHT(masks) '                                                             leave when full height cycled
  969.             x = x + 1 '                                                                                 increment width counter
  970.         LOOP UNTIL x = _WIDTH(masks) '                                                                  leave when full width cycled
  971.  
  972.         _SOURCE osource '                                                                               restore original source
  973.         _DEST odest '                                                                                   restore original destination
  974.         _FREEIMAGE masks '                                                                              mask image no longer needed
  975.     END IF
  976.  
  978.  
  979. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  980. SUB SL_SET_COLLISION (handle AS INTEGER, method AS INTEGER) '                                                                                                                          SL_SET_COLLISION
  981.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  982.  
  983.     ' declare global variables
  984.  
  985.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  986.  
  987.     ' perform error checks
  988.  
  989.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  990.         SL_error "SL_SET_COLLISION", 1, "" '                                                            no, report error to programmer
  991.     END IF
  992.     IF method = -32767 THEN '                                                               (SL_RESET)  reset collision detection?
  993.         SL_sprite(handle).collision.detect = 0 '                                         (SL_NODETECT)  yes, reset detection
  994.     ELSEIF method < 0 OR method > 3 THEN ' (SL_NODETECT, SL_BOXDETECT, SL_ROUNDDETECT, SL_PIXELDETECT)  invalid mode?
  995.         SL_error "SL_SET_COLLISION", 24, "" '                                                           yes, report error to programmer
  996.     ELSE '                                                                                              no
  997.         SL_sprite(handle).collision.detect = method '                                                   set collision detection mode
  998.     END IF
  999.  
  1001.  
  1002. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1003. '                                                                     ----------==========                    ==========----------
  1004. '                                                                     ----------========== ANIMATION ROUTINES ==========----------
  1005. '                                                                     ----------==========                    ==========----------
  1006. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1007.  
  1008. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1009. SUB SL_SET_FRAMERATE (framerate AS INTEGER) '                                                                                                                                          SL_SET_FRAMERATE
  1010.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1011.  
  1012.     ' declare global variables
  1013.  
  1014.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1015.     SHARED SL_global AS SL_GLOBAL
  1016.  
  1017.     ' declare local variables
  1018.  
  1019.     DIM handle AS INTEGER '             counter to cycle through sprite handles
  1020.  
  1021.     ' perform error checks
  1022.  
  1023.     IF framerate < 1 THEN '                                                                             valid frame rate?
  1024.         SL_error "SL_SET_FRAMERATE", 10, "" '                                                           no, report error to programmer
  1025.     END IF
  1026.  
  1027.     ' set local variables
  1028.  
  1029.     SL_global.framerate = framerate '                                                                   set global frame rate
  1030.     handle = 0 '                                                                                        reset handle counter
  1031.  
  1032.     DO '                                                                                                update all available sprites
  1033.         handle = handle + 1 '                                                                           increment sprite pointer
  1034.         IF SL_sprite(handle).inuse THEN '                                                               is this sprite in use?
  1035.             IF SL_sprite(handle).animation.framerate THEN '                                             yes, does it contain an animation frame rate?
  1036.                 IF framerate < SL_sprite(handle).animation.framerate THEN '                             is new global frame rate less than sprite's frame rate?
  1037.                     SL_sprite(handle).animation.framerate = framerate '                                 yes, set sprite's frame rate to global frame rate
  1038.                 END IF
  1039.                 IF framerate = SL_sprite(handle).animation.framerate THEN '                             animation and global frame rates the same?
  1040.                     SL_sprite(handle).animation.skip = 0 '                                              yes, nothing needs to be done with frames
  1041.                 ELSEIF SL_sprite(handle).animation.framerate >= framerate \ 2 THEN '                    no, sprite frame rate 1/2 or less of master frame rate?
  1042.                     SL_sprite(handle).animation.skip = framerate \ (framerate - SL_sprite(handle).animation.framerate) ' yes, calculate every frame to skip
  1043.                 ELSE '                                                                                  no, sprite frame rate is greater than 1/2 of master frame rate
  1044.                     SL_sprite(handle).animation.skip = framerate \ SL_sprite(handle).animation.framerate ' calculate every frame to draw
  1045.                 END IF
  1046.             END IF
  1047.         END IF
  1048.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when all sprites updated
  1049.  
  1051.  
  1052. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1053. FUNCTION SL_GET_FRAMERATE () '                                                                                                                                                         SL_GET_FRAMERATE
  1054.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1055.  
  1056.     ' declare global variables
  1057.  
  1058.     SHARED SL_global AS SL_GLOBAL
  1059.  
  1060.     SL_GET_FRAMERATE = SL_global.framerate '                                                            return global frame rate
  1061.  
  1063.  
  1064. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1065. SUB SL_NEXT_ANIMATION_CELL (handle AS INTEGER) '                                                                                                                                 SL_NEXT_ANIMATION_CELL
  1066.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1067.  
  1068.     ' declare global variables
  1069.  
  1070.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1071.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  1072.  
  1073.     ' perform error checks
  1074.  
  1075.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1076.         SL_error "SL_NEXT_ANIMATION_CELL", 1, "" '                                                      no, report error to programmer
  1077.     END IF
  1078.     IF NOT SL_sprite(handle).animation.cellfrom THEN '                                                  has animation been assigned to this sprite?
  1079.         SL_error "SL_NEXT_ANIMATION_CELL", 15, "" '                                                     no, report error to programmer
  1080.     END IF
  1081.     IF SL_sprite(handle).animation.auto THEN '                                                          is this sprite under auto animation control?
  1082.         SL_error "SL_NEXT_ANIMATION_CELL", 18, "" '                                                     yes, report error to programmer
  1083.     END IF
  1084.  
  1085.     SELECT CASE SL_sprite(handle).animation.mode '                                                      which animation mode is this sprite using?
  1086.         CASE 0 '                                                                          (SL_FORWARD)  move forward through the cells
  1087.             SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + 1 '                   increment animation cell
  1088.             IF SL_sprite(handle).animation.cell > SL_sprite(handle).animation.cellto THEN '             passed the last cell?
  1089.                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom '               yes, go back to first cell
  1090.             END IF
  1091.         CASE 1 '                                                                         (SL_BACKWARD)  move backward through the cells
  1092.             SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell - 1 '                   decrement animation cell
  1093.             IF SL_sprite(handle).animation.cell < SL_sprite(handle).animation.cellfrom THEN '           passed the first cell?
  1094.                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto '                 yes, go back to last cell
  1095.             END IF
  1096.         CASE 2 '                                                                        (SL_BACKFORTH)  ping-pong back and forth through the cells
  1097.             SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + SL_sprite(handle).animation.dir ' increment/decrement animation cell
  1098.             IF SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto OR _
  1099.                SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom THEN '           is this the first or last cell?
  1100.                 SL_sprite(handle).animation.dir = -SL_sprite(handle).animation.dir '                    yes, reverse animation direction
  1101.             END IF
  1102.     END SELECT
  1103.     SL_sprite(handle).cell = SL_sprite(handle).animation.cell '                                         update current sprite cell
  1104.     IF SL_sprite(handle).rotation.angle AND (NOT SL_sprite(handle).rotation.auto) THEN '                is this animation currently rotated but not automatic?
  1105.         SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle '                                     yes, this new cell will need manually rotated as well
  1106.     ELSE '                                                                                              no rotation, but still needs image updated
  1107.         _FREEIMAGE SL_sprite(handle).gfx.software '                                                     remove current software image from memory
  1108.         SL_sprite(handle).gfx.software = _COPYIMAGE(SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).software, 32) ' get new software image
  1109.         IF SL_sprite(handle).gfx.mask THEN '                                                            is there a mask with this image?
  1110.             _FREEIMAGE SL_sprite(handle).gfx.mask '                                                     yes, remove the software mask image from memory
  1111.             SL_sprite(handle).gfx.mask = _COPYIMAGE(SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).mask, 32) ' get new software mask image
  1112.         END IF
  1113.     END IF
  1114.  
  1116.  
  1117. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1118. SUB SL_CHANGE_ANIMATION_CELLS (handle AS INTEGER, cellfrom AS INTEGER, cellto AS INTEGER) '                                                                                   SL_CHANGE_ANIMATION_CELLS
  1119.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1120.  
  1121.     ' declare global variables
  1122.  
  1123.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1124.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  1125.  
  1126.     ' perform error checks
  1127.  
  1128.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1129.         SL_error "SL_CHANGE_ANIMATION_CELLS", 1, "" '                                                   no, report error to programmer
  1130.     END IF
  1131.     IF NOT SL_sprite(handle).animation.cellfrom THEN '                                                  has animation been assigned to this sprite?
  1132.         SL_error "SL_CHANGE_ANIMATION_CELLS", 15, "" '                                                  no, report error to programmer
  1133.     END IF
  1134.     IF NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellfrom) THEN '                                      no, is this a valid cell request?
  1135.         SL_error "SL_CHANGE_ANIMATION_CELLS", 13, "" '                                                  no, report error to rpogrammer
  1136.     END IF
  1137.     IF NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellto) THEN '                                        is this valid cell request?
  1138.         SL_error "SL_CHANGE_ANIMATION_CELLS", 13, "" '                                                  no, report error to programmer
  1139.     END IF
  1140.  
  1141.     SL_sprite(handle).animation.cellfrom = cellfrom '                                                   set first cell in animation
  1142.     SL_sprite(handle).animation.cellto = cellto '                                                       set last cell in animation
  1143.     SL_sprite(handle).animation.cell = cellfrom '                                                       set current animation cell to first cell
  1144.     SL_sprite(handle).cell = cellfrom '                                                                 set current sprite cell to first cell
  1145.  
  1146.     IF SL_sprite(handle).animation.cellto < SL_sprite(handle).animation.cellfrom THEN '                 is cellto greater than cellfrom?
  1147.         SL_error "SL_CHANGE_ANIMATION_CELLS", 19, "" '                                                  no, report error to programmer
  1148.     END IF
  1149.  
  1150.     IF SL_sprite(handle).rotation.angle AND (NOT SL_sprite(handle).rotation.auto) THEN '                is this animation currently rotated but not automatic?
  1151.         SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle '                                     yes, this new cell will need manually rotated as well
  1152.     ELSE '                                                                                              no rotation, but still needs image updated
  1153.         _FREEIMAGE SL_sprite(handle).gfx.software '                                                     remove current software image from memory
  1154.         SL_sprite(handle).gfx.software = _COPYIMAGE(SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).software, 32) ' get new software image
  1155.         IF SL_sprite(handle).gfx.mask THEN '                                                            is there a mask with this image?
  1156.             _FREEIMAGE SL_sprite(handle).gfx.mask '                                                     yes, remove the software mask image from memory
  1157.             SL_sprite(handle).gfx.mask = _COPYIMAGE(SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).mask, 32) ' get new software mask image
  1158.         END IF
  1159.     END IF
  1160.  
  1162.  
  1163. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1164. SUB SL_CHANGE_ANIMATION_FRAMERATE (handle AS INTEGER, framerate AS INTEGER) '                                                                                             SL_CHANGE_ANIMATION_FRAMERATE
  1165.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1166.     ' declare global variables
  1167.  
  1168.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1169.     SHARED SL_global AS SL_GLOBAL '     common globals array
  1170.  
  1171.     ' perform error checks
  1172.  
  1173.     IF framerate < 1 OR framerate > SL_global.framerate THEN '                                          valid frame rate supplied?
  1174.         SL_error "SL_CHANGE_ANIMATION_FRAMERATE", 11, "" '                                              no, report error to programmer
  1175.     END IF
  1176.  
  1177.     SL_sprite(handle).animation.framerate = framerate '                                                 save sprite frame rate
  1178.     IF SL_global.framerate = framerate THEN '                                                           animation and global frame rates the same?
  1179.         SL_sprite(handle).animation.skip = 0 '                                                          yes, nothing needs to be done with frames
  1180.     ELSEIF framerate >= SL_global.framerate \ 2 THEN '                                                  no, sprite frame rate 1/2 or less of master frame rate?
  1181.         SL_sprite(handle).animation.skip = SL_global.framerate \ (SL_global.framerate - framerate) '    yes, calculate every frame to skip
  1182.     ELSE '                                                                                              no, sprite frame rate is greater than 1/2 of master frame rate
  1183.         SL_sprite(handle).animation.skip = SL_global.framerate \ framerate '                            calculate every frame to draw
  1184.     END IF
  1185.  
  1187.  
  1188. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1189. SUB SL_CHANGE_AUTOANIMATION (handle AS INTEGER, auto AS INTEGER) '                                                                                                              SL_CHANGE_AUTOANIMATION
  1190.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1191.  
  1192.     ' declare global variables
  1193.  
  1194.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1195.  
  1196.     ' perform error checks
  1197.  
  1198.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1199.         SL_error "SL_CHANGE_AUTOANIMATION", 1, "" '                                                     no, report error to programmer
  1200.     END IF
  1201.     IF auto < -1 OR auto > 0 THEN '                                                                     valid auto animation value?
  1202.         SL_error "SL_CHANGE_ANIMATION", 14, "" '                                                        no, report error to programmer
  1203.     END IF
  1204.  
  1205.     SL_sprite(handle).animation.auto = auto '                                     (SL_START & SL_STOP)  set auto-animation
  1206.  
  1208.  
  1209. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1210. SUB SL_SET_ANIMATION (handle AS INTEGER, cellfrom AS INTEGER, cellto AS INTEGER, mode AS INTEGER, framerate AS INTEGER, auto AS INTEGER) '                                             SL_SET_ANIMATION
  1211.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1212.  
  1213.     ' declare global variables
  1214.  
  1215.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1216.     SHARED SL_global AS SL_GLOBAL '     common globals array
  1217.  
  1218.     ' perform error checks
  1219.  
  1220.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1221.         SL_error "SL_SET_ANIMATION", 1, "" '                                                            no, report error to programmer
  1222.     END IF
  1223.     IF framerate < 1 OR framerate > SL_global.framerate THEN '                                          valid frame rate supplied?
  1224.         SL_error "SL_SET_ANIMATION", 11, "" '                                                           no, report error to programmer
  1225.     END IF
  1226.     IF mode < 0 OR mode > 2 THEN '                                                                      valid animation mode supplied?
  1227.         SL_error "SL_SET_ANIMATION", 12, "" '                                                           no, report error to programmer
  1228.     END IF
  1229.     IF cellfrom <> -1 THEN '                                                          (SL_CURRENTCELL)  is the current cell being requested for cellfrom?
  1230.         IF cellfrom < 1 OR (NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellfrom)) THEN '                no, is this a valid cell request? <----------------------------- line need modified?   LOOK
  1231.             SL_error "SL_SET_ANIMATION", 13, "" '                                                       no, report error to rpogrammer
  1232.         END IF
  1233.     END IF
  1234.     IF cellto < 1 OR (NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellto)) THEN '                        is this valid cell request?
  1235.         SL_error "SL_SET_ANIMATION", 13, "" '                                                           no, report error to programmer
  1236.     END IF
  1237.     IF auto < -1 OR auto > 0 THEN '                                                                     valid auto animation value?
  1238.         SL_error "SL_SET_ANIMATION", 14, "" '                                                           no, report error to programmer
  1239.     END IF
  1240.  
  1241.     IF cellfrom = -1 THEN '                                                           (SL_CURRENTCELL)  use current cell as start cell?
  1242.         SL_sprite(handle).animation.cellfrom = SL_sprite(handle).animation.cell '                       yes, set first cell as current cell
  1243.     ELSE '                                                                                              no
  1244.         SL_sprite(handle).animation.cell = cellfrom '                                                   set starting cell
  1245.         SL_sprite(handle).animation.cellfrom = cellfrom '                                               set first cell in animation
  1246.     END IF
  1247.     SL_sprite(handle).animation.cellto = cellto '                                                       set last cell in animation
  1248.  
  1249.     IF cellto <= cellfrom THEN '                                                                        is cellto greater than cellfrom?
  1250.         SL_error "SL_SET_ANIMATION", 19, "" '                                                           no, report error to programmer
  1251.     END IF
  1252.  
  1253.     SL_sprite(handle).animation.framerate = framerate '                                                 save sprite frame rate
  1254.     IF SL_global.framerate = framerate THEN '                                                           animation and global frame rates the same?
  1255.         SL_sprite(handle).animation.skip = 0 '                                                          yes, nothing needs to be done with frames
  1256.     ELSEIF framerate >= SL_global.framerate \ 2 THEN '                                                  no, sprite frame rate 1/2 or less of master frame rate?
  1257.         SL_sprite(handle).animation.skip = SL_global.framerate \ (SL_global.framerate - framerate) '    yes, calculate every frame to skip
  1258.     ELSE '                                                                                              no, sprite frame rate is greater than 1/2 of master frame rate
  1259.         SL_sprite(handle).animation.skip = SL_global.framerate \ framerate '                            calculate every frame to draw
  1260.     END IF
  1261.     SL_sprite(handle).animation.frame = 0 '                                                             reset skip frame counter
  1262.     SL_sprite(handle).animation.mode = mode '                (SL_FORWARD & SL_BACKWARD & SL_BACKFORTH)  set animation mode
  1263.     IF mode = 0 OR mode = 2 THEN '                                        (SL_FORWARD or SL_BACKFORTH)  forward or back and forth?
  1264.         SL_sprite(handle).animation.dir = 1 '                                                           yes, set animation direction forward
  1265.     ELSE '                                                                               (SL_BACKWARD)  no, backward
  1266.         SL_sprite(handle).animation.dir = -1 '                                                          set animation direction backward
  1267.     END IF
  1268.     SL_sprite(handle).animation.auto = auto '                                     (SL_START & SL_STOP)  set auto-animation
  1269.  
  1271.  
  1272. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1273. FUNCTION SL_GET_CELL (handle AS INTEGER) '                                                                                                                                                  SL_GET_CELL
  1274.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1275.  
  1276.     ' declare global variables
  1277.  
  1278.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1279.  
  1280.     ' perform error checks
  1281.  
  1282.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1283.         SL_error "SL_GET_CELL", 1, "" '                                                                 no, report error to programmer
  1284.     END IF
  1285.  
  1286.     SL_GET_CELL = SL_sprite(handle).animation.cell '                                                    return animation cell of this sprite < --------------------- animation or sprite cell?   LOOK
  1287.  
  1289.  
  1290. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1291. FUNCTION SL_VALID_CELL (sheet AS INTEGER, cell AS INTEGER) '                                                                                                                              SL_VALID_CELL
  1292.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1293.  
  1294.     ' declare global variables
  1295.  
  1296.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
  1297.  
  1298.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
  1299.         SL_error "SL_VALID_CELL", 5, "" '                                                               no, report error to programmer
  1300.     END IF
  1301.  
  1302.     IF (cell < 1) OR (cell > UBOUND(SL_sheet, 2)) THEN '                                                is cell withing range of cells on sheet?
  1303.         SL_VALID_CELL = 0 '                                                                    (FALSE)  no, return false for invalid cell
  1304.     ELSE '                                                                                              yes, within total cells
  1305.         SL_VALID_CELL = -1 '                                                                    (TRUE)  return true for valid cell
  1306.     END IF
  1307.  
  1309.  
  1310. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1311. '                                                                       ----------==========                 ==========----------
  1312. '                                                                       ----------========== MOTION ROUTINES ==========----------
  1313. '                                                                       ----------==========                 ==========----------
  1314. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1315.  
  1316. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1317. SUB SL_REVERSE_MOTIONX (handle AS INTEGER) '                                                                                                                                         SL_REVERSE_MOTIONX
  1318.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1319.  
  1320.     ' declare global variables
  1321.  
  1322.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1323.  
  1324.     ' perform error checks
  1325.  
  1326.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1327.         SL_error "SL_REVERSE_MOTIONX", 1, "" '                                                          no, report error to programmer
  1328.     END IF
  1329.  
  1330.     SL_sprite(handle).x.dir = -SL_sprite(handle).x.dir '                                                reverse x motion direction
  1331.  
  1333.  
  1334. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1335. SUB SL_REVERSE_MOTIONY (handle AS INTEGER) '                                                                                                                                         SL_REVERSE_MOTIONY
  1336.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1337.  
  1338.     ' declare global variables
  1339.  
  1340.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1341.  
  1342.     ' perform error checks
  1343.  
  1344.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1345.         SL_error "SL_REVERSE_MOTIONY", 1, "" '                                                          no, report error to programmer
  1346.     END IF
  1347.  
  1348.     SL_sprite(handle).y.dir = -SL_sprite(handle).y.dir '                                                reverse y motion direction
  1349.  
  1351.  
  1352. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1353. FUNCTION SL_GET_MOTIONX (handle AS INTEGER) '                                                                                                                                            SL_GET_MOTIONX
  1354.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1355.  
  1356.     ' declare global variables
  1357.  
  1358.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1359.  
  1360.     ' perform error checks
  1361.  
  1362.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1363.         SL_error "SL_GET_MOTIONX", 1, "" '                                                              no, report error to programmer
  1364.     END IF
  1365.  
  1366.     SL_GET_MOTIONX = SL_sprite(handle).x.dir '                                                          return x motion direction
  1367.  
  1369.  
  1370. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1371. FUNCTION SL_GET_MOTIONY (handle AS INTEGER) '                                                                                                                                            SL_GET_MOTIONY
  1372.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1373.  
  1374.     ' declare global variables
  1375.  
  1376.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1377.  
  1378.     ' perform error checks
  1379.  
  1380.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1381.         SL_error "SL_GET_MOTIONY", 1, "" '                                                              no, report error to programmer
  1382.     END IF
  1383.  
  1384.     SL_GET_MOTIONY = SL_sprite(handle).y.dir '                                                          return y motion direction
  1385.  
  1387.  
  1388. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1389. SUB SL_SET_MOTIONX (handle AS INTEGER, xdir AS SINGLE) '                                                                                                                                 SL_SET_MOTIONX
  1390.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1391.     ' declare global variables
  1392.  
  1393.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1394.  
  1395.     ' perform error checks
  1396.  
  1397.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1398.         SL_error "SL_SET_MOTIONX", 1, "" '                                                              no, report error to programmer
  1399.     END IF
  1400.  
  1401.     SL_sprite(handle).x.dir = xdir '                                                                    set x motion direction
  1402.  
  1404.  
  1405. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1406. SUB SL_SET_MOTIONY (handle AS INTEGER, ydir AS SINGLE) '                                                                                                                                 SL_SET_MOTIONY
  1407.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1408.  
  1409.     ' declare global variables
  1410.  
  1411.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1412.  
  1413.     ' perform error checks
  1414.  
  1415.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1416.         SL_error "SL_SET_MOTIONY", 1, "" '                                                              no, report error to programmer
  1417.     END IF
  1418.  
  1419.     SL_sprite(handle).y.dir = ydir '                                                                    set y motion direction
  1420.  
  1422.  
  1423. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1424. SUB SL_UPDATE_MOTION (handle AS INTEGER) '                                                                                                                                             SL_UPDATE_MOTION
  1425.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1426.  
  1427.     ' declare global variables
  1428.  
  1429.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1430.  
  1431.     ' perform error checks
  1432.  
  1433.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1434.         SL_error "SL_UPDATE_MOTION", 1, "" '                                                            no, report error to programmer
  1435.     END IF
  1436.     IF SL_sprite(handle).motion.auto THEN '                                                             attempt to move sprite under automatic control?
  1437.         SL_error "SL_UPDATE_MOTION", 16, "" '                                                           yes, report error to programmer
  1438.     END IF
  1439.  
  1440.     SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '                     update x location
  1441.     SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '                     update y location
  1442.     SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                          update sprite location
  1443.  
  1445.  
  1446. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1447. SUB SL_SET_MOTION (handle AS INTEGER, degrees AS INTEGER, speed AS SINGLE, auto AS INTEGER) '                                                                                            SL_SET_MOTION
  1448.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1449.  
  1450.     ' declare global variables
  1451.  
  1452.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1453.  
  1454.     ' perform error checks
  1455.  
  1456.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1457.         SL_error "SL_SET_MOTION", 1, "" '                                                               no, report error to programmer
  1458.     END IF
  1459.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
  1460.         SL_error "SL_SET_MOTION", 7, "" '                                                               no, report error to programmer
  1461.     END IF
  1462.  
  1463.     SL_sprite(handle).motion.speed = speed '                                                            set motion speed of sprite
  1464.     SL_CHANGE_MOTION_DIRECTION handle, SL_FIX_DEGREES(degrees) '                                        set motion angle of sprite
  1465.     SL_sprite(handle).motion.auto = auto '                                        (SL_START & SL_STOP)  set auto-motion of sprite
  1466.  
  1468.  
  1469. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1470. SUB SL_CHANGE_MOTION_DIRECTION (handle AS INTEGER, degrees AS INTEGER) '                                                                                                     SL_CHANGE_MOTION_DIRECTION
  1471.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1472.  
  1473.     ' declare global variables
  1474.  
  1475.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1476.  
  1477.     ' delcare local variables
  1478.  
  1479.     DIM degree AS INTEGER '             degree angle passed in
  1480.  
  1481.     ' perform error checks
  1482.  
  1483.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1484.         SL_error "SL_CHANGE_MOTION_DIRECTION", 1, "" '                                                  no, report error to programmer
  1485.     END IF
  1486.  
  1487.     degree = SL_FIX_DEGREES(degrees) '                                                                  get degree angle passed in
  1488.     SL_sprite(handle).motion.angle = degree '                                                           set motion degree angle
  1489.     SL_sprite(handle).x.dir = SIN(degree * .017453292) * SL_sprite(handle).motion.speed '               calculate x vector
  1490.     SL_sprite(handle).y.dir = -COS(degree * .017453292) * SL_sprite(handle).motion.speed '              calculate y vector
  1491.  
  1493.  
  1494. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1495. FUNCTION SL_GET_MOTION_DIRECTION (handle AS INTEGER) '                                                                                                                          SL_GET_MOTION_DIRECTION
  1496.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1497.  
  1498.     ' declare global variables
  1499.  
  1500.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1501.  
  1502.     ' perform error checks
  1503.  
  1504.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1505.         SL_error "SL_GET_MOTION_DIRECTION", 1, "" '                                                     no, report error to programmer
  1506.     END IF
  1507.  
  1508.     SL_GET_MOTION_DIRECTION = SL_sprite(handle).motion.angle '                                          return direction sprite currently set to
  1509.  
  1511.  
  1512. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1513. SUB SL_CHANGE_MOTION_SPEED (handle AS INTEGER, speed AS SINGLE) '                                                                                                                SL_CHANGE_MOTION_SPEED
  1514.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1515.  
  1516.     ' declare global variables
  1517.  
  1518.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1519.  
  1520.     ' perform error checks
  1521.  
  1522.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1523.         SL_error "SL_CHANGE_MOTION_SPEED", 1, "" '                                                      no, report error to programmer
  1524.     END IF
  1525.  
  1526.     SL_sprite(handle).motion.speed = speed '                                                            set sprite motion speed
  1527.     SL_sprite(handle).x.dir = SIN(SL_sprite(handle).motion.angle * .017453292) * speed '                calculate x vector
  1528.     SL_sprite(handle).y.dir = -COS(SL_sprite(handle).motion.angle * .017453292) * speed '               calculate y vector
  1529.  
  1531.  
  1532. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1533. FUNCTION SL_GET_MOTION_SPEED (handle AS INTEGER) '                                                                                                                                  SL_GET_MOTION_SPEED
  1534.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1535.  
  1536.     ' declare global variables
  1537.  
  1538.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1539.  
  1540.     ' perform error checks
  1541.  
  1542.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1543.         SL_error "SL_GET_MOTION_SPEED", 1, "" '                                                         no, report error to programmer
  1544.     END IF
  1545.  
  1546.     SL_GET_MOTION_SPEED = SL_sprite(handle).motion.speed '                                              return current sprite motion speed
  1547.  
  1549.  
  1550. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1551. SUB SL_CHANGE_AUTOMOTION (handle AS INTEGER, auto AS INTEGER) '                                                                                                                    SL_CHANGE_AUTOMOTION
  1552.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1553.  
  1554.     ' declare global variables
  1555.  
  1556.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1557.  
  1558.     ' perform error checks
  1559.  
  1560.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1561.         SL_error "SL_CHANGE_AUTOMOTION", 1, "" '                                                        no, report error to programmer
  1562.     END IF
  1563.     IF auto = -32767 THEN '                                                                 (SL_RESET)  reset auto motion?
  1564.         SL_sprite(handle).motion.auto = 0 '                                                  (SL_STOP)  yes, turn auto motion off
  1565.     ELSEIF auto < -1 OR auto > 0 THEN '                                           (SL_START & SL_STOP)  valid on/off switch supplied?
  1566.         SL_error "SL_CHANGE_AUTOMOTION", 7, "" '                                                        no, report error to programmer
  1567.     ELSE '                                                                                              yes
  1568.         SL_sprite(handle).motion.auto = auto '                                          (TRUE & FALSE)  set auto motion status
  1569.     END IF
  1570.  
  1572.  
  1573. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1574. FUNCTION SL_GET_AUTOMOTION (handle AS INTEGER) '                                                                                                                                      SL_GET_AUTOMOTION
  1575.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1576.  
  1577.     ' declare global variables
  1578.  
  1579.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1580.  
  1581.     ' perform error checks
  1582.  
  1583.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1584.         SL_error "SL_GET_AUTOMOTION", 1, "" '                                                           no, report error to programmer
  1585.     END IF
  1586.  
  1587.     SL_GET_AUTOMOTION = SL_sprite(handle).motion.auto '                                 (TRUE & FALSE)  return auto motion status
  1588.  
  1590.  
  1591. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1592. '                                                                      ----------==========                   ==========----------
  1593. '                                                                      ----------========== ROTATION ROUTINES ==========----------
  1594. '                                                                      ----------==========                   ==========----------
  1595. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1596.  
  1597. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1598. SUB SL_UPDATE_ROTATION (handle AS INTEGER) '                                                                                                                                         SL_UPDATE_ROTATION
  1599.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1600.  
  1601.     ' declare global variables
  1602.  
  1603.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1604.  
  1605.     ' perform error checks
  1606.  
  1607.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1608.         SL_error "SL_UPDATE_ROTATION", 1, "" '                                                          no, report error to programmer
  1609.     END IF
  1610.     IF SL_sprite(handle).rotation.auto THEN '                                                           attempt to rotate sprite under automatic control?
  1611.         SL_error "SL_UPDATE_ROTATION", 17, "" '                                                         yes, report error to programmer
  1612.     END IF
  1613.  
  1614.     SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle + SL_sprite(handle).rotation.speed '      rotate sprite to next degree angle
  1615.     SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                          update sprite rotation
  1616.  
  1618.  
  1619.  
  1620. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1621. SUB SL_SET_ROTATION (handle AS INTEGER, degrees AS INTEGER, speed AS INTEGER, auto AS INTEGER) '                                                                                        SL_SET_ROTATION
  1622.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1623.  
  1624.     ' declare global variables
  1625.  
  1626.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1627.  
  1628.     ' perform error checks
  1629.  
  1630.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1631.         SL_error "SL_SET_ROTATION", 1, "" '                                                             no, report error to programmer
  1632.     END IF
  1633.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
  1634.         SL_error "SL_SET_ROTATION", 8, "" '                                                             no, report error to programmer
  1635.     END IF
  1636.     IF ABS(degrees) > 359 THEN '                                                                        degree requested between -359 and 359?
  1637.         SL_error "SL_SET_ROTATION", 9, "" '                                                             no, report error to programmer
  1638.     END IF
  1639.  
  1640.     SL_sprite(handle).rotation.speed = speed '                                                          set rotation speed
  1641.     SL_ROTATE_SPRITE handle, degrees '                                                                  set start angle
  1642.     SL_sprite(handle).rotation.auto = auto '                                                            set auto-rotation
  1643.  
  1645.  
  1646. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1647. SUB SL_CHANGE_AUTOROTATION (handle AS INTEGER, auto AS INTEGER) '                                                                                                                SL_CHANGE_AUTOROTATION
  1648.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1649.  
  1650.     ' declare global variables
  1651.  
  1652.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1653.  
  1654.     ' perform error checks
  1655.  
  1656.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1657.         SL_error "SL_CHANGE_AUTOROTATION", 1, "" '                                                      no, report error to programmer
  1658.     END IF
  1659.     IF auto = -32767 THEN '                                                                 (SL_RESET)  reset auto rotate?
  1660.         SL_sprite(handle).rotation.auto = 0 '                                                  (FALSE)  yes, turn auto rotation off
  1661.     ELSEIF auto < -1 OR auto > 0 THEN '                                           (SL_START & SL_STOP)  valid on/off switch supplied?
  1662.         SL_error "SL_CHANGE_AUTOROTATION", 8, "" '                                                      no, report error to programmer
  1663.     ELSE '                                                                                              yes
  1664.         SL_sprite(handle).rotation.auto = auto '                                        (TRUE & FALSE)  set auto rotation status
  1665.     END IF
  1666.  
  1668.  
  1669. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1670. FUNCTION SL_GET_AUTOROTATION (handle AS INTEGER) '                                                                                                                                  SL_GET_AUTOROTATION
  1671.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1672.  
  1673.     ' declare global variables
  1674.  
  1675.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1676.  
  1677.     ' perform error checks
  1678.  
  1679.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1680.         SL_error "SL_GET_AUTOROTATION", 1, "" '                                                         no, report error to programmer
  1681.     END IF
  1682.  
  1683.     SL_GET_AUTOROTATION = SL_sprite(handle).rotation.auto '                             (TRUE & FALSE)  return auto rotation status
  1684.  
  1686.  
  1687. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1688. SUB SL_CHANGE_ROTATION_SPEED (handle AS INTEGER, degrees AS INTEGER) '                                                                                                         SL_CHANGE_ROTATION_SPEED
  1689.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1690.  
  1691.     ' declare global variables
  1692.  
  1693.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1694.  
  1695.     ' perform error checks
  1696.  
  1697.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1698.         SL_error "SL_CHANGE_ROTATION_SPEED", 1, "" '                                                    no, report error to programmer
  1699.     END IF
  1700.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset requested?
  1701.         SL_sprite(handle).rotation.speed = 0 '                                               (SL_STOP)  turn auto spin off
  1702.     ELSEIF ABS(degrees) > 359 THEN '                                                                    degree requested between -359 and 359?
  1703.         SL_error "SL_CHANGE_ROTATION_SPEED", 9, "" '                                                    no, report error to programmer
  1704.     ELSE '                                                                                              yes
  1705.         SL_sprite(handle).rotation.speed = degrees '                                                    set sprite spin rate
  1706.     END IF
  1707.  
  1709.  
  1710. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1711. FUNCTION SL_GET_ROTATION_SPEED (handle AS INTEGER) '                                                                                                                              SL_GET_ROTATION_SPEED
  1712.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1713.  
  1714.     ' declare global variables
  1715.  
  1716.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1717.  
  1718.     ' perform error checks
  1719.  
  1720.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1721.         SL_error "SL_GET_ROTATION_SPEED", 1, "" '                                                       no, report error to programmer
  1722.     END IF
  1723.  
  1724.     SL_GET_ROTATION_SPEED = SL_sprite(handle).rotation.speed '                                          return current sprite spin rate
  1725.  
  1727.  
  1728. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1729. SUB SL_ROTATE_SPRITE (handle AS INTEGER, degrees AS INTEGER) '                                                                                                                         SL_ROTATE_SPRITE
  1730.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1731.  
  1732.     ' declare global variables
  1733.  
  1734.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  1735.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1736.     SHARED SL_angle() AS SL_ANGLE '     master rotation array
  1737.  
  1738.     ' declare local variables
  1739.  
  1740.     DIM sw AS INTEGER '                 width of sprite to be drawn
  1741.     DIM sh AS INTEGER '                 height of sprite to be drawn
  1742.     DIM rw AS INTEGER '                 precalculated rotated sprite width
  1743.     DIM rh AS INTEGER '                 precalculated rotated sprite height
  1744.     DIM px0 AS INTEGER '                precalculated triangular coordinates
  1745.     DIM px1 AS INTEGER
  1746.     DIM px2 AS INTEGER
  1747.     DIM px3 AS INTEGER
  1748.     DIM py0 AS INTEGER
  1749.     DIM py1 AS INTEGER
  1750.     DIM py2 AS INTEGER
  1751.     DIM py3 AS INTEGER
  1752.     DIM image AS LONG '                 software sprite image
  1753.     DIM mask AS LONG '                  software sprite image mask
  1754.     DIM degree AS INTEGER '             angle of rotation
  1755.  
  1756.     ' perform error checks
  1757.  
  1758.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1759.         SL_error "SL_ROTATE_SPRITE", 1, "" '                                                            no, report error to programmer
  1760.     END IF
  1761.  
  1762.     ' check if rotation necessary
  1763.  
  1764.     degree = SL_FIX_DEGREES(degrees) '                                                                  correct degree angle if needed
  1765.  
  1766.     ' get default images and dimensions from sprite sheet
  1767.  
  1768.     image = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).software '                        get image from sprite sheet
  1769.     mask = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).mask '                             get mask from sprite sheet
  1770.     sw = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).swidth '                             get default sprite width from sprite sheet
  1771.     sh = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).cell).sheight '                            get default sprite height from sprite sheet
  1772.  
  1773.     ' free existing images from memory
  1774.  
  1775.     _FREEIMAGE SL_sprite(handle).gfx.software '                                                         free software sprite image
  1776.     IF SL_sprite(handle).gfx.mask THEN _FREEIMAGE SL_sprite(handle).gfx.mask '                          free software mask image
  1777.  
  1778.     ' remove rotation (reset) if requested
  1779.  
  1780.     IF degrees = -32767 OR degree = 0 THEN '                                                (SL_RESET)  reset sprite rotation?
  1781.         SL_sprite(handle).rotation.angle = 0 '                                                          yes, reset rotation angle
  1782.         SL_sprite(handle).swidth = sw '                                                                 save sprite's width
  1783.         SL_sprite(handle).sheight = sh '                                                                save prite's height
  1784.         SL_sprite(handle).gfx.software = _COPYIMAGE(image, 32) '                                        copy software image from sprite sheet
  1785.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
  1786.             SL_sprite(handle).gfx.mask = _COPYIMAGE(mask, 32) '                                         yes, copy software mask from sprite sheet
  1787.         END IF
  1788.         EXIT SUB '                                                                                      no rotation needed, leave subroutine
  1789.     END IF
  1790.  
  1791.     ' rotate sprite
  1792.  
  1793.     rw = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).rwidth '                     get precalculated rotated sprite width
  1794.     rh = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).rheight '                    get precalculated rotated sprite height
  1795.     px0 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).px0 '                       get precalculated triangular coordinates
  1796.     px1 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).px1
  1797.     px2 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).px2
  1798.     px3 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).px3
  1799.     py0 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).py0
  1800.     py1 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).py1
  1801.     py2 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).py2
  1802.     py3 = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, degree).py3
  1803.  
  1804.     SL_sprite(handle).gfx.software = _NEWIMAGE(rw, rh, 32) '                                            create new software sprite image
  1805.     _MAPTRIANGLE (0, 0)-(0, sh - 1)-(sw - 1, sh - 1), image TO(px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).gfx.software ' map rotated sprite onto image
  1806.     _MAPTRIANGLE (0, 0)-(sw - 1, 0)-(sw - 1, sh - 1), image TO(px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).gfx.software
  1807.     IF SL_sprite(handle).transparency THEN '                                                            does this sprite have a mask?
  1808.         SL_sprite(handle).gfx.mask = _NEWIMAGE(rw, rh, 32) '                                            yes, create new software mask image
  1809.         _MAPTRIANGLE (0, 0)-(0, sh - 1)-(sw - 1, sh - 1), mask TO(px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).gfx.mask '  map rotated mask onto image
  1810.         _MAPTRIANGLE (0, 0)-(sw - 1, 0)-(sw - 1, sh - 1), mask TO(px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).gfx.mask
  1811.     END IF
  1812.     SL_sprite(handle).swidth = rw '                                                                     save sprite's rotated width
  1813.     SL_sprite(handle).sheight = rh '                                                                    save sprite's rotated height
  1814.     SL_sprite(handle).rotation.angle = degree '                                                         save sprite's degree of rotation
  1815.  
  1816.  
  1818.  
  1819. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1820. FUNCTION SL_GET_ROTATION_ANGLE (handle AS INTEGER) '                                                                                                                              SL_GET_ROTATION_ANGLE
  1821.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1822.  
  1823.     ' declare global variables
  1824.  
  1825.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1826.  
  1827.     ' perform error checks
  1828.  
  1829.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1830.         SL_error "SL_GET_ROTATION_ANGLE", 1, "" '                                                       no, report error to programmer
  1831.     END IF
  1832.  
  1833.     SL_GET_ROTATION_ANGLE = SL_sprite(handle).rotation.angle '                                          return current angle of rotation
  1834.  
  1836.  
  1837. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1838. FUNCTION SL_FIX_DEGREES (degrees AS INTEGER) '                                                                                                                                           SL_FIX_DEGREES
  1839.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1840.  
  1841.     ' Credits: this function uses code contriibuted by codeguy
  1842.     '          https://www.qb64.org/forum/index.php?topic=537.15
  1843.  
  1844.     'declare local variables
  1845.  
  1846.     DIM degree AS INTEGER '             degree angle passed in
  1847.  
  1848.     ' set local variables
  1849.  
  1850.     degree = degrees MOD 360 '                                                                          get -359 to 359
  1851.     IF degree < 0 THEN '                                                                                need to make positive?
  1852.         SL_FIX_DEGREES = degree + 360 '                                                                 yes, correct value and return degree angle
  1853.     ELSE
  1854.         SL_FIX_DEGREES = degree '                                                                       no correction needed, return degree angle
  1855.     END IF
  1856.  
  1858.  
  1859.  
  1860. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1861. '                                                                      ----------==========                   ==========----------
  1862. '                                                                      ----------========== LOCATION ROUTINES ==========----------
  1863. '                                                                      ----------==========                   ==========----------
  1864. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  1865.  
  1866.  
  1867. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1868. FUNCTION SL_GET_REALX (handle AS INTEGER) '                                                                                                                                                SL_GET_REALX
  1869.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1870.  
  1871.     ' declare global variables
  1872.  
  1873.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1874.  
  1875.     ' perform error checks
  1876.  
  1877.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1878.         SL_error "SL_GET_REALX", 1, "" '                                                                no, report error to programmer
  1879.     END IF
  1880.  
  1881.     SL_GET_REALX = SL_sprite(handle).x.real '                                                           return real number center point x
  1882.  
  1884.  
  1885. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1886. FUNCTION SL_GET_REALY (handle AS INTEGER) '                                                                                                                                                SL_GET_REALY
  1887.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1888.  
  1889.     ' declare global variables
  1890.  
  1891.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1892.  
  1893.     ' perform error checks
  1894.  
  1895.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1896.         SL_error "SL_GET_REALY", 1, "" '                                                                no, report error to programmer
  1897.     END IF
  1898.  
  1899.     SL_GET_REALY = SL_sprite(handle).y.real '                                                           return real number center point y
  1900.  
  1902.  
  1903. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1904. FUNCTION SL_GET_INTX (handle AS INTEGER) '                                                                                                                                                  SL_GET_INTX
  1905.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1906.  
  1907.     ' declare global variables
  1908.  
  1909.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1910.  
  1911.     ' perform error checks
  1912.  
  1913.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1914.         SL_error "SL_GET_INTX", 1, "" '                                                                 no, report error to programmer
  1915.     END IF
  1916.  
  1917.     SL_GET_INTX = SL_sprite(handle).x.int '                                                             return integer number center point x
  1918.  
  1920.  
  1921. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1922. FUNCTION SL_GET_INTY (handle AS INTEGER) '                                                                                                                                                  SL_GET_INTY
  1923.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1924.  
  1925.     ' declare global variables
  1926.  
  1927.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1928.  
  1929.     ' perform error checks
  1930.  
  1931.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1932.         SL_error "SL_GET_INTY", 1, "" '                                                                 no, report error to programmer
  1933.     END IF
  1934.  
  1935.     SL_GET_INTY = SL_sprite(handle).y.int '                                                             return integer number center point x
  1936.  
  1938.  
  1939. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1940. FUNCTION SL_GET_ACTUALX (handle AS INTEGER) '                                                                                                                                            SL_GET_ACTUALX
  1941.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1942.  
  1943.     ' declare global variables
  1944.  
  1945.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1946.  
  1947.     ' perform error checks
  1948.  
  1949.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1950.         SL_error "SL_GET_ACTUALX", 1, "" '                                                              no, report error to programmer
  1951.     END IF
  1952.  
  1953.     SL_GET_ACTUALX = SL_sprite(handle).x.actual '                                                       return integer number upper left point x
  1954.  
  1956.  
  1957. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1958. FUNCTION SL_GET_ACTUALY (handle AS INTEGER) '                                                                                                                                            SL_GET_ACTUALY
  1959.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1960.  
  1961.     ' declare global variables
  1962.  
  1963.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  1964.  
  1965.     ' perform error checks
  1966.  
  1967.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  1968.         SL_error "SL_GET_ACTUALY", 1, "" '                                                              no, report error to programmer
  1969.     END IF
  1970.  
  1971.     SL_GET_ACTUALY = SL_sprite(handle).y.actual '                                                       return integer number upper left point y
  1972.  
  1974.  
  1975. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1976. FUNCTION SL_GET_DISTANCE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                   SL_GET_DISTANCE_POINT_TO_POINT
  1977.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1978.  
  1979.     'declare local variables
  1980.  
  1981.     DIM a AS INTEGER '                  side a of triangle
  1982.     DIM b AS INTEGER '                  side b of triangle
  1983.  
  1984.     'solve for c (hypotenuse)
  1985.  
  1986.     a = x1 - x2 '                                                                                       get length of side a
  1987.     b = y1 = y2 '                                                                                       get length of side b
  1988.  
  1989.     SL_GET_DISTANCE_POINT_TO_POINT = INT(SQR(a * a + b * b)) '                                          return length of side c
  1990.  
  1992.  
  1993. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1994. FUNCTION SL_GET_DISTANCE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                 SL_GET_DISTANCE_TO_SPRITE
  1995.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  1996.  
  1997.     ' declare global variables
  1998.  
  1999.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2000.  
  2001.     'perform error checks
  2002.  
  2003.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
  2004.         SL_error "SL_GET_DISTANCE_TO_SPRITE", 1, "" '                                                   no, report error to programmer
  2005.     END IF
  2006.  
  2007.     SL_GET_DISTANCE_TO_SPRITE = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle1).x.int, SL_sprite(handle1).y.int, _
  2008.                                                                SL_sprite(handle2).x.int, SL_sprite(handle2).y.int) '  return distance to sprite 2
  2009.  
  2011.  
  2012. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2013. FUNCTION SL_GET_DISTANCE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                            SL_GET_DISTANCE_TO_POINT
  2014.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2015.  
  2016.     ' declare global variables
  2017.  
  2018.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2019.  
  2020.     'perform error checks
  2021.  
  2022.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2023.         SL_error "SL_GET_DISTANCE_TO_POINT", 1, "" '                                                    no, report error to programmer
  2024.     END IF
  2025.  
  2026.     SL_GET_DISTANCE_TO_POINT = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle).x.int, SL_sprite(handle).y.int, x, y) ' return distance to point
  2027.  
  2029.  
  2030. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2031. FUNCTION SL_GET_ANGLE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                         SL_GET_ANGLE_POINT_TO_POINT
  2032.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2033.  
  2034.     'declare local variables
  2035.  
  2036.     DIM angle AS INTEGER '              angle from first x,y location to second x,y location
  2037.  
  2038.     IF y1 = y2 THEN '                                                                                   both y values same?
  2039.         IF x1 = x2 THEN '                                                                               yes, both x values same?
  2040.             EXIT FUNCTION '                                                                             yes, there is no angle (0), leave
  2041.         END IF
  2042.         IF x2 > x1 THEN '                                                                               is second x to the right of first x?
  2043.             SL_GET_ANGLE_POINT_TO_POINT = 90 '                                                          yes, the angle must be 90 degrees
  2044.         ELSE '                                                                                          no, second x is to the left of first x
  2045.             SL_GET_ANGLE_POINT_TO_POINT = 270 '                                                         the angle must be 270 degrees
  2046.         END IF
  2047.         EXIT FUNCTION '                                                                                 leave function, angle computed
  2048.     END IF
  2049.     IF x1 = x2 THEN '                                                                                   both x values same?
  2050.         IF y2 > y1 THEN '                                                                               yes, is second y lower than first y?
  2051.             SL_GET_ANGLE_POINT_TO_POINT = 180 '                                                         yes, the angle must be 180
  2052.         END IF
  2053.         EXIT FUNCTION '                                                                                 leave function, angle computed (angle is 0 if no calculation done)
  2054.     END IF
  2055.     angle = ATN((x2 - x1) / (y2 - y1)) * -57.2957795131 '                                               calculate initial angle
  2056.     IF y2 < y1 THEN '                                                                                   is second y higher than first y?
  2057.         IF x2 > x1 THEN '                                                                               yes, is second x to right of first x?
  2058.             SL_GET_ANGLE_POINT_TO_POINT = angle '                                                       yes, angle needs no adjustment
  2059.         ELSE '                                                                                          no, second x is to left of first x
  2060.             SL_GET_ANGLE_POINT_TO_POINT = angle + 360 '                                                 adjust angle accordingly
  2061.         END IF
  2062.     ELSE '                                                                                              no, second y is lower than first y
  2063.         SL_GET_ANGLE_POINT_TO_POINT = angle + 180 '                                                     adjust angle accordingly
  2064.     END IF
  2065.  
  2067.  
  2068. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2069. FUNCTION SL_GET_ANGLE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                       SL_GET_ANGLE_TO_SPRITE
  2070.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2071.  
  2072.     ' declare global variables
  2073.  
  2074.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2075.  
  2076.     'perform error checks
  2077.  
  2078.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
  2079.         SL_error "SL_GET_ANGLE_TO_SPRITE", 1, "" '                                                      no, report error to programmer
  2080.     END IF
  2081.  
  2082.     SL_GET_ANGLE_TO_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle1).x.int, SL_sprite(handle1).y.int, _
  2083.                                                          SL_sprite(handle2).x.int, SL_sprite(handle2).y.int) ' return angle to sprite 2
  2084.  
  2086.  
  2087. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2088. FUNCTION SL_GET_ANGLE_FROM_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                   SL_GET_ANGLE_FROM_SPRITE
  2089.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2090.  
  2091.     ' declare global variables
  2092.  
  2093.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2094.  
  2095.     'perform error checks
  2096.  
  2097.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
  2098.         SL_error "SL_GET_ANGLE_FROM_SPRITE", 1, "" '                                                    no, report error to programmer
  2099.     END IF
  2100.  
  2101.     SL_GET_ANGLE_FROM_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle2).x.int, SL_sprite(handle2).y.int, _
  2102.                                                            SL_sprite(handle1).x.int, SL_sprite(handle1).y.int) '  return angle from sprite 2
  2103.  
  2105.  
  2106. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2107. FUNCTION SL_GET_ANGLE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                                  SL_GET_ANGLE_TO_POINT
  2108.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2109.  
  2110.     ' declare global variables
  2111.  
  2112.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2113.  
  2114.     'perform error checks
  2115.  
  2116.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2117.         SL_error "SL_GET_ANGLE_TO_POINT", 1, "" '                                                       no, report error to programmer
  2118.     END IF
  2119.  
  2120.     SL_GET_ANGLE_TO_POINT = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle).x.int, SL_sprite(handle).y.int, x, y) ' return angle to point x,y
  2121.  
  2123.  
  2124. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2125. FUNCTION SL_GET_ANGLE_FROM_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                              SL_GET_ANGLE_FROM_POINT
  2126.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2127.  
  2128.     ' declare global variables
  2129.  
  2130.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2131.  
  2132.     'perform error checks
  2133.  
  2134.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2135.         SL_error "SL_GET_ANGLE_FROM_POINT", 1, "" '                                                     no, report error to programmer
  2136.     END IF
  2137.  
  2138.     SL_GET_ANGLE_FROM_POINT = SL_GET_ANGLE_POINT_TO_POINT(x, y, SL_sprite(handle).x.int, SL_sprite(handle).y.int) 'return angle from point x,y
  2139.  
  2141.  
  2142. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2143. '                                                                       ----------==========                 ==========----------
  2144. '                                                                       ----------========== SPRITE ROUTINES ==========----------
  2145. '                                                                       ----------==========                 ==========----------
  2146. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2147.  
  2148. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2149. SUB SL_SET_SPRITE_VISIBLE (handle AS INTEGER, visible AS INTEGER) '                                                                                                               SL_SET_SPRITE_VISIBLE
  2150.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2151.  
  2152.     ' declare global variables
  2153.  
  2154.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2155.  
  2156.     ' perform error checks
  2157.  
  2158.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2159.         SL_error "SL_SET_SPRITE_VISIBLE", 1, "" '                                                       no, report error to programmer
  2160.     END IF
  2161.     IF (visible < -1) OR (visible > 0) THEN '                                      (SL_SHOW & SL_HIDE)  valid visible behavior requested?
  2162.         SL_error "SL_SET_SPRITE_VISIBLE", 20, "" '                                                      no, report error to programmer
  2163.     END IF
  2164.  
  2165.     SL_sprite(handle).visible = visible '                                          (SL_SHOW & SL_HIDE)  set visible mode
  2166.  
  2168.  
  2169. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2170. FUNCTION SL_COPY_SPRITE (handle AS INTEGER) '                                                                                                                                            SL_COPY_SPRITE
  2171.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2172.  
  2173.     ' declare global variables
  2174.  
  2175.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2176.  
  2177.     ' declare local variables
  2178.  
  2179.     DIM newhandle AS INTEGER '          handle of copied sprite
  2180.  
  2181.     ' perform error checks
  2182.  
  2183.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2184.         SL_error "SL_COPY_SPRITE", 1, "" '                                                              no, report error to programmer
  2185.     END IF
  2186.  
  2187.     newhandle = 0 '                                                                                     initialize new handle counter
  2188.  
  2189.     ' increase sprite array's size if needed
  2190.  
  2191.     DO '                                                                                                look for next available handle
  2192.         newhandle = newhandle + 1 '                                                                     increment to next handle value
  2193.     LOOP UNTIL (NOT SL_sprite(newhandle).inuse) OR newhandle = UBOUND(SL_sprite) '                      stop looking when valid handle found
  2194.     IF SL_sprite(newhandle).inuse THEN '                                                                is the last array element in use?
  2195.         newhandle = newhandle + 1 '                                                                     yes, increment to next handle value
  2196.         REDIM _PRESERVE SL_sprite(newhandle) AS SL_SPRITE '                                             increase the size of the sprite array
  2197.     END IF
  2198.  
  2199.     ' copy new sprite
  2200.  
  2201.     SL_sprite(newhandle) = SL_sprite(handle) '                                                          copy entire sprite contents
  2202.     SL_sprite(newhandle).gfx.hardware = _COPYIMAGE(SL_sprite(handle).gfx.hardware, 33) '                create an actual copy of the hardware sprite
  2203.     SL_sprite(newhandle).gfx.software = _COPYIMAGE(SL_sprite(handle).gfx.software, 32) '                create an actual copy of the software image
  2204.     IF SL_sprite(handle).gfx.mask THEN '                                                                does the original contain a mask image?
  2205.         SL_sprite(newhandle).gfx.mask = _COPYIMAGE(SL_sprite(handle).gfx.mask, 32) '                    yes, create an actual copy of the software mask image
  2206.     END IF
  2207.  
  2208.     SL_COPY_SPRITE = newhandle '                                                                        return new sprite's handle pointer
  2209.  
  2211.  
  2212. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2213. SUB SL_STAMP_SPRITE (layer AS INTEGER, x AS INTEGER, y AS INTEGER, sheet AS INTEGER, cell AS INTEGER, degrees AS INTEGER, flip AS INTEGER, zoom AS INTEGER) '                           SL_STAMP_SPRITE
  2214.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2215.  
  2216.     ' declare global variables
  2217.  
  2218.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  2219.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2220.  
  2221.     ' declare local variables
  2222.  
  2223.     DIM tempsprite AS LONG '            temporary sprite to stamp
  2224.  
  2225.     ' perform error checks
  2226.  
  2227.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
  2228.         SL_error "SL_STAMP_SPRITE", 5, "" '                                                             no, report error to programmer
  2229.     END IF
  2230.     IF NOT SL_VALID_CELL(sheet, cell) THEN '                                                            valid cell?
  2231.         SL_error "SL_STAMP_SPRITE", 13, "" '                                                            no, report error to programmer
  2232.     END IF
  2233.     IF flip < 0 OR flip > 3 THEN '                                                                      valid flip behavior requested?
  2234.         SL_error "SL_STAMP_SPRITE", 3, "" '                                                             no, report error to programmer
  2235.     END IF
  2236.     IF zoom < 1 THEN '                                                                                  valid zoom level requested?
  2237.         SL_error "SL_STAMP_SPRITE", 4, "" '                                                             no, report error to programmer
  2238.     END IF
  2239.     IF NOT SL_VALID_LAYER(layer) THEN '                                                                 valid layer?
  2240.         SL_error "SL_STAMP_SPRITE", 25, "" '                                                            no, report error to programmer
  2241.     END IF
  2242.  
  2243.     tempsprite = SL_NEW_SPRITE(layer, sheet, cell, 0, 0) '                                              create new temporary software sprite
  2244.     SL_sprite(tempsprite).rotation.speed = SL_FIX_DEGREES(degrees) '                                    set speed of rotation
  2245.     SL_sprite(tempsprite).flip = flip '                                                                 set flipping behavior
  2246.     SL_sprite(tempsprite).zoom = zoom '                                                                 set zoom level
  2247.     SL_PUT_SPRITE x, y, tempsprite '                                                                    place sprite on current destination
  2248.     SL_FREE_SPRITE tempsprite '                                                                         temporary sprite no longer needed
  2249.  
  2251.  
  2252.  
  2253. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2254. SUB SL_SET_SOFTWARE (handle AS INTEGER, restores AS INTEGER) '                                                                                                                          SL_SET_SOFTWARE
  2255.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2256.  
  2257.     ' declare global variables
  2258.  
  2259.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2260.  
  2261.     'perform error checks
  2262.  
  2263.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2264.         SL_error "SL_SET_SOFTWARE", 1, "" '                                                             no, report error to programmer
  2265.     END IF
  2266.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
  2267.         SL_error "SL_SET_SOFTWARE", 2, "" '                                                             no, report error to programmer
  2268.     END IF
  2269.  
  2270.     SL_sprite(handle).software = -1 '                                                    (SL_SOFTWARE)  set sprite to software mode
  2271.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  set background saving behavior
  2272.  
  2274.  
  2275. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2276. SUB SL_SET_HARDWARE (handle AS INTEGER) '                                                                                                                                               SL_SET_HARDWARE
  2277.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2278.  
  2279.     ' declare global variables
  2280.  
  2281.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2282.  
  2283.     'perform error checks
  2284.  
  2285.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2286.         SL_error "SL_SET_HARDWARE", 1, "" '                                                             no, report error to programmer
  2287.     END IF
  2288.  
  2289.     SL_sprite(handle).software = 0 '                                                     (SL_HARDWARE)  set sprite to hardware mode
  2290.  
  2292.  
  2293. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2294. SUB SL_SET_ZOOM (handle AS INTEGER, zoom AS INTEGER) '                                                                                                                                      SL_SET_ZOOM
  2295.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2296.  
  2297.     ' declare global variables
  2298.  
  2299.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2300.  
  2301.     ' perform error checks
  2302.  
  2303.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2304.         SL_error "SL_SET_ZOOM", 1, "" '                                                                 no, report error to programmer
  2305.     END IF
  2306.     IF zoom = -32767 THEN '                                                                 (SL_RESET)  reset zoom level?
  2307.         SL_sprite(handle).zoom = 100 '                                                                  yes, reset level to normal
  2308.     ELSEIF zoom < 1 THEN '                                                                              valid zoom level requested?
  2309.         SL_error "SL_SET_ZOOM", 4, "" '                                                                 no, report error to programmer
  2310.     ELSE '                                                                                              yes
  2311.         SL_sprite(handle).zoom = zoom '                                                                 set zoom level
  2312.     END IF
  2313.  
  2315.  
  2316. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2317. SUB SL_FLIP_SPRITE (handle AS INTEGER, flip AS INTEGER) '                                                                                                                                SL_FLIP_SPRITE
  2318.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2319.  
  2320.     ' declare global variables
  2321.  
  2322.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2323.  
  2324.     ' perform error checks
  2325.  
  2326.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2327.         SL_error "SL_FLIP_SPRITE", 1, "" '                                                              no, report error to programmer
  2328.     END IF
  2329.     IF flip = -32767 THEN '                                                                 (SL_RESET)  reset flipping behavior?
  2330.         SL_sprite(handle).flip = 0 '                                                       (SL_NOFLIP)  yes, reset flip value
  2331.     ELSEIF flip < 0 OR flip > 3 THEN '                                                                  valid flip behavior requested?
  2332.         SL_error "SL_FLIP_SPRITE", 3, "" '                                                              no, report error to programmer
  2333.     ELSE '                                                                                              yes
  2334.         SL_sprite(handle).flip = flip '           (SL_NOFLIP, SL_HORIZONTAL, SL_VERTICAL, SL_FLIPBOTH)  set flipping behavior
  2335.     END IF
  2336.  
  2338.  
  2339. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2340. SUB SL_PUT_SPRITE (x AS SINGLE, y AS SINGLE, handle AS INTEGER) '                                                                                                                         SL_PUT_SPRITE
  2341.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2342.  
  2343.     ' declare global variables
  2344.  
  2345.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2346.     SHARED SL_angle() AS SL_ANGLE '     master rotation array
  2347.  
  2348.     ' declare local variables
  2349.  
  2350.     DIM xa AS INTEGER '                 actual x location of sprite on screen
  2351.     DIM ya AS INTEGER '                 actual y location of sprite on screen
  2352.     DIM sw AS INTEGER '                 width of sprite to be drawn
  2353.     DIM sh AS INTEGER '                 height of sprite to be drawn
  2354.     DIM rw AS INTEGER '                 precalculated rotated sprite width
  2355.     DIM rh AS INTEGER '                 precalculated rotated sprite height
  2356.     DIM px0 AS INTEGER '                precalculated triangular coordinates
  2357.     DIM px1 AS INTEGER
  2358.     DIM px2 AS INTEGER
  2359.     DIM px3 AS INTEGER
  2360.     DIM py0 AS INTEGER
  2361.     DIM py1 AS INTEGER
  2362.     DIM py2 AS INTEGER
  2363.     DIM py3 AS INTEGER
  2364.     DIM image AS LONG '                 software sprite image
  2365.     DIM mask AS LONG '                  software sprite image mask
  2366.     DIM sprite AS LONG '                hardware sprite image
  2367.     DIM odest AS LONG '                 original destination layer
  2368.     DIM osource AS LONG '               original source layer
  2369.     DIM zoomfactor AS SINGLE '          zoom multiplication factor
  2370.     ' perform error checks
  2371.  
  2372.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2373.         SL_error "SL_PUT_SPRITE", 1, "" '                                                               no, report error to programmer
  2374.     END IF
  2375.  
  2376.     'local variable setup
  2377.  
  2378.     'odest = _DEST '                                                                                     save original destination
  2379.     'osource = _SOURCE '                                                                                 save original source
  2380.     odest = SL_GET_DESTINATION_LAYER
  2381.     osource = SL_GET_SOURCE_LAYER
  2382.  
  2383.     SL_sprite(handle).x.real = x '                                                            (SINGLE)  save requested x center location
  2384.     SL_sprite(handle).y.real = y '                                                            (SINGLE)  save requested y center location
  2385.     SL_sprite(handle).x.int = INT(x) '                                                       (INTEGER)  save screen x center location
  2386.     SL_sprite(handle).y.int = INT(y) '                                                       (INTEGER)  save screen y center location
  2387.     sw = SL_sprite(handle).swidth '                                                                     get current sprite width
  2388.     sh = SL_sprite(handle).sheight '                                                                    get current sprite height
  2389.  
  2390.     'update hardware image
  2391.  
  2392.     _FREEIMAGE SL_sprite(handle).gfx.hardware '                                                         free previous hardware sprite image
  2393.     SL_sprite(handle).gfx.hardware = _COPYIMAGE(SL_sprite(handle).gfx.software, 33) '                   create new hardware sprite of image
  2394.  
  2395.     IF SL_sprite(handle).restore THEN '                                                                 is sprite holding a background image?
  2396.         IF SL_sprite(handle).gfx.back THEN '                                                            yes, has a background image been saved yet?
  2397.             SL_SET_DESTINATION_LAYER SL_sprite(handle).layer '                                          yes, set destination layer
  2398.             _PUTIMAGE (SL_sprite(handle).x.back, SL_sprite(handle).y.back), SL_sprite(handle).gfx.back 'replace background with image
  2399.             _FREEIMAGE SL_sprite(handle).gfx.back '                                                     free hardware background image
  2400.         END IF
  2401.         IF NOT SL_sprite(handle).software THEN '                                                        was the sprite type changed?
  2402.             SL_sprite(handle).restore = 0 '                                                (SL_NOSAVE)  yes, stop saving background
  2403.         END IF
  2404.     END IF
  2405.  
  2406.     'adjust zoom level if needed
  2407.  
  2408.     IF SL_sprite(handle).zoom <> 100 THEN '                                                             zoom sprite in/out?
  2409.         zoomfactor = SL_sprite(handle).zoom / 100
  2410.         'sw = sw * SL_sprite(handle).zoom * .01 '\ 100 '                                                        yes, calculate new zoom width
  2411.         'sh = sh * SL_sprite(handle).zoom * .01 '\ 100 '                                                        calculate new zoom height
  2412.         sw = sw * zoomfactor '                                                                          yes, calculate new zoom width
  2413.         sh = sh * zoomfactor '                                                                          calculate new zoom height
  2414.     ELSE
  2415.         zoomfactor = 1
  2416.     END IF
  2417.  
  2418.     'calculate actual sprite screen coordinates
  2419.  
  2420.     xa = SL_sprite(handle).x.int - sw \ 2 '                                                             calculate actual screen x location from center
  2421.     ya = SL_sprite(handle).y.int - sh \ 2 '                                                             calculate actual screen y location from center
  2422.     SL_sprite(handle).x.actual = xa '                                                        (INTEGER)  save actual screen x location
  2423.     SL_sprite(handle).y.actual = ya '                                                        (INTEGER)  save actual screen y location
  2424.  
  2425.     ' update collision box location based on actual x,y location, radius, and zoom factor
  2426.  
  2427.     SL_sprite(handle).collision.x1 = xa + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).x1 * zoomfactor
  2428.     SL_sprite(handle).collision.x2 = xa + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).x2 * zoomfactor
  2429.     SL_sprite(handle).collision.y1 = ya + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).y1 * zoomfactor
  2430.     SL_sprite(handle).collision.y2 = ya + SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).y2 * zoomfactor
  2431.     SL_sprite(handle).collision.radius = SL_angle(SL_sprite(handle).sheet, SL_sprite(handle).cell, SL_sprite(handle).rotation.angle).radius * zoomfactor
  2432.  
  2433.     'get background image before placing sprite if necessary
  2434.  
  2435.     IF SL_sprite(handle).restore THEN '                                                                 is this sprite storing background images?
  2436.         SL_sprite(handle).gfx.back = _NEWIMAGE(sw, sh, 32) '                                            yes, create background image
  2437.         SL_SET_SOURCE_LAYER SL_sprite(handle).layer '                                                   set the source layer
  2438.         _PUTIMAGE , _SOURCE, SL_sprite(handle).gfx.back, (xa, ya)-(xa + sw - 1, ya + sh - 1) '          get background area from current source layer
  2439.         SL_sprite(handle).x.back = xa '                                                                 record background x location
  2440.         SL_sprite(handle).y.back = ya '                                                                 record background y location
  2441.     END IF
  2442.  
  2443.     'use hardware or software image
  2444.  
  2445.     IF SL_sprite(handle).software THEN '                                                                is this a software sprite?
  2446.         sprite = SL_sprite(handle).gfx.software '                                                       yes, use the software image
  2447.         SL_SET_DESTINATION_LAYER SL_sprite(handle).layer '                                              set the destination layer
  2448.     ELSE '                                                                                              no
  2449.         sprite = SL_sprite(handle).gfx.hardware '                                                       use the hardware image
  2450.         SL_SET_DESTINATION_LAYER 1 '                                                                    set the destination layer to first as default
  2451.     END IF
  2452.  
  2453.     ' place sprite on the current destination with desired flip method
  2454.  
  2455.     IF SL_sprite(handle).visible THEN '                                            (SL_SHOW & SL_HIDE)  show this sprite?
  2456.         SELECT CASE SL_sprite(handle).flip '                                                            yes, which flipping style is selected?
  2457.             CASE 0 '                                                                       (SL_NOFLIP)  normal, no flipping
  2458.                 _PUTIMAGE (xa, ya)-(xa + sw - 1, ya + sh - 1), sprite '                                 draw normal sprite
  2459.             CASE 1 '                                                                   (SL_HORIZONTAL)  flip horizontally
  2460.                 _PUTIMAGE (xa + sw - 1, ya)-(xa, ya + sh - 1), sprite '                                 draw horizontally flipped sprite
  2461.             CASE 2 '                                                                     (SL_VERTICAL)  flip vertically
  2462.                 _PUTIMAGE (xa, ya + sh - 1)-(xa + sw - 1, ya), sprite '                                 draw vertically flipped sprite
  2463.             CASE 3 '                                                                     (SL_FLIPBOTH)  flip vertically and horizontally
  2464.                 _PUTIMAGE (xa + sw - 1, ya + sh - 1)-(xa, ya), sprite '                                 draw horizontally and vertically flipped sprite
  2465.         END SELECT
  2466.     END IF
  2467.  
  2468.     '_SOURCE osource '                                                                                   restore original source
  2469.     '_DEST odest '                                                                                       restore original destination
  2470.     SL_SET_SOURCE_LAYER osource
  2471.     SL_SET_DESTINATION_LAYER odest
  2472.  
  2474.  
  2475. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2476. FUNCTION SL_NEW_SPRITE (layer AS INTEGER, sheet AS INTEGER, cell AS INTEGER, software AS INTEGER, restores AS INTEGER) '                                                                  SL_NEW_SPRITE
  2477.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2478.  
  2479.     ' declare global variables
  2480.  
  2481.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  2482.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2483.  
  2484.     ' declare local variables
  2485.  
  2486.     DIM handle AS INTEGER '             handle (pointer) number of new sprite
  2487.  
  2488.     ' perform error checks
  2489.  
  2490.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sprite sheet?
  2491.         SL_error "SL_NEW_SPRITE", 5, "" '                                                               no, report error to programmer
  2492.     END IF
  2493.     IF NOT SL_VALID_CELL(sheet, cell) THEN '                                                            valid cell?
  2494.         SL_error "SL_NEW_SPRITE", 13, "" '                                                              no, report error to programmer
  2495.     END IF
  2496.     IF NOT SL_VALID_LAYER(layer) THEN '                                                                 valid layer?
  2497.         SL_error "SL_NEW_SPRITE", 25, "" '                                                              no, report error to programmer
  2498.     END IF
  2499.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
  2500.         SL_error "SL_NEW_SPRITE", 2, "" '                                                               no, report error to programmer
  2501.     END IF
  2502.     IF software < -1 OR software > 0 THEN '                                                             valid hardware / software setting requested?
  2503.         SL_error "SL_NEW_SPRITE", 112, "" '                                                             no, report error to programmer
  2504.     END IF
  2505.     IF (NOT software) AND restores THEN '                                                               hardware image that restores background?
  2506.         SL_error "SL_NEW_SPRITE", 113, "" '                                                             yes, report error to programmer
  2507.     END IF
  2508.  
  2509.     ' local variable setup
  2510.  
  2511.     handle = 0 '                                                                                        initialize handle value
  2512.  
  2513.     ' increase sprite array's size if needed
  2514.  
  2515.     DO '                                                                                                look for next available handle
  2516.         handle = handle + 1 '                                                                           increment to next handle value
  2517.     LOOP UNTIL (NOT SL_sprite(handle).inuse) OR handle = UBOUND(SL_sprite) '                            stop looking when valid handle found
  2518.     IF SL_sprite(handle).inuse THEN '                                                                   is the last array element in use?
  2519.         handle = handle + 1 '                                                                           yes, increment to next handle value
  2520.         REDIM _PRESERVE SL_sprite(handle) AS SL_SPRITE '                                                increase the size of the sprite array
  2521.     END IF
  2522.  
  2523.     ' populate sprite array, general settings
  2524.  
  2525.     SL_sprite(handle).inuse = -1 '                                                              (TRUE)  mark array index as in use
  2526.     SL_sprite(handle).sheet = sheet '                                                                   point to sheet where sprite resides
  2527.     SL_sprite(handle).cell = cell '                                                                     cell sprite is located in on sheet
  2528.     SL_sprite(handle).software = software '                                (SL_SOFTWARE & SL_HARDWARE)  sprite treated as software or hardware image
  2529.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  background restore behavior of sprite
  2530.     SL_sprite(handle).swidth = SL_sheet(sheet, cell).swidth '                                           get width of sprite
  2531.     SL_sprite(handle).sheight = SL_sheet(sheet, cell).sheight '                                         get height of sprite
  2532.     SL_sprite(handle).flip = 0 '                                                                        no sprite flipping
  2533.     SL_sprite(handle).zoom = 100 '                                                                      zoom normal at 100%
  2534.     SL_sprite(handle).score = 0 '                                                                       no point score
  2535.     SL_sprite(handle).visible = -1 '                                                            (TRUE)  sprite visible on screen
  2536.     SL_sprite(handle).layer = layer '                                                                   set sprite's layer
  2537.  
  2538.  
  2539.     ' mouse settings
  2540.  
  2541.     SL_sprite(handle).mouse.event = 0 '(SL_NOMOUSE, SL_HOVER, SL_LEFTCLICK, SL_RIGHTCLICK, SL_CENTERCLICK) reset mouse interaction
  2542.     SL_sprite(handle).mouse.x = 0 '                                                                     reset mouse pointer locations
  2543.     SL_sprite(handle).mouse.y = 0
  2544.     SL_sprite(handle).mouse.xa = 0
  2545.     SL_sprite(handle).mouse.ya = 0
  2546.  
  2547.     ' collision settings
  2548.  
  2549.     SL_sprite(handle).collision.detect = 0 '                                                            reset collision detection method selected
  2550.     SL_sprite(handle).collision.box = 0 '                                                      (FALSE)  reset box collision detected
  2551.     SL_sprite(handle).collision.round = 0 '                                                    (FALSE)  reset round collision detected
  2552.     SL_sprite(handle).collision.pixel = 0 '                                                    (FALSE)  reset pixel perfect collision detected
  2553.     SL_sprite(handle).collision.with = 0 '                                                              reset collision detected
  2554.     SL_sprite(handle).collision.xpoint = 0 '                                                            reset collision x point
  2555.     SL_sprite(handle).collision.ypoint = 0 '                                                            reset collision y point
  2556.     SL_sprite(handle).collision.radius = 0 '                                                            reset round collision radius
  2557.     SL_sprite(handle).collision.x1 = 0 '                                                                reset sprite's collision box boundaries
  2558.     SL_sprite(handle).collision.y1 = 0
  2559.     SL_sprite(handle).collision.x2 = 0
  2560.     SL_sprite(handle).collision.y2 = 0
  2561.     SL_sprite(handle).collision.cwidth = 0 '                                                            reset collision box width
  2562.     SL_sprite(handle).collision.cheight = 0 '                                                           reset collision box height
  2563.  
  2564.     ' animation settings
  2565.  
  2566.     SL_sprite(handle).animation.cell = cell '                                                           the animation cell this sprite is in
  2567.     SL_sprite(handle).animation.cellfrom = 0 '                                                          reset sprite beginning animation cell
  2568.     SL_sprite(handle).animation.cellto = 0 '                                                            reset sprite ending animation cell
  2569.     SL_sprite(handle).animation.dir = 0 '                      (SL_FORWARD, SL_BACKWARD & SLBACKFORTH)  reset sprite animation direction
  2570.     SL_sprite(handle).animation.mode = 0 '                                                              reset sprite animation mode
  2571.     SL_sprite(handle).animation.frame = 0 '                                                             reset sprite animation frame counter
  2572.     SL_sprite(handle).animation.skip = 0 '                                                              reset sprite animation skip rate
  2573.     SL_sprite(handle).animation.auto = 0 '                                                     (FALSE)  sprite has no auto animation
  2574.  
  2575.     ' x,y location settings
  2576.  
  2577.     SL_sprite(handle).x.real = 0 '                                                                      reset x location of sprite (center x)
  2578.     SL_sprite(handle).y.real = 0 '                                                                      reset y location of sprite (center y)
  2579.     SL_sprite(handle).x.int = 0 '                                                                       reset x location of sprite on screen INT(xreal) (center x)
  2580.     SL_sprite(handle).y.int = 0 '                                                                       reset y location of sprite on screen INT(yreal) (center y)
  2581.     SL_sprite(handle).x.actual = 0 '                                                                    reset x location of sprite on screen (upper left x)
  2582.     SL_sprite(handle).y.actual = 0 '                                                                    reset y location of sprite on screen (upper left y)
  2583.     SL_sprite(handle).x.dir = 0 '                                                                       x direction during motion
  2584.     SL_sprite(handle).y.dir = 0 '                                                                       y direction during motion
  2585.  
  2586.     ' graphics image settings
  2587.  
  2588.     SL_sprite(handle).gfx.back = 0 '                                                                    no background image saved yet
  2589.     SL_sprite(handle).gfx.hardware = _COPYIMAGE(SL_sheet(sheet, cell).software, 33) '                   create hardware sprite image
  2590.     SL_sprite(handle).gfx.software = _COPYIMAGE(SL_sheet(sheet, cell).software, 32) '                   copy software sprite image from sheet
  2591.     IF SL_sheet(sheet, cell).transparency THEN '                                                        does this sprite use transparency?
  2592.         SL_sprite(handle).gfx.mask = _COPYIMAGE(SL_sheet(sheet, cell).mask, 32) '                       yes, copy software sprite mask image from sheet
  2593.         SL_sprite(handle).transparency = -1 '                                                   (TRUE)  remember this sprite has a transparency layer
  2594.     ELSE '                                                                                              no transparency
  2595.         SL_sprite(handle).gfx.mask = 0 '                                                                no mask will be brought in
  2596.         SL_sprite(handle).transparency = 0 '                                                   (FALSE)  remember this sprite has no transparency layer
  2597.     END IF
  2598.  
  2599.     ' rotation settings
  2600.  
  2601.     SL_sprite(handle).rotation.angle = 0 '                                                              no sprite rotation angle
  2602.     SL_sprite(handle).rotation.speed = 0 '                                                              no spin rate
  2603.     SL_sprite(handle).rotation.auto = 0 '                                                      (FALSE)  auto rotation disabled
  2604.  
  2605.     ' motion settings
  2606.  
  2607.     SL_sprite(handle).motion.speed = 0 '                                                                speed during motion
  2608.     SL_sprite(handle).motion.angle = 0 '                                                                direction during motion (0 - 359)
  2609.     SL_sprite(handle).motion.auto = 0 '                                                        (FALSE)  auto motion disabled
  2610.  
  2611.     SL_NEW_SPRITE = handle '                                                                            return pointer value of new sprite
  2612.  
  2614.  
  2615. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2616. SUB SL_FREE_SPRITE (handle AS INTEGER) '                                                                                                                                                 SL_FREE_SPRITE
  2617.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2618.  
  2619.     ' declare global variables
  2620.  
  2621.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2622.  
  2623.     ' check for errors
  2624.  
  2625.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2626.         SL_error "SL_FREE_SPRITE", 1, "" '                                                              no, report error to programmer
  2627.     END IF
  2628.  
  2629.     ' restore background if this sprite saving background
  2630.  
  2631.     IF SL_sprite(handle).restore THEN '                                                                 is there a background image to restore?
  2632.         _PUTIMAGE (SL_sprite(handle).x.back, SL_sprite(handle).y.back), SL_sprite(handle).gfx.back '    yes, restore the image
  2633.         _FREEIMAGE SL_sprite(handle).gfx.back '                                                         free background image
  2634.     END IF
  2635.  
  2636.     ' free all image data associated with sprite
  2637.  
  2638.     IF SL_sprite(handle).gfx.back THEN _FREEIMAGE SL_sprite(handle).gfx.back '                          free background image if present
  2639.     IF SL_sprite(handle).gfx.mask THEN _FREEIMAGE SL_sprite(handle).gfx.mask '                          free sprite mask image if present
  2640.     _FREEIMAGE SL_sprite(handle).gfx.hardware '                                                         free hardware sprite image
  2641.     _FREEIMAGE SL_sprite(handle).gfx.software '                                                         free software sprite image
  2642.  
  2643.     IF (handle = UBOUND(sl_sprite)) AND (handle <> 1) THEN '                                            is handle the last element in array?
  2644.         REDIM _PRESERVE SL_sprite(handle - 1) AS SL_SPRITE '                                            yes, remove index and resize array
  2645.     ELSE '                                                                                              no, index somewhere else
  2646.         SL_sprite(handle).inuse = 0 '                                                          (FALSE)  mark index as usable later
  2647.     END IF
  2648.  
  2650.  
  2651. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2652. FUNCTION SL_VALID_SPRITE (handle AS INTEGER) '                                                                                                                                         SL_VALID_SPRITE
  2653.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2654.  
  2655.     ' declare global variables
  2656.  
  2657.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2658.  
  2659.     IF (handle > UBOUND(SL_SPRITE)) OR (NOT SL_sprite(handle).inuse) OR (handle < 1) THEN '              is this a valid sprite handle?
  2660.         SL_VALID_SPRITE = 0 '                                                                   (FALSE)  no, return 0
  2661.     ELSE '                                                                                               yes, it is valid
  2662.         SL_VALID_SPRITE = -1 '                                                                   (TRUE)  return -1
  2663.     END IF
  2664.  
  2666.  
  2667. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2668. SUB SL_SET_SCORE (handle AS INTEGER, score AS INTEGER) '                                                                                                                                   SL_SET_SCORE
  2669.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2670.  
  2671.     ' declare global variables
  2672.  
  2673.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2674.  
  2675.     ' perform error checks
  2676.  
  2677.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2678.         SL_error "SL_SET_SCORE", 1, "" '                                                                no, report error to programmer
  2679.     END IF
  2680.  
  2681.     SL_sprite(handle).score = score '                                                                   set sprite score
  2682.  
  2684.  
  2685. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2686. FUNCTION SL_GET_SCORE (handle AS INTEGER) '                                                                                                                                                SL_GET_SCORE
  2687.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2688.  
  2689.     ' declare global variables
  2690.  
  2691.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  2692.  
  2693.     ' perform error checks
  2694.  
  2695.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
  2696.         SL_error "SL_GET_SCORE", 1, "" '                                                                no, report error to programmer
  2697.     END IF
  2698.  
  2699.     SL_GET_SCORE = SL_sprite(handle).score '                                                            return sprite score
  2700.  
  2702.  
  2703.  
  2704. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2705. '                                                                       ----------==========                ==========----------
  2706. '                                                                       ----------========== SHEET ROUTINES ==========----------
  2707. '                                                                       ----------==========                ==========----------
  2708. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  2709.  
  2710.  
  2711. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2712. FUNCTION SL_NEW_SHEET (filename AS STRING, swidth AS INTEGER, sheight AS INTEGER, transparency AS INTEGER, transcolor AS _UNSIGNED LONG) '                                                 SL_NEW_SHEET
  2713.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  2714.  
  2715.     ' The saving/loading of rotational data file added from an idea by Bplus
  2716.     ' https://www.qb64.org/forum/index.php?topic=537.30
  2717.  
  2718.     ' declare global variables
  2719.  
  2720.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
  2721.     SHARED SL_angle() AS SL_ANGLE '     precalculated rotation table
  2722.  
  2723.     ' declare local variables
  2724.  
  2725.     DIM handle AS INTEGER '             handle (pointer) number of new sprite sheet
  2726.     DIM x AS INTEGER '                  generic counter to cycle through sheet sprite columns
  2727.     DIM y AS INTEGER '                  generic counter to cycle through sheet sprite rows
  2728.     DIM osource AS LONG '               original source image before this function was called
  2729.     DIM odest AS LONG '                 original destination image before this function was called
  2730.     DIM pixel AS _UNSIGNED LONG '       pixel color at each coordinate in sprite sheet
  2731.     DIM alpha AS _UNSIGNED LONG '       alpha level of current pixel
  2732.     DIM top AS INTEGER '                upper boundary of sprite image
  2733.     DIM bottom AS INTEGER '             lower boundary of sprite image
  2734.     DIM left AS INTEGER '               left boundary of sprite image
  2735.     DIM right AS INTEGER '              right boundary of sprite image
  2736.     DIM sheetimage AS LONG '            sprite sheet image
  2737.     DIM sheetwidth AS INTEGER '         width of sprite sheet in pixels
  2738.     DIM sheetheight AS INTEGER '        height of sprite sheet in pixels
  2739.     DIM rows AS INTEGER '               number of sprite rows contained on sheet
  2740.     DIM columns AS INTEGER '            number of sprite columns contained on sheet
  2741.     DIM clearcolor AS _UNSIGNED LONG '  transcolor passed in will be modified
  2742.     DIM tempsprite AS LONG '            temporary sprite image
  2743.     DIM px(3) AS SINGLE '               polar x coordinates of maptriangle
  2744.     DIM py(3) AS SINGLE '               polar y coordinates of maptriangle
  2745.     DIM sinr AS SINGLE '                sin rotation calculation
  2746.     DIM cosr AS SINGLE '                cosine rotation calculation
  2747.     DIM bx1 AS SINGLE '                 boundaries of collision box
  2748.     DIM bx2 AS SINGLE
  2749.     DIM by1 AS SINGLE
  2750.     DIM by2 AS SINGLE
  2751.     DIM x2 AS SINGLE '                  new computed polar coordinates
  2752.     DIM y2 AS SINGLE
  2753.     DIM cells AS INTEGER '              total number of cells on sheet
  2754.     DIM cell AS INTEGER '               cell counter
  2755.     DIM degree AS INTEGER '             degree counter
  2756.     DIM polar AS INTEGER '              polar coordinate counter
  2757.     DIM xoffset AS INTEGER '            x offset to rotated center
  2758.     DIM yoffset AS INTEGER '            y offset to rotated center
  2759.     DIM xwidth AS INTEGER '             sprite width counter
  2760.     DIM yheight AS INTEGER '            sprite height counter
  2761.     DIM rotfile AS STRING '             name of rotation data file
  2762.     DIM preloaded AS INTEGER '          -1 (TRUE) if rotation data preloaded
  2763.     DIM filenum AS INTEGER '            FREEFILE number
  2764.  
  2765.     ' perform error checks
  2766.  
  2767.     IF NOT _FILEEXISTS(filename) THEN '                                                                 does the sprite sheet exist?
  2768.         SL_error "SL_NEW_SHEET", 100, filename '                                                        no, report error to programmer
  2769.     END IF
  2770.     IF ABS(transparency) > 1 THEN '                                                                     valid transparency setting?
  2771.         SL_error "SL_NEW_SHEET", 101, "" '                                                              no, report error to programmer
  2772.     END IF
  2773.     IF swidth < 1 OR sheight < 1 THEN '                                                                 valid sprite width/height supplied?
  2774.         SL_error "SL_NEW_SHEET", 102, "" '                                                              no, report error to programmer
  2775.     END IF
  2776.     IF transparency = -1 AND UCASE$(RIGHT$(filename, 4)) <> ".PNG" THEN '                               wrong file type for transparency?
  2777.         SL_error "SL_NEW_SHEET", 103, UCASE$(RIGHT$(filename, 4)) '                                     yes, report error to programmer
  2778.     END IF
  2779.  
  2780.     ' local variable setup
  2781.  
  2782.     sheetimage = _LOADIMAGE(filename, 32) '                                                             load sprite sheet file
  2783.     sheetwidth = _WIDTH(sheetimage) '                                                                   get width of sheet
  2784.     sheetheight = _HEIGHT(sheetimage) '                                                                 get height of sheet
  2785.     columns = sheetwidth \ swidth '                                                                     get number of whole columns of sprites
  2786.     rows = sheetheight \ sheight '                                                                      get number of whole rows of sprites
  2787.     cells = rows * columns '                                                                            calculate total number of cells on sheet
  2788.  
  2789.     IF columns < 1 OR rows < 1 THEN '                                                                   at least one sprite column and row on sheet?
  2790.         SL_error "SL_NEW_SHEET", 104, "" '                                                              no, report error to programmer
  2791.     END IF
  2792.  
  2793.     osource = _SOURCE '                                                                                 remember current source image
  2794.     odest = _DEST '                                                                                     remember current destination image
  2795.     handle = 0 '                                                                                        initialize handle value
  2796.     clearcolor = transcolor '                                                                           get background/transparent color passed in
  2797.  
  2798.     ' increase sheet array's 1st dimension if needed to create a new sprite sheet
  2799.  
  2800.     DO '                                                                                                look for the next available handle
  2801.         handle = handle + 1 '                                                                           increment the handle value
  2802.     LOOP UNTIL (NOT SL_sheet(handle, 0).software) OR handle = UBOUND(SL_sheet) '                        stop looking when valid handle value found
  2803.     IF SL_sheet(handle, 0).software = -1 THEN '                                                 (TRUE)  is the last array element in use?
  2804.         handle = handle + 1 '                                                                           yes, increment the handle value
  2805.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2)) AS SL_SHEET '                             create new sheet in sprite array
  2806.         REDIM _PRESERVE SL_angle(handle, UBOUND(SL_angle, 2), 359) AS SL_ANGLE '                        increase rotation array to match
  2807.     END IF
  2808.  
  2809.     ' increase sheet array's 2nd dimension if needed to match number of cells
  2810.  
  2811.     IF cells > UBOUND(SL_sheet, 2) THEN '                                                               more cells in this sheet than others?
  2812.         REDIM _PRESERVE SL_sheet(handle, cells) AS SL_SHEET '                                           yes, increase the array's 2nd dimension to match
  2813.         REDIM _PRESERVE SL_angle(handle, cells, 359) AS SL_ANGLE '                                      increase rotation array to match
  2814.     END IF
  2815.  
  2816.     ' the variables in SL_sheet(x, 0) will serve a dual purpose
  2817.     ' SL_sheet(x, 0).image will contain either -1 (true) or 0 (false) to indicate the first dimension of the array is in use.
  2818.  
  2819.     SL_sheet(handle, 0).software = -1 '                                                         (TRUE)  mark as in use
  2820.  
  2821.     ' identify transparency of sprite sheet if requested
  2822.  
  2823.     IF transparency = -1 THEN '                                                          (SL_USESHEET)  sheet have alpha channel?
  2824.         x = 0 '                                                                                         yes, start at upper left x of sheet
  2825.         y = 0 '                                                                                         start at upper left y of sheet
  2826.         alpha = 255 '                                                                                   assume no alpha channel
  2827.         _SOURCE sheetimage '                                                                            set sprite sheet image as source image
  2828.         DO '                                                                                            start looping through the sheet's pixels
  2829.             pixel = POINT(x, y) '                                                                       get the pixel's color attributes
  2830.             alpha = _ALPHA32(pixel) '                                                                   get the alpha level (0 - 255)
  2831.             IF alpha = 0 THEN EXIT DO '                                                                 if it is transparent then leave the loop
  2832.             x = x + 1 '                                                                                 move right one pixel
  2833.             IF x > sheetwidth THEN '                                                                    have we gone off the sheet?
  2834.                 x = 0 '                                                                                 yes, reset back to the left beginning
  2835.                 y = y + 1 '                                                                             move down one pixel
  2836.             END IF
  2837.         LOOP UNTIL y > sheetheight '                                                                    don't stop until the entire sheet has been checked
  2838.         IF alpha = 0 THEN '                                                                             did we find a transparent pixel?
  2839.             tempsprite = _NEWIMAGE(1, 1, 32) '                                                          yes, create a temporary image         * why did I have to do
  2840.             _CLEARCOLOR pixel, tempsprite '                                                             set pixel found as transparent        * this hack to get
  2841.             clearcolor = _CLEARCOLOR(tempsprite) '                                                      get the transparent color from image  * clearcolor to come out
  2842.             _FREEIMAGE tempsprite '                                                                     temporary image no longer needed      * to the right value?
  2843.         ELSE '                                                                                          no transparency found within sheet
  2844.             transparency = 1 '                                                                          set sheet to having no alpha channel
  2845.         END IF
  2846.     ELSEIF transparency = 0 THEN '                                                            (SL_SET)  manually set alpha channel?
  2847.         _CLEARCOLOR clearcolor, sheetimage '                                                            yes, set color as transparent
  2848.         clearcolor = _CLEARCOLOR(sheetimage) '                                                          get the transparent color ************* again, why this hack?
  2849.     END IF
  2850.  
  2851.     ' preload rotational data if it exists
  2852.  
  2853.     rotfile = LEFT$(filename, INSTR(filename, ".") - 1) + ".rot" '                                      the name of the rotational data file
  2854.     IF _FILEEXISTS(rotfile) THEN '                                                                      does it exist?
  2855.         preloaded = -1 '                                                                                yes, remember that data has been preloaded
  2856.         filenum = FREEFILE
  2857.         OPEN rotfile FOR BINARY AS filenum '                                                            open it for reading
  2858.         FOR x = 1 TO cells '                                                                            cycle through all animation cells
  2859.             FOR y = 0 TO 359 '                                                                          and their associated rotational data
  2860.                 GET #1, , SL_angle(handle, x, y) '                                                      get the data
  2861.             NEXT y
  2862.         NEXT x
  2863.         CLOSE filenum '                                                                                 close the file
  2864.     END IF
  2865.  
  2866.     ' load sprites from sheet and place into sprite array
  2867.  
  2868.     x = 0 '                                                                                             reset column counter
  2869.     DO '                                                                                                cycle through sheet's columns
  2870.         x = x + 1 '                                                                                     increment column counter
  2871.         y = 0 '                                                                                         reset row counter
  2872.         DO '                                                                                            cycle through sheet's rows
  2873.             y = y + 1 '                                                                                 increment row counter
  2874.             cell = (y - 1) * columns + x '                                                              calculate current cell number
  2875.             SL_sheet(handle, cell).software = _NEWIMAGE(swidth, sheight, 32) '                          create software sprite image
  2876.  
  2877.             SL_sheet(handle, cell).swidth = swidth
  2878.             SL_sheet(handle, cell).sheight = sheight
  2879.  
  2880.  
  2881.             IF transparency < 1 THEN '                                                                  should a mask be created?
  2882.                 SL_sheet(handle, cell).mask = _NEWIMAGE(swidth, sheight, 32) '                          yes, create software sprite mask image
  2883.                 _DEST SL_sheet(handle, cell).mask '                                                     write to the mask image
  2884.             ELSE '                                                                                      no software mask image
  2885.                 SL_sheet(handle, cell).transparency = 0 '                                      (FALSE)  set sprite as having no transparency
  2886.             END IF
  2887.             _PUTIMAGE , sheetimage, SL_sheet(handle, cell).software,_
  2888.                 ((x - 1) * swidth, (y - 1) * sheight)-_
  2889.                 ((x - 1) * swidth + swidth - 1, (y - 1) * sheight + sheight - 1) '                      copy sprite from sheet and place in sprite image
  2890.  
  2891.             ' precalculate collision boundaries and update sprite mask if needed
  2892.  
  2893.             _SOURCE SL_sheet(handle, cell).software '                                                   work from the software sprite image
  2894.             top = sheight - 1 '                                                                         set initial collision boundary markers
  2895.             left = swidth - 1
  2896.             bottom = 0
  2897.             right = 0
  2898.  
  2899.             xwidth = 0 '                                                                                reset width counter
  2900.             DO '                                                                                        cycle through width of sprite
  2901.                 yheight = 0 '                                                                           reset height counter
  2902.                 DO '                                                                                    cycle through height of sprite
  2903.                     IF POINT(xwidth, yheight) <> clearcolor THEN '                                      is this pixel a transparent/background color?
  2904.                         IF xwidth < left THEN left = xwidth '                                           no, save position if left-most pixel
  2905.                         IF yheight < top THEN top = yheight '                                           save position if top-most pixel
  2906.                         IF xwidth > right THEN right = xwidth '                                         save position if right-most pixel
  2907.                         IF yheight > bottom THEN bottom = yheight '                                     save position if bbottom-most pixel
  2908.                     END IF
  2909.                     IF transparency < 1 THEN '                                                          update software sprite mask?
  2910.                         IF POINT(xwidth, yheight) = clearcolor THEN '                                   yes, is this pixel a transparent/background color?
  2911.                             PSET (xwidth, yheight), _RGB32(255, 255, 255) '                             yes, set as white on the mask image
  2912.                         END IF
  2913.                     END IF
  2914.                     yheight = yheight + 1 '                                                             increment height counter
  2915.                 LOOP UNTIL yheight = sheight '                                                          leave when height of sprite reached (-1)
  2916.                 xwidth = xwidth + 1 '                                                                   increment width counter
  2917.             LOOP UNTIL xwidth = swidth '                                                                leave when width of sprite reached (-1)
  2918.  
  2919.             SL_angle(handle, cell, 0).x1 = left '                                                       collision box top left x
  2920.             SL_angle(handle, cell, 0).y1 = top '                                                        collision box top left y
  2921.             SL_angle(handle, cell, 0).x2 = right '                                                      collision box bottom right x
  2922.             SL_angle(handle, cell, 0).y2 = bottom '                                                     collision box bottom right y
  2923.             SL_angle(handle, cell, 0).cwidth = right - left '                                           remember collision box width
  2924.             SL_angle(handle, cell, 0).cheight = bottom - top '                                          remember collision box height
  2925.             SL_angle(handle, cell, 0).radius = (SL_angle(handle, cell, 0).cwidth + SL_angle(handle, cell, 0).cheight) \ 4 ' calculate round collision radius
  2926.  
  2927.             IF NOT preloaded THEN
  2928.  
  2929.                 degree = 0 '                                                                            reset degree counter
  2930.                 DO '                                                                                    cycle from 1 to 359 degrees
  2931.                     degree = degree + 1 '                                                               increment degree counter
  2932.                     'px(0) = (-swidth + 1) / 2 '                                                         upper left  x polar coordinate of sprite
  2933.                     'py(0) = (-sheight + 1) / 2 '                                                        upper left  y polar coordinate of sprite
  2934.                     px(0) = -swidth / 2 '                                                               upper left  x polar coordinate of sprite
  2935.                     py(0) = -sheight / 2 '                                                              upper left  y polar coordinate of sprite
  2936.                     px(1) = px(0) '                                                                     lower left  x polar coordinate of sprite
  2937.                     'py(1) = (sheight -1) / 2 '                                                          lower left  y polar coordinate of sprite
  2938.                     'px(2) = (swidth - 1) / 2 '                                                          lower right x polar coordinate of sprite
  2939.                     py(1) = sheight / 2 '                                                               lower left  y polar coordinate of sprite
  2940.                     px(2) = swidth / 2 '                                                                lower right x polar coordinate of sprite
  2941.                     py(2) = py(1) '                                                                     lower right y polar coordinate of sprite
  2942.                     px(3) = px(2) '                                                                     upper right x polar coordinate of sprite
  2943.                     py(3) = py(0) '                                                                     upper right y polar coordinate of sprite
  2944.                     sinr = SIN(-degree / 57.2957795131) '                                               calculate the sin of rotation
  2945.                     cosr = COS(-degree / 57.2957795131) '                                               calculate the cosine of rotation
  2946.                     bx1 = 0 '                                                                           upper left x boundary of sprite
  2947.                     by1 = 0 '                                                                           upper left y boundary of sprite
  2948.                     bx2 = 0 '                                                                           lower right x boundary of sprite
  2949.                     by2 = 0 '                                                                           lower right y boundary of sprite
  2950.  
  2951.                     polar = 0 '                                                                         reset counter
  2952.                     DO '                                                                                cycle through all four polar coordinates (0 to 3)
  2953.                         x2 = (px(polar) * cosr + sinr * py(polar)) '                                    compute new polar coordinate location
  2954.                         y2 = (py(polar) * cosr - px(polar) * sinr) '                                    compute new polar coordinate location
  2955.                         px(polar) = x2 '                                                                save the new polar coordinate
  2956.                         py(polar) = y2 '                                                                save the new polar coordinate
  2957.                         IF px(polar) < bx1 THEN bx1 = px(polar) '                                       save lowest  x value seen \  NOTE: use for
  2958.                         IF px(polar) > bx2 THEN bx2 = px(polar) '                                       save highest x value seen  \ background image         <--------------------- LOOK
  2959.                         IF py(polar) < by1 THEN by1 = py(polar) '                                       save lowest  y value seen  / rectangle coordinates
  2960.                         IF py(polar) > by2 THEN by2 = py(polar) '                                       save highest y value seen /
  2961.                         polar = polar + 1 '                                                             increment counter
  2962.                     LOOP UNTIL polar = 4 '                                                              leave when all coordinates calculated
  2963.  
  2964.                     SL_angle(handle, cell, degree).rwidth = bx2 - bx1 + 1 '                             calculate width of rotated sprite
  2965.                     SL_angle(handle, cell, degree).rheight = by2 - by1 + 1 '                            calculate height of rotated sprite
  2966.                     xoffset = SL_angle(handle, cell, degree).rwidth \ 2 '                               calculate x offset
  2967.                     yoffset = SL_angle(handle, cell, degree).rheight \ 2 '                              calculate y offset
  2968.                     SL_angle(handle, cell, degree).px0 = px(0) + xoffset '                              add offsets to coordinates
  2969.                     SL_angle(handle, cell, degree).px1 = px(1) + xoffset
  2970.                     SL_angle(handle, cell, degree).px2 = px(2) + xoffset
  2971.                     SL_angle(handle, cell, degree).px3 = px(3) + xoffset
  2972.                     SL_angle(handle, cell, degree).py0 = py(0) + yoffset
  2973.                     SL_angle(handle, cell, degree).py1 = py(1) + yoffset
  2974.                     SL_angle(handle, cell, degree).py2 = py(2) + yoffset
  2975.                     SL_angle(handle, cell, degree).py3 = py(3) + yoffset
  2976.  
  2977.                     ' rotate image here to get rotated collision box info
  2978.  
  2979.                     tempsprite = _NEWIMAGE(SL_angle(handle, cell, degree).rwidth, SL_angle(handle, cell, degree).rheight, 32) ' create temp image using precalculated width/height
  2980.                 _MAPTRIANGLE (0, 0)-(0, sheight - 1)-(swidth - 1, sheight - 1), SL_sheet(handle, cell).software TO _
  2981.                              (SL_angle(handle, cell, degree).px0, SL_angle(handle, cell, degree).py0)-(SL_angle(handle, cell, degree).px1,_
  2982.                               SL_angle(handle, cell, degree).py1)-(SL_angle(handle, cell, degree).px2, SL_angle(handle, cell, degree).py2), tempsprite ' map rotated sprite onto temp image
  2983.                 _MAPTRIANGLE (0, 0)-(swidth - 1, 0)-(swidth - 1, sheight - 1), SL_sheet(handle, cell).software TO _
  2984.                              (SL_angle(handle, cell, degree).px0, SL_angle(handle, cell, degree).py0)-(SL_angle(handle, cell, degree).px3,_
  2985.                               SL_angle(handle, cell, degree).py3)-(SL_angle(handle, cell, degree).px2, SL_angle(handle, cell, degree).py2), tempsprite
  2986.  
  2987.                     ' precalculate rotated collision boundaries
  2988.  
  2989.                     _SOURCE tempsprite '                                                                work from the temp image
  2990.                     top = SL_angle(handle, cell, degree).rheight - 1 '                                  set initial collision boundary markers
  2991.                     left = SL_angle(handle, cell, degree).rwidth - 1
  2992.                     bottom = 0
  2993.                     right = 0
  2994.  
  2995.                     xwidth = 0 '                                                                        reset width counter
  2996.                     DO '                                                                                cycle through width of rotated sprite
  2997.                         yheight = 0 '                                                                   reset height counter
  2998.                         DO '                                                                            cycle through height of rotated sprite
  2999.                             IF POINT(xwidth, yheight) <> clearcolor THEN '                              is this pixel a transparent/background color?
  3000.                                 IF xwidth < left THEN left = xwidth '                                   no, save position if left-most pixel
  3001.                                 IF yheight < top THEN top = yheight '                                   save position if top-most pixel
  3002.                                 IF xwidth > right THEN right = xwidth '                                 save position if right-most pixel
  3003.                                 IF yheight > bottom THEN bottom = yheight '                             save position if bbottom-most pixel
  3004.                             END IF
  3005.                             yheight = yheight + 1 '                                                     increment height counter
  3006.                         LOOP UNTIL yheight = SL_angle(handle, cell, degree).rheight '                   leave when height of rotated sprite reached (-1)
  3007.                         xwidth = xwidth + 1 '                                                           increment width counter
  3008.                     LOOP UNTIL xwidth = SL_angle(handle, cell, degree).rwidth '                         leave when width of rotated sprite reached (-1)
  3009.  
  3010.                     _FREEIMAGE tempsprite '                                                             temp image no longer needed
  3011.                     SL_angle(handle, cell, degree).x1 = left '                                          collision box top left x
  3012.                     SL_angle(handle, cell, degree).y1 = top '                                           collision box top left y
  3013.                     SL_angle(handle, cell, degree).x2 = right '                                         collision box bottom right x
  3014.                     SL_angle(handle, cell, degree).y2 = bottom '                                        collision box bottom right y
  3015.                     SL_angle(handle, cell, degree).cwidth = right - left '                              remember collision box width
  3016.                     SL_angle(handle, cell, degree).cheight = bottom - top '                             remember collision box height
  3017.                     SL_angle(handle, cell, degree).radius = (SL_angle(handle, cell, degree).cwidth + SL_angle(handle, cell, degree).cheight) \ 4 ' calculate round collision radius
  3018.                 LOOP UNTIL degree = 359 '                                                               leave when all degree angles calculated
  3019.  
  3020.             END IF ' preloaded
  3021.  
  3022.         LOOP UNTIL y = rows '                                                                           leave when all rows processed
  3023.     LOOP UNTIL x = columns '                                                                            leave when all columns processed
  3024.  
  3025.     _FREEIMAGE sheetimage '                                                                             sprite sheet image no longer needed
  3026.  
  3027.     _SOURCE osource '                                                                                   return source to current
  3028.     _DEST odest '                                                                                       return destination to current
  3029.  
  3030.     IF NOT _FILEEXISTS(rotfile) THEN '                                                                  does it exist?
  3031.         filenum = FREEFILE
  3032.         OPEN rotfile FOR BINARY AS filenum '                                                            no, open it for writing
  3033.         FOR x = 1 TO cells '                                                                            cycle through all sprite cells
  3034.             FOR y = 0 TO 359 '                                                                          and their rotational angles
  3035.                 PUT #1, , SL_angle(handle, x, y) '                                                      put the data
  3036.             NEXT y
  3037.         NEXT x
  3038.         CLOSE filenum '                                                                                 close the file
  3039.     END IF
  3040.  
  3041.     SL_NEW_SHEET = handle '                                                                             return the handle number pointing to this sheet
  3042.  
  3044.  
  3045. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3046. FUNCTION SL_VALID_SHEET (sheet AS INTEGER) '                                                                                                                                             SL_VALID_SHEET
  3047.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3048.  
  3049.     ' declare global variables
  3050.  
  3051.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
  3052.  
  3053.     IF (sheet > UBOUND(SL_sheet)) OR (sheet < 1) THEN '                                                 is this a valid sheet?
  3054.         SL_VALID_SHEET = 0 '                                                                   (FALSE)  no, return false
  3055.     ELSEIF NOT SL_sheet(sheet, 0).software THEN '                                                       is sprite sheet in use?
  3056.         SL_VALID_SHEET = 0 '                                                                   (FALSE)  no, return false
  3057.     ELSE '                                                                                              everything checks out
  3058.         SL_VALID_SHEET = -1 '                                                                   (TRUE)  return true
  3059.     END IF
  3060.  
  3062.  
  3063.  
  3064. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  3065. '                                                                      ----------==========                   ==========----------
  3066. '                                                                      ----------========== INTERNAL USE ONLY ==========----------
  3067. '                                                                      ----------==========                   ==========----------
  3068. 'ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
  3069.  
  3070.  
  3071. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3072. SUB SL_update_auto_sprites (software AS INTEGER) '                                                                                                                               SL_update_auto_sprites
  3073.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3074.  
  3075.     ' declare global variables
  3076.  
  3077.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
  3078.     SHARED SL_global AS SL_GLOBAL '     common globals array
  3079.  
  3080.     ' declare local variables
  3081.  
  3082.     DIM handle AS INTEGER '             handle of sprite
  3083.     DIM nextcell AS SINGLE '            draw (-1 TRUE) or skip (0 FALSE) next animation cell
  3084.  
  3085.     ' local variable setup
  3086.  
  3087.     handle = 0 '                                                                                        initialize handle counter
  3088.  
  3089.     DO '                                                                                                cycle through all sprite indexes
  3090.         handle = handle + 1 '                                                                           increment to next sprite handle
  3091.         IF SL_sprite(handle).software = software THEN '                                                 hardware or software type equal to requested type?
  3092.             IF SL_sprite(handle).inuse AND (SL_sprite(handle).motion.auto OR _
  3093.                                             SL_sprite(handle).rotation.auto OR _
  3094.                                             SL_sprite(handle).animation.auto) THEN '                    yes, is this sprite being used and automagically controlled?
  3095.  
  3096.                 ' auto motion
  3097.  
  3098.                 IF SL_sprite(handle).motion.auto THEN '                                                 yes, is auto motion enabled?
  3099.                     SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '     yes, update x location
  3100.                     SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '     update y location
  3101.                 END IF
  3102.  
  3103.  
  3104.                 ' auto animation
  3105.  
  3106.                 IF SL_sprite(handle).animation.auto THEN '                                              is auto animation enabled?
  3107.                     IF SL_sprite(handle).animation.skip = 0 THEN '                                      yes, always go to next cell?
  3108.                         nextcell = -1 '                                                         (TRUE)  yes, draw next cell
  3109.                     ELSE '                                                                              no
  3110.  
  3111.                         ' decide to draw or skip next cell
  3112.  
  3113.                         SL_sprite(handle).animation.frame = SL_sprite(handle).animation.frame + 1 '     increment frame counter
  3114.                         IF SL_sprite(handle).animation.skip = SL_sprite(handle).animation.frame THEN '  time to skip or go to next cell?
  3115.                             SL_sprite(handle).animation.frame = 0 '                                     yes, reset the frame counter
  3116.                             IF SL_sprite(handle).animation.framerate >= SL_global.framerate \ 2 THEN '  should this cell be skipped?
  3117.                                 nextcell = 0 '                                                 (FALSE)  yes, skip next cell
  3118.                             ELSE '                                                                      no
  3119.                                 nextcell = -1 '                                                 (TRUE)  go to next cell
  3120.                             END IF
  3121.                         ELSEIF SL_sprite(handle).animation.framerate >= SL_global.framerate \ 2 THEN '  no, is sprite frame rate equal or greater than half global frame rate?
  3122.                             nextcell = -1 '                                                             yes, go to next cell
  3123.                         END IF
  3124.                     END IF
  3125.  
  3126.                     ' draw next cell
  3127.  
  3128.                     IF nextcell THEN '                                                                  update animation cell?
  3129.                         SELECT CASE SL_sprite(handle).animation.mode '                                  which animation mode is this sprite using?
  3130.                             CASE 0 '                                                      (SL_FORWARD)  move forward through the cells
  3131.                                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + 1 ' increment animation cell
  3132.                                 IF SL_sprite(handle).animation.cell > SL_sprite(handle).animation.cellto THEN ' passed the last cell?
  3133.                                     SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom ' yes, go back to first cell
  3134.                                 END IF
  3135.                             CASE 1 '                                                     (SL_BACKWARD)  move backward through the cells
  3136.                                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell - 1 ' decrement animation cell
  3137.                                 IF SL_sprite(handle).animation.cell < SL_sprite(handle).animation.cellfrom THEN ' passed the first cell?
  3138.                                     SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto ' yes, go back to last cell
  3139.                                 END IF
  3140.                             CASE 2 '                                                    (SL_BACKFORTH)  ping-pong back and forth through the cells
  3141.                                 SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cell + SL_sprite(handle).animation.dir ' increment/decrement animation cell
  3142.                                 IF SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellto OR _
  3143.                                     SL_sprite(handle).animation.cell = SL_sprite(handle).animation.cellfrom THEN ' is this the first or last cell?
  3144.                                     SL_sprite(handle).animation.dir = -SL_sprite(handle).animation.dir 'yes, reverse animation direction
  3145.                                 END IF
  3146.                         END SELECT
  3147.                         SL_sprite(handle).cell = SL_sprite(handle).animation.cell '                     update current sprite cell
  3148.                         IF SL_sprite(handle).rotation.angle AND (NOT SL_sprite(handle).rotation.auto) THEN ' is this animation currently rotated but not automatic?
  3149.                             SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle '                 yes, this new cell will need manually rotated as well
  3150.                         END IF
  3151.                     END IF
  3152.                 END IF
  3153.  
  3154.                 ' auto rotation
  3155.  
  3156.                 IF SL_sprite(handle).rotation.auto THEN '                                               is auto rotation enabled?
  3157.                     SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle + SL_sprite(handle).rotation.speed ' yes, rotate sprite to next degree angle
  3158.                 END IF
  3159.  
  3160.                 SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '              update sprite motion location, rotation, and animation
  3161.             END IF
  3162.         END IF
  3163.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when all indexes checked
  3164.  
  3166.  
  3167. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3168. FUNCTION SL_min (a AS INTEGER, b AS INTEGER) '                                                                                                                                                   SL_min
  3169.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3170.  
  3171.     IF a < b THEN '                                                                                     is a the smaller number?
  3172.         SL_min = a '                                                                                    yes, return a
  3173.     ELSE '                                                                                              no, b is smaller number
  3174.         SL_min = b '                                                                                    return b (or a = b)
  3175.     END IF
  3176.  
  3178.  
  3179. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3180. FUNCTION SL_max (a AS INTEGER, b AS INTEGER) '                                                                                                                                                   SL_max
  3181.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3182.  
  3183.     IF a > b THEN '                                                                                     is a the larger number?
  3184.         SL_max = a '                                                                                    yes, return a
  3185.     ELSE '                                                                                              no, b is the larger number
  3186.         SL_max = b '                                                                                    return b (or a = b)
  3187.     END IF
  3188.  
  3190.  
  3191. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3192. SUB SL_error (routine AS STRING, errno AS INTEGER, info AS STRING) '                                                                                                                           SL_error
  3193.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
  3194.  
  3195.     SCREEN 0, 0, 0, 0 '                                                                                 go to a pure text screen
  3196.     _FONT 16 '                                                                                          set the standard screen 0 font
  3197.     IF _FULLSCREEN THEN _FULLSCREEN _OFF '                                                              turn off full screen if on
  3198.     _AUTODISPLAY '                                                                                      auto update the display
  3199.     CLS '                                                                                               clear the screen
  3200.     COLOR 10, 0
  3201.     PRINT "                   **************************************" '                                 print error header
  3202.     PRINT "                   ** Sprite Library Error Encountered **"
  3203.     PRINT "                   **************************************"
  3204.     PRINT
  3205.     COLOR 15, 0
  3206.     PRINT " "; routine;
  3207.     COLOR 7, 0
  3208.     PRINT " has reported error";
  3209.     COLOR 30, 0
  3210.     PRINT STR$(errno)
  3211.     COLOR 7, 0
  3212.     PRINT
  3213.     SELECT CASE errno '                                                                                 which error number is being reported?
  3214.  
  3215.         ' general purpose errors for all subs/functions
  3216.  
  3217.         CASE 1
  3218.             PRINT "- the requested sprite does not exist"
  3219.         CASE 2
  3220.             PRINT "- invalid background restore setting supplied - valid settings are"
  3221.             PRINT "- : -1 (constant SL_SAVE)"
  3222.             PRINT "- :  0 (constant SL_NOSAVE)"
  3223.         CASE 3
  3224.             PRINT "- invalid flip setting supplied - valid settings are"
  3225.             PRINT "- : 0 (constant SL_NOFLIP or SL_RESET)"
  3226.             PRINT "- : 1 (constant SL_HORIZONTAL)"
  3227.             PRINT "- : 2 (constant SL_VERTICAL)"
  3228.             PRINT "- : 3 (constant SL_FLIPBOTH)"
  3229.         CASE 4
  3230.             PRINT "- invalid zoom level setting supplied"
  3231.             PRINT "- zoom level must be greater than zero (0)"
  3232.         CASE 5
  3233.             PRINT "- the specified sprite sheet is not in use or does not exist"
  3234.         CASE 6
  3235.             PRINT "- invalid row or column selected for specified sprite sheet"
  3236.         CASE 7
  3237.             PRINT "- invalid auto motion behavior requested - valid settings are"
  3238.             PRINT "- : -1 (constant SL_START)"
  3239.             PRINT "- :  0 (constant SL_STOP)"
  3240.         CASE 8
  3241.             PRINT "- invalid auto rotation behavior requested - valid settings are"
  3242.             PRINT "- : -1 (constant SL_START)"
  3243.             PRINT "- :  0 (constant SL_STOP)"
  3244.         CASE 9
  3245.             PRINT "- rotation speed must be between -359 and 359 degrees"
  3246.         CASE 10
  3247.             PRINT "- frame rate must be greater than zero (0)"
  3248.         CASE 11
  3249.             PRINT "- frame rate must be greater than zero (0) and less than or equal"
  3250.             PRINT "- to the global frame rate"
  3251.         CASE 12
  3252.             PRINT "- incorrect animation direction mode setting - valid settings are"
  3253.             PRINT "- : 0 (constant SL_FORWARD)"
  3254.             PRINT "- : 1 (constant SL_BACKWARD)"
  3255.             PRINT "- : 2 (constant CL_BACKFORTH"
  3256.         CASE 13
  3257.             PRINT "- invalid cell value given - it must be greater than 0 and less"
  3258.             PRINT "- than or equal to the total number of animation cells on a sheet"
  3259.         CASE 14
  3260.             PRINT "- invalid auto animation behavior requested - valid settings are"
  3261.             PRINT "- : -1 (constant SL_START)"
  3262.             PRINT "- :  0 (constant SL_STOP)"
  3263.         CASE 15
  3264.             PRINT "- animation has not been assigned to this sprite - use"
  3265.             PRINT "- SL_SET_ANIMATION to assign animation to this sprite"
  3266.         CASE 16
  3267.             PRINT "- this srpite is already under auto motion control"
  3268.             PRINT "- use SL_CHANGE_AUTOMOTION to disable auto motion control"
  3269.         CASE 17
  3270.             PRINT "- this sprite is already under auto rotation control"
  3271.             PRINT "- use SL_CHANGE_AUTOROTATION to disable auto rotation control"
  3272.         CASE 18
  3273.             PRINT "- this sprite is already under auto animation control"
  3274.             PRINT "- use SL_CHNAGE_AUTOANIMATION to disable auto animation control"
  3275.         CASE 19
  3276.             PRINT "- the destination cell must be greater than the starting cell"
  3277.         CASE 20
  3278.             PRINT "- invalid visible setting reguested - valid setting are"
  3279.             PRINT "- : -1 (constant SL_SHOW)"
  3280.             PRINT "- :  0 (constant SL_HIDE)"
  3281.         CASE 21
  3282.             PRINT "- the sprite being checked for collisions has no collision detection"
  3283.             PRINT "- enabled - use SL_XXXXXXXXXX to turn on collision detection for"
  3284.             PRINT "- the sprite"
  3285.         CASE 22
  3286.             PRINT "- the sprite being checked for a collision with has no collision"
  3287.             PRINT "- detection enabled - use SL_XXXXXXX to turn on collision detection"
  3288.             PRINT "- for the sprite"
  3289.         CASE 23
  3290.             PRINT "- both sprites must have the same collision detection method"
  3291.         CASE 24
  3292.             PRINT "- invalid collision detection mode requested - valid settings are"
  3293.             PRINT "- : 0 (constant SL_NODETECT or SL_RESET)"
  3294.             PRINT "- : 1 (constant SL_BOXDETECT)"
  3295.             PRINT "- : 2 (constant SL_ROUNDDETECT)"
  3296.             PRINT "- : 3 (constant SL_PIXELDETECT)"
  3297.         CASE 25
  3298.             PRINT "- invalid layer requested - the layer does not exist"
  3299.         CASE 26
  3300.             PRINT "- you must create at least one (1) layer"
  3301.  
  3302.             ' errors belonging to SL_NEW_SHEET (100 - 109)
  3303.  
  3304.         CASE 100
  3305.             PRINT "- "; CHR$(34); info; CHR$(34); " sprite sheet does not exist"
  3306.             PRINT "- check path or spelling"
  3307.         CASE 101
  3308.             PRINT "- invalid transparency setting supplied - valid settings are"
  3309.             PRINT "- : -1 (constant SL_USESHEET)"
  3310.             PRINT "- :  0 (constant SL_SET)"
  3311.             PRINT "- :  1 (constant SL_NONE)"
  3312.         CASE 102
  3313.             PRINT "- sprite width and/or height must be greater than zero"
  3314.         CASE 103
  3315.             PRINT "- selecting to use a sheet's transparency only works with .PNG files"
  3316.             PRINT "- the function was passed a "; info; " file."
  3317.         CASE 104
  3318.             PRINT "- there must be at least one column and one row of sprites on sheet"
  3319.             PRINT "- the sheet being loaded does not meet these minimums"
  3320.  
  3321.             'errors belonging to SL_NEW_SPRITE (110 - 119)
  3322.  
  3323.             'CASE 110
  3324.             '    PRINT "- the specified sprite sheet is not in use or does not exist"
  3325.             'CASE 111
  3326.             '    PRINT "- invalid row or column selected for specified sprite sheet"
  3327.         CASE 112
  3328.             PRINT "- invalid hardware / software setting supplied - valid settings are"
  3329.             PRINT "- : -1 (constant SL_SOFTWARE)"
  3330.             PRINT "- :  0 (constant SL_HARDWARE)"
  3331.         CASE 113
  3332.             PRINT "- there is no need to restore the background with hardware sprites"
  3333.             PRINT "- change background restore setting to zero (0) (constant SL_NOSAVE)"
  3334.  
  3335.     END SELECT
  3336.     COLOR 12, 0
  3337.     PRINT
  3338.     PRINT " See sprite library doumentation for further explanation."
  3339.     COLOR 7, 0
  3340.     DO: LOOP UNTIL INKEY$ = "" '                                                                        clear the keyboard buffer
  3341.     END '                                                                                               end the program
  3342.  

25
QB64 Discussion / Efficient Mathematics
« on: September 28, 2018, 07:20:39 pm »
Since my sprite library is using hella math at places I decided to see if I could make it more efficient. I assumed that integer division would be faster than regular division and that reciprocal multiplication would be faster than both. When I ran the following code I was a bit surprised.

Turns out regular division is usually faster in QB64?

Code: QB64: [Select]
  1. t = TIMER
  2. FOR i = 1 TO 1000000
  3.     FOR k = 1 TO 100
  4.         j = i \ 100
  5.     NEXT k
  7. t2 = TIMER
  8. FOR i = 1 TO 1000000
  9.     FOR k = 1 TO 100
  10.         j = i / 100
  11.     NEXT k
  13. t3 = TIMER
  14. FOR i = 1 TO 1000000
  15.     FOR k = 1 TO 100
  16.         j = i * .01
  17.     NEXT k
  19. t4 = TIMER
  20.  
  21. PRINT USING "##.#### integer division"; t2 - t
  22. PRINT USING "##.#### regular division"; t3 - t2
  23. PRINT USING "##.#### reciprocal multiplication"; t4 - t3
  24.  

26
QB64 Discussion / Hardware vs Software Screens
« on: September 27, 2018, 12:41:33 pm »
The subject is a bit misleading, but here is my situation.

I'm currently working on adding layers to the sprite library. Think of each layer as a separate screen where sprites and other objects designated as belonging to a layer do their thing only on that layer. Sprites on layer 3 for instance can't interact (collide) with sprites on layer 4. Other layers could be used for scrolling backgrounds to create parallax scenery, etc..

Each layer consists of a software and hardware image. The software image is used for software based sprite images, drawing commands (CIRCLE, LINE, etc..), background images, and any other software based images. The hardware layer is used just before a display update by copying the software image to a hardware image (33) and then displaying that layer on the screen. Since hardware sprite images don't actually "attach" themselves to a software based image when using _PUTIMAGE they are not drawn until all software layers have been drawn, converted to hardware, and then displayed.

My question is: is there any real benefit to converting the layers to hardware before displaying?

I'm beginning to wonder if there is even a need for any sprite to be software based at all.

In my loop where software and hardware sprites are drawn before updating the screen, do I need to identify and draw software sprites first, then identify hardware sprites and draw them after the layer's have been merged, or will _DISPLAYORDER _SOFTWARE _HARDWARE take care of this for me?

I don't know why I am having difficulty wrapping my head around this, but something just doesn't seem right with the way QB64 handles software and hardware images and the way they interact, or is that just stinkin' thinkin' on my part?

27
QB64 Discussion / The _HYPOT command
« on: September 22, 2018, 10:57:25 pm »
When I run the test code below provided by Steve I get:

1.539 seconds for Hypot
1.367 seconds for Math stuff

_HYPOT should be faster, correct?

This is curious, change the first line to read:

_DEFINE A-Z AS INTEGER

I get:

2.000 seconds for Hypot
1.000 seconds for Math stuff

Now that's too perfect to be a coincidence?

Code: QB64: [Select]
  2.  
  3. t = TIMER
  4. FOR a = 1 TO 10000
  5.     FOR b = 1 TO 1000
  6.         c = _HYPOT(a, b)
  7.     NEXT
  9. t2 = TIMER
  10.  
  11. FOR a = 1 TO 10000
  12.     FOR b = 1 TO 1000
  13.         c = SQR(a ^ 2 + b ^ 2)
  14.     NEXT
  16. t3 = TIMER
  17.  
  18. PRINT USING "##.### seconds for Hypot"; t2 - t
  19. PRINT USING "##.### seconds for Math stuff"; t3 - t2
  20.  

28
QB64 Discussion / Math wizards, I need help
« on: September 21, 2018, 06:34:40 pm »
I've got a bad cold today and can't think. I have a math problem here that needs solved but I just can't seem to get my mind wrapped around it.

I'm setting up independent frames rates for the sprite library's animation routines. The main loop will be the main frame rate, then each sprite will have it's own frame rate it can be drawn at.

Consider the following:

Main Frame Rate = 30
Sprite Frame Rate = 20
Frames To Skip = 10 (30 - 20) main frame rate - sprite frame rate
SKIP every 3rd frame (30 / 10) main frame rate / frames to skip

Main Frame Rate = 30
Sprite Frame Rate = 15
Frames To Skip = 15 (30 - 15) main frame rate - sprite frame rate
SKIP every 2nd frame (30 / 15) main frame rate / frames to skip


everything above this line we need to SKIP frames
-------------------------- (main frame rate / 2)
everything below this line we need to DRAW frames

Main Frame Rate = 30
Sprite Frame Rate = 10
DRAW every 3rd frame (30 / 10) main frame rate / sprite frame rate

Main Frame Rate = 30
Sprite Frame Rate = 5
DRAW every 6th frame (30 / 5) main frame rate / sprite frame rate

As you can see sprites would either need to be drawn or skipped at certain intervals to achieve their frame rate within the main frame rate. Any sprite frame rate that is equal to or greater than the main frame rate divided by two will require having a frame drawing SKIPPED now and then.

Any sprite frame rate that is less than the main frame rate divided by two will require having a frame drawing DRAWN now and then.

Is there an algorithm that sums this all up or will I need to manually code for two separate instances? It feels like there is a really simple solution here but I'll be darned if I can see it.

29
QB64 Discussion / Why does this keep appearing in the IDE?
« on: September 13, 2018, 05:37:38 pm »
Why does that back arrow keep appearing in the IDE offering to take me back to previous lines? (see picture below). What is it, what triggers it, and how do I stop it from appearing? Every now and then when I want to click on file I hit it instead.

Thanks.

30
QB64 Discussion / Show us where the QB64 magic happens!
« on: September 08, 2018, 06:31:58 pm »
Post a pic of your rig where your QB64 goodness is cooked.

I would have put this in the off-topic area but you can't attach pictures there?

Pages: 1 [2] 3 4