Attribute VB_Name = "RoomStatus"
Public Endings(1 To 100) As String
Public AmmountOfFurniUn As String
Public Function FurniLogCheck(IncData As String)
On Error Resume Next
If Left(IncData, 2) = "@_" Then
Dim TmpString As String
Dim AmmountOfFurni As String
TmpString = Split(IncData, "@`")(1)
'' Get The Ammount Of Furni In The Room:
AmmountOfFurniUn = Left(TmpString, 2)
AmmountOfFurni = DecodeChatString("@Y" & AmmountOfFurniUn)
If AmmountOfFurni = "@Y" Then GoTo endin
FrmMain.TxtFurniOnLoad.Caption = AmmountOfFurni

endin:
'' Heightmap:
Dim Heightmap As String
Heightmap = Split(IncData, "
@\")(0)
Heightmap = Split(Heightmap, "@_")(1)
Heightmap = Replace(Heightmap, Chr(13), vbCrLf)
FrmMain.TxtHeightmap = Heightmap
End If
End Function
Public Function FurniLog(IncData As String)
On Error Resume Next
For A = 1 To Len(IncData)
PacketString = Mid$(IncData, A, 2)
If PacketString = "@`" Then
FrmMain.LstObj.Clear
FrmMain.LstTeleporters.Clear

IncData = Replace(IncData, "H", "H" & Chr(4))
IncData = Replace(IncData, "FALSE", "FALSE" & Chr(4))
IncData = Replace(IncData, "TRUE", "TRUE" & Chr(4))
IncData = Replace(IncData, "HC", "HC" & Chr(4))
IncData = Replace(IncData, "HO", "HO" & Chr(4))
IncData = Replace(IncData, "HOFF", "HOFF" & Chr(4))
IncData = Replace(IncData, "HON", "HON" & Chr(4))
IncData = Replace(IncData, "I", "I" & Chr(4))
IncData = Replace(IncData, "I2", "I2" & Chr(4))
IncData = Replace(IncData, "I3", "I3" & Chr(4))
IncData = Replace(IncData, "J2", "J2" & Chr(4))
IncData = Replace(IncData, "J3", "J3" & Chr(4))
IncData = Replace(IncData, "HI", "HI" & Chr(4))
IncData = Replace(IncData, "H0", "H0" & Chr(4))
IncData = Replace(IncData, "H", "H" & Chr(4))
IncData = Replace(IncData, "H1", "H1" & Chr(4))
IncData = Replace(IncData, "H2", "H2" & Chr(4))
IncData = Replace(IncData, "H3", "H3" & Chr(4))
IncData = Replace(IncData, "H4", "H4" & Chr(4))
IncData = Replace(IncData, "H5", "H5" & Chr(4))
IncData = Replace(IncData, "H6", "H6" & Chr(4))
IncData = Replace(IncData, "H7", "H7" & Chr(4))
IncData = Replace(IncData, "H!", "H!" & Chr(4))
IncData = Replace(IncData, "J", "J" & Chr(4))
IncData = Replace(IncData, "K", "K" & Chr(4))
IncData = Replace(IncData, "PA", "PA" & Chr(4))

obj = Split(IncData, "@`")(1)
obj = Split(obj, "@m")(0)
obj = Split(obj, Chr(4))

IncData = Replace(IncData, "H" & Chr(4), "H")
IncData = Replace(IncData, "FALSE" & Chr(4), "FALSE")
IncData = Replace(IncData, "TRUE" & Chr(4), "TRUE")
IncData = Replace(IncData, "HC" & Chr(4), "HFALSE")
IncData = Replace(IncData, "FALSE" & Chr(4), "FALSE")
IncData = Replace(IncData, "HO" & Chr(4), "HO")
IncData = Replace(IncData, "HOFF" & Chr(4), "HOFF")
IncData = Replace(IncData, "HON" & Chr(4), "HON")
IncData = Replace(IncData, "I" & Chr(4), "I")
IncData = Replace(IncData, "I2" & Chr(4), "I2")
IncData = Replace(IncData, "I3" & Chr(4), "I3")
IncData = Replace(IncData, "J2" & Chr(4), "J2")
IncData = Replace(IncData, "J3" & Chr(4), "J3")
IncData = Replace(IncData, "HI" & Chr(4), "HI")
IncData = Replace(IncData, "H0" & Chr(4), "H0")
IncData = Replace(IncData, "H" & Chr(4), "H")
IncData = Replace(IncData, "H1" & Chr(4), "H1")
IncData = Replace(IncData, "H2" & Chr(4), "H2")
IncData = Replace(IncData, "H3" & Chr(4), "H3")
IncData = Replace(IncData, "H4" & Chr(4), "H4")
IncData = Replace(IncData, "H5" & Chr(4), "H5")
IncData = Replace(IncData, "H6" & Chr(4), "H6")
IncData = Replace(IncData, "H7" & Chr(4), "H7")
IncData = Replace(IncData, "H!" & Chr(4), "H!")
IncData = Replace(IncData, "J" & Chr(4), "J")
IncData = Replace(IncData, "K" & Chr(4), "K")
IncData = Replace(IncData, "PA" & Chr(4), "PA")

For B = 1 To UBound(obj)
If obj(B - 1) = "" Then GoTo pp
Dim TmpObj As String
Dim TmpObj2 As String
For newnum = 0 To 9
TmpObj = Split(obj(B - 1), "0" & newnum)(0)
TmpObj = Split(TmpObj, "1" & newnum)(0)
TmpObj = Split(TmpObj, "2" & newnum)(0)
TmpObj = Split(TmpObj, "3" & newnum)(0)
TmpObj = Split(TmpObj, "4" & newnum)(0)
TmpObj = Split(TmpObj, "5" & newnum)(0)
TmpObj = Split(TmpObj, "6" & newnum)(0)
TmpObj = Split(TmpObj, "7" & newnum)(0)
TmpObj = Split(TmpObj, "8" & newnum)(0)
TmpObj = Split(TmpObj, "9" & newnum)(0)

On Error Resume Next
TmpObj2 = Split(obj(B - 1), "0" & newnum)(1)
TmpObj2 = Split(TmpObj, "1" & newnum)(1)
TmpObj2 = Split(TmpObj, "2" & newnum)(1)
TmpObj2 = Split(TmpObj, "3" & newnum)(1)
TmpObj2 = Split(TmpObj, "4" & newnum)(1)
TmpObj2 = Split(TmpObj, "5" & newnum)(1)
TmpObj2 = Split(TmpObj, "6" & newnum)(1)
TmpObj2 = Split(TmpObj, "7" & newnum)(1)
TmpObj2 = Split(TmpObj, "8" & newnum)(1)
TmpObj2 = Split(TmpObj, "9" & newnum)(1)
Next newnum

If FrmMain.LstObj.ListCount = "0" Then TmpObj = Right(TmpObj, Len(TmpObj) - Len(AmmountOfFurniUn))

Dim SelectedSprite As String
SelectedSprite = Split(TmpObj, "")(1)
If InStr(LCase(SelectedSprite), "door") Then FrmMain.LstTeleporters.AddItem TmpObj
FrmMain.LstObj.AddItem TmpObj
If TmpObj2 = "" Then GoTo pp

SelectedSprite = Split(TmpObj2, "")(1)
If InStr(LCase(SelectedSprite), "doora") Then FrmMain.LstTeleporters.AddItem TmpObj2
If InStr(LCase(SelectedSprite), "doorb") Then FrmMain.LstTeleporters.AddItem TmpObj2
If InStr(LCase(SelectedSprite), "doorc") Then FrmMain.LstTeleporters.AddItem TmpObj2
If InStr(LCase(SelectedSprite), "doord") Then FrmMain.LstTeleporters.AddItem TmpObj2
FrmMain.LstObj.AddItem TmpObj2
pp:
Next B
End If
Next A

'' Wall Items:
For A = 1 To Len(IncData)
PacketString = Mid$(IncData, A, 2)
If PacketString = "@m" Then
FrmMain.LstWallItems.Clear
FrmMain.TxtItemEdit.Text = ""
r = Split(IncData, "@m")(1)
r = Split(r, "
")(0)
r = Split(r, Chr(13))
For B = 1 To UBound(r)
FrmMain.LstWallItems.AddItem r(B - 1)
Next B
End If
Next A
End Function
Public Function RoomStats(IncData As String)
On Error Resume Next
If Left(IncData, 2) = "@v" Then
Dim TmpThing As String
Dim TmpString As String

'' Get Room Owner Thing Working:
TmpThing = Split(IncData, "@v")(1)
TmpThing = Left(TmpThing, 2)
If LCase(TmpThing) = "hh" Then TmpString = 8 Else TmpString = 9

'' Room Owner:
Dim RoomOwner As String
RoomOwner = Split(IncData, "")(0)
RoomOwner = Right(RoomOwner, Len(RoomOwner) - TmpString)
FrmMain.TxtRoomOwner.Text = RoomOwner

'' Roomname:
On Error Resume Next
Dim RoomName As String
RoomName = Split(IncData, "")(2)
RoomName = Split(RoomName, "")(0)
FrmMain.TxtRoomName.Text = RoomName

'' RoomModel:
Dim RoomModel As String
RoomModel = Split(IncData, "")(1)
RoomModel = Split(RoomModel, "")(0)
FrmMain.TxtRoomModel.Text = RoomModel

''RoomDescription:
Dim RoomDescription As String
RoomDescription = Split(IncData, "")(3)
On Error GoTo NoDescrip:
RoomDescription = Split(RoomDescription, "")(0)
NoDescrip:
If RoomDescription > "" Then FrmMain.TxtRoomDescription.Text = RoomDescription Else FrmMain.TxtRoomDescription.Text = "N/a"
End If
End Function

Public Function StatusEndings()
Endings(1) = "H"
Endings(2) = "HON"
Endings(3) = "HOFF"
End Function