Test the Server on HabboV2: Habbo: Create your avatar, decorate your room, chat and make new friends.
I started to develope a new Habbo-Beta-Emulator about 1 month ago. The development is going really fast! Much has been done already.
This server will have many guardians & protections against scripting & exploiting. It also will have no bugs! 🙂
There are some screenshoots:
Server: (Shoutouts aren't visible on the Release-Dev, they will be visible on release)
MOD Tool: (100% done):
All room models: (100% done):
Messenger: (100% done):
Habbo Club/ VIP rank:
Room bots:
This Emulator is from scratch coded - Project has been started about one month ago - This project will be released after it is mostly marked as bug free and has most parts finished - Server-Testers have been chosen already - The shoutouts are and only will be visible in the Server. - (..)
EDIT (18.07.2010)
Server coding language: VisualBasic06
Why this is different from other VB6 Servers?
It has Caching at parts which are laggy at some times. For example Bots/Pets do never read MySQL after there once loaded. Another laggy part would be Walking, it also has been cached that it does not need MySQL.
How many users the Server could hold?
The max. users the Hotel had online was 300 with no all-the-time lags, some features made the Hotel at some moments for some seconds laggy, this still can be patched with the SlowQueryLog and a bit more caching at those parts or more indexes in the MySQL database. That's why it's still in development!
An example is enter rooms which contain more than 500 furnitures, this will be cached soon 🙂
Snippets
It will not send the Data from the DataArrival to the Functions always as on some prevous VB6 Servers.
It does not loop through all online users to find the trade partner for example.
It also splits VL64(), B64 Strings easy 🙂
It does not loop through all sockets to find the Index of the User.
This is a public archive from Ragezone from account user Privilege. Wayback Archive
R52 Emulator by Privilege
I started to develope a new Habbo-Beta-Emulator about 1 month ago. The development is going really fast! Much has been done already.
This server will have many guardians & protections against scripting & exploiting. It also will have no bugs! 🙂
There are some screenshoots:
Server: (Shoutouts aren't visible on the Release-Dev, they will be visible on release)
Room bots:
This Emulator is from scratch coded - Project has been started about one month ago - This project will be released after it is mostly marked as bug free and has most parts finished - Server-Testers have been chosen already - The shoutouts are and only will be visible in the Server. - (..)
EDIT (18.07.2010)
Server coding language: VisualBasic06
Why this is different from other VB6 Servers?
It has Caching at parts which are laggy at some times. For example Bots/Pets do never read MySQL after there once loaded. Another laggy part would be Walking, it also has been cached that it does not need MySQL.
How many users the Server could hold?
The max. users the Hotel had online was 300 with no all-the-time lags, some features made the Hotel at some moments for some seconds laggy, this still can be patched with the SlowQueryLog and a bit more caching at those parts or more indexes in the MySQL database. That's why it's still in development!
An example is enter rooms which contain more than 500 furnitures, this will be cached soon 🙂
Snippets
Code:
Case "FG": Call EnterRoom(Index)
Case "Bv": Call LoadRoomAdvertisement(Index)
Case "@{": Call LoadRoomContent(Index)It will not send the Data from the DataArrival to the Functions always as on some prevous VB6 Servers.
Code:
Public Sub ExitTrade(Index As Integer)
If Session(Index).tradePartner = 0 Then Exit Sub
SendData Index, "An" & encodeVL64(Session(Index).userId)
SendData Val(Session(Index).tradePartner), "An" & encodeVL64(Session(Index).userId)
Session(Index).tradePartner = 0
Session(Session(Index).tradePartner).tradePartner = 0
End Sub
Code:
Dim itemId As Long
itemId = nextVL64(Index)It also splits VL64(), B64 Strings easy 🙂
Code:
thisIndex = CacheUsers_GetIndexFromName_NoError(userName)It does not loop through all sockets to find the Index of the User.
Code:
productType = CacheProducts_GetStringFromId(productId, 0)This is a public archive from Ragezone from account user Privilege. Wayback Archive