[Aportes indexados] Doble Clic para Comerciar, Resucitar, Entrenar, Curar y Boveda

Estado
Cerrado para nuevas respuestas.

Shura

Dragón Ancestral Lvl 2
abajo de:
Código:
Case 6 'Es una puerta 
                Call AccionParaPuerta(Map, x, y + 1, UserIndex) 
            
        End Select

coloquen este codigo:

Código:
ElseIf MapData(Map, X, Y).NpcIndex > 0 Then
        If Npclist(MapData(Map, X, Y).NpcIndex).Comercia = 1 Then 'se fija si el NPC puede comerciar 
              If Distancia(Npclist(UserList(UserIndex).flags.TargetNpc).Pos, UserList(UserIndex).Pos) > 3 Then 'tenes que estar cerca  
                  Call SendData(ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO) 
                  Exit Sub 
              End If 
              Call IniciarCOmercioNPC(UserIndex) 'a ver que me compro 
        ElseIf Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = 1 Then 
              If Distancia(Npclist(UserList(UserIndex).flags.TargetNpc).Pos, UserList(UserIndex).Pos) > 3 Then 'tenes que estar cerca  
                  Call SendData(ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO) 
                  Exit Sub 
              End If 
                  If UserList(UserIndex).flags.Muerto = 1 Then 'si esta muerto te revive y te cura 
                    Call RevivirUsuario(UserIndex) 
                    UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP 
                    Call SendUserStatsBox(val(UserIndex)) 
                    Call SendData(ToIndex, UserIndex, 0, "||¡¡has sido resucitado!!" & FONTTYPE_INFO) 
                    Call SendData(ToIndex, UserIndex, 0, "||¡¡has sido curado!!" & FONTTYPE_INFO) 
                  Else 'si estas vivo solo te cura 
                    UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP 
                    Call SendUserStatsBox(val(UserIndex)) 
                    Call SendData(ToIndex, UserIndex, 0, "||¡¡has sido curado!!" & FONTTYPE_INFO) 
                  End If 
        ElseIf Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = 3 Then 'vamos a entrenar 
              If Distancia(Npclist(UserList(UserIndex).flags.TargetNpc).Pos, UserList(UserIndex).Pos) > 3 Then 'tenes que estar cerca  
                  Call SendData(ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO) 
                  Exit Sub 
              End If 
              Call EnviarListaCriaturas(UserIndex, UserList(UserIndex).flags.TargetNpc) 
        ElseIf Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = 4 Then 'perame que bovedeo 
            If UserList(UserIndex).flags.Muerto = 1 Then 
                      Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas muerto!!" & FONTTYPE_INFO) 
                      Exit Sub 
            End If 
              If Distancia(Npclist(UserList(UserIndex).flags.TargetNpc).Pos, UserList(UserIndex).Pos) > 3 Then 'tenes que estar cerca 
                  Call SendData(ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO) 
                  Exit Sub 
              End If 
              Call IniciarDeposito(UserIndex) 
        End If

antes de:

Código:
    Else 
        UserList(UserIndex).flags.TargetNpc = 0 
        UserList(UserIndex).flags.TargetNpcTipo = 0 
        UserList(UserIndex).flags.TargetUser = 0 
        UserList(UserIndex).flags.TargetObj = 0 
        Call SendData(ToIndex, UserIndex, 0, "" & FONTTYPE_INFO) 
    End If 
    
End If 
 
End Sub
 
A

Anonymous

Invitado
che ago todo lo que pide y no me lo toma :S

osea actualizo y todo y sigue sin andar,


podrian poner como quedaria toooodo el archivo "acciones"
digamos todas las letritras xD
 

ShreddeR

Newbie Lvl 1
no anda perfecto si lo ubicas como esta ahi !

nota: el clic a los npcs se lo tenes q hacer aproximadamente en los pies

salu2
 
A

Anonymous

