var a:array[1..100] of string; i,n:integer; id,withdraw,openwh,useitem,wh,enchant :string; begin Item id need to be captured.For example from UseItem packet id:=hstr('01 D5 0A 10'); useitem:=hstr('14')+id+hstr('00 00 00 00'); wh:=hstr('31 01 00 00 00')+id+hstr('01 00 00 00'); enchant:=hstr('...