const
Packet_Invite_Accept_Server =  '1701';
Packet_After_Invite =  '5600';
Osh_exp_noob = true;
Osh_exp_high = false;
SPacket_Invite_2 =             'C000';
Packet_Party_Leave =          'E300';

procedure OnPacket(FromServer: Boolean; const Packet: string; Data: Pointer; Size: Word);
var
IDpck,IDpck2,IDpck3,IDpck4,IDpck5: String;
begin
IDpck:=copy(Packet,1,4);
if FromServer and (IDpck = Packet_Invite_Accept_Server) and Osh_exp_noob and (User.LeveL < 50) then
begin
IDpck2:=copy(Packet,13,6);
IDpck3:=copy(Packet,Length(Packet)-15,16);
IDpck4:='EA 00 00 00 00 00 01' + IDpck2 + '00 00' + MemToHex(Length(User.Name),2) + MemToHex(User.Name) + '00' + IDpck3;
print(IDpck4);
Engine.SendToServer(IDpck4);
end;
if not FromServer and (IDpck = Packet_After_Invite) and Osh_exp_high then
begin
print('test1');
IDpck2:=copy(Packet,5,4);
IDpck4:='93 00' + IDpck2 + '00 00 00 00 00 00 00 00 01 02';
IDpck5:='93 00' + IDpck2 + '00 00 00 00 00 00 00 00 00 08';
Engine.SendToServer(IDpck4);
Engine.SendToServer(IDpck5);
end;
if FromServer and (IDpck = SPacket_Invite_2) and Osh_exp_noob then
begin
print('test2');
IDpck2:=copy(Packet,5,4);
IDpck3:=copy(Packet,53,6);
IDpck4:=Packet_Party_Leave + IDpck2 + '00 00' + IDpck3 + '00 00';
print(IDpck4);
SetValServer('Packet_Leave_Party',IDpck4);
//Engine.SendToServer(GetValServer('Packet_Leave_Party'));
end;
end;

begin
Delay(-1);
end.