Be the first to post a text review of WinHME. Rate and review a project by clicking thumbs up or thumbs down in the right column.

• Final final final HME put up.

  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!

  posted by winhme 1816 days ago

• File released: /Console Binary/HME Resurrected/HME_Resure001.exe

  posted 1816 days ago

• Console Binary HME Resurrected file released: HME_Resure001.exe

  Supports CE maps (Preliminary) -Broke xbox map compression/decompression....

  posted 1846 days ago

• Final Release

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

  posted by winhme 2045 days ago

• File released: /WinHME EXE Updates/v1.55 Final Release/WinHME.exe

  posted 2045 days ago

• File released: /WinHME EXE Updates/v1.55 Final Release/WHFinal_EXE.zip

  posted 2045 days ago

• WinHME EXE Updates v1.55 Final Release file released: WinHME.exe

  * Final Release * Source will be distributed in a few weeks. * Probably a useless app now ;(

  posted 2046 days ago

• WinHME EXE Updates v1.55 Final Release file released: WHFinal_EXE.zip

  * Final Release * Source will be distributed in a few weeks. * Probably a useless app now ;(

  posted 2047 days ago

• Minor Changes...

  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 Private Sub Check15_Click() If Check15.Value = 1 Then WinHME.Height = 5880 WinHME.Width = 6630 Text1.Visible = True Text2.Visible = True 'Check15.Value = False End If If Check15.Value = 0 Then WinHME.Height = 3750 WinHME.Width = 6630 Text1.Visible = False Text2.Visible = False 'Check15.Value = False End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Check3.Value = 0 Check1.Value = 0 Text6.Text = "-x " & mname.Text & Combo1.Text End If If Check2.Value = 0 Then Text1.Text = "" Text6.Text = "" Text2.Text = "" 'Check1.Value = 0 'Check3.Value = 0 End If End Sub Private Sub Check3_Click() If Check3.Value = 1 Then 'Text1.Text = vbCrLf & "-o " Check2.Value = 0 Check1.Value = 0 Text7.Text = "-c " & mname.Text & Combo1.Text & " " & oname.Text & " " End If If Check3.Value = 0 Then 'Text1.Text = "" 'Check2.Value = 0 'Check1.Value = 0 Text1.Text = "" Text2.Text = "" Text7.Text = "" End If End Sub Private Sub Check4_Click() If Check4.Value = 1 Then Text3.Text = "cmd.exe" Text1.Text = "cmd.exe" & vbCrLf & "halomapexpander " Check5.Value = 0 End If Text1.Text = "" Text3.Text = "" End If End Sub Private Sub Check5_Click() If Check5.Value = 1 Then Text4.Text = "command.com" Text1.Text = Text4.Text & vbCrLf & "halomapexpander " & Text5.Text & Text6.Text & Text7.Text Check4.Value = 0 End If ' ERROR CONTROL #!# Text4.Text = "command.com" Text1.Text = "command.com" & vbCrLf & "halomapexpander " ' ERROR CONTROL #!# If Check5.Value = 0 Then Text1.Text = "" Text4.Text = "" End If End Sub Private Sub Check6_Click() If Check2.Value = 1 Then If Check1.Value = 0 Then If Check3.Value = 0 Then Text6.Text = "-x " & mname.Text & Combo1.Text & " > " & tname.Text Else If Check6.Value = 0 Then Text6.Text = "-x " & mname.Text & Combo1.Text End If Check6.Value = 0 End If End If End If If Check6.Value = 0 Then If Check1.Value = 0 Then If Check3.Value = 0 Then Text6.Text = "-x " & mname.Text & Combo1.Text End If End If End If End Sub Private Sub Combo1_DropDown() Combo1.AddItem ("---MP MAPS---") Combo1.AddItem ("bloodgulch.map") Combo1.AddItem ("sidewinder.map") Combo1.AddItem ("beavercreek.map") Combo1.AddItem ("boardingaction.map") Combo1.AddItem ("carousel.map") Combo1.AddItem ("chillout.map") Combo1.AddItem ("damnation.map") Combo1.AddItem ("hangemhigh.map") Combo1.AddItem ("longest.map") Combo1.AddItem ("prisoner.map") Combo1.AddItem ("putput.map") Combo1.AddItem ("ratrace.map") Combo1.AddItem ("bloodgulch.map") Combo1.AddItem ("wizard.map") ' Separated these files so everyone can figure it out... Combo1.AddItem ("---PC MAPS---") Combo1.AddItem ("timberland.map") Combo1.AddItem ("icefields.map") Combo1.AddItem ("infinity.map") Combo1.AddItem ("dangercanyon.map") Combo1.AddItem ("deathisland.map") Combo1.AddItem ("gephyrophobia.map") ' Again, separation is a good idea for organization Combo1.AddItem ("---SP MAPS---") Combo1.AddItem ("a10.map") Combo1.AddItem ("a30.map") Combo1.AddItem ("a50.map") Combo1.AddItem ("b30.map") Combo1.AddItem ("b40.map") Combo1.AddItem ("c10.map") Combo1.AddItem ("c20.map") Combo1.AddItem ("c40.map") Combo1.AddItem ("d20.map") Combo1.AddItem ("d40.map") Combo1.AddItem ("---UI---") Combo1.AddItem ("ui.map") 'Combo1.AddItem ("") 'Combo1.AddItem ("") End Sub Private Sub Command1_Click() ' this is gonna take a LOT of If statements to work... ' ugh... this space will one day occupy a large bit of code.... ' First, I'll program this the short way, then, if all the error checking doesn't work, I'll program it the long IF-statement way... 'If Text2.Text = "" Then If tname.Text = "" Then Text2.Text = "" Text2.Text = Text3.Text & Text4.Text & " " & "halomapexpander " & Combo1.Text & Text5.Text & Text6.Text & Text7.Text Else Text2.Text = "" Text2.Text = Text3.Text & Text4.Text & " " & "halomapexpander " & Combo1.Text & Text5.Text & Text6.Text & Text7.Text & " > " & tname.Text End If ' yay. the short way works fine... or at least I think it does.... End Sub Private Sub Command2_Click() 'Text1.Text = Text3.Text & Text4.Text & vbCrLf & "halomapexpander " & Text5.Text & Text6.Text & Text7.Text If tname.Text = "" Then Text1.Text = "halomapexpander " & Text5.Text & Text6.Text & Text7.Text & " " Else Text1.Text = "halomapexpander " & Text5.Text & Text6.Text & Text7.Text & " " End If End Sub Private Sub Command3_Click() Dim output CommonDialog1.Flags = &H1 CommonDialog1.ShowSave On Error GoTo 100 'CommonDialog1.FileTitle = "Please use the .bat extension!" Open CommonDialog1.FileName For Output As #2 'Opens The File 'With CommonDialog1 ' .DialogTitle = "Batch File Name" ' .Filter = "Batch File(*.bat)|*.bat|All files (*.*)|*.*" ' End With Print #2, Text1.Text 'Creates The File Close #2 'Closes the file 'Shell CommonDialog1.FileName 100 End Sub Private Sub Command4_Click() Dim output CommonDialog1.DialogTitle = "Batch File Name" CommonDialog1.Filter = "Batch File(*.bat)|*.bat|All files (*.*)|*.*" CommonDialog1.ShowOpen On Error GoTo 100 Open CommonDialog1.FileName For Input As #1 'Opens The File On Error GoTo 100 'Print #1, Text1.Text 'Creates The File Shell (CommonDialog1.FileName) Close #1 'Closes the file 100 End Sub Private Sub Command5_Click() MsgBox "NOTE: Please be sure that the map file you are accessing is INSIDE the WinHME directory! Accessing files from external directories is NOT supported!", vbExclamation With CommonDialog1 .DialogTitle = "Map File Name" .Filter = "Halo Map (*.map)|*.map|All files (*.*)|*.*" .ShowOpen On Error GoTo 100 End With mname.Text = CommonDialog1.FileName 'If GetDir(MapFile) <> App.Path & "" Then 'FileCopy MapFile, App.Path & "temp.map" 'End If 100 End Sub Public Function GetDir(ByVal sPath As String) As String Dim tmp tmp = InStrRev(sPath, "") If tmp = 0 Then GetDir = sPath Else GetDir = Mid(sPath, 1, tmp) 'With at the end End If End Function Private Sub Form_Load() WinHME.Icon = about.Picture Text1.Visible = False Text2.Visible = False WinHME.Height = 3750 WinHME.Width = 6630 End Sub Private Sub mnuabout_Click() about.Show End Sub Private Sub mnubrowse_Click() Command5.Value = True End Sub Private Sub mnuExit_Click() End End Sub Private Sub mnuSPBeta_Click() MsgBox "This will link to the up and coming Start page, inspired by Nero's SmartStart" End Sub Private Sub mnuRNBat_Click() Command4.Value = True End Sub Private Sub mnuSP_Click() StartPG.Show End Sub Private Sub mnuSVBat_Click() Command3.Value = True End Sub

  posted by winhme 2077 days ago

• Press C to continue...

  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. jimmsta ;)

  posted by winhme 2179 days ago