A lblGold só mostra o seu dineheiro quando o item do tipo "Currency" é o número 1.

modDirectDraw7

Procure por:

Código:

                        ' Check if it's gold, and update the label
                        If GetPlayerInvItemNum(MyIndex, i) = 1 Then '1 = gold :P
                            frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g"
                        End If

Mude para:

Código:

                        ' Check if it's gold, and update the label
                        If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY = 1 Then
                            frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g"
                        End If

Procure por:

Código:

                        ' Check if it's gold, and update the label
                        If GetPlayerInvItemNum(MyIndex, i) = 1 Then '1 = gold :P
                            frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g"
                        End If

Mude para:

Código:

                        ' Check if it's gold, and update the label
                        If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY = 1 Then
                            frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g"
                        End If