Bueno como yo tengo el cliente de midraks implemente el codigo de macros como iao de twist y la solucion tambien el tema es que nose que variable tengo qe poner en este cliente para leer y escribir en macros.dat aca les dejo el code

este es el que guarda



y este es el que carga



otra cosa como no dan el macro.dat lo hice leyendo un poco el code pero nose si esta bien

[Macro0]
comando=""
Usar=0
Equipar=0
Hechizo=0

Usá los Macros Estilo IAO de Samke que están reparados... Creo que el tema se llama "Macros Estilo IAO (Reparado)", igual en Twist tiene un Bug que no manda el Hechizo cuando clickeas, pero nosé si pasará en 11.5

Saludos!

Sino solamente probá creando un Archivo que se llame "Macros.dat" vacío adentro, y entra al juego, pone algunos macros y después abri el Macros.dat y fijate si se escribieron...
Saludos!

También fijate que se llame a GuardarMacros porque si no lo llamás es obvio que no se sobreescribirá...
Sino pasame el post que me fijo si lo hace o no.

Si es lo mismo , yo tengo problema con la funcion writevar y getvar qe en los dos codigos de twist y samke usan la misma forma , y vacio ya probe igual no funca

Ghytek escribió:Si es lo mismo , yo tengo problema con la funcion writevar y getvar qe en los dos codigos de twist y samke usan la misma forma , y vacio ya probe igual no funca

Probá reemplazando el Sub GuardarMacros() por este

Alkair escribió:

Ghytek escribió:Si es lo mismo , yo tengo problema con la funcion writevar y getvar qe en los dos codigos de twist y samke usan la misma forma , y vacio ya probe igual no funca

Probá reemplazando el Sub GuardarMacros() por este

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Sub GuardarMacros()
2.  
3. Dim a As Byte
4. For a = 0 To 9
5.     Call WriteVar App.Path & "\Init\macros.dat", "Macro" & a, "Comando", Macros(a).comando
6.     Call WriteVar App.Path & "\Init\macros.dat", "Macro" & a, "Usar", Macros(a).Usar
7.     Call WriteVar App.Path & "\Init\macros.dat", "Macro" & a, "Equipar", Macros(a).Equipar
8.     Call WriteVar App.Path & "\Init\macros.dat", "Macro" & a, "Hechizo", Macros(a).Hechizo
9. Next a
10.  
11. End Sub

no ese codigo esta todo incompleto, yo necesito saver qe funcion usar para guardar datos en un dat nada mas y como leerlas

Ghytek escribió:

Alkair escribió:

Ghytek escribió:Si es lo mismo , yo tengo problema con la funcion writevar y getvar qe en los dos codigos de twist y samke usan la misma forma , y vacio ya probe igual no funca

Probá reemplazando el Sub GuardarMacros() por este

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

1. Sub GuardarMacros()
2.  
3. Dim a As Byte
4. For a = 0 To 9
5.     Call WriteVar App.Path & "\Init\macros.dat", "Macro" & a, "Comando", Macros(a).comando
6.     Call WriteVar App.Path & "\Init\macros.dat", "Macro" & a, "Usar", Macros(a).Usar
7.     Call WriteVar App.Path & "\Init\macros.dat", "Macro" & a, "Equipar", Macros(a).Equipar
8.     Call WriteVar App.Path & "\Init\macros.dat", "Macro" & a, "Hechizo", Macros(a).Hechizo
9. Next a
10.  
11. End Sub

no no me entendes lo que te quiero decir esta funcion WriteVar no anda en mi cliente me explico?

Sí sí, te entiendo perfectamente, pero hay veces que no anda por X motivo, probá esa manera, si no anda te digo otra cosa. Pero primero decime si eso funca o no.

No no funca esta incompleto el codigo

Ghytek escribió:No no funca esta incompleto el codigo

En el módulo Declaraciones debajo de Option Explicit poné



Después en el módulo general abajo de todo ponés




Que versión o mod de AO usas?

Jaajaja gracias capo yo habia borrado el sub write y me habia olvidado de ponerlo no me acuerdo para que lo hice gracias

Ghytek escribió:Jaajaja gracias capo yo habia borrado el sub write y me habia olvidado de ponerlo no me acuerdo para que lo hice gracias

De nada, si tenés otro problema no dudes en decirme!
Saludos!