Simple, i just wanted to give out the code because no servers had it.
Add this with your shout, whisper and say packets.
I suppose it is like a full ban of sorts.Code:If Instr(ToSay, ":deleteuser") & Client(Index).Rank = "admin" Then Dim deletename As String deletename = Replace(ToSay, ":deleteuser ", "") FSO.DeleteFolder (App.Path & "/database/habbos/" & deletename) 'Yes i am well awhere about DBPath i just cba. End If
-Jexius


![[REL] :deleteuser command [CODE]](http://ragezone.com/hyper728.png)


