.key ""
echo "This script will check to see if you have the necessary"
echo "fonts in your Fonts directory and if not copy them there."
echo "If you wish to exit without making any changes"
echo "answer no (type n and hit RETURN) at both prompts."
echo ""
ask "Should I write to your Fonts directory? Y/N"
if warn
   echo "Verifying fonts directory"
   if not exists Sys:Fonts/Helvetica
	makedir Sys:Fonts/Helvetica
	copy Fonts/Helvetica Sys:Fonts/Helvetica all
   else
	if not exists Sys:Fonts/Helvetica/24
		copy Fonts/Helvetica/24 Sys:Fonts/Helvetica/24
	endif
	if not exists Sys:Fonts/Helvetica/9
		copy Fonts/Helvetica/9 Sys:Fonts/Helvetica/9
	endif
   endif
   if not exists Sys:Fonts/Helvetica.Font
	copy Fonts/Helvetica.font Sys:Fonts/Helvetica.font
   endif
   if not exists Sys:Fonts/Basic
	makedir Sys:Fonts/Basic
	copy Fonts/Basic Sys:Fonts/Basic all
   else
	if not exists Sys:Fonts/Basic/32
		copy Fonts/Basic/32 Sys:Fonts/Basic/32
	endif
   endif
   if not exists Sys:Fonts/Basic.font 
	copy Fonts/Basic.font Sys:Fonts/Basic.font
   endif
   if not exists Sys:Fonts/ruby
	makedir Sys:Fonts/ruby
	copy Fonts/ruby Sys:Fonts/ruby all
   else
	if not exists Sys:Fonts/Ruby/8
		copy Fonts/ruby/8 Sys:Fonts/ruby/8
	endif
	if not exists Sys:Fonts/Ruby/12
		copy Fonts/ruby/12 Sys:Fonts/ruby/12
	endif
	if not exists Sys:Fonts/ruby/15
		copy Fonts/ruby/15 Sys:Fonts/ruby/15
	endif	
   endif
   if not exists Sys:Fonts/ruby.font
	copy Fonts/ruby.font Sys:Fonts/ruby.font
   endif
  if not exists Sys:Fonts/Script
	makedir Sys:Fonts/Script
	copy Fonts/Script Sys:Fonts/Script all
  else
	if not exists Sys:Fonts/Script/16
		copy Fonts/Script/16 Sys:Fonts/Script/16
	endif
  endif
  if not exists Sys:Fonts/Script.font
	copy Fonts/Script.font Sys:Fonts/Script.font
  endif
   echo "Everything went smoothly."
   echo "Just click on the 501-The_Game icon"
   echo "and shoot good darts!"

else
   echo ""
   echo "O.K."
   echo "Should I put the necessary fonts in RAM"
   echo "Don't forget this is only temporary."
   ask "Y/N"
   if warn
	copy Fonts Ram:501Fonts all
   endif
	echo "Assigning Fonts to Ram:501Fonts"
   	assign Fonts: RAM:501Fonts
	echo "Everything is now ready"
	echo "Enjoy your game!"
	echo "Later, open the Shell and type Assign Fonts:"
	echo "Then type Delete RAM:501Fonts All"
	echo "and your system will be back to normal."
  else
	echo "Exiting safely. No changes made."
  endif
endif
echo "Click close gadget"
endcli
