Script Npc

    Compartilhe
    avatar
    Thales12
    Administrador
    Administrador

    Mensagens : 140
    Level : 8
    Data de inscrição : 01/11/2011
    Idade : 23
    Localização : Rio de Janeiro

    default Script Npc

    Mensagem por Thales12 em Qua Fev 15, 2012 2:57 am

    Client~Side

    No frmEditor_Npc na mbBehaviour adicone ao final da lista:

    Código:
    Script


    Procure por:

    Código:
    Public Const NPC_BEHAVIOUR_GUARD As Byte = 4


    E abaixo adicione:

    Código:
    Public Const NPC_BEHAVIOUR_SCRIPT As Byte = 5


    Serve~Side

    Procure por:

    Código:
    Public Const NPC_BEHAVIOUR_GUARD As Byte = 4


    Abaixo adicione:

    Código:
    Public Const NPC_BEHAVIOUR_SCRIPT As Byte = 5


    Procure por:

    Código:
    If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER Then


    E mude para:

    Código:
    If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SCRIPT Then


    Agora procure por:

    Código:
                If NpcX = GetPlayerX(Attacker) Then
                    If NpcY = GetPlayerY(Attacker) Then
                        If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER Then
                            CanAttackNpc = True
                        Else
                            If Len(Trim$(Npc(NpcNum).AttackSay)) > 0 Then
                                PlayerMsg Attacker, Trim$(Npc(NpcNum).Name) & ": " & Trim$(Npc(NpcNum).AttackSay), White
                            End If
                        End If
                    End If
                End If


    E mude para:

    Código:
                If NpcX = GetPlayerX(Attacker) Then
                    If NpcY = GetPlayerY(Attacker) Then
                        If Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_FRIENDLY And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SHOPKEEPER And Npc(NpcNum).Behaviour <> NPC_BEHAVIOUR_SCRIPT Then
                            CanAttackNpc = True
                        ElseIf Npc(NpcNum).Behaviour = NPC_BEHAVIOUR_SCRIPT Then
                                Select Case Npc(NpcNum).range
                                    Case 0
                                        'Adicione o script aqui
                                        Exit Function
                                End Select
                                Exit Function
                            If Len(Trim$(Npc(NpcNum).AttackSay)) > 0 Then
                                PlayerMsg Attacker, Trim$(Npc(NpcNum).Name) & ": " & Trim$(Npc(NpcNum).AttackSay), White
                            End If
                        End If
                    End If
                End If


    Creditos:

    Ricardo

      Data/hora atual: Sab Ago 18, 2018 3:21 am