ID Nuevos Para el server

ao-org · Dec 9, 2024 · d49c164 · d49c164
1 parent f97cfd6
commit d49c164
Show file tree

Hide file tree

Showing 4 changed files with 139 additions and 72 deletions.
diff --git a/Codigo/InvUsuario.bas b/Codigo/InvUsuario.bas
@@ -266,7 +266,8 @@ Sub QuitarNewbieObj(ByVal UserIndex As Integer)
         'Mandamos a la Isla de la Fortuna
 
         Call WarpUserChar(UserIndex, Renacimiento.Map, Renacimiento.x, Renacimiento.y, True)
-        Call WriteConsoleMsg(UserIndex, "Has dejado de ser Newbie.", e_FontTypeNames.FONTTYPE_INFO)
+        ' Msg671=Has dejado de ser Newbie.
+        Call WriteLocaleMsg(UserIndex, "671", e_FontTypeNames.FONTTYPE_INFO)
 
         Exit Sub
 
@@ -753,7 +754,8 @@ Sub PickObj(ByVal UserIndex As Integer)
 102         If ObjData(MapData(UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y).ObjInfo.ObjIndex).Agarrable <> 1 Then
 
 104             If UserList(UserIndex).flags.Montado = 1 Then
-106                 Call WriteConsoleMsg(UserIndex, "Debes descender de tu montura para agarrar objetos del suelo.", e_FontTypeNames.FONTTYPE_INFO)
+106                 ' Msg672=Debes descender de tu montura para agarrar objetos del suelo.
+                    Call WriteLocaleMsg(UserIndex, "672", e_FontTypeNames.FONTTYPE_INFO)
                     Exit Sub
                 End If
                 If Not UserCanPickUpItem(UserIndex) Then
@@ -955,7 +957,8 @@ Sub Desequipar(ByVal UserIndex As Integer, ByVal Slot As Byte)
 
                     Case e_MagicItemEffect.eTalkToDead
                         Call UnsetMask(UserList(UserIndex).flags.StatusMask, e_StatusMask.eTalkToDead)
-                        Call WriteConsoleMsg(UserIndex, "Dejas el mundo de los muertos, ya no podrás comunicarte con ellos.", e_FontTypeNames.FONTTYPE_WARNING)
+                        ' Msg673=Dejas el mundo de los muertos, ya no podrás comunicarte con ellos.
+                        Call WriteLocaleMsg(UserIndex, "673", e_FontTypeNames.FONTTYPE_WARNING)
                         Call SendData(SendTarget.ToPCDeadAreaButIndex, UserIndex, PrepareMessageCharacterRemove(4, UserList(UserIndex).Char.charindex, False, True))
                 End Select
 
@@ -1271,7 +1274,8 @@ Sub EquiparInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte)
 154                 If obj.DosManos = 1 Then
 156                     If .Invent.EscudoEqpObjIndex > 0 Then
 158                         Call Desequipar(UserIndex, .Invent.EscudoEqpSlot)
-160                         Call WriteConsoleMsg(UserIndex, "No puedes usar armas dos manos si tienes un escudo equipado. Tu escudo fue desequipado.", e_FontTypeNames.FONTTYPE_INFOIAO)
+160                         ' Msg674=No puedes usar armas dos manos si tienes un escudo equipado. Tu escudo fue desequipado.
+                            Call WriteLocaleMsg(UserIndex, "674", e_FontTypeNames.FONTTYPE_INFOIAO)
                         End If
                     End If
 
@@ -1416,7 +1420,8 @@ Sub EquiparInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte)
 
                         Case e_MagicItemEffect.eTalkToDead
                             Call SetMask(.flags.StatusMask, e_StatusMask.eTalkToDead)
-                            Call WriteConsoleMsg(UserIndex, "Entras al mundo de los muertos, ahora podrás comunicarte con ellos.", e_FontTypeNames.FONTTYPE_WARNING)
+                            ' Msg675=Entras al mundo de los muertos, ahora podrás comunicarte con ellos.
+                            Call WriteLocaleMsg(UserIndex, "675", e_FontTypeNames.FONTTYPE_WARNING)
                             Call CheckUpdateNeededUser(UserIndex, USER_NUEVO, True, 1)
                     End Select
 
@@ -1461,7 +1466,8 @@ Sub EquiparInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte)
                     Ropaje = ObtenerRopaje(UserIndex, Obj)
 
 372                 If Ropaje = 0 Then
