l By_SkyHigh lWolf Kodu

wolf

public sub wolf
On Error Resume Next
Dim pBytess(1 To 28) As Byte
Dim pBytes(1 To 32) As Byte

Dim ID As String
Dim ID1 As String
Dim ID2 As String
Dim IDs As Long
Dim Class As String
Dim skillid1
Dim skillid2
Dim skillid3
Dim skillid
Dim skillhex As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
IDs = ReadLong(KO_ADR_CHR + KO_OFF_ID)

skillid = Class & "030"
skillhex = Hex(skillid)
skillid1 = Mid$(skillhex, 4, 6)
skillid2 = Mid$(skillhex, 2, 2)
skillid3 = Mid$(skillhex, 1, 1)



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

pBytess(1) = &H31
pBytess(2) = &H3
pBytess(3) = "&H" & skillid1
pBytess(4) = "&H" & skillid2
pBytess(5) = "&H" & skillid3
pBytess(6) = &H0
pBytess(7) = "&H" & ID1
pBytess(8) = "&H" & ID2
pBytess(9) = "&H" & ID1
pBytess(10) = "&H" & ID2
pBytess(11) = &H30
pBytess(12) = &H2
pBytess(13) = &HC
pBytess(14) = &H0
pBytess(15) = &H3F
pBytess(16) = &H6
pBytess(17) = &H0
pBytess(18) = &H0
pBytess(19) = &H0
pBytess(20) = &H0
pBytess(21) = &H0
pBytess(22) = &H0
pBytess(23) = &H0
pBytess(24) = &H0
pBytess(25) = &H0
pBytess(26) = &H0
pBytess(27) = &H0
pBytess(28) = &H0
SendPackets pBytess
pBytes(1) = &H31
pBytes(2) = &H1
pBytes(3) = "&H" & skillid1
pBytes(4) = "&H" & skillid2
pBytes(5) = "&H" & skillid3
pBytes(6) = &H0
pBytes(7) = "&H" & ID1
pBytes(8) = "&H" & ID2
pBytes(9) = "&H" & ID1
pBytes(10) = "&H" & ID2
pBytes(11) = &H61
pBytes(12) = &H2
pBytes(13) = &HB
pBytes(14) = &H0
pBytes(15) = &H4E
pBytes(16) = &H6
pBytes(17) = &H0
pBytes(18) = &H0
pBytes(19) = &H0
pBytes(20) = &H0
pBytes(21) = &H0
pBytes(22) = &H0
pBytes(23) = &H0
pBytes(24) = &H0
pBytes(25) = &H0
pBytes(26) = &H0
pBytes(27) = &H0
pBytes(28) = &H0
pBytes(29) = &H1
pBytes(30) = &H1
pBytes(31) = &H0
pBytes(32) = &H0
end sub