l By_SkyHigh l Safety Kodu

Public Sub safety()
On Error Resume Next
Dim pBytess(1 To 18) 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 & "730"
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) = &H5C
pBytess(12) = &H3
pBytess(13) = &H4
pBytess(14) = &H0
pBytess(15) = &H18
pBytess(16) = &H2
pBytess(17) = &H0
pBytess(18) = &H0
SendPackets pBytess
end sub

safety