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

ghost1

Members
  • Posts

    62
  • Joined

  • Last visited

    Never

Posts posted by ghost1

  1. Everything you render must be inside the RenderGraphics procedure. That RenderText is not. Put that RenderText in RenderGraphics and use a bool flag to check if you should render it or not.
    ie:
    ```
    if CanDrawMsg then rendertext(...)

    ```
  2. Yo creo que está bien como lo hiciste. Habría que recordar que hay que hacer bloqueos con los NPCs, y si quieres que todo funcione de la misma manera, hacer que los NPCs se mueven diagonalmente también, algo que puede resultar un poco más difícil que los jugadores, pero algo que valdría la pena hacer.
  3. No, it didn't. I've worked with the source and I have worked on this game. Just because it has pieces of code from Eclipse doesn't mean it was. If it _had_, then so be it, but we're talking about the present, I really don't give a shitt about what it was. He may have learnt from Eclipse, sure, but it still was never based off of Eclipse.

    Believe what you want anyway, not that it's my problem.
  4. @Annahstas:

    > I don't believe this. There's no way in VB6 can you do this. uXai right, make a video then i'll believe you.

    Yes there is. That's why we've got D3D in VB6\. Go check on YouTube and you'll see.

    @Vus:

    > I am not sure about this, but I think its posible to make soemthing like this in VB6, but why would you taking screenshots tkae over few hours? If you look to down right corner, it took him a lot of time to do new "screenshot".

    That's a stupid reason to think this is false.

    @Dawntide:

    > you do not even need to discuss it. A random new forum user makes a 3d engine in VB 6? too obvious in my opinion

    Yes, because being a new user in a forum means you're an idiot.
  5. Make a new entry in the item UDT named "Tradable" or something like that. Then in the item editor, make a checkbox for it.

    Then when you're in a trade, and when you run on the DblClick event of picInventory, check to make sure that the item you just double-clicked IS tradable. If not, exit the sub.

    Warning - while you were typing a new reply has been posted. You may wish to review your post.
  6. No. I mean your screen size. For example, if your screen width is 800 and its height is 600 (even though 600 isn't divisible by 32, you just round it), then:
    MAX_MAPX = (800 / 32) - 1 -> MAX_MAPX = 24
    MAX_MAPY = (600 / 32) - 1 -> MAX_MAPY = 18
  7. That's because you haven't changed the maximum tiles per map, and since the screen size is calculated using those, it's rendering it to make it fit into the whole screen and therefore makes it look zoomed in.

    What you need to do is make sure your screen's dimensions are divisible by 32, and after that, divide your screen's dimensions by 32 and substract by one. So, MAX_MAPX = (ScreenWidth / 32) - 1 and MAX_MAPY = (ScreenHeight / 32) - 1\. You can find those in modConstants.

    Do this on both client and server and delete your maps.
  8. You're adding an extra parenthesis at the end of the line.
    Replace it with this:
    ```
    size = size + getwidth(TexthDC, Mid$(TempSplit(TSLoop), i, 1))
    ```or with this:
    ```
    size = size + (getwidth(TexthDC, Mid$(TempSplit(TSLoop), i, 1)))
    ```
  9. To make sure you're loading or saving, go and try to make a character with a random name. Save it. If the name is in the binary file (because strings are still strings in that type of binary), then saving works. Now, load the same file, and use MsgBox to display the name. If it's displayed fine, then loading works.
  10. There's nothing wrong with the class. Although, you can reduce what you write when returning values with VB.NET:
    ```
    Public Class clsPlayer

        Public PlayerName As String
        Public Level As Integer
        Public Exp As Long
        Public Mp As Integer
        Public Hp As Integer

        Public Function GetPlayerName() As String
            Return PlayerName
        End Function

        Public Function GetPlayerLevel() As Integer
            Return Level
        End Function

        Public Function GetPlayerExp() As Long
            Return Exp
        End Function

        Public Function GetPlayerMp() As Integer
            Return Mp
        End Function

        Public Function GetPlayerHP() As Integer
            Return Hp
        End Function

    End Class

    ```
    Other than that, I don't see why it shouldn't work. Only thing I can think about is that you're not loading them or setting them up before saving.

    Go look at the .dat in notepad. If it has the weird symbols and the player's name, then the saving does work.
×
×
  • Create New...