Terminal EMU Launcher Src

[xra7en]

Available ONLY here. This app is a pet project of mine I started several years ago. I recently made some big improvements. Feel free to tinker and make suggestions. to this day I still use it. Very clean, and not cluttered with other non-essentials that many launchers have. I put it here as a thank you for QB64 devs and their hard work.


Someone was nice enough to put it here when it iwas in its infancy. that made me pretty proud!!

Unless you have your own icon, you will probably want to comment out these two lines at the top:

Code: QB64: [Select]

1. $ExeIcon:'.\nin.ico'
2. _Icon

REQUIRED UTILS.BI
This has many fun things I have added over the years, much of it was converted from my pascal days
LOL, I just saw my "INC" and "DEC" subs have an issue. Will have to turn them into functions.
I never used them in QB prob why I never caught it.

Code: QB64: [Select]

1. '// DEC(X) -1 TO X
2. '// INC(X) +1 TO X
3. '// DISTANCE: DISTANCE BETWEEN 2 X,Y COORDS
4. '// yesNo (default AS STRING)
5.  
6.  
7. Sub DEC (X As Integer)
8.     '============================================================================
9.     '--- PASCAL FUNCTION: DECREASES X BY 1)
10.     '============================================================================
11.     X = X - 1
12. End Sub
13.  
14. Sub INC (X As Integer)
15.     '============================================================================
16.     '--- PASCAL FUNCTION: INCREASE X BY 1)
17.     '============================================================================
18.     X = X + 1
19. End Sub
20.  
21.  
22. Function DISTANCE (X1, Y1, X2, Y2 As Integer)
23.     '============================================================================
24.     '--- DIST BETWEEN 2 POINTS
25.     '============================================================================
26.     DISTANCE = Sqr((X1 - X2) ^ 2 + (Y1 - Y2) ^ 2)
27. End Function
28.  
29.  
30. Function yesNo (default As String)
31.     '// @default = when ENTER is pressed what will be the default answer
32.  
33.     Dim ans As String
34.  
35.     Do
36.         ans = InKey$
37.         ans = LCase$(ans)
38.     Loop Until ans = "y" Or ans = "n" Or ans = Chr$(13) Or ans = ""
39.  
40.     If ans = Chr$(13) Or ans = "" Then ans = default
41.  
42.     If ans = "y" Then
43.         yesNo = 1
44.     Else
45.         yesNo = 0
46.     End If
47.  
48. End Function
49.  
50. Function COUNT_TAGS (TEXT As String)
51.     '//
52.     '// RETURNS THE NUMBER OF LORD TAGS IN A STRING
53.     '//
54.     Dim I As Integer
55.     If Len(TEXT) = 0 Then COUNT_TAGS = 0
56.     Dim COUNT As Integer
57.     Dim LENGTH As Integer
58.     LENGTH = Len(TEXT)
59.     COUNT = 0
60.  
61.     For I = 1 To LENGTH
62.         If Mid$(TEXT, I, 1) = "`" Then COUNT = COUNT + 1
63.  
64.     Next
65.     COUNT_TAGS = COUNT
66.  
67.  
68. End Function
69.  
70.  
71. Sub CENTER (text As String, row As Integer)
72.     '//
73.     '// CENTER TEXT AS A SPECIFIED ROW
74.     '//
75.     Dim textLen, col As Integer
76.     Dim TAGS As Integer
77.  
78.     If InStr(text, "`") >= 1 Then ' There is a tag
79.  
80.         TAGS = COUNT_TAGS(text) * 2
81.         textLen = Int((Len(text) - TAGS) / 2)
82.     Else
83.         textLen = Int(Len(text) / 2)
84.  
85.     End If
86.  
87.     col = 40 - textLen
88.     Locate row, col
89.     If TAGS > 0 Then
90.         LWRITE text
91.     Else
92.         Print text
93.     End If
94.  
95.  
96. End Sub
97.  
98. Sub LWRITE (TXT As String)
99.     Dim i As Integer
100.     '======================================================
101.     '--- THIS IS A POPULAR COLOR ROUTINE BASED ON THE
102.     '--- SETH ABLE L.O.R.D. BBS GAME COLOR FORMATTING
103.     '=====================================================
104.     Color 7 ' DEFAULT COLOR
105.     For i = 1 To Len(TXT$)
106.         ' CHECK FOR A COLOR CHANGE
107.         If Mid$(TXT$, i, 1) = "`" Then
108.             i = i + 1
109.             Select Case Mid$(TXT, i, 1)
110.                 Case "0": Color 10
111.                 Case "1": Color 1
112.                 Case "2": Color 2
113.                 Case "3": Color 3
114.                 Case "4": Color 4
115.                 Case "5": Color 5
116.                 Case "6": Color 6
117.                 Case "7": Color 7
118.                 Case "8": Color 8
119.                 Case "9": Color 9
120.                 Case "!": Color 11
121.                 Case "@": Color 12
122.                 Case "#": Color 13
123.                 Case "$": Color 14
124.                 Case "%": Color 15
125.                 Case "n": Print '           new line
126.                 Case "t": Print , ; '       TAB
127.             End Select
128.             i = i + 1
129.  
130.         End If
131.         Print Mid$(TXT$, i, 1);
132.     Next
133.     Print ;
134. End Sub
135.  
136. Sub LWRITELN (TXT As String)
137.     LWRITE (TXT$)
138.     Print
139. End Sub
140.  
141. Sub EXPLODE (HAYSTACK As String, NEEDLE As String, EXPLODED_ARY() As String)
142.     '//
143.     '// speical thanks to SPRIGGYSPRIG for his inspiration to make this sub.
144.     '// https://www.qb64.org/forum/index.php?topic=3721.0
145.     '// USAGE
146.     '//     EXPLODE DELIMITED STRING, DELIMETER, ARRAY TO RETURN
147.     '//    EXAMPLE:  EXPLODE CONSOLE.Extentions, CHR$(32), SPLIT_EXT()
148.     '//
149.  
150.     Dim CNT As Integer
151.     Dim i As Integer
152.     HAYSTACK = _Trim$(HAYSTACK)
153.  
154.     CNT = 1
155.     For i = 1 To Len(HAYSTACK)
156.         If Mid$(HAYSTACK, i, 1) <> NEEDLE Then
157.             EXPLODED_ARY(CNT) = EXPLODED_ARY(CNT) + Mid$(HAYSTACK, i, 1)
158.         Else
159.             CNT = CNT + 1
160.         End If
161.     Next
162.  
163. End Sub
164.  
165. Sub HEADER (TXT As String, Y As Integer)
166.     CENTER "`8 --`3------------=`!=`%[ " + TXT + " `%]=`!= `3------------`8-- ", Y
167.     Print
168. End Sub
169.  
170. Sub HR '                                        HR
171.     LWRITELN ("`8 -  --`3------------------=`!=`%*`!=`3------------------`8--  - ")
172. End Sub
173.  
174. Sub PAUSE (y As Integer)
175.     Dim SPIN(10) As String '    spiner tile
176.     Dim k As String '           dummy string to check for user input
177.     Dim x As Integer '          spin array counter
178.  
179.     SPIN(1) = "*": SPIN(2) = "/": SPIN(3) = "-"
180.     SPIN(4) = "\": SPIN(5) = "|": SPIN(6) = "/"
181.     SPIN(7) = "-": SPIN(8) = "\": SPIN(9) = "|"
182.  
183.     x = 2
184.     Do
185.         Locate 24, 1
186.         CENTER "`8 --`3------------=`!=`%[ " + SPIN(x) + " `%]=`!= `3------------`8-- ", y
187.         x = x + 1: If x > 9 Then x = 2
188.         k = InKey$
189.         _Delay (.10)
190.     Loop Until k > ""
191. End Sub
192.  
193.  
194.  

