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>
205 lines
11 KiB
VB.net
205 lines
11 KiB
VB.net
Public Class cntQuestPhaseLineEditor
|
|
Public line As CQuestParser.QLine = Nothing
|
|
Public level As Integer = 0
|
|
Private iSyntax As Xml.XmlElement = Nothing
|
|
Public Event Save(ByRef sender As cntQuestPhaseLineEditor, ByRef line As CQuestParser.QLine)
|
|
Public Event Close(ByRef sender As cntQuestPhaseLineEditor)
|
|
Public Event Delete(ByRef sender As cntQuestPhaseLineEditor, ByRef line As CQuestParser.QLine)
|
|
Public Event NeedItemName(ByRef sender As cntQuestPhaseLineEditor, ByVal id As Long, ByRef name As String)
|
|
Public Event NeedItemSelect(ByRef sender As cntQuestPhaseLineEditor, ByRef sender2 As LinkLabel)
|
|
Public Event NeedMobName(ByRef sender As cntQuestPhaseLineEditor, ByVal id As Long, ByRef name As String)
|
|
Public Event NeedMobSelect(ByRef sender As cntQuestPhaseLineEditor, ByRef sender2 As LinkLabel)
|
|
Private currentParaCount As Integer = 0
|
|
Private currentF As CQuestParser.QLine.KnownType
|
|
|
|
Public Sub New(ByRef qLine As CQuestParser.QLine, ByVal syntax As Xml.XmlElement)
|
|
line = qLine
|
|
iSyntax = syntax
|
|
' This call is required by the Windows Form Designer.
|
|
InitializeComponent()
|
|
Dim funcs() As CQuestParser.QLine.KnownType = {}
|
|
If Array.IndexOf(CQuestParser.QuestPhase.lvl3functions, line.Type) >= 0 Then level = 3
|
|
If Array.IndexOf(CQuestParser.QuestPhase.lvl4functions, line.Type) >= 0 Then level = 4
|
|
If level < 1 Then Exit Sub
|
|
If level = 3 Then funcs = CQuestParser.QuestPhase.lvl3functions
|
|
If level = 4 Then funcs = CQuestParser.QuestPhase.lvl4functions
|
|
' Add any initialization after the InitializeComponent() call.
|
|
For Each e As CQuestParser.QLine.KnownType In funcs
|
|
Me.cmbFunction.Items.Add(New frmNpcEdit.cmbItem(e, CQuestParser.QLine.Type2String(e)))
|
|
Next
|
|
End Sub
|
|
Private Sub drawProps(ByVal func As CQuestParser.QLine.KnownType)
|
|
Me.flowParas.SuspendLayout()
|
|
Me.flowParas.Controls.Clear()
|
|
Me.lblFuncDesc.Text = ""
|
|
If Not iSyntax Is Nothing Then
|
|
Dim fNodes As Xml.XmlNodeList = iSyntax.SelectNodes("func[@name='" & CQuestParser.QLine.Type2String(func) & "' and @level=" & level & "]")
|
|
If fNodes.Count = 1 Then
|
|
Me.lblFuncDesc.Text = fNodes(0).Attributes.GetNamedItem("desc").Value
|
|
currentParaCount = fNodes(0).ChildNodes.Count
|
|
currentF = func
|
|
If fNodes(0).ChildNodes.Count > 0 Then
|
|
Dim i As Integer = 0
|
|
For Each pNode As Xml.XmlNode In fNodes(0).ChildNodes
|
|
Dim type As String = pNode.Attributes.GetNamedItem("type").Value
|
|
Dim name As String = pNode.Attributes.GetNamedItem("name").Value
|
|
Dim desc As String = pNode.Attributes.GetNamedItem("desc").Value
|
|
Dim txtI As New CNpcParser.NPCTextItem
|
|
txtI.paraIndex = i
|
|
Select Case type
|
|
Case "int"
|
|
txtI.Tag = CMcfBase.DataType.EInteger
|
|
If line.Type <> func Then txtI.text = "0"
|
|
Case "string"
|
|
txtI.Tag = CMcfBase.DataType.EString
|
|
If line.Type <> func Then txtI.text = New String("")
|
|
Case "float"
|
|
txtI.Tag = CMcfBase.DataType.EFloat
|
|
If line.Type <> func Then txtI.text = "0"
|
|
Case "bool"
|
|
txtI.Tag = CMcfBase.DataType.EBool
|
|
If line.Type <> func Then txtI.text = "0"
|
|
End Select
|
|
If line.Type = func Then
|
|
txtI.text = line.params(i).value
|
|
End If
|
|
If type = "int" AndAlso name.ToLower = "item id" Then
|
|
Dim lbl As New Label
|
|
lbl.Width = Me.flowParas.Width - 6
|
|
lbl.Text = IIf(name.ToLower <> desc.ToLower, "[" & name & "] ", "") & desc
|
|
lbl.Margin = New Padding(3, 0, 3, 0)
|
|
Me.flowParas.Controls.Add(lbl)
|
|
Dim obj As New LinkLabel
|
|
Dim itemName As String = ""
|
|
Dim itemId As Long = IIf(txtI.text.Length > 0, txtI.text, 0)
|
|
RaiseEvent NeedItemName(Me, itemId, itemName)
|
|
obj.Text = "Item: " & IIf(itemId > 0, itemName, "none")
|
|
obj.Tag = txtI
|
|
obj.Width = Me.flowParas.Width - 6
|
|
obj.Margin = New Padding(3, 0, 3, 3)
|
|
AddHandler obj.LinkClicked, AddressOf linkParam_Click
|
|
Me.flowParas.Controls.Add(obj)
|
|
ElseIf type = "int" AndAlso name.ToLower = "monster id" Then
|
|
Dim lbl As New Label
|
|
lbl.Width = Me.flowParas.Width - 6
|
|
lbl.Text = IIf(name.ToLower <> desc.ToLower, "[" & name & "] ", "") & desc
|
|
lbl.Margin = New Padding(3, 0, 3, 0)
|
|
Me.flowParas.Controls.Add(lbl)
|
|
Dim obj As New LinkLabel
|
|
Dim itemName As String = ""
|
|
Dim mobId As Long = IIf(txtI.text.Length > 0, txtI.text, 0)
|
|
RaiseEvent NeedMobName(Me, mobId, itemName)
|
|
obj.Text = "Mob: " & IIf(mobId > 0, itemName, "none")
|
|
obj.Tag = txtI
|
|
obj.Width = Me.flowParas.Width - 6
|
|
obj.Margin = New Padding(3, 0, 3, 3)
|
|
AddHandler obj.LinkClicked, AddressOf linkParam2_Click
|
|
Me.flowParas.Controls.Add(obj)
|
|
Else
|
|
Dim obj As New cntTextEditItem()
|
|
AddHandler obj.NPCTextChanged, AddressOf TxtItem_NPCTextChanged
|
|
Dim wDiff As Integer = obj.Width - obj.txtText.Width
|
|
obj.Width = Me.flowParas.Width - 6
|
|
obj.txtText.Width = obj.Width - wDiff
|
|
If type <> "string" Then
|
|
obj.Small = True
|
|
End If
|
|
If type = "int" AndAlso (name.ToLower = "quest id" OrElse name.ToLower = "npc id" OrElse desc.ToLower = "npc id") Then
|
|
txtI.text = "0x" & Hex(Val(txtI.text))
|
|
End If
|
|
obj.TextItem = txtI
|
|
obj.Tag = txtI
|
|
obj.Command = IIf(name.ToLower <> desc.ToLower, "[" & name & "] ", "") & desc
|
|
Me.flowParas.Controls.Add(obj)
|
|
End If
|
|
i += 1
|
|
Next
|
|
Else
|
|
Me.flowParas.Controls.Add(New frmNpcEdit.namedLabel("Function has no parameters", True))
|
|
End If
|
|
Me.lnkSave.Enabled = True
|
|
Else
|
|
Me.lnkSave.Enabled = False
|
|
Me.flowParas.Controls.Add(New frmNpcEdit.namedLabel("Function not found in Syntax XML", True))
|
|
End If
|
|
Else
|
|
Me.lnkSave.Enabled = False
|
|
Me.flowParas.Controls.Add(New frmNpcEdit.namedLabel("Syntax XML not loaded", True))
|
|
End If
|
|
Me.flowParas.ResumeLayout()
|
|
End Sub
|
|
Private Sub linkParam_Click(ByVal sender As Object, ByVal e As LinkLabelLinkClickedEventArgs)
|
|
RaiseEvent NeedItemSelect(Me, sender)
|
|
Dim nName As String = ""
|
|
If Val(sender.tag.text) > 0 Then
|
|
RaiseEvent NeedItemName(Me, sender.tag.text, nName)
|
|
sender.text = "Item: " & nName
|
|
Else
|
|
sender.Text = "Item: none"
|
|
End If
|
|
End Sub
|
|
Private Sub linkParam2_Click(ByVal sender As Object, ByVal e As LinkLabelLinkClickedEventArgs)
|
|
RaiseEvent NeedMobSelect(Me, sender)
|
|
Dim nName As String = ""
|
|
If Val(sender.tag.text) > 0 Then
|
|
RaiseEvent NeedMobName(Me, sender.tag.text, nName)
|
|
sender.text = "Mob: " & nName
|
|
Else
|
|
sender.Text = "Mob: none"
|
|
End If
|
|
End Sub
|
|
Private Sub lnkClose_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkClose.LinkClicked
|
|
RaiseEvent Close(Me)
|
|
End Sub
|
|
|
|
Private Sub lnkSave_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkSave.LinkClicked
|
|
Dim paraList(currentParaCount - 1) As CMcfBase.SParamElem
|
|
Dim i As Integer = 0
|
|
For Each c As Control In Me.flowParas.Controls
|
|
If Not c.Tag Is Nothing Then
|
|
Dim val As Object = Nothing
|
|
Dim tI As CNpcParser.NPCTextItem = CType(c.Tag, CNpcParser.NPCTextItem)
|
|
Try
|
|
Select Case CType(tI.Tag, CMcfBase.DataType)
|
|
Case CMcfBase.DataType.EBool : val = IIf(val(tI.text) > 0, 1, 0)
|
|
Case CMcfBase.DataType.EFloat : val = Single.Parse(tI.text)
|
|
Case CMcfBase.DataType.EInteger
|
|
If tI.text.Length > 2 AndAlso tI.text.Substring(0, 2).ToLower = "0x" Then
|
|
val = Convert.ToUInt32(tI.text, 16)
|
|
Else
|
|
val = UInt32.Parse(tI.text)
|
|
End If
|
|
Case CMcfBase.DataType.EString : val = tI.text
|
|
End Select
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message, MsgBoxStyle.Critical, "Save error on " & (i + 1) & "'th parameter")
|
|
Exit Sub
|
|
End Try
|
|
|
|
paraList(i) = CMcfBase.CreateParamElem(CType(tI.Tag, CMcfBase.DataType), val)
|
|
i += 1
|
|
End If
|
|
Next
|
|
line.Type = currentF
|
|
line.params = paraList
|
|
RaiseEvent Save(Me, line)
|
|
End Sub
|
|
|
|
Private Sub lnkDelete_LinkClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkDelete.LinkClicked
|
|
RaiseEvent Delete(Me, line)
|
|
End Sub
|
|
|
|
Private Sub cmbFunction_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbFunction.SelectedIndexChanged
|
|
drawProps(CType(cmbFunction.SelectedItem, frmNpcEdit.cmbItem).iItem)
|
|
End Sub
|
|
|
|
Private Sub cntQuestPhaseLineEditor_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
frmNpcEdit.cmbItem.setComboSelected(Me.cmbFunction, line.Type)
|
|
End Sub
|
|
|
|
Private Sub TxtItem_NPCTextChanged(ByRef sender As cntTextEditItem, ByVal line As CNpcParser.NPCTextItem, ByVal newText As String)
|
|
line.text = newText
|
|
sender.Tag = line
|
|
End Sub
|
|
End Class
|