Public Sub PartyTpKontrol()
If PartyHP1 < ((PartyMaxHP1 * Form1.Text9.Text) / 100) Then
PartyTp1
End If
If PartyHP2 < ((PartyMaxHP2 * Form1.Text9.Text) / 100) Then
PartyTp2
End If
If PartyHP3 < ((PartyMaxHP3 * Form1.Text9.Text) / 100) Then
PartyTp3
End If
If PartyHP4 < ((PartyMaxHP4 * Form1.Text9.Text) / 100) Then
PartyTp4
End If
If PartyHP5 < ((PartyMaxHP5 * Form1.Text9.Text) / 100) Then
PartyTp5
End If
If PartyHP6 < ((PartyMaxHP6 * Form1.Text9.Text) / 100) Then
PartyTp6
End If
If PartyHP7 < ((PartyMaxHP7 * Form1.Text9.Text) / 100) Then
PartyTp7
End If
If PartyHP8 < ((PartyMaxHP8 * Form1.Text9.Text) / 100) Then
PartyTp8
End If
End Sub
Public Sub PartyTp1()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "004"

SkillID = Strings.Mid(AlignDWORD(ClassOkuPriest & SelectedSkill), 1,   6)
pStr = "3101" + SkillID + "00" + CharIDPriest + PartyID1 +   "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" + SkillID + "00" + CharIDPriest + PartyID1 +   "BA0190005F06000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyTp2()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "004"

SkillID = Strings.Mid(AlignDWORD(ClassOkuPriest & SelectedSkill), 1,   6)
pStr = "3101" + SkillID + "00" + CharIDPriest + PartyID2 +   "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" + SkillID + "00" + CharIDPriest + PartyID2 +   "BA0190005F06000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyTp3()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "004"

SkillID = Strings.Mid(AlignDWORD(ClassOkuPriest & SelectedSkill), 1,   6)
pStr = "3101" + SkillID + "00" + CharIDPriest + PartyID3 +   "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" + SkillID + "00" + CharIDPriest + PartyID3 +   "BA0190005F06000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyTp4()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "004"

SkillID = Strings.Mid(AlignDWORD(ClassOkuPriest & SelectedSkill), 1,   6)
pStr = "3101" + SkillID + "00" + CharIDPriest + PartyID4 +   "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" + SkillID + "00" + CharIDPriest + PartyID4 +   "BA0190005F06000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyTp5()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "004"

SkillID = Strings.Mid(AlignDWORD(ClassOkuPriest & SelectedSkill), 1,   6)
pStr = "3101" + SkillID + "00" + CharIDPriest + PartyID5 +   "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" + SkillID + "00" + CharIDPriest + PartyID5 +   "BA0190005F06000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyTp6()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "004"

SkillID = Strings.Mid(AlignDWORD(ClassOkuPriest & SelectedSkill), 1,   6)
pStr = "3101" + SkillID + "00" + CharIDPriest + PartyID6 +   "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" + SkillID + "00" + CharIDPriest + PartyID6 +   "BA0190005F06000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyTp7()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "004"

SkillID = Strings.Mid(AlignDWORD(ClassOkuPriest & SelectedSkill), 1,   6)
pStr = "3101" + SkillID + "00" + CharIDPriest + PartyID7 +   "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" + SkillID + "00" + CharIDPriest + PartyID7 +   "BA0190005F06000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyTp8()
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim SelectedSkill As String

SelectedSkill = "004"

SkillID = Strings.Mid(AlignDWORD(ClassOkuPriest & SelectedSkill), 1,   6)
pStr = "3101" + SkillID + "00" + CharIDPriest + PartyID8 +   "0000000000000000000000000F00"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = "3103" + SkillID + "00" + CharIDPriest + PartyID8 +   "BA0190005F06000000000000"
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub