: draw-player ( x -- )
  \  /==|==\

  3 -

  form drop ( height ) 2 -
  at-xy ." /==|==\"

  ;

: draw-ufo ( x y )
  \ reduce x by 3
  swap 3 - swap

  \ reduce y by 3
  1 -

  2dup     at-xy ."  /:::\ "
  2dup 1 + at-xy ." qo-o-op"
       2 + at-xy ." /\ @ /\"
  ;

: draw-ufo2 ( x y )
  swap 3 - swap
  1 -

  2dup     at-xy ."    $   "
  2dup 1 + at-xy ." (-#-#-)"
       2 + at-xy ."  dd bb "
  ;

: draw-block ( x y -- )
  swap 2 - swap
  2 -

  2dup     at-xy ."   /\ "
  2dup 1 + at-xy ."  /  \"
  2dup 2 + at-xy ."  \  /"
       3 + at-xy ."   \/ "
  ;

: draw-block2 ( x y -- )
  swap 2 - swap
  2 -

  2dup     at-xy ." +MMMM+"
  2dup 1 + at-xy ." H.  .H"
  2dup 2 + at-xy ." H .  H"
       3 + at-xy ." +WWWW+"
  ;

: banner ( x y -- )
  2 -
  swap 73 2 / - swap
  2dup     at-xy ."   ______           __  __       ____                     __              "
  2dup 1 + at-xy ." /  ____/___  _____/ /_/ /_     /  _/___ _   ______ _____/ /__  __________ "
  2dup 2 + at-xy ." / /_  / __ \/ ___/ __/ __ \    / // __ \ | / / __ `/ __  / _ \/ ___/ ___/"
  2dup 3 + at-xy ." / __/ / /_/ / /  / /_/ / / /  _/ // / / / |/ / /_/ / /_/ /  __/ /  (__  )"
       4 + at-xy ." /_/   \____/_/   \__/_/ /_/  /___/_/ /_/|___/\__,_/\__,_/\___/_/  /____/"
  ;

: game-over-banner ( x y )
  2 -
  swap 54 2 / - swap
  2dup     at-xy ."    ______                        ____"
  2dup 1 + at-xy ."   / ____/___ _____ ___  ___     / __ \_   _____  _____"
  2dup 2 + at-xy ."  / / __/ __ `/ __ `__ \/ _ \   / / / / | / / _ \/ ___/"
  2dup 3 + at-xy ." / /_/ / /_/ / / / / / /  __/  / /_/ /| |/ /  __/ /    "
       4 + at-xy ." \____/\__,_/_/ /_/ /_/\___/   \____/ |___/\___/_/     "
  ;