[VB] Help with My VB6.0 Please!! Problem of my server habbo

Ok i did my Server of habbohotel Using VB and source of debbo,usa111,and elite

But allways when i finish making my server.exe i only have 10 or 11 Public rooms

I want more public room i want to now were can i edit the name of the public rooms

Thanks!

Ask the authors of the source or post the relevant part of the code here so we can look at it.

Use the publicroom source code of Debbo as the USA111 is abit buggy and Pathfind from x to y is badly coded, try make bot's in guest room's thats what im trying to do.

Code:

---

Client(Index).Muted = False
Client(Index).InRoom = 0
End If

If Client(Index).Publicnum > 0 Then
sendAllP "@]" & Client(Index).Num & Chr(1), (Client(Index).Publicnum)
Client(Index).Hotelpos = "I" & locale("hotel_view")
Client(Index).Publicname = ""
Client(Index).Publicnum = 0
End If

Send Index, "@S" & Chr(1)

If Mid(info, 3, 1) = "A" Then
    Publicroom = Mid(info, 4, 3)
    Select Case Publicroom
   
    Case "b}D"
    Client(Index).Publicnum = 1
    Client(Index).Publicname = locale("pub_name_1")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEtheater 17654
"
   
    Case "[M{"
    Client(Index).Publicnum = 2
    Client(Index).Publicname = locale("pub_name_2")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEnewbie_lobby 15159
"
   
    Case "b}E"
    Client(Index).Publicnum = 3
    Client(Index).Publicname = locale("pub_name_3")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEtheater 17654
"
   
    Case "b}F"
    Client(Index).Publicnum = 4
    Client(Index).Publicname = locale("pub_name_4")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEtheater 17654
"
   
    Case "b}G"
    Client(Index).Publicnum = 5
    Client(Index).Publicname = locale("pub_name_5")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEpark_a 15190
"
   
    Case "b}H"
    Client(Index).Publicnum = 6
    Client(Index).Publicname = locale("pub_name_6")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEorient 151960
"
   
    Case "b}I"
    Client(Index).Publicnum = 7
    Client(Index).Publicname = locale("pub_name_7")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEhabburger 151530
"
   
    Case "b}J"
    Client(Index).Publicnum = 8
    Client(Index).Publicname = locale("pub_name_8")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEcr_kitchen 15164
"
   
    Case "b}K"
    Client(Index).Publicnum = 9
    Client(Index).Publicname = locale("pub_name_9")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEcinema_a 15161
"
   
    Case "b}L"
    Client(Index).Publicnum = 10
    Client(Index).Publicname = locale("pub_name_10")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AElobby_a 15151
"
   
    Case "b}M"
    Client(Index).Publicnum = 11
    Client(Index).Publicname = locale("pub_name_11")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEpool_a 15188
"
   
    Case "b}N"
    Client(Index).Publicnum = 13
    Client(Index).Publicname = locale("pub_name_13")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AErooftop 42431
"
   
    Case "b}O"
    Client(Index).Publicnum = 15
    Client(Index).Publicname = locale("pub_name_15")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEballroom 42422
"
   
    Case "b}P"
    Client(Index).Publicnum = 16
    Client(Index).Publicname = locale("pub_name_16")
    Client(Index).Hotelpos = "I" & Client(Index).Publicname
    Send Index, "AEtearoom 42221
"
   
    End Select
End If
End Function

---