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

erkro1

Members
  • Posts

    2678
  • Joined

  • Last visited

Posts posted by erkro1

  1. I don't hate JC either, but don't fix it if it aint broken, Marsh was an alright admin.

    The thing that most people (including me) hate the most is the closed source, with the open source people who could programm made awesome things, which attracted people who don't wanna learn programming and just want to make a game.

    Making it closed source 'scared' off the programmers and that means less good games and less attracting of people who don't wanna learn programming.
  2. > Oh dear god you're one of THEM… lol
    >
    > It might not be a bad idea to contribute back to the community by telling us what the problem was and how you fixed it.

    The problem was in the ResBak Online engine, paperdolls were already working but called aura's.
  3. I'm having difficulties with the paperdolling, it's not displaying the item or anything.

    Code:

    ```
    Public Sub DrawPaperdoll(ByVal x2 As Long, ByVal y2 As Long, ByVal Sprite As Long, ByVal Anim As Long, ByVal spritetop As Long, ByVal Colour As Long)

    Dim Rec As RECT

    Dim X As Long, y As Long

    Dim width As Long, height As Long

    ' If debug mode, handle error then exit out

    If Options.Debug = 1 Then On Error GoTo ErrorHandler

    If Sprite < 1 Or Sprite > NumAuras Then Exit Sub

    With Rec

    .Top = spritetop * (Tex_Aura(Sprite).height / 4)

    .Bottom = .Top + (Tex_Aura(Sprite).height / 4)

    .Left = Anim * (Tex_Aura(Sprite).width / 3)

    .Right = .Left + (Tex_Aura(Sprite).width / 3)

    End With

    ' clipping

    X = ConvertMapX(x2)

    y = ConvertMapY(y2)

    width = (Rec.Right - Rec.Left)

    height = (Rec.Bottom - Rec.Top)

    ' Clip to screen

    If y < 0 Then

    With Rec

    .Top = .Top - y

    End With

    y = 0

    End If

    If X < 0 Then

    With Rec

    .Left = .Left - X

    End With

    X = 0

    End If

    RenderTexture Tex_Aura(Sprite), X, y, Rec.Left, Rec.Top, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top, Rec.Right - Rec.Left, Rec.Bottom - Rec.Top, Colour

    ' Error handler

    Exit Sub

    ErrorHandler:

    HandleError "DrawPaperdoll", "modGraphics", Err.Number, Err.Description, Err.Source, Err.HelpContext

    Err.Clear

    Exit Sub

    End Sub
    ```

    If you need more just ask. ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png)
  4. Nope, but thats because this is in frmMenu, and then the ServerLoop isn't activated yet.

    EDIT: I'll try adding the rendering in a timer tomorrow. ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png)
  5. > i think youre table is broken. Also i see next to no cake.. its a lie

    Yeah, I raged in the progress of making the cake and I broke the table.

    Also, the cake is well hiden under the M&M's.

    > Looks super good. Wont the m&ms fall everywhere the second you cut that?

    Only the M&M's at the sides fall off when you cut it.
  6. I am trying to draw the faces on a picturebox (for the multiple characters system), but for some reason it only displays it for a very short time (less than half a second) and then it disappears.

    Code:

    ```
    Sub BltCharFaces()

    Dim sRect As RECT, dRect As RECT, FaceNum As Long, srcRect As D3DRECT, destRect As D3DRECT

    Dim i As Byte

    ' If debug mode, handle error then exit out

    If Options.Debug = 1 Then On Error GoTo errorhandler

    If NumFaces = 0 Then Exit Sub

    Direct3D_Device.Clear 0, ByVal 0, D3DCLEAR_TARGET, D3DColorRGBA(0, 0, 0, 0), 1#, 0

    Direct3D_Device.BeginScene

    For i = 1 To MAX_PLAYER_CHARACTERS

    FaceNum = CharData(i).Sprite

    If FaceNum > 0 Or FaceNum <= NumFaces Then

    sRect.Top = 0

    sRect.Bottom = sRect.Top + 100

    sRect.Left = 0

    sRect.Right = sRect.Left + 100

    dRect.Top = CharTop

    dRect.Bottom = CharTop + 100

    dRect.Left = CharOffSetX + (CharOffSetX * (i - 1)) + 100 * (i - 1)

    dRect.Right = dRect.Left + 100

    RenderTextureByRects Tex_Face(FaceNum), sRect, dRect

    End If

    Next

    With srcRect

    .x1 = 0

    .x2 = frmMenu.picFaces.Width

    .y1 = 0

    .y2 = frmMenu.picFaces.Height

    End With

    With destRect

    .x1 = 0

    .x2 = frmMenu.picFaces.Width

    .y1 = 0

    .y2 = frmMenu.picFaces.Height

    End With

    Direct3D_Device.EndScene

    Direct3D_Device.Present srcRect, destRect, frmMenu.picFaces.hwnd, ByVal (0)

    ' Error handler

    Exit Sub

    errorhandler:

    HandleError "BltCharFace", "modGraphics", Err.Number, Err.Description, Err.Source, Err.HelpContext

    Err.Clear

    Exit Sub

    End Sub
    ```
  7. I made a M&M/Kitkat cake with my sister because we were bored. ![:P](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/tongue.png)

    Before the M&M's:

    >! ![](http://freemmorpgmaker.com/uploadfiles/67bedd07d41209d9efa75ae58f4de5ce.jpg)

    After the M&M's:

    >! ![](http://freemmorpgmaker.com/uploadfiles/9e3e226869b309602b35cf541c545225.jpg)
  8. This isn't very efficiënt, since it not always the same amount of time, the server takes the code every 1 second, even if no player is healing and such but that makes it that some players can eat it in 0.1 seconds (if the server receives packet of them eating it 0.1 second before it hits the 1 second loop) and some might have it 0.9 seconds.

    Just look at how it's done with health regeration (it has also a timer value inside the TempPlayerRec so that everyone heals after x seconds)

    I hope you understand this.
  9. > I dont get why someone would pirate Skyrim, its amazing, I confess I pirated it too first, but DUCK! I totally agree with this, I mean this game can give you > 300 hours of fun, compared to a shitty 10 hour in a CoD game, and they are thesame price. (Skyrim is even cheaper on Steam I believe)
  10. > 5 bucks?![](http://2.bp.blogspot.com/-UtvGqX-omNM/Tz_Yvpy7MaI/AAAAAAAAACI/vgiLb0UXezg/s1600/OKAY+MEME.jpg)

    Thats quite reasonable isn't it.

    I have also messaged all you guys who had a job for me. ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png)
  11. > **the sidebar of the game and other things are completely customizable? and is more easy to add sprites on the game folder?**

    If you have VB6 then yes, for graphics (including sprites) you don't need VB6, just put them in the correct map.
  12. > @Kemeru I agree with Erwin, he isn't supposed to make converter for ER, and now it will be waste of time too, becouse it is not finished, so udts can change. When i will finish ER, i will make converter for it, but now it is waste of time.

    I have added a converting option so you can convert ER to other engines, but not the other way. I have made the convertor for v0.0.10, but I don't know if UDT's have changed after that.
  13. > Could you add converting to Reborn? Some people might want to use it, even if it is stolen work.

    I'm sorry but on the forums we're not offering support for it, if you really want to switch to Eclipse Reborn you should make a convertor by yourself.

    When I've got some more time on my hands I'll add 'Some unique name' and 'Dragon Eclipse' support.
  14. Yeah I have played it too, its alot of fun.

    And it's from Dutch developers. ![;)](http://www.touchofdeathforums.com/community/public/style_emoticons/<#EMO_DIR#>/wink.png)
×
×
  • Create New...