Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement