filterLegalInForm p (Just (Attack dx dy))
  | isConfused p = filterLegalInForm p (Just (Go dx dy))
filterLegalInForm p (Just (Attack dx dy))
  | isConfused p = filterLegalInForm p (Just (Go dx dy))
filterLegalInForm p (Just (Attack dx dy))
  | isConfused p = filterLegalInForm p (Just (Go dx dy))