The main app

Terminal Launcher (aka Terminal Launch)
This is up to date as of last week (March 10, 2021)
TL.BAS

Code: QB64: [Select]

1. Option _Explicit
2. _Title "TERMINAL LAUNCHER IV"
3. $ExeIcon:'.\nin.ico'
4. _Icon
5.  
6.  
7. '// SIMPLE LAUNCHER
8. '// CREATION DATE: 10/18/2020
9. '// AUTHOR: R.SCORPIO
10. '// VERY BASIC EMU LAUNCHER
11.  
12. '// WHATS NEW  FOR OCTOBER 2020
13. '//     - IMPLIMENTED A DB FOR BETTER ORGANIATION AND SEARCHING
14. '//     - NOW HAS SEARCH FUNCTION TO FIND SPECIFIC GAME(S)
15.  
16.  
17. Const VERSION = "20210310.1145"
18. Const DB_PATH = "db/"
19. Const CONSOLE_DB = "CONSOLES.DB"
20. Const TRUE = 1
21. Const FALSE = 0
22.  
23. '// GFX
24. Const DESKTOP = "²"
25. Const SHADOW = "±"
26. Const SURC = "¿"
27. Const SULC = "Ú"
28. Const SEDGE = "³"
29. Const SBOTT = "Ä"
30. Const STEE = "Å"
31. Const STOPT = "Â"
32. Const SBTMT = "Á"
33. Const SLTEE = "Ã"
34. Const SRTEE = "´"
35.  
36.  
37.  
38.  
39.  
40. Type tCONSOLE
41.     Title As String * 52 '                  name of the console
42.     RomDBName As String * 25 '              rom db name set by user, ext not required
43.     Extentions As String * 25 '              accepted extensions
44.     EMUCmd As String * 20 '                 emu.exe to run the roms
45.     EMUParams As String * 100 '             command line params
46.     EmuPath As String * 256 '               path to emu.exe
47.     RomPath As String * 256 '               path to roms for this console
48.     Str1 As String * 256 '                  future var
49.     str2 As String * 256 '                  future var
50.     num1 As Integer '                       future var
51.     num2 As Integer '                       future var
52. End Type
53.  
54. Type tROMS
55.     title As String * 128 '                 name of ROM
56.     Filename As String * 120 '              filename of ROM
57.     Str1 As String * 256 '                  future var
58.     str2 As String * 256 '                  future var
59.     num1 As Integer '                       future var
60.     num2 As Integer '                       future var
61.  
62. End Type
63.  
64.  
65. Dim Shared CONSOLE As tCONSOLE '            100 consoles
66. Dim Shared ROMS As tROMS '                   2k for SNES,GBA which are most popular
67.  
68. Dim Shared EXIT_APP As Integer '            1=YES, 0-NO (DEFAULT NO)
69. Dim Shared YN As String * 1 '               SAME AS ABOVE
70. Dim Shared SELECTED_CONSOLE As Integer
71. Dim Shared SELECTEDCONSOLE As String
72. Dim Shared SPLIT_EXT(10) As String '        NEEDED FOR SPLITTING EXTENTIONS FOR LISTING
73.  
74. Dim Shared I, K As Integer '                all kinds of loops and misc int needed
75.  
76.  
77.  
78. showTitle
79. Dim ANS As String '                         User answers
80.  
81. Do ' Quitting??
82.     Cls
83.     INIT '                                  Initialize to basic stuff
84.  
85.     LOOP_MAIN:
86.     Do '                                    loop for user choice
87.         MAIN_MENU
88.  
89.         Do: ANS = UCase$(InKey$): Loop Until ANS > ""
90.  
91.         Select Case ANS
92.             Case "C": SELECT_CONSOLE
93.             Case "S": SETTINGS
94.             Case "P": SELECT_GAME
95.         End Select
96.  
97.     Loop Until ANS = "X" '                  kwwp loopinf unril user quits
98.  
99.     Do
100.  
101.         Cls
102.         HEADER "`6Exit Terminal Launch IV", 1
103.         CENTER "`3Are you sure to want to exit `8[`7Y`8/`7N`8]", 5
104.         Do: ANS = UCase$(InKey$): Loop Until ANS = "Y" Or ANS = "N"
105.     Loop Until ANS = "Y" Or ANS = "N"
106.  
107.     If ANS = "Y" Then SHOWOUTTRO
108.  
109.  
110. Loop Until EXIT_APP = TRUE
111.  
112.  
113.  
114.  
115. End
116.  
117.  
118.  
119.  
120.  
121. '$include: 'UTILS.BI'
122.  
123.  
124. Sub INIT
125.     SELECTED_CONSOLE = 0
126.     SELECTEDCONSOLE$ = "NONE"
127.     EXIT_APP = FALSE
128.     If Not _DirExists("DB") Then MkDir ("DB")
129.  
130.  
131. End Sub
132.  
133.  
134. Sub SETTINGS
135.     Dim i As Integer
136.     Do
137.         Cls
138.         HEADER "`#S E T T I N G S", 1
139.         Print: Print
140.  
141.         LWRITELN "`t `#CONSOLE SETTINGS"
142.         LWRITELN "`t `3======================="
143.         LWRITELN "`t `%1`8. `7Add Console"
144.         LWRITELN "`t `%2`8.`7 Edit Console"
145.         LWRITELN "`t `%3`8.`7 Delete Console"
146.         LWRITELN "`t `3------------------------"
147.         LWRITELN "`t `40`8. `@EXIT SETTINGS"
148.         Print
149.         NA:
150.         Do: Input "Option: "; i: Loop Until i < 4 And i > -1
151.         If i > 6 And i < 10 Then GoTo NA
152.  
153.         Select Case i
154.             Case 1: ADD_CONSOLE
155.             Case 2: EDIT_CONSOLE
156.             Case 3: DEL_CONSOLE
157.  
158.  
159.         End Select
160.  
161.  
162.     Loop Until i = 0
163.     Cls
164.  
165. End Sub
166.  
167.  
168.  
169. Sub SELECT_CONSOLE
170.  
171.     Cls
172.     If _FileExists(DB_PATH + CONSOLE_DB) = 0 Then
173.         HEADER "`4CONSOLE LIBRARY DOES NOT EXISTS", 1
174.         CENTER "`%C`7ontinue....", 15
175.         Do: Loop Until InKey$ > ""
176.         Exit Sub
177.     End If
178.  
179.     HEADER "`&CONSOLE SELECTION", 1
180.     Print: Print
181.  
182.     LIST_CONSOLES
183.     HEADER "`%*", 15
184.  
185.     Print
186.     LWRITE "`0S`2elect `0C`2onsole`8: `$": Input SELECTED_CONSOLE
187.  
188.  
189.  
190.  
191. End Sub
192.  
193.  
194. Sub MAIN_MENU
195.     Cls
196.     HEADER "M A I N  M E N U", 1
197.     Print
198.     CENTER "`6X `8= `7Exit Terminal Launch", 2: Print
199.  
200.     LWRITELN "                      `# _         _              _"
201.     CENTER "`3[ `%P`7lay `3]  `3[ `%S`7ettings `3]   `3[ `%C`7onsole `3]", 4
202.     Print
203.     LWRITELN "`8                         |          |              |"
204.     LWRITELN "`8                         |          |              +--> `%C`7hange `%C`7urrent `%C`7onsole"
205.     LWRITELN "`8                         |          |"
206.     LWRITELN "`8                         |          +-----------------> `%T-L`7auncher `%S`7ettings"
207.     LWRITELN "`8                         |"
208.     LWRITELN "`8                         +----------------------------> `%S`7elect/`%P`7lay `%G`7ame"
209.  
210.  
211.  
212.  
213.     CENTER "`#Currently Selected Console", 13
214.     If SELECTED_CONSOLE = 0 Then
215.         CENTER "`% NONE ", 15
216.     Else
217.         CENTER "`%" + _Trim$(CONSOLE_NAME(SELECTED_CONSOLE)), 15
218.         Print: Print
219.  
220.  
221.     End If
222.  
223.  
224.  
225. End Sub
226.  
227. Function CONSOLE_NAME$ (SC As Integer)
228.     Open DB_PATH + CONSOLE_DB For Random As #2 Len = Len(CONSOLE)
229.     Get #2, SC, CONSOLE
230.     Close #2
231.     CONSOLE_NAME$ = CONSOLE.Title
232. End Function
233.  
234.  
235. Sub showTitle
236.  
237.     Cls
238.     CENTER "`5T E R M I N A L  L A U N C H E R", 2
239.  
240.     CENTER "`3Organize/play all your EMUZ here", 4
241.  
242.     Print: Print: Color 13
243.     Print Space$(15) + "           ####                    ####"
244.     Print Space$(15) + "           ####                    ####"
245.     Print Space$(15) + "               ####            ####"
246.     Print Space$(15) + "               ####            ####"
247.     Print Space$(15) + "           ############################"
248.     Print Space$(15) + "           ############################"
249.     Print Space$(15) + "       ########    ############    ########"
250.     Print Space$(15) + "       ########    ############    ########"
251.     Print Space$(15) + "   ############################################"
252.     Print Space$(15) + "   ############################################"
253.     Print Space$(15) + "   ####    ############################    ####"
254.     Print Space$(15) + "   ####    ############################    ####"
255.     Print Space$(15) + "   ####    ####                    ####    ####"
256.     Print Space$(15) + "   ####    ####        I V         ####    ####"
257.     Print Space$(15) + "               ########    ########"
258.     Print Space$(15) + "               ########    ########"
259.  
260.     CENTER "`8app design by r.scorpio (c)2018-2021     `7v" + VERSION, 23
261.     PAUSE 25
262.  
263.  
264. End Sub
265.  
266. Sub SPLITSTR (HAYSTACK As String, NEEDLE As String) ' SPLITS STRING BASED ON SPACE TODO: ADD FEATURE TO CHANGE NEEDLE
267.  
268.     Dim CNT As Integer
269.     HAYSTACK = _Trim$(HAYSTACK)
270.  
271.     CNT = 1
272.     For I = 1 To Len(HAYSTACK)
273.         If Mid$(HAYSTACK, I, 1) <> NEEDLE Then
274.             SPLIT_EXT(CNT) = SPLIT_EXT(CNT) + Mid$(HAYSTACK, I, 1)
275.         Else
276.             CNT = CNT + 1
277.         End If
278.  
279.     Next
280. End Sub
281.  
282. Sub HEADER (TXT As String, Y As Integer)
283.     CENTER "`8 --`3------------=`!=`%[ " + TXT + " `%]=`!= `3------------`8-- ", Y
284.     Print
285. End Sub
286.  
287. Sub HR '                                        HR
288.     LWRITELN ("`8 -  --`3------------------=`!=`%*`!=`3------------------`8--  - ")
289. End Sub
290.  
291. Function USER_INPUT
292.     Dim SPIN(10) As String '    spiner tile
293.     Dim k As String '           dummy string to check for user input
294.     Dim x As Integer '          spin array counter
295.  
296.     SPIN(1) = "*": SPIN(2) = "/": SPIN(3) = "-"
297.     SPIN(4) = "\": SPIN(5) = "|": SPIN(6) = "/"
298.     SPIN(7) = "-": SPIN(8) = "\": SPIN(9) = "|"
299.  
300.     x = 2
301.     Do
302.         Locate 24, 1
303.         CENTER "`8 --`3------------=`!=`%[ " + SPIN(x) + " `%]=`!= `3------------`8-- ", 24
304.         x = x + 1: If x > 9 Then x = 2
305.         k = InKey$
306.         _Delay (.10)
307.         k = UCase$(k)
308.     Loop Until k = "P" Or k = "S" Or k = "C" Or k = "X" Or k = "N" Or k = "Y"
309.  
310.     Select Case k
311.         Case "P": USER_INPUT = 1
312.         Case "S": USER_INPUT = 2
313.         Case "C": USER_INPUT = 3
314.         Case "X": USER_INPUT = 4
315.         Case "Y": USER_INPUT = 9 ' USED FOR YES/NO
316.         Case "N": USER_INPUT = 0 ' USED FOR YES/NO
317.     End Select
318.  
319.  
320.  
321. End Function
322.  
323.  
324.  
325.  
326.  
327. Sub PAUSE (y As Integer)
328.     Dim SPIN(10) As String '    spiner tile
329.     Dim k As String '           dummy string to check for user input
330.     Dim x As Integer '          spin array counter
331.  
332.     SPIN(1) = "*": SPIN(2) = "/": SPIN(3) = "-"
333.     SPIN(4) = "\": SPIN(5) = "|": SPIN(6) = "/"
334.     SPIN(7) = "-": SPIN(8) = "\": SPIN(9) = "|"
335.  
336.     x = 2
337.     Do
338.         Locate 24, 1
339.         CENTER "`8 --`3------------=`!=`%[ " + SPIN(x) + " `%]=`!= `3------------`8-- ", y
340.         x = x + 1: If x > 9 Then x = 2
341.         k = InKey$
342.         _Delay (.10)
343.     Loop Until k > ""
344. End Sub
345.  
346. Sub SHOWOUTTRO
347.  
348.     CENTER "`$THANKS FOR CHECKKNG OUT TERMINAL LANCHER IV!!", 8
349.     CENTER "`$FOR INQUIRIES: RICKSCORPIO64@GMAIL.COM", 10
350.     End
351.  
352. End Sub
353.  
354. Sub LIST_CONSOLES
355.     Dim ConsoleCnt As Integer
356.     Dim i As Integer
357.  
358.     ConsoleCnt = 1
359.     Color 7
360.     Open DB_PATH + CONSOLE_DB For Random As #2 Len = Len(CONSOLE)
361.     For i = 1 To Int(LOF(2) / Len(CONSOLE))
362.  
363.         If CONSOLE.Title > "" Then
364.             Get #2, ConsoleCnt, CONSOLE
365.             LWRITE "`% `t": Print _Trim$(Str$(ConsoleCnt));
366.             LWRITE "`8": Print ". ";
367.             LWRITE "`3": Print CONSOLE.Title
368.             ConsoleCnt = ConsoleCnt + 1
369.         End If
370.  
371.     Next
372.  
373.     Close #2
374. End Sub
375.  
376. Sub EDIT_CONSOLE
377.     Dim c_num As Integer
378.     Dim Total_Records As Integer
379.     Dim i As Integer
380.  
381.  
382.     Cls
383.  
384.  
385.     Print " _______ _____ _______ _______      ______ _______ _______ _______ "
386.     Print "|    ___|     \_     _|_     _|    |      |       |    |  |     __|"
387.     Print "|    ___|  --  ||   |_  |   |      |   ---|   -   |       |__     |"
388.     Print "|_______|_____/_______| |___|      |______|_______|__|____|_______|"
389.     Print "                                                                   "
390.  
391.  
392.     Print
393.     Print "Current Consoles"
394.     Print "========================"
395.     LIST_CONSOLES
396.     Print "99. Cancel"
397.     Print "------------------------"
398.     Print
399.  
400.     Print "Enter console # to edit: ";: Input c_num
401.     If c_num = 99 Then Exit Sub
402.  
403.     Print
404.  
405.  
406.     Open DB_PATH + CONSOLE_DB For Random As #1 Len = Len(CONSOLE)
407.     Total_Records = LOF(1) / Len(CONSOLE)
408.     Get #1, c_num, CONSOLE
409.     Do
410.         Cls
411.         Print "1. Full title of console... "; _Trim$(CONSOLE.Title)
412.         Print "2. Database Name........... "; _Trim$(CONSOLE.RomDBName)
413.         Print "3. List extensions......... "; _Trim$(CONSOLE.Extentions)
414.         Print "4. Filename of emulator.... "; _Trim$(CONSOLE.EMUCmd)
415.         Print "5. Commandline Params...... "; _Trim$(CONSOLE.EMUParams)
416.         Print "6. Emulator Path........... "; _Trim$(CONSOLE.EmuPath)
417.         Print "7. Path for assoc. ROMS.... "; _Trim$(CONSOLE.RomPath)
418.         Print
419.         Print "9. Apply Changes"
420.         Print "0. Cancel Edit (no change)"
421.         Input i
422.  
423.         Select Case i
424.             Case 1: Input "Full title of console... "; CONSOLE.Title
425.             Case 2: Input "Database Name........... "; CONSOLE.RomDBName
426.             Case 3: Input "List extensions......... "; CONSOLE.Extentions
427.             Case 4: Input "Filename of emulator.... "; CONSOLE.EMUCmd
428.             Case 5: Input "Commandline Params...... "; CONSOLE.EMUParams
429.             Case 6: Input "Emulator Path........... "; CONSOLE.EmuPath
430.                 If Left$(CONSOLE.EmuPath, 1) = "-" Then
431.                     CONSOLE.EmuPath = _Trim$(_Clipboard$)
432.                 Else
433.                     CONSOLE.EmuPath = _Trim$(CONSOLE.EmuPath)
434.                 End If
435.                 If Right$(_Trim$(CONSOLE.EmuPath), 1) <> "\" Then CONSOLE.EmuPath = _Trim$(CONSOLE.EmuPath) + "\"
436.  
437.             Case 7: Input "Path for assoc. ROMS.... "; CONSOLE.RomPath
438.                 If Left$(CONSOLE.RomPath, 1) = "-" Then
439.                     CONSOLE.RomPath = _Trim$(_Clipboard$)
440.                 Else
441.                     CONSOLE.RomPath = _Trim$(CONSOLE.RomPath)
442.                 End If
443.                 If Right$(CONSOLE.RomPath, 1) <> "\" Then CONSOLE.RomPath = CONSOLE.RomPath + "\"
444.             Case 0: Close #1: Exit Sub
445.         End Select
446.     Loop Until i = 9
447.     Put #1, c_num, CONSOLE
448.     Print "Changes SUCCESSFULLY applied";
449.     Input i
450.  
451.     Close #1
452.  
453.  
454.  
455.  
456. End Sub
457.  
458.  
459. Sub DEL_CONSOLE
460.     Dim ConsoleNum As Integer
461.     Dim RecNumber As Integer
462.     Dim item As Integer
463.     Dim ConsoleName As String
464.  
465.     DEL:
466.     Cls
467.     item = 1
468.  
469.  
470.     Print " _____  _______ _____        ______ _______ _______ _______ "
471.     Print "|     \|    ___|     |_     |      |       |    |  |     __|"
472.     Print "|  --  |    ___|       |    |   ---|   -   |       |__     |"
473.     Print "|_____/|_______|_______|    |______|_______|__|____|_______|"
474.     Print "                                                            "
475.  
476.     Print
477.     Print "Current Consoles"
478.     Print "========================"
479.     LIST_CONSOLES
480.     Print "------------------------"
481.     Print
482.     Print "99. Cancel"
483.  
484.     Print
485.     Input "Select console to delete: ", ConsoleNum
486.     If ConsoleNum = 99 Then Exit Sub
487.     Input "Are you sure? "; YN
488.     If YN = "n" Or YN = "N" Then GoTo DEL
489.  
490.     Open DB_PATH + CONSOLE_DB For Random As #1 Len = Len(CONSOLE)
491.     Open DB_PATH + "temp.db" For Random As #2 Len = Len(CONSOLE)
492.     RecNumber = LOF(1) / Len(CONSOLE)
493.     Dim i As Integer
494.  
495.     For i = 1 To Int(LOF(1) / Len(CONSOLE))
496.         Get #1, item, CONSOLE
497.         If item <> ConsoleNum Then
498.             Put #2, , CONSOLE
499.         Else
500.             ConsoleName = _Trim$(CONSOLE.Title)
501.  
502.         End If
503.         item = item + 1
504.     Next
505.     Close #2: Close #1
506.  
507.     Kill DB_PATH + CONSOLE_DB
508.     Name DB_PATH + "temp.db" As DB_PATH + CONSOLE_DB
509.  
510.     LIST_CONSOLES
511.  
512.     Print "Console " + ConsoleName + " was deleted SUCCESSFULLY!"
513.     Print "Press ENTER to continue..."
514.     Input YN
515.  
516. End Sub
517.  
518. Function CLEANROM$ (TXT As String)
519.     Dim pt1 As String
520.     pt1 = ""
521.     pt1 = Left$(TXT, InStr(TXT, ".") - 1)
522.  
523.     'IF INSTR(TXT, "(") > 0 THEN
524.     '    pt1 = LEFT$(TXT, INSTR(TXT, "(") - 1)
525.     '
526.     'ELSE
527.     '    pt1 = LEFT$(TXT, INSTR(TXT, ".") - 1)
528.     'END IF
529.  
530.     CLEANROM = _Trim$(pt1)
531.  
532.  
533.  
534. End Function
535.  
536.  
537.  
538. Sub CREATE_ROM_DB (DB_NAME As String)
539.     Close #1: Close #2 ' stragglers?
540.  
541.     Dim ALINE As String
542.  
543.  
544.     If Asc(CONSOLE.RomDBName) = 0 Then
545.         CENTER "`4Console not selected", 17
546.         Input I
547.         Exit Sub
548.     End If
549.  
550.  
551.     Open DB_PATH + DB_NAME For Random As #1 Len = Len(ROMS)
552.     'CREATE A TXT FILE LIST FROM ROM PATH TO WORK WITH
553.     'Delete the old romlist if it exists
554.     Shell _Hide "DEL /Q " + _Trim$(CONSOLE.RomPath) + "ROMLIST.TXT"
555.  
556.     'Need to split the space delimited string to an array
557.     EXPLODE CONSOLE.Extentions, Chr$(32), SPLIT_EXT()
558.  
559.     'Create new romlist.txt using given extentions (ext)
560.     'this will be the raw filename - we will clean up the display below
561.     'PRINT "DEBUG EXECUTING: " + "DIR " + _TRIM$(CONSOLE.RomPath) + _TRIM$(CONSOLE.Extentions) + " /B /A-D /ON >" + _TRIM$(CONSOLE.RomPath) + "ROMLIST.TXT"
562.     LWRITELN "`7Scanning `%" + _Trim$(CONSOLE.Title) + "`7 folder": Print
563.  
564.     For I = 1 To UBound(SPLIT_EXT)
565.         If SPLIT_EXT(I) > "" Then
566.  
567.             Print "scanning: " + SPLIT_EXT(I)
568.             Shell _Hide "DIR " + _Trim$(CONSOLE.RomPath) + SPLIT_EXT(I) + " /B /A-D /ON >>" + _Trim$(CONSOLE.RomPath) + "ROMLIST.TXT"
569.         End If
570.     Next
571.     LWRITELN "`0Done...": _Delay (2)
572.  
573.     'Load the romlist.txt AND xfer cleaned title to the db
574.     Open _Trim$(CONSOLE.RomPath) + "ROMLIST.TXT" For Input As #2
575.     While Not EOF(2)
576.         Line Input #2, ALINE
577.         ROMS.Filename = ALINE
578.         ROMS.title = CLEANROM(ALINE)
579.         Put #1, , ROMS
580.     Wend
581.     Close #2 ' roms text file
582.     Close #1 ' desired rom.db
583.     'We're done, get out of here
584.  
585. End Sub
586.  
587. Sub PLAY_GAME
588.  
589.     Cls
590.     HEADER "`$PLAY GAMES", 1
591.     Print: Print
592.     SELECT_CONSOLE
593.  
594.     Close #1 ' straggler TODO FIX THIS FIND OUT WHERE IT IS AT
595.     Open DB_PATH + CONSOLE_DB For Random As #1 Len = Len(CONSOLE)
596.  
597.     Get #1, SELECTED_CONSOLE, CONSOLE
598.     Close #1
599.  
600.     Print _Trim$(CONSOLE.Title) + " console selected"
601.     SELECT_GAME
602.  
603. End Sub
604.  
605.  
606. Sub SELECT_GAME
607.     Dim GAME_NAME As String
608.     Dim GAME_FOUND As Integer
609.     Dim ROM_COUNT As Integer
610.     Dim I As Integer
611.     Dim FIND_STR As Integer
612.  
613.  
614.     'MAKE A DB FILE EACH TIME. HAPPENS SO FAST IT IS NOT NOTICABLE
615.     'IF WE CHECK FOR EXISTING, IT DOES NOT UPDATE WHEN NEW FILES ARE ADDED TO
616.     'THE FOLDER
617.     CREATE_ROM_DB (_Trim$(CONSOLE.RomDBName) + ".db")
618.  
619.     If Asc(CONSOLE.RomDBName) = 0 Then Exit Sub
620.  
621.     GAME_FOUND = 0
622.     ROM_COUNT = 0
623.     Cls
624.     HEADER "`$GAME SELECTION", 1
625.     Print: Print
626.  
627.     LWRITELN "`4Currently if you just press enter, it will display all ROMS with"
628.     LWRITELN "`4no scrolling. So suggest to use the partial search. Will fix this later"
629.     Print
630.     LWRITE "`2Enter partial gamename search`8: `#": Input GAME_NAME
631.     Print
632.     LWRITELN "`#5ID     GAME NAME"
633.     LWRITELN "`5============================================================="
634.  
635.     If GAME_NAME = "" Then Exit Sub '  return to menu - prevents the massive unscrollable list
636.  
637.     Open DB_PATH + _Trim$(CONSOLE.RomDBName) + ".db" For Random As #1 Len = Len(ROMS)
638.  
639.     For I = 1 To LOF(1) / Len(ROMS)
640.  
641.         Get #1, I, ROMS
642.         FIND_STR = InStr(UCase$(ROMS.title), UCase$(GAME_NAME))
643.  
644.         If FIND_STR > 0 Then
645.  
646.             GAME_FOUND = TRUE
647.             ' the following section just eyecandy for the id listing so it is
648.             ' proportional
649.             Color 15
650.             If I < 10 Then
651.                 Print " " + Str$(I);
652.             Else
653.                 Print Str$(I);
654.             End If
655.             Color 8
656.             Print " .......... ";
657.             Color 7
658.             Print _Trim$(ROMS.title)
659.  
660.         End If
661.  
662.     Next I
663.  
664.     If GAME_FOUND = FALSE Then
665.         Print "No game matching '" + _Trim$(GAME_NAME) + "'"
666.         Print
667.  
668.         'Input GAME_NAME ' dummy pause
669.         PAUSE (24)
670.         Close #1 ' clean up on exit early
671.         Exit Sub
672.     Else
673.         Print
674.         Input "Enter game ID or 0 to exit: "; I
675.         If I = 0 Then Exit Sub
676.         ' GET GAME ID AND RUN IT
677.         Get #1, I, ROMS
678.         Print "Starting " + _Trim$(ROMS.title)
679.         ' PRINT "DEBUG: "
680.         ' PRINT _TRIM$(CONSOLE.EmuPath) + _TRIM$(CONSOLE.EMUCmd) + " " + CHR$(34) + " " + _TRIM$(CONSOLE.EMUParams) + " " + CHR$(34) + _TRIM$(CONSOLE.RomPath) + _TRIM$(ROMS.Filename) + CHR$(34)
681.         ' PRINT "-----------------------------"
682.         ' PRINT
683.  
684.         Shell Chr$(34) + _Trim$(CONSOLE.EmuPath) + _Trim$(CONSOLE.EMUCmd) + " " + Chr$(34) + " " + _Trim$(CONSOLE.EMUParams) + " " + Chr$(34) + _Trim$(CONSOLE.RomPath) + _Trim$(ROMS.Filename) + Chr$(34)
685.     End If
686.     Close #1
687. End Sub
688.  
689.  
690.  
691. Sub ADD_CONSOLE
692.     Dim RecNumber As Integer
693.  
694.     Print
695.  
696.     Cls
697.     HEADER "ADD A CONSOLE TO THE LIBRARY", 1
698.  
699.  
700.  
701.     Do ' ADDING ANOTHER CONSOLE?
702.         Do ' ENTRY CORRECT
703.             HEADER "`!Current Consoles", 1
704.             Print: Print
705.  
706.             If _FileExists(DB_PATH + CONSOLE_DB) Then
707.                 LIST_CONSOLES
708.  
709.             Else
710.                 LWRITELN "`@No consoles in the library yet"
711.             End If
712.  
713.  
714.             Print
715.  
716.  
717.             Print "Add a console [Y/N]? ";: Input YN
718.             If YN = "n" Or YN = "N" Then
719.                 Close #1 'clean up
720.                 Exit Sub
721.             End If
722.  
723.             Print
724.  
725.             Open DB_PATH + CONSOLE_DB For Random As #1 Len = Len(CONSOLE)
726.             RecNumber = LOF(1) / Len(CONSOLE)
727.             Color 7
728.  
729.             Input "Full title of console... "; CONSOLE.Title
730.             Input "Database Name........... "; CONSOLE.RomDBName
731.             Input "ROM extensions.......... "; CONSOLE.Extentions
732.             Input "Filename of emulator.... "; CONSOLE.EMUCmd
733.             Input "Commandline Params...... "; CONSOLE.EMUParams
734.             Print
735.             LWRITELN "`$'-' `3to paste path(s)"
736.             Input "Emulator Path........... "; CONSOLE.EmuPath
737.             If Left$(CONSOLE.EmuPath, 1) = "-" Then
738.                 CONSOLE.EmuPath = _Trim$(_Clipboard$)
739.             Else
740.                 CONSOLE.EmuPath = _Trim$(CONSOLE.EmuPath)
741.             End If
742.             If Right$(CONSOLE.EmuPath, 1) <> "\" Then CONSOLE.EmuPath = CONSOLE.EmuPath + "\"
743.  
744.             Input "Path for assoc. ROMS.... "; CONSOLE.RomPath
745.             If Left$(CONSOLE.RomPath, 1) = "-" Then
746.                 CONSOLE.RomPath = _Trim$(_Clipboard$)
747.             Else
748.                 CONSOLE.RomPath = _Trim$(CONSOLE.RomPath)
749.             End If
750.             If Right$(CONSOLE.RomPath, 1) <> "\" Then CONSOLE.RomPath = CONSOLE.RomPath + "\"
751.  
752.             Print
753.             Print
754.             Color 14
755.             Do: Input "Everything Correct? (Y/n): "; YN
756.                 YN = UCase$(YN)
757.             Loop Until YN = "Y" Or YN = "N"
758.  
759.  
760.         Loop Until YN = "Y" ' CONSOLE ENTRY
761.  
762.         Put #1, RecNumber + 1, CONSOLE
763.         Close #1
764.  
765.  
766.  
767.         Print
768.         Print "CONSOLE " + _Trim$(CONSOLE.Title) + " addes successfully!"
769.         Print
770.         Color 7
771.         Do: Input "Enter Another? (Y/n): "; YN
772.             YN = UCase$(YN)
773.         Loop Until YN = "Y" Or YN = "N"
774.  
775.  
776.     Loop Until YN = "N"
777.     Close #1
778.  
779.  
780. End Sub
781.  
782.  
783.