Invitado
no podria aser algien uno y que lo suba y no lo bajamos listo para agregar ?¿?¿ :)
 

Orion

Newbie Lvl 5
manucai dijo:
no podria aser algien uno y que lo suba y no lo bajamos listo para agregar ?¿?¿ :)
a ver...

Shura dijo:
abajo de:
Código:
Case 6 'Es una puerta 
                Call AccionParaPuerta(Map, x, y + 1, UserIndex) 
            
        End Select

coloquen este codigo:

Código:
ElseIf MapData(Map, X, Y).NpcIndex > 0 Then
        If Npclist(MapData(Map, X, Y).NpcIndex).Comercia = 1 Then 'se fija si el NPC puede comerciar 
              If Distancia(Npclist(UserList(UserIndex).flags.TargetNpc).Pos, UserList(UserIndex).Pos) > 3 Then 'tenes que estar cerca  
                  Call SendData(ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO) 
                  Exit Sub 
              End If 
              Call IniciarCOmercioNPC(UserIndex) 'a ver que me compro 
        ElseIf Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = 1 Then 
              If Distancia(Npclist(UserList(UserIndex).flags.TargetNpc).Pos, UserList(UserIndex).Pos) > 3 Then 'tenes que estar cerca  
                  Call SendData(ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO) 
                  Exit Sub 
              End If 
                  If UserList(UserIndex).flags.Muerto = 1 Then 'si esta muerto te revive y te cura 
                    Call RevivirUsuario(UserIndex) 
                    UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP 
                    Call SendUserStatsBox(val(UserIndex)) 
                    Call SendData(ToIndex, UserIndex, 0, "||¡¡has sido resucitado!!" & FONTTYPE_INFO) 
                    Call SendData(ToIndex, UserIndex, 0, "||¡¡has sido curado!!" & FONTTYPE_INFO) 
                  Else 'si estas vivo solo te cura 
                    UserList(UserIndex).Stats.MinHP = UserList(UserIndex).Stats.MaxHP 
                    Call SendUserStatsBox(val(UserIndex)) 
                    Call SendData(ToIndex, UserIndex, 0, "||¡¡has sido curado!!" & FONTTYPE_INFO) 
                  End If 
        ElseIf Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = 3 Then 'vamos a entrenar 
              If Distancia(Npclist(UserList(UserIndex).flags.TargetNpc).Pos, UserList(UserIndex).Pos) > 3 Then 'tenes que estar cerca  
                  Call SendData(ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO) 
                  Exit Sub 
              End If 
              Call EnviarListaCriaturas(UserIndex, UserList(UserIndex).flags.TargetNpc) 
        ElseIf Npclist(MapData(Map, X, Y).NpcIndex).NPCtype = 4 Then 'perame que bovedeo 
            If UserList(UserIndex).flags.Muerto = 1 Then 
                      Call SendData(ToIndex, UserIndex, 0, "||¡¡Estas muerto!!" & FONTTYPE_INFO) 
                      Exit Sub 
            End If 
              If Distancia(Npclist(UserList(UserIndex).flags.TargetNpc).Pos, UserList(UserIndex).Pos) > 3 Then 'tenes que estar cerca 
                  Call SendData(ToIndex, UserIndex, 0, "||Estas demasiado lejos." & FONTTYPE_INFO) 
                  Exit Sub 
              End If 
              Call IniciarDeposito(UserIndex) 
        End If

antes de:

Código:
    Else 
        UserList(UserIndex).flags.TargetNpc = 0 
        UserList(UserIndex).flags.TargetNpcTipo = 0 
        UserList(UserIndex).flags.TargetUser = 0 
        UserList(UserIndex).flags.TargetObj = 0 
        Call SendData(ToIndex, UserIndex, 0, "" & FONTTYPE_INFO) 
    End If 
    
End If 
 
End Sub
ahi? -.-
 
Estado
Cerrado para nuevas respuestas.
Arriba