Project looking for Programmer (I can't do it myself)

[TempodiBasic]

Hi Daniel3D
huh, interesting notice

TREESTU1 is the correct file list

I have had some time to spend with QB64, so I make another step towards the final  application ofinstaller

here code running pure Qbasic

Code: QB64: [Select]

1. ' 2021 11 21 adding and testing procedure to copy original files from source path to destination path
2. ' 2021 11 13, Modifications to Installation menu
3. ' 3 choices: install game, install mods, exit from installation
4. DECLARE SUB UpdateRunFile ()
5. DECLARE SUB SaveConfig ()
6. DECLARE SUB LoadConfig ()
7. DECLARE SUB UpdateOp (oplist$, num%, opval$, length%)
8. DECLARE FUNCTION Menu% (m AS ANY, mm$, ini%)
9. declare function path$
10. declare sub header
11. declare sub changepath (kind as integer)
12.  
13. Type MenuType
14.     x As Integer
15.     y As Integer
16.     c1 As Integer
17.     c2 As Integer
18.     w As Integer
19. End Type
20.  
21. Const Spath = "A:\", Dpath = "C:\STUNTS", Source = 1, Destination = 2
22. Const MainWin = 1, InstallWin = 2, MsgWin = 7
23. Dim Shared men(1 To 5) As MenuType, ment$(1 To 5), ErrMsg$(1 To 4), CurErr%
24. Dim Shared videoid$(1 To 5), soundid$(1 To 6), curvideo%, cursound%, Mpath$(1 To 5, 1 To 2)
25. Dim Shared runfile$, SourcePath$, DestPath$, DummyCurpath%, DefaultSourcePath$, DefaultDestinationpath$
26. Dim Shared InstFile(1 To 250) As String
27.  
28. runfile$ = "STUNTS.BAT"
29. Defaultsourcepat$ = Spath
30. DefaultDestinationpath$ = Dpath
31. SourcePath$ = ".\"
32. DestPath$ = ".\cs11"
33. DummyCurpath% = 1
34.  
35. videoid$(1) = "MCGA"
36. videoid$(2) = "EGA"
37. videoid$(3) = "Tandy"
38. videoid$(4) = "Hercules"
39. videoid$(5) = "CGA"
40. curvideo% = 1
41.  
42. soundid$(1) = "No sound"
43. soundid$(2) = "PC Speaker"
44. soundid$(3) = "Tandy"
45. soundid$(4) = "Ad Lib"
46. soundid$(5) = "Sound Blaster"
47. soundid$(6) = "MT-32"
48. cursound% = 1
49.  
50. Screen 0
51.  
52. header
53.  
54. men(1).x = 4
55. men(1).y = 7
56. men(1).w = 40
57. men(1).c1 = 7
58. men(1).c2 = 4
59. ment$(1) = "Video display`Sound option`Install game to ...`Exit"
60.  
61. men(2).x = 13
62. men(2).y = 12
63. men(2).w = 27
64. men(2).c1 = 0
65. men(2).c2 = 2
66. ment$(2) = "MGCA/VGA graphics`EGA graphics`Tandy graphics`Hercules graphics`CGA graphics"
67.  
68. men(3).x = 11
69. men(3).y = 12
70. men(3).w = 34
71. men(3).c1 = 0
72. men(3).c2 = 2
73. ment$(3) = "No music or sound effects`Internal PC speaker`Tandy sound`Ad Lib card`Sound Blaster card`Roland MT-32"
74.  
75.  
76. men(4).x = 11
77. men(4).y = 12
78. men(4).w = 40
79. men(4).c1 = 0
80. men(4).c2 = 1
81. ment$(4) = "Install game`Install mods`Exit"
82.  
83.  
84. men(5).x = 67
85. men(5).y = 15
86. men(5).w = 10
87. men(5).c1 = 0
88. men(5).c2 = 4
89. ment$(5) = "Yes`No`Cancel"
90.  
91. ErrMsg$(1) = "Error: file of configuration not found"
92. ErrMsg$(2) = "Error: file of list of installation not found"
93. ErrMsg$(3) = "Error: file of original installation not found"
94. ErrMsg$(4) = "Error: file of Mods installation not found"
95. CurErr% = 0
96.  
97. Mpath$(1, Source) = "Caution you are changing default source path!"
98. Mpath$(2, Source) = "Type here source path: "
99. Mpath$(3, Source) = "This is the new source path: "
100.  
101. Mpath$(1, Destination) = "Caution you are changing default destination path!"
102. Mpath$(2, Destination) = "Type here destination path: "
103. Mpath$(3, Destination) = "This is the new destination path: "
104.  
105.  
106. GoSub Fileok
107. LoadConfig
108. On Error GoTo 0
109.  
110. ' loading list file installation
111. GoSub Fileok
112. CurErr% = 2
113.  
114. Open "liststu.txt" For Input As #1
115. z = 0
116. Do While Not EOF(1)
117.     z = z + 1
118.     Line Input #1, tmp$
119.     If InStr(tmp$, ".") Then InstFile(z) = tmp$ Else z = z - 1
120.     'Print InstFile(z), z
121.     'If z Mod 20 = 0 Then Sleep
122. Loop
123. Close #1
124. CurErr% = 0
125. On Error GoTo 0
126.  
127. UpdateOp ment$(1), 1, videoid$(curvideo%), men(1).w - 2
128. UpdateOp ment$(1), 2, soundid$(cursound%), men(1).w - 2
129.  
130. curmain% = 1
131. Do
132.     a% = Menu%(men(1), ment$(1), curmain%)
133.     If a% <> -1 Then curmain% = a%
134.     Select Case a%
135.         Case -1 ' exiting by EScape key from menu
136.             Color 7, 0
137.             Cls
138.             Print
139.             Exit Do
140.         Case 4 'saving configuration
141.             SaveConfig
142.             UpdateRunFile
143.             Color 7, 0
144.             Cls
145.             Print
146.             Print "Configuration saved."
147.             Exit Do
148.         Case 1 'video display settings
149.             PCopy 0, MainWin
150.             a% = Menu%(men(2), ment$(2), curvideo%)
151.             If a% <> -1 Then curvideo% = a%
152.             UpdateOp ment$(1), 1, videoid$(curvideo%), men(1).w - 2
153.             PCopy MainWin, 0
154.         Case 2 ' sound options
155.             PCopy 0, MainWin
156.             a% = Menu%(men(3), ment$(3), cursound%)
157.             If a% <> -1 Then cursound% = a%
158.             UpdateOp ment$(1), 2, soundid$(cursound%), men(1).w - 2
159.             PCopy MainWin, 0
160.         Case 3 'install options....
161.             ' here user can choose  installation of original game
162.             ' adding mods
163.             ' after doing this he can choose destination folder, source folder
164.             PCopy 0, MainWin
165.             Do
166.  
167.                 b% = Menu%(men(4), ment$(4), DummyCurpath%)
168.                 PCopy 0, InstallWin
169.                 Select Case b%
170.                     Case 1 ' game standard installation
171.                         ChangePath Source
172.                         PCopy InstallWin, 0
173.                         ChangePath Destination
174.                         GoSub Fileok
175.                         CurErr% = 3
176.                         If Right$(SourcePath$, 1) <> "\" Then Slash$ = "\" Else Slash$ = ""
177.                         If Right$(DestPath$, 1) <> "\" Then Slash2$ = "\" Else Slash2$ = ""
178.                         For w = 1 To z Step 1
179.                             nameFile$ = SourcePath$ + Slash$ + LTrim$(InstFile(w))
180.                             Locate 20, 1: Print nameFile$; "  ";
181.                             namefile2$ = DestPath$ + Slash2$ + LTrim$(InstFile(w))
182.                             Open nameFile$ For Input As #1
183.                             tmp$ = Input$(LOF(1), # 1)
184.                             Close #1
185.                             MkDir DestPath$ + Slash2$
186.                             Open namefile2$ For Binary As #1
187.                             Put #1, , tmp$
188.                             Close #1
189.                             tmp$ = ""
190.                         Next w
191.                         CurErr% = 0
192.                         On Error GoTo 0
193.                         PCopy InstallWin, 0
194.  
195.  
196.                     Case 2 ' mods installation
197.                         ChangePath Source
198.                         PCopy InstallWin, 0
199.                         ChangePath Destination
200.  
201.                         GoSub Fileok
202.                         CurErr% = 4
203.  
204.                         '  Open "filen" For Input As #1
205.  
206.  
207.                         CurErr% = 0
208.                         On Error GoTo 0
209.                         PCopy InstallWin, 0
210.  
211.                     Case 3 ' return to option menu
212.                         PCopy MainWin, 0
213.                         Exit Do
214.  
215.                 End Select
216.  
217.             Loop
218.  
219.     End Select
220. Loop
221.  
222. Print "Use " + UCase$(runfile$) + " to play Stunts"
223. Print
224. End
225.  
226. Fileok:
227. On Error GoTo nofile
228. If CurErr% = 0 Then CurErr% = 1
229. Return
230.  
231. nofile:
232. If CurErr% = 2 Or CurErr% = 3 Then k = 4 Else k = 0
233. ShowMessage 14, 0, 16, 19, 20, 50 + k, 0, 3, ErrMsg$(CurErr%)
234. If CurErr% = 3 Or CurErr% = 4 Then
235.     If tmp$ = "" Then Filename$ = nameFile$ Else Filename$ = namefile2$
236.     ShowMessage 14, 0, 16, 19, 20, 50, 0, 3, "File error: " + Filename$
237.     Resume Next
238. End If
239. On Error GoTo 0
240. End
241. Resume
242.  
243. Sub ChangePath (Mtype As Integer)
244.     If Mtype = Source Then
245.         Apath$ = SourcePath$
246.         k = 0
247.     Else
248.         Apath$ = DestPath$
249.         k = 4
250.     End If
251.     ShowMessage 14, 0, 16, 19, 15, 56 + k, 0, 3, Mpath$(1, Mtype)
252.     Locate 19, 20: Color 14, 0: Print "Actual path: "; Apath$
253.     Locate 20, 20:
254.     If Mtype = Source Then
255.         Input "Type here source path: ", a$
256.     ElseIf Mtype = Destination Then
257.         Input "Type here destination path: ", a$
258.     End If
259.  
260.     If a$ = "" Or a$ = Apath$ Then
261.         Locate 21, 20: Print " No new path": Sleep 1
262.     Else
263.         Locate 21, 20: Print Mpath$(3, Mtype); UCase$(a$); " , do you confirm?"
264.         c% = Menu%(men(5), ment$(5), DummyCurpath%)
265.         If c% = 1 Then
266.             Apath$ = a$
267.             If Mtype = Source Then SourcePath$ = Apath$ Else DestPath$ = Apath$
268.         ElseIf c% = 2 Then
269.             ' nothing is changed
270.         End If
271.     End If
272.  
273. End Sub
274.  
275.  
276. Sub ShowMessage (Fcol, Bcol, Urow, Brow, FstCo, WidthMsg, sFcol, sBcol, Msg$)
277.     'Subroutine to show a message on the ASCII screen and restore
278.     ' the previous screen after message has been shown
279.     ' Usage: SHOWMESSAGE Forwardcolor, Backgroundcolor, UpRow, BottomRow,FirstColumn, WidthMessagge,shadowForwardColor,shadowBackgroundColor, Message$
280.     Dim z As Integer
281.  
282.     PCopy 0, MsgWin
283.     Color Fcol, Bcol
284.     For z = Urow To Brow
285.         Locate z, FstCo: Print Space$(WidthMsg);
286.     Next z
287.     Color sFcol, sBcol
288.     For z = Urow + 1 To Brow
289.         Locate z, FstCo + WidthMsg: Print "  ";
290.     Next z
291.  
292.     Locate Brow + 1, FstCo + 2: Print Space$(WidthMsg);
293.     Color Fcol, Bcol
294.     Locate Urow + 1, FstCo + 5: Print Msg$
295.     Sleep 2
296.     PCopy MsgWin, 0
297. End Sub
298.  
299. Sub LoadConfig
300.     'Make sure the file exists
301.     '  Open "setup.cfg" For Binary As 1: Close 1
302.  
303.     Open "setup.cfg" For Input As 1
304.     Do Until EOF(1)
305.         Line Input #1, a$
306.         n% = InStr(a$, "=")
307.         If n% Then
308.             p$ = LCase$(LTrim$(RTrim$(Left$(a$, n% - 1))))
309.             v$ = LTrim$(RTrim$(Mid$(a$, n% + 1)))
310.  
311.             Select Case p$
312.                 Case "video"
313.                     For i% = 1 To 5
314.                         If LCase$(v$) = LCase$(videoid$(i%)) Then
315.                             curvideo% = i%
316.                             Exit For
317.                         End If
318.                     Next i%
319.                 Case "sound"
320.                     For i% = 1 To 6
321.                         If LCase$(v$) = LCase$(soundid$(i%)) Then
322.                             cursound% = i%
323.                             Exit For
324.                         End If
325.                     Next i%
326.                 Case "runfile"
327.                     runfile$ = Left$(v$, 12)
328.             End Select
329.         End If
330.     Loop
331.     Close 1
332. End Sub
333.  
334. Function Menu% (m As MenuType, mm$, ini%)
335.     Dim mop$(1 To 20), mops As Integer
336.  
337.     mt$ = mm$
338.     Do Until Len(mt$) = 0
339.         mops = mops + 1
340.         n% = InStr(mt$, "`")
341.         If n% Then
342.             mop$(mops) = Left$(mt$, n% - 1)
343.             mt$ = Mid$(mt$, n% + 1)
344.         Else
345.             mop$(mops) = mt$
346.             mt$ = ""
347.         End If
348.     Loop
349.  
350.     Color m.c1, m.c2
351.     Locate m.y, m.x
352.     Print "Ú" + String$(m.w, 196) + "¿";
353.     For i% = m.y + 1 To m.y + mops
354.         Locate i%, m.x
355.         Print "³ " + mop$(i% - m.y) + Space$(m.w - Len(mop$(i% - m.y)) - 1) + "³";
356.     Next i%
357.     Locate m.y + mops + 1, m.x
358.     Print "À" + String$(m.w, 196) + "Ù";
359.     Color 8, 0
360.     For i% = m.y + 1 To m.y + mops + 1
361.         Locate i%, m.x + m.w + 2
362.         Print "  ";
363.     Next i%
364.     Locate i%, m.x + 2
365.     Print Space$(m.w + 2);
366.  
367.     cur% = ini%
368.     ex% = 1
369.     Update% = -1
370.     Do
371.         If Update% Then
372.             Color m.c1, m.c2
373.             Locate m.y + ex%, m.x + 1
374.             Print " " + mop$(ex%) + Space$(m.w - Len(mop$(ex%)) - 1);
375.             Color 0, 7
376.             Locate m.y + cur%, m.x + 1
377.             Print " " + mop$(cur%) + Space$(m.w - Len(mop$(cur%)) - 1);
378.             ex% = cur%
379.             Update% = 0
380.         End If
381.  
382.         akey$ = InKey$
383.         Select Case akey$
384.             Case Chr$(0) + Chr$(72)
385.                 If cur% > 1 Then
386.                     cur% = cur% - 1
387.                 Else
388.                     cur% = mops
389.                 End If
390.                 Update% = -1
391.             Case Chr$(0) + Chr$(80)
392.                 If cur% < mops Then
393.                     cur% = cur% + 1
394.                 Else
395.                     cur% = 1
396.                 End If
397.                 Update% = -1
398.             Case Chr$(13)
399.                 Exit Do
400.             Case Chr$(27)
401.                 cur% = -1
402.                 Exit Do
403.         End Select
404.     Loop
405.  
406.     Menu% = cur%
407. End Function
408.  
409. Sub SaveConfig
410.     Open "setup.cfg" For Output As 1
411.     Print #1, "video=" + videoid$(curvideo%)
412.     Print #1, "sound=" + soundid$(cursound%)
413.     Print #1, "runfile=" + runfile$
414.     Close 1
415. End Sub
416.  
417. Sub UpdateOp (oplist$, num%, opval$, length%)
418.     Dim op$(1 To 20)
419.  
420.     o$ = oplist$ ' oplist$ is a string of name of items of menu separated by ' except the last one
421.     Do While Len(o$)
422.         ops% = ops% + 1
423.         n% = InStr(o$, "`")
424.         If n% Then
425.             op$(ops%) = Left$(o$, n% - 1)
426.             o$ = Mid$(o$, n% + 1)
427.         Else
428.             op$(ops%) = o$
429.             o$ = ""
430.         End If
431.     Loop
432.  
433.     For i% = Len(op$(num%)) To 1 Step -1
434.         If Mid$(op$(num%), i%, 1) = "(" Then Exit For
435.     Next i%
436.  
437.     If i% Then op$(num%) = RTrim$(Left$(op$(num%), i% - 1))
438.  
439.     op$(num%) = op$(num%) + Space$(length% - Len(op$(num%)) - Len(opval$) - 2)
440.     op$(num%) = op$(num%) + "(" + opval$ + ")"
441.  
442.     o$ = ""
443.     For i% = 1 To ops%
444.         o$ = o$ + op$(i%)
445.         If i% <> ops% Then o$ = o$ + "`"
446.     Next i%
447.  
448.     oplist$ = o$
449. End Sub
450.  
451. Sub UpdateRunFile
452.     Open runfile$ For Output As 1
453.     If videoid$(curvideo%) = "Tandy" Then
454.         v$ = "TDY"
455.     ElseIf videoid$(curvideo%) = "Hercules" Then
456.         v$ = "HERC"
457.     Else
458.         v$ = videoid$(curvideo%)
459.     End If
460.  
461.     Print #1, "@SKID" + v$ + ".EXE";
462.  
463.     Select Case cursound%
464.         Case 1: Print #1, " /spc /ns"
465.         Case 2: Print #1, " /spc"
466.         Case 3: Print #1, " /std"
467.         Case 4: Print #1, " /sad"
468.         Case 5: Print #1, " /ssb"
469.         Case 6: Print #1, " /smt"
470.         Case Else: Print #1,
471.     End Select
472.     Close 1
473. End Sub
474.  
475. Sub header
476.     'Color 15, 7
477.     Cls , 7
478.     Color 0, 3
479.     Locate 25, 1
480.     Print Space$(4) + Chr$(24) + " " + Chr$(25) + " to move highlight, ENTER to select option, ESC to exit, F1 for help" + Space$(5);
481.     Color 15, 1
482.     Locate 2, 3: Print Space$(74);
483.     Locate 3, 3: Print Space$(74);
484.     Locate 4, 3: Print Space$(74);
485.     Color 8, 0: Locate 5, 5: Print Space$(74)
486.     Locate 3, 77: Print "  ";: Locate 4, 77: Print "  ";
487.     Color 15, 1
488.     Locate 2, 28: Print Chr$(34) + "Stunts" + Chr$(34) + " Setup Program";
489.     Locate 3, 34: Print "Version 1.1";
490.     Locate 4, 18: Print "Copyright (c) 2021 Stunts Online Community";
491. End Sub
492.  

to get that it works you must add this file to the folder of .exe
ListSTU.TXT  that is your list in a polite way to use in program.

Waiting your feedback.
Temporary paths previously used and saved on coming

[Daniel3D]

I love the solution,
that way, I can change it if needed for other incarnations of the game.

[TempodiBasic]

fine to read this

I love the solution,
that way, I can change it if needed for other incarnations of the game.

please can give me a working link to a modded version of STUNTS so I can go on and finish the project.
That you have posted before is too slow! When I try to download the archive it showed a too long time to download (just 6 hours).
In the while I'll make a version of memorizing the last paths used.

Waiting your answer.

[Daniel3D]

fine to read this
please can give me a working link to a modded version of STUNTS so I can go on and finish the project.
That you have posted before is too slow! When I try to download the archive it showed a too long time to download (just 6 hours).
In the while I'll make a version of memorizing the last paths used.

Waiting your answer.

Added below.

• the game - clean  -- EDIT< may have been not clean, replaced the archive
• a mod program simple garage with 3 custom cars in the garage.
• a custom car the Caterham

This should give enough data to test all parts of the install menu.

Thanks a lot for your work so far.

[Daniel3D]

I discovered a mistake in a part of the original code.
Around line 451:

This should have a different setting for hercules graphics because it is based on CGA.
I changed the piece of code myself (I think it is right, but this is about as far as I can manage, hahaha)

Sub UpdateRunFile
    Open runfile$ For Output As 1
    If videoid$(curvideo%) = "Tandy" Then
        v$ = "TDY"
      a$ = " "
    ElseIf videoid$(curvideo%) = "Hercules" Then
        v$ = "CGA"
      a$ = " /h"
    Else
        v$ = videoid$(curvideo%)
      a$ = " "
    End If
 
    Print #1, "@SKID" + v$ + ".EXE" + a$;

Could you replace this part for me in your copy?
I don't have QB myself and wouldn't know how to use it if I did. (I can probably do it. Just never had something worth compiling)

[TempodiBasic]

Hi Daniel3D

1.

This should have a different setting for hercules graphics because it is based on CGA.

here the integration of code, try if it works well. You should use a PC machine with Hercules graphic slot.

Code: QB64: [Select]

1. ' 2021 11 25  Integrating the Hercules graphic settings following Daniel3D's instructions
2. ' 2021 11 13, Modifications to Installation menu
3. ' 3 choices: install game, install mods, exit from installation
4. DECLARE SUB UpdateRunFile ()
5. DECLARE SUB SaveConfig ()
6. DECLARE SUB LoadConfig ()
7. DECLARE SUB UpdateOp (oplist$, num%, opval$, length%)
8. DECLARE FUNCTION Menu% (m AS ANY, mm$, ini%)
9. declare function path$
10. declare sub header
11. declare sub changepath (kind as integer)
12.  
13. Type MenuType
14.     x As Integer
15.     y As Integer
16.     c1 As Integer
17.     c2 As Integer
18.     w As Integer
19. End Type
20.  
21. Const Spath = "A:\", Dpath = "C:\STUNTS", Source = 1, Destination = 2
22. Const MainWin = 1, InstallWin = 2, MsgWin = 7
23. Dim Shared men(1 To 5) As MenuType, ment$(1 To 5), ErrMsg$(1 To 4), CurErr%
24. Dim Shared videoid$(1 To 5), soundid$(1 To 6), curvideo%, cursound%, Mpath$(1 To 5, 1 To 2)
25. Dim Shared runfile$, SourcePath$, DestPath$, DummyCurpath%, DefaultSourcePath$, DefaultDestinationpath$
26. Dim Shared InstFile(1 To 250) As String
27.  
28. runfile$ = "STUNTS.BAT"
29. Defaultsourcepat$ = Spath
30. DefaultDestinationpath$ = Dpath
31. SourcePath$ = ".\"
32. DestPath$ = ".\cs11"
33. DummyCurpath% = 1
34.  
35. videoid$(1) = "MCGA"
36. videoid$(2) = "EGA"
37. videoid$(3) = "Tandy"
38. videoid$(4) = "Hercules"
39. videoid$(5) = "CGA"
40. curvideo% = 1
41.  
42. soundid$(1) = "No sound"
43. soundid$(2) = "PC Speaker"
44. soundid$(3) = "Tandy"
45. soundid$(4) = "Ad Lib"
46. soundid$(5) = "Sound Blaster"
47. soundid$(6) = "MT-32"
48. cursound% = 1
49.  
50. Screen 0
51.  
52. header
53.  
54. men(1).x = 4
55. men(1).y = 7
56. men(1).w = 40
57. men(1).c1 = 7
58. men(1).c2 = 4
59. ment$(1) = "Video display`Sound option`Install game to ...`Exit"
60.  
61. men(2).x = 13
62. men(2).y = 12
63. men(2).w = 27
64. men(2).c1 = 0
65. men(2).c2 = 2
66. ment$(2) = "MGCA/VGA graphics`EGA graphics`Tandy graphics`Hercules graphics`CGA graphics"
67.  
68. men(3).x = 11
69. men(3).y = 12
70. men(3).w = 34
71. men(3).c1 = 0
72. men(3).c2 = 2
73. ment$(3) = "No music or sound effects`Internal PC speaker`Tandy sound`Ad Lib card`Sound Blaster card`Roland MT-32"
74.  
75.  
76. men(4).x = 11
77. men(4).y = 12
78. men(4).w = 40
79. men(4).c1 = 0
80. men(4).c2 = 1
81. ment$(4) = "Install game`Install mods`Exit"
82.  
83.  
84. men(5).x = 67
85. men(5).y = 15
86. men(5).w = 10
87. men(5).c1 = 0
88. men(5).c2 = 4
89. ment$(5) = "Yes`No`Cancel"
90.  
91. ErrMsg$(1) = "Error: file of configuration not found"
92. ErrMsg$(2) = "Error: file of list of installation not found"
93. ErrMsg$(3) = "Error: file of original installation not found"
94. ErrMsg$(4) = "Error: file of Mods installation not found"
95. CurErr% = 0
96.  
97. Mpath$(1, Source) = "Caution you are changing default source path!"
98. Mpath$(2, Source) = "Type here source path: "
99. Mpath$(3, Source) = "This is the new source path: "
100.  
101. Mpath$(1, Destination) = "Caution you are changing default destination path!"
102. Mpath$(2, Destination) = "Type here destination path: "
103. Mpath$(3, Destination) = "This is the new destination path: "
104.  
105.  
106. GoSub Fileok
107. LoadConfig
108. On Error GoTo 0
109.  
110. ' loading list file installation
111. GoSub Fileok
112. CurErr% = 2
113.  
114. Open "liststu.txt" For Input As #1
115. z = 0
116. Do While Not EOF(1)
117.     z = z + 1
118.     Line Input #1, tmp$
119.     If InStr(tmp$, ".") Then InstFile(z) = tmp$ Else z = z - 1
120.     'Print InstFile(z), z
121.     'If z Mod 20 = 0 Then Sleep
122. Loop
123. Close #1
124. CurErr% = 0
125. On Error GoTo 0
126.  
127. UpdateOp ment$(1), 1, videoid$(curvideo%), men(1).w - 2
128. UpdateOp ment$(1), 2, soundid$(cursound%), men(1).w - 2
129.  
130. curmain% = 1
131. Do
132.     a% = Menu%(men(1), ment$(1), curmain%)
133.     If a% <> -1 Then curmain% = a%
134.     Select Case a%
135.         Case -1 ' exiting by EScape key from menu
136.             Color 7, 0
137.             Cls
138.             Print
139.             Exit Do
140.         Case 4 'saving configuration
141.             SaveConfig
142.             UpdateRunFile
143.             Color 7, 0
144.             Cls
145.             Print
146.             Print "Configuration saved."
147.             Exit Do
148.         Case 1 'video display settings
149.             PCopy 0, MainWin
150.             a% = Menu%(men(2), ment$(2), curvideo%)
151.             If a% <> -1 Then curvideo% = a%
152.             UpdateOp ment$(1), 1, videoid$(curvideo%), men(1).w - 2
153.             PCopy MainWin, 0
154.         Case 2 ' sound options
155.             PCopy 0, MainWin
156.             a% = Menu%(men(3), ment$(3), cursound%)
157.             If a% <> -1 Then cursound% = a%
158.             UpdateOp ment$(1), 2, soundid$(cursound%), men(1).w - 2
159.             PCopy MainWin, 0
160.         Case 3 'install options....
161.             ' here user can choose  installation of original game
162.             ' adding mods
163.             ' after doing this he can choose destination folder, source folder
164.             PCopy 0, MainWin
165.             Do
166.  
167.                 b% = Menu%(men(4), ment$(4), DummyCurpath%)
168.                 PCopy 0, InstallWin
169.                 Select Case b%
170.                     Case 1 ' game standard installation
171.                         ChangePath Source
172.                         PCopy InstallWin, 0
173.                         ChangePath Destination
174.                         GoSub Fileok
175.                         CurErr% = 3
176.                         If Right$(SourcePath$, 1) <> "\" Then Slash$ = "\" Else Slash$ = ""
177.                         If Right$(DestPath$, 1) <> "\" Then Slash2$ = "\" Else Slash2$ = ""
178.                         For w = 1 To z Step 1
179.                             nameFile$ = SourcePath$ + Slash$ + LTrim$(InstFile(w))
180.                             Locate 20, 1: Print nameFile$; "  ";
181.                             namefile2$ = DestPath$ + Slash2$ + LTrim$(InstFile(w))
182.                             Open nameFile$ For Input As #1
183.                             tmp$ = Input$(LOF(1), # 1)
184.                             Close #1
185.                             MkDir DestPath$ + Slash2$
186.                             Open namefile2$ For Binary As #1
187.                             Put #1, , tmp$
188.                             Close #1
189.                             tmp$ = ""
190.                         Next w
191.                         CurErr% = 0
192.                         On Error GoTo 0
193.                         PCopy InstallWin, 0
194.  
195.  
196.                     Case 2 ' mods installation
197.                         ChangePath Source
198.                         PCopy InstallWin, 0
199.                         ChangePath Destination
200.  
201.                         GoSub Fileok
202.                         CurErr% = 4
203.  
204.                         '  Open "filen" For Input As #1
205.  
206.  
207.                         CurErr% = 0
208.                         On Error GoTo 0
209.                         PCopy InstallWin, 0
210.  
211.                     Case 3 ' return to option menu
212.                         PCopy MainWin, 0
213.                         Exit Do
214.  
215.                 End Select
216.  
217.             Loop
218.  
219.     End Select
220. Loop
221.  
222. Print "Use " + UCase$(runfile$) + " to play Stunts"
223. Print
224. End
225.  
226. Fileok:
227. On Error GoTo nofile
228. If CurErr% = 0 Then CurErr% = 1
229. Return
230.  
231. nofile:
232. If CurErr% = 2 Or CurErr% = 3 Then k = 4 Else k = 0
233. ShowMessage 14, 0, 16, 19, 20, 50 + k, 0, 3, ErrMsg$(CurErr%)
234. If CurErr% = 3 Or CurErr% = 4 Then
235.     If tmp$ = "" Then Filename$ = nameFile$ Else Filename$ = namefile2$
236.     ShowMessage 14, 0, 16, 19, 20, 50, 0, 3, "File error: " + Filename$
237.     Resume Next
238. End If
239. On Error GoTo 0
240. End
241. Resume
242.  
243. Sub ChangePath (Mtype As Integer)
244.     If Mtype = Source Then
245.         Apath$ = SourcePath$
246.         k = 0
247.     Else
248.         Apath$ = DestPath$
249.         k = 4
250.     End If
251.     ShowMessage 14, 0, 16, 19, 15, 56 + k, 0, 3, Mpath$(1, Mtype)
252.     Locate 19, 20: Color 14, 0: Print "Actual path: "; Apath$
253.     Locate 20, 20:
254.     If Mtype = Source Then
255.         Input "Type here source path: ", a$
256.     ElseIf Mtype = Destination Then
257.         Input "Type here destination path: ", a$
258.     End If
259.  
260.     If a$ = "" Or a$ = Apath$ Then
261.         Locate 21, 20: Print " No new path": Sleep 1
262.     Else
263.         Locate 21, 20: Print Mpath$(3, Mtype); UCase$(a$); " , do you confirm?"
264.         c% = Menu%(men(5), ment$(5), DummyCurpath%)
265.         If c% = 1 Then
266.             Apath$ = a$
267.             If Mtype = Source Then SourcePath$ = Apath$ Else DestPath$ = Apath$
268.         ElseIf c% = 2 Then
269.             ' nothing is changed
270.         End If
271.     End If
272.  
273. End Sub
274.  
275.  
276. Sub ShowMessage (Fcol, Bcol, Urow, Brow, FstCo, WidthMsg, sFcol, sBcol, Msg$)
277.     'Subroutine to show a message on the ASCII screen and restore
278.     ' the previous screen after message has been shown
279.     ' Usage: SHOWMESSAGE Forwardcolor, Backgroundcolor, UpRow, BottomRow,FirstColumn, WidthMessagge,shadowForwardColor,shadowBackgroundColor, Message$
280.     Dim z As Integer
281.  
282.     PCopy 0, MsgWin
283.     Color Fcol, Bcol
284.     For z = Urow To Brow
285.         Locate z, FstCo: Print Space$(WidthMsg);
286.     Next z
287.     Color sFcol, sBcol
288.     For z = Urow + 1 To Brow
289.         Locate z, FstCo + WidthMsg: Print "  ";
290.     Next z
291.  
292.     Locate Brow + 1, FstCo + 2: Print Space$(WidthMsg);
293.     Color Fcol, Bcol
294.     Locate Urow + 1, FstCo + 5: Print Msg$
295.     Sleep 2
296.     PCopy MsgWin, 0
297. End Sub
298.  
299. Sub LoadConfig
300.     'Make sure the file exists
301.     '  Open "setup.cfg" For Binary As 1: Close 1
302.  
303.     Open "setup.cfg" For Input As 1
304.     Do Until EOF(1)
305.         Line Input #1, a$
306.         n% = InStr(a$, "=")
307.         If n% Then
308.             p$ = LCase$(LTrim$(RTrim$(Left$(a$, n% - 1))))
309.             v$ = LTrim$(RTrim$(Mid$(a$, n% + 1)))
310.  
311.             Select Case p$
312.                 Case "video"
313.                     For i% = 1 To 5
314.                         If LCase$(v$) = LCase$(videoid$(i%)) Then
315.                             curvideo% = i%
316.                             Exit For
317.                         End If
318.                     Next i%
319.                 Case "sound"
320.                     For i% = 1 To 6
321.                         If LCase$(v$) = LCase$(soundid$(i%)) Then
322.                             cursound% = i%
323.                             Exit For
324.                         End If
325.                     Next i%
326.                 Case "runfile"
327.                     runfile$ = Left$(v$, 12)
328.             End Select
329.         End If
330.     Loop
331.     Close 1
332. End Sub
333.  
334. Function Menu% (m As MenuType, mm$, ini%)
335.     Dim mop$(1 To 20), mops As Integer
336.  
337.     mt$ = mm$
338.     Do Until Len(mt$) = 0
339.         mops = mops + 1
340.         n% = InStr(mt$, "`")
341.         If n% Then
342.             mop$(mops) = Left$(mt$, n% - 1)
343.             mt$ = Mid$(mt$, n% + 1)
344.         Else
345.             mop$(mops) = mt$
346.             mt$ = ""
347.         End If
348.     Loop
349.  
350.     Color m.c1, m.c2
351.     Locate m.y, m.x
352.     Print "Ú" + String$(m.w, 196) + "¿";
353.     For i% = m.y + 1 To m.y + mops
354.         Locate i%, m.x
355.         Print "³ " + mop$(i% - m.y) + Space$(m.w - Len(mop$(i% - m.y)) - 1) + "³";
356.     Next i%
357.     Locate m.y + mops + 1, m.x
358.     Print "À" + String$(m.w, 196) + "Ù";
359.     Color 8, 0
360.     For i% = m.y + 1 To m.y + mops + 1
361.         Locate i%, m.x + m.w + 2
362.         Print "  ";
363.     Next i%
364.     Locate i%, m.x + 2
365.     Print Space$(m.w + 2);
366.  
367.     cur% = ini%
368.     ex% = 1
369.     Update% = -1
370.     Do
371.         If Update% Then
372.             Color m.c1, m.c2
373.             Locate m.y + ex%, m.x + 1
374.             Print " " + mop$(ex%) + Space$(m.w - Len(mop$(ex%)) - 1);
375.             Color 0, 7
376.             Locate m.y + cur%, m.x + 1
377.             Print " " + mop$(cur%) + Space$(m.w - Len(mop$(cur%)) - 1);
378.             ex% = cur%
379.             Update% = 0
380.         End If
381.  
382.         akey$ = InKey$
383.         Select Case akey$
384.             Case Chr$(0) + Chr$(72)
385.                 If cur% > 1 Then
386.                     cur% = cur% - 1
387.                 Else
388.                     cur% = mops
389.                 End If
390.                 Update% = -1
391.             Case Chr$(0) + Chr$(80)
392.                 If cur% < mops Then
393.                     cur% = cur% + 1
394.                 Else
395.                     cur% = 1
396.                 End If
397.                 Update% = -1
398.             Case Chr$(13)
399.                 Exit Do
400.             Case Chr$(27)
401.                 cur% = -1
402.                 Exit Do
403.         End Select
404.     Loop
405.  
406.     Menu% = cur%
407. End Function
408.  
409. Sub SaveConfig
410.     Open "setup.cfg" For Output As 1
411.     Print #1, "video=" + videoid$(curvideo%)
412.     Print #1, "sound=" + soundid$(cursound%)
413.     Print #1, "runfile=" + runfile$
414.     Close 1
415. End Sub
416.  
417. Sub UpdateOp (oplist$, num%, opval$, length%)
418.     Dim op$(1 To 20)
419.  
420.     o$ = oplist$ ' oplist$ is a string of name of items of menu separated by ' except the last one
421.     Do While Len(o$)
422.         ops% = ops% + 1
423.         n% = InStr(o$, "`")
424.         If n% Then
425.             op$(ops%) = Left$(o$, n% - 1)
426.             o$ = Mid$(o$, n% + 1)
427.         Else
428.             op$(ops%) = o$
429.             o$ = ""
430.         End If
431.     Loop
432.  
433.     For i% = Len(op$(num%)) To 1 Step -1
434.         If Mid$(op$(num%), i%, 1) = "(" Then Exit For
435.     Next i%
436.  
437.     If i% Then op$(num%) = RTrim$(Left$(op$(num%), i% - 1))
438.  
439.     op$(num%) = op$(num%) + Space$(length% - Len(op$(num%)) - Len(opval$) - 2)
440.     op$(num%) = op$(num%) + "(" + opval$ + ")"
441.  
442.     o$ = ""
443.     For i% = 1 To ops%
444.         o$ = o$ + op$(i%)
445.         If i% <> ops% Then o$ = o$ + "`"
446.     Next i%
447.  
448.     oplist$ = o$
449. End Sub
450.  
451. Sub UpdateRunFile
452.     Open runfile$ For Output As 1
453.     If videoid$(curvideo%) = "Tandy" Then
454.         v$ = "TDY"
455.         a$ = " "
456.     ElseIf videoid$(curvideo%) = "Hercules" Then
457.         v$ = "CGA"
458.         a$ = " /h"
459.     Else
460.         v$ = videoid$(curvideo%)
461.         a$ = " "
462.     End If
463.  
464.     Print #1, "@SKID" + v$ + ".EXE" + a$;
465.  
466.     Select Case cursound%
467.         Case 1: Print #1, " /spc /ns"
468.         Case 2: Print #1, " /spc"
469.         Case 3: Print #1, " /std"
470.         Case 4: Print #1, " /sad"
471.         Case 5: Print #1, " /ssb"
472.         Case 6: Print #1, " /smt"
473.         Case Else: Print #1,
474.     End Select
475.     Close 1
476. End Sub
477.  
478. Sub header
479.     'Color 15, 7
480.     Cls , 7
481.     Color 0, 3
482.     Locate 25, 1
483.     Print Space$(4) + Chr$(24) + " " + Chr$(25) + " to move highlight, ENTER to select option, ESC to exit, F1 for help" + Space$(5);
484.     Color 15, 1
485.     Locate 2, 3: Print Space$(74);
486.     Locate 3, 3: Print Space$(74);
487.     Locate 4, 3: Print Space$(74);
488.     Color 8, 0: Locate 5, 5: Print Space$(74)
489.     Locate 3, 77: Print "  ";: Locate 4, 77: Print "  ";
490.     Color 15, 1
491.     Locate 2, 28: Print Chr$(34) + "Stunts" + Chr$(34) + " Setup Program";
492.     Locate 3, 34: Print "Version 1.1";
493.     Locate 4, 18: Print "Copyright (c) 2021 Stunts Online Community";
494. End Sub
495.  

2.
about QB and abandonware
here you can get it or Qbasic or QBX 7.1  or visual Basic 1.0 for DOS
https://www.abandonwaredos.com/abandonware-game.php?abandonware=QBasic&gid=2854
https://www.xtcabandonware.com/game/741/quick-basic-450
https://www.qbasic.net/en/top-ten-downloads/

[Daniel3D]

Well, i'm trying.

But VBDOS and QBX 7.1 and QB 7.1 give the same error when I want to make an exe. (see attached image)

I thought that maybe the word 'update' was an issue, so I changed all instances of Update% to Updat%.
That seemed to work, but then it gives different errors that I can't solve.

So, I can not test the code. Not skilled enough, i'm afraid.

[TempodiBasic]

As soon as I'll try those IDE/Compilers taken from those links.

[TempodiBasic]

Hi Daniel3D
your issue to compile STUNTINST.BAS using QBX or QB7.1 or VBDOS is one:
in these compilers there is ISAM, a system for database that there isn't in QBasic and in Quickbasic 4.5.
In conclusion UPDATE is a keyword of ISAM, so that name is forbidden for variables into QBX and following developments.

I think that you can use a Qbasic /RUN namefile   or better a QB45 to compile this Installation program.

you can get QB45 QBasic and QB 2.0 here
https://www.qbasic.net/en/top-ten-downloads/
https://vetusware.com/download/QuickBASIC%202.01/?id=221
https://www.xtcabandonware.com/game/741/quick-basic-450

See later now a take a look to the polite version of STUNTS and to the MOD that you have posted before.

[Daniel3D]

That makes sense. I'll try that later.

Tried QB45,
still gives errors that need to be debugged, I think.

I'll wait for you to finish.

[TempodiBasic]

Hi Daniel3D

yes some issues with easy solutions!

1. Add () to the end of declaretion of HEADER sub

Code: QB64: [Select]

1. DECLARE SUB header ()

2.
in the SUB header
uncomment the first line

Code: QB64: [Select]

1. 'COLOR 15,7
2.  

becomes

Code: QB64: [Select]

1. COLOR 15,7

3.
in the SUB header cancel or REMs the arguments of CLS
so

Code: QB64: [Select]

1. CLS ,7

becomes

Code: QB64: [Select]

1. CLS  ' ,7

or better

Code: QB64: [Select]

1. CLS

4.
remember to put in the same folder the file.BAS and SETUP.CFG and the file  LISTSTU.TXT

5.
using QBasic or QB45 be sure that the program will be run in the original folder. It is not enough to load program into QB45 , you must verify that you are in the folder original of file.BAS. You can solve this issue easily, first you load file.BAS and then you use the command menu File->DOS-Shell.  So you get the prompt of DOS, in this you should be in the QB45 folder and you must use CD destinationPath to move to the folder of file.BAS.

NOW you can press F5 and run the program.

Naturally when you choose to Install Game you'll get errors because the folder of running have no such file.
you must build this folderf with original game file and the three files above,

[TempodiBasic]

@Daniel3D
please gimme help...
I have downloaded the original polite (or semipolite) version of STUNTS, the MOD simple garage and the custom car

now I have extract zippet files, and in the original polite version folder I have put the sgar  program but running it I got these results:

here sgar is in an own folder
  [ You are not allowed to view this attachment ]  

here sgar in stunts folder

  [ You are not allowed to view this attachment ]  

[Daniel3D]

I checked with the creator.
He made a function to set the game directory in the sgar.cfg.
You need to modify this manually.
Sorry, I didn't know this.
(Sgar is still in beta)

[TempodiBasic]

Hi Daniel3D
you're right sgar application has an absolute path defined into sgar.cgf
changing  handly it I can see now it runs well.
  [ You are not allowed to view this attachment ]  

Now it is clear that Simple Garage 1.0 does more than only installing new cars as we can see from its help
  [ You are not allowed to view this attachment ]  

for now what do you think that the "Installation MOD"  must do?
Answer 1: if there are different cars from those are default (original) it copies all them into destinationPath
Answer 2: if there are different cars from those are default (original) it let you choose what of them to copy into destinationPath
Answer 3: (feel free to share your thinking about it)

Waiting your feedback

[Daniel3D]

Answer 3.
Default in game directory. If subdirectory are present opt to install to one of those. (Theoretically a different garage program can be made that uses a different directory name)
Also one might want a car in a separate directory named after the car.

So, options could look like:
Install in:

• Stunts
• \garage
• \something
• \something else
• \new folder

Is that ok? Or to much?
Just the game folder and garage is fine to.