RDCAx wrote

TTG_Gold_Jake wrote

TheSeamenDemon wrote thanks i can now add this to my AIO.

Credit me dude, seriously!

Lmao 5 dollars says he doesn't. But nice topic. Should help some people but you should explain the code more for other people.

U owe me 5 bucks cause i am.

You should make another mod tool post

M24SNIPES wrote You should make another mod tool post

People will leech them =(

TTG_Gold_Jake wrote

M24SNIPES wrote You should make another mod tool post

People will leech them =(

if I were you I wouldn't make any more mod tool tuts because, yeah people will leach. And with the tuts you have already made, people should understand enough to make their own. They will just have to figure out the offset.

"Type 'String' Is Not Defined." Line 3 Column 14


It's the only error I get

any idears for a fix guyz?

DonutPrograms wrote "Type 'String' Is Not Defined." Line 3 Column 14


It's the only error I get

any idears for a fix guyz?

Remove all code and replace with this

C&P Ftw?

warning to all . while modding careful as to how many items you dewcide to please and where i three rind an xbox modding this one lol

-TheYuNoguy- wrote warning to all . while modding careful as to how many items you dewcide to please and where i three rind an xbox modding this one lol

Your gonna have to speak English Bro

TTG_Gold_Jake wrote

DonutPrograms wrote "Type 'String' Is Not Defined." Line 3 Column 14


It's the only error I get

any idears for a fix guyz?

Remove all code and replace with this


Imports PackageIO
Public Class Form1
    Dim X As String
    Dim projectdata As Object

    Public Sub ReadFile(ByVal X As String)
        Dim reader As New PackageIO.Reader(X, Endian.Big)
        reader.Position = &H23D231
        TextBoxX1.Text = reader.ReadInt32
        reader.Position = &H224D33
        TextBoxX2.Text = reader.ReadInt32
        reader.Position = &H223C6E
        TextBoxX3.Text = reader.ReadInt32
        reader.Position = &H22366E
        TextBoxX4.Text = reader.ReadInt32
        reader.Position = &H220068
        TextBoxX5.Text = reader.ReadInt32
        reader.Position = &H21C603
        TextBoxX6.Text = reader.ReadInt32
        reader.Position = &H218FE8
        TextBoxX7.Text = reader.ReadInt32
        reader.Position = &H626F3
        TextBoxX1.Text = reader.ReadInt32
        reader.Position = &H7AA9B
        TextBoxX9.Text = reader.ReadInt32
        reader.Position = &H13F3D
        TextBoxX10.Text = reader.ReadInt32
    End Sub

    Public Sub WriteFile(ByVal X As String)
        Dim writer As New PackageIO.Writer(X, Endian.Big)
        writer.Position = &H23D231
        writer.WriteInt32(TextBoxX1.Text)
        writer.Position = &H224D33
        writer.WriteInt32(TextBoxX2.Text)
        writer.Position = &H223C6E
        writer.WriteInt32(TextBoxX3.Text)
        writer.Position = &H22366E
        writer.WriteInt32(TextBoxX4.Text)
        writer.Position = &H220068
        writer.WriteInt32(TextBoxX5.Text)
        writer.Position = &H21C603
        writer.WriteInt32(TextBoxX6.Text)
        writer.Position = &H218FE8
        writer.WriteInt32(TextBoxX7.Text)
        writer.Position = &H626F3
        writer.WriteInt32(TextBoxX1.Text)
        writer.Position = &H7AA9B
        writer.WriteInt32(TextBoxX9.Text)
        writer.Position = &H13F3D
        writer.WriteInt32(TextBoxX10.Text)
    End Sub
    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        Dim open As New OpenFileDialog
        open.Filter = "All Files (*.*)|*.*"
        If open.ShowDialog = Windows.Forms.DialogResult.OK Then
            Try
                X = open.FileName
                ReadFile(X)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
            End Try
        End If
    End Sub

    Private Sub ButtonX2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX2.Click
        Try
            Me.WriteFile(Me.X)
            Interaction.MsgBox("File Saved!", MsgBoxStyle.Information, "")
        Catch ex As Exception
            projectdata.SetProjectError(ex)
            Dim exception As Exception = ex
            Interaction.MsgBox("Error", MsgBoxStyle.Critical, "")
            projectdata.ClearProjectError()
        End Try
    End Sub
End Class

C&P Ftw?

im getting an error, it says: "Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: startIndex" when I debug it
what do I do?