-374                     Call WriteConsoleMsg(UserIndex, "Hay un error con este objeto. Infórmale a un administrador.", e_FontTypeNames.FONTTYPE_INFO)
+374                     ' Msg676=Hay un error con este objeto. Infórmale a un administrador.
+                        Call WriteLocaleMsg(UserIndex, "676", e_FontTypeNames.FONTTYPE_INFO)
                         Exit Sub
                     End If
 
@@ -1581,7 +1587,8 @@ Sub EquiparInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte)
 484                 If .Invent.WeaponEqpObjIndex > 0 Then
 486                     If ObjData(.Invent.WeaponEqpObjIndex).DosManos = 1 Then
 488                         Call Desequipar(UserIndex, .Invent.WeaponEqpSlot)
-490                         Call WriteConsoleMsg(UserIndex, "No puedes equipar un escudo si tienes un arma dos manos equipada. Tu arma fue desequipada.", e_FontTypeNames.FONTTYPE_INFOIAO)
+490                         ' Msg677=No puedes equipar un escudo si tienes un arma dos manos equipada. Tu arma fue desequipada.
+                            Call WriteLocaleMsg(UserIndex, "677", e_FontTypeNames.FONTTYPE_INFOIAO)
                         End If
                     End If
 
@@ -1628,8 +1635,8 @@ Sub EquiparInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte)
                         .Invent.ResistenciaEqpObjIndex = .Invent.Object(Slot).ObjIndex
 530                     .Invent.ResistenciaEqpSlot = Slot
                         Call WriteUpdateRM(userindex)
-                    ElseIf ObjData(.invent.Object(Slot).objIndex).OBJType = e_OBJType.otDañoMagico Then
-528                     .invent.DañoMagicoEqpObjIndex = .invent.Object(Slot).objIndex
+                    ElseIf ObjData(.invent.Object(Slot).ObjIndex).OBJType = e_OBJType.otDañoMagico Then
+528                     .invent.DañoMagicoEqpObjIndex = .invent.Object(Slot).ObjIndex
                         .invent.DañoMagicoEqpSlot = Slot
 538                     Call WriteUpdateDM(userindex)
 
@@ -1762,7 +1769,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
 
             If IsSet(obj.ObjFlags, e_ObjFlags.e_UseOnSafeAreaOnly) Then
                 If MapInfo(.pos.Map).Seguro = 0 Then
-                    Call WriteConsoleMsg(UserIndex, "Solo podes usar este objeto en mapas seguros.", e_FontTypeNames.FONTTYPE_INFO)
+                    ' Msg678=Solo podes usar este objeto en mapas seguros.
+                    Call WriteLocaleMsg(UserIndex, "678", e_FontTypeNames.FONTTYPE_INFO)
                     Exit Sub
                 End If
             End If
@@ -1800,7 +1808,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
             End If
 
 126         If obj.Newbie = 1 And Not EsNewbie(UserIndex) And Not EsGM(UserIndex) Then
-128             Call WriteConsoleMsg(UserIndex, "Solo los newbies pueden usar estos objetos.", e_FontTypeNames.FONTTYPE_INFO)
+128             ' Msg679=Solo los newbies pueden usar estos objetos.
+                Call WriteLocaleMsg(UserIndex, "679", e_FontTypeNames.FONTTYPE_INFO)
                 Exit Sub
 
             End If
@@ -1937,7 +1946,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
 236                         Call WriteWorkRequestTarget(UserIndex, e_Skill.Talar)
 
 238                     Case 7     ' Herramientas de Herrero - Martillo
-240                         Call WriteConsoleMsg(UserIndex, "Debes hacer click derecho sobre el yunque.", e_FontTypeNames.FONTTYPE_INFOIAO)
+240                         ' Msg680=Debes hacer click derecho sobre el yunque.
+                            Call WriteLocaleMsg(UserIndex, "680", e_FontTypeNames.FONTTYPE_INFOIAO)
 
 242                     Case 8     ' Herramientas de Mineria - Piquete
 244                         Call WriteWorkRequestTarget(UserIndex, e_Skill.Mineria)
@@ -1958,7 +1968,8 @@ Sub UseInvItem(ByVal UserIndex As Integer, ByVal Slot As Byte, ByVal ByClick As
                     End If
 
                     If Not IntervaloPermiteGolpeUsar(UserIndex, False) Then
-                        Call WriteConsoleMsg(UserIndex, "¡¡Debes esperar unos momentos para tomar otra poción!!", e_FontTypeNames.FONTTYPE_INFO)
+                        ' Msg681=¡¡Debes esperar unos momentos para tomar otra poción!!
+                        Call WriteLocaleMsg(UserIndex, "681", e_FontTypeNames.FONTTYPE_INFO)
                         Exit Sub
                     End If