Update of /cvsroot/netrek/client/netrekxp/configuration-program
In directory sc8-pr-cvs16:/tmp/cvs-serv6916
Modified Files:
Form1.frm
Log Message:
Index: Form1.frm
===================================================================
RCS file: /cvsroot/netrek/client/netrekxp/configuration-program/Form1.frm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Form1.frm 16 Apr 2007 02:13:40 -0000 1.7
+++ Form1.frm 16 May 2007 01:10:46 -0000 1.8
@@ -25,7 +25,7 @@
ForeColor = &H8000000E&
Height = 195
Left = 7440
- TabIndex = 89
+ TabIndex = 88
ToolTipText = "Turns your sound on. For better quality enable layered stereo sound."
Top = 8640
Value = 1 'Checked
@@ -46,7 +46,7 @@
ForeColor = &H00FFFFFF&
Height = 195
Left = 7440
- TabIndex = 88
+ TabIndex = 87
ToolTipText = "Shows a circle around your ship, you can Destroy Enemy Torpedoes that are in this circle."
Top = 8160
Width = 2415
@@ -67,7 +67,7 @@
Height = 195
Left = 7440
MaskColor = &H00FFFFFF&
- TabIndex = 87
+ TabIndex = 86
ToolTipText = "Shows your speed next to your ship on the local map."
Top = 8400
Value = 1 'Checked
@@ -88,7 +88,7 @@
ForeColor = &H8000000E&
Height = 195
Left = 7440
- TabIndex = 86
+ TabIndex = 85
ToolTipText = "Shows star streaks when tawrping to your base."
Top = 7920
Value = 1 'Checked
@@ -109,7 +109,7 @@
ForeColor = &H8000000E&
Height = 195
Left = 7440
- TabIndex = 85
+ TabIndex = 84
ToolTipText = "Shows stars in the background on your local map."
Top = 8880
Value = 1 'Checked
@@ -130,7 +130,7 @@
ForeColor = &H00FFFFFF&
Height = 255
Left = 7440
- TabIndex = 84
+ TabIndex = 83
Top = 9120
Width = 2415
End
@@ -139,7 +139,7 @@
ItemData = "Form1.frx":08CA
Left = 8880
List = "Form1.frx":08D4
- TabIndex = 83
+ TabIndex = 82
Text = "Phasers"
Top = 5520
Width = 1935
@@ -149,7 +149,7 @@
Index = 30
Left = 9840
MaxLength = 11
- TabIndex = 81
+ TabIndex = 80
Text = "Space Bar"
Top = 6960
Width = 855
@@ -159,7 +159,7 @@
Index = 29
Left = 9840
MaxLength = 1
- TabIndex = 80
+ TabIndex = 79
Text = "v"
Top = 6600
Width = 495
@@ -169,7 +169,7 @@
Index = 28
Left = 9840
MaxLength = 1
- TabIndex = 79
+ TabIndex = 78
Text = "V"
Top = 6240
Width = 495
@@ -179,7 +179,7 @@
Index = 0
Left = 2160
MaxLength = 1
- TabIndex = 34
+ TabIndex = 33
Text = "t"
Top = 4680
Width = 495
@@ -197,7 +197,7 @@
EndProperty
Height = 255
Left = 5640
- TabIndex = 33
+ TabIndex = 32
Top = 10080
Width = 1095
End
@@ -206,7 +206,7 @@
ItemData = "Form1.frx":08EC
Left = 8880
List = "Form1.frx":08F6
- TabIndex = 32
+ TabIndex = 31
Text = "Torpedoes"
Top = 5160
Width = 1935
@@ -216,7 +216,7 @@
Index = 1
Left = 2160
MaxLength = 1
- TabIndex = 31
+ TabIndex = 30
Text = "p"
Top = 5040
Width = 495
@@ -226,7 +226,7 @@
Index = 2
Left = 2160
MaxLength = 1
- TabIndex = 30
+ TabIndex = 29
Text = "s"
Top = 5880
Width = 495
@@ -236,7 +236,7 @@
Index = 3
Left = 2160
MaxLength = 1
- TabIndex = 29
+ TabIndex = 28
Text = "b"
Top = 6240
Width = 495
@@ -246,7 +246,7 @@
Index = 4
Left = 2160
MaxLength = 1
- TabIndex = 28
+ TabIndex = 27
Text = "c"
Top = 6600
Width = 495
@@ -256,7 +256,7 @@
Index = 5
Left = 2160
MaxLength = 1
- TabIndex = 27
+ TabIndex = 26
Text = "x"
Top = 7440
Width = 495
@@ -266,7 +266,7 @@
Index = 6
Left = 2160
MaxLength = 1
- TabIndex = 26
+ TabIndex = 25
Text = "z"
Top = 7800
Width = 495
@@ -276,7 +276,7 @@
Index = 7
Left = 6360
MaxLength = 1
- TabIndex = 25
+ TabIndex = 24
Text = "^"
Top = 7080
Width = 495
@@ -286,7 +286,7 @@
Index = 8
Left = 6360
MaxLength = 1
- TabIndex = 24
+ TabIndex = 23
Text = "_"
Top = 7440
Width = 495
@@ -296,7 +296,7 @@
Index = 9
Left = 2160
MaxLength = 1
- TabIndex = 23
+ TabIndex = 22
Text = "%"
Top = 8280
Width = 495
@@ -306,7 +306,7 @@
Index = 10
Left = 2160
MaxLength = 1
- TabIndex = 22
+ TabIndex = 21
Text = "#"
Top = 8640
Width = 495
@@ -316,7 +316,7 @@
Index = 11
Left = 2160
MaxLength = 1
- TabIndex = 21
+ TabIndex = 20
Text = "R"
Top = 6960
Width = 495
@@ -326,7 +326,7 @@
Index = 12
Left = 6360
MaxLength = 1
- TabIndex = 20
+ TabIndex = 19
Text = "r"
Top = 4680
Width = 495
@@ -336,7 +336,7 @@
Index = 13
Left = 6360
MaxLength = 1
- TabIndex = 19
+ TabIndex = 18
Text = "l"
Top = 5040
Width = 495
@@ -346,7 +346,7 @@
Index = 14
Left = 6360
MaxLength = 1
- TabIndex = 18
+ TabIndex = 17
Text = "i"
Top = 5400
Width = 495
@@ -356,7 +356,7 @@
Index = 15
Left = 6360
MaxLength = 1
- TabIndex = 17
+ TabIndex = 16
Text = "q"
Top = 9360
Width = 495
@@ -366,7 +366,7 @@
Index = 16
Left = 6360
MaxLength = 1
- TabIndex = 16
+ TabIndex = 15
Text = "D"
Top = 6240
Width = 495
@@ -376,7 +376,7 @@
Index = 17
Left = 6360
MaxLength = 11
- TabIndex = 15
+ TabIndex = 14
Text = "d"
Top = 6600
Width = 495
@@ -386,7 +386,7 @@
Index = 18
Left = 2160
MaxLength = 1
- TabIndex = 14
+ TabIndex = 13
Text = "f"
Top = 5400
Width = 495
@@ -396,7 +396,7 @@
Index = 19
Left = 2160
MaxLength = 1
- TabIndex = 13
+ TabIndex = 12
Text = "0"
Top = 9000
Width = 495
@@ -406,7 +406,7 @@
Index = 20
Left = 2160
MaxLength = 1
- TabIndex = 12
+ TabIndex = 11
Text = "2"
Top = 9360
Width = 495
@@ -416,7 +416,7 @@
Index = 21
Left = 2160
MaxLength = 1
- TabIndex = 11
+ TabIndex = 10
Text = "3"
Top = 9720
Width = 495
@@ -426,7 +426,7 @@
Index = 22
Left = 2160
MaxLength = 1
- TabIndex = 10
+ TabIndex = 9
Text = "4"
Top = 10080
Width = 495
@@ -436,7 +436,7 @@
Index = 23
Left = 6360
MaxLength = 1
- TabIndex = 9
+ TabIndex = 8
Text = "w"
Top = 5760
Width = 495
@@ -446,7 +446,7 @@
Index = 24
Left = 6360
MaxLength = 1
- TabIndex = 8
+ TabIndex = 7
Text = "y"
Top = 7800
Width = 495
@@ -466,21 +466,12 @@
ForeColor = &H8000000E&
Height = 195
Left = 7440
- TabIndex = 7
+ TabIndex = 6
ToolTipText = $"Form1.frx":090E
Top = 7680
Value = 1 'Checked
Width = 2175
End
- Begin VB.TextBox Text2
- Height = 285
- Left = 0
- TabIndex = 6
- Text = "playnetrek.org"
- Top = 10440
- Visible = 0 'False
- Width = 1935
- End
Begin VB.CommandButton Command2
Caption = "Cancel"
BeginProperty Font
@@ -597,7 +588,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 7560
- TabIndex = 82
+ TabIndex = 81
Top = 5520
Width = 1215
End
@@ -616,7 +607,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 7440
- TabIndex = 78
+ TabIndex = 77
Top = 7080
Width = 2295
End
@@ -635,7 +626,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 7440
- TabIndex = 77
+ TabIndex = 76
Top = 6720
Width = 1575
End
@@ -654,7 +645,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 7440
- TabIndex = 76
+ TabIndex = 75
Top = 6360
Width = 1575
End
@@ -673,7 +664,7 @@
ForeColor = &H00FFFFFF&
Height = 135
Left = 4800
- TabIndex = 75
+ TabIndex = 74
Top = 10560
Width = 1455
End
@@ -706,7 +697,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 74
+ TabIndex = 73
Top = 4680
Width = 1575
End
@@ -725,7 +716,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 73
+ TabIndex = 72
Top = 5880
Width = 1455
End
@@ -744,7 +735,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 72
+ TabIndex = 71
Top = 6600
Width = 1455
End
@@ -763,7 +754,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 71
+ TabIndex = 70
Top = 6240
Width = 1455
End
@@ -782,7 +773,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 70
+ TabIndex = 69
Top = 6240
Width = 2175
End
@@ -801,7 +792,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 69
+ TabIndex = 68
Top = 6600
Width = 2295
End
@@ -820,7 +811,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 68
+ TabIndex = 67
Top = 7440
Width = 1575
End
@@ -839,7 +830,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 67
+ TabIndex = 66
Top = 5040
Width = 1575
WordWrap = -1 'True
@@ -859,7 +850,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 66
+ TabIndex = 65
Top = 5400
Width = 1455
End
@@ -878,7 +869,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 65
+ TabIndex = 64
Top = 5040
Width = 2055
End
@@ -897,7 +888,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 64
+ TabIndex = 63
Top = 6960
Width = 1455
End
@@ -916,7 +907,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 63
+ TabIndex = 62
Top = 9360
Width = 1575
End
@@ -935,7 +926,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 62
+ TabIndex = 61
Top = 7440
Width = 2175
End
@@ -954,7 +945,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 61
+ TabIndex = 60
Top = 5400
Width = 2175
End
@@ -973,7 +964,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 60
+ TabIndex = 59
Top = 8640
Width = 1575
End
@@ -992,7 +983,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 59
+ TabIndex = 58
Top = 8280
Width = 1575
End
@@ -1011,7 +1002,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 58
+ TabIndex = 57
Top = 4680
Width = 2175
End
@@ -1030,7 +1021,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 57
+ TabIndex = 56
Top = 9720
Width = 1455
End
@@ -1049,7 +1040,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 56
+ TabIndex = 55
Top = 7080
Width = 2175
End
@@ -1068,7 +1059,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 55
+ TabIndex = 54
Top = 7800
Width = 1575
End
@@ -1087,7 +1078,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 54
+ TabIndex = 53
Top = 10080
Width = 1095
End
@@ -1106,7 +1097,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 480
- TabIndex = 53
+ TabIndex = 52
Top = 9000
Width = 1455
End
@@ -1125,7 +1116,7 @@
ForeColor = &H00FFFFFF&
Height = 1215
Left = 120
- TabIndex = 52
+ TabIndex = 51
Top = 1080
Width = 10695
End
@@ -1144,7 +1135,7 @@
ForeColor = &H00C0C000&
Height = 255
Left = 120
- TabIndex = 51
+ TabIndex = 50
Top = 3960
Width = 2535
End
@@ -1163,7 +1154,7 @@
ForeColor = &H00FFFF00&
Height = 255
Left = 480
- TabIndex = 50
+ TabIndex = 49
Top = 4320
Width = 855
End
@@ -1182,7 +1173,7 @@
ForeColor = &H00808000&
Height = 255
Left = 2160
- TabIndex = 49
+ TabIndex = 48
Top = 4320
Width = 1575
End
@@ -1201,7 +1192,7 @@
ForeColor = &H00FFFF00&
Height = 255
Left = 4080
- TabIndex = 48
+ TabIndex = 47
Top = 4320
Width = 855
End
@@ -1220,7 +1211,7 @@
ForeColor = &H00808000&
Height = 255
Left = 6480
- TabIndex = 47
+ TabIndex = 46
Top = 4320
Width = 1575
End
@@ -1246,7 +1237,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 7560
- TabIndex = 46
+ TabIndex = 45
Top = 5160
Width = 1215
End
@@ -1272,7 +1263,7 @@
ForeColor = &H00C0C000&
Height = 375
Left = 7560
- TabIndex = 45
+ TabIndex = 44
Top = 4680
Width = 2055
End
@@ -1291,7 +1282,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 44
+ TabIndex = 43
Top = 9480
Width = 615
End
@@ -1317,7 +1308,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 43
+ TabIndex = 42
Top = 5760
Width = 2175
End
@@ -1336,7 +1327,7 @@
ForeColor = &H8000000E&
Height = 375
Left = 4080
- TabIndex = 42
+ TabIndex = 41
Top = 7800
Width = 2175
End
@@ -1355,7 +1346,7 @@
ForeColor = &H00C0C000&
Height = 375
Left = 7440
- TabIndex = 41
+ TabIndex = 40
Top = 6000
Width = 2055
End
@@ -1374,7 +1365,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 40
+ TabIndex = 39
Top = 8400
Width = 1095
End
@@ -1393,7 +1384,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 39
+ TabIndex = 38
Top = 8760
Width = 1215
End
@@ -1412,7 +1403,7 @@
ForeColor = &H8000000E&
Height = 255
Left = 4080
- TabIndex = 38
+ TabIndex = 37
Top = 9120
Width = 1935
End
@@ -1422,7 +1413,7 @@
ForeColor = &H00FFFFFF&
Height = 255
Left = 120
- TabIndex = 37
+ TabIndex = 36
Top = 2400
Width = 10695
End
@@ -1441,7 +1432,7 @@
ForeColor = &H00C0C000&
Height = 375
Left = 120
- TabIndex = 36
+ TabIndex = 35
Top = 3000
Width = 2775
End
@@ -1451,7 +1442,7 @@
ForeColor = &H00FFFFFF&
Height = 615
Left = 3000
- TabIndex = 35
+ TabIndex = 34
Top = 3120
Width = 7575
End
@@ -1461,7 +1452,7 @@
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
-'Copyright (C) 2007 Joe Evango - Netrek XP 2006 Configuration Program v1.3
+'Copyright (C) 2007 Joe Evango - Netrek XP 2006 Configuration Program v1.4
'
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
@@ -1491,9 +1482,21 @@
' a Windows client. Also feel free to use the logic in this code to create a config utility for another OS. It
' took a while to put the keymap portion of this together but it works well. I only ask that if any modifications
' are made you also make your code changes available to the community and give me a mention as a contributor
+'
+' Special thanks to Bill Barcerski for helping me out with the Classic Mode configuration addition and helping test
+'
+' Program notes from Joe - 5/15/07
+' Removed the repeated append functionality and replaced it with an imported rc file with default setting.
+' Options available in the config utility are added at the bottom of the file. These options are excluded from the
+' imported file and appended only once to the bottom of the imported rc file. Options are now only specified one time.
+' If a netrekrc file already exists it is save in the netrek root install folder as netrek.sav
+' In order for the program to function there will need to be a file named netrekrc in the root of where it is executed
+' and a file named netrekrc.cfg in the docs folder. Fixed several bugs that have been reported.
-'Checks if Classic Mode is enabled and swaps the Classic Mode graphic
+
+
+'swaps the classic mode/xp mode images when the checkbox value changes
Private Sub Check1_Click()
If (Check1.Value = vbChecked) Then
@@ -1508,8 +1511,12 @@
-'Keymap configuration
+
Private Sub Command1_Click()
+
+'Saves your current netrekrc to netrekrc.sav and copies a static netrek config file from the docs directory
+ FileCopy ".\netrekrc", ".\netrekrc.sav"
+ FileCopy ".\docs\netrekrc.cfg", ".\netrekrc"
Dim warp As Integer
Dim det As Integer
@@ -1621,10 +1628,13 @@
Dim a As Integer
Dim b As Integer
Dim c As Integer
-
+ Dim d As Integer
+
Dim duplicate As Integer
Dim speckey As Integer
+ Dim blank As Integer
+
Dim currentdate As String
@@ -1755,6 +1765,8 @@
End If
+'Keymap configuration
+
If torpedo = Text1(0) Then
keymap1 = ""
Else
@@ -1942,10 +1954,11 @@
classicmode = 0
End If
-'Error checking for duplicate keymaps
+'Error checking for duplicate keymaps and blank values
speckey = 0
duplicate = 0
+ blank = 0
For a = 0 To 30
For b = 0 To 30
If a <> b And Text1(a) = Text1(b) Then
@@ -1969,9 +1982,19 @@
Exit For
End If
Next c
+
+ For d = 0 To 30
+ If Text1(d) = "" Then
+ blank = 1
+ End If
+ If blank = 1 Then
+ MsgBox "Blank values are not allowed. If you meant to assign a key to the space bar please go to the key you would like to assign and enter a space by pressing the space bar"
+ Exit For
+ End If
+ Next d
- If duplicate = 0 And speckey = 0 Then
+ If duplicate = 0 And speckey = 0 And blank = 0 Then
' Open the file for append.
Open ".\netrekrc" For Append As fnum2
@@ -2009,37 +2032,83 @@
End If
keymap = "keymap:" + keymap1 + keymap2 + keymap3 + keymap4 + keymap5 + keymap6 + keymap7 + keymap8 + keymap9 + keymap10 + keymap11 + keymap12 + keymap13 + keymap14 + keymap15 + keymap16 + keymap17 + keymap18 + keymap19 + keymap20 + keymap21 + keymap22 + keymap23 + keymap24 + keymap25 + keymap26 + keymap27 + keymap28 + keymap29 + keymap30 + keymap31
- keytag1 = "###Configuration changes made the Netrek Config Utility on " + currentdate
- keytag2 = "###Warning: if you have these options defined earlier in the netrekrc, the settings below will take precedence."
-
+ keytag1 = "###Configuration below was added on - " + currentdate
+
Print #fnum2, Chr(13)
Print #fnum2, Chr(13)
Print #fnum2, keytag1
Print #fnum2, Chr(13)
- Print #fnum2, keytag2
- Print #fnum2, Chr(13)
+ Print #fnum2, "# Key mapping"
+ Print #fnum2, "# Define you keymap here. The format is newkey defaultkey. For example, the"
+ Print #fnum2, "# default key for shield toggle is 's', if you want to remap shield toggle to"
+ Print #fnum2, "# 'q', you would put 'qs' in your keymap. Shields would still be mapped to"
+ Print #fnum2, "# 's' as well as now being on 'q'. Adding a mapping doesn't delete the old"
+ Print #fnum2, "# one. If you want shields on 'w' as well, put 'ws' in your keymap. If you"
+ Print #fnum2, "# had instead put 'wq', it would have mapped quit, the default action of 'q',"
+ Print #fnum2, "# onto 'w'."
Print #fnum2, keymap
Print #fnum2, Chr(13)
+ Print #fnum2, "# Mouse button mapping"
+ Print #fnum2, "# Button map lets you map the mouse buttons. Unfortunately, it works in a"
+ Print #fnum2, "# different way than keymap. The format is <mousebutton> <key>. To map"
+ Print #fnum2, "# shields onto button 1 (the left one), you would put '1s' in your keymap."
+ Print #fnum2, "# The buttonmap works through the keymap, so if you have shields mapped to"
+ Print #fnum2, "# 'q', putting '1q' would make button 1 shields and not quit. Buttons 4 and"
+ Print #fnum2, "# 5 are support for Microsoft Xbuttons. If you have a wheel mouse, the up"
+ Print #fnum2, "# wheel is button 6 and the down wheel is button 7. There is also support"
+ Print #fnum2, "# for shifted, controled, and control-shifted mouse actions, see the netrek"
+ Print #fnum2, "# help file for more details."
Print #fnum2, buttonmap
Print #fnum2, Chr(13)
+ Print #fnum2, "# Show hints window"
Print #fnum2, tiptxt
Print #fnum2, Chr(13)
+ Print #fnum2, "# What type of ship bitmaps to use"
+ Print #fnum2, "# 0 - mono"
+ Print #fnum2, "# 1 - new color bitmaps (default)"
+ Print #fnum2, "# 2 - old color bitmaps"
+ Print #fnum2, "# 3 - shaded old color bitmaps"
+ Print #fnum2, "# 4 - experimental high res bitmaps"
Print #fnum2, mode1
+ Print #fnum2, Chr(13)
+ Print #fnum2, "# Use colored bitmaps for torps and plasmas"
Print #fnum2, mode2
+ Print #fnum2, Chr(13)
+ Print #fnum2, "# Type of planet bitmaps on local map"
+ Print #fnum2, "# 0 - Bronco (default)"
+ Print #fnum2, "# 1 - Moo"
+ Print #fnum2, "# 2 - Rabbitear"
+ Print #fnum2, "# 3 - New color"
Print #fnum2, mode4
+ Print #fnum2, Chr(13)
+ Print #fnum2, "# Type of planet bitmaps on galactic map"
+ Print #fnum2, "# 0 - Bronco (default)"
+ Print #fnum2, "# 1 - Moo"
+ Print #fnum2, "# 2 - Rabbitear"
+ Print #fnum2, "# 3 - New color"
Print #fnum2, mode5
+ Print #fnum2, Chr(13)
+
+ Print #fnum2, "# Highlight galactic planets by race and army status"
Print #fnum2, mode6
+ Print #fnum2, "# Use beeplite"
Print #fnum2, mode10
+
Print #fnum2, Chr(13)
+ Print #fnum2, "# Enable layered, stereo sound"
Print #fnum2, soundtxt
Print #fnum2, Chr(13)
+ Print #fnum2, "# Draw background stars"
Print #fnum2, starstxt
Print #fnum2, Chr(13)
+ Print #fnum2, "# Draw warp streaks while transwarping to starbase"
Print #fnum2, warptxt
Print #fnum2, Chr(13)
+ Print #fnum2, "# Show det circle around your ship"
Print #fnum2, dettxt
Print #fnum2, Chr(13)
+ Print #fnum2, "# Show my speed on local"
Print #fnum2, speedtxt
Close fnum2
@@ -2111,7 +2180,7 @@
Print #fnum3, "Close Special Windows- " + Text1(30)
Close #fnum3
Unload Form1
- MsgBox "YOUR CONFIGURATION HAS BEEN CREATED! After you click on OK a document with the controls you have chosen will open. A shortcut to this document has been created in your Netrek Config Utility program group."
+ MsgBox "YOUR CONFIGURATION HAS BEEN CREATED! After you click on OK a document with the controls you have chosen will open. A shortcut to this document has been created in your Netrek Config Utility program group. If you already had a configuration file in place it has been saved in your Netrek install directory as netrekrc.sav"
Shell Application & " " & FileName, vbNormalFocus
Else
End If
@@ -2122,10 +2191,6 @@
End Sub
-Private Sub Form_Load()
-
-End Sub
-
Private Sub Option1_Click()
Form3.Show
Unload Form1