Game Patcher

[GigaSausage]

I created this application so that i can switch easily back and forth between different versions of the file.. blue/green .. etc

your safe browser extension will have a fit with this file, but its fine. Once you download it your virus software will pass it.

Enjoy!

P99 Patcher

[GigaSausage]

Patched to green live perfectly this morning to create my character. I love how easy this is to use. not a lot of overhead, just a simple game patch loader.

[Necroitis]

will this correct the "your spell file is outdated" message? I logged in to create a character and above the toon it has this message.

[Baler]

Use at your own risk
Not officially sponsored by P99

[GigaSausage]

Originally Posted by Baler [You must be logged in to view images. Log in or Register.]

Use at your own risk
Not officially sponsored by P99

yes.. use at your own risk. I programmed it, so I know it is safe. if you don't feel comfortable don't use.

This will patch up the entire file. so if you have anything out of sync this will true it all up to the zip file you are patching to.

[Bache]

Thank you sir I will try this to fix my issue !

[Baler]

Is there a source for this?

[GigaSausage]

Originally Posted by Baler [You must be logged in to view images. Log in or Register.]

Is there a source for this?

sure.. i don't mind sharing .. its pretty simple..

Private Sub btn_Update_Click(sender As Object, e As EventArgs) Handles btn_Update.Click

On Error GoTo ErrorHandler ' Enable error-handling routine.

If Len(txt_Path.Text) = 0 Or Len(txt_Game_File_Path.Text) = 0 Then
'do nothing
Else
Using archive As ZipArchive = ZipFile.OpenRead(txt_Path.Text)

For Each entry As ZipArchiveEntry In archive.Entries
entry.ExtractToFile(Path.Combine(txt_Game_File_Pat h.Text, entry.FullName), True)
Next
End Using

On Error Resume Next

sys_label.Visible = True


End If

Exit Sub
ErrorHandler: ' Error-handling routine.
Select Case Err.Number ' Evaluate error number.
Case 6 ' Divide by zero error
MsgBox("You attempted to divide by zero!")
' Insert code to handle this error
Case Else
' Insert code to handle other situations here...
End Select
Resume Next ' Resume execution at the statement immediately
' following the statement where the error occurred.



End Sub