[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!
Re: Help with My VB6.0 Please!! Problem of my server habbo
Ask the authors of the source or post the relevant part of the code here so we can look at it.
Re: [VB] Help with My VB6.0 Please!! Problem of my server habbo
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