.bra {
.ket }
echo "Rashumon Hard Disk Software Installation"
echo "*NThis will install the Rashumon software*Non your Work disk.*N"
ask "Are you sure you want to continue?"
if warn
	stack 20000
	delete >NIL: Work:rashumon/Rashumon
	echo "Creating 'Rashumon' drawer in Work:"
	makedir >NIL: Work:Rashumon
	copy Rashumon_Installer:Rashumon_drawer.info Work:Rashumon.info
	echo "Copying contents of 'Rashumon_drawer' to 'Work:Rashumon'"
	copy Rashumon_Installer:Rashumon_drawer Work:Rashumon all
	echo "Copying Rashumon's fonts to 'Fonts:'"
	copy Rashumon_Installer:fonts fonts: all
	copy Rashumon_Installer:#?.pref work:
	echo "*NSoftware installation complete."
	if not exists sys:WBStartup/pointerx
		copy Rashumon_Installer:PointerX#? sys:WBStartup quiet
		copy Rashumon_Installer:PointerXInfo sys:WBStartup/PointerX.info quiet
		rashumon_Installer:PointerX
	endif
	if exists work:Scala
		copy rashumon_installer:Rashumon.pic work:scala/backgrounds/
		copy rashumon_installer:Rashumon2.pic work:scala/backgrounds/
		copy rashumon_installer:Rashumon->Scala#? work:scala/scripts/
	endif
endif
wait 2
