Welcome!

Join our community of MMO enthusiasts and game developers! By registering, you'll gain access to discussions on the latest developments in MMO server files and collaborate with like-minded individuals. Join us today and unlock the potential of MMO server development!

Join Today!

[Delphi] Help needed regarding Habbo Retro

Initiate Mage
Joined
Jul 14, 2007
Messages
2
Reaction score
0
Hey.
I recently tried to make a Habbo Retro, no success, but I got a little of the way.
I found a site, which tells you how to make a packet sender/viewer for habbo, so you would be able to make a retro.
But whenever Habbo sends a packet to my Delphi App, the delphi app gets an error.

Here's the source:
procedure TForm1.FormCreate(Sender: TObject);
begin
socket.LocalPort := 60;
socket.Listen;
end;

procedure TForm1.socketDataArrival(ASender: TObject;
bytesTotal: Integer);
var
tmp: OleVariant;
begin
socket.GetData(tmp);
sData.Text := tmp;
end;

procedure TForm1.socketClose(Sender: TObject);
begin
socket.Close;
socket.Listen;
end;

procedure TForm1.socketConnectionRequest(ASender: TObject;
requestID: Integer);
begin
socket.Accept(requestID);
socket.SendData('@@');
end;

The error I get is:
Invalid operation at current state

Any ideas how to make it work?
 
Elite Diviner
Joined
Oct 23, 2007
Messages
487
Reaction score
1
Hey.
I recently tried to make a Habbo Retro, no success, but I got a little of the way.
I found a site, which tells you how to make a packet sender/viewer for habbo, so you would be able to make a retro.
But whenever Habbo sends a packet to my Delphi App, the delphi app gets an error.

Here's the source:


The error I get is:
Invalid operation at current state

Any ideas how to make it work?

Take a look at USA111's source.
I believe he has similiar coding to yours.
 
Back
Top