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/Controls/cntQuestPhaseLine.vb

@@ -0,0 +1,82 @@
+Public Class cntQuestPhaseLine
+    Public qLine As CQuestParser.QLine = Nothing
+    Public level As Integer = 0
+    Private lvl3BG As Color = Color.FromArgb(&HFFFFE9E9)
+    Private lvl3BGa As Color = Color.FromArgb(&HFFFFBBBB)
+    Private lvl4BG As Color = Color.FromArgb(&HFFE9FFE9)
+    Private lvl4BGa As Color = Color.FromArgb(&HFFBBFFBB)
+    Private mouseIsDown As Boolean = False
+    Public Event openQLinesForEdit(ByRef sender As cntQuestPhaseLine, ByRef line As CQuestParser.QLine)
+    Public Event lineWantsToMove(ByRef sender As cntQuestPhaseLine, ByRef line As CQuestParser.QLine, ByVal offset As Integer)
+    Private butDownLocation As Integer = 0
+    Public Sub New()
+        InitializeComponent()
+    End Sub
+    Public Sub New(ByRef line As CQuestParser.QLine)
+        InitializeComponent()
+        setQuestLine(line)
+    End Sub
+    Public Sub setQuestLine(ByRef line As CQuestParser.QLine)
+        qLine = line
+
+        level = IIf(Array.IndexOf(CQuestParser.QuestPhase.lvl3functions, qLine.Type) >= 0, 3, 4)
+        If qLine.Type = CQuestParser.QLine.KnownType.EElse Then level = 3
+        Me.BackColor = IIf(level = 3, lvl3BG, lvl4BG)
+        Me.flowMain.Controls.Add(New frmNpcEdit.namedLabel(IIf(level <> 3, StrDup(3, " "), "") & CQuestParser.QLine.Type2String(qLine.Type) & "(", True))
+        Dim i As Integer = 0
+        For Each p As CMcfBase.SParamElem In qLine.params
+            Me.flowMain.Controls.Add(New frmNpcEdit.namedLabel(p.value.ToString & IIf(i < qLine.params.Length - 1, ",", "")))
+            i += 1
+        Next
+        Me.flowMain.Controls.Add(New frmNpcEdit.namedLabel(")", True))
+        setHooks()
+    End Sub
+    Private Sub cntQuestPhaseLine_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        setHooks()
+    End Sub
+
+    Private Sub cntQuestPhaseLine_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+        RaiseEvent openQLinesForEdit(Me, qLine)
+    End Sub
+
+    Private Sub cntQuestPhaseLine_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
+        Me.BackColor = IIf(level = 3, lvl3BGa, lvl4BGa)
+    End Sub
+    Private Sub cntQuestPhaseLine_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
+        Me.BackColor = IIf(level = 3, lvl3BG, lvl4BG)
+    End Sub
+
+    Private Sub setHooks(Optional ByVal cntCollec As Windows.Forms.Control.ControlCollection = Nothing)
+        If cntCollec Is Nothing Then cntCollec = Me.Controls
+        For Each c As Control In cntCollec
+            AddHandler c.MouseEnter, AddressOf cntQuestPhaseLine_MouseEnter
+            AddHandler c.MouseLeave, AddressOf cntQuestPhaseLine_MouseLeave
+            AddHandler c.MouseClick, AddressOf cntQuestPhaseLine_MouseClick
+            AddHandler c.MouseDown, AddressOf cntQuestPhaseLine_MouseDown
+            AddHandler c.MouseUp, AddressOf cntQuestPhaseLine_MouseUp
+            AddHandler c.MouseMove, AddressOf cntQuestPhaseLine_MouseMove
+            If Not c.Controls Is Nothing AndAlso c.Controls.Count > 0 Then
+                setHooks(c.Controls)
+            End If
+        Next
+    End Sub
+
+    Private Sub cntQuestPhaseLine_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+        mouseIsDown = True
+        butDownLocation = e.Location.Y
+    End Sub
+    Private Sub cntQuestPhaseLine_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+        If mouseIsDown Then
+            Me.Cursor = Cursors.Default
+            Dim offDiff As Integer = e.Location.Y - butDownLocation
+            If offDiff > 5 OrElse offDiff < -5 Then RaiseEvent lineWantsToMove(Me, qLine, offDiff + Me.Location.Y)
+        End If
+        mouseIsDown = False
+    End Sub
+
+    Private Sub cntQuestPhaseLine_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
+        If mouseIsDown Then
+            Me.Cursor = Cursors.SizeAll
+        End If
+    End Sub
+End Class