Hunter's Revenge by Ashish

[Qwerkey]

Hunter's Revenge

Author: @Ashish
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=345.msg2322#msg2322
Version: « Reply #7 on: July 18, 2018, 12:48:12 PM »
Tags: [Graphics], [2D], [Shoot 'Em]

Description:
You got a gun, and what you have to do is shoot down the objects you see on screen.  The game have different weather conditions as well as different areas.

Controls:
Use mouse movement to change your target. Use left click to shoot and right click to change gun. Use 'Esc' or Middle button to pause during gameplay.

Source Code:

Code: QB64: [Select]

1. '################################################################
2. '      H U N T E R ' S    R E V E N G E    2 0 1 7 - 1 8
3. '                  By Ashish Kushwaha
4. '         **** Hit F5 and Enjoy the Game!! ****
5. 'Note :-
6. 'The executable should be inside Hunter-Revenge folder
7. 'If you are facing any problem, report it at Qb64.org Forum
8. '
9. '*** Tell Me You You Think About This Game On Twitter with @KingOfCoders ***
10. '
11. '################################################################
12.  
13. '$CONSOLE
14. '_CONSOLETITLE "Hunter's Revenge [DEBUG_OUTPUT]"
15.  
16. IF COMMAND$(1) = "--reset" THEN
17.     INPUT "Are you sure that you want to reset the game? (Y/N) ", dummy$1
18.     IF UCASE$(dummy$1) = "Y" THEN KILL "Save_Game/save.dat": createConfig: SYSTEM
19. END IF
20.  
21. 'App icon
22. $EXEICON:'Hunter-Revenge-master/Images/game.ico'
23. tmp_icon& = _LOADIMAGE("Images/cursor.png", 32)
24. _CLEARCOLOR _RGB(255, 255, 255), tmp_icon&
25. _ICON tmp_icon&
26. _FREEIMAGE tmp_icon&
27.  
28. DO: LOOP UNTIL _SCREENEXISTS
29. RANDOMIZE TIMER
30. '$include:'Vendor/spritetop.bi'
31. _DELAY 1
32. _MOUSEHIDE
33.  
34. _TITLE "Hunter's Revenge"
35.  
36. SCREEN _NEWIMAGE(800, 600, 32)
37. DO: LOOP UNTIL _SCREENEXISTS
38.  
39. ' ON ERROR GOTO 404
40.  
41. _DISPLAYORDER _SOFTWARE , _HARDWARE , _GLRENDER , _HARDWARE1
42.  
43. 'Notification Section
44. DIM SHARED NEvent, NFPSCount%, NImage&, NText$, NShow AS _BYTE
45.  
46. 'Frame Rate Section
47. DIM SHARED FPSEvent, FPSEvt, FPSCurrent%, FPSRate%, FPSBg&
48.  
49. 'Loader Section
50. DIM SHARED Loader&, LoaderX%, LoaderY%, LoaderCF%, LoaderEvt!
51. LoaderX% = 730: LoaderY% = 500
52.  
53. 'Game Types
54. TYPE GameMenu
55.     click AS _BYTE
56.     hover AS _BYTE
57.     y AS INTEGER
58.     img AS LONG
59.     img2 AS LONG 'software image
60. END TYPE
61.  
62. TYPE Mousetype
63.     x AS INTEGER
64.     y AS INTEGER
65.     lclick AS _BYTE
66.     rclick AS _BYTE
67.     mclick AS _BYTE
68.     cursor AS LONG
69.     cursor2 AS LONG
70.     hovering AS _BYTE
71. END TYPE
72.  
73. TYPE fonttype
74.     smaller AS LONG
75.     normal AS LONG
76.     bigger AS LONG
77.     biggest AS LONG
78. END TYPE
79. 'game objects
80.  
81. TYPE explosiontype
82.     x AS INTEGER
83.     y AS INTEGER
84.     img AS INTEGER
85.     active AS _BYTE
86.     currentFrame AS INTEGER
87.     totalFrames AS INTEGER
88.     f AS INTEGER
89.     n AS INTEGER
90. END TYPE
91.  
92. TYPE guntype
93.     name AS STRING * 32
94.     damage AS INTEGER
95.     id AS INTEGER
96.     img AS LONG
97. END TYPE
98.  
99. TYPE Enemies
100.     x AS INTEGER ' x position
101.     y AS INTEGER ' y position
102.     typ AS STRING * 16 'type of enemie
103.     life AS INTEGER 'life of the enemie
104.     life2 AS INTEGER 'backup of life
105.     damage AS INTEGER 'useless
106.     ending AS _BYTE 'enemie is dead or not
107.     img AS INTEGER 'sprite handle
108.     active AS _BYTE 'enemie is active or not
109.     u AS LONG 'delay (in milliseconds) after which enemie will show up in his scene in gameplay
110.     n AS INTEGER 'delay between change of frame of animation
111.     f AS INTEGER 'increment varible, if greater than above 'n', then frame is change
112.     m AS DOUBLE 'movement speed
113.     points AS INTEGER 'holds point
114.     scene AS INTEGER 'hold scene
115.     snd AS LONG 'hold sound handle
116.     sndPaused AS _BYTE ' = true when sound is paused.
117. END TYPE
118.  
119. TYPE Levels
120.     enemies AS INTEGER 'total enemies in a level
121.     scenes AS INTEGER 'total scenes in a level
122.     currentScene AS INTEGER 'current scene of the gameplay
123.     completed AS _BYTE 'level has been completed or not
124.     u AS LONG 'current frame of the gameplay (always increases during gameplay)
125.     over AS _BYTE ' level has been over or not
126.     background AS STRING * 64 'background image path of the level
127.     bg AS LONG 'background image handle of the level
128.     mode AS INTEGER 'MODs of the game. Can be either THUNDERMODE, STORMMODE, FOGMODE, THUNDERMODE+FOGMODE, THUNDERMODE+STORMMODE
129.     cancel AS _BYTE 'level has been cancel or not
130.     time AS _UNSIGNED INTEGER 'number of seconds a level has to be completed in (in seconds).
131. END TYPE
132.  
133. TYPE fog
134.     x AS INTEGER
135.     move AS INTEGER
136.     handle AS LONG
137. END TYPE
138.  
139. TYPE drops
140.     x AS INTEGER
141.     y AS INTEGER
142.     z AS INTEGER
143.     len AS DOUBLE
144.     yspeed AS DOUBLE
145.     gravity AS DOUBLE
146. END TYPE
147.  
148. TYPE Settings
149.     fullscreen AS _BYTE
150.     music AS _BYTE
151.     sfx AS _BYTE
152.     musicV AS DOUBLE
153.     sfxV AS DOUBLE
154.     SE AS _BYTE
155.     fps AS INTEGER
156.     done AS _BYTE
157. END TYPE
158.  
159. 'score flasher
160. TYPE scoreFlasher
161.     x AS SINGLE
162.     y AS SINGLE
163.     img AS LONG
164.     active AS _BYTE
165.     sclX AS SINGLE
166.     sclY AS SINGLE
167.     __ops AS SINGLE
168. END TYPE
169.  
170. ' TYPE Vector_Particles_Text_Type
171. ' x AS SINGLE 'x position
172. ' y AS SINGLE 'y position
173. ' vx AS SINGLE 'visual x
174. ' vy AS SINGLE 'visual y
175. ' delX AS SINGLE 'delta velocity
176. ' delY AS SINGLE 'delta velocity
177. ' dist AS SINGLE 'distance
178. ' distX AS SINGLE ' distance x
179. ' distY AS SINGLE 'distance y
180. ' k AS SINGLE
181. ' END TYPE
182.  
183. '$DYNAMIC
184.  
185. RANDOMIZE TIMER
186. DIM SHARED W AS Settings
187. readConfig
188.  
189. 'DIM SHARED Paused AS _BYTE
190.  
191. 'REDIM SHARED Text_Particles(1) AS Vector_Particles_Text_Type
192.  
193. 'DIM SHARED Text_Particles_Status, Text_Particles_Color AS _UNSIGNED LONG
194.  
195. DIM SHARED randomLevels AS _BYTE 'Computer chooses level! ^_*
196.  
197. DIM SHARED Menubg&, GlobalEvent, TimerEvent, GameRenderingEvent, Minutes%, Seconds%
198.  
199. DIM SHARED Mouse AS Mousetype
200.  
201. DIM SHARED Fonts AS fonttype
202.  
203. DIM SHARED GameMenus(19) AS GameMenu
204.  
205. DIM SHARED MenuBlood%, MenuChoice
206.  
207. DIM SHARED ShotScore(5) AS scoreFlasher
208.  
209. DIM SHARED explosions(20) AS explosiontype, Gun AS guntype, Bloods(50) AS explosiontype
210.  
211. DIM SHARED Level AS Levels
212.  
213. DIM SHARED HighScore%, LevelStage%, LevelStage2%, CurrentScore%
214.  
215. DIM SHARED ScoreBoard&, GunImg&(1), OldScore%, OldSeconds%
216.  
217. DIM SHARED Musics&(2)
218.  
219. RANDOMIZE TIMER
220. 'Rains
221. DIM SHARED Drop(700) AS drops
222. DIM SHARED Rainx8&, Rainx16&, RainLight&, RainSound&, RainVol#, ThunderCount, ThunderEvent
223.  
224.  
225.  
226. 'max level
227. CONST MAX_LEVEL = 14
228. 'storm
229. DIM SHARED StormImg&, StormX%
230.  
231. 'Sparks
232. DIM SHARED ExplosionsZ(1) AS explosiontype
233.  
234. 'MODS
235. CONST FOGMODE = 1
236. CONST THUNDERMODE = 3
237. CONST STORMMODE = 5
238. DIM SHARED Fogs AS fog
239.  
240. 'SFXs
241. DIM SHARED Eagle&
242. DIM SHARED Bird&
243. DIM SHARED Crow&
244. DIM SHARED Expos&
245. DIM SHARED Jet&
246. DIM SHARED Gun1&
247. DIM SHARED Gun2&
248.  
249. 'Enemies scores image
250. DIM SHARED scoresImage(5) AS LONG
251.  
252. REDIM SHARED Enemie(0) AS Enemies
253.  
254. DIM SHARED Jet1_Sheet%
255. DIM SHARED Jet2_Sheet%
256. DIM SHARED Jet3_Sheet%
257. DIM SHARED Bird_Sheet%
258. DIM SHARED Crow_Sheet%
259. DIM SHARED eagle_Sheet%
260. DIM SHARED blood_Sheet%
261. DIM SHARED explosion_Sheet%
262. DIM SHARED spark_Sheet%
263. DIM SHARED lifeBars(99) AS LONG
264.  
265. FPSEvent = _FREETIMER 'Event for showing current FPS (Frame Per Second)
266. FPSEvt = _FREETIMER 'Event for calculating current FPS (Frame Per Second)
267. GlobalEvent = _FREETIMER 'Event for game main menu
268. TimerEvent = _FREETIMER 'Event of timer which is displayed during gameplay
269. GameRenderingEvent = _FREETIMER 'Event in which level objects are rendered.
270. NEvent = _FREETIMER ' Global Event for notification
271.  
272. 'Splash Screen
273.  
274. Splash
275.  
276.  
277. LoaderStart
278.  
279. loadComponents
280. 'cursors
281. Mouse.cursor = _LOADIMAGE("Images/cursor.png", 33)
282. Mouse.cursor2 = _LOADIMAGE("Images/cursor2.png", 33)
283.  
284. 'fonts
285. Fonts.biggest = _LOADFONT("Font/ARDESTINE.ttf", 68)
286. Fonts.bigger = _LOADFONT("Font/ARDESTINE.ttf", 40)
287. Fonts.smaller = _LOADFONT("Font/arial.ttf", 12, "dontblend")
288. Fonts.normal = _LOADFONT("Font/ARDESTINE.ttf", 24)
289.  
290. 'scores image
291.  
292. scoresImage(0) = _LOADIMAGE("Images/10.png", 33)
293. scoresImage(1) = _LOADIMAGE("Images/20.png", 33)
294. scoresImage(2) = _LOADIMAGE("Images/35.png", 33)
295. scoresImage(3) = _LOADIMAGE("Images/50.png", 33)
296. scoresImage(4) = _LOADIMAGE("Images/75.png", 33)
297. scoresImage(5) = _LOADIMAGE("Images/100.png", 33)
298.  
299. 'fogs
300. Fogs.x = 0
301. Fogs.move = 1
302. Fogs.handle = _LOADIMAGE("Images/fogs_.png", 33)
303.  
304. 'rains
305. Rainx8& = _LOADIMAGE("Images/rainx8.png", 33)
306. Rainx16& = _LOADIMAGE("Images/rainx16.png", 33)
307.  
308.  
309. 'storm
310. StormImg& = _LOADIMAGE("Images\storm.png", 33) 'we're using hardware image
311.  
312. 'LifeBars
313. DIM i AS INTEGER, r AS INTEGER, g AS INTEGER
314. FOR i = 0 TO 99
315.     lifeBars(i) = _NEWIMAGE(100, 6, 32)
316.     _DEST lifeBars(i)
317.     r = p5map(i + 1, 1, 100, 255, 0)
318.     g = p5map(i + 1, 1, 100, 0, 255)
319.     LINE (0, 0)-(100, 6), _RGB(0, 0, 0), BF
320.     LINE (0, 0)-(i + 1, 6), _RGB(r, g, 0), BF
321.     LINE (0, 0)-(99, 5), _RGB(255, 255, 255), B
322.     _DEST 0
323. NEXT
324.  
325. DIM tmp&
326. FOR i = 0 TO 99
327.     tmp& = _COPYIMAGE(lifeBars(i))
328.     _FREEIMAGE lifeBars(i)
329.     lifeBars(i) = _COPYIMAGE(tmp&, 33)
330.     _FREEIMAGE tmp&
331. NEXT
332.  
333. Gun.damage = 3
334. Gun.id = 1
335. Gun.name = "Shot Gun"
336.  
337. Menubg& = _LOADIMAGE("Images\farm1.jpg")
338. GunImg&(0) = _LOADIMAGE("Images\gun_shot.png")
339. GunImg&(1) = _LOADIMAGE("Images\Gun_ak-47.png")
340. ScoreBoard& = _LOADIMAGE("Images\score_board.png")
341.  
342. blood_Sheet% = SPRITESHEETLOAD("Images\blood.png", 64, 62, _RGB(0, 0, 0))
343. Jet1_Sheet% = SPRITESHEETLOAD("Images\Jet.png", 120, 122, _RGB(0, 0, 0))
344. Jet2_Sheet% = SPRITESHEETLOAD("Images\Jet_2.png", 120, 122, _RGB(0, 0, 0))
345. Jet3_Sheet% = SPRITESHEETLOAD("Images\Jet_3.png", 150, 122, _RGB(0, 0, 0))
346. eagle_Sheet% = SPRITESHEETLOAD("Images\eagle.png", 40, 40, _RGB(0, 0, 0))
347. Crow_Sheet% = SPRITESHEETLOAD("Images\crow.png", 97, 120, _RGB(0, 0, 0))
348. Bird_Sheet% = SPRITESHEETLOAD("Images\bird.png", 180, 170, _RGB(0, 0, 0))
349.  
350. explosion_Sheet% = SPRITESHEETLOAD("Images\explosion.png", 100, 100, _RGB(0, 0, 0))
351.  
352. FOR i = 0 TO 1
353.     ExplosionsZ(i).img = SPRITENEW(explosion_Sheet%, 1, SAVE)
354.     SPRITEANIMATESET ExplosionsZ(i).img, 1, 81
355.     ExplosionsZ(i).y = 300
356. NEXT
357.  
358. ExplosionsZ(0).x = 100: ExplosionsZ(1).x = 700
359.  
360. FOR i = 0 TO 20
361.     Bloods(i).img = SPRITENEW(blood_Sheet%, 1, SAVE)
362.     SPRITEANIMATESET Bloods(i).img, 1, 6
363.     explosions(i).img = SPRITENEW(explosion_Sheet%, 1, SAVE)
364.     SPRITEANIMATESET explosions(i).img, 1, 81
365.     Bloods(i).totalFrames = 6
366.     Bloods(i).n = 5
367.     explosions(i).totalFrames = 81
368.     explosions(i).n = 4
369. NEXT
370. MenuBlood% = SPRITENEW(blood_Sheet%, 1, SAVE)
371. SPRITEANIMATESET MenuBlood%, 1, 6
372.  
373.  
374.  
375. 'Setup Notificaton stuff
376. ON TIMER(NEvent, .013) Notify
377. TIMER(NEvent) ON
378.  
379. _FONT Fonts.bigger
380.  
381. tmp& = _NEWIMAGE(400, 60, 32)
382. _DEST tmp&
383. _FONT Fonts.bigger
384. COLOR , _RGBA(0, 0, 0, 0)
385. _PRINTSTRING (CenterPrintX("Play"), 0), "Play"
386. _DEST 0
387. GameMenus(0).img = _COPYIMAGE(tmp&, 33)
388. GameMenus(0).img2 = _COPYIMAGE(tmp&, 32)
389. _FREEIMAGE tmp&
390. GameMenus(0).y = 150
391.  
392. tmp& = _NEWIMAGE(400, 60, 32)
393. _DEST tmp&
394. _FONT Fonts.bigger
395. COLOR , _RGBA(0, 0, 0, 0)
396. _PRINTSTRING (CenterPrintX("Options"), 0), "Options"
397. _DEST 0
398. GameMenus(1).img = _COPYIMAGE(tmp&, 33)
399. GameMenus(1).img2 = _COPYIMAGE(tmp&, 32)
400. _FREEIMAGE tmp&
401. GameMenus(1).y = GameMenus(0).y + 60
402.  
403. tmp& = _NEWIMAGE(400, 60, 32)
404. _DEST tmp&
405. _FONT Fonts.bigger
406. COLOR , _RGBA(0, 0, 0, 0)
407. _PRINTSTRING (CenterPrintX("Help"), 0), "Help"
408. _DEST 0
409. GameMenus(2).img = _COPYIMAGE(tmp&, 33)
410. GameMenus(2).img2 = _COPYIMAGE(tmp&, 32)
411. _FREEIMAGE tmp&
412. GameMenus(2).y = GameMenus(1).y + 60
413.  
414. tmp& = _NEWIMAGE(400, 60, 32)
415. _DEST tmp&
416. _FONT Fonts.bigger
417. COLOR , _RGBA(0, 0, 0, 0)
418. _PRINTSTRING (CenterPrintX("Credits"), 0), "Credits"
419. _DEST 0
420. GameMenus(3).img = _COPYIMAGE(tmp&, 33)
421. GameMenus(3).img2 = _COPYIMAGE(tmp&, 32)
422. _FREEIMAGE tmp&
423. GameMenus(3).y = GameMenus(2).y + 60
424.  
425. tmp& = _NEWIMAGE(400, 60, 32)
426. _DEST tmp&
427. _FONT Fonts.bigger
428. COLOR , _RGBA(0, 0, 0, 0)
429. _PRINTSTRING (CenterPrintX("Exit"), 0), "Exit"
430. _DEST 0
431. GameMenus(4).img = _COPYIMAGE(tmp&, 33)
432. GameMenus(4).img2 = _COPYIMAGE(tmp&, 32)
433. _FREEIMAGE tmp&
434. GameMenus(4).y = GameMenus(3).y + 60
435.  
436.  
437. tmp& = _NEWIMAGE(400, 30, 32)
438. _DEST tmp&
439. COLOR , _RGBA(0, 0, 0, 0)
440. _FONT Fonts.normal
441. _PRINTSTRING (20, 0), "Fullscreen"
442. _DEST 0
443. GameMenus(5).img = _COPYIMAGE(tmp&, 33)
444. GameMenus(5).img2 = _COPYIMAGE(tmp&, 32)
445. _FREEIMAGE tmp&
446. GameMenus(5).y = 113
447.  
448. tmp& = _NEWIMAGE(400, 30, 32)
449. _DEST tmp&
450. COLOR , _RGBA(0, 0, 0, 0)
451. _FONT Fonts.normal
452. _PRINTSTRING (20, 0), "Fullscreen Method "
453. _DEST 0
454. GameMenus(6).img = _COPYIMAGE(tmp&, 33)
455. GameMenus(6).img2 = _COPYIMAGE(tmp&, 32)
456. _FREEIMAGE tmp&
457. GameMenus(6).y = GameMenus(5).y + 34
458.  
459. tmp& = _NEWIMAGE(400, 30, 32)
460. _DEST tmp&
461. COLOR , _RGBA(0, 0, 0, 0)
462. _FONT Fonts.normal
463. _PRINTSTRING (20, 0), "Music "
464. _DEST 0
465. GameMenus(7).img = _COPYIMAGE(tmp&, 33)
466. GameMenus(7).img2 = _COPYIMAGE(tmp&, 32)
467. _FREEIMAGE tmp&
468. GameMenus(7).y = GameMenus(6).y + 34
469.  
470. tmp& = _NEWIMAGE(400, 30, 32)
471. _DEST tmp&
472. COLOR , _RGBA(0, 0, 0, 0)
473. _FONT Fonts.normal
474. _PRINTSTRING (20, 0), "SFX "
475. _DEST 0
476. GameMenus(8).img = _COPYIMAGE(tmp&, 33)
477. GameMenus(8).img2 = _COPYIMAGE(tmp&, 32)
478. _FREEIMAGE tmp&
479. GameMenus(8).y = GameMenus(7).y + 34
480.  
481. tmp& = _NEWIMAGE(400, 30, 32)
482. _DEST tmp&
483. COLOR , _RGBA(0, 0, 0, 0)
484. _FONT Fonts.normal
485. _PRINTSTRING (20, 0), "Music Volume "
486. _DEST 0
487. GameMenus(9).img = _COPYIMAGE(tmp&, 33)
488. GameMenus(9).img2 = _COPYIMAGE(tmp&, 32)
489. _FREEIMAGE tmp&
490. GameMenus(9).y = GameMenus(8).y + 34
491.  
492. tmp& = _NEWIMAGE(400, 30, 32)
493. _DEST tmp&
494. COLOR , _RGBA(0, 0, 0, 0)
495. _FONT Fonts.normal
496. _PRINTSTRING (20, 0), "SFX Volume"
497. _DEST 0
498. GameMenus(10).img = _COPYIMAGE(tmp&, 33)
499. GameMenus(10).img2 = _COPYIMAGE(tmp&, 32)
500. _FREEIMAGE tmp&
501. GameMenus(10).y = GameMenus(9).y + 34
502.  
503. tmp& = _NEWIMAGE(400, 30, 32)
504. _DEST tmp&
505. COLOR , _RGBA(0, 0, 0, 0)
506. _FONT Fonts.normal
507. _PRINTSTRING (20, 0), "3D Sound Effect"
508. _DEST 0
509. GameMenus(11).img = _COPYIMAGE(tmp&, 33)
510. GameMenus(11).img2 = _COPYIMAGE(tmp&, 32)
511. _FREEIMAGE tmp&
512. GameMenus(11).y = GameMenus(10).y + 34
513.  
514. tmp& = _NEWIMAGE(400, 30, 32)
515. _DEST tmp&
516. COLOR , _RGBA(0, 0, 0, 0)
517. _FONT Fonts.normal
518. _PRINTSTRING (20, 0), "Frame Rate "
519. _DEST 0
520. GameMenus(12).img = _COPYIMAGE(tmp&, 33)
521. GameMenus(12).img2 = _COPYIMAGE(tmp&, 32)
522. _FREEIMAGE tmp&
523. GameMenus(12).y = GameMenus(11).y + 34
524.  
525. tmp& = _NEWIMAGE(500, 30, 32)
526. _DEST tmp&
527. COLOR , _RGBA(0, 0, 0, 0)
528. _FONT Fonts.normal
529. _PRINTSTRING (CenterPrintX("Default Settings"), 0), "Default Settings"
530. _DEST 0
531. GameMenus(13).img = _COPYIMAGE(tmp&, 33)
532. GameMenus(13).img2 = _COPYIMAGE(tmp&, 32)
533. _FREEIMAGE tmp&
534. GameMenus(13).y = GameMenus(12).y + 34
535.  
536. tmp& = _NEWIMAGE(500, 200, 32)
537. _DEST tmp&
538. COLOR , _RGBA(0, 0, 0, 0)
539. _FONT Fonts.normal
540. _PRINTSTRING (CenterPrintX("Apply Settings"), 0), "Apply Settings"
541. _DEST 0
542. GameMenus(14).img = _COPYIMAGE(tmp&, 33)
543. GameMenus(14).img2 = _COPYIMAGE(tmp&, 32)
544. _FREEIMAGE tmp&
545. GameMenus(14).y = GameMenus(13).y + 34
546.  
547. tmp& = _NEWIMAGE(500, 200, 32)
548. _DEST tmp&
549. COLOR , _RGBA(0, 0, 0, 0)
550. _FONT Fonts.normal
551. _PRINTSTRING (CenterPrintX("Go Back To Main Menu"), 0), "Go Back To Main Menu"
552. _DEST 0
553. GameMenus(15).img = _COPYIMAGE(tmp&, 33)
554. GameMenus(15).img2 = _COPYIMAGE(tmp&, 32)
555. _FREEIMAGE tmp&
556. GameMenus(15).y = GameMenus(14).y + 34
557.  
558. tmp& = _NEWIMAGE(500, 200, 32)
559. _DEST tmp&
560. COLOR , _RGBA(0, 0, 0, 0)
561. _FONT Fonts.normal
562. _PRINTSTRING (20, 0), "Fullscreen"
563. _DEST 0
564. GameMenus(16).img = _COPYIMAGE(tmp&, 33)
565. GameMenus(16).img2 = _COPYIMAGE(tmp&, 32)
566. _FREEIMAGE tmp&
567. GameMenus(16).y = 232
568.  
569. tmp& = _NEWIMAGE(500, 200, 32)
570. _DEST tmp&
571. COLOR , _RGBA(0, 0, 0, 0)
572. _FONT Fonts.normal
573. _PRINTSTRING (20, 0), "Music Volume"
574. _DEST 0
575. GameMenus(17).img = _COPYIMAGE(tmp&, 33)
576. GameMenus(17).img2 = _COPYIMAGE(tmp&, 32)
577. _FREEIMAGE tmp&
578. GameMenus(17).y = GameMenus(16).y + 34
579.  
580. tmp& = _NEWIMAGE(500, 200, 32)
581. _DEST tmp&
582. COLOR , _RGBA(0, 0, 0, 0)
583. _FONT Fonts.normal
584. _PRINTSTRING (20, 0), "SFX Volume"
585. _DEST 0
586. GameMenus(18).img = _COPYIMAGE(tmp&, 33)
587. GameMenus(18).img2 = _COPYIMAGE(tmp&, 32)
588. _FREEIMAGE tmp&
589. GameMenus(18).y = GameMenus(17).y + 34
590.  
591. tmp& = _NEWIMAGE(500, 200, 32)
592. _DEST tmp&
593. COLOR , _RGBA(0, 0, 0, 0)
594. _FONT Fonts.normal
595. _PRINTSTRING (CenterPrintX("Exit to Main Menu"), 0), "Exit to Main Menu"
596. _DEST 0
597. GameMenus(19).img = _COPYIMAGE(tmp&, 33)
598. GameMenus(19).img2 = _COPYIMAGE(tmp&, 32)
599. _FREEIMAGE tmp&
600. GameMenus(19).y = GameMenus(18).y + 34
601.  
602.  
603.  
604.  
605.  
606.  
607. LoaderEnd
608.  
609. start:
610.  
611. COLOR _RGB(255, 255, 255), _RGBA(0, 0, 0, 0)
612.  
613. ' echo COMMAND$(1)
614. ' echo COMMAND$(2)
615. ' IF COMMAND$(1) = "-loadlevel" AND VAL(COMMAND$(2)) > 0 THEN
616. ' LevelStage% = VAL(COMMAND$(2))
617. ' LevelStage2% = LevelStage%
618. ' GOTO newgame
619. ' END IF
620.  
621. GameMenu
622.  
623.  
624.  
625.  
626. IF MenuChoice = 1 THEN MenuChoice = 0: GOTO newgame
627. IF MenuChoice = 2 THEN
628.     MenuChoice = 0
629.  
630.     'save current settings in dummy variable :P
631.     DIM preConfig AS Settings
632.     preConfig = W ' W is a global variable which stored all game settings
633.  
634.     DIM on_switch&, off_switch&, bd&, cj&, gfx&, ac& 'images surface
635.     on_switch& = _LOADIMAGE("Images/on.png", 33)
636.     off_switch& = _LOADIMAGE("Images/off.png", 33)
637.     FOR i = 0 TO 4
638.         _PUTIMAGE (200, GameMenus(i).y), GameMenus(i).img2
639.     NEXT
640.  
641.     bd& = _COPYIMAGE(0)
642.     cj& = _COPYIMAGE(bd&)
643.  
644.     BLURIMAGE cj&, 5
645.     gfx& = _NEWIMAGE(500, 340, 32)
646.     _DEST gfx&
647.     CLS , 0 'make it transparent
648.     LINE (0, 0)-STEP(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, 150), BF
649.     FOR i = 5 TO 14
650.         _PUTIMAGE (0, GameMenus(i).y - 103), GameMenus(i).img2
651.     NEXT
652.  
653.     _DEST 0
654.  
655.     FOR i = 0 TO 255 STEP 10
656.         _SETALPHA i, , cj&
657.         _PUTIMAGE , bd&
658.         _PUTIMAGE , cj&
659.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i / 3), BF
660.         _PUTIMAGE (150, 103), gfx&, 0, (0, 0)-(500, p5map(i, 0, 255, 0, 340))
661.         _DISPLAY
662.     NEXT
663.     ac& = _COPYIMAGE(cj&)
664.     _DEST ac&
665.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, 85), BF
666.     _DEST 0
667.     DO
668.         WHILE _MOUSEINPUT: WEND
669.         Mouse.x = _MOUSEX: Mouse.y = _MOUSEY
670.         Mouse.lclick = 0
671.         Mouse.rclick = 0
672.         IF _MOUSEBUTTON(1) THEN
673.             WHILE _MOUSEBUTTON(1): WHILE _MOUSEINPUT: WEND: WEND
674.             Mouse.lclick = -1
675.         END IF
676.         IF _MOUSEBUTTON(2) THEN
677.             WHILE _MOUSEBUTTON(2): WHILE _MOUSEINPUT: WEND: WEND
678.             Mouse.rclick = -1
679.         END IF
680.         _PUTIMAGE , ac&
681.         LINE (150, 103)-STEP(500, 374), _RGBA(0, 0, 0, 150), BF
682.         FOR i = 5 TO 15
683.             IF Mouse.x > 150 AND Mouse.x < 650 AND Mouse.y > GameMenus(i).y - 10 AND Mouse.y < GameMenus(i).y + 24 THEN
684.                 LINE (150, GameMenus(i).y - 10)-(650, GameMenus(i).y + 24), _RGBA(255, 100, 0, 100), BF
685.                 IF Mouse.lclick THEN
686.                     SELECT CASE i
687.                         CASE 5
688.                             IF W.fullscreen > 0 THEN W.fullscreen = 0 ELSE W.fullscreen = 1
689.                         CASE 6
690.                             W.fullscreen = W.fullscreen + 1
691.                             IF W.fullscreen > 2 THEN W.fullscreen = 1
692.                         CASE 7
693.                             IF W.music THEN W.music = 0 ELSE W.music = -1
694.                         CASE 8
695.                             IF W.sfx THEN W.sfx = 0 ELSE W.sfx = -1
696.                         CASE 9
697.                             W.musicV = W.musicV + .1
698.                             IF W.musicV > 1.0 THEN W.musicV = .1
699.                         CASE 10
700.                             W.sfxV = W.sfxV + .1
701.                             IF W.sfxV > 1 THEN W.sfxV = 0.1
702.                         CASE 11
703.                             IF W.SE THEN W.SE = 0 ELSE W.SE = -1
704.                         CASE 12
705.                             W.fps = W.fps + 30
706.                             IF W.fps > 240 THEN W.fps = 30
707.                         CASE 13
708.                             W.fullscreen = 0
709.                             W.music = -1
710.                             W.sfx = -1
711.                             W.musicV = 1
712.                             W.sfxV = 1
713.                             W.SE = -1
714.                             W.fps = 30
715.                         CASE 14
716.                             writeConfig
717.                             loadComponents
718.                             showNotification "Settings have been applied."
719.                         CASE 15
720.                             EXIT DO
721.                     END SELECT
722.                 END IF
723.             END IF
724.             _PUTIMAGE (150, GameMenus(i).y), GameMenus(i).img
725.             SELECT CASE i
726.                 CASE 5
727.                     IF W.fullscreen > 0 THEN _PUTIMAGE (580, GameMenus(i).y - 3), on_switch& ELSE _PUTIMAGE (580, GameMenus(i).y - 3), off_switch&
728.                 CASE 6
729.                     _FONT Fonts.normal
730.                     SELECT CASE W.fullscreen
731.                         CASE 1
732.                             _PRINTSTRING (630 - txtWidth("Stretch"), GameMenus(i).y), "Stretch"
733.                         CASE 2
734.                             _PRINTSTRING (630 - txtWidth("Square Pixels"), GameMenus(i).y), "Square Pixels"
735.                         CASE ELSE
736.                             _PRINTSTRING (630 - txtWidth("Disable"), GameMenus(i).y), "Disable"
737.                     END SELECT
738.                 CASE 7
739.                     IF W.music THEN _PUTIMAGE (580, GameMenus(i).y - 3), on_switch& ELSE _PUTIMAGE (580, GameMenus(i).y - 3), off_switch&
740.                 CASE 8
741.                     IF W.sfx THEN _PUTIMAGE (580, GameMenus(i).y - 3), on_switch& ELSE _PUTIMAGE (580, GameMenus(i).y - 3), off_switch&
742.                 CASE 9
743.                     _FONT Fonts.normal
744.                     IF W.musicV > .9 THEN
745.                         _PRINTSTRING (630 - txtWidth(" 10"), GameMenus(i).y), " 10 "
746.                     ELSE
747.                         _PRINTSTRING (630 - txtWidth(STR$(INT(W.musicV * 10))), GameMenus(i).y), STR$(INT(W.musicV * 10))
748.                     END IF
749.                 CASE 10
750.                     _FONT Fonts.normal
751.                     IF W.sfxV > .9 THEN
752.                         _PRINTSTRING (630 - txtWidth(" 10"), GameMenus(i).y), " 10 "
753.                     ELSE
754.                         _PRINTSTRING (630 - txtWidth(STR$(INT(W.sfxV * 10))), GameMenus(i).y), STR$(INT(W.sfxV * 10))
755.                     END IF
756.                 CASE 11
757.                     IF W.SE THEN _PUTIMAGE (580, GameMenus(i).y - 3), on_switch& ELSE _PUTIMAGE (580, GameMenus(i).y - 3), off_switch&
758.                 CASE 12
759.                     _FONT Fonts.normal
760.                     _PRINTSTRING (630 - txtWidth(STR$(W.fps)), GameMenus(i).y), STR$(W.fps)
761.             END SELECT
762.         NEXT
763.         _LIMIT W.fps
764.         IF Mouse.hovering THEN
765.             _PUTIMAGE (Mouse.x - 16, Mouse.y - 16), Mouse.cursor2
766.             _DISPLAY
767.         ELSE
768.             _PUTIMAGE (Mouse.x - 16, Mouse.y - 16), Mouse.cursor
769.             _DISPLAY
770.         END IF
771.  
772.     LOOP
773.     FOR i = 255 TO 0 STEP -10
774.         _SETALPHA i, , cj&
775.         _PUTIMAGE , bd&
776.         _PUTIMAGE , cj&
777.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i / 3), BF
778.         _PUTIMAGE (150, 103), gfx&, 0, (0, 0)-(500, p5map(i, 0, 255, 0, 340))
779.         _DISPLAY
780.     NEXT
781.     _FREEIMAGE bd&
782.     _FREEIMAGE cj&
783.     _FREEIMAGE ac&
784.     _FREEIMAGE gfx&
785.     _FREEIMAGE on_switch&
786.     _FREEIMAGE off_switch&
787.     GOTO start
788. END IF
789. IF MenuChoice = 3 THEN
790.     MenuChoice = 0
791.     FOR i = 0 TO 4
792.         _PUTIMAGE (200, GameMenus(i).y), GameMenus(i).img2
793.     NEXT
794.     bd& = _COPYIMAGE(0)
795.     cj& = _COPYIMAGE(bd&)
796.  
797.     BLURIMAGE cj&, 5
798.     DIM k&
799.     k& = _LOADIMAGE("Images\help.png")
800.  
801.     FOR i = 0 TO 255 STEP 10
802.         _SETALPHA i, , cj&
803.         _PUTIMAGE , bd&
804.         _PUTIMAGE , cj&
805.         _SETALPHA i / 1.25, , k&
806.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i / 5), BF
807.         centerImage k&
808.         _DISPLAY
809.     NEXT
810.  
811.     DO
812.         'mouse input
813.         WHILE _MOUSEINPUT: WEND
814.         Mouse.x = _MOUSEX: Mouse.y = _MOUSEY
815.  
816.         IF _MOUSEBUTTON(1) THEN
817.             WHILE _MOUSEBUTTON(1): WHILE _MOUSEINPUT: WEND: WEND
818.             Mouse.lclick = -1
819.         ELSE
820.             Mouse.lclick = 0
821.         END IF
822.  
823.         IF _MOUSEBUTTON(2) THEN
824.             WHILE _MOUSEBUTTON(2): WHILE _MOUSEINPUT: WEND: WEND
825.             Mouse.rclick = -1
826.         ELSE
827.             Mouse.rclick = 0
828.         END IF
829.  
830.         _LIMIT W.fps
831.  
832.         _DISPLAY
833.  
834.         IF Mouse.lclick OR Mouse.rclick OR _KEYHIT = 27 THEN EXIT DO
835.     LOOP
836.  
837.     FOR i = 255 TO 0 STEP -10
838.         _SETALPHA i, , cj&
839.         _PUTIMAGE , bd&
840.         _PUTIMAGE , cj&
841.         _SETALPHA i / 1.25, , k&
842.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i / 5), BF
843.         centerImage k&
844.         _DISPLAY
845.     NEXT
846.  
847.     _PUTIMAGE , bd&
848.     _FREEIMAGE bd&
849.     _FREEIMAGE cj&
850.     _FREEIMAGE k&
851.     GOTO start
852.  
853. END IF
854.  
855. IF MenuChoice = 4 THEN
856.     FOR i = 0 TO 4
857.         _PUTIMAGE (200, GameMenus(i).y), GameMenus(i).img2
858.     NEXT
859.  
860.     bd& = _COPYIMAGE(0)
861.  
862.     FOR i = 0 TO 255 STEP 5
863.         _PUTIMAGE , bd&
864.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i), BF
865.         _DISPLAY
866.     NEXT
867.  
868.     showCredits
869.  
870.     FOR i = 255 TO 0 STEP -5
871.         _PUTIMAGE , bd&
872.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i), BF
873.         _DISPLAY
874.     NEXT
875.  
876.     _FREEIMAGE bd&
877.     MenuChoice = 0
878.     GOTO start
879.  
880. END IF
881.  
882. IF MenuChoice = 5 THEN SYSTEM 1
883. MenuChoice = 0
884. END
885. newgame:
886.  
887.  
888. CLS
889.  
890. LoaderStart
891. SetupRain
892. IF COMMAND$(1) = "-loadlevel" THEN
893.     LoadLevel
894. ELSE
895.     IF getCurrentLevel > MAX_LEVEL THEN randomLevels = -1 ELSE randomLevels = 0: LoadLevel
896. END IF
897.  
898.  
899. _FONT Fonts.bigger
900.  
901. '################### Random Levels ################################
902. DIM F AS INTEGER
903. IF randomLevels THEN
904.     Level.completed = 0
905.     Level.over = 0
906.     LevelStage% = p5random(1, MAX_LEVEL)
907.     F = FREEFILE
908.     'LevelStage% = VAL(COMMAND$(2))
909.     OPEN "stages/stage" + RTRIM$(LTRIM$(STR$(LevelStage%))) + ".dat" FOR INPUT AS #F
910.     INPUT #F, Level.enemies
911.     INPUT #F, Level.scenes
912.     INPUT #F, Seconds%
913.     INPUT #F, Level.mode
914.     INPUT #F, Level.background
915.     CLOSE #F
916.     Level.bg = _LOADIMAGE("Images\" + RTRIM$(Level.background))
917.     OldSeconds% = Seconds%
918. END IF
919.  
920. IF randomLevels THEN _PRINTSTRING (CenterPrintX("Random Levels"), 300), "Random Levels" ELSE _PRINTSTRING (CenterPrintX("Stage " + LTRIM$(RTRIM$(STR$(LevelStage%)))), 300), "Stage " + LTRIM$(RTRIM$(STR$(LevelStage%)))
921.  
922. _DELAY RND * 3
923.  
924. ' if randomLevels then LoaderEnd : goto game_rendering_begin
925. ' _DELAY 0.5
926.  
927.  
928. '############################# Custom Levels #############################
929.  
930. ERASE Enemie 'clear all previous enemie data
931.  
932. REDIM SHARED Enemie(Level.enemies) AS Enemies
933.  
934. 'Enemie Configuirations
935.  
936. F = FREEFILE
937. Level.completed = 0
938. Level.over = 0
939. Level.cancel = 0
940. CurrentScore% = 0
941. Level.u = 0
942. Level.currentScene = 1
943.  
944. OPEN "Stages\Stage" + LTRIM$(RTRIM$(STR$(LevelStage%))) + ".lvl" FOR INPUT AS #F
945.  
946. FOR i = 1 TO Level.enemies
947.     INPUT #F, Enemie(i).typ
948.  
949.     SELECT CASE RTRIM$(Enemie(i).typ)
950.  
951.         CASE "bird"
952.             Enemie(i).img = SPRITENEW(Bird_Sheet%, 1, SAVE)
953.             SPRITEANIMATESET Enemie(i).img, 1, 14
954.             SPRITEZOOM Enemie(i).img, 50
955.             Enemie(i).n = 6
956.             Enemie(i).points = 10
957.             Enemie(i).life = 4
958.             Enemie(i).life2 = Enemie(i).life
959.             Enemie(i).snd = _SNDCOPY(Bird&)
960.         CASE "crow"
961.             Enemie(i).img = SPRITENEW(Crow_Sheet%, 1, SAVE)
962.             SPRITEANIMATESET Enemie(i).img, 1, 4
963.             SPRITEZOOM Enemie(i).img, 70
964.             Enemie(i).n = 12
965.             Enemie(i).points = 20
966.             Enemie(i).life = 7
967.             Enemie(i).life2 = Enemie(i).life
968.             Enemie(i).snd = _SNDCOPY(Crow&)
969.         CASE "eagle"
970.             Enemie(i).img = SPRITENEW(eagle_Sheet%, 7, SAVE)
971.             SPRITEANIMATESET Enemie(i).img, 7, 9
972.             Enemie(i).n = 12
973.             Enemie(i).points = 35
974.             Enemie(i).life = 14
975.             Enemie(i).life2 = Enemie(i).life
976.             Enemie(i).snd = _SNDCOPY(Eagle&)
977.         CASE "jet1"
978.             Enemie(i).img = SPRITENEW(Jet1_Sheet%, 1, SAVE)
979.             SPRITEANIMATESET Enemie(i).img, 1, 3
980.             SPRITEZOOM Enemie(i).img, 70
981.             Enemie(i).n = 10
982.             Enemie(i).points = 50
983.             Enemie(i).life = 30
984.             Enemie(i).life2 = Enemie(i).life
985.             Enemie(i).snd = _SNDCOPY(Jet&)
986.         CASE "jet2"
987.             Enemie(i).img = SPRITENEW(Jet2_Sheet%, 1, SAVE)
988.             SPRITEANIMATESET Enemie(i).img, 1, 3
989.             SPRITEZOOM Enemie(i).img, 70
990.             Enemie(i).n = 10
991.             Enemie(i).points = 75
992.             Enemie(i).life = 45
993.             Enemie(i).life2 = Enemie(i).life
994.             Enemie(i).snd = _SNDCOPY(Jet&)
995.         CASE "jet3"
996.             Enemie(i).img = SPRITENEW(Jet3_Sheet%, 1, SAVE)
997.             SPRITEANIMATESET Enemie(i).img, 1, 3
998.             SPRITEZOOM Enemie(i).img, 70
999.             Enemie(i).n = 10
1000.             Enemie(i).points = 100
1001.             Enemie(i).life = 70
1002.             Enemie(i).life2 = Enemie(i).life
1003.             Enemie(i).snd = _SNDCOPY(Jet&)
1004.     END SELECT
1005.     INPUT #F, Enemie(i).u
1006.     INPUT #F, Enemie(i).y
1007.     INPUT #F, Enemie(i).m
1008.     IF Enemie(i).m < 0 THEN Enemie(i).x = _WIDTH: SPRITEFLIP Enemie(i).img, HORIZONTAL ELSE Enemie(i).x = 0
1009.  
1010.     INPUT #F, Enemie(i).scene
1011. NEXT
1012.  
1013. CLOSE #F
1014.  
1015. LoaderEnd
1016.  
1017. game_rendering_begin:::
1018.  
1019. _PUTIMAGE (0, 0)-(_WIDTH, _HEIGHT), Level.bg
1020. _PUTIMAGE (0, 520), ScoreBoard&
1021. _PUTIMAGE (50, 550)-(170, 590), GunImg&(Gun.id - 1)
1022. _FONT Fonts.smaller
1023. _PRINTSTRING (40, 580), RTRIM$(Gun.name)
1024. _FONT Fonts.normal
1025.  
1026. IF randomLevels THEN _PRINTSTRING (CenterPrintX("Random Levels"), 560), "Random Levels" ELSE _PRINTSTRING (CenterPrintX("Stage " + STR$(LevelStage%)), 560), "Stage " + STR$(LevelStage%)
1027. _FONT Fonts.smaller
1028.  
1029. Minutes% = (Seconds% - (Seconds% MOD 60)) / 60
1030. DIM t AS INTEGER
1031. t = Seconds% MOD 60
1032.  
1033. _PRINTSTRING (600, 560), "Score - " + STR$(CurrentScore%)
1034. _PRINTSTRING (600, 580), "Time Left -" + STR$(Minutes%) + ":" + STR$(t)
1035. StartLevel
1036.  
1037. FOR i = 1 TO Level.enemies 'free all the sound buffer stream (sound stream will reload again when next gameplay starts.
1038.     _SNDCLOSE Enemie(i).snd
1039. NEXT
1040.  
1041. COLOR _RGB(255, 255, 255), _RGBA(0, 0, 0, 0)
1042. 'checking if the level has benn canceled by the user.
1043. IF Level.cancel THEN
1044.     'free the level background image
1045.     _FREEIMAGE Level.bg
1046.     Level.cancel = 0
1047.     GOTO start
1048. END IF
1049.  
1050. 'checking if game is completed
1051.  
1052. IF Level.completed THEN
1053.     ' IF COMMAND$(1) = "-loadlevel" THEN
1054.     ' echo "Level : " + STR$(LevelStage%)
1055.     ' echo "Time taken to complete : " + STR$(Level.time - Seconds%)
1056.     ' END IF
1057.  
1058.     _PUTIMAGE (0, 0)-(_WIDTH, _HEIGHT), Level.bg
1059.  
1060.     'crosfading start here -
1061.     DIM blured&
1062.  
1063.     blured& = _COPYIMAGE(Level.bg)
1064.     BLURIMAGE blured&, 5
1065.     FOR i = 1 TO 255 STEP 20
1066.         _SETALPHA i, , blured&
1067.         _PUTIMAGE , Level.bg
1068.         _PUTIMAGE , blured&
1069.         _DISPLAY
1070.     NEXT
1071.  
1072.     _FREEIMAGE blured&
1073.  
1074.     LINE (200, 200)-(_WIDTH - 200, _HEIGHT - 200), _RGBA(0, 0, 0, 180), BF
1075.     _FONT Fonts.normal
1076.     _PRINTSTRING (CenterPrintX("Stage " + STR$(LevelStage%) + "Completed!"), 210), "Stage " + STR$(LevelStage%) + " Completed"
1077.     _FONT Fonts.smaller
1078.     DIM a$
1079.     a$ = "Congratulations!! You created new high score!"
1080.  
1081.     IF CurrentScore% > HighScore% THEN _PRINTSTRING (CenterPrintX(a$), 250), a$
1082.  
1083.     _PRINTSTRING (CenterPrintX("Score - " + STR$(CurrentScore%)), 300), "Score - " + STR$(CurrentScore%)
1084.     _PRINTSTRING (CenterPrintX("Bonus Score - " + STR$(Seconds% * 2)), 320), "Bonus Score - " + STR$(Seconds% * 2)
1085.     _PRINTSTRING (CenterPrintX("Total Score - " + STR$(Seconds% * 2 + CurrentScore%)), 340), "Total Score - " + STR$(Seconds% * 2 + CurrentScore%)
1086.  
1087.     IF LevelStage% = MAX_LEVEL THEN a$ = "Game Completed" ELSE a$ = "Be ready for next stage. Wait a moment..."
1088.     _PRINTSTRING (CenterPrintX(a$), 380), a$
1089.  
1090.     DO
1091.         IF F = 1 THEN SPRITESHOW ExplosionsZ(0).img: SPRITESHOW ExplosionsZ(1).img
1092.         FOR i = 0 TO 1
1093.             SPRITENEXT ExplosionsZ(i).img
1094.             SPRITEPUT ExplosionsZ(i).x, ExplosionsZ(i).y, ExplosionsZ(i).img
1095.         NEXT
1096.         _LIMIT W.fps
1097.         _DISPLAY
1098.         F = F + 1
1099.     LOOP UNTIL F > 180
1100.     SPRITEHIDE ExplosionsZ(0).img
1101.     SPRITEHIDE ExplosionsZ(1).img
1102.    
1103.     F = 0
1104.     IF COMMAND$(1) = "-loadlevel" THEN SYSTEM
1105.     SaveGame
1106.  
1107.     IF LevelStage% > MAX_LEVEL THEN
1108.         bd& = _COPYIMAGE(0)
1109.         FOR i = 0 TO 255 STEP 5
1110.             _PUTIMAGE , bd&
1111.             LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i), BF
1112.             _DISPLAY
1113.         NEXT
1114.         showCredits
1115.  
1116.         GOTO start
1117.     END IF
1118.     'free the level background image
1119.     _FREEIMAGE Level.bg
1120.  
1121.     GOTO newgame
1122. END IF
1123. IF Level.over THEN
1124.     COLOR _RGB(255, 0, 0)
1125.     ' IF COMMAND$(1) = "-loadlevel" THEN
1126.     ' echo "Level failed to compete"
1127.     ' END IF
1128.  
1129.     _PUTIMAGE (0, 0)-(_WIDTH, _HEIGHT), Level.bg
1130.     'crosfading start here -
1131.     blured& = _COPYIMAGE(Level.bg)
1132.     BLURIMAGE blured&, 5
1133.     FOR i = 1 TO 255 STEP 20
1134.         _SETALPHA i, , blured&
1135.         _PUTIMAGE , Level.bg
1136.         _PUTIMAGE , blured&
1137.         _DISPLAY
1138.     NEXT
1139.  
1140.     _FREEIMAGE blured&
1141.     LINE (200, 250)-(_WIDTH - 200, _HEIGHT - 250), _RGBA(0, 0, 0, 180), BF
1142.     _FONT Fonts.bigger
1143.     _PRINTSTRING (CenterPrintX("Game Over"), 260), "Game Over"
1144.     _FONT Fonts.smaller
1145.     _PRINTSTRING (CenterPrintX("Click To Continue..."), _HEIGHT - 280), "Click to Continue..."
1146.     _DISPLAY
1147.  
1148.     DO
1149.         WHILE _MOUSEINPUT: WEND
1150.         IF _MOUSEBUTTON(1) THEN
1151.             WHILE _MOUSEBUTTON(1): WHILE _MOUSEINPUT: WEND: WEND
1152.             EXIT DO
1153.         END IF
1154.         _LIMIT 30
1155.     LOOP
1156.     GOTO start
1157.     'free the level background image
1158.     _FREEIMAGE Level.bg
1159.  
1160. END IF
1161.  
1162. 404
1163. _MOUSESHOW
1164. _FONT 16
1165. CLS
1166. COLOR _RGB(255, 255, 255)
1167. CIRCLE (_WIDTH / 2, 200), 100
1168. CIRCLE (_WIDTH / 2 - 50, 150), 5
1169. CIRCLE (_WIDTH / 2 + 50, 150), 5
1170. CIRCLE (_WIDTH / 2, 250), 50, , 0, _PI
1171.  
1172. centerPrint "An Error has ocurred!", 350
1173. centerPrint "Error Code - " + STR$(ERR), 366
1174. IF _INCLERRORFILE$ <> "" THEN
1175.     centerPrint "Error File - " + _INCLERRORFILE$, 382
1176.     centerPrint "Error Line - " + STR$(_INCLERRORLINE), 398
1177. ELSE
1178.     centerPrint "Error File - Main_File", 382
1179.     centerPrint "Error Line - " + STR$(_ERRORLINE), 398
1180. END IF
1181. END
1182.  
1183.  
1184.  
1185.  
1186.  
1187.  
1188.  
1189. SUB echo (m$) 'always write to console
1190.     DIM preDest AS LONG
1191.     preDest = _DEST
1192.     _DEST _CONSOLE
1193.     PRINT m$
1194.     _DEST preDest
1195. END SUB
1196.  
1197. SUB showNotification (message$)
1198.     NText$ = message$
1199.     NShow = -1
1200. END SUB
1201.  
1202. SUB Notify ()
1203.     STATIC imgy
1204.     IF NShow = -1 THEN
1205.         IF NFPSCount% = 0 THEN
1206.             _FONT 16
1207.             DIM __w AS INTEGER, h AS INTEGER, tmp&, preDest AS LONG
1208.             __w = LEN(NText$) * 8 + 40
1209.             h = 36
1210.  
1211.             tmp& = _NEWIMAGE(__w, h, 32)
1212.  
1213.             preDest = _DEST
1214.             _DEST tmp&
1215.  
1216.             COLOR _RGB(10, 10, 10), _RGB(355, 245, 245)
1217.             CLS , _RGB(255, 245, 245)
1218.             _PRINTSTRING (20, 10), NText$
1219.  
1220.             _DEST preDest
1221.             NImage& = _COPYIMAGE(tmp&, 33)
1222.             _FREEIMAGE tmp&
1223.  
1224.             imgy = -40
1225.         END IF
1226.         IF NFPSCount% > 0 AND NFPSCount% < 40 THEN
1227.             imgy = imgy + 1
1228.             _PUTIMAGE (_WIDTH / 2 - _WIDTH(NImage&) / 2, imgy), NImage&
1229.         END IF
1230.         IF NFPSCount% > 40 AND NFPSCount% < 160 THEN
1231.             _PUTIMAGE (_WIDTH / 2 - _WIDTH(NImage&) / 2, imgy), NImage&
1232.         END IF
1233.         IF NFPSCount% > 160 AND NFPSCount% < 200 THEN
1234.             _PUTIMAGE (_WIDTH / 2 - _WIDTH(NImage&) / 2, imgy), NImage&
1235.             imgy = imgy - 1
1236.         END IF
1237.         NFPSCount% = NFPSCount% + 1
1238.         IF NFPSCount% > 200 THEN
1239.             _FREEIMAGE NImage&
1240.             NFPSCount% = 0
1241.             NShow = 0
1242.         END IF
1243.     END IF
1244. END SUB
1245.  
1246.  
1247. SUB readConfig ()
1248.     DIM F AS INTEGER
1249.  
1250.     IF NOT _FILEEXISTS("Settings/settings.dat") THEN writeConfig
1251.     F = FREEFILE
1252.     OPEN "Settings/settings.dat" FOR INPUT AS #F
1253.     INPUT #F, W.fullscreen
1254.     INPUT #F, W.music
1255.     INPUT #F, W.sfx
1256.     INPUT #F, W.musicV
1257.     INPUT #F, W.sfxV
1258.     INPUT #F, W.SE
1259.     INPUT #F, W.fps
1260.     CLOSE #F
1261. END SUB
1262.  
1263. SUB writeConfig ()
1264.     DIM f AS INTEGER
1265.  
1266.     f = FREEFILE
1267.     OPEN "Settings/settings.dat" FOR OUTPUT AS #f
1268.     PRINT #f, W.fullscreen
1269.     PRINT #f, W.music
1270.     PRINT #f, W.sfx
1271.     PRINT #f, W.musicV
1272.     PRINT #f, W.sfxV
1273.     PRINT #f, W.SE
1274.     PRINT #f, W.fps
1275.     CLOSE #f
1276. END SUB
1277.  
1278. SUB createConfig ()
1279.     W.fullscreen = 0
1280.     W.music = -1
1281.     W.sfx = -1
1282.     W.musicV = 1
1283.     W.sfxV = 1
1284.     W.SE = -1
1285.     W.fps = 90
1286.     writeConfig
1287. END SUB
1288.  
1289. SUB loadComponents ()
1290.     IF W.fullscreen = 0 THEN
1291.         IF _FULLSCREEN <> 0 THEN _FULLSCREEN _OFF
1292.     ELSEIF W.fullscreen = 1 THEN
1293.         IF _FULLSCREEN <> 1 THEN _FULLSCREEN _STRETCH , _SMOOTH
1294.     ELSEIF W.fullscreen = 2 THEN
1295.         IF _FULLSCREEN <> 2 THEN _FULLSCREEN _SQUAREPIXELS , _SMOOTH
1296.     END IF
1297.  
1298.     'SFXs
1299.     ' screen_conf:
1300.     IF Gun1& = 0 THEN Gun1& = _SNDOPEN("SFX/Gun1.ogg", "sync,vol,pause")
1301.     IF Gun2& = 0 THEN Gun2& = _SNDOPEN("SFX/Gun2.ogg", "sync,vol,pause")
1302.     IF Bird& = 0 THEN Bird& = _SNDOPEN("SFX/bird.ogg", "sync,vol,pause")
1303.     IF Crow& = 0 THEN Crow& = _SNDOPEN("SFX/Crow.ogg", "sync,vol,pause")
1304.     IF Eagle& = 0 THEN Eagle& = _SNDOPEN("SFX/Eagle.ogg", "sync,vol,pause")
1305.     IF Expos& = 0 THEN Expos& = _SNDOPEN("SFX/Explosion.mp3", "sync,vol,pause")
1306.     IF Jet& = 0 THEN Jet& = _SNDOPEN("SFX/Jet.ogg", "sync,vol,pause")
1307.     IF RainSound& = 0 THEN RainSound& = _SNDOPEN("SFX/Rain.mp3", "vol,sync,pause")
1308.  
1309.     IF Musics&(0) = 0 THEN Musics&(0) = _SNDOPEN("Musics/Hunter's_Revenge-Against_Evil.mp3", "sync,vol,pause")
1310.     IF Musics&(1) = 0 THEN Musics&(1) = _SNDOPEN("Musics/Hunter's_Revenge-End_Of_Game.mp3", "sync,vol,pause")
1311.     IF Musics&(2) = 0 THEN Musics&(2) = _SNDOPEN("Musics/Hunter's_Revenge-Who's_Next.mp3", "sync,vol,pause")
1312.  
1313.     setMusicVol W.musicV
1314.     IF NOT W.music THEN 'if menu background music disable, then stop the musics, regardless of whether the are being played or not.
1315.         _SNDSTOP Musics&(0)
1316.         _SNDSTOP Musics&(1)
1317.         _SNDSTOP Musics&(2)
1318.     END IF
1319.  
1320.     W.done = -1
1321. END SUB
1322.  
1323. SUB Splash ()
1324.  
1325.     CLS
1326.  
1327.     DIM stars&, x AS INTEGER, y AS INTEGER, F AS INTEGER
1328.  
1329.     stars& = _NEWIMAGE(_WIDTH * 2, _HEIGHT, 32)
1330.     _DEST stars&
1331.     DO
1332.         x = INT(RND * _WIDTH(stars&))
1333.         y = INT(RND * _HEIGHT)
1334.         PSET (x, y), _RGB(255, 255, 255)
1335.         F = F + 1
1336.     LOOP UNTIL F > 700
1337.  
1338.     DIM spT&, sp&, eft1&, p AS INTEGER, a AS INTEGER, xx AS INTEGER
1339.  
1340.     _DEST 0
1341.     spT& = _LOADIMAGE("Images\splash.png")
1342.     _CLEARCOLOR _RGB(0, 0, 0), spT&
1343.     sp& = _COPYIMAGE(spT&, 33)
1344.     F = 0
1345.     eft1& = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
1346.     _DEST eft1&
1347.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB(0, 0, 50), BF
1348.     _DEST 0
1349.  
1350.     p = 6
1351.     FPSStart
1352.     DO
1353.         _SETALPHA a, , eft1&: _PUTIMAGE , eft1&
1354.         _PUTIMAGE (xx, 0), stars&
1355.         _PUTIMAGE , sp&
1356.         xx = xx - 1
1357.         IF xx < -_WIDTH - 2 THEN xx = 0
1358.         _LIMIT 60
1359.         a = a + p
1360.         IF a > 250 THEN p = -p
1361.         IF a < 6 THEN p = 6
1362.         _DISPLAY
1363.         F% = F% + 1
1364.         FPSCurrent% = FPSCurrent% + 1
1365.     LOOP UNTIL F% > 360
1366.  
1367.     FPSEnd
1368.     CLS
1369.  
1370.     _FREEIMAGE sp&
1371.     _FREEIMAGE spT&
1372.     _FREEIMAGE eft1&
1373.     _FREEIMAGE stars&
1374. END SUB
1375.  
1376. SUB FPSStart ()
1377.     ON TIMER(FPSEvent, 1) FPS
1378.     ON TIMER(FPSEvt, 0.01) FPSShow
1379.     TIMER(FPSEvent) ON
1380.     TIMER(FPSEvt) ON
1381. END SUB
1382.  
1383. SUB FPS ()
1384.     FPSRate% = FPSCurrent%
1385.     FPSCurrent% = 0
1386. END SUB
1387.  
1388. SUB FPSShow ()
1389.     COLOR _RGB(255, 255, 255)
1390.     _PRINTSTRING (720, 0), STR$(FPSRate%) + " FPS"
1391. END SUB
1392.  
1393. SUB FPSEnd ()
1394.     TIMER(FPSEvent) OFF
1395.     TIMER(FPSEvt) OFF
1396. END SUB
1397.  
1398. SUB LoaderStart ()
1399.     Loader& = _LOADIMAGE("Images\loader.gif", 33)
1400.     LoaderEvt! = _FREETIMER
1401.     ON TIMER(LoaderEvt!, 0.1) ShowLoader
1402.     TIMER(LoaderEvt!) ON
1403. END SUB
1404.  
1405. SUB LoaderEnd ()
1406.     TIMER(LoaderEvt!) OFF
1407.     _FREEIMAGE Loader&
1408. END SUB
1409.  
1410. SUB ShowLoader ()
1411.     IF LoaderCF% = 0 THEN LoaderCF% = 1
1412.     _PUTIMAGE (LoaderX%, LoaderY%), Loader&, 0, (LoaderCF% * 48 - 48, 0)-(LoaderCF% * 48 - 1, 48)
1413.     LoaderCF% = LoaderCF% + 1
1414.     IF LoaderCF% > 8 THEN LoaderCF% = 1
1415.     _DISPLAY
1416. END SUB
1417.  
1418. ' SUB PlayMovie (m$)
1419. ' LoaderStart
1420.  
1421. ' DIM f AS INTEGER, n AS LONG, i AS LONG, k AS INTEGER
1422.  
1423. ' f = FREEFILE
1424. ' OPEN "Movies\" + m$ + "\" + m$ + ".txt" FOR INPUT AS #f
1425. ' INPUT #f, n
1426. ' CLOSE #f
1427. ' DIM Temps_Buffers&(n)
1428. ' FOR i = 1 TO n
1429. ' Temps_Buffers&(i) = _LOADIMAGE("Movies\" + m$ + "\produce" + LTRIM$(RTRIM$(STR$(i))) + ".jpg", 33)
1430. ' NEXT
1431. ' LoaderEnd
1432. ' FOR i = 1 TO n
1433. ' FOR k = 1 TO 3
1434. ' _PUTIMAGE , Temps_Buffers&(i)
1435. ' _DISPLAY
1436. ' NEXT
1437. ' _DELAY .05
1438. ' _FREEIMAGE Temps_Buffers&(i)
1439. ' NEXT
1440. ' ERASE Temps_Buffers&
1441. ' END SUB
1442.  
1443. SUB GameMenu ()
1444.     _PUTIMAGE , Menubg&
1445.     DIM n%
1446.     'Menu background music
1447.     IF W.music THEN
1448.         n% = p5random(0, 2)
1449.         IF NOT (_SNDPLAYING(Musics&(0)) OR _SNDPLAYING(Musics&(1)) OR _SNDPLAYING(Musics&(2))) THEN _SNDPLAY Musics&(n%)
1450.     END IF
1451.  
1452.     ON TIMER(GlobalEvent, 0.01) GameMenu2
1453.     TIMER(GlobalEvent) ON
1454.     DO
1455.         WHILE _MOUSEINPUT: WEND
1456.         Mouse.x = _MOUSEX: Mouse.y = _MOUSEY
1457.         Mouse.lclick = _MOUSEBUTTON(1)
1458.         _LIMIT W.fps
1459.         IF MenuChoice > 0 THEN EXIT DO
1460.     LOOP
1461.     TIMER(GlobalEvent) OFF
1462. END SUB
1463.  
1464. SUB GameMenu2 ()
1465.     IF _SCREENICON THEN EXIT SUB
1466.  
1467.     _PUTIMAGE , Menubg&
1468.     LINE (200, 130)-(_WIDTH - 200, 450), _RGBA(0, 0, 0, 150), BF
1469.  
1470.     DIM i AS INTEGER
1471.  
1472.     FOR i = 0 TO 4
1473.         COLOR _RGB(255, 255, 255), _RGBA(0, 0, 0, 0)
1474.         IF Mouse.x > 200 AND Mouse.x < 600 AND Mouse.y > GameMenus(i).y - 20 AND Mouse.y < GameMenus(i).y + _FONTHEIGHT(Fonts.bigger) THEN
1475.             LINE (200, GameMenus(i).y - 20)-(600, GameMenus(i).y + _FONTHEIGHT(Fonts.bigger)), _RGBA(255, 100, 0, 100), BF
1476.             SPRITEPUT 150, GameMenus(i).y + 20, MenuBlood%
1477.             SPRITENEXT MenuBlood%
1478.             '       _PRINTSTRING (GameMenus(i).x, GameMenus(i).y), RTRIM$(GameMenus(i).text)
1479.             _PUTIMAGE (200, GameMenus(i).y), GameMenus(i).img
1480.             IF Mouse.lclick THEN
1481.                 TIMER(GlobalEvent!) OFF
1482.                 SELECT CASE i
1483.                     CASE 0
1484.                         MenuChoice = 1
1485.                     CASE 1
1486.                         MenuChoice = 2
1487.                     CASE 2
1488.                         MenuChoice = 3
1489.                     CASE 3
1490.                         MenuChoice = 4
1491.                     CASE 4
1492.                         MenuChoice = 5
1493.  
1494.                 END SELECT
1495.             END IF
1496.         ELSE
1497.             '      _PRINTSTRING (GameMenus(i).x, GameMenus(i).y), RTRIM$(GameMenus(i).text)
1498.             _PUTIMAGE (200, GameMenus(i).y), GameMenus(i).img
1499.         END IF
1500.     NEXT
1501.     IF Mouse.hovering THEN
1502.         _PUTIMAGE (Mouse.x - 16, Mouse.y - 16), Mouse.cursor2
1503.         _DISPLAY
1504.     ELSE
1505.         _PUTIMAGE (Mouse.x - 16, Mouse.y - 16), Mouse.cursor
1506.         _DISPLAY
1507.     END IF
1508.  
1509. END SUB
1510.  
1511.  
1512. FUNCTION CenterPrintX (m$)
1513.     DIM i AS INTEGER, a AS INTEGER
1514.     FOR i = 1 TO LEN(m$)
1515.         a = a + _PRINTWIDTH(MID$(m$, i, 1))
1516.     NEXT
1517.     CenterPrintX = (_WIDTH / 2) - (a / 2)
1518. END FUNCTION
1519.  
1520. FUNCTION getCurrentLevel% ()
1521.     IF NOT _FILEEXISTS("Save_Game/save.dat") THEN getCurrentLevel% = 1: EXIT FUNCTION
1522.     DIM F AS INTEGER
1523.     F = FREEFILE
1524.     OPEN "Save_Game\save.dat" FOR BINARY AS #F
1525.     SEEK F, 3
1526.     GET #F, , getCurrentLevel%
1527.     CLOSE #F
1528. END FUNCTION
1529.  
1530. SUB LoadLevel ()
1531.     Level.completed = 0
1532.     Level.over = 0
1533.     DIM F AS INTEGER
1534.     F = FREEFILE
1535.     ' IF COMMAND$(1) = "-loadlevel" THEN
1536.     ' GOTO skip_game_save_info
1537.     ' END IF
1538.     IF NOT _FILEEXISTS("Save_Game\save.dat") THEN
1539.         OPEN "Save_Game\save.dat" FOR BINARY AS #F
1540.         LevelStage% = 1
1541.         HighScore% = 0
1542.         PUT #F, , HighScore%
1543.         PUT #F, , LevelStage%
1544.         CLOSE #F
1545.     ELSE
1546.         OPEN "Save_Game\save.dat" FOR BINARY AS #F
1547.         GET #F, , HighScore%
1548.         GET #F, , LevelStage%
1549.         CLOSE #F
1550.     END IF
1551.     skip_game_save_info:::
1552.     ' echo "loading level/stage : " + STR$(LevelStage%)
1553.     OPEN "Stages\Stage" + RTRIM$(LTRIM$(STR$(LevelStage%))) + ".dat" FOR INPUT AS #F
1554.     INPUT #F, Level.enemies
1555.     INPUT #F, Level.scenes
1556.     INPUT #F, Level.time
1557.     INPUT #F, Level.mode
1558.     INPUT #F, Level.background
1559.     CLOSE #F
1560.     LevelStage2% = LevelStage%
1561.     Level.bg = _LOADIMAGE("Images\" + RTRIM$(Level.background))
1562.     Seconds% = Level.time
1563.     OldSeconds% = Seconds%
1564.     'LevelStage% = clevel%
1565. END SUB
1566.  
1567. SUB StartLevel ()
1568.  
1569.     'Stop music during gameplay
1570.     DIM i AS INTEGER, k&, onn&, offf&, bd&, bd2&, ac&, gfx&
1571.     IF W.music THEN
1572.         FOR i = 0 TO 2
1573.             _SNDSTOP Musics&(i)
1574.         NEXT 'stops all musics
1575.     END IF
1576.     IF W.sfx THEN updateSfxVolume
1577.  
1578.     ON TIMER(GameRenderingEvent, 1 / W.fps) UpdateStatus
1579.     ON TIMER(TimerEvent, 1) UpdateTime
1580.     TIMER(GameRenderingEvent) ON
1581.     TIMER(TimerEvent) ON
1582.     Mouse.lclick = 0
1583.     Mouse.rclick = 0
1584.     Mouse.mclick = 0
1585.     DO
1586.         WHILE _MOUSEINPUT: WEND
1587.  
1588.         Mouse.x = _MOUSEX: Mouse.y = _MOUSEY
1589.         IF _MOUSEBUTTON(1) THEN
1590.             WHILE _MOUSEBUTTON(1): WHILE _MOUSEINPUT: WEND: WEND
1591.             Mouse.lclick = -1
1592.         END IF
1593.         IF _MOUSEBUTTON(2) THEN
1594.             WHILE _MOUSEBUTTON(2): WHILE _MOUSEINPUT: WEND: WEND
1595.             Mouse.rclick = -1
1596.         END IF
1597.         IF _MOUSEBUTTON(3) THEN
1598.             WHILE _MOUSEBUTTON(3): WHILE _MOUSEINPUT: WEND: WEND
1599.             Mouse.mclick = -1
1600.         ELSE Mouse.mclick = 0
1601.         END IF
1602.  
1603.         k& = _KEYHIT
1604.         IF k& = 27 OR Mouse.mclick THEN
1605.             TIMER(GameRenderingEvent) OFF
1606.             TIMER(TimerEvent) OFF
1607.             IF W.sfx THEN PauseSound 'Pause the sounds
1608.  
1609.             onn& = _LOADIMAGE("Images/on.png", 33)
1610.             offf& = _LOADIMAGE("Images/off.png", 33)
1611.  
1612.             bd& = _COPYIMAGE(0)
1613.             bd2& = _COPYIMAGE(0)
1614.  
1615.             BLURIMAGE bd2&, 5
1616.             gfx& = _NEWIMAGE(500, 156, 32)
1617.             _DEST gfx&
1618.             CLS , 0 'make it transparent
1619.             LINE (0, 0)-STEP(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, 150), BF
1620.             FOR i = 16 TO 19
1621.                 _PUTIMAGE (0, GameMenus(i).y - 222), GameMenus(i).img2
1622.             NEXT
1623.             _DEST 0
1624.  
1625.             FOR i = 0 TO 255 STEP 10
1626.                 _SETALPHA i, , bd2&
1627.                 _PUTIMAGE , bd&
1628.                 _PUTIMAGE , bd2&
1629.                 LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i / 3), BF
1630.                 _PUTIMAGE (150, 222), gfx&, 0, (0, 0)-(500, p5map(i, 0, 255, 0, 136))
1631.                 _DISPLAY
1632.             NEXT
1633.             ac& = _COPYIMAGE(0)
1634.             DO
1635.                 WHILE _MOUSEINPUT: WEND
1636.                 Mouse.x = _MOUSEX: Mouse.y = _MOUSEY
1637.                 Mouse.lclick = 0
1638.                 Mouse.rclick = 0
1639.                 IF _MOUSEBUTTON(1) THEN
1640.                     WHILE _MOUSEBUTTON(1): WHILE _MOUSEINPUT: WEND: WEND
1641.                     Mouse.lclick = -1
1642.                 END IF
1643.                 IF _MOUSEBUTTON(2) THEN
1644.                     WHILE _MOUSEBUTTON(2): WHILE _MOUSEINPUT: WEND: WEND
1645.                     Mouse.rclick = -1
1646.                 END IF
1647.  
1648.                 _PUTIMAGE , ac&
1649.                 LINE (150, 222)-STEP(500, 136), _RGBA(0, 0, 0, 50), BF
1650.                 FOR i = 16 TO 19
1651.                     IF Mouse.x > 150 AND Mouse.x < 650 AND Mouse.y > GameMenus(i).y - 10 AND Mouse.y < GameMenus(i).y + 24 THEN
1652.                         IF Mouse.lclick THEN
1653.                             SELECT CASE i
1654.                                 CASE 16
1655.                                     IF W.fullscreen > 0 THEN W.fullscreen = 0 ELSE W.fullscreen = 1
1656.                                 CASE 17
1657.                                     W.musicV = W.musicV + .1
1658.                                     IF W.musicV > 1 THEN W.musicV = .1
1659.                                 CASE 18
1660.                                     W.sfxV = W.sfxV + .1
1661.                                     IF W.sfxV > 1 THEN W.sfxV = .1
1662.                                 CASE 19
1663.                                     Level.cancel = -1
1664.                                     EXIT DO
1665.                             END SELECT
1666.                         END IF
1667.                         LINE (150, GameMenus(i).y - 10)-(650, GameMenus(i).y + 24), _RGBA(255, 100, 0, 100), BF
1668.                     END IF
1669.                     _PUTIMAGE (150, GameMenus(i).y), GameMenus(i).img
1670.                     SELECT CASE i
1671.                         CASE 16
1672.                             IF W.fullscreen > 0 THEN _PUTIMAGE (580, GameMenus(i).y - 3), onn& ELSE _PUTIMAGE (580, GameMenus(i).y - 3), offf&
1673.                         CASE 17
1674.                             _FONT Fonts.normal
1675.                             IF W.musicV > .9 THEN
1676.                                 _PRINTSTRING (630 - txtWidth(" 10"), GameMenus(i).y), " 10 "
1677.                             ELSE
1678.                                 _PRINTSTRING (630 - txtWidth(STR$(INT(W.musicV * 10))), GameMenus(i).y), STR$(INT(W.musicV * 10))
1679.                             END IF
1680.                         CASE 18
1681.                             _FONT Fonts.normal
1682.                             IF W.sfxV > .9 THEN
1683.                                 _PRINTSTRING (630 - txtWidth(" 10"), GameMenus(i).y), " 10 "
1684.                             ELSE
1685.                                 _PRINTSTRING (630 - txtWidth(STR$(INT(W.sfxV * 10))), GameMenus(i).y), STR$(INT(W.sfxV * 10))
1686.                             END IF
1687.                     END SELECT
1688.                 NEXT
1689.                 IF _KEYHIT = 27 OR _MOUSEBUTTON(3) THEN EXIT DO
1690.                 _LIMIT W.fps
1691.                 _PUTIMAGE (Mouse.x - 8, Mouse.y - 8), Mouse.cursor
1692.                 _DISPLAY
1693.             LOOP
1694.             FOR i = 255 TO 0 STEP -10
1695.                 _SETALPHA i, , bd2&
1696.                 _PUTIMAGE , bd&
1697.                 _PUTIMAGE , bd2&
1698.                 LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, i / 3), BF
1699.                 _PUTIMAGE (150, 222), gfx&, 0, (0, 0)-(500, p5map(i, 0, 255, 0, 222))
1700.                 _DISPLAY
1701.             NEXT
1702.  
1703.             _PUTIMAGE , bd& 'Erase that menu line
1704.             _FREEIMAGE bd&
1705.             _FREEIMAGE bd2&
1706.             _FREEIMAGE ac&
1707.             _FREEIMAGE gfx&
1708.             _FREEIMAGE onn&
1709.             _FREEIMAGE offf&
1710.             loadComponents
1711.  
1712.             IF W.sfx THEN 'update the sfx volume and play the paused sound.
1713.                 updateSfxVolume
1714.                 IF NOT Level.cancel THEN PlayPausedSound
1715.             END IF
1716.  
1717.             TIMER(GameRenderingEvent) ON
1718.             TIMER(TimerEvent) ON
1719.  
1720.             IF Level.cancel THEN EXIT DO
1721.         END IF
1722.         _LIMIT W.fps
1723.     LOOP UNTIL Level.completed OR Level.over
1724.     TIMER(GameRenderingEvent) OFF
1725.     CloseTime
1726.     FOR i = 0 TO 20
1727.         IF Bloods(i).active THEN
1728.             Bloods(i).active = 0
1729.             SPRITEHIDE Bloods(i).img
1730.         END IF
1731.         IF explosions(i).active THEN
1732.             explosions(i).active = 0
1733.             SPRITEHIDE explosions(i).img
1734.         END IF
1735.     NEXT
1736.     FOR i = 0 TO UBOUND(ShotScore)
1737.         ShotScore(i).active = 0
1738.     NEXT
1739. END SUB
1740.  
1741. SUB UpdateStatus ()
1742.     ' $checking:off
1743.     STATIC thunder_f_count, thunder_ha_count, thunder_ha_count_limit
1744.     DIM i AS INTEGER, t AS INTEGER, tmp&, tmp2&
1745.  
1746.     IF Seconds% < OldSeconds% OR OldScore% < CurrentScore% THEN _PUTIMAGE (0, 0)-(_WIDTH, _HEIGHT), Level.bg
1747.  
1748.     IF _SCREENICON THEN EXIT SUB
1749.     FOR i = 1 TO Level.enemies
1750.         IF Enemie(i).u = Level.u AND Enemie(i).active = 0 AND Enemie(i).scene = Level.currentScene THEN
1751.             Enemie(i).active = -1
1752.             PlayEnemieMusic i
1753.             'echo "[New Enemie] (Scene " + STR$(Level.currentScene) + ")"
1754.             'echo "Type : " + Enemie(i).typ
1755.             'echo "u : " + STR$(Enemie(i).u)
1756.             'echo "Current u : " + STR$(Enemie(i).u)
1757.             'echo " Enemie Scene : " + STR$(Enemie(i).scene)
1758.             'echo "Enemie Movement : " + STR$(Enemie(i).m)
1759.         END IF
1760.     NEXT
1761.     FOR i = 1 TO Level.enemies
1762.         IF Enemie(i).active AND Enemie(i).scene = Level.currentScene THEN
1763.             'IF Enemie(i).u = Level.u THEN
1764.             '    echo "Rendered"
1765.             '    echo "********************************************************************************"
1766.             'END IF
1767.             IF Enemie(i).f > Enemie(i).n THEN SPRITENEXT Enemie(i).img: Enemie(i).f = 0
1768.  
1769.             SPRITEPUT Enemie(i).x, Enemie(i).y, Enemie(i).img
1770.  
1771.             Enemie(i).x = Enemie(i).x + Enemie(i).m
1772.             Enemie(i).f = Enemie(i).f + 1
1773.  
1774.             IF W.SE THEN _SNDBAL Enemie(i).snd, p5map(Enemie(i).x, 0, _WIDTH, -1, 1), p5map(Enemie(i).y, 0, _HEIGHT, 1, -1), , 2
1775.  
1776.             IF Enemie(i).x > _WIDTH + SPRITECURRENTWIDTH(Enemie(i).img) THEN Enemie(i).m = -Enemie(i).m: SPRITEFLIP Enemie(i).img, HORIZONTAL: PlayEnemieMusic i
1777.             IF Enemie(i).x < -SPRITECURRENTWIDTH(Enemie(i).img) THEN Enemie(i).m = -Enemie(i).m: SPRITEFLIP Enemie(i).img, NONE: PlayEnemieMusic i
1778.  
1779.             IF Mouse.x > SPRITEX1(Enemie(i).img) AND Mouse.x < SPRITEX2(Enemie(i).img) AND Mouse.y > SPRITEY1(Enemie(i).img) AND Mouse.y < SPRITEY2(Enemie(i).img) THEN
1780.                 Mouse.hovering = -1
1781.  
1782.                 IF Mouse.lclick THEN Enemie(i).life = Enemie(i).life - Gun.damage
1783.                 IF Enemie(i).life < 0 THEN Enemie(i).life = 0
1784.  
1785.                 'Showing Enemie current life with life bar
1786.                 IF Enemie(i).life = 0 THEN
1787.                     _PUTIMAGE (Enemie(i).x - SPRITECURRENTWIDTH(Enemie(i).img) / 2, Enemie(i).y - 30), lifeBars(0)
1788.                 ELSE
1789.                     _PUTIMAGE (Enemie(i).x - SPRITECURRENTWIDTH(Enemie(i).img) / 2, Enemie(i).y - 30), lifeBars(INT(Enemie(i).life / Enemie(i).life2 * 100) - 1) 'shows life bar :)
1790.                 END IF
1791.             END IF
1792.             'checking if any enemie is dead :D
1793.             IF Enemie(i).life = 0 THEN
1794.                 SPRITEHIDE Enemie(i).img
1795.                 Enemie(i).ending = -1
1796.                 Enemie(i).active = 0
1797.                 StopEnemieMusic i
1798.                 'echo "[Enemie Dead]"
1799.                 'echo "Type : " + Enemie(i).typ
1800.                 'echo "Enemie Scene" + STR$(Enemie(i).scene)
1801.                 'echo "--------------------------------------------------------------------------------------"
1802.                 'You will get more score with ShotGun :P
1803.  
1804.                 IF Gun.id = 1 THEN CurrentScore% = CurrentScore% + INT(Enemie(i).points * 1.4)
1805.  
1806.                 MakeScoreFlash Enemie(i).x, Enemie(i).y, Enemie(i).points
1807.                 CurrentScore% = CurrentScore% + Enemie(i).points
1808.                 MakeBloods Enemie(i).x, Enemie(i).y, Enemie(i).typ
1809.             END IF
1810.         END IF
1811.     NEXT
1812.  
1813.     IF Mouse.rclick THEN
1814.         IF Gun.id = 1 THEN Gun.id = 2: Gun.name = "Ak-47": Gun.damage = 6 ELSE Gun.id = 1: Gun.name = "Shot Gun": Gun.damage = 3
1815.         Mouse.rclick = 0
1816.     END IF
1817.     FOR i = 0 TO 20
1818.         IF Bloods(i).active THEN
1819.             IF Bloods(i).f > Bloods(i).n THEN SPRITENEXT Bloods(i).img: Bloods(i).f = 0: Bloods(i).currentFrame = Bloods(i).currentFrame + 1
1820.             Bloods(i).f = Bloods(i).f + 1
1821.             SPRITEPUT Bloods(i).x, Bloods(i).y, Bloods(i).img
1822.             IF Bloods(i).currentFrame > Bloods(i).totalFrames * 2 THEN Bloods(i).active = 0: SPRITEHIDE Bloods(i).img
1823.         END IF
1824.     NEXT
1825.     FOR i = 0 TO 20
1826.         IF explosions(i).active THEN
1827.             IF explosions(i).f > explosions(i).n THEN SPRITENEXT explosions(i).img: explosions(i).f = 0: explosions(i).currentFrame = explosions(i).currentFrame + 1
1828.             explosions(i).f = explosions(i).f + 1
1829.             SPRITEPUT explosions(i).x, explosions(i).y, explosions(i).img
1830.             IF explosions(i).currentFrame > explosions(i).totalFrames THEN explosions(i).active = 0: SPRITEHIDE explosions(i).img
1831.         END IF
1832.     NEXT
1833.  
1834.     IF Seconds% < OldSeconds% OR OldScore% < CurrentScore% THEN
1835.         IF Seconds% < 1 THEN Level.over = -1
1836.         OldSeconds% = Seconds%
1837.         OldScore% = CurrentScore%
1838.         IF Seconds% < 11 THEN COLOR _RGB(255, 0, 0) ELSE COLOR _RGB(255, 255, 255)
1839.         'redraw scoreboard
1840.         _PUTIMAGE (0, 520), ScoreBoard&
1841.         _PUTIMAGE (50, 550)-(170, 590), GunImg&(Gun.id - 1)
1842.         _FONT Fonts.smaller
1843.         _PRINTSTRING (40, 580), RTRIM$(Gun.name)
1844.         _PRINTSTRING (600, 560), "Score - " + STR$(CurrentScore%)
1845.         IF Seconds% >= 60 THEN t = Seconds% MOD 60 ELSE t = Seconds%
1846.         _PRINTSTRING (600, 580), "Time left - " + STR$(Minutes%) + ":" + STR$(t)
1847.         _FONT Fonts.normal
1848.         IF randomLevels THEN _PRINTSTRING (CenterPrintX("Random Levels"), 560), "Random Levels" ELSE _PRINTSTRING (CenterPrintX("Stage " + STR$(LevelStage%)), 560), "Stage " + STR$(LevelStage%)
1849.  
1850.     END IF
1851.  
1852.     Level.u = Level.u + 1
1853.     'creating new game scene
1854.     IF SceneEnd(Level.currentScene) THEN
1855.         Level.currentScene = Level.currentScene + 1
1856.         Level.u = 0
1857.         'echo "Current Scene : " + STR$(Level.currentScene)
1858.         IF Level.currentScene > Level.scenes THEN Level.completed = -1
1859.     END IF
1860.  
1861.     'game MODS
1862.     SELECT CASE Level.mode
1863.         CASE FOGMODE
1864.             Fogs.x = Fogs.x - Fogs.move
1865.             IF Fogs.x < -1600 OR Fogs.x > 0 THEN Fogs.move = -Fogs.move
1866.             _PUTIMAGE (Fogs.x, 0), Fogs.handle
1867.  
1868.         CASE THUNDERMODE
1869.             FallDrops
1870.             DrawDrops
1871.  
1872.         CASE STORMMODE
1873.             _PUTIMAGE (StormX%, 0), StormImg&
1874.             StormX% = StormX% - 1
1875.             IF StormX% < -2300 THEN StormX% = 0
1876.  
1877.         CASE FOGMODE + THUNDERMODE
1878.             Fogs.x = Fogs.x - Fogs.move
1879.             IF Fogs.x < -1600 OR Fogs.x > 0 THEN Fogs.move = -Fogs.move
1880.             _PUTIMAGE (Fogs.x, 0), Fogs.handle
1881.  
1882.             FallDrops
1883.             DrawDrops
1884.  
1885.         CASE FOGMODE + THUNDERMODE + 7
1886.             Fogs.x = Fogs.x - Fogs.move
1887.             IF Fogs.x < -1600 OR Fogs.x > 0 THEN Fogs.move = -Fogs.move
1888.             _PUTIMAGE (Fogs.x, 0), Fogs.handle
1889.  
1890.             FallDrops
1891.             DrawDrops
1892.         CASE STORMMODE + THUNDERMODE
1893.             _PUTIMAGE (StormX%, 0), StormImg&
1894.             StormX% = StormX% - 1
1895.             IF StormX% < -2300 THEN StormX% = 0
1896.  
1897.             FallDrops
1898.             DrawDrops
1899.  
1900.         CASE STORMMODE + FOGMODE + THUNDERMODE
1901.             Fogs.x = Fogs.x - Fogs.move
1902.             IF Fogs.x < -1600 OR Fogs.x > 0 THEN Fogs.move = -Fogs.move
1903.             _PUTIMAGE (Fogs.x, 0), Fogs.handle
1904.  
1905.             _PUTIMAGE (StormX%, 0), StormImg&
1906.             StormX% = StormX% - 1
1907.             IF StormX% < -2300 THEN StormX% = 0
1908.  
1909.             FallDrops
1910.             DrawDrops
1911.  
1912.     END SELECT
1913.  
1914.     'scores effect
1915.     FOR i = 0 TO UBOUND(ShotScore)
1916.         IF ShotScore(i).active = -1 THEN
1917.             ShotScore(i).sclX = SIN(ShotScore(i).__ops) * .5 + .5
1918.             _PUTIMAGE (ShotScore(i).x - (ShotScore(i).sclX * _WIDTH(ShotScore(i).img) / 2), ShotScore(i).y - (ShotScore(i).sclX * _HEIGHT(ShotScore(i).img)) / 2)-(ShotScore(i).x + (ShotScore(i).sclX * _WIDTH(ShotScore(i).img)) / 2, ShotScore(i).y + (ShotScore(i).sclX * _HEIGHT(ShotScore(i).img)) / 2), ShotScore(i).img
1919.             ShotScore(i).__ops = ShotScore(i).__ops + .1
1920.             IF ShotScore(i).__ops > _PI(1.5) THEN
1921.                 ShotScore(i).active = 0
1922.             END IF
1923.         END IF
1924.     NEXT
1925.  
1926.     'countdown when game time is less or equal to 10s
1927.     IF Seconds% < 11 THEN
1928.         COLOR _RGB(255, 0, 0)
1929.         _FONT Fonts.biggest
1930.         _PRINTSTRING (CenterPrintX(RTRIM$(LTRIM$(STR$(Seconds%)))), _HEIGHT / 2 - _FONTHEIGHT / 2), RTRIM$(LTRIM$(STR$(Seconds%)))
1931.     END IF
1932.  
1933.     'cursors
1934.     IF Mouse.lclick THEN
1935.         Mouse.lclick = 0
1936.         IF W.sfx THEN
1937.             IF Gun.id = 1 THEN _SNDPLAYCOPY Gun1& ELSE _SNDPLAYCOPY Gun2&
1938.         END IF
1939.     END IF
1940.     IF Mouse.hovering THEN
1941.         Mouse.hovering = 0
1942.         _PUTIMAGE (Mouse.x - 16, Mouse.y - 16), Mouse.cursor2
1943.     ELSE
1944.         _PUTIMAGE (Mouse.x - 16, Mouse.y - 16), Mouse.cursor
1945.     END IF
1946.  
1947.     IF Level.mode = THUNDERMODE OR Level.mode = THUNDERMODE + FOGMODE + 7 THEN
1948.         IF thunder_ha_count_limit = 0 THEN thunder_ha_count_limit = p5random(1, 4)
1949.         IF ThunderEvent = 0 THEN ThunderEvent = p5random(30, 340)
1950.         ThunderCount = ThunderCount + 1
1951.         IF ThunderCount > ThunderEvent THEN
1952.             thunder_f_count = thunder_f_count + 1
1953.             tmp& = _COPYIMAGE(0)
1954.             tmp2& = _COPYIMAGE(0)
1955.             MakeThunderImage tmp&
1956.             _PUTIMAGE , tmp&
1957.             _DISPLAY
1958.             _PUTIMAGE , tmp2&
1959.             _FREEIMAGE tmp&
1960.             _FREEIMAGE tmp2&
1961.             IF thunder_f_count > 3 THEN
1962.                 IF thunder_ha_count < thunder_ha_count_limit THEN
1963.                     ' ThunderCount = 0
1964.                     thunder_f_count = 0
1965.                     ThunderEvent = ThunderEvent + p5random(4, 25) + 3
1966.                     thunder_ha_count = thunder_ha_count + 1
1967.                 ELSE
1968.                     thunder_ha_count = 0
1969.                     thunder_f_count = 0
1970.                     ThunderEvent = 0
1971.                     ThunderCount = 0
1972.                     thunder_ha_count_limit = p5random(1, 4)
1973.                 END IF
1974.             END IF
1975.         ELSE
1976.             _DISPLAY
1977.         END IF
1978.     ELSE
1979.         _DISPLAY
1980.     END IF
1981.     ' $checking:on
1982. END SUB
1983.  
1984. SUB MakeBloods (x, y, typ AS STRING * 16)
1985.     SELECT CASE RTRIM$(typ)
1986.         CASE "jet1", "jet2", "jet3"
1987.             MakeExplosions x, y
1988.             EXIT SUB
1989.     END SELECT
1990.     DIM i AS INTEGER
1991.     FOR i = 0 TO 20
1992.         IF Bloods(i).active = 0 THEN
1993.             Bloods(i).active = -1
1994.             Bloods(i).x = x
1995.             Bloods(i).y = y
1996.             Bloods(i).currentFrame = 1
1997.             SPRITESHOW Bloods(i).img
1998.             EXIT SUB
1999.         END IF
2000.     NEXT
2001. END SUB
2002.  
2003. SUB MakeExplosions (x, y)
2004.     DIM i AS INTEGER
2005.     FOR i = 0 TO 20
2006.         IF explosions(i).active = 0 THEN
2007.             explosions(i).active = -1
2008.             explosions(i).x = x
2009.             explosions(i).y = y
2010.             explosions(i).currentFrame = 1
2011.             SPRITESHOW explosions(i).img
2012.             IF W.sfx THEN _SNDPLAY Expos&
2013.             EXIT SUB
2014.         END IF
2015.     NEXT
2016. END SUB
2017.  
2018. SUB MakeScoreFlash (x, y, s)
2019.     DIM i AS INTEGER
2020.     FOR i = 0 TO UBOUND(ShotScore)
2021.         IF ShotScore(i).active = 0 THEN
2022.             ShotScore(i).active = -1
2023.             ShotScore(i).x = x
2024.             ShotScore(i).y = y
2025.             ShotScore(i).__ops = -_PI(.5)
2026.             SELECT CASE s
2027.                 CASE 10
2028.                     ShotScore(i).img = scoresImage(0)
2029.                 CASE 20
2030.                     ShotScore(i).img = scoresImage(1)
2031.                 CASE 35
2032.                     ShotScore(i).img = scoresImage(2)
2033.                 CASE 50
2034.                     ShotScore(i).img = scoresImage(3)
2035.                 CASE 75
2036.                     ShotScore(i).img = scoresImage(4)
2037.                 CASE 100
2038.                     ShotScore(i).img = scoresImage(5)
2039.             END SELECT
2040.         END IF
2041.     NEXT
2042. END SUB
2043.  
2044. SUB UpdateTime ()
2045.     Seconds% = Seconds% - 1
2046.     Minutes% = (Seconds% - (Seconds% MOD 60)) / 60
2047. END SUB
2048.  
2049. SUB CloseTime
2050.     TIMER(TimerEvent) OFF
2051. END SUB
2052.  
2053. SUB PlayEnemieMusic (which&)
2054.     IF W.sfx = 0 THEN EXIT SUB
2055.  
2056.     _SNDPLAY Enemie(which&).snd
2057. END SUB
2058.  
2059. SUB StopEnemieMusic (which&)
2060.     _SNDSTOP Enemie(which&).snd
2061.     Enemie(which&).sndPaused = 2 '2 for stop and 1 for paused
2062. END SUB
2063.  
2064. SUB updateSfxVolume ()
2065.     IF NOT W.sfx THEN EXIT SUB
2066.  
2067.     DIM i AS INTEGER
2068.     FOR i = 1 TO Level.enemies
2069.         _SNDVOL Enemie(i).snd, W.sfxV
2070.     NEXT
2071.     _SNDVOL RainSound&, W.sfxV
2072. END SUB
2073.  
2074. SUB setMusicVol (v!)
2075.     IF NOT W.music THEN EXIT SUB
2076.     _SNDVOL Musics&(0), v!
2077.     _SNDVOL Musics&(1), v!
2078.     _SNDVOL Musics&(2), v!
2079. END SUB
2080.  
2081. SUB PlayPausedSound ()
2082.     DIM i AS INTEGER
2083.     FOR i = 1 TO Level.enemies
2084.         IF Enemie(i).sndPaused = 1 THEN Enemie(i).sndPaused = 0: _SNDPLAY Enemie(i).snd
2085.     NEXT
2086.     IF Level.mode = THUNDERMODE OR Level.mode = FOGMODE + THUNDERMODE THEN
2087.         IF NOT _SNDPLAYING(RainSound&) THEN _SNDPLAY RainSound&
2088.     END IF
2089. END SUB
2090.  
2091. SUB PauseSound ()
2092.  
2093.     DIM i AS INTEGER
2094.     FOR i = 1 TO Level.enemies
2095.         IF Enemie(i).sndPaused = 0 THEN _SNDSTOP Enemie(i).snd: Enemie(i).sndPaused = 1
2096.     NEXT
2097.  
2098.     IF _SNDPLAYING(RainSound&) THEN _SNDSTOP RainSound&
2099.  
2100. END SUB
2101.  
2102. FUNCTION SceneEnd (which%)
2103.     DIM i AS INTEGER, d AS _BYTE
2104.  
2105.     FOR i = 1 TO Level.enemies
2106.         IF Enemie(i).ending = 0 AND Enemie(i).scene = which% THEN d = -1: EXIT FOR
2107.     NEXT
2108.     IF d = 0 THEN SceneEnd = -1 ELSE SceneEnd = 0
2109. END FUNCTION
2110.  
2111. SUB SaveGame ()
2112.     DIM a$, F AS INTEGER
2113.     a$ = "Save_Game\save.dat"
2114.     KILL a$
2115.     F = FREEFILE
2116.     LevelStage% = LevelStage% + 1
2117.     OPEN a$ FOR BINARY AS #F
2118.     IF HighScore% < CurrentScore% THEN PUT #F, , CurrentScore% ELSE PUT #F, , HighScore%
2119.     PUT #F, , LevelStage%
2120.     CLOSE #F
2121. END SUB
2122.  
2123. SUB SetupRain ()
2124.     DIM i AS INTEGER
2125.     FOR i = 0 TO UBOUND(Drop)
2126.         Drop(i).x = RND * _WIDTH
2127.         Drop(i).y = -(RND * (_HEIGHT * 3))
2128.         Drop(i).z = INT(RND * 1)
2129.         Drop(i).yspeed = Map(Drop(i).z, 0, 1, 1, 2)
2130.         Drop(i).len = Map(Drop(i).z, 0, 1, 8, 16)
2131.         Drop(i).gravity = Map(Drop(i).z, 0, 1, 0.1, 0.3)
2132.     NEXT
2133.     RainVol# = -1.0
2134. END SUB
2135.  
2136. SUB FallDrops ()
2137.     DIM i AS INTEGER
2138.     FOR i = 0 TO UBOUND(drop)
2139.         Drop(i).y = Drop(i).y + Drop(i).yspeed
2140.         Drop(i).yspeed = Drop(i).yspeed + Drop(i).gravity
2141.         IF Drop(i).y > _HEIGHT THEN Drop(i).y = RND * -400: Drop(i).yspeed = Map(Drop(i).z, 0, 1, 1, 2)
2142.     NEXT
2143. END SUB
2144.  
2145. SUB DrawDrops ()
2146.     DIM i AS INTEGER
2147.     IF W.sfx THEN
2148.         ' IF RainVol# < .98 THEN RainVol# = RainVol# + 0.01: _SNDBAL RainSound&, 0, 0, RainVol#
2149.         IF NOT _SNDPLAYING(RainSound&) THEN _SNDPLAY RainSound&
2150.     END IF
2151.     FOR i = 0 TO UBOUND(drop)
2152.         IF Drop(i).z = 0 THEN _PUTIMAGE (Drop(i).x, Drop(i).y), Rainx8& ELSE _PUTIMAGE (Drop(i).x, Drop(i).y), Rainx16&
2153.     NEXT
2154.  
2155. END SUB
2156.  
2157.  
2158. FUNCTION Map (value, r1, r2, e1, e2)
2159.     IF value = r1 THEN Map = e1
2160.     IF value = r2 THEN Map = e2
2161. END FUNCTION
2162.  
2163. SUB MakeThunderImage (original_img&)
2164.     IF original_img& = -1 THEN EXIT SUB
2165.  
2166.     $CHECKING:OFF
2167.     DIM buffer AS _MEM, o AS _OFFSET, o2 AS _OFFSET
2168.     DIM b AS _UNSIGNED _BYTE, n AS _BYTE
2169.     n = p5random(30, 120)
2170.  
2171.     buffer = _MEMIMAGE(original_img&)
2172.     o = buffer.OFFSET
2173.     o2 = o + _WIDTH(original_img&) * _HEIGHT(original_img&) * 4
2174.     DO
2175.         ' echo str$(o)
2176.         b = _MEMGET(buffer, o, _UNSIGNED _BYTE)
2177.         IF b + n < 256 THEN b = b + n ELSE b = 255
2178.         _MEMPUT buffer, o, b AS _UNSIGNED _BYTE
2179.         b = _MEMGET(buffer, o + 1, _UNSIGNED _BYTE)
2180.         IF b + n < 256 THEN b = b + n ELSE b = 255
2181.         _MEMPUT buffer, o + 1, b AS _UNSIGNED _BYTE
2182.         b = _MEMGET(buffer, o + 2, _UNSIGNED _BYTE)
2183.         IF b + n < 256 THEN b = b + n ELSE b = 255
2184.         _MEMPUT buffer, o + 2, b AS _UNSIGNED _BYTE
2185.         o = o + 4
2186.     LOOP UNTIL o = o2
2187.     _MEMFREE buffer
2188.     $CHECKING:ON
2189. END SUB
2190.  
2191. SUB centerImage (img&)
2192.     _PUTIMAGE ((_WIDTH / 2) - (_WIDTH(img&) / 2), (_HEIGHT / 2) - (_HEIGHT(img&) / 2))-STEP(_WIDTH(img&), _HEIGHT(img&)), img&
2193. END SUB
2194.  
2195. SUB showCredits ()
2196.     DIM k&, f&, i AS INTEGER, f2&, yy AS INTEGER
2197.  
2198.     k& = _LOADIMAGE("Images/credits.png", 33)
2199.     f& = _NEWIMAGE(_WIDTH(k&), _HEIGHT(k&), 32)
2200.     _DEST f&
2201.     FOR i = 0 TO 255
2202.         LINE (0, (_HEIGHT - 255) + i)-(_WIDTH, (_HEIGHT - 255) + i), _RGBA(0, 0, 0, i)
2203.         LINE (0, 255 - i)-(_WIDTH, 255 - i), _RGBA(0, 0, 0, i)
2204.     NEXT
2205.     _DEST 0
2206.     f2& = _COPYIMAGE(f&, 33)
2207.     SWAP f&, f2&
2208.     _FREEIMAGE f2&
2209.     yy = _HEIGHT + 50
2210.     DO
2211.  
2212.         _PUTIMAGE (50, yy), k&
2213.         _PUTIMAGE , f&
2214.         yy = yy - 1
2215.  
2216.         _DISPLAY
2217.         _LIMIT W.fps
2218.     LOOP UNTIL yy < -_HEIGHT(k&)
2219.     _FREEIMAGE f&
2220.     _FREEIMAGE k&
2221. END SUB
2222.  
2223. ' SUB showCredits2 ()
2224. ' CLS
2225. ' _FONT Fonts.bigger
2226. ' _PRINTSTRING (CenterPrintX("Super Hunters 2017-18"), 250), "Super Hunters 2017-18"
2227. ' _FONT Fonts.normal
2228. ' _PRINTSTRING (CenterPrintX("By Ashish Kushwaha"), 290), "By Ashish Kushwaha"
2229. ' initTextParticles _RGB(255, 255, 255)
2230. ' CLS
2231. ' DO
2232. ' CLS
2233. ' moveTextParticles
2234. ' _LIMIT W.fps
2235. ' _DISPLAY
2236. ' LOOP UNTIL Text_Particles_Status = 1
2237. ' _DELAY 1
2238. ' fallTextParticles "fall"
2239. ' CLS
2240. ' _FONT Fonts.bigger
2241. ' _PRINTSTRING (CenterPrintX("Programmer"), 250), "Programmer"
2242. ' _FONT Fonts.normal
2243. ' _PRINTSTRING (CenterPrintX("Ashish Kushwaha"), 290), "Ashish Kushwaha"
2244. ' initTextParticles _RGB(255, 255, 255)
2245. ' ' _DISPLAY: SLEEP
2246. ' CLS
2247. ' DO
2248. ' CLS
2249. ' moveTextParticles
2250. ' _LIMIT W.fps
2251. ' _DISPLAY
2252. ' LOOP UNTIL Text_Particles_Status = 1
2253. ' _DELAY 1
2254. ' fallTextParticles "lessgravity"
2255. ' CLS
2256. ' _FONT Fonts.bigger
2257. ' _PRINTSTRING (CenterPrintX("Graphic Designer"), 250), "Graphic Designer"
2258. ' _FONT Fonts.normal
2259. ' _PRINTSTRING (CenterPrintX("Google Images & Ashish Kushwaha"), 290), "Google Images & Ashish Kushwaha"
2260. ' initTextParticles _RGB(255, 255, 255)
2261. ' CLS
2262. ' DO
2263. ' CLS
2264. ' moveTextParticles
2265. ' _LIMIT W.fps
2266. ' _DISPLAY
2267. ' LOOP UNTIL Text_Particles_Status = 1
2268. ' _DELAY 1
2269. ' fallTextParticles "explode"
2270. ' CLS
2271. ' _FONT Fonts.bigger
2272. ' _PRINTSTRING (CenterPrintX("Level Designer"), 250), "Level Designer"
2273. ' _FONT Fonts.normal
2274. ' _PRINTSTRING (CenterPrintX("Ashish Kushwaha"), 290), "Ashish Kushwaha"
2275. ' initTextParticles _RGB(255, 255, 255)
2276. ' CLS
2277. ' DO
2278. ' CLS
2279. ' moveTextParticles
2280. ' _LIMIT W.fps
2281. ' _DISPLAY
2282. ' LOOP UNTIL Text_Particles_Status = 1
2283. ' _DELAY 1
2284. ' fallTextParticles "horizontal"
2285. ' CLS
2286. ' _FONT Fonts.bigger
2287. ' _PRINTSTRING (CenterPrintX("Special Thanks -"), 230), "Special Thanks -"
2288. ' _FONT Fonts.normal
2289. ' _PRINTSTRING (CenterPrintX("Terry Ritchie for sprite library"), 270), "Terry Ritchie for sprite library"
2290. ' _PRINTSTRING (CenterPrintX("Unseenmachine & [banned user] for BlurImage"), 320), "Unseenmachine & [banned user] for BlurImage"
2291. ' _PRINTSTRING (CenterPrintX("and player of this game!"), 345), "and player of this game!"
2292. ' initTextParticles _RGB(255, 255, 255)
2293. ' CLS
2294. ' DO
2295. ' CLS
2296. ' moveTextParticles
2297. ' _LIMIT W.fps
2298. ' _DISPLAY
2299. ' LOOP UNTIL Text_Particles_Status = 1
2300. ' _DELAY 1
2301. ' fallTextParticles "boom"
2302.  
2303. ' END SUB
2304.  
2305. ' SUB initTextParticles (which~&)
2306. ' SHARED Text_Particles() AS Vector_Particles_Text_Type
2307. ' FOR y = 0 TO _HEIGHT - 1
2308. ' FOR x = 0 TO _WIDTH - 1
2309. ' col~& = POINT(x, y)
2310. ' IF col~& = which~& THEN n = n + 1
2311. ' NEXT x, y
2312.  
2313. ' REDIM Text_Particles(n) AS Vector_Particles_Text_Type
2314. ' n = 0
2315. ' Text_Particles_Color = which~&
2316. ' FOR x = 0 TO _WIDTH - 1
2317. ' FOR y = 0 TO _HEIGHT - 1
2318. ' col~& = POINT(x, y)
2319. ' IF col~& = which~& THEN
2320. ' Text_Particles(n).x = x
2321. ' Text_Particles(n).y = y
2322. ' Text_Particles(n).vx = p5random(0, _WIDTH)
2323. ' Text_Particles(n).vy = p5random(0, _HEIGHT)
2324. ' Text_Particles(n).dist = dist(Text_Particles(n).vx, Text_Particles(n).vy, Text_Particles(n).x, Text_Particles(n).y)
2325. ' Text_Particles(n).distX = ABS(Text_Particles(n).x - Text_Particles(n).vx)
2326. ' Text_Particles(n).distY = ABS(Text_Particles(n).y - Text_Particles(n).vy)
2327. ' n = n + 1
2328. ' END IF
2329. ' NEXT y, x
2330. ' END SUB
2331.  
2332. ' SUB moveTextParticles ()
2333. ' SHARED Text_Particles() AS Vector_Particles_Text_Type
2334. ' FOR i = 0 TO UBOUND(Text_Particles)
2335. ' IF Text_Particles(i).k < Text_Particles(i).dist THEN
2336. ' PSET (Text_Particles(i).vx + Text_Particles(i).delX, Text_Particles(i).vy + Text_Particles(i).delY), Text_Particles_Color
2337. ' IF Text_Particles(i).vx > Text_Particles(i).x THEN Text_Particles(i).delX = Text_Particles(i).delX - Text_Particles(i).distX / Text_Particles(i).dist ELSE Text_Particles(i).delX = Text_Particles(i).delX + Text_Particles(i).distX / Text_Particles(i).dist
2338. ' IF Text_Particles(i).vy > Text_Particles(i).y THEN Text_Particles(i).delY = Text_Particles(i).delY - Text_Particles(i).distY / Text_Particles(i).dist ELSE Text_Particles(i).delY = Text_Particles(i).delY + Text_Particles(i).distY / Text_Particles(i).dist
2339. ' Text_Particles(i).k = Text_Particles(i).k + 1
2340. ' ELSE
2341. ' PSET (Text_Particles(i).x, Text_Particles(i).y), Text_Particles_Color
2342. ' check = check + 1
2343. ' END IF
2344. ' NEXT
2345. ' IF check >= UBOUND(text_particles) THEN Text_Particles_Status = 1: EXIT SUB ELSE Text_Particles_Status = 0
2346.  
2347. ' END SUB
2348.  
2349. ' SUB fallTextParticles (typ$)
2350. ' SHARED Text_Particles() AS Vector_Particles_Text_Type
2351. ' typ$ = LCASE$(typ$)
2352. ' SELECT CASE typ$
2353. ' CASE "explode"
2354. ' FOR i = 0 TO UBOUND(Text_Particles)
2355. ' Text_Particles(i).vx = 0
2356. ' Text_Particles(i).vy = 0
2357. ' Text_Particles(i).delX = p5random(-0.1, 0.1)
2358. ' Text_Particles(i).delY = p5random(-0.1, 0.1)
2359. ' NEXT
2360. ' DO
2361. ' CLS
2362. ' z = 0
2363. ' FOR i = 0 TO UBOUND(Text_Particles)
2364.  
2365. ' PSET (Text_Particles(i).x, Text_Particles(i).y), Text_Particles_Color
2366. ' IF i < array_len THEN
2367. ' Text_Particles(i).x = Text_Particles(i).x + Text_Particles(i).vx
2368. ' Text_Particles(i).y = Text_Particles(i).y + Text_Particles(i).vy
2369. ' Text_Particles(i).vx = Text_Particles(i).vx + Text_Particles(i).delX
2370. ' Text_Particles(i).vy = Text_Particles(i).vy + Text_Particles(i).delY
2371. ' END IF
2372. ' IF Text_Particles(i).x > _WIDTH OR Text_Particles(i).x < 0 OR Text_Particles(i).y > _HEIGHT OR Text_Particles(i).y < 0 THEN z = z + 1
2373. ' NEXT
2374. ' IF array_len < UBOUND(Text_Particles) THEN array_len = array_len + steps
2375. ' _DISPLAY
2376. ' _LIMIT W.fps
2377. ' steps = steps + 1
2378. ' IF z > UBOUND(Text_Particles) THEN EXIT DO
2379. ' LOOP UNTIL INKEY$ <> ""
2380. ' EXIT SUB
2381. ' CASE "fall"
2382. ' FOR i = 0 TO UBOUND(text_particles)
2383. ' Text_Particles(i).vx = 0
2384. ' Text_Particles(i).vy = 0
2385. ' Text_Particles(i).delX = p5random(-.02, .02)
2386. ' Text_Particles(i).delY = p5random(0.1, 0.2)
2387. ' NEXT
2388. ' DO
2389. ' CLS
2390. ' z = 0
2391. ' FOR i = 0 TO UBOUND(text_particles)
2392. ' PSET (Text_Particles(i).x, Text_Particles(i).y), Text_Particles_Color
2393. ' IF i < array_len THEN
2394. ' Text_Particles(i).x = Text_Particles(i).x + Text_Particles(i).vx
2395. ' Text_Particles(i).y = Text_Particles(i).y + Text_Particles(i).vy
2396. ' Text_Particles(i).vx = Text_Particles(i).vx + Text_Particles(i).delX
2397. ' Text_Particles(i).vy = Text_Particles(i).vy + Text_Particles(i).delY
2398. ' END IF
2399. ' IF Text_Particles(i).x > _WIDTH OR Text_Particles(i).x < 0 OR Text_Particles(i).y > _HEIGHT OR Text_Particles(i).y < 0 THEN z = z + 1
2400. ' NEXT
2401. ' IF array_len < UBOUND(text_particles) THEN array_len = array_len + steps
2402. ' _DISPLAY
2403. ' _LIMIT W.fps
2404. ' steps = steps + 1
2405. ' IF z = UBOUND(text_particles) THEN EXIT DO
2406. ' LOOP
2407. ' EXIT SUB
2408.  
2409. ' CASE "lessgravity"
2410. ' FOR i = 0 TO UBOUND(Text_Particles)
2411. ' Text_Particles(i).vx = 0
2412. ' Text_Particles(i).vy = 0
2413. ' Text_Particles(i).delX = p5random(-.02, .02)
2414. ' Text_Particles(i).delY = p5random(-0.1, -0.2)
2415. ' NEXT
2416. ' DO
2417. ' CLS
2418. ' z = 0
2419. ' FOR i = 0 TO UBOUND(Text_Particles)
2420. ' PSET (Text_Particles(i).x, Text_Particles(i).y), Text_Particles_Color
2421. ' IF i < array_len THEN
2422. ' Text_Particles(i).x = Text_Particles(i).x + Text_Particles(i).vx
2423. ' Text_Particles(i).y = Text_Particles(i).y + Text_Particles(i).vy
2424. ' Text_Particles(i).vx = Text_Particles(i).vx + Text_Particles(i).delX
2425. ' Text_Particles(i).vy = Text_Particles(i).vy + Text_Particles(i).delY
2426. ' END IF
2427. ' IF Text_Particles(i).x > _WIDTH OR Text_Particles(i).x < 0 OR Text_Particles(i).y > _HEIGHT OR Text_Particles(i).y < 0 THEN z = z + 1
2428. ' NEXT
2429. ' IF array_len < UBOUND(Text_Particles) THEN array_len = array_len + steps
2430. ' _DISPLAY
2431. ' _LIMIT W.fps
2432. ' steps = steps + 1
2433. ' LOOP UNTIL INKEY$ <> "" OR z >= UBOUND(text_particles)
2434. ' EXIT SUB
2435. ' CASE "horizontal"
2436. ' FOR i = 0 TO UBOUND(Text_Particles)
2437. ' Text_Particles(i).vx = 0
2438. ' Text_Particles(i).vy = 0
2439. ' Text_Particles(i).delX = p5random(-.2, .2)
2440. ' Text_Particles(i).delY = 0
2441. ' NEXT
2442. ' DO
2443. ' CLS
2444. ' z = 0
2445. ' FOR i = 0 TO UBOUND(Text_Particles)
2446. ' PSET (Text_Particles(i).x, Text_Particles(i).y), Text_Particles_Color
2447. ' Text_Particles(i).x = Text_Particles(i).x + Text_Particles(i).vx
2448. ' Text_Particles(i).y = Text_Particles(i).y + Text_Particles(i).vy
2449. ' Text_Particles(i).vx = Text_Particles(i).vx + Text_Particles(i).delX
2450. ' Text_Particles(i).vy = Text_Particles(i).vy + Text_Particles(i).delY
2451. ' IF Text_Particles(i).x > _WIDTH OR Text_Particles(i).x < 0 OR Text_Particles(i).y > _HEIGHT OR Text_Particles(i).y < 0 THEN z = z + 1
2452. ' NEXT
2453. ' _DISPLAY
2454. ' _LIMIT W.fps
2455. ' LOOP UNTIL INKEY$ <> "" OR z >= UBOUND(text_particles)
2456. ' EXIT SUB
2457. ' CASE "vertical"
2458. ' FOR i = 0 TO UBOUND(Text_Particles)
2459. ' Text_Particles(i).vx = 0
2460. ' Text_Particles(i).vy = 0
2461. ' Text_Particles(i).delX = 0
2462. ' Text_Particles(i).delY = p5random(-0.2, 0.2)
2463. ' NEXT
2464. ' DO
2465. ' CLS
2466. ' z = 0
2467. ' FOR i = 0 TO UBOUND(Text_Particles)
2468. ' PSET (Text_Particles(i).x, Text_Particles(i).y), Text_Particles_Color
2469.  
2470. ' Text_Particles(i).x = Text_Particles(i).x + Text_Particles(i).vx
2471. ' Text_Particles(i).y = Text_Particles(i).y + Text_Particles(i).vy
2472. ' Text_Particles(i).vx = Text_Particles(i).vx + Text_Particles(i).delX
2473. ' Text_Particles(i).vy = Text_Particles(i).vy + Text_Particles(i).delY
2474.  
2475. ' IF Text_Particles(i).x > _WIDTH OR Text_Particles(i).x < 0 OR Text_Particles(i).y > _HEIGHT OR Text_Particles(i).y < 0 THEN z = z + 1
2476. ' NEXT
2477. ' _DISPLAY
2478. ' _LIMIT W.fps
2479. ' LOOP UNTIL INKEY$ <> "" OR z >= UBOUND(text_particles)
2480. ' EXIT SUB
2481.  
2482. ' CASE "boom"
2483. ' FOR i = 0 TO UBOUND(Text_Particles)
2484. ' Text_Particles(i).vx = 0
2485. ' Text_Particles(i).vy = 0
2486. ' Text_Particles(i).delX = p5random(-.1, .1)
2487. ' Text_Particles(i).delY = p5random(-0.1, 0.1)
2488. ' NEXT
2489. ' DO
2490. ' CLS
2491. ' steps = 0
2492. ' FOR i = 0 TO UBOUND(Text_Particles)
2493. ' PSET (Text_Particles(i).x, Text_Particles(i).y), Text_Particles_Color
2494. ' Text_Particles(i).x = Text_Particles(i).x + Text_Particles(i).vx
2495. ' Text_Particles(i).y = Text_Particles(i).y + Text_Particles(i).vy
2496. ' Text_Particles(i).vx = Text_Particles(i).vx + Text_Particles(i).delX
2497. ' Text_Particles(i).vy = Text_Particles(i).vy + Text_Particles(i).delY
2498. ' IF Text_Particles(i).x > _WIDTH OR Text_Particles(i).x < 0 OR Text_Particles(i).y > _HEIGHT OR Text_Particles(i).y < 0 THEN steps = steps + 1
2499. ' NEXT
2500. ' _DISPLAY
2501. ' _LIMIT W.fps
2502. ' IF steps > UBOUND(Text_Particles) THEN EXIT DO
2503. ' LOOP UNTIL INKEY$ <> "" OR steps > UBOUND(text_particles)
2504. ' EXIT SUB
2505. ' END SELECT
2506. ' END SUB
2507.  
2508. SUB centerPrint (a$, b)
2509.     DIM i AS INTEGER, v AS INTEGER
2510.     FOR i = 1 TO LEN(a$)
2511.         v = v + _PRINTWIDTH(MID$(a$, i, 1))
2512.     NEXT
2513.     _PRINTSTRING (_WIDTH / 2 - v / 2, b), a$
2514. END SUB
2515.  
2516. FUNCTION txtWidth (a$)
2517.     DIM i AS INTEGER, v AS INTEGER, g AS INTEGER
2518.     FOR i = 1 TO LEN(a$)
2519.         g = _PRINTWIDTH(MID$(a$, i, 1))
2520.         v = v + g
2521.     NEXT
2522.     txtWidth = v
2523. END FUNCTION
2524. 'these p5random(), p5map! (original map!) and dist() functions are taken from p5js.bas
2525. FUNCTION p5random! (mn!, mx!)
2526.     DIM tmp!
2527.  
2528.     IF mn! > mx! THEN
2529.         tmp! = mn!
2530.         mn! = mx!
2531.         mx! = tmp!
2532.     END IF
2533.     p5random! = RND * (mx! - mn!) + mn!
2534. END FUNCTION
2535.  
2536. FUNCTION dist! (x1!, y1!, x2!, y2!)
2537.     dist! = SQR((x2! - x1!) ^ 2 + (y2! - y1!) ^ 2)
2538. END FUNCTION
2539.  
2540. FUNCTION p5map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
2541.     p5map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
2542. END FUNCTION
2543.  
2544.  
2545. 'By UnseenMachine & [banned user]
2546. 'http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=12658
2547. SUB BLURIMAGE (Image AS LONG, Blurs AS _UNSIGNED INTEGER)
2548.  
2549.     DIM ImageMemory AS _MEM
2550.     DIM ImageOffsetCurrent AS _OFFSET
2551.     DIM ImageOffsetStart AS _OFFSET
2552.     DIM ImageOffsetEnd AS _OFFSET
2553.  
2554.     DIM TopOffset AS _OFFSET
2555.     DIM LeftOffset AS _OFFSET
2556.     DIM RightOffset AS _OFFSET
2557.     DIM BottomOffset AS _OFFSET
2558.  
2559.     DIM Red1 AS _UNSIGNED _BYTE
2560.     DIM Green1 AS _UNSIGNED _BYTE
2561.     DIM Blue1 AS _UNSIGNED _BYTE
2562.     DIM Alpha1 AS _UNSIGNED _BYTE
2563.  
2564.     DIM Red2 AS _UNSIGNED _BYTE
2565.     DIM Green2 AS _UNSIGNED _BYTE
2566.     DIM Blue2 AS _UNSIGNED _BYTE
2567.     DIM Alpha2 AS _UNSIGNED _BYTE
2568.  
2569.     DIM Red3 AS _UNSIGNED _BYTE
2570.     DIM Green3 AS _UNSIGNED _BYTE
2571.     DIM Blue3 AS _UNSIGNED _BYTE
2572.     DIM Alpha3 AS _UNSIGNED _BYTE
2573.  
2574.     DIM Red4 AS _UNSIGNED _BYTE
2575.     DIM Green4 AS _UNSIGNED _BYTE
2576.     DIM Blue4 AS _UNSIGNED _BYTE
2577.     DIM Alpha4 AS _UNSIGNED _BYTE
2578.  
2579.     ImageMemory = _MEMIMAGE(Image)
2580.  
2581.     $CHECKING:OFF
2582.  
2583.     DIM iterations%
2584.  
2585.     FOR iterations% = 0 TO Blurs - 1
2586.  
2587.         ImageOffsetStart = ImageMemory.OFFSET
2588.         ImageOffsetCurrent = ImageOffsetStart
2589.         ImageOffsetEnd = ImageOffsetStart + _WIDTH(Image) * _HEIGHT(Image) * 4
2590.  
2591.         DO
2592.             TopOffset = ImageOffsetCurrent - _WIDTH(Image) * 4
2593.             LeftOffset = ImageOffsetCurrent - 4
2594.             RightOffset = ImageOffsetCurrent + 4
2595.             BottomOffset = ImageOffsetCurrent + _WIDTH(Image) * 4
2596.  
2597.             ' *** Let's go ahead and set the color values to zero, and only change them when required.
2598.             Red1 = 0: Green1 = 0: Blue1 = 0: Alpha1 = 0
2599.             Red2 = 0: Green2 = 0: Blue2 = 0: Alpha2 = 0
2600.             Red3 = 0: Green3 = 0: Blue3 = 0: Alpha3 = 0
2601.             Red4 = 0: Green4 = 0: Blue4 = 0: Alpha4 = 0
2602.  
2603.             ' *** Get the color values from the pixel above the current pixel, if it is with the image.
2604.             IF TopOffset >= ImageOffsetStart THEN
2605.                 Red1 = _MEMGET(ImageMemory, TopOffset + 2, _UNSIGNED _BYTE)
2606.                 Green1 = _MEMGET(ImageMemory, TopOffset + 1, _UNSIGNED _BYTE)
2607.                 Blue1 = _MEMGET(ImageMemory, TopOffset, _UNSIGNED _BYTE)
2608.                 Alpha1 = _MEMGET(ImageMemory, TopOffset + 3, _UNSIGNED _BYTE)
2609.             END IF
2610.  
2611.             ' *** Get the color values from the pixel to the left of the current pixel, if it is with the image.
2612.             IF ((((LeftOffset - ImageOffsetStart) / 4) MOD _WIDTH(Image)) < (((ImageOffsetCurrent - ImageOffsetStart) / 4) MOD _WIDTH(Image))) THEN
2613.                 Red2 = _MEMGET(ImageMemory, LeftOffset + 2, _UNSIGNED _BYTE)
2614.                 Green2 = _MEMGET(ImageMemory, LeftOffset + 1, _UNSIGNED _BYTE)
2615.                 Blue2 = _MEMGET(ImageMemory, LeftOffset, _UNSIGNED _BYTE)
2616.                 Alpha2 = _MEMGET(ImageMemory, LeftOffset + 3, _UNSIGNED _BYTE)
2617.             END IF
2618.  
2619.             ' *** Get the color values from the pixel to the right of the current pixel, if it is with the image.
2620.             IF ((((RightOffset - ImageOffsetStart) / 4) MOD _WIDTH(Image)) > (((ImageOffsetCurrent - ImageOffsetStart) / 4) MOD _WIDTH(Image))) THEN
2621.                 Red3 = _MEMGET(ImageMemory, RightOffset + 2, _UNSIGNED _BYTE)
2622.                 Green3 = _MEMGET(ImageMemory, RightOffset + 1, _UNSIGNED _BYTE)
2623.                 Blue3 = _MEMGET(ImageMemory, RightOffset, _UNSIGNED _BYTE)
2624.                 Alpha3 = _MEMGET(ImageMemory, RightOffset + 3, _UNSIGNED _BYTE)
2625.             END IF
2626.  
2627.             ' *** Get the color values from the pixel below the current pixel, if it is with the image.
2628.             IF BottomOffset < ImageOffsetEnd THEN
2629.                 Red4 = _MEMGET(ImageMemory, BottomOffset + 2, _UNSIGNED _BYTE)
2630.                 Green4 = _MEMGET(ImageMemory, BottomOffset + 1, _UNSIGNED _BYTE)
2631.                 Blue4 = _MEMGET(ImageMemory, BottomOffset, _UNSIGNED _BYTE)
2632.                 Alpha4 = _MEMGET(ImageMemory, BottomOffset + 3, _UNSIGNED _BYTE)
2633.             END IF
2634.  
2635.             ' *** draw the current pixel with a newly defined _RGBA color value.
2636.             _MEMPUT ImageMemory, ImageOffsetCurrent, _RGBA((Red1 + Red2 + Red3 + Red4) / 4, (Green1 + Green2 + Green3 + Green4) / 4, (Blue1 + Blue2 + Blue3 + Blue4) / 4, (Alpha1 + Alpha2 + Alpha3 + Alpha4) / 4) AS _UNSIGNED LONG
2637.  
2638.             '' *** These are here for fun nd testing purposes.
2639.             '_MEMPUT ImageMemory, ImageOffsetCurrent, _RGBA((Red1 + Red2 + Red3 + Red4) / 4, (Green1 + Green2 + Green3 + Green4) / 4, (Blue1 + Blue2 + Blue3 + Blue4) / 4, 255) AS _UNSIGNED LONG
2640.             '_MEMPUT ImageMemory, ImageOffsetCurrent, _RGBA(0, 0, (Blue1 + Blue2 + Blue3 + Blue4) / 4, 255) AS _UNSIGNED LONG
2641.             '_MEMPUT ImageMemory, ImageOffsetCurrent, _RGBA(0, (Green1 + Green2 + Green3 + Green4) / 4, 0, 255) AS _UNSIGNED LONG
2642.             '_MEMPUT ImageMemory, ImageOffsetCurrent, _RGBA((Red1 + Red2 + Red3 + Red4) / 4, 0, 0, 255) AS _UNSIGNED LONG
2643.  
2644.             ImageOffsetCurrent = ImageOffsetCurrent + 4
2645.  
2646.         LOOP UNTIL ImageOffsetCurrent = ImageOffsetEnd
2647.  
2648.     NEXT
2649.  
2650.     $CHECKING:ON
2651.     _MEMFREE ImageMemory
2652.  
2653. END SUB
2654. '$include:'Vendor\sprite.bi'
2655.  
2656. 'End of Code ! :)
2657.