Subir
Sand mi macro es esta. initevents ;======================= CONFIGURACION DEL CHAR ============== move 1380 2755 2 4s ; ESQUINA CASA display OK Abre el cofre.$ Tienes 3 segundos wait 3s set %Cofre #lobjectid set %CofreX #cursorx set %Cofrey #cursory ;=========================== COLOCAMOS OBJETOS EN PANTALLA ====== Event macro 31 0 wait 50 event macro 8 1 wait 30 contpos 600 335 wait 50 event macro 8 7 wait 30 contpos 600 10 wait 50 event macro 8 2 wait 30 contpos 600 560 wait 50 event macro 17 0 wait 30 contpos 600 100 wait 50 Set_pico: display OK selecciona el pico q vas a usar.$ Tienes 5 segundos. wait 5s set %pico #lobjectid set %limite #maxweight - 90 ;=========================== PROGRAMA PRINCIPAL ================== gosub Casa_Mina sectores: gosub Sector1 gosub Sector2 gosub Sector3 goto sectores ;=========================== SECTORES ============================ Sub Sector1 for %MinandoY 2715 2726 { for %MinandoX 1374 1362 { move %MinandoX %MinandoY 0 15s gosub Picar } } gosub trayecto;DEJA EL MINERAL Y VUELVE return Sub Sector2 for %MinandoY 2713 2705 { for %MinandoX 1367 1367 { move %MinandoX %MinandoY 0 15s gosub Picar } } gosub trayecto;DEJA EL MINERAL Y VUELVE return Sub Sector3 for %MinandoY 2707 2711 { for %MinandoX 1375 1381 { move %MinandoX %MinandoY 0 15s gosub Picar } } gosub trayecto;DEJA EL MINERAL Y VUELVE return ;============================ COLOCAR MATERIALES ================= Sub Dejar_Menas Minerales: finditem DWJ c_ , #BACKPACKID if #findkind = -1 { ignoreitem reset return } event drag #findid wait 10 msg $ wait 10 click %Cofrex %Cofrey p goto Minerales return ;================================= TRAYECTOS ====================== Sub Casa_Mina move 1380 2755 0 50s ; ESQUINA CASA move 1367 2730 0 50s ;PUERTA MINA move 1371 2711 0 50s;CENTRO MINA2 move 1371 2711 0 50s ;CENTRO MINA1 return Sub Mina_Casa set #lobjectid %puerta move 1371 2711 0 50s ;CENTRO MINA1 move 1371 2711 0 50s ;CENTRO MINA2 move 1367 2730 0 50s ;PUERTA MINA move 1380 2755 0 50s ; ESQUINA CASA return ;================================= PICANDO ====================== Sub Picar set #lobjectid %pico Picando: if #CHARGHOST = YES pause If #weight >= %Limite { Set %MinandoY #charposy gosub trayecto return } event macro 17 0 wait 20 set #LTARGETX #CHARPOSX + 1 set #LTARGETY #CHARPOSY - 1 event macro 22 wait 7s set %journal #sysmsg if You_have_no_line in #journal || Prueba_a in #journal || { set %borrado %borrado + 1 if %borrado > 100 { set %locs LOCATIONS_PISADAS set %borrado 0 } set %locs %locs , _ , #CHARPOSX , _ , #CHARPOSY gosub compruebapeso scanJournal %i if You_put in #journal { goto Picando { return } else { wait 7s goto Picando } return Sub trayecto gosub Mina_Casa gosub Dejar_Menas gosub Casa_Mina return no he podido mandartela antes, si puedes ayudarme te estaria agradecido. Ten por seguro que la gente que me ayuda siempre tiene su recompensa.