No gastar municiones si no le pegas al NPC.

Ir abajo

No gastar municiones si no le pegas al NPC.

Mensaje por Toyz el 14/3/2016, 4:44 am

Buscan:

Código:
Call QuitarUserInvItem(UserIndex, DummyInt, 1)
                             

                                If .Object(DummyInt).Amount > 0 Then
                                    'QuitarUserInvItem unequips the ammo, so we equip it again
                                    .MunicionEqpSlot = DummyInt
                                    .MunicionEqpObjIndex = .Object(DummyInt).ObjIndex
                                    .Object(DummyInt).Equipped = 1
                                Else
                                    .MunicionEqpSlot = 0
                                    .MunicionEqpObjIndex = 0
                                End If
                                ' Tiene equipado un arma arrojadiza
                            Else
                                DummyInt = .WeaponEqpSlot

                                'Take 1 knife away
                                Call QuitarUserInvItem(UserIndex, DummyInt, 1)

                                If .Object(DummyInt).Amount > 0 Then
                                    'QuitarUserInvItem unequips the weapon, so we equip it again
                                    .WeaponEqpSlot = DummyInt
                                    .WeaponEqpObjIndex = .Object(DummyInt).ObjIndex
                                    .Object(DummyInt).Equipped = 1
                                Else
                                    .WeaponEqpSlot = 0
                                    .WeaponEqpObjIndex = 0
                                End If

Reemplazan todo eso por esto:

Código:
If UserList(UserIndex).flags.TargetNPC > 0 Then
                                    Call QuitarUserInvItem(UserIndex, DummyInt, 1)
                             

                                If .Object(DummyInt).Amount > 0 Then
                                    'QuitarUserInvItem unequips the ammo, so we equip it again
                                    .MunicionEqpSlot = DummyInt
                                    .MunicionEqpObjIndex = .Object(DummyInt).ObjIndex
                                    .Object(DummyInt).Equipped = 1
                                Else
                                    .MunicionEqpSlot = 0
                                    .MunicionEqpObjIndex = 0
                                End If
                                ' Tiene equipado un arma arrojadiza
                            Else
                                DummyInt = .WeaponEqpSlot

                                'Take 1 knife away
                                Call QuitarUserInvItem(UserIndex, DummyInt, 1)

                                If .Object(DummyInt).Amount > 0 Then
                                    'QuitarUserInvItem unequips the weapon, so we equip it again
                                    .WeaponEqpSlot = DummyInt
                                    .WeaponEqpObjIndex = .Object(DummyInt).ObjIndex
                                    .Object(DummyInt).Equipped = 1
                                Else
                                    .WeaponEqpSlot = 0
                                    .WeaponEqpObjIndex = 0
                                End If
                            End If
avatar
Toyz
Administrador
Administrador

¿BANEADO? : No.
Premios :
[1er puesto] Usuario del año 2016
Cantidad de envíos : 5045
Edad : 17
Localización : Global.
Fecha de inscripción : 28/09/2014

Ver perfil de usuario

Volver arriba Ir abajo

Volver arriba


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