Neko the Cat!

[TerryRitchie]

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
257. END TYPE
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
328. END SUB
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
344. END SUB
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
355. END SUB
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
375. END SUB
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
421. END SUB
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.  
437. END SUB
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.  
505. END SUB
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.  
558. END SUB
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.  
600. END SUB
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.  
625. END SUB
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.  
650. END SUB
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.  
662. END FUNCTION
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.  
674. END FUNCTION
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.  
706. END SUB
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.  
722. END FUNCTION
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.  
734. END FUNCTION
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.  
746. END FUNCTION
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.  
767. END SUB
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.  
844. END FUNCTION
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.  
863. END FUNCTION
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.  
882. END FUNCTION
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.  
901. END FUNCTION
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.  
920. END FUNCTION
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.  
939. END FUNCTION
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.  
1084. END FUNCTION
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.  
1094. END FUNCTION
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.  
1110. END FUNCTION
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.  
1188. END FUNCTION
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.  
1211. END SUB
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.  
1261. END SUB
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.  
1273. END FUNCTION
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.  
1315. END SUB
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.  
1354. END SUB
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.  
1379. END SUB
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.  
1400. END SUB
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.  
1463. END SUB
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.  
1481. END FUNCTION
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.  
1499. END FUNCTION
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.  
1521. END SUB
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.  
1541. END FUNCTION
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.  
1565. END SUB
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.  
1583. END SUB
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.  
1601. END FUNCTION
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.  
1619. END FUNCTION
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.  
1636. END SUB
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.  
1654. END SUB
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.  
1677. END SUB
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.  
1700. END SUB
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.  
1725. END SUB
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.  
1743. END FUNCTION
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.  
1763. END SUB
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.  
1781. END FUNCTION
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.  
1804. END SUB
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.  
1822. END FUNCTION
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.  
1849. END SUB
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.  
1876. END SUB
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.  
1899. END SUB
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.  
1917. END FUNCTION
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.  
1940. END SUB
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.  
1958. END FUNCTION
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.  
1980. END SUB
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.  
1998. END FUNCTION
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.  
2020. END FUNCTION
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.  
2046. END FUNCTION
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.  
2064. END FUNCTION
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.  
2082. END FUNCTION
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.  
2100. END FUNCTION
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.  
2118. END FUNCTION
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.  
2136. END FUNCTION
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.  
2154. END FUNCTION
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.  
2172. END FUNCTION
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.  
2190. END FUNCTION
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.  
2208. END FUNCTION
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.  
2226. END FUNCTION
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.  
2245. END FUNCTION
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.  
2263. END FUNCTION
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.  
2301. END FUNCTION
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.  
2320. END FUNCTION
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.  
2339. END FUNCTION
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.  
2357. END FUNCTION
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.  
2375. END FUNCTION
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.  
2402. END SUB
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.  
2445. END FUNCTION
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.  
2490. END SUB
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.  
2513. END SUB
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.  
2536. END SUB
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.  
2564. END SUB
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.  
2774. END SUB
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.  
2909. END FUNCTION
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.  
2935. END SUB
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.  
2954. END FUNCTION
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.  
2972. END SUB
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.  
2990. END FUNCTION
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.  
3330. END FUNCTION
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.  
3348. END FUNCTION
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.  
3476. END FUNCTION
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.  
3488. END FUNCTION
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.  
3642. END SUB
3643.  
3644.  

[FellippeHeitor]

This is adorable! I can't be playing with kittens at work! Make it stahp!

I'll seriously get to studying this sample tonight, thanks for sharing, Terry!

[TerryRitchie]

I found myself playing with the cat way too much as well when I was coding and debugging it. Addictive. :)

[bplus]

Hey very cute!

[TerryRitchie]

Line 446 in SUB ChaseThe (mouse, neko) should read:

Code: QB64: [Select]

1.     mouseangle = SL_GET_ANGLE_TO_SPRITE(neko, mouse)

I forgot to change that before uploading

Edit: I changed the code above in the original post.

[Pete]

That's the cat's ASCII!

Pete :D

[TerryRitchie]

That's the cat's ASCII!

Pete :D

LOL, your comments always crack me up.

Totally awesome!!!!  Thank you TerryRitchie!

You're welcome :)

[Dav]

This is neat, Terry!  Nice work.  Your sprite library is looking great!

- Dav

[TempodiBasic]

Hi Terry
Neko the cat is very beautyfull!

And you have waked up in my mind another windows' cat: Felix.
see here https://i.ytimg.com/vi/QfYy89F2uHk/hqdefault.jpg
and here https://www.youtube.com/watch?v=SqII8cvJWpA
and here https://www.youtube.com/watch?v=QfYy89F2uHk
be careful for your ears!

Thanks