someone753951
Valued Member
Member

U like habbo? i dont like it :P

Hey. :) Empty your Private Message Box! :) I got to message you back :D

I only want commands that the real habbo has too, but when I'm gonna code the MUS socket, I will do the poof when changing clothes.

Code the poof command into Habbemu:


If InStr(ToSay, ":poof") = 1 Then
'Send Index, "BK" & (Client(Index).Publicnum) & Chr(1)
stuur = 0
test = Client(Index).num
Nnaam = Client(Index).Name
Appy = FSO.OpenTextFile(DBP & "habbos\" & Nnaam & "\app.txt", ForReading).ReadAll
Sex = FSO.OpenTextFile(DBP & "habbos\" & Nnaam & "\sex.txt", ForReading).ReadAll
Mission = FSO.OpenTextFile(DBP & "habbos\" & LCase(Client(Index).Name) & "\mission.txt", ForReading).ReadAll
For DS = 1 To frmMain.SockI
If Client(Index).InRoom > 0 Then
sendAll "DJ" & VL64encode(test) & Appy & "" & Sex & "" & Mission & "
", (Client(DS).InRoom)
Client(a).InRoom = 0
End If
If Client(Index).Publicnum > 0 Then
sendAllP "DJ" & VL64encode(test) & Appy & "" & Sex & "" & Mission & "
", (Client(DS).Publicnum)
End If
Next DS
End If

Compare the place furni down function with the rotate function and you'ill see what's wrong with it.

I do! It's easy as to fix the Subscript Error!

Hey.

Do you know how to fix the subscript out of range error in Holo VB6?