Estoy con mi primer pj currante, i este es el problema
tengo esta macro de minar... y no me funciona:
Código:; Macro by Alex (Ultima Alianza) ; Para Minar en Minas preestablecidas de forma sencilla, moviendose solo. ; Esta macro no guarda, ni funde el mineral. ; Para usar la macro debemos dirigirnos a una de las minas preestablecidas ; y cambiar el valor lugar en el script segun la Mina escogida. ; Las Minas actuales son: ; 0- Ninguna (Mina solo igual, pero si se sale de dentro de la mina no se volverá a meter, deberás moverlo tu) ; 1- Shame (Norte de la entrada Shame (Trabajos Forzados)) ; 2- Covetous 1 (Primera Mina a la derecha de la Dungeon Covetous) ; 3- Covetous 2 (Segunda Mina a la derecha de la Dungeon Covetous) ; 4- Covetous 3 (De las dos minas juntas en Covetous Norte, la de arriba) ; 5- Covetous 4 (De las dos minas juntas en Covetous Norte, la de abajo, meterse bien adentro antes de iniciar la macro) ; 6- Minoc Ciudad 1 (La mina que hay al Este de Minoc, pasando el puente) ; 7- Minoc Ciudad 2 (La mina al lado de la que hay pasando el puente de Minoc) ; 8- Minoc Mina 1 (De las Minas del Norte de Minoc, la primera de la izquierda abajo) ; 9- Minoc Mina 2 (De las Minas del Norte de Minoc, la de la izquierda donde hay dos (Haven)) ; 10- Minoc Mina 3 (De las Minas del Norte de Minoc, la de la derecha donde hay dos (Haven)) ; 11- Destard 1 (Un poco a la izquierda de La Dungeon Destard) ; 12- Destard 2 (Desde la entrada de Destard Dungeon bajando bordeando, la primera mina que encuentras) ; 13- Destard 3 (Desde la entrada de Destard Dungeon bajando bordeando, la segunda mina que encuentras) ; 14- Destard 4 (Desde la entrada de Destard Dungeon bajando bordeando, la terera mina que encuentras, en la de la parte derecha de la montaña) ; 15- Wrong 1 (Junto a la entrada de la Dungeon de Wrong) ; 16- Wrong 2 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la primera que encuentras) ; 17- Wrong 3 (Bordendo la montaña desde la entrada de Wrong hacia la izquierda, la segunda que encuentras) ; 18- Hythloth 1 (Bordeando la montaña, hacia arriba desde Hythloth, la primera que encuentras) ; 19- Hythloth 2 (Bordeando la montaña, hacia abajo derecha de Hythloth, la primera Mina que encuentras) ; 20- Hythloth 3 (Bordeando la montaña, hacia abajo derecha de Hythloth, la segunda Mina que encuentras) ; 22- Avatar Norte 1 (De la montaña del Norte de Avatar, la primera que encuentas) ; 23- Avatar Norte 2 (De la montaña del Norte de Avatar, desde la primera, a la derecha bordeando, la primera que encuentras) ; 24- Desierto (En el cruce de caminos) ; 25- Shame Sur ; ------------------- set %lugar 24 ; ------------------- initevents chooseskill mini set %skillini #skill set %locs LOCATIONS_PISADAS set %borrado 0 event sysmessage Iniciando Macro gosub lugares comienzo: findItem NPF if #FINDSTACK = 0 { findItem QPF } set #LOBJECTID #FINDID set %cmsg #jIndex event macro 17 wait 10 set %fmsg #jIndex for %i %cmsg %fmsg { scanJournal %i if where_do_you_want in #journal { set %seguridad 0 goto acabapicar } } goto comienzo acabapicar: set %cmsg #jIndex event macro 23 wait 10 set %fmsg #jIndex for %i %cmsg %fmsg { scanJournal %i if You_put in #journal || No_encuentras in #journal { set %skillinc #SKILL - %skillini setuotitle Skill de Mining | Inicial: %skillini | Actual: #SKILL | Incremento: %skillinc goto comienzo } if Aqui_no_hay_nada_por in #journal || Prueba_a in #journal { goto moverse } } gosub seguridad goto acabapicar moverse: if %lugar > 0 { if #CHARPOSX , _ , #CHARPOSY notIn %locs { set %borrado %borrado + 1 if %borrado > 100 { set %locs LOCATIONS_PISADAS set %borrado 0 } set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY } if %lugarp = X { if %lugaro < #CHARPOSX { for %i 1 6 { event macro 5 7 wait 10 } } } if %lugar = 5 { if %lugaro > #CHARPOSX { for %i 1 6 { event macro 5 3 wait 10 } } } if %lugarp = Y { if %lugaro < #CHARPOSY { for %i 1 6 { event macro 5 1 wait 10 } } } } set %mover #random % 7 event macro 5 %mover wait 20 event macro 5 %mover wait 20 if #CHARPOSX , _ , #CHARPOSY in %locs { goto moverse } goto comienzo sub seguridad { set %seguridad %seguridad + 1 if %seguridad > 15 { set %seguridad 0 goto comienzo } return } sub lugares { if %lugar = 1 { set %lugaro 1460 set %lugarp Y } if %lugar = 2 { set %lugaro 2454 set %lugarp X } if %lugar = 3 { set %lugaro 914 set %lugarp Y } if %lugar = 4 { set %lugaro 828 set %lugarp Y } if %lugar = 5 { set %lugaro 2355 set %lugarp X } if %lugar = 6 { set %lugaro 499 set %lugarp Y } if %lugar = 7 { set %lugaro 2602 set %lugarp X } if %lugar = 8 { set %lugaro 2426 set %lugarp X } if %lugar = 9 { set %lugaro 2440 set %lugarp X } if %lugar = 10 { set %lugaro 66 set %lugarp Y } if %lugar = 11 { set %lugaro 266 set %lugarp Y } if %lugar = 12 { set %lugaro 1259 set %lugarp X } if %lugar = 13 { set %lugaro 2729 set %lugarp Y } if %lugar = 14 { set %lugaro 2895 set %lugarp Y } if %lugar = 15 { set %lugaro 2895 set %lugarp Y } if %lugar = 16 { set %lugaro 1499 set %lugarp X } if %lugar = 17 { set %lugaro 1941 set %lugarpX } if %lugar = 18 { set %lugaro 1918 set %lugarp X } if %lugar = 19 { set %lugaro 3822 set %lugarp Y } if %lugar = 20 { set %lugaro 4766 set %lugarp X } if %lugar = 21 { set %lugaro 4817 set %lugarp X } if %lugar = 22 { set %lugaro 3303 set %lugarp Y } if %lugar = 23 { set %lugaro 4554 set %lugarp X } if %lugar = 24 { set %lugaro 1812 set %lugarp X } return }
Segun pone, en " set %lugar " he de escribir el numero de la mina en que minare, ok, pues yo escribo el 6, ya que es la mina donde quiero minar, es la que hay pasando el puente del este de minoc.
Pues me meto dentro de la mina elegida, enciendo la macro y no va, no se si hago algo mal, pero mi pj no mina...
Aver si alguien me puede decir que es lo que no hago bien...
I aprovechando el post, alguien me puede indicar una macro que te guarde los lingotes que obtienes en el banco o en alguna otra caja?
eso es todo... gracias por adelantado
Citar
