Sir Topham Hatt

That did the trick. Many thanks.

Error, Compile Error: Syntax error did I misplace it? ``` Private Sub lblExit_Click() ' Start the game and call the game destroy sub Shell("client.exe", vbNormalFocus) DestroyUpdater End Sub ```

Thanks, I'll try it out when I get home after school.

Hello everyone I've been trying to figure out just what am I doing wrong? I'm trying to make the auto updater run the client when you press the exit button. Source: ``` Private Sub lblExit_Click() ' call the game destroy sub and start the game Dim Res Dim Filename Filename = "client.exe" Res = Shell("start.exe " & Filename, vbHide) DestroyUpdater End Sub ```

Thank you very much! That is information that I needed to know. I think my knowledge for this type of programming is too low. From what I gathered I need two servers. One for the game and then one for the data base. The client, and then the MySql database.

Thanks I had no idea ADO was. I'll begin shortly after I figure out what I have to do for the database*part.

I want to learn how to connect the CS:DV engine to a MySql database. I've tried to do it myself but I do not know enough about MySql. What I need to happen is: User clicks login Send data to the webhost Webhost sends data to server Server connect to the client At least this is what I think should happen, like I said I haven't the slightest clue about MySql. Have to learn sometime though.

hi I ned to get my game working i read everything it don't work! fix it for me some1 plox?!?!?!@$$!@!@

Done and done. I won't do it VIA FB though, my folks can be so weird about this forum.

Okay I have been trying to use Robin's auto updater. I have followed every last guide on this topic. I have uploaded my files (version1.rar & update.ini) to www.elazar.webs.com/update. Then when I run the auto updater it crashes and says run time error 13 Type Mismatch. I have redownloaded, used a different host, and use it on another computer. Is there a step I am somehow over looking? EDIT: sorry turns out the webs host had some down time.

I would like to buy something from your shop when it re-opens. I will not give out the link like a cheap minded child. Basically they stole money from you.

Okay thanks, just the info I needed. I have everything done client side then.

Okay, I want to make a pure VB quest system but do I start server side or client side. I have the quest list down, and I believe the player file is completed, now do I put the quest on the server or the client?

Yep you helped now just have to figure out how to add a quest system, I want it purely VB 6.0 not that scripted stuff. First thing I guess I have to do is update the player save file.

Thanks you two it works now. Next part is to get the picture and the button together. I hope that made sense.

Okay when I hover a button thats index is 7 it crashes. I have no idea why. I have the Quests button on index 5 and the trade on index 6 while the party button is on index 7\. When I hover the buttons they all work but index 7 (Party button) Is there something I have to add elsewhere to accept the seventh button? >! Private Sub imgButton_Click(Index As Integer) Dim Buffer As clsBuffer Dim i As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Select Case Index Case 1 If Not picInventory.Visible Then ' show the window picInventory.Visible = True picCharacter.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = False BltInventory ' play sound PlaySound Sound_ButtonClick End If Case 2 If Not picSpells.Visible Then ' send packet Set Buffer = New clsBuffer Buffer.WriteLong CSpells SendData Buffer.ToArray() Set Buffer = Nothing ' show the window picSpells.Visible = True picInventory.Visible = False picCharacter.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = False ' play sound PlaySound Sound_ButtonClick End If Case 3 If Not picCharacter.Visible Then ' send packet SendRequestPlayerData ' show the window picCharacter.Visible = True picInventory.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = False ' play sound PlaySound Sound_ButtonClick ' Render BltEquipment BltFace End If Case 4 If Not picOptions.Visible Then ' show the window picCharacter.Visible = False picInventory.Visible = False picSpells.Visible = False picOptions.Visible = True picParty.Visible = False picQuests.Visible = False ' play sound PlaySound Sound_ButtonClick End If Case 5 If Not picQuests.Visible Then ' show the window picInventory.Visible = False picCharacter.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = True ' play sound PlaySound Sound_ButtonClick End If Case 6 If myTargetType = TARGET_TYPE_PLAYER And myTarget MyIndex Then SendTradeRequest ' play sound PlaySound Sound_ButtonClick Else AddText "Invalid trade target.", BrightRed End If Case 7 ' show the window picCharacter.Visible = False picInventory.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = True picQuests.Visible = False ' play sound PlaySound Sound_ButtonClick End Select ' Error handler Exit Sub errorhandler: HandleError "imgButton_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Okay thanks man, found the problem I missed an s in one of them. Gosh I feel like the biggest idiot in the world. Anyways thanks.

It has one of those picture objects like options, character ones have. Maybe I need to name it right?

picQuests.Visible = False

I am having so much troble with this bit of code. Says I did not define a varible. May I have some insight on this and what it means. Also how does this work? Sorry I have no idea how to program in VB 6. >! Private Sub imgButton_Click(Index As Integer) Dim Buffer As clsBuffer Dim i As Long ' If debug mode, handle error then exit out If Options.Debug = 1 Then On Error GoTo errorhandler Select Case Index Case 1 If Not picInventory.Visible Then ' show the window picInventory.Visible = True picCharacter.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = False BltInventory ' play sound PlaySound Sound_ButtonClick End If Case 2 If Not picSpells.Visible Then ' send packet Set Buffer = New clsBuffer Buffer.WriteLong CSpells SendData Buffer.ToArray() Set Buffer = Nothing ' show the window picSpells.Visible = True picInventory.Visible = False picCharacter.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = False ' play sound PlaySound Sound_ButtonClick End If Case 3 If Not picCharacter.Visible Then ' send packet SendRequestPlayerData ' show the window picCharacter.Visible = True picInventory.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = False ' play sound PlaySound Sound_ButtonClick ' Render BltEquipment BltFace End If Case 4 If Not picOptions.Visible Then ' show the window picCharacter.Visible = False picInventory.Visible = False picSpells.Visible = False picOptions.Visible = True picParty.Visible = False picQuest.Visible = False ' play sound PlaySound Sound_ButtonClick End If Case 5 If Not picQuests.Visible Then ' show the window picInventory.Visible = False picCharacter.Visible = False picSpells.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = True ' play sound PlaySound Sound_ButtonClick End If Case 6 If myTargetType = TARGET_TYPE_PLAYER And myTarget MyIndex Then SendTradeRequest ' play sound PlaySound Sound_ButtonClick Else AddText "Invalid trade target.", BrightRed End If Case 7 ' show the window picCharacter.Visible = False picInventory.Visible = True picSpells.Visible = False picOptions.Visible = False picParty.Visible = False picQuests.Visible = False ' play sound PlaySound Sound_ButtonClick End Select ' Error handler Exit Sub errorhandler: HandleError "imgButton_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext Err.Clear Exit Sub End Sub

Ahrim Neil World I don't know I just click the play now button. Stats let me see if I can find that picture. [](http://www.freemmorpgmaker.com/files/imagehost/#163c330e7bf2b1c51ad1c15b1d192a99.png) Free to play at the moment can't brother to pay when I have more work than time. Almost had the quest cape until Nomad quest came out, I don't really like combat so I passed on that quest. Working on 99 firemaking when I'm bored enough to do so. Also lol @ Robin's post.

Okay then I take it as a no then. Do you know of any FTP hosts that I may use for your auto updater? That are free.

They also have a server.

Okay I've been looking for a FTP host for the auto updater. I was wondering if I could FileZilla for the FTP host? If not do you know of any FREE FTP hosts?

Nice tileset I wish I could find it :P