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

[EO] Fixing attributes not updating


Guest
 Share

Recommended Posts

Basically there's a problem in EO in that if you change the value on a scroll bar (e.g. resources) it will still place the previous one. There is a clean copy of an EO 2.0.2 frmEditor_Map at the bottom of this topic for those who haven't edited theirs.

Add this (in sub scrlResource_Change):

```
ResourceEditorNum = scrlResource.value
```

Under:

```
lblResource.Caption = "Resource: " & Resource(scrlResource.value).name
```

–----

Add this (in sub scrlMapWarp_Change):

```
EditorWarpMap = scrlMapWarp.value
```

Under:

```
lblMapWarp.Caption = "Map: " & scrlMapWarp.value
```

(Repeat this for EditorWarpX in scrlMapWarpX_Change and EditorWarpY in scrlMapWarpY_Change)

–---

Add this to the top of frmEditor_Map:

```
Private Sub cmbShop_Click()

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

EditorShop = cmbShop.ListIndex

' Error handler

Exit Sub

errorhandler:

HandleError "cmbShop_Click", "frmEditor_Map", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub
```

–---

Add this (in sub scrlKeyX_Change):

```
KeyOpenEditorX = scrlKeyX.value
```

Under:

```
lblKeyX.Caption = "X: " & scrlKeyX.value
```

(Repeat this for KeyOpenEditorY in sub scrlKeyY_Change)

–---

Add this (in sub scrlMapKey_Change):

```
KeyEditorNum = scrlMapKey.value
```

Under:

```
lblMapKey.Caption = "Item: " & Trim$(Item(scrlMapKey.value).name)
```

–---

Add this to the top of frmEditor_Map:

```
Private Sub chkMapKey_Click()

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

KeyEditorTake = chkMapKey.value

' Error handler

Exit Sub

errorhandler:

HandleError "chkMapKey_Click", "frmEditor_Map", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub
```

–---

Add this (in sub scrlMapItem_Change):

```
ItemEditorNum = scrlMapItem.value
```

Under:

```
lblMapItem.Caption = Trim$(Item(scrlMapItem.value).name) & " x" & scrlMapItemValue.value
```

–---

Add this (in sub scrlMapItemValue_Change):

```
ItemEditorValue = scrlMapItemValue.value
```

Under:

```
lblMapItem.Caption = Trim$(Item(scrlMapItem.value).name) & " x" & scrlMapItemValue.value
```

–---

Add this to the top of frmEditor_Map:

```
Private Sub cmbSlide_Click()

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

MapEditorSlideDir = cmbSlide.ListIndex

' Error handler

Exit Sub

errorhandler:

HandleError "cmbSlide_Click", "frmEditor_Map", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub
```

–---

Add this (in sub scrlTrap_Change):

```
MapEditorHealAmount = scrlTrap.value
```

Under:

```
lblTrap.Caption = "Amount: " & scrlTrap.value
```

–---

Add this to the top of frmEditor_Map:

```
Private Sub cmbHeal_Click()

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

MapEditorHealType = cmbHeal.ListIndex + 1

' Error handler

Exit Sub

errorhandler:

HandleError "cmbHeal_Click", "frmEditor_Map", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub
```

–---

Add this (in sub scrlHeal_Change):

```
MapEditorHealAmount = scrlHeal.value
```

Under:

```
lblHeal.Caption = "Amount: " & scrlHeal.value
```

–---

Add this to the top of frmEditor_Map:

```
Private Sub lstNpc_Click()

' If debug mode, handle error then exit out

If Options.Debug = 1 Then On Error GoTo errorhandler

SpawnNpcNum = lstNpc.ListIndex + 1

' Error handler

Exit Sub

errorhandler:

HandleError "lstNpc_Click", "frmEditor_Map", Err.Number, Err.Description, Err.Source, Err.HelpContext

Err.Clear

Exit Sub

End Sub
```

–---

Under the Select Case block (in scrlNPCDir_Change) add this:

```
SpawnNpcDir = scrlNpcDir.value
```

–---

I realise that's a lot of work so here's a copy of a clean EO 2.0.2 frmEditor_Map:

[http://pastebin.com/n9xWaVbS](http://pastebin.com/n9xWaVbS)
Link to comment
Share on other sites

  • 1 month later...

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...