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

(eo) 2 questions


deathtaker26
 Share

Recommended Posts

okay one of these questions is more of a fix and the other one is what i really want.

Okay so this is kinda a request than anything but, I am trying to make it to where if you talk to an NPC than it talks like in pokemon mystery dungeon where a chat bubble pops up on the buttom of your screen and a pic of it shows. the pic i am trying to base off the sprite # like if the sprite is # 1 than i want the pic to show 1.bmp and for 2 than 2.bmp etc. The directory of this file is Data Files\Sprite-images and if the pic file doesn't exist i want it to pull up as nothing.bmp (which is the name of the file) i can probably make the pics but the npc's chat system i need help with where there chat apears in the bubble instead of the chat

question 2:
on the npc editor how do i make it to where it shows the size of my sprite in the box cause it just shows 32x32 even when i change it
Link to comment
Share on other sites

For his section question he means since EO has dynamic sprites the NPC's can be any size. but the little box that shows the sprite when u pick one only shows 32x32 so if ur sprite is bigger it sometimes only shows like the top of there head or something since they r to big for the box.
Link to comment
Share on other sites

I already tried that. even looked at the fuction the problem I got was when the sprite changed the box would be like 5px's big and I havnt found out why but this is what I added

private sub
```
Private Sub scrlSprite_Change()
    lblSprite.Caption = "Sprite: " & scrlSprite.Value
    Call EditorNpc_BltSprite
    Npc(EditorIndex).Sprite = scrlSprite.Value

End Sub
```
editornpc_bltnpcsprite
```
Public Sub EditorNpc_BltSprite()
    Dim Sprite As Long
    Dim sRECT As DxVBLib.RECT
    Dim dRECT As DxVBLib.RECT
    Dim Width
    Dim Height
    Sprite = frmEditor_NPC.scrlSprite.Value

    If Sprite < 1 Or Sprite > NumCharacters Then
        frmEditor_NPC.picSprite.Cls
        Exit Sub
    End If

    CharacterTimer(Sprite) = GetTickCount + SurfaceTimerMax

    If DDS_Character(Sprite) Is Nothing Then
        Call InitDDSurf("characters\" & Sprite, DDSD_Character(Sprite), DDS_Character(Sprite))
    End If

    Width = DDSD_Character(Sprite).lWidth / 12
    Height = DDSD_Character(Sprite).lHeight

    frmEditor_NPC.picSprite.Width = Width
    frmEditor_NPC.picSprite.Height = Height

    sRECT.Top = 0
    sRECT.Bottom = SIZE_Y
    sRECT.Left = PIC_X * 3 ' facing down
    sRECT.Right = sRECT.Left + SIZE_X
    dRECT.Top = 0
    dRECT.Bottom = SIZE_Y
    dRECT.Left = 0
    dRECT.Right = SIZE_X
    Call Engine_BltToDC(DDS_Character(Sprite), sRECT, dRECT, frmEditor_NPC.picSprite)
End Sub
```
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...