Public Sub MinorKontrol()
If PartyHP1 < ((PartyMaxHP1 * Form1.Text1(0).Text) / 100) Then
PartyMinor1
End If
If PartyHP2 < ((PartyMaxHP2 * Form1.Text1(0).Text) / 100) Then
PartyMinor2
End If
If PartyHP3 < ((PartyMaxHP3 * Form1.Text1(0).Text) / 100) Then
PartyMinor3
End If
If PartyHP4 < ((PartyMaxHP4 * Form1.Text1(0).Text) / 100) Then
PartyMinor4
End If
If PartyHP5 < ((PartyMaxHP5 * Form1.Text1(0).Text) / 100) Then
PartyMinor5
End If
If PartyHP6 < ((PartyMaxHP6 * Form1.Text1(0).Text) / 100) Then
PartyMinor6
End If
If PartyHP7 < ((PartyMaxHP7 * Form1.Text1(0).Text) / 100) Then
PartyMinor7
End If
If PartyHP8 < ((PartyMaxHP8 * Form1.Text1(0).Text) / 100) Then
PartyMinor8
End If
End Sub
Public Sub PartyMinor1()
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)

Skilid = ClassOku & 705
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)


pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID1 + "4901120003070000000000001100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID1 + "490112000307000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyMinor2()
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)

Skilid = ClassOku & 705
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)


pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID2 + "4901120003070000000000001100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID2 + "490112000307000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyMinor3()
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)

Skilid = ClassOku & 705
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)


pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID3 + "4901120003070000000000001100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID3 + "490112000307000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyMinor4()
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)

Skilid = ClassOku & 705
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)


pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID4 + "4901120003070000000000001100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID4 + "490112000307000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyMinor5()
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)

Skilid = ClassOku & 705
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)


pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID5 + "4901120003070000000000001100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID5 + "490112000307000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyMinor6()
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)

Skilid = ClassOku & 705
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)


pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID6 + "4901120003070000000000001100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID6 + "490112000307000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyMinor7()
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)

Skilid = ClassOku & 705
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)


pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID7 + "4901120003070000000000001100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID7 + "490112000307000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub
Public Sub PartyMinor8()
Dim IDs As Long
Dim id As String
Dim ID1 As String
Dim ID2 As String
Dim MobXIDs As String
Dim MobXID As String
Dim MobXID1 As String
Dim MobXID2 As String

IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)
MobXIDs = ReadLong(KO_ADR_CHR + KO_OFF_MOB)

id = AlignDWORD(IDs)
ID1 = Strings.Mid(id, 3, 2)
ID2 = Strings.Mid(id, 5, 2)

MobXID = Hex(MobXIDs)
MobXID1 = Strings.Right(MobXID, 2)
MobXID2 = Strings.Left(MobXID, 2)

Dim pStr As String, pBytes() As Byte
Dim AttackID1, AttackID2, AttackID3 As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)

Skilid = ClassOku & 705
attackskill = Hex(Skilid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)


pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID8 + "4901120003070000000000001100")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" +  CharIDPriest + PartyID8 + "490112000307000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
End Sub