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

Very Simple Shop Improvement!


Zappy
 Share

Recommended Posts

**_What it does_**

My friends commonly tell me to "Blah blah make shopping easier."
Having to click buy/sell for every individual item can be a nuisance when you're trying to stock up on potions, or sell a freshly chopped stack of lumber. So I'm here to offer a simple and  effective fix for those who don't know where to start!

Instead of having to hit "buy" or "sell" for each item, you now enter "buying mode" or "selling mode" after clicking the respective button. From that point on, you can continue clicking items you wish to buy or sell without being pestered to click the button every time. You can cancel "buying/selling mode" buy clicking on the respective button a second time.

**Server Side**

In **modHandleData**, in **HandleSellItem** and **HandleBuyItem**, find:
```
ResetShopAction index
```
This command will show up twice in each sub, remove every instance found in the these two subs.

**_Client Side_**

Enter frmMain, open the code and find:
```
Private Sub imgShopBuy_Click()
```
and replace the entire sub with:
```
Private Sub imgShopBuy_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If ShopAction = 1 Then
    ShopAction = 0
    AddText "Stopped Buying", White
    Else
    ShopAction = 1 ' buying an item
    AddText "Started Buying. (Double Click Items to Buy)", White
    End If

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

now find:

```
Private Sub imgShopSell_Click()
```

and replace the entire sub with:
```
Private Sub imgShopSell_Click()
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    If ShopAction = 2 Then
    ShopAction = 0
    AddText "Stopped Selling", White
    Else
    ShopAction = 2 ' selling an item
    AddText "Started Selling. (Double Click Items to Sell)", White
    End If

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

```

There!
Enjoy! <3
Link to comment
Share on other sites

  • 2 weeks later...
@GoldSide:

> anyone know how to show the picScreen in Shop mode :?

Make picCover.Visible = false

And I agree this is better than the default EO buying/selling system, although I'm more a fan of the double click to buy and sell it method. :P
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...