Restructure repository to include all source folders

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>

rylCoder_16.02.2008_src/ApplicationEvents.vb

@@ -0,0 +1,88 @@
+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
+