initevents 

set %SonHojas CRA_A_OA_E
set %Total 0

display yesno ++++++++++++++++++++Creador de Caminos++++++++++++++++++++$Esta macro te ayudara a crear el camino que se debe hacer para$ir desde el primer punto de talado hasta el banco/casa, y vicecersa.$$Para que el programa haga el archivo automaticamente,activa la opcion Allow Execute$Si te pasaron la macro,mira que desde este fichero las lineas que empiezan por execute comienzan como:$     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 favor.....
call array reset
call array info
set %MaxVects %2
event sysmessage Vete al lugar donde pusistes mas o menos el primer punto 
event sysmessage y usa Ctrl+S para empezar....

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

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

bucle:
  if #CHARDIR <> %StoredDir
    {
      if %LastX = #CharPosX
        {
           if %LastY = #CharPosY
            {
              goto noMetoPunto:
            }
        }
      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 -1 -1
    }
 noMetoPunto:
  onhotkey F Ctrl
    goto SeAcabo

goto bucle:

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

 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 %Total 1
  {
    call array GET %i
    move %1 %2 a 30s
  }

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 Adescarg.txt :

 wait 2s
  execute COMMAND /C echo ; Archivo creado automaticamente>Adescarg.txt
 for %i 1 %Total
 {
   call array get %i
   execute COMMAND /C ECHO MOVE %1 %2 a 40s>>Adescarg.txt
   event sysmessage MOVE %1 %2 a 40s
 }
event sysmessage +++++++++++FIN DEL ARCHIVO ADESCARG.TXT+++++++++++++++++
wait 4s
event sysmessage Ahora el otro archivo, alafaena.txt seria igual que este
event sysmessage pero con todos los comandos en orden inverso....
wait 4s

  execute COMMAND /C echo ; Archivo creado automaticamente>ALaFaena.txt
 for %i %Total 1
 {
   call array get %i
   execute COMMAND /C ECHO MOVE %1 %2 a 40s>>ALaFaena.txt
   event sysmessage MOVE %1 %2 a 40s
 }
event sysmessage +++++++++++FIN DEL ARCHIVO ALAFAENA.TXT+++++++++++++++++

event sysmessage Terminado
halt