Eclipse 3.0 Control Changing

[Mapyo10]

Hi!

I have been working with the Eclipse 3.0 Engine for a week now and the controls are starting to annoy me.

I don't know where to go to change those and I want to know if my players will need to do this to play unless its in client.

So if anyone is able to send me a link to a script or simple tutorial that would be great!

Current Controls:

Move - Arrow Keys

Pick Up Items - Enter

Send Chat - Enter

Start Chat - Any letter

Interact - Ctrl

Event Text Continuation - Mouse/Clicking

Controls I would like:

Move - WASD

Pick Up Items - E or Ctrl  (Note: I would like Interact and Pick Up Items to be the same)

Send Chat - Enter

Start Chat - Enter or /

Interact - E or Ctrl

Event Text Continuation - Mouse/Clicking

Almost like 4.0!

I dont want to get 4.0 due to it costing. I may buy it in the future!

If this could be done I would be thank-full

-Mapyo10

[PD]

Search the project for **vbKeyUp** and you should find what you're looking for. Here is a list of key codes for reference:

[http://msdn.microsoft.com/en-us/library/0z084th3%28v=vs.90%29.aspx](http://msdn.microsoft.com/en-us/library/0z084th3%28v=vs.90%29.aspx)

[hisherwin]

Find this

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

    If GetAsyncKeyState(VK_UP) >= 0 Then DirUp = False
    If GetAsyncKeyState(VK_DOWN) >= 0 Then DirDown = False
    If GetAsyncKeyState(VK_LEFT) >= 0 Then DirLeft = False
    If GetAsyncKeyState(VK_RIGHT) >= 0 Then DirRight = False
    If GetAsyncKeyState(VK_CONTROL) >= 0 Then ControlDown = False
    If GetAsyncKeyState(VK_SHIFT) >= 0 Then ShiftDown = False

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

Replace it with

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

    If GetKeyState(vbKeyW) >= 0 Then DirUp = False
    If GetKeyState(vbKeyS) >= 0 Then DirDown = False
    If GetKeyState(vbKeyA) >= 0 Then DirLeft = False
    If GetKeyState(vbKeyD) >= 0 Then DirRight = False
    If GetKeyState(vbKeyControl) And GetKeyState(vbKeyE) >= 0 Then ControlDown = False
    If GetKeyState(vbKeyShift) >= 0 Then ShiftDown = False

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

Find this

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

    If GetKeyState(vbKeyShift) < 0 Then
        ShiftDown = True
    Else
        ShiftDown = False
    End If

    If GetKeyState(vbKeyReturn) < 0 Then
        CheckMapGetItem
    End If

    If GetKeyState(vbKeyControl) < 0 Then
        ControlDown = True
    Else
        ControlDown = False
    End If

    'Move Up
    If GetKeyState(vbKeyUp) < 0 Then
        DirUp = True
        DirDown = False
        DirLeft = False
        DirRight = False
        Exit Sub
    Else
        DirUp = False
    End If

    'Move Right
    If GetKeyState(vbKeyRight) < 0 Then
        DirUp = False
        DirDown = False
        DirLeft = False
        DirRight = True
        Exit Sub
    Else
        DirRight = False
    End If

    'Move down
    If GetKeyState(vbKeyDown) < 0 Then
        DirUp = False
        DirDown = True
        DirLeft = False
        DirRight = False
        Exit Sub
    Else
        DirDown = False
    End If

    'Move left
    If GetKeyState(vbKeyLeft) < 0 Then
        DirUp = False
        DirDown = False
        DirLeft = True
        DirRight = False
        Exit Sub
    Else
        DirLeft = False
    End If

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

Replace it with

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

    If GetKeyState(vbKeyShift) < 0 Then
        ShiftDown = True
    Else
        ShiftDown = False
    End If

    If GetKeyState(vbKeyControl) < 0 Or GetKeyState(vbKeyE) Then
        ControlDown = True
        CheckMapGetItem
    Else
        ControlDown = False
    End If

    'Move Up
    If GetKeyState(vbKeyW) < 0 Then
        DirUp = True
        DirDown = False
        DirLeft = False
        DirRight = False
        Exit Sub
    Else
        DirUp = False
    End If

    'Move Right
    If GetKeyState(vbKeyD) < 0 Then
        DirUp = False
        DirDown = False
        DirLeft = False
        DirRight = True
        Exit Sub
    Else
        DirRight = False
    End If

    'Move down
    If GetKeyState(vbKeyS) < 0 Then
        DirUp = False
        DirDown = True
        DirLeft = False
        DirRight = False
        Exit Sub
    Else
        DirDown = False
    End If

    'Move left
    If GetKeyState(vbKeyA) < 0 Then
        DirUp = False
        DirDown = False
        DirLeft = True
        DirRight = False
        Exit Sub
    Else
        DirLeft = False
    End If

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

```