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>
343 lines
14 KiB
VB.net
343 lines
14 KiB
VB.net
Public Class CharItemInfo
|
||
Inherits System.Windows.Forms.Form
|
||
|
||
#Region " Windows Form Designer generated code "
|
||
|
||
Public Sub New()
|
||
MyBase.New()
|
||
|
||
'This call is required by the Windows Form Designer.
|
||
InitializeComponent()
|
||
|
||
'Add any initialization after the InitializeComponent() call
|
||
|
||
End Sub
|
||
|
||
'Form overrides dispose to clean up the component list.
|
||
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
||
If disposing Then
|
||
If Not (components Is Nothing) Then
|
||
components.Dispose()
|
||
End If
|
||
End If
|
||
MyBase.Dispose(disposing)
|
||
End Sub
|
||
|
||
'Required by the Windows Form Designer
|
||
Private components As System.ComponentModel.IContainer
|
||
|
||
'NOTE: The following procedure is required by the Windows Form Designer
|
||
'It can be modified using the Windows Form Designer.
|
||
'Do not modify it using the code editor.
|
||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||
Friend WithEvents txtName As System.Windows.Forms.TextBox
|
||
Friend WithEvents cboServer As System.Windows.Forms.ComboBox
|
||
Friend WithEvents grdResult As System.Windows.Forms.DataGrid
|
||
Friend WithEvents btnSearch As System.Windows.Forms.Button
|
||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||
Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
|
||
Friend WithEvents btnClose As System.Windows.Forms.Button
|
||
Friend WithEvents btnCreate As System.Windows.Forms.Button
|
||
Friend WithEvents ItemPos As System.Windows.Forms.TextBox
|
||
Friend WithEvents ItemWhere As System.Windows.Forms.ComboBox
|
||
Friend WithEvents lbltitle As System.Windows.Forms.Label
|
||
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
||
Me.lbltitle = New System.Windows.Forms.Label()
|
||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||
Me.Label2 = New System.Windows.Forms.Label()
|
||
Me.txtName = New System.Windows.Forms.TextBox()
|
||
Me.cboServer = New System.Windows.Forms.ComboBox()
|
||
Me.btnSearch = New System.Windows.Forms.Button()
|
||
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
|
||
Me.grdResult = New System.Windows.Forms.DataGrid()
|
||
Me.btnCreate = New System.Windows.Forms.Button()
|
||
Me.btnClose = New System.Windows.Forms.Button()
|
||
Me.ItemPos = New System.Windows.Forms.TextBox()
|
||
Me.ItemWhere = New System.Windows.Forms.ComboBox()
|
||
Me.GroupBox1.SuspendLayout()
|
||
CType(Me.grdResult, System.ComponentModel.ISupportInitialize).BeginInit()
|
||
Me.SuspendLayout()
|
||
'
|
||
'lbltitle
|
||
'
|
||
Me.lbltitle.AutoSize = True
|
||
Me.lbltitle.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||
Me.lbltitle.Font = New System.Drawing.Font("GulimChe", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(129, Byte))
|
||
Me.lbltitle.Location = New System.Drawing.Point(824, 80)
|
||
Me.lbltitle.Name = "lbltitle"
|
||
Me.lbltitle.Size = New System.Drawing.Size(118, 24)
|
||
Me.lbltitle.TabIndex = 1
|
||
Me.lbltitle.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||
'
|
||
'GroupBox1
|
||
'
|
||
Me.GroupBox1.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label2, Me.txtName, Me.cboServer, Me.btnSearch, Me.ComboBox2})
|
||
Me.GroupBox1.Location = New System.Drawing.Point(696, 8)
|
||
Me.GroupBox1.Name = "GroupBox1"
|
||
Me.GroupBox1.Size = New System.Drawing.Size(552, 48)
|
||
Me.GroupBox1.TabIndex = 2
|
||
Me.GroupBox1.TabStop = False
|
||
Me.GroupBox1.Text = "<EFBFBD><EFBFBD>ȸ"
|
||
'
|
||
'Label2
|
||
'
|
||
Me.Label2.AutoSize = True
|
||
Me.Label2.Location = New System.Drawing.Point(150, 20)
|
||
Me.Label2.Name = "Label2"
|
||
Me.Label2.Size = New System.Drawing.Size(58, 14)
|
||
Me.Label2.TabIndex = 3
|
||
Me.Label2.Text = "ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD>:"
|
||
'
|
||
'txtName
|
||
'
|
||
Me.txtName.Location = New System.Drawing.Point(207, 16)
|
||
Me.txtName.Name = "txtName"
|
||
Me.txtName.Size = New System.Drawing.Size(112, 21)
|
||
Me.txtName.TabIndex = 1
|
||
Me.txtName.Text = "ij<EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'cboServer
|
||
'
|
||
Me.cboServer.Location = New System.Drawing.Point(25, 16)
|
||
Me.cboServer.Name = "cboServer"
|
||
Me.cboServer.Size = New System.Drawing.Size(103, 20)
|
||
Me.cboServer.TabIndex = 0
|
||
Me.cboServer.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'btnSearch
|
||
'
|
||
Me.btnSearch.Location = New System.Drawing.Point(456, 16)
|
||
Me.btnSearch.Name = "btnSearch"
|
||
Me.btnSearch.Size = New System.Drawing.Size(88, 24)
|
||
Me.btnSearch.TabIndex = 2
|
||
Me.btnSearch.Text = "<EFBFBD>˻<EFBFBD>"
|
||
'
|
||
'ComboBox2
|
||
'
|
||
Me.ComboBox2.ItemHeight = 12
|
||
Me.ComboBox2.Location = New System.Drawing.Point(344, 16)
|
||
Me.ComboBox2.Name = "ComboBox2"
|
||
Me.ComboBox2.Size = New System.Drawing.Size(103, 20)
|
||
Me.ComboBox2.TabIndex = 3
|
||
Me.ComboBox2.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ġ"
|
||
'
|
||
'grdResult
|
||
'
|
||
Me.grdResult.DataMember = ""
|
||
Me.grdResult.HeaderForeColor = System.Drawing.SystemColors.ControlText
|
||
Me.grdResult.Location = New System.Drawing.Point(8, 232)
|
||
Me.grdResult.Name = "grdResult"
|
||
Me.grdResult.Size = New System.Drawing.Size(1008, 480)
|
||
Me.grdResult.TabIndex = 3
|
||
'
|
||
'btnCreate
|
||
'
|
||
Me.btnCreate.Location = New System.Drawing.Point(824, 184)
|
||
Me.btnCreate.Name = "btnCreate"
|
||
Me.btnCreate.Size = New System.Drawing.Size(88, 40)
|
||
Me.btnCreate.TabIndex = 4
|
||
Me.btnCreate.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ۻ<EFBFBD><EFBFBD><EFBFBD>"
|
||
'
|
||
'btnClose
|
||
'
|
||
Me.btnClose.Location = New System.Drawing.Point(928, 184)
|
||
Me.btnClose.Name = "btnClose"
|
||
Me.btnClose.Size = New System.Drawing.Size(88, 40)
|
||
Me.btnClose.TabIndex = 5
|
||
Me.btnClose.Text = "â<EFBFBD>ݱ<EFBFBD>"
|
||
'
|
||
'ItemPos
|
||
'
|
||
Me.ItemPos.Location = New System.Drawing.Point(8, 8)
|
||
Me.ItemPos.Multiline = True
|
||
Me.ItemPos.Name = "ItemPos"
|
||
Me.ItemPos.ReadOnly = True
|
||
Me.ItemPos.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||
Me.ItemPos.Size = New System.Drawing.Size(680, 216)
|
||
Me.ItemPos.TabIndex = 6
|
||
Me.ItemPos.Text = ""
|
||
'
|
||
'ItemWhere
|
||
'
|
||
Me.ItemWhere.Location = New System.Drawing.Point(696, 200)
|
||
Me.ItemWhere.Name = "ItemWhere"
|
||
Me.ItemWhere.Size = New System.Drawing.Size(112, 20)
|
||
Me.ItemWhere.TabIndex = 7
|
||
Me.ItemWhere.Text = "ComboBox1"
|
||
'
|
||
'CharItemInfo
|
||
'
|
||
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
|
||
Me.ClientSize = New System.Drawing.Size(1028, 753)
|
||
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.ItemWhere, Me.ItemPos, Me.btnClose, Me.btnCreate, Me.grdResult, Me.GroupBox1, Me.lbltitle})
|
||
Me.Name = "CharItemInfo"
|
||
Me.Text = "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
|
||
Me.GroupBox1.ResumeLayout(False)
|
||
CType(Me.grdResult, System.ComponentModel.ISupportInitialize).EndInit()
|
||
Me.ResumeLayout(False)
|
||
|
||
End Sub
|
||
|
||
#End Region
|
||
|
||
|
||
|
||
|
||
Private Sub CharItemInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
|
||
GroupBox1.Visible = False
|
||
ProcessPacket.ICharItemInfo = Me
|
||
|
||
|
||
grdResult.DataSource = ds.Tables(CharItemListIndex)
|
||
ProcessPacket.UpdateItemView()
|
||
|
||
'TS_EQUIP = 1, <09><><EFBFBD><EFBFBD>
|
||
'TS_INVEN = 2, <09>κ<EFBFBD><CEBA>丮
|
||
'TS_QSLOT = 3, <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
'TS_SSLOT = 4, <09><>ų<EFBFBD><C5B3><EFBFBD><EFBFBD>
|
||
'TS_TEMP = 6, <09>ӽ<EFBFBD>(<28><>)
|
||
'TS_UPGRADE = 7, <09><><EFBFBD><EFBFBD><D7B7>̵<EFBFBD>â
|
||
'TS_EXCHANGE = 8, <09><>ȯâ
|
||
'TS_DEPOSIT = 9, â<><C3A2>
|
||
'TS_STALL = 10 <09><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
|
||
Me.Text = ITextItemInfo.formheader
|
||
lbltitle.Text = ITextItemInfo.formheader
|
||
btnCreate.Text = ITextAdminSetting.chkItemReg
|
||
btnClose.Text = ITextButton.btnClose
|
||
|
||
ItemWhere.Items.Add(ITextItemInfo.cboitemwhere_1) ' 1
|
||
ItemWhere.Items.Add(ITextItemInfo.cboitemwhere_2) ' 2
|
||
ItemWhere.Items.Add(ITextItemInfo.cboitemwhere_3) ' 6
|
||
ItemWhere.Items.Add(ITextItemInfo.cboitemwhere_4) ' 7
|
||
ItemWhere.Items.Add(ITextItemInfo.cboitemwhere_5) ' 8
|
||
ItemWhere.Items.Add(ITextItemInfo.cboitemwhere_6) ' 9
|
||
|
||
ItemWhere.SelectedIndex = 0
|
||
|
||
'item create
|
||
If IToolAdminRight.ItemCreate = False Then
|
||
btnCreate.Enabled = False
|
||
Else
|
||
btnCreate.Enabled = True
|
||
End If
|
||
|
||
|
||
UpdateItemPosView()
|
||
|
||
End Sub
|
||
|
||
Private Sub CharItemInfo_Unload(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closed
|
||
|
||
ProcessPacket.ICharItemInfo = Nothing
|
||
ProcessPacket.IRylMDI.ICharItemInfo = Nothing
|
||
|
||
End Sub
|
||
|
||
|
||
Private Sub grdResult_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdResult.DoubleClick
|
||
'<27><><EFBFBD><EFBFBD> Ŭ<><C5AC><EFBFBD><EFBFBD> row<6F><77> <20>ε<EFBFBD><CEB5><EFBFBD><EFBFBD><EFBFBD>ȣ(0<><30><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD>.)
|
||
|
||
Dim ICharItemInfoDetail As New CharItemInfoDetail()
|
||
Dim CurrentIndex As Integer = grdResult.CurrentRowIndex
|
||
|
||
ICharItemInfoDetail.itemnum = grdResult.Item(CurrentIndex, 0)
|
||
ICharItemInfoDetail.itemprototype = grdResult.Item(CurrentIndex, 1)
|
||
ICharItemInfoDetail.itemname = grdResult.Item(CurrentIndex, 2)
|
||
ICharItemInfoDetail.itemtype = grdResult.Item(CurrentIndex, 3)
|
||
ICharItemInfoDetail.itemwhere = GetTakePos(grdResult.Item(CurrentIndex, 4))
|
||
|
||
ICharItemInfoDetail.itemX = grdResult.Item(CurrentIndex, 5)
|
||
ICharItemInfoDetail.itemY = grdResult.Item(CurrentIndex, 6)
|
||
ICharItemInfoDetail.itemZ = grdResult.Item(CurrentIndex, 7)
|
||
|
||
ICharItemInfoDetail.sizeX = grdResult.Item(CurrentIndex, 8)
|
||
ICharItemInfoDetail.sizeY = grdResult.Item(CurrentIndex, 9)
|
||
ICharItemInfoDetail.amount = grdResult.Item(CurrentIndex, 10)
|
||
|
||
ICharItemInfoDetail.equip = grdResult.Item(CurrentIndex, 11)
|
||
ICharItemInfoDetail.runesocket = grdResult.Item(CurrentIndex, 12)
|
||
ICharItemInfoDetail.maxdurability = grdResult.Item(CurrentIndex, 13)
|
||
ICharItemInfoDetail.currsocket = grdResult.Item(CurrentIndex, 14)
|
||
ICharItemInfoDetail.maxsocket = grdResult.Item(CurrentIndex, 15)
|
||
ICharItemInfoDetail.material = grdResult.Item(CurrentIndex, 16)
|
||
|
||
Dim pos As Int32 = 16
|
||
|
||
ICharItemInfoDetail.socket1 = grdResult.Item(CurrentIndex, pos + 1)
|
||
ICharItemInfoDetail.socket2 = grdResult.Item(CurrentIndex, pos + 2)
|
||
ICharItemInfoDetail.socket3 = grdResult.Item(CurrentIndex, pos + 3)
|
||
ICharItemInfoDetail.socket4 = grdResult.Item(CurrentIndex, pos + 4)
|
||
ICharItemInfoDetail.socket5 = grdResult.Item(CurrentIndex, pos + 5)
|
||
ICharItemInfoDetail.socket6 = grdResult.Item(CurrentIndex, pos + 6)
|
||
ICharItemInfoDetail.socket7 = grdResult.Item(CurrentIndex, pos + 7)
|
||
ICharItemInfoDetail.socket8 = grdResult.Item(CurrentIndex, pos + 8)
|
||
|
||
ICharItemInfoDetail.cri_typ = grdResult.Item(CurrentIndex, pos + 10)
|
||
ICharItemInfoDetail.cri_per = grdResult.Item(CurrentIndex, pos + 11)
|
||
ICharItemInfoDetail.min_dam = grdResult.Item(CurrentIndex, pos + 12)
|
||
ICharItemInfoDetail.max_dam = grdResult.Item(CurrentIndex, pos + 13)
|
||
ICharItemInfoDetail.drc = grdResult.Item(CurrentIndex, pos + 14)
|
||
ICharItemInfoDetail.off_rev = grdResult.Item(CurrentIndex, pos + 15)
|
||
ICharItemInfoDetail.def = grdResult.Item(CurrentIndex, pos + 16)
|
||
ICharItemInfoDetail.def_rev = grdResult.Item(CurrentIndex, pos + 17)
|
||
ICharItemInfoDetail.mag_res = grdResult.Item(CurrentIndex, pos + 18)
|
||
ICharItemInfoDetail.blo_per = grdResult.Item(CurrentIndex, pos + 19)
|
||
|
||
ICharItemInfoDetail.max_hp = grdResult.Item(CurrentIndex, pos + 24)
|
||
ICharItemInfoDetail.max_mp = grdResult.Item(CurrentIndex, pos + 25)
|
||
ICharItemInfoDetail.hp_reg = grdResult.Item(CurrentIndex, pos + 26)
|
||
ICharItemInfoDetail.mp_reg = grdResult.Item(CurrentIndex, pos + 27)
|
||
|
||
ICharItemInfoDetail.fir_att = grdResult.Item(CurrentIndex, pos + 28)
|
||
ICharItemInfoDetail.lig_att = grdResult.Item(CurrentIndex, pos + 29)
|
||
ICharItemInfoDetail.col_att = grdResult.Item(CurrentIndex, pos + 30)
|
||
ICharItemInfoDetail.dra_att = grdResult.Item(CurrentIndex, pos + 31)
|
||
ICharItemInfoDetail.poi_att = grdResult.Item(CurrentIndex, pos + 32)
|
||
ICharItemInfoDetail.fir_res = grdResult.Item(CurrentIndex, pos + 33)
|
||
ICharItemInfoDetail.lig_res = grdResult.Item(CurrentIndex, pos + 34)
|
||
ICharItemInfoDetail.col_res = grdResult.Item(CurrentIndex, pos + 35)
|
||
ICharItemInfoDetail.dra_res = grdResult.Item(CurrentIndex, pos + 36)
|
||
ICharItemInfoDetail.poi_res = grdResult.Item(CurrentIndex, pos + 37)
|
||
ICharItemInfoDetail.add_str = grdResult.Item(CurrentIndex, pos + 38)
|
||
ICharItemInfoDetail.add_dex = grdResult.Item(CurrentIndex, pos + 39)
|
||
ICharItemInfoDetail.add_con = grdResult.Item(CurrentIndex, pos + 40)
|
||
ICharItemInfoDetail.add_int = grdResult.Item(CurrentIndex, pos + 41)
|
||
ICharItemInfoDetail.add_wis = grdResult.Item(CurrentIndex, pos + 42)
|
||
ICharItemInfoDetail.magic_power = grdResult.Item(CurrentIndex, pos + 43)
|
||
|
||
'edit form
|
||
CharItemFormType = True
|
||
|
||
ICharItemInfoDetail.ShowDialog()
|
||
End Sub
|
||
|
||
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
|
||
Me.Close()
|
||
|
||
End Sub
|
||
|
||
'<27><><EFBFBD><EFBFBD><EFBFBD>ۻ<EFBFBD><DBBB><EFBFBD><EFBFBD>ϱ<EFBFBD>
|
||
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click
|
||
Dim ICharItemInfoDetail As New CharItemInfoDetail()
|
||
'create form
|
||
CharItemFormType = False
|
||
ICharItemInfoDetail.ShowDialog()
|
||
|
||
End Sub
|
||
|
||
|
||
Private Sub UpdateItemPosView()
|
||
|
||
ItemPos.Text = ""
|
||
|
||
End Sub
|
||
|
||
Private Sub ItemWhere_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemWhere.SelectedIndexChanged
|
||
|
||
UpdateItemPosView()
|
||
|
||
End Sub
|
||
End Class
|