WinHME / News: Recent posts

This is the end of the halo map expander gui project. It's over and done with. Halo2 is out, so this is done done done!

The Final Release of WinHME has been brought to you, via sourceforge, and the usual places... Enjoy!

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form WinHME
BorderStyle = 0 'None
Caption = "WinHME v1.5.0 OpenSource Beta 3"
ClientHeight = 5100
ClientLeft = 3030
ClientTop = 3570
ClientWidth = 6540
Icon = "WinHME.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5100
ScaleWidth = 6540
ShowInTaskbar = 1 'True
Begin VB.ComboBox Combo1
Height = 315
Left = 1680
TabIndex = 30
Top = 240
Width = 2775
End
Begin VB.CheckBox Check6
Caption = "Item Extraction Text Output"
Height = 375
Left = 2520
TabIndex = 29
Top = 2520
Width = 1815
End
Begin VB.CommandButton Command5
Caption = "Select"
Height = 255
Left = 3840
TabIndex = 28
Top = 720
Width = 615
End
Begin VB.TextBox Text9
Appearance = 0 'Flat
BorderStyle = 0 'None
Height = 285
Left = 3720
Locked = -1 'True
TabIndex = 27
Top = 3360
Width = 375
End
Begin VB.CheckBox Check15
Caption = "Advanced... "
Height = 435
Left = 4680
TabIndex = 26
Top = 2520
Width = 1575
End
Begin VB.CommandButton Command2
Caption = "[Create Batch File...]"
Height = 375
Left = 360
TabIndex = 9
Top = 2040
Width = 1815
End
Begin VB.TextBox Text8
BorderStyle = 0 'None
Enabled = 0 'False
Height = 285
Left = 2040
Locked = -1 'True
TabIndex = 20
Top = 3360
Width = 150
End
Begin VB.CommandButton Command1
Caption = "Command Line Creation..."
Height = 735
Left = 4440
TabIndex = 8
Top = 4080
Width = 1575
End
Begin VB.TextBox Text7
Appearance = 0 'Flat
BorderStyle = 0 'None
Enabled = 0 'False
Height = 285
Left = 3240
Locked = -1 'True
TabIndex = 18
Top = 3360
Width = 495
End
Begin VB.TextBox Text6
Appearance = 0 'Flat
BorderStyle = 0 'None
Enabled = 0 'False
Height = 285
Left = 2760
Locked = -1 'True
TabIndex = 17
Top = 3360
Width = 495
End
Begin VB.TextBox Text5
Appearance = 0 'Flat
BorderStyle = 0 'None
Enabled = 0 'False
Height = 285
Left = 2160
Locked = -1 'True
TabIndex = 16
Top = 3360
Width = 615
End
Begin VB.TextBox Text4
Appearance = 0 'Flat
BorderStyle = 0 'None
Enabled = 0 'False
Height = 285
Left = 960
Locked = -1 'True
TabIndex = 15
Top = 3360
Width = 1095
End
Begin VB.TextBox Text3
Appearance = 0 'Flat
BorderStyle = 0 'None
Enabled = 0 'False
Height = 285
Left = 360
Locked = -1 'True
TabIndex = 14
Top = 3360
Width = 615
End
Begin VB.CheckBox Check5
Caption = "Windows 9x"
Height = 255
Left = 2280
TabIndex = 4
Top = 4680
Width = 1815
End
Begin VB.CheckBox Check4
Caption = "Windows 2k/XP"
Height = 255
Left = 480
TabIndex = 3
Top = 4680
Width = 1695
End
Begin VB.CheckBox Check3
Caption = "Compress Cache00*.map..."
Height = 495
Left = 4680
TabIndex = 7
Top = 1680
Width = 1575
End
Begin VB.CheckBox Check2
Caption = "Extract Bitmaps..."
Height = 495
Left = 4680
TabIndex = 6
Top = 1080
Width = 1575
End
Begin VB.CheckBox Check1
Caption = "Expand Map..."
Height = 495
Left = 4680
TabIndex = 5
Top = 480
Width = 1455
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5400
Top = 2520
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command4
Caption = "[Run batfile.bat...]"
Height = 375
Left = 360
TabIndex = 12
Top = 2520
Width = 1815
End
Begin VB.CommandButton Command3
Caption = "[Save BatchFile...]"
Height = 375
Left = 2520
TabIndex = 11
Top = 2040
Width = 1815
End
Begin VB.TextBox Text2
Height = 285
Left = 360
Locked = -1 'True
TabIndex = 10
Text = "Command Line..."
Top = 4080
Width = 3735
End
Begin VB.TextBox Text1
Height = 495
Left = 4320
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 13
Top = 3240
Width = 1935
End
Begin VB.TextBox tname
Height = 285
Left = 1680
TabIndex = 2
Top = 1680
Width = 2775
End
Begin VB.TextBox oname
Height = 285
Left = 1680
TabIndex = 1
Top = 1200
Width = 2775
End
Begin VB.TextBox mname
Height = 285
Left = 1680
TabIndex = 0
Top = 720
Width = 2055
End
Begin VB.Frame Frame1
Caption = "Data Viewer (Dev/Debug thingy)"
Height = 615
Left = 240
TabIndex = 19
Top = 3120
Width = 3975
End
Begin VB.Frame Frame2
Caption = "HME Functions..."
Height = 2295
Left = 4560
TabIndex = 24
Top = 120
Width = 1815
End
Begin VB.Frame Frame3
Caption = "OS...."
Height = 615
Left = 360
TabIndex = 25
Top = 4440
Width = 3975
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = 5880
Top = 2520
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame Frame4
Caption = "Obsolete functions...."
Height = 1215
Left = 240
TabIndex = 32
Top = 3840
Width = 6015
End
Begin VB.Label Label4
Caption = "Map File: (in dir)"
Height = 255
Left = 120
TabIndex = 31
Top = 240
Width = 1335
End
Begin VB.Line Line2
Visible = 0 'False
X1 = 6720
X2 = 6720
Y1 = 120
Y2 = 5280
End
Begin VB.Line Line1
X1 = 6360
X2 = 6375
Y1 = 3000
Y2 = 3015
End
Begin VB.Label Label3
Caption = "Text File Name:"
Height = 255
Left = 120
TabIndex = 23
Top = 1680
Width = 1335
End
Begin VB.Label Label2
Caption = "Output File Name:"
Height = 255
Left = 120
TabIndex = 22
Top = 1200
Width = 1335
End
Begin VB.Label Label1
Caption = "Map File: (external)"
Height = 255
Left = 120
TabIndex = 21
Top = 720
Width = 1455
End
Begin VB.Menu mnuFile
Caption = "File"
Begin VB.Menu mnubrowse
Caption = "&Select Map"
End
Begin VB.Menu filebar0
Caption = "-"
End
Begin VB.Menu mnuSVBat
Caption = "Save Batch File"
End
Begin VB.Menu mnuRNBat
Caption = "Run Batch File"
End
Begin VB.Menu filebar7
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "Exit"
End
End
Begin VB.Menu mnuTools
Caption = "Tools"
Begin VB.Menu mnuSP
Caption = "Startup Menu"
End
Begin VB.Menu filebar9
Caption = "-"
End
Begin VB.Menu mnuOptions
Caption = "Options"
Enabled = 0 'False
End
End
Begin VB.Menu mnuabout
Caption = "About"
End
End
Attribute VB_Name = "WinHME"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
If Check1.Value = 1 Then
'Text1.Text = vbCrLf & "-o "
Check2.Value = 0
Check3.Value = 0
Text5.Text = "-o " & mname.Text & Combo1.Text & " " & oname.Text & " "
End If
If Check1.Value = 0 Then
If tname.Text = "" Then
Text5.Text = ""
Else
Text5.Text = ""
End If
'Text1.Text = ""
'Check2.Value = 0
'Check3.Value = 0
Text1.Text = ""
Text2.Text = ""
Text5.Text = ""
End If
End Sub... read more

Alright... As time passes on, we need to submit as much info and modified source code to the project as much as possible, which will allow for optimized versions of everyone's code to be created, and perhaps, a nice hybrid of more than 1 person's code will be created. (Just a thought).

At the moment, I'm no longer updating WinHME, as it has gotten to the point where I don't care about it much anymore. I put up the source code as a last resort for the app. ... read more

Beta 2 released along with new source code and console binary. HME should allow for more extraction of items.... (GLASS SHADERS!)

If you've made any changes to the source, please post your work! (I'm probably not going to make many more changes to my own source, (of which does not differ from the source found on SF). Thus, please, if you make any earth-shattering changes, please post your work here. It would be very appreciative. ;) jimmsta

The OpenSource WinHME source code and binary have been uploaded.

As of October 31st, 2003, WinHME now has a branch of development dedicated to OpenSource software.