LGram16
dd97ddec92
Move git root from Client/ to src/ to track all source code: - Client: Game client source (moved to Client/Client/) - Server: Game server source - GameTools: Development tools - CryptoSource: Encryption utilities - database: Database scripts - Script: Game scripts - rylCoder_16.02.2008_src: Legacy coder tools - GMFont, Game: Additional resources 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
89 lines
4.7 KiB
VB.net
89 lines
4.7 KiB
VB.net
Namespace My
|
|
' The following events are availble for MyApplication:
|
|
'
|
|
' Startup: Raised when the application starts, before the startup form is created.
|
|
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
|
|
' UnhandledException: Raised if the application encounters an unhandled exception.
|
|
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
|
|
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
|
|
Partial Friend Class MyApplication
|
|
Public fileToOpenOnStartup As String = ""
|
|
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
|
|
AddMath.sharedDataOverWrite(My.Application.Info.DirectoryPath & "\rylCoder_hack.cfg")
|
|
Dim s As Collections.ObjectModel.ReadOnlyCollection(Of String) = e.CommandLine
|
|
Dim karg As String = ""
|
|
For Each arg As String In s
|
|
If arg = "-compile" Then 'for disabling karg's
|
|
ElseIf arg = "-decompile" Then
|
|
ElseIf karg = "-compile" Then
|
|
e.Cancel = True
|
|
Dim work As New frmWorking
|
|
work.Show()
|
|
Application.DoEvents()
|
|
Dim delete As Boolean = False
|
|
Dim fIn As String = arg
|
|
Dim fOut As String = arg.Substring(0, arg.Length - 3) & "mcf"
|
|
Dim sOut As IO.Stream = IO.File.OpenWrite(fOut)
|
|
If (sOut.Length > 0 AndAlso MsgBox("Do you want to overwrite the file '" & vbNewLine & fOut & "' ?", MsgBoxStyle.YesNo, "mcfCoder") = MsgBoxResult.Yes) OrElse sOut.Length < 1 Then
|
|
Dim script As New CScriptParser()
|
|
Application.DoEvents()
|
|
If script.File2struct(fIn) Then
|
|
Dim compiler As New CMcfCompiler()
|
|
Try
|
|
compiler.Compile(script.Functions)
|
|
Dim compData As Byte() = CMcfCoder.EnCryptArea(compiler.Data, CMcfCoder.Col.EFirstCol)
|
|
sOut.SetLength(0)
|
|
sOut.Write(compData, 0, compiler.Data.Length)
|
|
sOut.Flush()
|
|
Catch ex As Exception
|
|
delete = True
|
|
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "mcfCoder error")
|
|
End Try
|
|
Else
|
|
delete = True
|
|
End If
|
|
End If
|
|
sOut.Close()
|
|
If delete Then
|
|
My.Computer.FileSystem.DeleteFile(fOut)
|
|
End If
|
|
work.Close()
|
|
ElseIf karg = "-decompile" Then
|
|
e.Cancel = True
|
|
Dim work As New frmWorking
|
|
work.Show()
|
|
Application.DoEvents()
|
|
Dim fIn As String = arg
|
|
Dim fOut As String = arg.Substring(0, arg.Length - 3) & "mcs"
|
|
Dim sIn As IO.Stream = IO.File.OpenRead(fIn)
|
|
If (My.Computer.FileSystem.FileExists(fOut) AndAlso MsgBox("Do you want to overwrite the file '" & vbNewLine & fOut & "' ?", MsgBoxStyle.YesNo, "mcfCoder") = MsgBoxResult.Yes) OrElse Not My.Computer.FileSystem.FileExists(fOut) Then
|
|
Dim dat(sIn.Length - 1) As Byte
|
|
sIn.Read(dat, 0, sIn.Length)
|
|
sIn.Close()
|
|
Application.DoEvents()
|
|
Dim decompiler As New CMcfDecompiler()
|
|
Try
|
|
dat = CMcfCoder.DeCryptArea(dat, CMcfCoder.Col.EFirstCol)
|
|
decompiler.Decompile(dat)
|
|
Dim scripter As New CScriptParser
|
|
If scripter.Struct2File(decompiler.Functions, fOut) Then
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "mcfCoder error")
|
|
End Try
|
|
End If
|
|
work.Close()
|
|
Else
|
|
If My.Computer.FileSystem.FileExists(arg) Then
|
|
fileToOpenOnStartup = arg
|
|
End If
|
|
End If
|
|
karg = arg
|
|
Next
|
|
End Sub
|
|
End Class
|
|
|
|
End Namespace
|
|
|