#!/usr/bin/tclsh
puts stdout "Death Scripts 3.0 Install Beta 03"
puts stdout "Should Install Script..."
puts stdout "Death Scripts 3.0 Build Info 1660\n Begining Install...."
set file "blah"
while ![file exists $file] {
   puts -nonewline stdout "Enter the bots full directory (ie:/usr/home/eggdrop)-->"
   flush stdout
   gets stdin file
    if ![file exists $file] {
     puts stdout "Invalid directory! Try again.."
    } {
     break
    }
  }
  if ![file exists $file/scripts] {
   puts stdout "No scripts directory! Making one.."
   exec mkdir $file/scripts
  }
puts stdout "Copying Script Files Now...."
catch {exec cp *.tcl $file/scripts}
puts stdout "Copying Root Help Files to $file/help/dcc"
if ![file exists $file/help] {
puts stdout "DOH! HelpDIR NOT FOUND....IS This the Correct DiR? Creating $file/help"
catch {exec mkdir $file/help} caught
if [info exists caught] {
    puts stdout $caught
    unset caught
}}
puts stdout "Copying Help Files...."
catch {exec cp deathscripts3.0.help $file/help} caught
if [info exists caught] {
   puts stdout $caught
   unset caught
   } 


  
puts stdout "Death Scripts 3.0 Install Complete!"
puts stdout "You STILL Need to Add the line source scripts/deathscripts3.0.tcl "
puts stdout "To Your Config File, Also the Userfile variable in the script MUST Be set correctly"
puts stdout "Also With ALL Scripts you should READ Completely the script, add set variables to your desired settings!"
puts stdout "Questions/Bugs:drdeath1@hotmail.com or DrDeath@Undernet"

