;Tetris HD install Script
   ;last update 13 feb. 1993

   ;Were to install it?

   (set  @default-dest
         (askdir
            (prompt "Select or create the directory where you "
                    "would like to install Tetris pro on.")
            (help "Tetris Pro and Data will be installed in the "
                  "directory of your choice. You may wish to create "
                  "a new directory for Tetris Pro by using the "
                  "'Make a new Drawer' gadget.")
            (default "Work:")
         )
   )

(Working "Installing Tetris Pro and Data...")

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Tetris")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Tetris.info")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Data Tetris")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Data Tetris.info")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Data Tetris2")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Data Tetris2.info")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Data Tetris3")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Data Tetris3.info")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "readme")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "readme.info")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Highscore")
      (dest @default-dest)
   )

   (copyfiles
      (prompt "")
      (help @copyfiles-help)
      (source "Highscore.info")
      (dest @default-dest)
   )


;It all done!!