Project 1999

Project 1999 (/forums/index.php)
-   Technical Discussion (/forums/forumdisplay.php?f=40)
-   -   Game Patcher (/forums/showthread.php?t=337550)

GigaSausage 10-24-2019 03:28 PM

Game Patcher
 
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 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

Quote:

Originally Posted by Baler (Post 2999699)
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

Quote:

Originally Posted by Baler (Post 3000159)
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


All times are GMT -4. The time now is 02:20 PM.

Powered by vBulletin®
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.