PD

> A game for a very specific market segment written 100% from scratch. Care to explain which specific market?

Is Project RD a game or game engine or what?

Wow! You've got a really beautiful project here. I've really liked reading through your blog, can't wait for more 

> Features? Everything that exists in RMXP. This or atleast something close to that of RMXP feature-wise.

Imposter  Welcome back legend.

No need for a double post. Here we go: [http://www.robin.freemmorpgmaker.com/eo_runtimes.zip](http://www.robin.freemmorpgmaker.com/eo_runtimes.zip)

First open up the client.vbp and open up modEnumeration and find: ``` ' Make sure CMSG_COUNT is below everything else CMSG_COUNT ``` Above that add: ``` COpenBank ``` Open up modClientTCP and at the bottom add this in: ``` Sub SendOpenBank() Dim Buffer As clsBuffer ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteLong COpenBank SendData Buffer.ToArray() Set Buffer = Nothing ' Error handler Exit Sub errorhandler: HandleError "SendOpenBank", "modClientTCP", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ``` Open up frmMain and add in a button. Double click the button and add this code in: ``` Call SendOpenBank ``` Open up the server.vbp and open up modEnumeration. Find: ``` ' Make sure CMSG_COUNT is below everything else CMSG_COUNT ``` Above that add: ``` COpenBank ``` Open up modHandleData. At the bottom of Public Sub InitMessages() add in: ``` HandleDataSub(COpenBank) = GetAddress(AddressOf HandleOpenBank) ``` At the bottom of modHandleData add in this: ``` Sub HandleOpenBank(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) SendBank index End Sub ``` Once you done that, just run both the client and server, login and click on the button.

> Oh he means about the playermsg? Oh i'm soo sorry i did missread it hehe Well not really but using PlayerMsg would be the best way 

> on Public SayMsg > > Find the color , and change it.. No please don't. Use the PlayerMsg code I posted above.

What run-time error do you get?

Here we go: ``` PlayerMsg index, Msg, color ```

You'll need service pack 6 but first you need to find a proper VB6 download  Your best bet is to torrent it or find a link on YouTube.

Visual Basic 6 isn't available to download from Microsoft. Google around for a download link.

No need for a double post  BASIC is very easy to learn as the name suggests  IDE stands for Integrated Development Environment.

Yes the ItemRec is private but it does have a public variable assigned to it: Item(1 To MAX_ITEMS). Just use that to access the BindType value.

This engine is written in BASIC and uses the Visual Basic 6 IDE. You can find tutorials for it anywhere, Google and I suggest you look at YouTube videos for tutorials.

Hahaha, smashing! Need more like him 

> Why is it saving the same stat in five slots? Ahahaha  And as others have said, you need to break the loop once the data is saved in one slot.

> The thing is people don't even want to fix it for money. It is a waste of time and effort when Jscinder already replaced it. If you like the feel of Crystalshire you can just adjust the movement and editors slightly. It takes like 5 minutes. Fixing that DirectX class would take a lot more time. I have replaced DirectX classes a few times, so I have some experience in this, and every single sub has to be modified if you make any breaking changes. Robin has preset constant values in each sub most likely, so to revise this I would have to go through each sub and clean it up, and alter it to be dynamic. Fair point but he also asked for some clues on what he should do to try and fix it. If you have experience you should give him some directions as he is wants to fix CS:DE and doesn't care about anything else 

> Just noticed this, are these links in OP? > > EDIT > > Doesn't work on my PC, it says that the ocx files are no compatible or something…. > > I'll check it out tomorrow, going to sleep. The links aren't in the first post. The two OCX files are 32-bit so your most likely on a 64-bit OS. If you are then all you need to do is go into SysWOW64 folder and use the regsvr32 file in that folder to register the OCX files. > / says it connected but doesn't do anything except for saying sending data… The server crashed but it's back up now.

@ Byson, Toxicity, PhoenixWright, Colonello Thanks guys and your wait is over! @ crzy the hated, Darky Neither of you two have waited 4 years, only me  Well, the wait is finally over! Pokemon Chaos Realm is here! Grab it while it's hot and the server is still up  Also check out the setup guide as you will need to follow the steps in there to make PCR work! Download: [http://www.mediafire.com/?sb4mags768m9vad](http://www.mediafire.com/?sb4mags768m9vad) Setup: http://sleepyentertainment.co.uk/thread-41.html If you plan on playing, come over to the chatbox: http://xat.com/PokemonChaosRealm Enjoy 

> I guess have a nice rest 6 feet under man. > > *Takes off hat* > > Who else thinks he should be the first man buried on the moon? Aha, that would be fitting.

Yeah…RIP moon man, you were awesome possum.

How the duck does creating a new function fix the problem? Someone please enlighten me, I was using TeamViewer to help him out but nothing worked and now this 

Here we go: ``` Sub HandleRequestJoin(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long) Dim Buffer As clsBuffer Dim nIndex As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Set Buffer = New clsBuffer Buffer.WriteByte Data() nIndex = Buffer.ReadLong Set Buffer = Nothing With frmMain .picpokemonJoin.Visible = True .lblInfo.Caption = Trim$(Npc(nIndex).Name) & " wants to join!" End With ' Error handler Exit Sub errorhandler: HandleError "HandleData", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub ```