(set @appname "COINMANIA LEVEL EDITOR")
(set @user-level 2)
(complete 0)
(set NoHD 0)
(set GotHD (exists "dh0:" (noreq)))
(if (= GotHD NoHD)
 ((message "\n\n\n\nUnable To Install\n\nCOINMANIA\n\nAs No Hard Disk Attached")
   (exit (quiet))
 )
)
(set LE_Dest (askdir
               (prompt "Please Choose Where You Would Like The\n"
		       "COIN MANIA - LEVEL EDITOR\n"
		       "To Be Installed")
	       (help   "      This Part Will Make A Directory Called:-\n"
		       "                      LEVEL EDITOR\n"
		       "            In The Directory You Select.\n\n"
		       "                 e.g If You Select:-\n"
		       "                         DH0:\n"
		       "              Then A Directory Called:\n"
		       "                    DH0:LEVEL EDITOR\n\n"
		       "Will Be Created And The CM - LEVEL EDITOR And Most Of "
		       "The Files Related To It  Will Be Placed In This Newly "
		       "Created Directory So They Are Not Spread All Over The "
		       "            Device You Wish To Install To.")
	       (default @default-dest)
	     )
)
(set LE_Dest (tackon LE_Dest "LevelEditor"))
(makedir LE_Dest (prompt "")(help "")(infos))
(copyfiles (prompt "")
	   (help "")
	   (infos)
	   (source "CheapWare:LevelEditor")
	   (dest LE_Dest)
	   (all))
(message "\n\nNow Attempting To Edit File\n\n"
	 "--------\n"
	 "S:User-Startup\n"
	 "---------\n\n"
	 "To Include The Line\n\n"
	 "--------------------------\n"
	 "ASSIGN LevelEditor: " LE_Dest)
(startup "LEVELEDITOR"
	 (prompt "Editing Startup-Sequence To Include Assign")
	 (help "")
	 (command "Assign LevelEditor: " LE_Dest))
(complete 100)