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

Scott

Members
  • Posts

    428
  • Joined

  • Last visited

    Never

Posts posted by Scott

  1. Actually I'm sorry you mis followed a step, you need to add that section of code to DrawPlayerName not DrawNpcName my bad.

    Move

    ```
    If Not Player(Index).GuildName = vbNullString Then
            Call DrawText(TexthDC, Text2X, Text2Y, GuildString, color)
        End If
    ```
    to DrawPlayerName
  2. @wito35:

    > HI. I have a problem with this. What should I do now?

    If I where you  I would try not to skip the first step for the client side additions =D

    CLIENT

    FIND:

    ```
    Public Sub DrawPlayerName(ByVal Index As Long)
    Dim TextX As Long
    Dim TextY As Long
    Dim color As Long
    Dim Name As String
    ```

    UNDER ADD:

    ```
    Dim Text2X As Long
    Dim Text2Y As Long
    Dim GuildString As String
    ```
  3. @Eckhart:

    > Fair point. Some day I hope to create a game so good that people will have to deal with permadeath after months of playing, and then come right back.

    Diablo 3 seems to be doing pretty well, I've seen 1 of my friends loose 2 60 hardcore characters and is working on his 3rd XD.
  4. Did you forget to do these steps?

    then head for Sub Render_Graphics, and the following piece of code right above this commented line : ' Lock the backbuffer so we can draw text and names
    ```
    ' blt the item sidebar
    Call BltItemSideBar

    ```

    And then search for the next line in the same sub, and add the following code above it: ' Release DC
    ```
    ' Draw item sidebar text
    Call DrawItemSideBarText

    ```
  5. You forgot to perform the first step.

    In modType in both CLIENT/SERVER replace NpcRec with this one

    ```
    Private Type NpcRec
        Name As String * NAME_LENGTH
        AttackSay As String * 100
        Sound As String * NAME_LENGTH

        Sprite As Long
        SpawnSecs As Long
        Behaviour As Byte
        Range As Byte
        DropChance(1 To MAX_NPC_DROPS) As Double
        DropItem(1 To MAX_NPC_DROPS) As Byte
        DropItemValue(1 To MAX_NPC_DROPS) As Integer
        Stat(1 To Stats.Stat_Count - 1) As Byte
        HP As Long
        EXP As Long
        Animation As Long
        Damage As Long
        Level As Long
    End Type
    ```
  6. @Vitin:

    > This should work :[click me](http://www.freemmorpgmaker.com/files/imagehost/pics/ef25c39b7839bb3b0e207e3ff7778495.bmp)
    >
    > Just replace the one you got for this one.

    That will still cause the edges to look bad on the tiles he needs to touch them up period.(I tried it out to be sure)
    ![](http://www.freemmorpgmaker.com/files/imagehost/pics/629caf9a73a28cf3de7df3a5928c3edc.png)
  7. @Juke:

    > Do i have to color every single white pixel there?  :sad:

    Kinda, but it's not that hard you just need to go around the edges of the tiles and touch them up. You only need to put the purple color on things you want transparent not everything white.
  8. Like this for example(need to touch it up more I did some) but in the end anything that is the bright purple color in this tile sheet will be transparent.
    ![](http://www.freemmorpgmaker.com/files/imagehost/pics/d882608c16b9c94a7f695e6f128f7af6.png)
  9. @lexkymbeth:

    > Juke don't listin to him, Make the top left white. The transparent color is going to be the color you have in the top left. So make the top left white :P If that doesn't work then its a tile set issue

    If he cared to read the white caused the problem so don't listen to him, I did forget to mention something though.

    Change everything you want transparent to that bright purple, this makes it so you can use white in your art.
  10. Yes it must be bmp, the top pixle (0,0) is the color it makes invisible, so I advise you don't use the very first tile(top, left one) and just make that whole 32x32 tile the color you want invisible(not white in this case).
  11. @Sick:

    > http://www.2006scape.com/
    > 'Nuff said.

    I don't see them lasting to long after launch, I hope they do but jagex is going to do everything in their power to shut down the server like they have every large server so usually it's just a matter of how long till the courts catch up to them.  Hope it does stay around tho I love how complete they have been with re-creating the game but jagex will fight to the last breath to protect their copyright on that sutff.
  12. @Lenn:

    > Eh, you have too many strong points to fight against. xD
    >
    > Well, I suppose if I can get hold of my old computer, and set it up again, I might be able to get a server running.

    Awesome looking forward to it if you manage to, if not a video would nice.  :cheesy:
  13. @Lenn:

    > It's a perfectly viable one. If we don't want to release a half-finished game with shoddily done content, then we don't, and we won't. Besides, it's only a couple of days to wait. Duders is pretty fast at making sprites…when he wants to.
    >
    > I believe, regardless of content, that is a real update. And, acting? Who said I was acting that I was surprised? I was genuinely surprised that there wasn't at least one new post.
    >
    > Actually, the content for the items is all done. I just need each item graphic. Because the NPCs are all generated on the basis of what actually exists, I can't do anything without either the graphics, or a final list of what monster-types Duders is making. We COULD do that, but even if we wanted to, we don't have a server host to use.
    >
    > Thanks.

    Ok than be prepared for a dead topic if your not willing to offer us good discussion material, are we just suposto talk about how much we like your same ideas all day no we want to talk about the game play and how we like/dislike it. If you even just release a server with 1 test floor you would have people talking about your game here.  Hell even a video is better than some pictures it doesn't give us much to work with…

    I think the community got the point across we like your game ideas a lot, me included but what do you expect us to talk about other than we think it's a great idea if we can't play it?
  14. @Lenn:

    > Well, there are currently no items, and 2 NPCs. That's my main reason. xD
    > And I'm not waiting until it's perfect, I'm waiting until it's viable to release.

    Throw in some test items and npc thats no excuse, the only reason I even brought it up was because you made a triple post with 2/3 going aww no one is posting, flat out release something for us to talk about(A real update not some bug fixes or gui, or a demo?) or stop acting like your surprised the chatter has died off.  Also if you have no items made up that's much more than waiting on gfx your waiting on content the image is only cosmetic it's not like you can't slap some better images on later.
  15. @Lenn:

    > I'd love to release something, but I still need the graphics. Like I've said, once I get all of the graphics, The Tower'll be ready to release. :>

    You have an auto updater no?  Why would you hold off on releasing it for such a minor issue that can be corrected later throw some place holder gfx in and let us play around with it and find bugs why let it sit for gfx, point is if you want people to be discussing your project they need something to discuss more than a few pictures and some small changes.  I've seen it stated many times, a lot of games are never even seen because people don't want to release them till there perfect, but in the end you can always find places to improve and we don't care about some minor gfx issues we just want to try out a game weather it's half done or fully done and if gfx are the only issue I see no reason why your waiting.
  16. There is still 2nd and 3rd place make something small for those but 1st place is def taken.

    2nd - Custom UserGroup name and color for 3 months
    3rd - Custom name color selection in profile

    My small entry is simple, if an item is rarity 1 or above it will display the items name on the ground in the same color as the item name in the hover over description.

    Place this at the bottom of modText
    ```
    Public Sub DrawItemName(ByVal ItemX As Long, ByVal ItemY As Long, ByVal ItemNumber As Long)
    Dim TextX As Long
    Dim TextY As Long
    Dim color As Long
    Dim Name As String

        ' If debug mode, handle error then exit out
      If Options.Debug = 1 Then On Error GoTo errorhandler

            Select Case Item(ItemNumber).Rarity
                Case 0 ' white
                  color = RGB(255, 255, 255)
                Case 1 ' green
                  color = RGB(117, 198, 92)
                Case 2 ' blue
                  color = RGB(103, 140, 224)
                Case 3 ' maroon
                  color = RGB(205, 34, 0)
                Case 4 ' purple
                  color = RGB(193, 104, 204)
                Case 5 ' orange
                  color = RGB(217, 150, 64)
            End Select

        Name = Trim$(Item(ItemNumber).Name)

        TextX = ((ConvertMapX(ItemX * PIC_X)) - 4) + (PIC_X * 0.5) - getWidth(TexthDC, (Trim$(Name)))
        TextY = ((ConvertMapY(ItemY * PIC_Y)) - PIC_Y) + (PIC_Y * 0.5)

        ' Draw name
      Call DrawText(TexthDC, TextX, TextY, Name, color)

        ' Error handler
      Exit Sub
    errorhandler:
        HandleError "DrawItemName", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Sub

    End Sub 
    ```In modDirectDraw7 find
    ```
    ' draw npc names
      For i = 1 To Npc_HighIndex
            If MapNpc(i).num > 0 Then
                Call DrawNpcName(i)
            End If
        Next
    ```
    Under add
    ```
      'Draw ItemNames on map
      If NumItems > 0 Then
            For i = 1 To MAX_MAP_ITEMS
                If MapItem(i).num > 0 Then
                    If Item(MapItem(i).num).Rarity > 0 Then
                        Call DrawItemName(MapItem(i).x, MapItem(i).y, MapItem(i).num)
                    End If
                End If
            Next
        End If
    ```
×
×
  • Create New...