Dim pBytes(1 To 2) As Byte
pBytes(1) = &H48
pBytes(2) = &H0
PaketGönder pBytes

Dim VVA As Single
VVA = FloatOku(KO_ADR_CHR + KO_OFF_X)
FloatYaz KO_ADR_CHR + KO_OFF_X, VVA + 20
Dim VVA2 As Single
VVA2 = FloatOku(KO_ADR_CHR + KO_OFF_Y)
FloatYaz KO_ADR_CHR + KO_OFF_Y, VVA2 + 20

MsgBox ("Sadece sizde 21 gb gözükür harcanmaz")
LongYaz KO_ADR_CHR + 2480, 2100000000

Dim pStr As String
Dim pBytes() As Byte
pStr = "320400" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

Dim pStr As String
Dim pBytes() As Byte
pStr = "3403" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes

Paket "3106" + "434B" + "0700" + KarakterID + KarakterID + "00000100000064050000C800"

On Error Resume Next
Dim pStr As String
Dim pBytes() As Byte
Dim SkillID As String
Dim AttackID1 As String
Dim AttackID2 As String
Dim AttackID3 As String
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
Dim attackskill As String
Class = ReadLong(KO_ADR_CHR + KO_OFF_CLASS)
attackid = Class & 552
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)
attackskill = Hex(attackid)
AttackID1 = Strings.Right(attackskill, 2)
AttackID2 = Strings.Mid(attackskill, 2, 2)
AttackID3 = Strings.Left(attackskill, 1)
pStr = ("3101" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3102" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + "FFFF" + MobXID1 + MobXID2 + "5D020600B6019BFF0000F0000A00")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
pStr = ("3103" + AttackID1 + AttackID2 + "0" + AttackID3 + "00" + ID1 + ID2 + MobXID1 + MobXID2 + "0000000000000000000000000000")
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes