Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

gaming ace

Members
  • Posts

    481
  • Joined

  • Last visited

    Never

gaming ace's Achievements

Newbie

Newbie (1/14)

0

Reputation

  1. Wow, ur a life saver I can't believe I didn't see that. Works fine now, thanks a bunch again ;)
  2. Alrighty, I know I'm a complete nub at this but I've tried everything to fix this bug here. I deleted all the ByVal HeadC, etc. Then while compiling is give me Compile Errors: _Case Without Select Case_. Here's the sub if you need a look. It highlights the Case MENU_STATE_DELCHAR, when it says Case without Select Case. Thanks again for all this help, I would never be able to do this without ya. At the beginning it says Select Menu State, and I've tried several things to fix, it but…yea lol ``` Sub MenuState(ByVal State As Long) Connected = True frmSendGetData.Visible = True Call SetStatus("Connecting to Server...") Select Case State Case MENU_STATE_NEWACCOUNT frmNewAccount.Visible = False If ConnectToServer Then Call SetStatus("Connected! Creating Account...") If Not frmNewAccount.txtEmail.Visible Then Call SendNewAccount(frmNewAccount.txtName.Text, frmNewAccount.txtPassword.Text, "NOMAIL") Else Call SendNewAccount(frmNewAccount.txtName.Text, frmNewAccount.txtPassword.Text, frmNewAccount.txtEmail.Text) End If End If Case MENU_STATE_DELACCOUNT frmDeleteAccount.Visible = False If ConnectToServer Then Call SetStatus("Connected. Deleting Account...") Call SendDelAccount(frmDeleteAccount.txtName.Text, frmDeleteAccount.txtPassword.Text) End If Case MENU_STATE_LOGIN frmLogin.Visible = False If ConnectToServer Then Call SetStatus("Connected. Logging In...") Call SendLogin(frmLogin.txtName.Text, frmLogin.txtPassword.Text) End If Case MENU_STATE_AUTO_LOGIN frmMainMenu.Visible = False If ConnectToServer Then Call SetStatus("Connected. Logging In...") Call SendLogin(frmLogin.txtName.Text, frmLogin.txtPassword.Text) End If Case MENU_STATE_NEWCHAR frmChars.Visible = False If ConnectToServer Then Call SetStatus("Connected. Receiving Classes...") If SpriteSize = 1 Then frmNewChar.Picture4.Top = frmNewChar.Picture4.Top - 32 frmNewChar.Picture4.Height = 69 frmNewChar.picPic.Height = 65 End If Call SendGetClasses End If Case MENU_STATE_ADDCHAR frmNewChar.Visible = False If ConnectToServer Then Call SetStatus("Connected. Creating Character...") If frmNewChar.optMale.Value Then Call SendAddChar(frmNewChar.txtName, 0, frmNewChar.cmbClass.ListIndex, frmChars.lstChars.ListIndex + 1) Else Call SendAddChar(frmNewChar.txtName, 1, frmNewChar.cmbClass.ListIndex, frmChars.lstChars.ListIndex + 1) End If Case MENU_STATE_DELCHAR frmChars.Visible = False If ConnectToServer Then Call SetStatus("Connected. Deleting Character...") Call SendDelChar(frmChars.lstChars.ListIndex + 1) End If Case MENU_STATE_USECHAR frmChars.Visible = False If ConnectToServer Then Call SetStatus("Connected. Entering " & GAME_NAME & "...") Call SendUseChar(frmChars.lstChars.ListIndex + 1) End If If Not IsConnected And Connected = True Then frmSendGetData.Visible = False frmMainMenu.Visible = True Call MsgBox("The game server is currently offline. Please try to reconnect in a few minutes or visit sky-pirates.co.nr. We apologize for the inconvenience.") End If End Sub ```
  3. Okay, thanks for helping here is the sendaddchar sub. My bad, I just got vb6, so my skills are a work in progress. So, should there not be all of these LegCs and HeadCs? ``` Sub SendAddChar(ByVal Name As String, ByVal Sex As Long, ByVal ClassNum As Long, ByVal slot As Long, ByVal HeadC As Long, ByVal BodyC As Long, ByVal LegC As Long) Call SendData("addchar" & SEP_CHAR & Trim$(Name) & SEP_CHAR & Sex & SEP_CHAR & ClassNum & SEP_CHAR & slot & SEP_CHAR & HeadC & SEP_CHAR & BodyC & SEP_CHAR & LegC & END_CHAR) End Sub ```
  4. Almighty so I made a source edit where I got rid of the scrolling head, body, legs, on the NewChar.frm where you change the sprites look. Then I deleted all the HS Scroll code segments I could find. However, when I compile the new client I get the error: _Argument Not Optional_ on this segment of code, and the compiler closes. Any help? Case MENU_STATE_ADDCHAR frmNewChar.Visible = False If ConnectToServer Then Call SetStatus("Connected. Creating Character…") If frmNewChar.optMale.Value Then Call SendAddChar(frmNewChar.txtName, 0, frmNewChar.cmbClass.ListIndex, frmChars.lstChars.ListIndex + 1) Else Call SendAddChar(frmNewChar.txtName, 1, frmNewChar.cmbClass.ListIndex, frmChars.lstChars.ListIndex + 1) End If
  5. Ya, I played it was pretty sweet. Now Spain is working on Arkland Online tho, which look like the most uber 2d mmo.
  6. Wow, its awesome. Love the title. 9/10
  7. Well, it sure would be nifty to have bombs you can toss at enemies, and if you could sail the seas. It's be tough, but, it'd be awesome.
  8. Well, the sprites are truly awesome sprites. Great shading, its got the whole sha-bang. I do prefer the custom sprite tho ;)
  9. This looks amazing, best be sticking with this it looks like it'd be extremely successful. I'm leaning towards the original a tad ;)
  10. Naw, go Mario! The plumber who can shoot fireballs from his hands, saves princess peach, and slays bowser :P
  11. Gotcha, thanks guys, I'll get started ;)
  12. Okay, so I got vb6 now and I'm ready to do some source edits on the game client. However, what I've been working with this whole time is just the original EE 2.7\. Not the source version. So, can I still somehow edit my client of my game. Can I just download an open-source client, edit it, then replace it with the current client? Would this be a-ok?
  13. Great site, I'm using some for my game now. Good find ;)
  14. Cool, this is a little late, but thanks a whole bunch for the sig slym its awesome ;)
×
×
  • Create New...