From 161f802726ff2c58cb15af472e9e75fdd5fc876e Mon Sep 17 00:00:00 2001 From: ReyarB <50249497+ReyarB@users.noreply.github.com> Date: Mon, 9 Dec 2024 23:16:45 -0300 Subject: [PATCH] Agrego ID del 693 al 735 --- Codigo/InvUsuario.bas | 5 +- Codigo/Protocol.bas | 147 ++++++++++++++++++++++----------- Codigo/Protocol_GmCommands.bas | 30 ++++--- Codigo/SistemaCombate.bas | 3 +- Codigo/modHechizos.bas | 5 +- 5 files changed, 126 insertions(+), 64 deletions(-) diff --git a/Codigo/InvUsuario.bas b/Codigo/InvUsuario.bas index 7384b55e..ca9d6c01 100644 --- a/Codigo/InvUsuario.bas +++ b/Codigo/InvUsuario.bas @@ -3508,8 +3508,9 @@ On Error GoTo ResurrectWithItem_Err End If 106 CanHelpResult = UserMod.CanHelpUser(UserIndex, targetUser) If UserList(TargetUser).flags.SeguroResu Then - Call WriteConsoleMsg(UserIndex, "El usuario tiene el seguro de resurrección activado.", e_FontTypeNames.FONTTYPE_INFO) - Call WriteConsoleMsg(TargetUser, UserList(UserIndex).Name & " está intentando revivirte. Desactiva el seguro de resurrección para permitirle hacerlo.", e_FontTypeNames.FONTTYPE_INFO) + ' Msg693=El usuario tiene el seguro de resurrección activado. + Call WriteLocaleMsg(UserIndex, "693", e_FontTypeNames.FONTTYPE_INFO) + Call WriteConsoleMsg(TargetUser, UserList(UserIndex).name & " está intentando revivirte. Desactiva el seguro de resurrección para permitirle hacerlo.", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If If CanHelpResult <> eInteractionOk Then diff --git a/Codigo/Protocol.bas b/Codigo/Protocol.bas index 39d5f2e4..4e52d67d 100644 --- a/Codigo/Protocol.bas +++ b/Codigo/Protocol.bas @@ -1788,7 +1788,8 @@ Private Sub HandleAttack(ByVal UserIndex As Integer) End If 112 If .Invent.HerramientaEqpObjIndex > 0 Then -114 Call WriteConsoleMsg(UserIndex, "Para atacar debes desequipar la herramienta.", e_FontTypeNames.FONTTYPE_INFOIAO) +114 ' Msg694=Para atacar debes desequipar la herramienta. + Call WriteLocaleMsg(UserIndex, "694", e_FontTypeNames.FONTTYPE_INFOIAO) Exit Sub End If @@ -1841,7 +1842,8 @@ Private Sub HandlePickUp(ByVal UserIndex As Integer) 'Lower rank administrators can't pick up items 106 If (.flags.Privilegios And (e_PlayerType.Consejero Or e_PlayerType.SemiDios)) Then -108 Call WriteConsoleMsg(UserIndex, "No podés tomar ningun objeto.", e_FontTypeNames.FONTTYPE_INFO) +108 ' Msg695=No podés tomar ningun objeto. + Call WriteLocaleMsg(UserIndex, "695", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If @@ -1893,10 +1895,12 @@ Private Sub HandleSafeToggle(ByVal UserIndex As Integer) 108 .flags.Seguro = Not .flags.Seguro Else - Call WriteConsoleMsg(UserIndex, "Solo los ciudadanos pueden cambiar el seguro.", e_FontTypeNames.FONTTYPE_TALK) + ' Msg696=Solo los ciudadanos pueden cambiar el seguro. + Call WriteLocaleMsg(UserIndex, "696", e_FontTypeNames.FONTTYPE_TALK) End If Else - Call WriteConsoleMsg(UserIndex, "Debes abandonar el clan para poder sacar el seguro.", e_FontTypeNames.FONTTYPE_TALK) + ' Msg697=Debes abandonar el clan para poder sacar el seguro. + Call WriteLocaleMsg(UserIndex, "697", e_FontTypeNames.FONTTYPE_TALK) End If End With @@ -2226,7 +2230,8 @@ Private Sub HandleUserCommerceReject(ByVal UserIndex As Integer) End If -112 Call WriteConsoleMsg(UserIndex, "Has rechazado la oferta del otro usuario.", e_FontTypeNames.FONTTYPE_TALK) +112 ' Msg698=Has rechazado la oferta del otro usuario. + Call WriteLocaleMsg(UserIndex, "698", e_FontTypeNames.FONTTYPE_TALK) 114 Call FinComerciarUsu(UserIndex) End With @@ -2290,12 +2295,14 @@ Private Sub HandleDrop(ByVal UserIndex As Integer) 'End If 118 If .flags.Montado = 1 Then -120 Call WriteConsoleMsg(UserIndex, "Debes descender de tu montura para dejar objetos en el suelo.", e_FontTypeNames.FONTTYPE_INFO) +120 ' Msg699=Debes descender de tu montura para dejar objetos en el suelo. + Call WriteLocaleMsg(UserIndex, "699", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If If UserList(UserIndex).flags.SigueUsuario.ArrayIndex > 0 Then - Call WriteConsoleMsg(UserIndex, "No podes tirar items cuando estas siguiendo a alguien.", e_FontTypeNames.FONTTYPE_INFO) + ' Msg700=No podes tirar items cuando estas siguiendo a alguien. + Call WriteLocaleMsg(UserIndex, "700", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If 'Are we dropping gold or other items?? @@ -2308,12 +2315,14 @@ Private Sub HandleDrop(ByVal UserIndex As Integer) '04-05-08 Ladder 126 If (.flags.Privilegios And e_PlayerType.Admin) <> 16 Then 128 If EsNewbie(UserIndex) And ObjData(.Invent.Object(Slot).ObjIndex).Newbie = 1 Then -130 Call WriteConsoleMsg(UserIndex, "No se pueden tirar los objetos Newbies.", e_FontTypeNames.FONTTYPE_INFO) +130 ' Msg701=No se pueden tirar los objetos Newbies. + Call WriteLocaleMsg(UserIndex, "701", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If 132 If ObjData(.Invent.Object(Slot).ObjIndex).Intirable = 1 And Not EsGM(UserIndex) Then -134 Call WriteConsoleMsg(UserIndex, "Acción no permitida.", e_FontTypeNames.FONTTYPE_INFO) +134 ' Msg702=Acción no permitida. + Call WriteLocaleMsg(UserIndex, "702", e_FontTypeNames.FONTTYPE_INFO) Exit Sub 136 ElseIf ObjData(.Invent.Object(Slot).ObjIndex).Intirable = 1 And EsGM(UserIndex) Then 138 If Slot <= UserList(UserIndex).CurrentInventorySlots And Slot > 0 Then @@ -2324,7 +2333,8 @@ Private Sub HandleDrop(ByVal UserIndex As Integer) End If 144 If ObjData(.Invent.Object(Slot).ObjIndex).Instransferible = 1 Then -146 Call WriteConsoleMsg(UserIndex, "Acción no permitida.", e_FontTypeNames.FONTTYPE_INFO) +146 ' Msg702=Acción no permitida. + Call WriteLocaleMsg(UserIndex, "702", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If @@ -2332,7 +2342,8 @@ Private Sub HandleDrop(ByVal UserIndex As Integer) End If 148 If ObjData(.Invent.Object(Slot).ObjIndex).OBJType = e_OBJType.otBarcos And UserList(UserIndex).flags.Navegando Then -150 Call WriteConsoleMsg(UserIndex, "Para tirar la barca deberias estar en tierra firme.", e_FontTypeNames.FONTTYPE_INFO) +150 ' Msg703=Para tirar la barca deberias estar en tierra firme. + Call WriteLocaleMsg(UserIndex, "703", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If Else @@ -2533,7 +2544,8 @@ Private Sub HandleWork(ByVal UserIndex As Integer) '[CDT 17-02-2004] 118 If Not .flags.UltimoMensaje = 3 Then -120 Call WriteConsoleMsg(UserIndex, "No podés ocultarte si estás montado.", e_FontTypeNames.FONTTYPE_INFO) +120 ' Msg704=No podés ocultarte si estás montado. + Call WriteLocaleMsg(UserIndex, "704", e_FontTypeNames.FONTTYPE_INFO) 122 .flags.UltimoMensaje = 3 End If @@ -2559,25 +2571,29 @@ Private Sub HandleWork(ByVal UserIndex As Integer) End If 132 If .flags.EnReto Then -134 Call WriteConsoleMsg(UserIndex, "No podés ocultarte durante un reto.", e_FontTypeNames.FONTTYPE_INFO) +134 ' Msg705=No podés ocultarte durante un reto. + Call WriteLocaleMsg(UserIndex, "705", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If 136 If .flags.EnConsulta Then -138 Call WriteConsoleMsg(UserIndex, "No podés ocultarte si estas en consulta.", e_FontTypeNames.FONTTYPE_INFO) +138 ' Msg706=No podés ocultarte si estas en consulta. + Call WriteLocaleMsg(UserIndex, "706", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If If .flags.invisible Then -139 Call WriteConsoleMsg(UserIndex, "No podés ocultarte si estás invisible.", e_FontTypeNames.FONTTYPE_INFO) +139 ' Msg707=No podés ocultarte si estás invisible. + Call WriteLocaleMsg(UserIndex, "707", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If 140 If MapInfo(.Pos.Map).SinInviOcul Then -142 Call WriteConsoleMsg(UserIndex, "Una fuerza divina te impide ocultarte en esta zona.", e_FontTypeNames.FONTTYPE_INFO) +142 ' Msg708=Una fuerza divina te impide ocultarte en esta zona. + Call WriteLocaleMsg(UserIndex, "708", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If @@ -2947,7 +2963,8 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) 162 If DummyInt <> 0 Then 164 If DummyInt = 1 Then -166 Call WriteConsoleMsg(UserIndex, "No tenés municiones.", e_FontTypeNames.FONTTYPE_INFO) +166 ' Msg709=No tenés municiones. + Call WriteLocaleMsg(UserIndex, "709", e_FontTypeNames.FONTTYPE_INFO) End If 168 Call Desequipar(UserIndex, .MunicionEqpSlot) 170 Call WriteWorkRequestTarget(UserIndex, 0) @@ -2981,7 +2998,8 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) 'Prevent from hitting self 200 If tU = UserIndex Then -202 Call WriteConsoleMsg(UserIndex, "¡No podés atacarte a vos mismo!", e_FontTypeNames.FONTTYPE_INFO) +202 ' Msg710=¡No podés atacarte a vos mismo! + Call WriteLocaleMsg(UserIndex, "710", e_FontTypeNames.FONTTYPE_INFO) 204 Call WriteWorkRequestTarget(UserIndex, 0) Exit Sub End If @@ -3148,13 +3166,15 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) 410 If MapInfo(UserList(UserIndex).Pos.Map).Seguro = 1 Then 412 Call WriteWorkRequestTarget(UserIndex, 0) -414 Call WriteConsoleMsg(UserIndex, "Esta prohibido cortar raices en las ciudades.", e_FontTypeNames.FONTTYPE_INFO) +414 ' Msg711=Esta prohibido cortar raices en las ciudades. + Call WriteLocaleMsg(UserIndex, "711", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If 416 If MapData(.Pos.Map, X, Y).ObjInfo.amount <= 0 Then -418 Call WriteConsoleMsg(UserIndex, "El árbol ya no te puede entregar mas raices.", e_FontTypeNames.FONTTYPE_INFO) +418 ' Msg712=El árbol ya no te puede entregar mas raices. + Call WriteLocaleMsg(UserIndex, "712", e_FontTypeNames.FONTTYPE_INFO) 420 Call WriteWorkRequestTarget(UserIndex, 0) 422 Call WriteMacroTrabajoToggle(UserIndex, False) Exit Sub @@ -3174,7 +3194,8 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) End If 434 If .Pos.X = X And .Pos.Y = Y Then -436 Call WriteConsoleMsg(UserIndex, "No podés quitar raices allí.", e_FontTypeNames.FONTTYPE_INFO) +436 ' Msg713=No podés quitar raices allí. + Call WriteLocaleMsg(UserIndex, "713", e_FontTypeNames.FONTTYPE_INFO) 438 Call WriteWorkRequestTarget(UserIndex, 0) Exit Sub @@ -3188,7 +3209,8 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) End If Else -446 Call WriteConsoleMsg(UserIndex, "No hay ningún árbol ahí.", e_FontTypeNames.FONTTYPE_INFO) +446 ' Msg604=No podés quitar raices allí. + Call WriteLocaleMsg(UserIndex, "604", e_FontTypeNames.FONTTYPE_INFO) 448 Call WriteWorkRequestTarget(UserIndex, 0) 450 Call WriteMacroTrabajoToggle(UserIndex, False) @@ -3238,14 +3260,16 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) '17/09/02 'Check the trigger 528 If MapData(UserList(tU).Pos.Map, UserList(tU).Pos.X, UserList(tU).Pos.Y).trigger = e_Trigger.ZonaSegura Then -530 Call WriteConsoleMsg(UserIndex, "No podés robar aquí.", e_FontTypeNames.FONTTYPE_WARNING) +530 ' Msg714=No podés robar aquí. + Call WriteLocaleMsg(UserIndex, "714", e_FontTypeNames.FONTTYPE_WARNING) 532 Call WriteWorkRequestTarget(UserIndex, 0) Exit Sub End If 534 If MapData(.Pos.Map, .Pos.X, .Pos.Y).trigger = e_Trigger.ZonaSegura Then -536 Call WriteConsoleMsg(UserIndex, "No podés robar aquí.", e_FontTypeNames.FONTTYPE_WARNING) +536 ' Msg714=No podés robar aquí. + Call WriteLocaleMsg(UserIndex, "714", e_FontTypeNames.FONTTYPE_WARNING) 538 Call WriteWorkRequestTarget(UserIndex, 0) Exit Sub @@ -3258,13 +3282,15 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) End If Else -542 Call WriteConsoleMsg(UserIndex, "No a quien robarle!", e_FontTypeNames.FONTTYPE_INFO) +542 ' Msg715=No a quien robarle! + Call WriteLocaleMsg(UserIndex, "715", e_FontTypeNames.FONTTYPE_INFO) 544 Call WriteWorkRequestTarget(UserIndex, 0) End If Else -546 Call WriteConsoleMsg(UserIndex, "¡No podés robar en zonas seguras!", e_FontTypeNames.FONTTYPE_INFO) +546 ' Msg716=¡No podés robar en zonas seguras! + Call WriteLocaleMsg(UserIndex, "716", e_FontTypeNames.FONTTYPE_INFO) 548 Call WriteWorkRequestTarget(UserIndex, 0) End If @@ -3281,16 +3307,19 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) End If 564 If GetOwnedBy(tN) <> 0 Then -566 Call WriteConsoleMsg(UserIndex, "No puedes domar una criatura que esta luchando con un jugador.", e_FontTypeNames.FONTTYPE_INFO) +566 ' Msg717=No puedes domar una criatura que esta luchando con un jugador. + Call WriteLocaleMsg(UserIndex, "717", e_FontTypeNames.FONTTYPE_INFO) Exit Sub End If 568 Call DoDomar(UserIndex, tN) Else -570 Call WriteConsoleMsg(UserIndex, "No puedes domar a esa criatura.", e_FontTypeNames.FONTTYPE_INFO) +570 ' Msg718=No puedes domar a esa criatura. + Call WriteLocaleMsg(UserIndex, "718", e_FontTypeNames.FONTTYPE_INFO) End If Else -572 Call WriteConsoleMsg(UserIndex, "No hay ninguna criatura alli!", e_FontTypeNames.FONTTYPE_INFO) +572 ' Msg719=No hay ninguna criatura alli! + Call WriteLocaleMsg(UserIndex, "719", e_FontTypeNames.FONTTYPE_INFO) End If 574 Case FundirMetal 'UGLY!!! This is a constant, not a skill!! @@ -3400,14 +3429,16 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) Dim clan_nivel As Byte 662 If UserList(UserIndex).GuildIndex = 0 Then -664 Call WriteConsoleMsg(UserIndex, "Servidor » No perteneces a ningún clan.", e_FontTypeNames.FONTTYPE_INFOIAO) +664 ' Msg720=Servidor » No perteneces a ningún clan. + Call WriteLocaleMsg(UserIndex, "720", e_FontTypeNames.FONTTYPE_INFOIAO) Exit Sub End If 666 clan_nivel = modGuilds.NivelDeClan(UserList(UserIndex).GuildIndex) 668 If clan_nivel < 3 Then -670 Call WriteConsoleMsg(UserIndex, "Servidor » El nivel de tu clan debe ser 3 para utilizar esta opción.", e_FontTypeNames.FONTTYPE_INFOIAO) +670 ' Msg721=Servidor » El nivel de tu clan debe ser 3 para utilizar esta opción. + Call WriteLocaleMsg(UserIndex, "721", e_FontTypeNames.FONTTYPE_INFOIAO) Exit Sub End If @@ -8674,7 +8705,8 @@ Private Sub HandleBusquedaTesoro(ByVal UserIndex As Integer) 114 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Todavia nadie fue capaz de encontar el tesoro, recorda que se encuentra en " & get_map_name(TesoroNumMapa) & "(" & TesoroNumMapa & "). ¿Quien sera el valiente que lo encuentre?", e_FontTypeNames.FONTTYPE_TALK)) 116 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa. El tesoro se encuentra en: " & TesoroNumMapa & "-" & TesoroX & "-" & TesoroY, e_FontTypeNames.FONTTYPE_INFO) Else -118 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa.", e_FontTypeNames.FONTTYPE_INFO) +118 ' Msg734=Ya hay una busqueda del tesoro activa. + Call WriteLocaleMsg(UserIndex, "734", e_FontTypeNames.FONTTYPE_INFO) End If @@ -8690,7 +8722,8 @@ Private Sub HandleBusquedaTesoro(ByVal UserIndex As Integer) 128 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Ningún valiente fue capaz de encontrar el item misterioso, recuerda que se encuentra en " & get_map_name(RegaloNumMapa) & "(" & RegaloNumMapa & "). ¡Ten cuidado!", e_FontTypeNames.FONTTYPE_TALK)) 130 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa. El tesoro se encuentra en: " & RegaloNumMapa & "-" & RegaloX & "-" & RegaloY, e_FontTypeNames.FONTTYPE_INFO) Else -132 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa.", e_FontTypeNames.FONTTYPE_INFO) +132 ' Msg734=Ya hay una busqueda del tesoro activa. + Call WriteLocaleMsg(UserIndex, "734", e_FontTypeNames.FONTTYPE_INFO) End If @@ -8711,7 +8744,8 @@ Private Sub HandleBusquedaTesoro(ByVal UserIndex As Integer) 150 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Todavía nadie logró matar el NPC que se encuentra en el mapa " & NpcList(npc_index_evento).pos.Map & ".", e_FontTypeNames.FONTTYPE_TALK)) 152 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda de npc activo. El tesoro se encuentra en: " & NpcList(npc_index_evento).Pos.Map & "-" & NpcList(npc_index_evento).Pos.X & "-" & NpcList(npc_index_evento).Pos.Y, e_FontTypeNames.FONTTYPE_INFO) Else -154 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa.", e_FontTypeNames.FONTTYPE_INFO) +154 ' Msg734=Ya hay una busqueda del tesoro activa. + Call WriteLocaleMsg(UserIndex, "734", e_FontTypeNames.FONTTYPE_INFO) End If @@ -8719,7 +8753,8 @@ Private Sub HandleBusquedaTesoro(ByVal UserIndex As Integer) End Select Else -156 Call WriteConsoleMsg(UserIndex, "Servidor » No estas habilitado para hacer Eventos.", e_FontTypeNames.FONTTYPE_INFO) +156 ' Msg735=Servidor » No estas habilitado para hacer Eventos. + Call WriteLocaleMsg(UserIndex, "735", e_FontTypeNames.FONTTYPE_INFO) End If End With @@ -8837,7 +8872,8 @@ Private Sub HandleMarcaDeClan(ByVal UserIndex As Integer) 108 clan_nivel = modGuilds.NivelDeClan(UserList(UserIndex).GuildIndex) 110 If clan_nivel > 20 Then -112 Call WriteConsoleMsg(UserIndex, "Servidor » El nivel de tu clan debe ser 3 para utilizar esta opción.", e_FontTypeNames.FONTTYPE_INFOIAO) +112 ' Msg721=Servidor » El nivel de tu clan debe ser 3 para utilizar esta opción. + Call WriteLocaleMsg(UserIndex, "721", e_FontTypeNames.FONTTYPE_INFOIAO) Exit Sub End If @@ -8879,11 +8915,13 @@ Private Sub HandleResponderPregunta(ByVal UserIndex As Integer) End If 112 If IsValidUserRef(UserList(userIndex).Grupo.PropuestaDe) Then 114 If UserList(UserList(userIndex).Grupo.PropuestaDe.ArrayIndex).Grupo.Lider.ArrayIndex <> UserList(userIndex).Grupo.PropuestaDe.ArrayIndex Then -116 Call WriteConsoleMsg(UserIndex, "¡El lider del grupo a cambiado, imposible unirse!", e_FontTypeNames.FONTTYPE_INFOIAO) +116 ' Msg722=¡El lider del grupo ha cambiado, imposible unirse! + Call WriteLocaleMsg(UserIndex, "722", e_FontTypeNames.FONTTYPE_INFOIAO) Else 118 Log = "Repuesta Afirmativa 1-1 " 120 If Not IsValidUserRef(UserList(UserList(userIndex).Grupo.PropuestaDe.ArrayIndex).Grupo.Lider) Then -122 Call WriteConsoleMsg(UserIndex, "¡El grupo ya no existe!", e_FontTypeNames.FONTTYPE_INFOIAO) +122 ' Msg723=¡El grupo ya no existe! + Call WriteLocaleMsg(UserIndex, "723", e_FontTypeNames.FONTTYPE_INFOIAO) Else 124 Log = "Repuesta Afirmativa 1-2 " 126 If UserList(UserList(userIndex).Grupo.PropuestaDe.ArrayIndex).Grupo.CantidadMiembros = 1 Then @@ -8894,13 +8932,15 @@ Private Sub HandleResponderPregunta(ByVal UserIndex As Integer) End If End If Else -166 Call WriteConsoleMsg(UserIndex, "Servidor » Solicitud de grupo invalida, reintente...", e_FontTypeNames.FONTTYPE_SERVER) +166 ' Msg724=Servidor » Solicitud de grupo invalida, reintente... + Call WriteLocaleMsg(UserIndex, "724", e_FontTypeNames.FONTTYPE_SERVER) End If 'unirlo 168 Case 2 170 Log = "Repuesta Afirmativa 2" -172 Call WriteConsoleMsg(UserIndex, "¡Ahora sos un ciudadano!", e_FontTypeNames.FONTTYPE_INFOIAO) +172 ' Msg725=¡Ahora sos un ciudadano! + Call WriteLocaleMsg(UserIndex, "725", e_FontTypeNames.FONTTYPE_INFOIAO) 174 Call VolverCiudadano(UserIndex) 176 Case 3 @@ -8956,7 +8996,8 @@ Private Sub HandleResponderPregunta(ByVal UserIndex As Integer) 'Rutina para comerciar con otro usuario 232 Call IniciarComercioConUsuario(userIndex, UserList(userIndex).flags.targetUser.ArrayIndex) Else -234 Call WriteConsoleMsg(UserIndex, "Servidor » Solicitud de comercio invalida, reintente...", e_FontTypeNames.FONTTYPE_SERVER) +234 ' Msg726=Servidor » Solicitud de comercio invalida, reintente... + Call WriteLocaleMsg(UserIndex, "726", e_FontTypeNames.FONTTYPE_SERVER) End If Case 5 @@ -8984,7 +9025,8 @@ Private Sub HandleResponderPregunta(ByVal UserIndex As Integer) 236 262 Case Else -264 Call WriteConsoleMsg(UserIndex, "No tienes preguntas pendientes.", e_FontTypeNames.FONTTYPE_INFOIAO) +264 ' Msg727=No tienes preguntas pendientes. + Call WriteLocaleMsg(UserIndex, "727", e_FontTypeNames.FONTTYPE_INFOIAO) End Select @@ -9053,7 +9095,8 @@ Private Sub HandleResponderPregunta(ByVal UserIndex As Integer) 334 Case 5 336 Log = "Repuesta negativa 5" 338 Case Else -340 Call WriteConsoleMsg(UserIndex, "No tienes preguntas pendientes.", e_FontTypeNames.FONTTYPE_INFOIAO) +340 ' Msg727=No tienes preguntas pendientes. + Call WriteLocaleMsg(UserIndex, "727", e_FontTypeNames.FONTTYPE_INFOIAO) End Select End If End With @@ -9172,7 +9215,8 @@ Private Sub HandleSubastaInfo(ByVal UserIndex As Integer) 118 Call WriteConsoleMsg(UserIndex, "Tiempo Restante de subasta: " & SumarTiempo(Subasta.TiempoRestanteSubasta), e_FontTypeNames.FONTTYPE_SUBASTA) Else -120 Call WriteConsoleMsg(UserIndex, "No hay ninguna subasta activa en este momento.", e_FontTypeNames.FONTTYPE_SUBASTA) +120 ' Msg728=No hay ninguna subasta activa en este momento. + Call WriteLocaleMsg(UserIndex, "728", e_FontTypeNames.FONTTYPE_SUBASTA) End If @@ -9210,7 +9254,8 @@ Private Sub HandleEventoInfo(ByVal UserIndex As Integer) 102 If EventoActivo Then 104 Call WriteConsoleMsg(UserIndex, PublicidadEvento & ". Tiempo restante: " & TiempoRestanteEvento & " minuto(s).", e_FontTypeNames.FONTTYPE_New_Eventos) Else -106 Call WriteConsoleMsg(UserIndex, "Eventos> Actualmente no hay ningun evento en curso.", e_FontTypeNames.FONTTYPE_New_Eventos) +106 ' Msg729=Eventos> Actualmente no hay ningún evento en curso. + Call WriteLocaleMsg(UserIndex, "729", e_FontTypeNames.FONTTYPE_New_Eventos) End If @@ -9251,7 +9296,8 @@ Private Sub HandleEventoInfo(ByVal UserIndex As Integer) 132 If encontre Then 134 Call WriteConsoleMsg(UserIndex, "Eventos> El proximo evento " & DescribirEvento(HoraProximo) & " iniciara a las " & HoraProximo & ":00 horas.", e_FontTypeNames.FONTTYPE_New_Eventos) Else -136 Call WriteConsoleMsg(UserIndex, "Eventos> No hay eventos proximos.", e_FontTypeNames.FONTTYPE_New_Eventos) +136 ' Msg730=Eventos> No hay eventos próximos. + Call WriteLocaleMsg(UserIndex, "730", e_FontTypeNames.FONTTYPE_New_Eventos) End If @@ -9290,7 +9336,8 @@ Private Sub HandleCrearEvento(ByVal UserIndex As Integer) 112 If .flags.Privilegios >= e_PlayerType.Admin Then 114 If EventoActivo = False Then 116 If LenB(Tipo) = 0 Or LenB(Duracion) = 0 Or LenB(multiplicacion) = 0 Then -118 Call WriteConsoleMsg(UserIndex, "Utilice /CREAREVENTO TIPO@DURACION@MULTIPLICACION.", e_FontTypeNames.FONTTYPE_New_Eventos) +118 ' Msg731=Utilice /CREAREVENTO TIPO@DURACION@MULTIPLICACION. + Call WriteLocaleMsg(UserIndex, "731", e_FontTypeNames.FONTTYPE_New_Eventos) Else 120 Call ForzarEvento(Tipo, Duracion, multiplicacion, UserList(UserIndex).Name) @@ -9298,11 +9345,13 @@ Private Sub HandleCrearEvento(ByVal UserIndex As Integer) End If Else -122 Call WriteConsoleMsg(UserIndex, "Ya hay un evento en curso. Finalicelo con /FINEVENTO primero.", e_FontTypeNames.FONTTYPE_New_Eventos) +122 ' Msg732=Ya hay un evento en curso. Finalicelo con /FINEVENTO primero. + Call WriteLocaleMsg(UserIndex, "732", e_FontTypeNames.FONTTYPE_New_Eventos) End If Else -124 Call WriteConsoleMsg(UserIndex, "Servidor » Solo Administradores pueder crear estos eventos.", e_FontTypeNames.FONTTYPE_INFO) +124 ' Msg733=Servidor » Solo Administradores pueder crear estos eventos. + Call WriteLocaleMsg(UserIndex, "733", e_FontTypeNames.FONTTYPE_INFO) End If End With diff --git a/Codigo/Protocol_GmCommands.bas b/Codigo/Protocol_GmCommands.bas index 0aa58a4c..0a9c3ce8 100644 --- a/Codigo/Protocol_GmCommands.bas +++ b/Codigo/Protocol_GmCommands.bas @@ -755,7 +755,8 @@ Public Sub HandleSilence(ByVal UserIndex As Integer) Else -132 Call WriteConsoleMsg(UserIndex, "No puedes silenciar a un administrador de mayor o igual rango.", e_FontTypeNames.FONTTYPE_INFO) +132 ' Msg561=No puedes silenciar a un administrador de mayor o igual rango. + Call WriteLocaleMsg(UserIndex, "561", e_FontTypeNames.FONTTYPE_INFO) End If @@ -4270,7 +4271,8 @@ Public Sub HandleEventoInfo(ByVal UserIndex As Integer) 102 If EventoActivo Then 104 Call WriteConsoleMsg(UserIndex, PublicidadEvento & ". Tiempo restante: " & TiempoRestanteEvento & " minuto(s).", e_FontTypeNames.FONTTYPE_New_Eventos) Else -106 Call WriteConsoleMsg(UserIndex, "Eventos> Actualmente no hay ningun evento en curso.", e_FontTypeNames.FONTTYPE_New_Eventos) +106 ' Msg729=Eventos> Actualmente no hay ningún evento en curso. + Call WriteLocaleMsg(UserIndex, "729", e_FontTypeNames.FONTTYPE_New_Eventos) End If Dim i As Byte @@ -4299,7 +4301,8 @@ Public Sub HandleEventoInfo(ByVal UserIndex As Integer) 132 If encontre Then 134 Call WriteConsoleMsg(UserIndex, "Eventos> El proximo evento " & DescribirEvento(HoraProximo) & " iniciara a las " & HoraProximo & ":00 horas.", e_FontTypeNames.FONTTYPE_New_Eventos) Else -136 Call WriteConsoleMsg(UserIndex, "Eventos> No hay eventos proximos.", e_FontTypeNames.FONTTYPE_New_Eventos) +136 ' Msg730=Eventos> No hay eventos próximos. + Call WriteLocaleMsg(UserIndex, "730", e_FontTypeNames.FONTTYPE_New_Eventos) End If End With Exit Sub @@ -4327,15 +4330,18 @@ Public Sub HandleCrearEvento(ByVal UserIndex As Integer) 112 If .flags.Privilegios >= e_PlayerType.Admin Then 114 If EventoActivo = False Then 116 If LenB(Tipo) = 0 Or LenB(Duracion) = 0 Or LenB(multiplicacion) = 0 Then -118 Call WriteConsoleMsg(UserIndex, "Utilice /CREAREVENTO TIPO@DURACION@MULTIPLICACION.", e_FontTypeNames.FONTTYPE_New_Eventos) +118 ' Msg731=Utilice /CREAREVENTO TIPO@DURACION@MULTIPLICACION. + Call WriteLocaleMsg(UserIndex, "731", e_FontTypeNames.FONTTYPE_New_Eventos) Else 120 Call ForzarEvento(Tipo, Duracion, multiplicacion, UserList(UserIndex).name) End If Else -122 Call WriteConsoleMsg(UserIndex, "Ya hay un evento en curso. Finalicelo con /FINEVENTO primero.", e_FontTypeNames.FONTTYPE_New_Eventos) +122 ' Msg732=Ya hay un evento en curso. Finalicelo con /FINEVENTO primero. + Call WriteLocaleMsg(UserIndex, "732", e_FontTypeNames.FONTTYPE_New_Eventos) End If Else -124 Call WriteConsoleMsg(UserIndex, "Servidor » Solo Administradores pueder crear estos eventos.", e_FontTypeNames.FONTTYPE_INFO) +124 ' Msg733=Servidor » Solo Administradores pueder crear estos eventos. + Call WriteLocaleMsg(UserIndex, "733", e_FontTypeNames.FONTTYPE_INFO) End If End With Exit Sub @@ -4512,7 +4518,8 @@ Public Sub HandleBusquedaTesoro(ByVal UserIndex As Integer) 114 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Todavia nadie fue capaz de encontar el tesoro, recorda que se encuentra en " & get_map_name(TesoroNumMapa) & "(" & TesoroNumMapa & "). ¿Quien sera el valiente que lo encuentre?", e_FontTypeNames.FONTTYPE_TALK)) 116 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa. El tesoro se encuentra en: " & TesoroNumMapa & "-" & TesoroX & "-" & TesoroY, e_FontTypeNames.FONTTYPE_INFO) Else -118 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa.", e_FontTypeNames.FONTTYPE_INFO) +118 ' Msg734=Ya hay una busqueda del tesoro activa. + Call WriteLocaleMsg(UserIndex, "734", e_FontTypeNames.FONTTYPE_INFO) End If End If 120 Case 1 @@ -4523,7 +4530,8 @@ Public Sub HandleBusquedaTesoro(ByVal UserIndex As Integer) 128 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Ningún valiente fue capaz de encontrar el item misterioso, recuerda que se encuentra en " & get_map_name(RegaloNumMapa) & "(" & RegaloNumMapa & "). ¡Ten cuidado!", e_FontTypeNames.FONTTYPE_TALK)) 130 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa. El tesoro se encuentra en: " & RegaloNumMapa & "-" & RegaloX & "-" & RegaloY, e_FontTypeNames.FONTTYPE_INFO) Else -132 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa.", e_FontTypeNames.FONTTYPE_INFO) +132 ' Msg734=Ya hay una busqueda del tesoro activa. + Call WriteLocaleMsg(UserIndex, "734", e_FontTypeNames.FONTTYPE_INFO) End If End If 134 Case 2 @@ -4539,12 +4547,14 @@ Public Sub HandleBusquedaTesoro(ByVal UserIndex As Integer) 150 Call SendData(SendTarget.ToAll, 0, PrepareMessageConsoleMsg("Eventos> Todavía nadie logró matar el NPC que se encuentra en el mapa " & NpcList(npc_index_evento).Pos.Map & ".", e_FontTypeNames.FONTTYPE_TALK)) 152 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda de npc activo. El tesoro se encuentra en: " & NpcList(npc_index_evento).Pos.map & "-" & NpcList(npc_index_evento).Pos.X & "-" & NpcList(npc_index_evento).Pos.y, e_FontTypeNames.FONTTYPE_INFO) Else -154 Call WriteConsoleMsg(UserIndex, "Ya hay una busqueda del tesoro activa.", e_FontTypeNames.FONTTYPE_INFO) +154 ' Msg734=Ya hay una busqueda del tesoro activa. + Call WriteLocaleMsg(UserIndex, "734", e_FontTypeNames.FONTTYPE_INFO) End If End If End Select Else -156 Call WriteConsoleMsg(UserIndex, "Servidor » No estas habilitado para hacer Eventos.", e_FontTypeNames.FONTTYPE_INFO) +156 ' Msg735=Servidor » No estas habilitado para hacer Eventos. + Call WriteLocaleMsg(UserIndex, "735", e_FontTypeNames.FONTTYPE_INFO) End If End With Exit Sub diff --git a/Codigo/SistemaCombate.bas b/Codigo/SistemaCombate.bas index f5f8f5bf..d4ac8c15 100644 --- a/Codigo/SistemaCombate.bas +++ b/Codigo/SistemaCombate.bas @@ -2470,7 +2470,8 @@ Public Sub ThrowProjectileToTarget(ByVal UserIndex As Integer, ByVal TargetIndex If AmunitionState <> 0 Then If AmunitionState = 1 Then - Call WriteConsoleMsg(UserIndex, "No tenés municiones.", e_FontTypeNames.FONTTYPE_INFO) + ' Msg709=No tenés municiones. + Call WriteLocaleMsg(UserIndex, "709", e_FontTypeNames.FONTTYPE_INFO) End If Call Desequipar(UserIndex, .MunicionEqpSlot) Call WriteWorkRequestTarget(UserIndex, 0) diff --git a/Codigo/modHechizos.bas b/Codigo/modHechizos.bas index 2b22ec88..85c987a7 100644 --- a/Codigo/modHechizos.bas +++ b/Codigo/modHechizos.bas @@ -2413,8 +2413,9 @@ Sub HechizoEstadoUsuario(ByVal UserIndex As Integer, ByRef b As Boolean) 654 If Not PeleaSegura(UserIndex, tU) Then If UserList(tU).flags.SeguroResu Then - Call WriteConsoleMsg(UserIndex, "El usuario tiene el seguro de resurrección activado.", e_FontTypeNames.FONTTYPE_INFO) - Call WriteConsoleMsg(tU, UserList(UserIndex).Name & " está intentando revivirte. Desactiva el seguro de resurrección para permitirle hacerlo.", e_FontTypeNames.FONTTYPE_INFO) + ' Msg693=El usuario tiene el seguro de resurrección activado. + Call WriteLocaleMsg(UserIndex, "693", e_FontTypeNames.FONTTYPE_INFO) + Call WriteConsoleMsg(tU, UserList(UserIndex).name & " está intentando revivirte. Desactiva el seguro de resurrección para permitirle hacerlo.", e_FontTypeNames.FONTTYPE_INFO) b = False Exit Sub End If