No estás conectado. Conéctate o registrate

Aporte] /Mover (Alkon 0.11.5)

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Aporte] /Mover (Alkon 0.11.5) el Miér Abr 29, 2009 2:35 pm

ArreK


USUARIO REGISTRADO
Bueno este code lo hiso un amigo conmigo en la casa de el asi qe lo posteo como mio xD.


Bueno gente... vengo a presentarles mi más reciente creación (?)


MODO DE USO: Clickear al Casper q piquetea, e ingresar "/MOVER"... el casper se correra automaticamente un Tile para dejarte pasar/lukear Very Happy


Arriba de /ONLINE


Código:
Case "/MOVER"
 
                If UserList(UserIndex).flags.Muerto = 1 Then Exit Sub
             
                If UserList(UserIndex).flags.TargetUser = 0 Then Exit Sub
             
                If UserList(UserList(UserIndex).flags.TargetUser).flags.Muerto = 0 Then Exit Sub
 
  If Distancia(UserList(UserIndex).Pos, UserList(UserList(UserIndex).flags.TargetUser).Pos) > 2 Then Exit Sub
 
                    Dim CHOTSpos As WorldPos
                    CHOTSpos.Y = UserList(UserList(UserIndex).flags.TargetUser).Pos.Y + 1
                    CHOTSpos.X = UserList(UserList(UserIndex).flags.TargetUser).Pos.X
                    CHOTSpos.Map = UserList(UserList(UserIndex).flags.TargetUser).Pos.Map
                   
                    Dim CHOTSpos2 As WorldPos
                    CHOTSpos2.Y = UserList(UserList(UserIndex).flags.TargetUser).Pos.Y
                    CHOTSpos2.X = UserList(UserList(UserIndex).flags.TargetUser).Pos.X + 1
                    CHOTSpos2.Map = UserList(UserList(UserIndex).flags.TargetUser).Pos.Map
                   
                    Dim CHOTSpos3 As WorldPos
                    CHOTSpos3.Y = UserList(UserList(UserIndex).flags.TargetUser).Pos.Y - 1
                    CHOTSpos3.X = UserList(UserList(UserIndex).flags.TargetUser).Pos.X
                    CHOTSpos3.Map = UserList(UserList(UserIndex).flags.TargetUser).Pos.Map
                   
                    Dim CHOTSpos4 As WorldPos
                    CHOTSpos4.Y = UserList(UserList(UserIndex).flags.TargetUser).Pos.Y
                    CHOTSpos4.X = UserList(UserList(UserIndex).flags.TargetUser).Pos.X - 1
                    CHOTSpos4.Map = UserList(UserList(UserIndex).flags.TargetUser).Pos.Map
               
                If LegalPos(CHOTSpos.Map, CHOTSpos.X, CHOTSpos.Y, False) Then
                Call WarpUserChar(UserList(UserIndex).flags.TargetUser, CHOTSpos.Map, CHOTSpos.X, CHOTSpos.Y, False)
                ElseIf LegalPos(CHOTSpos2.Map, CHOTSpos2.X, CHOTSpos2.Y, False) Then
                Call WarpUserChar(UserList(UserIndex).flags.TargetUser, CHOTSpos2.Map, CHOTSpos2.X, CHOTSpos2.Y, False)
                ElseIf LegalPos(CHOTSpos3.Map, CHOTSpos3.X, CHOTSpos3.Y, False) Then
                Call WarpUserChar(UserList(UserIndex).flags.TargetUser, CHOTSpos3.Map, CHOTSpos3.X, CHOTSpos3.Y, False)
                ElseIf LegalPos(CHOTSpos4.Map, CHOTSpos4.X, CHOTSpos4.Y, False) Then
                Call WarpUserChar(UserList(UserIndex).flags.TargetUser, CHOTSpos4.Map, CHOTSpos4.X, CHOTSpos4.Y, False)
                End If
                UserList(UserIndex).flags.TargetUser = 0
    Exit Sub




Despues si les copa, pueden hacer q el cliente mande "/MOVER" cuando hagas doble click... para mas facilidad Very Happy

Creo qe este va a ser mi ultimo aporte por el dia de hoy, luego posteo un mapa.
En la seccion de [AYUDA ARGENTUM]

Espero qe todo lo que les di les sirva a la hora de realizar su servidor,
les puse desde los link y como empezarlo y todos los codes luego tambien en [AYUDA ARGENTUM] posteo como hacer una NO-IP.

Ver perfil de usuario

2 Re: Aporte] /Mover (Alkon 0.11.5) el Miér Abr 29, 2009 3:19 pm

Crixis


MODERADOR GLOBAL
Excelente Aporte De (10+)

Suerte y segui asi que vas en buen camino Smile


Atte: Crixis(Cristian)


_________________
Ver perfil de usuario

3 Re: Aporte] /Mover (Alkon 0.11.5) el Miér Abr 29, 2009 3:25 pm

ArreK


USUARIO REGISTRADO
jeje gracias cristian pero una cosa vos haces copy/paste xq vi que en todos los thread pones lo mismo ¬¬

ON: jeje igualmente gracias a ustedes, y vi que implementaron el boton GRACIAS eso es de lo mejor.

Ver perfil de usuario

4 Sheker Hunder el Jue Abr 30, 2009 10:14 pm

Sheker hunder


USUARIO REGISTRADO
Bien , bastante bien gracias..!

Ver perfil de usuario

5 Re: Aporte] /Mover (Alkon 0.11.5) el Vie Mayo 01, 2009 2:55 pm

franeg95


USUARIO REGISTRADO
Se agradece, aunque estaria bueno que se moviera solo al tratar de pisar el tile del ususario

Ver perfil de usuario

6 ArreK el Vie Mayo 01, 2009 4:49 pm

ArreK


USUARIO REGISTRADO
Me olvide de algo:

Solo se puede usar el comando estando a 2 tiles o menos de distancia del casper.

Ahora veo si edito para qe en lugar de tener qe poner /mover se mueva con solo hacerle 2ble click y estando a 5 tiles o menos de distancia Smile

Ver perfil de usuario

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.