Send packets

Hi guys , i need some help.

i was trying to make a tool for get the event items from Carnival event in the server that i'm playing, because is a pain in the ass ask for reward 1 by 1 :S i was searching in the forum and found this code in auto it.

i just succes to the part when you ask for the reward by sending the packed.

this is the code.

Code:

#include <string.au3>
Global $sBuffer, $rBuffer
Global $iSize, $iIndex

$IP = "127.0.0.1"
TCPStartUp()
$socket = TCPConnect( $IP, 9000)
If $socket = -1 Then MsgBox (0,"TCP","Can't make a connection")


NewPacket(0x30D4,2)
AppendByte(5)
TCPSend($socket,GetPacket())


Func NewPacket($sValue, $iValue)
	Local $sTemp = Hex($sValue)
	$sBuffer = ""
	$iSize = 0
	$sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 4)
	$sBuffer &= StringLeft(ReverseHex(Hex($iValue)), 4)
EndFunc   ;==>NewPacket

Func ReverseHex($sString)
	Local $sTemp, $len
	For $i = StringLen($sString) + 1 To 1 Step -2
		$sTemp &= StringMid($sString, $i, 2)
	Next
	Return $sTemp
EndFunc   ;==>ReverseHex

Func AppendByte($sValue)
	$sBuffer &= StringRight(Hex($sValue), 2)
	$iSize += 1
EndFunc   ;==>AppendByte

Func GetPacket()
	Local $sTemp = "0x"
	$sTemp &= StringLeft(ReverseHex(Hex($iSize)), 4)
	$sTemp &= $sBuffer
	Return $sTemp
EndFunc   ;==>GetPacket

but it need to do some things before ask for the reward, like select the npc, select Talk to this person and select the event option, then you can askfor the reward.

i was trying alot and didnt success.

those are the opcodes and packets.

Select NPC
[C -> S][7045]
D5 03 00 00

Select option Talk to this person
[C -> S][7046]
D5 03 00 00
02

Select event type (carnival)
[C -> S][30D4]
06

Select reward
[C -> S][30D4]
05

I'm using srproxy and edxloader6

Thanks in advanced.