Miscellany

alias moetslaan {
  unset %dam.select
  unset %check.slaan
  set %selectx $gettok(%dam.pic,1,32)
  set %selecty $gettok(%dam.pic,2,32)
  set %selectxy $calc(%selectx + 79) $calc(%selecty + 66)
  set %selectxy2 $calc(%selectx + 158) $calc(%selecty + 132)
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty + 66),$chr(32),-) ] ] == 2) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan %dam.pic
      set %check.slaan 1
      set %moetslaan11 %selectxy2 
    }
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 $calc(%selectx + 79) $calc(%selecty + 66)
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty - 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan %dam.pic
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 $calc(%selectx - 79) $calc(%selecty - 66)
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty + 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan %dam.pic
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 $calc(%selectx - 79) $calc(%selecty + 66)
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty - 66),$chr(32),-) ] ] == 2) {
    if ( % [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan %dam.pic
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
  }
  echo -e slaan1: %moetslaan --- slaan2: %moetslaan2 --- xy: %selectxy --- xy2: %selectxy2
  unset %moetslaan*
  unset %select*
}
alias moetslaan2 {
  unset %dam.select2
  unset %check.slaan
  set %selectx $gettok(%dam.pic,1,32)
  set %selecty $gettok(%dam.pic,2,32)
  set %selectxy $calc(%selectx + 79) $calc(%selecty + 66)
  set %selectxy2 $calc(%selectx + 158) $calc(%selecty + 132)
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty + 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 %dam.pic
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty - 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 %dam.pic
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
  }
  if (% [ $+ [ $replace($calc(%selectx - 79) $calc(%selecty + 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 %dam.pic
      set %check.slaan 2
      set %moetslaan22 %selectxy2 
    }
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1
      set %moetslaan11 %selectxy2 
    }
  }
  if (% [ $+ [ $replace($calc(%selectx + 79) $calc(%selecty - 66),$chr(32),-) ] ] == 1) {
    if (% [ $+ [ $replace($calc(%selectx + 158) $calc(%selecty - 132),$chr(32),-) ] ] == 0) {
      set %moetslaan2 %dam.pic
      set %check.slaan 2 
      set %moetslaan22 %selectxy2
    }
    if (% [ $+ [ $replace($calc(%selectx - 158) $calc(%selecty + 132),$chr(32),-) ] ] == 0) {
      set %moetslaan $calc(%selectx + 79) $calc(%selecty - 66)
      set %check.slaan 1 
      set %moetslaan11 %selectxy2
    }
  }
  echo -e slaan1: %moetslaan --- slaan2: %moetslaan2 --- xy: %selectxy --- xy2: %selectxy2
  unset %moetslaan*
  unset %select*
}