 goto %ZonaAPicar
exit

Oeste:

 ;arriba derecha
   set %picarx #charposx 
   set %picary #charposy - 1
  call picando
 ;arriba
   set %picarx #charposx - 1
   set %picary #charposy - 1
  call picando
 ;arriba izquierda
   set %picarx #charposx - 1
   set %picary #charposy 
  call picando
exit

SurOeste:
   set %picarx #charposx - 1
   set %picary #charposy 
  call picando
   set %picarx #charposx - 1
   set %picary #charposy + 1
  call picando
   set %picarx #charposx 
   set %picary #charposy + 1
  call picando
exit

Norte:
   for %px -1 1
     {  
      set %picarx #charposx + %px
      set %picary #charposy - 1 
      call picando
     }
exit

Sur:
   for %px -1 1
     {  
      set %picarx #charposx + %px
      set %picary #charposy + 1 
      call picando
     }
exit

Mina:
   for %px -1 1
     {  
      for %px -1 1
        {   
         set %picarx #charposx + %px
         set %picary #charposy + %py
         call picando
        }
     }
exit

