[EO] Equipment Display

[Zarnick123]

Working on changing around my GUI, Simple as That. I want to make it so the Four items currently equipped to the player are displayed on the white bar under health.


[emblem]

Change Sub BltEquipment so that it draws to the equipment picturebox.
Change EqLeft and EqTop in ModConstants to be the top/left of where you want the drawing to start. (From the looks of it: 0, 0).

[Robin]

Make sure the picturebox autoredraws.

[Zarnick123]

messing around with that now… hope i know what im doing lol

[Zarnick123]

Must be doing something wrong i changed the bltequipment sub and i think the modconstants but nothing is changing even on full compile

[Zarnick123]

okay its working… but for some reason it is showing both icons of the image. the one which would apear on the ground and the one in equips. both frames.

[emblem]

Uh. Post your BltEquipment sub. That's odd..

[Zarnick123]

nah i fixed that part. nother prob though. when i click the item on the pic it wont unequip and im not getting the Description when i hover over it. but i transfered the conde from the char menu

[emblem]

@The:

> nah I fixed that part. nother prob though. when I click the item on the pic it wont unequip and im not getting the Description when I hover over it. but I transfered the conde from the char menu

So you copied the code from these into the proper events for the equipment picturebox?
```
Private Sub picCharacter_Click()
    Dim EqNum As Long
    EqNum = IsEqItem(EqX, EqY)

    If EqNum <> 0 Then
        SendUnequip EqNum
    End If

End Sub

Private Sub picCharacter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim EqNum As Long
    Dim x2 As Long, y2 As Long
    EqX = X
    EqY = Y
    EqNum = IsEqItem(X, Y)

    If EqNum <> 0 Then
        y2 = Y + picCharacter.Top - frmMainGame.picItemDesc.height - 2
        x2 = X + picCharacter.Left + 2
        UpdateDescWindow GetPlayerEquipment(MyIndex, EqNum), 0, x2, y2
        LastItemDesc = GetPlayerEquipment(MyIndex, EqNum) ' set it so you don't re-set values
        Exit Sub
    End If

    picItemDesc.Visible = False
    LastItemDesc = 0 ' no item was last loaded
End Sub

```
If not, do that and change these lines to reflect your equipment picturebox:
```
        y2 = Y + picCharacter.Top - frmMainGame.picItemDesc.height - 2
        x2 = X + picCharacter.Left + 2

```

[Zarnick123]

this is quite wierd. im only getting the desc window all the way in the top left corner of the bar.

[Robin]

Make sure everything is set to 'pixel'.

[Murdoc]

Hi Zarnick. If you get this working would you mind showing me how? I'm stuck on how to do this properly..

[Murdoc]

@Robin:

> Make sure everything is set to 'pixel'.

What exactly do you mean Robin  "set to 'pixel'" I'm tryin to learn vb6 atm, but i'm still pretty n00bish.

[Robin]

Go make your own thread.

[Murdoc]

@Robin:

> Go make your own thread.

lol, nevermind I figured out :p