PDA

View Full Version : Game Patcher


GigaSausage
10-24-2019, 03:28 PM
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 (https://drive.google.com/open?id=1NnwnMCvmP_HBc4azraF2KIJHG6SwrfcI)

GigaSausage
10-25-2019, 09:43 AM
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
10-25-2019, 10:11 AM
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
10-25-2019, 10:13 AM
Use at your own risk
Not officially sponsored by P99

GigaSausage
10-25-2019, 10:44 AM
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
10-25-2019, 11:58 AM
Thank you sir I will try this to fix my issue !

Baler
10-25-2019, 11:59 AM
Is there a source for this?

GigaSausage
10-25-2019, 12:39 PM
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