Skip to content

Commit

Permalink
Update InvUsuario.bas
Browse files Browse the repository at this point in the history 
Sumo ID que ya están en recursos
  • Loading branch information
@ReyarB
ReyarB committed Dec 9, 2024
1 parent 916300b commit 03ac503
Showing 1 changed file with 30 additions and 15 deletions.
45 changes: 30 additions & 15 deletions Codigo/InvUsuario.bas
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2082,7 +2082,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As

326 If .flags.Envenenado > 0 Then
328 .flags.Envenenado = 0
330 Call WriteConsoleMsg(UserIndex, "Te has curado del envenenamiento.", e_FontTypeNames.FONTTYPE_INFO)
330 ' Msg682=Te has curado del envenenamiento.
Call WriteLocaleMsg(UserIndex, "682", e_FontTypeNames.FONTTYPE_INFO)
'Quitamos del inv el item
332 Call QuitarUserInvItem(UserIndex, Slot, 1)

Expand All @@ -2095,7 +2096,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
End If

Else
340 Call WriteConsoleMsg(UserIndex, "¡No te encuentras envenenado!", e_FontTypeNames.FONTTYPE_INFO)
340 ' Msg683=¡No te encuentras envenenado!
Call WriteLocaleMsg(UserIndex, "683", e_FontTypeNames.FONTTYPE_INFO)

End If

Expand Down Expand Up @@ -2127,9 +2129,11 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As

End If

368 Call WriteConsoleMsg(UserIndex, "Te has removido la paralizis.", e_FontTypeNames.FONTTYPE_INFOIAO)
368 ' Msg684=Te has removido la paralizis.
Call WriteLocaleMsg(UserIndex, "684", e_FontTypeNames.FONTTYPE_INFOIAO)
Else
370 Call WriteConsoleMsg(UserIndex, "No estas paralizado.", e_FontTypeNames.FONTTYPE_INFOIAO)
370 ' Msg685=No estas paralizado.
Call WriteLocaleMsg(UserIndex, "685", e_FontTypeNames.FONTTYPE_INFOIAO)

End If

Expand Down Expand Up @@ -2214,7 +2218,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
448 If CabezaActual <> CabezaFinal Then
450 Call QuitarUserInvItem(UserIndex, Slot, 1)
Else
452 Call WriteConsoleMsg(UserIndex, "¡Rayos! Te tocó la misma cabeza, item no consumido. Tienes otra oportunidad.", e_FontTypeNames.FONTTYPE_INFOIAO)
452 ' Msg686=¡Rayos! Te tocó la misma cabeza, item no consumido. Tienes otra oportunidad.
Call WriteLocaleMsg(UserIndex, "686", e_FontTypeNames.FONTTYPE_INFOIAO)

End If

Expand Down Expand Up @@ -2303,7 +2308,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As

536 If .flags.invisible = 0 And .Counters.DisabledInvisibility = 0 Then
If IsSet(.flags.StatusMask, eTaunting) Then
Call WriteConsoleMsg(UserIndex, "No tiene efecto.", e_FontTypeNames.FONTTYPE_New_Amarillo_Oscuro)
' Msg687=No tiene efecto.
Call WriteLocaleMsg(UserIndex, "687", e_FontTypeNames.FONTTYPE_New_Amarillo_Oscuro)
Exit Sub
End If
538 .flags.invisible = 1
Expand All @@ -2320,10 +2326,12 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As

End If

554 Call WriteConsoleMsg(UserIndex, "Te has escondido entre las sombras...", e_FontTypeNames.FONTTYPE_New_Amarillo_Oscuro)
554 ' Msg688=Te has escondido entre las sombras...
Call WriteLocaleMsg(UserIndex, "688", e_FontTypeNames.FONTTYPE_New_Amarillo_Oscuro)

Else
556 Call WriteConsoleMsg(UserIndex, "Ya estas invisible.", e_FontTypeNames.FONTTYPE_New_Amarillo_Oscuro)
556 ' Msg689=Ya estás invisible.
Call WriteLocaleMsg(UserIndex, "689", e_FontTypeNames.FONTTYPE_New_Amarillo_Oscuro)
Exit Sub
End If

Expand Down Expand Up @@ -2370,7 +2378,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As


674 Call WriteUpdateHungerAndThirst(UserIndex)
676 Call WriteConsoleMsg(UserIndex, "Donador> Te sentis sano y lleno.", e_FontTypeNames.FONTTYPE_WARNING)
676 ' Msg690=Donador> Te sentís sano y lleno.
Call WriteLocaleMsg(UserIndex, "690", e_FontTypeNames.FONTTYPE_WARNING)

678 If obj.Snd1 <> 0 Then
680 Call SendData(SendTarget.toPCAliveArea, UserIndex, PrepareMessagePlayWave(obj.Snd1, .Pos.X, .Pos.y))
Expand All @@ -2384,7 +2393,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
684 Case 14

686 If MapData(.Pos.Map, .Pos.X, .Pos.Y).trigger = CARCEL Then
688 Call WriteConsoleMsg(UserIndex, "No podes usar la runa estando en la carcel.", e_FontTypeNames.FONTTYPE_INFO)
688 ' Msg691=No podés usar la runa estando en la cárcel.
Call WriteLocaleMsg(UserIndex, "691", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub

End If
Expand Down Expand Up @@ -3056,12 +3066,14 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
Select Case obj.Subtipo
Case 1
1214 If .Counters.Pena <> 0 Then
1216 Call WriteConsoleMsg(UserIndex, "No podes usar la runa estando en la carcel.", e_FontTypeNames.FONTTYPE_INFO)
1216 ' Msg691=No podés usar la runa estando en la cárcel.
Call WriteLocaleMsg(UserIndex, "691", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If

1218 If MapData(.Pos.Map, .Pos.X, .Pos.Y).trigger = CARCEL Then
1220 Call WriteConsoleMsg(UserIndex, "No podes usar la runa estando en la carcel.", e_FontTypeNames.FONTTYPE_INFO)
1220 ' Msg691=No podés usar la runa estando en la cárcel.
Call WriteLocaleMsg(UserIndex, "691", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub
End If

Expand Down Expand Up @@ -3120,19 +3132,22 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
1308 Case e_OBJType.otRunas

1310 If .Counters.Pena <> 0 Then
1312 Call WriteConsoleMsg(UserIndex, "No podes usar la runa estando en la carcel.", e_FontTypeNames.FONTTYPE_INFO)
1312 ' Msg691=No podés usar la runa estando en la cárcel.
Call WriteLocaleMsg(UserIndex, "691", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub

End If

1314 If MapData(.Pos.Map, .Pos.X, .Pos.Y).trigger = CARCEL Then
1316 Call WriteConsoleMsg(UserIndex, "No podes usar la runa estando en la carcel.", e_FontTypeNames.FONTTYPE_INFO)
1316 ' Msg691=No podés usar la runa estando en la cárcel.
Call WriteLocaleMsg(UserIndex, "691", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub

End If

1318 If MapInfo(.Pos.Map).Seguro = 0 And .flags.Muerto = 0 Then
1320 Call WriteConsoleMsg(UserIndex, "Solo podes usar tu runa en zonas seguras.", e_FontTypeNames.FONTTYPE_INFO)
1320 ' Msg692=Solo podes usar tu runa en zonas seguras.
Call WriteLocaleMsg(UserIndex, "692", e_FontTypeNames.FONTTYPE_INFO)
Exit Sub

End If
Expand Down

0 comments on commit 03ac503

Please sign in to comment.