initevents 

set %SonHojas CRA_A_OA_E
set %Total 1

display yesno ++++++++++++++++++++Creador de Caminos++++++++++++++++++++$Esta macro te ayudara a crear el camino cerrado para tu leador.$Asegurate de que finalizas en la misma posicion en que empezastes.$Simplemente anda y corta una sola vez en cada arbol que quieres que luego se corte$Se lo mas ordenado posible al hacer el camino, si no puedes perderte y repetir arboles$Tira algo al suelo en el primer punto donde empieces, para acordarte.$$Para que el programa haga el archivo automaticamente,activa la opcion Allow Execute$Si te pasaron la macro,mira que el archivo a.bat es$    echo Call Array Push %2 %3 %4 %5 >> %1$Y que desde este fichero las lineas que empiezan por execute comienzan como:$     execute COMMAND /C a.bat .....$ o  execute COMMAND /C ECHO ..... $$Los dos comandos que se deben usar son estos:$   Ctrl+S: Empezar el camino$   Ctrl+F: Finalizar el camino$                                                 Deseas seguir?

if #dispres = no
  halt
event sysmessage Configurando Array, espera por fravor.....
call array reset
call array info
set %MaxVects %2
event sysmessage Ahora vete al lugar donde pondras el primer punto y usa Ctrl+S para empezar....

set %StoredDir -1
SET %LastX 0
SET %LastY 0

espera:
  onhotkey S Ctrl
    goto bucle3
goto espera
bucle3:
event sysmessage Empezamos el camino

bucle:
  if #CHARDIR <> %StoredDir
    {
      Set %storedDir #CHARDIR
      if %LastX = #CharPosX
        {
           if %LastY = #CharPosY
            {
              goto noMetoPunto:
            }
        }
      SET %LastX #CharPosX
      SET %LastY #CharPosY
      set %Total %Total + 1
      set %MaxVects %MaxVects - 1
      event sysmessage Quedan %MaxVects puntos de memoria
      call array push #Charposx #Charposy -1 -1
    }
 noMetoPunto:
 if #TARGCURS = 1
   {
       esperandoarbol:
           if #TARGCURS = 0
               goto CortandoArbol
       goto esperandoarbol:
     CortandoArbol:
     set %cx #CursorX 
     set %cy #CursorY
     wait 17
     if %SonHojas in #sysmsg
         {
            event sysmessage Mcachis, eso son hojas!
            wait 3
            goto bucle
          }
     SET %LastX #CharPosX
     SET %LastY #CharPosY
     Set %storedDir #CHARDIR

     set %Total %Total + 1
     set %MaxVects %MaxVects - 1
   event sysmessage Quedan %MaxVects puntos de memoria
     call array push #Charposx #Charposy %cx %cy
    }

  onhotkey F Ctrl
    goto SeAcabo

goto bucle:
 set %Total %Total + 1
 call array push #Charposx #Charposy -1 -1


SeAcabo:
 event sysmessage Bueno pues entonces ya terminamos el camino
wait 1s
 event sysmessage Ahora se hara una prueba para ver si el camino es correcto o no
wait 1s
 event sysmessage si en algun momento algo va mal, para la macro y repite el proceso
wait 1s

for %i 1 %Total
  {
   if %i <> %total
    call array GET %i
   if %i = %total
    call array GET 1

    move %1 %2 a 30s
    if %3 <> -1
      {
       event sysmessage Aqui intentaria picar
       click %3 %4 n
      }
  }


event sysmessage Bien, si todo es correcto, se crearia el archivo automaticamente si activaste la opcion Allow Execute
event sysmessage Si no, deberas crearlo a mano. Copia todo esto a un archivo llamado InitPath.txt :

wait 2s
 set %Total %Total - 1

  execute COMMAND /C echo ; Archivo creado automaticamente>InitPath.txt
 for %i 1 %Total
 {
   call array get %i
   execute COMMAND /C a.bat Initpath.txt %1 %2 %3 %4
   event sysmessage Call Array PUSH %1 %2 %3 %4
 }


event sysmessage Terminado
halt