diff --git a/Codigo/Declares.bas b/Codigo/Declares.bas index f0272f73..96b5dc54 100644 --- a/Codigo/Declares.bas +++ b/Codigo/Declares.bas @@ -536,6 +536,28 @@ Public Const LingoteOro As Integer = 388 'OK Public Const Wood As Integer = 58 'OK Public Const ElvenWood As Integer = 2781 'OK Public Const Raices As Integer = 888 'OK +Public Const Botella As Integer = 2097 'OK +Public Const Cuchara As Integer = 163 'OK +Public Const Mortero As Integer = 4304 +Public Const FrascoAlq As Integer = 4305 +Public Const FrascoElixir As Integer = 4306 +Public Const Dosificador As Integer = 4307 +Public Const Orquidea As Integer = 4308 +Public Const Carmesi As Integer = 4309 +Public Const HongoDeLuz As Integer = 4310 +Public Const Esporas As Integer = 4311 +Public Const Tuna As Integer = 4312 +Public Const Cala As Integer = 4313 +Public Const ColaDeZorro As Integer = 4314 +Public Const FlorOceano As Integer = 4315 +Public Const FlorRoja As Integer = 4316 +Public Const Hierva As Integer = 4317 +Public Const HojasDeRin As Integer = 4318 +Public Const HojasRojas As Integer = 4319 +Public Const SemillasPros As Integer = 4320 +Public Const Pimiento As Integer = 4321 + + Public Const PieldeLobo As Integer = 414 'OK Public Const PieldeOsoPardo As Integer = 415 'OK Public Const PieldeOsoPolar As Integer = 416 'OK @@ -841,6 +863,7 @@ Public Enum e_OBJType OtQuest = 51 otFishingPool = 52 otUsableOntarget = 53 + otPlantas = 54 otCualquiera = 100 End Enum @@ -1641,7 +1664,29 @@ Public Type t_ObjData MaderaElfica As Integer MaderaPino As Integer + Hechizo As Integer Raices As Integer + Cuchara As Integer + Botella As Integer + Mortero As Integer + FrascoAlq As Integer + FrascoElixir As Integer + Dosificador As Integer + Orquidea As Integer + Carmesi As Integer + HongoDeLuz As Integer + Esporas As Integer + Tuna As Integer + Cala As Integer + ColaDeZorro As Integer + FlorOceano As Integer + FlorRoja As Integer + Hierva As Integer + HojasDeRin As Integer + HojasRojas As Integer + SemillasPros As Integer + Pimiento As Integer + SkPociones As Byte PielLobo As Integer diff --git a/Codigo/FileIO.bas b/Codigo/FileIO.bas index c377898f..cd4522dc 100644 --- a/Codigo/FileIO.bas +++ b/Codigo/FileIO.bas @@ -1364,9 +1364,29 @@ Sub LoadOBJData() 252 .TipoPocion = val(Leer.GetValue(ObjKey, "TipoPocion")) 254 .MaxModificador = val(Leer.GetValue(ObjKey, "MaxModificador")) 256 .MinModificador = val(Leer.GetValue(ObjKey, "MinModificador")) - 258 .DuracionEfecto = val(Leer.GetValue(ObjKey, "DuracionEfecto")) + .Hechizo = val(Leer.GetValue(ObjKey, "Hechizo")) 260 .Raices = val(Leer.GetValue(ObjKey, "Raices")) + .Cuchara = val(Leer.GetValue(ObjKey, "Cuchara")) + .Botella = val(Leer.GetValue(ObjKey, "Botella")) + .Mortero = val(Leer.GetValue(ObjKey, "Mortero")) + .FrascoAlq = val(Leer.GetValue(ObjKey, "FrascoAlq")) + .FrascoElixir = val(Leer.GetValue(ObjKey, "FrascoElixir")) + .Dosificador = val(Leer.GetValue(ObjKey, "Dosificador")) + .Orquidea = val(Leer.GetValue(ObjKey, "Orquidea")) + .Carmesi = val(Leer.GetValue(ObjKey, "Carmesi")) + .HongoDeLuz = val(Leer.GetValue(ObjKey, "HongoDeLuz")) + .Esporas = val(Leer.GetValue(ObjKey, "Esporas")) + .Tuna = val(Leer.GetValue(ObjKey, "Tuna")) + .Cala = val(Leer.GetValue(ObjKey, "Cala")) + .ColaDeZorro = val(Leer.GetValue(ObjKey, "ColaDeZorro")) + .FlorOceano = val(Leer.GetValue(ObjKey, "FlorOceano")) + .FlorRoja = val(Leer.GetValue(ObjKey, "FlorRoja")) + .Hierva = val(Leer.GetValue(ObjKey, "Hierva")) + .HojasDeRin = val(Leer.GetValue(ObjKey, "HojasDeRin")) + .HojasRojas = val(Leer.GetValue(ObjKey, "HojasRojas")) + .SemillasPros = val(Leer.GetValue(ObjKey, "SemillasPros")) + .Pimiento = val(Leer.GetValue(ObjKey, "Pimiento")) 262 .SkPociones = val(Leer.GetValue(ObjKey, "SkPociones")) 264 .Porcentaje = val(Leer.GetValue(ObjKey, "Porcentaje")) diff --git a/Codigo/Protocol.bas b/Codigo/Protocol.bas index 3e42f72c..9ebef82e 100644 --- a/Codigo/Protocol.bas +++ b/Codigo/Protocol.bas @@ -2816,17 +2816,17 @@ Private Sub HandleCraftAlquimia(ByVal UserIndex As Integer) On Error GoTo HandleCraftAlquimia_Err - '*************************************************** - 'Author: Juan Martín Sotuyo Dodero (Maraxus) - 'Last Modification: 05/17/06 - ' - '*************************************************** - + Dim Item As Integer -102 Item = Reader.ReadInt16() -104 If Item < 1 Then Exit Sub + Item = Reader.ReadInt16() + +110 If Item < 1 Then Exit Sub + + +112 Call AlquimistaConstruirItem(UserIndex, Item) + Exit Sub HandleCraftAlquimia_Err: @@ -3196,7 +3196,7 @@ Private Sub HandleWorkLeftClick(ByVal UserIndex As Integer) End If '¡Hay un arbol donde clickeo? -440 If ObjData(DummyInt).OBJType = e_OBJType.otArboles Then +440 If ObjData(DummyInt).OBJType = e_OBJType.otPlantas Then 442 Call SendData(SendTarget.ToPCAliveArea, UserIndex, PrepareMessagePlayWave(SND_TIJERAS, .Pos.X, .Pos.y)) 444 Call DoRaices(UserIndex, X, Y) diff --git a/Codigo/Trabajo.bas b/Codigo/Trabajo.bas index 35c5d617..416bd578 100644 --- a/Codigo/Trabajo.bas +++ b/Codigo/Trabajo.bas @@ -89,9 +89,9 @@ Public Sub Trabajar(ByVal UserIndex As Integer, ByVal Skill As e_Skill) Dim DummyInt As Integer With UserList(UserIndex) - - Select Case Skill - + + Select Case Skill + Case e_Skill.Pescar 288 If .Invent.HerramientaEqpObjIndex = 0 Then Exit Sub 290 If ObjData(.Invent.HerramientaEqpObjIndex).OBJType <> e_OBJType.otHerramientas Then Exit Sub @@ -789,7 +789,26 @@ Sub AlquimistaQuitarMateriales(ByVal UserIndex As Integer, ByVal ItemIndex As In 100 If ObjData(ItemIndex).Raices > 0 Then Call QuitarObjetos(Raices, ObjData(ItemIndex).Raices, UserIndex) - + If ObjData(ItemIndex).Botella > 0 Then Call QuitarObjetos(Botella, ObjData(ItemIndex).Botella, UserIndex) + If ObjData(ItemIndex).Cuchara > 0 Then Call QuitarObjetos(Cuchara, ObjData(ItemIndex).Cuchara, UserIndex) + If ObjData(ItemIndex).Mortero > 0 Then Call QuitarObjetos(Mortero, ObjData(ItemIndex).Mortero, UserIndex) + If ObjData(ItemIndex).FrascoAlq > 0 Then Call QuitarObjetos(FrascoAlq, ObjData(ItemIndex).FrascoAlq, UserIndex) + If ObjData(ItemIndex).FrascoElixir > 0 Then Call QuitarObjetos(FrascoElixir, ObjData(ItemIndex).FrascoElixir, UserIndex) + If ObjData(ItemIndex).Dosificador > 0 Then Call QuitarObjetos(Dosificador, ObjData(ItemIndex).Dosificador, UserIndex) + If ObjData(ItemIndex).Orquidea > 0 Then Call QuitarObjetos(Orquidea, ObjData(ItemIndex).Orquidea, UserIndex) + If ObjData(ItemIndex).Carmesi > 0 Then Call QuitarObjetos(Carmesi, ObjData(ItemIndex).Carmesi, UserIndex) + If ObjData(ItemIndex).HongoDeLuz > 0 Then Call QuitarObjetos(HongoDeLuz, ObjData(ItemIndex).HongoDeLuz, UserIndex) + If ObjData(ItemIndex).Esporas > 0 Then Call QuitarObjetos(Esporas, ObjData(ItemIndex).Esporas, UserIndex) + If ObjData(ItemIndex).Tuna > 0 Then Call QuitarObjetos(Tuna, ObjData(ItemIndex).Tuna, UserIndex) + If ObjData(ItemIndex).Cala > 0 Then Call QuitarObjetos(Cala, ObjData(ItemIndex).Cala, UserIndex) + If ObjData(ItemIndex).ColaDeZorro > 0 Then Call QuitarObjetos(ColaDeZorro, ObjData(ItemIndex).ColaDeZorro, UserIndex) + If ObjData(ItemIndex).FlorOceano > 0 Then Call QuitarObjetos(FlorOceano, ObjData(ItemIndex).FlorOceano, UserIndex) + If ObjData(ItemIndex).FlorRoja > 0 Then Call QuitarObjetos(FlorRoja, ObjData(ItemIndex).FlorRoja, UserIndex) + If ObjData(ItemIndex).Hierva > 0 Then Call QuitarObjetos(Hierva, ObjData(ItemIndex).Hierva, UserIndex) + If ObjData(ItemIndex).HojasDeRin > 0 Then Call QuitarObjetos(HojasDeRin, ObjData(ItemIndex).HojasDeRin, UserIndex) + If ObjData(ItemIndex).HojasRojas > 0 Then Call QuitarObjetos(HojasRojas, ObjData(ItemIndex).HojasRojas, UserIndex) + If ObjData(ItemIndex).SemillasPros > 0 Then Call QuitarObjetos(SemillasPros, ObjData(ItemIndex).SemillasPros, UserIndex) + If ObjData(ItemIndex).Pimiento > 0 Then Call QuitarObjetos(Pimiento, ObjData(ItemIndex).Pimiento, UserIndex) Exit Sub @@ -875,6 +894,223 @@ Function AlquimistaTieneMateriales(ByVal UserIndex As Integer, ByVal ItemIndex A End If End If + + If ObjData(ItemIndex).Botella > 0 Then + If Not TieneObjetos(Botella, ObjData(ItemIndex).Botella, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Botellas.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).Cuchara > 0 Then + If Not TieneObjetos(Cuchara, ObjData(ItemIndex).Cuchara, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Cucharas.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).Mortero > 0 Then + If Not TieneObjetos(Mortero, ObjData(ItemIndex).Mortero, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Mortero.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).FrascoAlq > 0 Then + If Not TieneObjetos(FrascoAlq, ObjData(ItemIndex).FrascoAlq, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Frascos de alquimistas.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + If ObjData(ItemIndex).FrascoElixir > 0 Then + If Not TieneObjetos(FrascoElixir, ObjData(ItemIndex).FrascoElixir, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Frascos de elixir superior.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + If ObjData(ItemIndex).Dosificador > 0 Then + If Not TieneObjetos(Dosificador, ObjData(ItemIndex).Dosificador, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Dosificadores.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).Orquidea > 0 Then + If Not TieneObjetos(Orquidea, ObjData(ItemIndex).Orquidea, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Orquídeas Silvestres.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + If ObjData(ItemIndex).Carmesi > 0 Then + If Not TieneObjetos(Carmesi, ObjData(ItemIndex).Carmesi, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Raíces Carmesí.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).HongoDeLuz > 0 Then + If Not TieneObjetos(HongoDeLuz, ObjData(ItemIndex).HongoDeLuz, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Hongos de Luz.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).Esporas > 0 Then + If Not TieneObjetos(Esporas, ObjData(ItemIndex).Esporas, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Esporas Silvestres.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).Tuna > 0 Then + If Not TieneObjetos(Tuna, ObjData(ItemIndex).Tuna, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Tunas Silvestres.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).Cala > 0 Then + If Not TieneObjetos(Cala, ObjData(ItemIndex).Cala, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Calas Venenosas.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).ColaDeZorro > 0 Then + If Not TieneObjetos(ColaDeZorro, ObjData(ItemIndex).ColaDeZorro, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Colas de Zorro.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).FlorOceano > 0 Then + If Not TieneObjetos(FlorOceano, ObjData(ItemIndex).FlorOceano, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Flores del óceano.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).FlorRoja > 0 Then + If Not TieneObjetos(FlorRoja, ObjData(ItemIndex).FlorRoja, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Flores Roja.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).Hierva > 0 Then + If Not TieneObjetos(Hierva, ObjData(ItemIndex).Hierva, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Hiervas de Sangre.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).HojasDeRin > 0 Then + If Not TieneObjetos(HojasDeRin, ObjData(ItemIndex).HojasDeRin, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Hojas de Rin.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).HojasRojas > 0 Then + If Not TieneObjetos(HojasRojas, ObjData(ItemIndex).HojasRojas, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Hojas Rojas.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).SemillasPros > 0 Then + If Not TieneObjetos(SemillasPros, ObjData(ItemIndex).SemillasPros, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Semillas Prosperas.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If + + If ObjData(ItemIndex).Pimiento > 0 Then + If Not TieneObjetos(Pimiento, ObjData(ItemIndex).Pimiento, UserIndex) Then + Call WriteConsoleMsg(UserIndex, "No tenes suficientes Pimientos Muerte.", e_FontTypeNames.FONTTYPE_INFO) + AlquimistaTieneMateriales = False + Call WriteMacroTrabajoToggle(UserIndex, False) + Exit Function + + End If + + End If 110 AlquimistaTieneMateriales = True @@ -1138,6 +1374,7 @@ Public Function PuedeConstruirAlquimista(ByVal ItemIndex As Integer) As Boolean Dim i As Long + 100 For i = 1 To UBound(ObjAlquimista) @@ -1299,33 +1536,42 @@ Public Sub AlquimistaConstruirItem(ByVal UserIndex As Integer, ByVal ItemIndex A And PuedeConstruirAlquimista(ItemIndex) _ And ObjData(UserList(UserIndex).Invent.HerramientaEqpObjIndex).OBJType = e_OBJType.otHerramientas _ And ObjData(UserList(UserIndex).Invent.HerramientaEqpObjIndex).Subtipo = 4 Then - -106 UserList(UserIndex).Stats.MinSta = UserList(UserIndex).Stats.MinSta - 25 -108 Call WriteUpdateSta(UserIndex) - ' AGREGAR FX - Call SendData(SendTarget.ToIndex, UserIndex, PrepareMessageParticleFX(UserList(UserIndex).Char.CharIndex, 253, 25, False, ObjData(ItemIndex).GrhIndex)) -110 Call AlquimistaQuitarMateriales(UserIndex, ItemIndex) - 'Call WriteConsoleMsg(UserIndex, "Has construido el objeto.", e_FontTypeNames.FONTTYPE_INFO) -112 Call SendData(SendTarget.toPCAliveArea, UserIndex, PrepareMessagePlayWave(117, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.y)) - - Dim MiObj As t_Obj + 'si tiene el hechizoAlquimista salgo + Dim hIndex As Integer -114 MiObj.amount = 1 -116 MiObj.ObjIndex = ItemIndex + hIndex = ObjData(ItemIndex).Hechizo 'cambiar por la variable del Obj en Hechizo -118 If Not MeterItemEnInventario(UserIndex, MiObj) Then -120 Call TirarItemAlPiso(UserList(UserIndex).Pos, MiObj) + If TieneHechizo(hIndex, UserIndex) Then - End If +106 UserList(UserIndex).Stats.MinSta = UserList(UserIndex).Stats.MinSta - 1 +108 Call WriteUpdateSta(UserIndex) + + ' AGREGAR FX + Call SendData(SendTarget.ToIndex, UserIndex, PrepareMessageParticleFX(UserList(UserIndex).Char.charindex, 253, 25, False, ObjData(ItemIndex).GrhIndex)) +110 Call AlquimistaQuitarMateriales(UserIndex, ItemIndex) + 'Call WriteConsoleMsg(UserIndex, "Has construido el objeto.", e_FontTypeNames.FONTTYPE_INFO) +112 Call SendData(SendTarget.ToPCAliveArea, UserIndex, PrepareMessagePlayWave(1152, UserList(UserIndex).pos.x, UserList(UserIndex).pos.y)) + + Dim MiObj As t_Obj - -122 Call SubirSkill(UserIndex, e_Skill.Alquimia) -124 Call UpdateUserInv(True, UserIndex, 0) - 'Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessagePlayWave(LABUROCARPINTERO, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)) - -126 UserList(UserIndex).Counters.Trabajando = UserList(UserIndex).Counters.Trabajando + 1 - +114 MiObj.amount = 1 +116 MiObj.ObjIndex = ItemIndex + +118 If Not MeterItemEnInventario(UserIndex, MiObj) Then +120 Call TirarItemAlPiso(UserList(UserIndex).pos, MiObj) + + End If + + +122 Call SubirSkill(UserIndex, e_Skill.Alquimia) +124 Call UpdateUserInv(True, UserIndex, 0) + 'Call SendData(SendTarget.ToPCArea, UserIndex, PrepareMessagePlayWave(LABUROCARPINTERO, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)) + +126 UserList(UserIndex).Counters.Trabajando = UserList(UserIndex).Counters.Trabajando + 1 + Else + Call WriteConsoleMsg(UserIndex, "Lamentablemente no aprendiste la receta para crear esta poción.", e_FontTypeNames.FONTTYPE_INFOBOLD) + End If End If @@ -2393,13 +2639,13 @@ Public Sub DoRaices(ByVal UserIndex As Integer, ByVal X As Byte, ByVal Y As Byte Exit Sub End If -104 If .Stats.MinSta > 5 Then -106 Call QuitarSta(UserIndex, 5) +104 If .Stats.MinSta > 2 Then +106 Call QuitarSta(UserIndex, 2) Else 108 Call WriteLocaleMsg(UserIndex, "93", e_FontTypeNames.FONTTYPE_INFO) - 'Call WriteConsoleMsg(UserIndex, "Estás muy cansado para obtener raices.", e_FontTypeNames.FONTTYPE_INFO) + Call WriteConsoleMsg(UserIndex, "Estás muy cansado para obtener raices.", e_FontTypeNames.FONTTYPE_INFO) 110 Call WriteMacroTrabajoToggle(UserIndex, False) Exit Sub @@ -2418,7 +2664,9 @@ Public Sub DoRaices(ByVal UserIndex As Integer, ByVal X As Byte, ByVal Y As Byte Dim nPos As t_WorldPos Dim MiObj As t_Obj - + + Call ActualizarRecurso(.pos.Map, x, y) + 'If .clase = e_Class.Druid Then 'MiObj.Amount = RandomNumber(6, 8) ' Else @@ -2442,9 +2690,9 @@ Public Sub DoRaices(ByVal UserIndex As Integer, ByVal X As Byte, ByVal Y As Byte 'Call WriteConsoleMsg(UserIndex, "¡Has conseguido algunas raices!", e_FontTypeNames.FONTTYPE_INFO) 144 Call WriteTextCharDrop(UserIndex, "+" & MiObj.amount, .Char.CharIndex, vbWhite) -146 Call SendData(SendTarget.toPCAliveArea, UserIndex, PrepareMessagePlayWave(60, .Pos.X, .Pos.y)) +146 Call SendData(SendTarget.ToPCAliveArea, UserIndex, PrepareMessagePlayWave(SND_TALAR, .pos.x, .pos.y)) Else -148 Call SendData(SendTarget.toPCAliveArea, UserIndex, PrepareMessagePlayWave(61, .Pos.X, .Pos.y)) +148 Call SendData(SendTarget.ToPCAliveArea, UserIndex, PrepareMessagePlayWave(SND_TALAR, .pos.x, .pos.y)) End If