Bank and shop

[Jumbofile]

My bank and shop have an annoying brown back and i don't want it there. (using eclipse 2.3)

Pic


[Growlith1223]

Client side replace Sub OpenShop with:

```
Public Sub OpenShop(ByVal shopnum As Long)
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    InShop = shopnum
    ShopAction = 0
    frmMain.picCover.Visible = False
    frmMain.picShop.Visible = True
    BltShop

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "OpenShop", "modGameLogic", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub

```

[Jumbofile]

thank you what about the bank?

[Growlith1223]

same deal. there's a sub called HandleBank. look for where it sets the visibility of picCover and just set it to false.

[Zopto]

```

frmMain.picCover.Visible = False

```
Just chage    True to False in  Public Sub HandleBank

growly was faster GRRRRRRRRRRRR Xd

[Geotri]

what about trade that doesnt seem to work the same way?

[Zeno]

> what about trade that doesnt seem to work the same way?

It does, just not in that sub. You can search VB6 for "picCover.Visible = True" to disable it anywhere. 

I haven't edited this code. Read the comments.

```
Private Sub HandleTrade(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
Dim Buffer As clsBuffer

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

    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()

    InTrade = Buffer.ReadLong

'This one! Change it to false.
    frmMain.picCover.Visible = True

'Not this one! D:
    frmMain.picTrade.Visible = True
    BltTrade

    Set Buffer = Nothing

    ' Error handler
    Exit Sub
errorhandler:
    HandleError "HandleTrade", "modHandleData", Err.Number, Err.Description, Err.Source, Err.HelpContext
    Err.Clear
    Exit Sub
End Sub
```