EO (1.3) Mouse Movement Tutorial

[Sunku]

would this work in eo v2??? if not is there a way to edit it to work?

@Yoran:

> I can't seem to get the mapeditor to work in EO. I made myself admin and pressed F1 an typed in /mapeditor but nothing happend…
>
> Does anyone know whats wrong?
>
> - sorry,  I found it in FAQ :P just have to press insert -

you need to press insert

[Darth Tyllo]

yeah, Axis, it works in EO 2, although since I haven't implemented it on a v1.3 game, I'm not sure if it works exactly the same.

[Sunku]

@Darth:

> yeah, Axis, it works in EO 2, although since I haven't implemented it on a v1.3 game, I'm not sure if it works exactly the same.

i don't think it does because i won't stop once i release the mouse.

[Kemerd]

Nice tut.

[UzGo]

When i compile the game it shows error - Method or data member not found .

frmMain.txtChat.SelStart = Len(frmMain.txtChat.text)  <–-

Where is my bad can someone help me i can't make WASD Movement too !  :sad:

[Ruins of Hell]

@UzGo:

> When i compile the game it shows error - Method or data member not found .
>
> frmMain.txtChat.SelStart = Len(frmMain.txtChat.text)  <–-
>
> Where is my bad can someone help me i can't make WASD Movement too !  :sad:

You didn't install Service Pack 6 when you installed Visual Basic 6\. Go read the guide.

[UzGo]

@Soul:

> You didn't install Service Pack 6 when you installed Visual Basic 6\. Go read the guide.

Thanks for that i didn't know it .

[harvest24]

i cant work in EO 2.0 Y_Y help me plz

[UzGo]

@Soul:

> You didn't install Service Pack 6 when you installed Visual Basic 6\. Go read the guide.

Ok i installed the SP6 but its getting the same error ! What i have to do ?

[Ruins of Hell]

@UzGo:

> Ok i installed the SP6 but its getting the same error ! What i have to do ?

You have to redownload the source: you already messed it up by converting all the Rich Text Boxes into picture boxes.

[harvest24]

why i cant work i do follow step by step Y_Y

[UzGo]

@Soul:

> You have to redownload the source: you already messed it up by converting all the Rich Text Boxes into picture boxes.

Thanks Soul :)

[madyotto]

Help PLZ

i got this working

But i REALLY REALLY need/want the auto direction change mentioned

but i cant find the mouse mouse SUB

i presume this is renamed in EO 2.0.0 like im using

could someone plz tell me what this is renamed to or tell me some steps to implement this auto direction change on EO2.0.0

Grate Many Thanks In Advance

[Justn]

there is a mistake in the tut. its mousemove not mousemouse =p
here ya go:
```
Private Sub picScreen_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    ' If debug mode, handle error then exit out
    If Options.Debug = 1 Then On Error GoTo errorhandler

    CurX = TileView.Left + ((x + Camera.Left) \ PIC_X)
    CurY = TileView.top + ((Y + Camera.top) \ PIC_Y)

    If InMapEditor Then
        frmEditor_Map.shpLoc.visible = False

        If Button = vbLeftButton Or Button = vbRightButton Then
            Call MapEditorMouseDown(Button, x, Y)
        End If

    Else
    If Button = vbRightButton Then
        MouseMove = True

            'Right Click Mouse Movement Here, Give MyX and MyY values for current Pos then compare

            MyX = GetPlayerX(MyIndex)
            MyY = GetPlayerY(MyIndex)

            'Move Right
            If CurX > MyX Then
                DirUp = False
                DirDown = False
                DirLeft = False
                DirRight = True
          End If

            'Move Left
            If CurX < MyX Then
                DirUp = False
                DirDown = False
                DirLeft = True
                DirRight = False
            End If

            'Move Down
            If CurY > MyY Then
                DirUp = False
                DirDown = True
                DirLeft = False
                DirRight = False
            End If
            'Move Up
            If CurY < MyY Then
                DirUp = True
                DirDown = False
                DirLeft = False
                DirRight = False
            End If
    End If
    End If
    ' hide the descriptions
    picItemDesc.visible = False
    picSpellDesc.visible = False

    ' reset all buttons
    resetButtons_Main

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

[madyotto]

JUSTN

YOU done it again bro nice one

YOU LEGEND :P :) =D

[tsl8]

whether it is possible to do for EA 3.0.21?

In EA picScreen missing!

[Guest]

It's for EO 1.3 so no.