[R63] Flatfile Emulator

The source is lost, please PM me if you have it.

Hey guys.

I made a simple emulator written in Visual Basic - I'll give the source out to those who would contribute or if I get good feedback. Anyway if you say 'I don't like this' or any crap along those lines you don't belong on this thread

I'm not trying to be an epic 1337z0r coder0zrzzz; It's just something unique ;)

Source (fixed);
http://quackster.net/flatFileSever/F...eEmulator3.rar

Working Client (data is default);
http://quackster.net/client.php?ssoT...host=localhost

- SSO
- Login
- Private Room listing
- Enter room
- Move user
- Chat
- Wallpaper
- Floorpaper
- Sends the (@E) packet so you see yourself on the grey bar.
- Very buggy public room <don't use!

People should like flat file emulators because they are ready2run :grin:

http://quackster.net/flatFileSever/prev2.png

http://quackster.net/flatFileSever/prev1.png

Quote:

---

Originally Posted by Quackster

Add these in (Packets.bas) then recompile

Ability to create rooms;

Code:

---

Case "@]"
    Dim RoomName As String
    Dim Model As String
    Dim RoomId As Integer
   
    Model = Split(Mid(data, 3), "@G")(1)
    RoomName = Left(Mid(data, 5), decodeB64(Left(Mid(Mid(data, 3), 1, 3), 2)))
   
    RoomId = FSO.OpenTextFile(App.Path & "\ROOMS\roomcount.txt", ForReading).ReadAll + 1
   
    FSO.CreateFolder (App.Path & "\ROOMS\" & RoomId)
   
    FSO.CreateTextFile (App.Path & "\ROOMS\" & RoomId & "\rname.txt")
    FSO.OpenTextFile(App.Path & "\ROOMS\" & RoomId & "\rname.txt", ForWriting).Write RoomName
   
    FSO.CreateTextFile (App.Path & "\ROOMS\" & RoomId & "\model.txt")
    FSO.OpenTextFile(App.Path & "\ROOMS\" & RoomId & "\model.txt", ForWriting).Write Model
   
    FSO.CreateTextFile (App.Path & "\ROOMS\" & RoomId & "\description.txt")
    FSO.OpenTextFile(App.Path & "\ROOMS\" & RoomId & "\description.txt", ForWriting).Write "New room! :D"
   
    FSO.CreateTextFile (App.Path & "\ROOMS\" & RoomId & "\floorpaper.txt")
    FSO.OpenTextFile(App.Path & "\ROOMS\" & RoomId & "\floorpaper.txt", ForWriting).Write "0"
   
    FSO.CreateTextFile (App.Path & "\ROOMS\" & RoomId & "\wallpaper.txt")
    FSO.OpenTextFile(App.Path & "\ROOMS\" & RoomId & "\wallpaper.txt", ForWriting).Write "0"
   
    FSO.CreateTextFile (App.Path & "\ROOMS\" & RoomId & "\landscape.txt")
    FSO.OpenTextFile(App.Path & "\ROOMS\" & RoomId & "\landscape.txt", ForWriting).Write "0.0"
   
    FSO.CreateTextFile (App.Path & "\ROOMS\" & RoomId & "\owner.txt")
    FSO.OpenTextFile(App.Path & "\ROOMS\" & RoomId & "\owner.txt", ForWriting).Write HabboName(a)
   
    FSO.CreateTextFile (App.Path & "\ROOMS\" & RoomId & "\inroom.txt")
    FSO.OpenTextFile(App.Path & "\ROOMS\" & RoomId & "\inroom.txt", ForWriting).Write "0"
   
    FSO.OpenTextFile(App.Path & "\ROOMS\roomcount.txt", ForWriting).Write RoomId
   
    SendData Index, "@{" & encodeVL64(RoomId) & RoomName & Chr(1)

---

---

Looks great but what CMS would work with this?

Quote:

---

Originally Posted by zgillis

Looks great but what CMS would work with this?

---

There is non for now as I hope others can learn/develop from this (:

It's a clean base.

I am testing your client file with the server now, feedback in a min.

EDIT: Wow, it is at the beginning of development, but a great start. Are you coding in C#?

It's coded in VB6.

Quote:

---

Originally Posted by Near

It's coded in VB6.

---

Wow, I didn't realize the icon at first. I am a complete noob at coding, what do I do to start?

You start reading about the programming language and you check out opensource applications. You study them, slowly start to edit them and you begin to learn more and more. It's how I learned.

Quote:

---

Originally Posted by zgillis

Wow, I didn't realize the icon at first. I am a complete noob at coding, what do I do to start?

---

If you read the thread, I said I'll give out the source to those who wish to learn from it.. :D:

Quote:

---

Originally Posted by Quackster

If you read the thread, I said I'll give out the source to those who wish to learn from it.. :D:

---

Oh thanks, can you PM me the link? Just asking though, how do you know what to code that will communicate with the client? Do you log packets or use released packets from the forum?

Go for the second as regular packet loggin' ain't that easy anymore with Habbo's new encryption.

Oh, things do seem more complicated and all with flash and sha salted encryption.

Quote:

---

Originally Posted by zgillis

Oh thanks, can you PM me the link? Just asking though, how do you know what to code that will communicate with the client? Do you log packets or use released packets from the forum?

---

Lets say while you do something on the client, the client sends the packet (serverside) to the server, then the server deals with it.

Also packet log a retro (blahhotel.com, idk). Use Privileges logger.

Anyway I'll PM'ed link.. Then you'd be able to understand how it works

Would VB6 actually be able to run a full-fletched hotel?

Quote:

---

Originally Posted by Near

Would VB6 actually be able to run a full-fletched hotel?

---

USA111 was written in it. Debbo was based off USA111 :)

That's true, but the latest revisions of Habbo are much more then oldschool.