[Problema con system event]

Que version de eclipse bajaste, de pendiendo cual se encuentra diferente, aunque por lo regular es donde mapeas, hay una opcion que dice event,

si bajaste la version 2.0 esa no tiene sistema de eventos,

[Eclipse - The Final Frontier]

I really like your motor.

Some things I like.

-with 8-character movements,
-mouse-movement (right click)
-fight-mode type pokemon, final fantasy (I know it's very difficult)
-formulas to apply attack, defense, range attack, magic attack etc.
-formulas of skills,
-items with slots
npc-continuous motion, they do not move frame by frame
-npc with different skills, with IA

[Editar tiles e insertarlos]

Hola, lo que también puedes hacer es abrirlos con una aplicación como gimp, photoshop, coreldraw para ponerle el fondo transparente,

eliminando simplemente el color de la transparencia y guardándolo como .png

[Eclipse - The Final Frontier]

I found a bug,

when you open twice quest editor, delete the data,

I could not cancel the quest by default, which comes with the blacksmith.

[Eclipse - The Final Frontier]

expected a more stylized version, to bring the event system 3.0,

as the transparent menu.

quest system.

lvl system resources.

among others.

when I say, reduce the size of the step, I mean as seen in the SNES game "The Legend of Zelda: A Link to the Past", the steps are small, this gives more mobility to the character and has more naturally.

[Eclipse - The Final Frontier]

really amazing, I really liked your version, I was expecting something.

I hope the next version with elderly.

one thing that I think would be good for all eclipse projects, is that the character movement, every step was divided into two more, but maybe that entail other complications.

anyway your version is the best = D.

[La mejor version de eclipse?]

Para ustedes cual es la mejor versión de eclipse, o mas completa?

yo opino que eclipse reborn. ustedes que piensan?

[Movimiento en diagonal, que tan factible es.]

Bueno, e modificado el cliente para que el personaje pueda moverse en diagonal. no uso sprites en diagonal, cuando se mueve entre la izquierda y arriba, uso el sprite de izquierda, igual cuando se mueve izquierda y abajo. lo mismo para la derecha.

cuando termina de moverse en diagonal se queda volteando izquierda o derecha. también funciona el bloque delos mapas, tanto el bloqueo de dirección, como el de recursos, o el bloqueo por cuadro.

Pregunto que tan factible es, para tomar alguna otra consideración que se me haya pasado, y terminar el código.

[Tutorial, Mover personaje por click, un tuto mas pero diferente]

Darkbest, quite unas lineas extras que tenia el paso 3, vuelve a copiar, debe funcionar ahora si.

[[EO 2.0 / EO 3.0] Click to Move]

Darkbeast , I was wrong,  these lines should not go there in the original post in the Spanish section put the change. Here I leave the lines that you remove.

this change is in modInput

```
If frmMain.txtMyChat.text = "" Then
          frmMain.lblEventChatContinue_Click
End If

```

[[EO 2.0/3.0] Mouse movement by bamm]

@DarkBeast:

> Zopto look I know your smart u don't just comup with a tutorial a hour later like zopto like seriously what the hell . It's plain out just not a coincidence!! MortalAngels I thought u were a fair person but your just a cheat!
> Also  I am getting this.

These mixing step 2 to step 1, please follow the steps correctly.

[Tutorial, Mover personaje por click, un tuto mas pero diferente]

en el modGlobal  tienes que poner lo siguiente

This made ​​for EO 3.0
in modGlobal have to put the following.

Step 1.
```
'Guardan el valor de la variable CurX/CurY, despues de dar click, es la bandera si el personaje esta en movimiento
Public MovXD As Integer
Public MovYD As Integer
Public MouseMove As Boolean

```

[[EO 2.0/3.0] Mouse movement by bamm]

Well I put here the source as MortalAngel, copy my code and created a topic in this section. I put the topic here original.

This source allows to move the character in the position you have given here. the character moves in x or y, depending on the greater distance exists.

If the character is in the cordinate x = 2, y = 2, and you click on the cordinate x = 5, y = 7, the first 3 steps will move right wing and left wing after step after step right wing, another left wing, right wing and another one more left wing.

Can not dodge objects.
Keyboard need to walk to another adjacent map.

I hope to serve as a good thing.

@bamm:

> Bueno, este es mi primer Tutorial, y aunque me e basado algunas cosas en el tutorial de Rob James, este tutorial es diferente. por que? por que el personaje se mueve hasta la posición donde hayas dado click, y busca la dirección mas corta(no esquiva obstáculos). el personaje no se deja de mover hasta que halla llegado ala posición que le as indicado, camina en zic sac si es en diagonal.
>
> Esta modificación solo es en cliente.
>
> Step 1\. Open modGlobals on the Client, and Add the Following
> Paso 1\. Abrir modGlobals en el cliente, y agregar lo siguiente
> ```
> 'Guardan el valor de la variable CurX/CurY, despues de dar click, es la bandera si el personaje esta en movimiento
> Public MovXD As Integer
> Public MovYD As Integer
> Public MouseMove As Boolean
>
> ```
> Step 2\. Add this to the Beginning of Sub Main in modGeneral
> Paso 2\. Agregar en el inicio del metodo  Sub Main en el modulo modGeneral
> ```
> ' Set Default MouseMove Boolean to False
> MouseMove = False
>
> ```
> Step 3\. In Sub CheckInputKeys, in modInput,
> Paso 3\. En el metodo CheckInputKeys en el modulo modInput,  remplazar el siguiente código o agregar las diferencias.
> Before
> ```
> 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
>         If frmMain.txtMyChat.text = "" Then
>             frmMain.lblEventChatContinue_Click
>         End If
>     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
>  
> ```
> After
> ```
> 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
>         If frmMain.txtMyChat.text = "" Then
>             frmMain.lblEventChatContinue_Click
>         End If
>     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
>         MouseMove = False 'Disable Movement per click
>         Exit Sub
>     Else
>         DirUp = False
>     End If
>     'Move Right
>     If GetKeyState(vbKeyRight) < 0 Then
>         DirUp = False
>         DirDown = False
>         DirLeft = False
>         DirRight = True
>         MouseMove = False 'Disable Movement per click
>         Exit Sub
>     Else
>         DirRight = False
>     End If
>
>     'Move down
>     If GetKeyState(vbKeyDown) < 0 Then
>         DirUp = False
>         DirDown = True
>         DirLeft = False
>         DirRight = False
>         MouseMove = False 'Disable Movement per click
>         Exit Sub
>     Else
>         DirDown = False
>     End If
>
>     'Move left
>     If GetKeyState(vbKeyLeft) < 0 Then
>         DirUp = False
>         DirDown = False
>         DirLeft = True
>         DirRight = False
>         MouseMove = False 'Disable Movement per click
>         Exit Sub
>     Else
>         DirLeft = False
>     End If
>    
>     'Si la distancia actual es diferente ala distancia destino y esta habilitado el movimiento por mouse
>     If (GetPlayerX(MyIndex) <> MovXD Or GetPlayerY(MyIndex) <> MovYD) And MouseMove Then
>         MoveNextStep
>     Else
>         MouseMove = 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
>  
> ```
> Step 4\. in in modInput add
> Paso 4\. en el modulo modInput agregar el siguiente metodo.
> ```
> Public Sub MoveNextStep()
>
>             DirUp = False
>             DirDown = False
>             DirLeft = False
>             DirRight = False
>            
>             If (Abs(MovXD - GetPlayerX(MyIndex)) > Abs(MovYD - GetPlayerY(MyIndex))) Then
>                 'Move Right
>                 If MovXD > GetPlayerX(MyIndex) Then
>                     DirRight = True
>                 'Move Left
>                 Else
>                     DirLeft = True
>                 End If
>             Else
>                 'Move Down
>                 If MovYD > GetPlayerY(MyIndex) Then
>                     DirDown = True
>                 'Move Up
>                 Else
>                     DirUp = True
>                 End If
>             End If
> End Sub
>
> ```Step 5\. in frmMain, on picScreen MouseDown, Just after it checks vbKeyRightClick, just BEFORE the If ShiftDown, we add the following.
> Paso 5\. en la forma frmMain, en el metodo picScreen_MouseDown, despues de  "ElseIf Button = vbRightButton Then", y antes de "If ShiftDown Then", agregar lo siguiente
> ```
> 'Se toma el valor del cursor para guardarlo, y empieza el movimiento por mouse
>             MouseMove = True
>             MovXD = CurX
>             MovYD = CurY
>
> ```Step 6\. in modGameLogic, in the Sub GameLoop, comment out CheckKeys like so
> Paso 6\. en el modulo modGameLogic, en el metodo de GameLoop, comentar la  siguiente linea
> ```
> ' Call CheckKeys
> ```
>
> Bueno, espero que les sirva de algo, cualquier duda estamos a su disposición.

[[EO 2.0 / EO 3.0] Click to Move]

If this source had a different origin, it would be exactly the same, this is a copy, you can see clearly. Any programmer can tell, is a copy. I read you,

the same variables, the same lines of code, the only thing different are the comments that you removed, but is exactly the same, it is possible that another person has written exactly the same at the same time, and it shows an hour after it I showed you, this is a copy, accept. and removes your signature tutorial please.

I know that may not be important for some people, but I care ami that will take time.

Here I leave the address for anyone to compare which is exactly the same source.

http://www.touchofdeathforums.com/smf2/index.php/topic,82162.0.html

[Tutorial, Mover personaje por click, un tuto mas pero diferente]

yes

[Tutorial, Mover personaje por click, un tuto mas pero diferente]

Si , no se deja de mover hasta que tope con algo, o llegue en donde diste el click.

[Tutorial, Mover personaje por click, un tuto mas pero diferente]

No entiendo, como que clubpenguin

[[EO 2.0 / EO 3.0] Click to Move]

I'm new, and it is my first source I do and I share. I did not go faster than you, I was the only one who did this source, you only copied it, please remove the link in your signature. I just discouraged to continue programming. I am the sole author of this source.

[[EO 2.0 / EO 3.0] Click to Move]

Well, I wrote this tutorial I do not know why that is in this section, except that I wrote in the Spanish section.
I'm new to eclipse, but I feel good that do not give me credit for it.

this is original tuto. http://www.touchofdeathforums.com/smf2/index.php/topic,82162.0.html

[Tutorial, Mover personaje por click, un tuto mas pero diferente]

Bueno, este es mi primer Tutorial, y aunque me e basado algunas cosas en el tutorial de Rob James, este tutorial es diferente. por que? por que el personaje se mueve hasta la posición donde hayas dado click, y busca la dirección mas corta(no esquiva obstáculos). el personaje no se deja de mover hasta que halla llegado ala posición que le as indicado, camina en zic sac si es en diagonal.

Esta modificación solo es en cliente.

Step 1\. Open modGlobals on the Client, and Add the Following
Paso 1\. Abrir modGlobals en el cliente, y agregar lo siguiente
```
'Guardan el valor de la variable CurX/CurY, despues de dar click, es la bandera si el personaje esta en movimiento
Public MovXD As Integer
Public MovYD As Integer
Public MouseMove As Boolean

```
Step 2\. Add this to the Beginning of Sub Main in modGeneral
Paso 2\. Agregar en el inicio del metodo  Sub Main en el modulo modGeneral
```
' Set Default MouseMove Boolean to False
MouseMove = False

```
Step 3\. In Sub CheckInputKeys, in modInput,
Paso 3\. En el metodo CheckInputKeys en el modulo modInput,  remplazar el siguiente código o agregar las diferencias.
Before
```
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

```
After
```
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
        MouseMove = False 'Disable Movement per click
        Exit Sub
    Else
        DirUp = False
    End If
    'Move Right
    If GetKeyState(vbKeyRight) < 0 Then
        DirUp = False
        DirDown = False
        DirLeft = False
        DirRight = True
        MouseMove = False 'Disable Movement per click
        Exit Sub
    Else
        DirRight = False
    End If

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

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

    'Si la distancia actual es diferente ala distancia destino y esta habilitado el movimiento por mouse
    If (GetPlayerX(MyIndex) <> MovXD Or GetPlayerY(MyIndex) <> MovYD) And MouseMove Then
        MoveNextStep
    Else
        MouseMove = 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

```
Step 4\. in in modInput add
Paso 4\. en el modulo modInput agregar el siguiente metodo.
```
Public Sub MoveNextStep()

            DirUp = False
            DirDown = False
            DirLeft = False
            DirRight = False

            If (Abs(MovXD - GetPlayerX(MyIndex)) > Abs(MovYD - GetPlayerY(MyIndex))) Then
                'Move Right
                If MovXD > GetPlayerX(MyIndex) Then
                    DirRight = True
                'Move Left
                Else
                    DirLeft = True
                End If
            Else
                'Move Down
                If MovYD > GetPlayerY(MyIndex) Then
                    DirDown = True
                'Move Up
                Else
                    DirUp = True
                End If
            End If
End Sub

```Step 5\. in frmMain, on picScreen MouseDown, Just after it checks vbKeyRightClick, just BEFORE the If ShiftDown, we add the following.
Paso 5\. en la forma frmMain, en el metodo picScreen_MouseDown, despues de  "ElseIf Button = vbRightButton Then", y antes de "If ShiftDown Then", agregar lo siguiente
```
'Se toma el valor del cursor para guardarlo, y empieza el movimiento por mouse
            MouseMove = True
            MovXD = CurX
            MovYD = CurY

```Step 6\. in modGameLogic, in the Sub GameLoop, comment out CheckKeys like so
Paso 6\. en el modulo modGameLogic, en el metodo de GameLoop, comentar la  siguiente linea
```
' Call CheckKeys
```

Bueno, espero que les sirva de algo, cualquier duda estamos a su disposición.

quite unas lineas que estaban de mas. en el paso 3, ahora si no deben de tener ningun problema.

[Dudas con eclipse]

Bueno tengo varias dudas.

Como se puede hacer que los npc tiren mas de un item.
Que los recursos como arboles, también tiren mas de un item.
Que los recursos te quiten un item, como por ejemplo , carnada cuando pescas.
Algún sistema de nivel de minería, pesca.
O podría ser que al talar se ejecute un evento.

Estoy planeando modificar, para que el personaje se mueva por medio de click, e visto un tutorial que lo hace pero, no se mueve ala posición, si no que se mueve solo la direccion. hay algo asi como lo que quiero hacer?

[Runtime error 9 subscript out of range]

This error comes when you add a resource, without choosing the resource, you can do is delete the map and do it again, if you know that map is, you can make a backup of the maps, and go deleting some to rule, and so find the map, excuse my English use a translator. xD.

[Dudas con eclipse]

De donde lo puedo bajar,

sobre el caminado en diagonal, y el movimiento por click, que dicen?

[Dudas con eclipse]

Hola, soy nuevo con eclipse, soy de México de BC, y dejo la creación de mi propio engine, para tomar este, me surgen varias dudas,

e visto varias versiones de eclipse engine, la dragón la noche, me pregunto cual de estas es la mas actual?.

Otra cosa, la opción de moverse en diagonal. que opinan de esto?. y moverse dando clic?.

Tal vez alguien ya tenga hecho estas partes, o no se an realizado por alguna razón.