I avoid unequipping and if the flag=Special Fish (#435)

ao-org · Nov 5, 2023 · 8ff4640 · 8ff4640
1 parent a84ed48
commit 8ff4640
Showing 1 changed file with 13 additions and 11 deletions.
diff --git a/Codigo/InvUsuario.bas b/Codigo/InvUsuario.bas
@@ -865,18 +865,20 @@ Sub Desequipar(ByVal UserIndex As Integer, ByVal Slot As Byte)
                 ' UserList(UserIndex).Invent.AnilloEqpSlot = 0
 
 136         Case e_OBJType.otHerramientas
-138             UserList(UserIndex).Invent.Object(Slot).Equipped = 0
-140             UserList(UserIndex).Invent.HerramientaEqpObjIndex = 0
-142             UserList(UserIndex).Invent.HerramientaEqpSlot = 0
-
-144             If UserList(UserIndex).flags.UsandoMacro = True Then
-146                 Call WriteMacroTrabajoToggle(UserIndex, False)
-                End If
-
-148             UserList(UserIndex).Char.WeaponAnim = NingunArma
+137             If UserList(UserIndex).flags.PescandoEspecial = False Then
+138                 UserList(UserIndex).invent.Object(Slot).Equipped = 0
+140                 UserList(UserIndex).invent.HerramientaEqpObjIndex = 0
+142                 UserList(UserIndex).invent.HerramientaEqpSlot = 0
+
+144                 If UserList(UserIndex).flags.UsandoMacro = True Then
+146                     Call WriteMacroTrabajoToggle(UserIndex, False)
+                    End If
 
-150             If UserList(UserIndex).flags.Montado = 0 Then
-152                 Call ChangeUserChar(UserIndex, UserList(UserIndex).Char.body, UserList(UserIndex).Char.head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim, UserList(UserIndex).Char.CartAnim)
+148                 UserList(UserIndex).Char.WeaponAnim = NingunArma
+
+150                 If UserList(UserIndex).flags.Montado = 0 Then
+152                     Call ChangeUserChar(UserIndex, UserList(UserIndex).Char.body, UserList(UserIndex).Char.head, UserList(UserIndex).Char.Heading, UserList(UserIndex).Char.WeaponAnim, UserList(UserIndex).Char.ShieldAnim, UserList(UserIndex).Char.CascoAnim, UserList(UserIndex).Char.CartAnim)
+                    End If
                 End If
 
 154         Case e_OBJType.otMagicos