Re: [REL/DEV] HoloCMS [The Revolution] + New Holograph
Der, why does he call it HoloCMS
Because his first one was called HabboCMS (which was supah too <3), and now it's for Holograph Emulator, so it became HoloCMS.
Jordi-Fun made DebboSQL for DebboProject V4, and when Holograph popped up he quickly made HoloSQL, which is the small and neat SSO login script I still use to save bandwith on the dedi. =P
Btw, when I started Holograph on a rainy day in December 2007, it was first called 'Ambiance Emulator' and I wanted to keep it private. xD
That's why old Holograph VB6 sources have that blue icon with an A in it. =]
HURRAY!
Finally someone who took the time to proper debug Holograph (the server), and he (vista4life) found out what is causing the 'has occurred error at startup and has to close error'.
It means that you haven't got ADODB 3.5 library installed, which is required by Holograph's MySQL connection.
Get it here.
You must be registered to see links
So, thanks to vista4life for trapping this error, install that and you should be able to start the server without problems.
V (super moderator) has reset my password for 'Nillus', and currently I'm moving the 'userDetails' structure to a different class.
Why? Well if you just want the X position, or the Name or mission of a user, it's not needed to reference to a fullblown userclass with a socket and a shitload of functions.
That's why it's kept separate, so with walking etc, you just refer back to that class, and you have more efficient access to that. ;]
Thanks to Jeax for making that pop up in my head, he uses 'RoomUserValues' in JASE.
However I store the whole stuff like Username, Mission etc external from the socket, so you can access that all without referring to the socket etc. =D
Like:
Code:
Public Class clsHoloUSERDETAILS
'// Personal
Friend Name As String
Friend Mission As String
Friend Sex As Char
Friend Figure As String
Friend consoleMission As String
Friend Rank As Byte
'// Special personal additions
Friend nowBadge As String
Friend clubMember As Boolean
'// Room
Friend roomUID As Integer '// The users number inside the room
Friend roomID As Integer '// The ID of the room the user is in
Friend inPublicroom As Boolean '// The room the user is in is publicroom yes/no
Friend isAllowedInRoom As Boolean '// The user is allowed as user in the room, if this status is still false when the user is about to appear in room, he's kicked because he skipped the password/doorbell check or w/e
Friend isOwner, hasRights As Boolean
'// Walking
Friend PosX As Integer
Friend PosY As Integer
Friend PosH As Double
Friend DestX As Integer
Friend DestY As Integer
'// Actions
Friend rotBody As Integer
Friend rotHead As Integer
Friend isWalking As Boolean
Friend isSitting As Boolean
'// Games
Friend inBBLobby As Boolean '// User is in BattleBall lobby yes/no
Friend Game_owns As Boolean '// User owns a BattleBall game atm
Friend Game_ID As Integer '// The game the user is involved with
Friend Game_withState As Integer '// 0=> = team ID, -2 = viewing, -3 = spectator
Private userStatuses As Hashtable '// Contains statuses like /dance/, /sit/ etc
Friend Function getStatuses() As String
Dim actionKey, myStatuses As String
For Each actionKey In userStatuses.Keys
myStatuses += actionKey
If Not (userStatuses(actionKey) = vbNullString) Then myStatuses += " " & userStatuses(actionKey)
myStatuses += "/"
Next
Return myStatuses
End Function
Friend Sub addStatus(ByVal actionKey As String, ByVal actionValue As String)
If userStatuses.ContainsKey(actionKey) Then userStatuses.Remove(actionKey)
userStatuses.Add(actionKey, actionValue)
End Sub
Friend Sub removeStatus(ByVal actionKey As String)
If userStatuses.ContainsKey(actionKey) Then userStatuses.Remove(actionKey)
End Sub
End Class
- Nillus