http://www.mediafire.com/?v2fedn1va0ngksn

New Features
- Supports direct ROM Patching
- New layout
- Fixed "math"
Thanks to, messiaen, metal_man, and Sukasa for their help with the program and to messiaen again for his mario64 GS patching notes.
Here is the Visual Basics Code:
[CODE] Public Class MarioPatcher
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button2.Enabled = False
Button1.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox4.Text = "Offset: 0x" + Hex$(CLng("&H" & TextBox2.Text) - &H245000) + Environment.NewLine + "Byte: " + TextBox5.Text + TextBox6.Text + Environment.NewLine + Environment.NewLine + "Ready to be patched!!!"
Label4.Text = Hex$(CLng("&H" & TextBox2.Text) - &H245000)
Button2.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim patch As Byte() = {(CLng("&H" & TextBox5.text)), (CLng("&H" & Textbox6.text))}
Dim bw As New IO.BinaryWriter(IO.File.Open(OpenFileDialog1.FileName, IO.FileMode.Open, IO.FileAccess.ReadWrite))
bw.BaseStream.Seek(CLng("&H" & Label4.Text), IO.SeekOrigin.Begin)
bw.Write(patch)
bw.Close()
MsgBox("Gameshark code Patched!")
Button3.Enabled = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OpenFileDialog1.FileName = ".z64"
OpenFileDialog1.Title = "Super Mario 64 Rom"
OpenFileDialog1.ShowDialog()
OpenFileDialog1.OpenFile()
Button1.Enabled = True
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
End Sub
End Class [/CODE]
If anyone wants to update it. I don't think I will be working on this anymore.
____________________
|