.key test/s,full/s
.bra [
.ket ]

echo "*Ec*N                 Bump N Burn CD-32 Hard Drive Installer*N"

lab nameloop
  echo "Which partition do you want to install Bump N Burn to? (eg DH0: Work:) " noline
  set >NIL: target ?
  if "$target" EQ "Q"
      skip exit
  endif

  if "`echo $target len 1`" NOT EQ ":"
    set target $target:
  endif

  assign >NIL: exists "${Target}"
  if warn
    echo "Error: partition does not exist.*N"
    skip back nameloop
  endif

lab partok

assign Target: "${Target}"
c:makedir >nil: target:Bump
c:makedir >nil: target:Bump/LEVEL_INCLUDES
c:makedir >nil: target:Bump/LEVEL_INCLUDES/COMMON
c:copy disk1:lha ram:
c:copy disk1:cls sys:c/
c:cls
c:copy disk1:BUMP.info target:
echo "*n*nUnArcing file one please wait..........."
ram:lha >nil: x disk1:1.lha target:Bump/LEVEL_INCLUDES/
echo "*n*nUnArcing file Two please wait..........."
ram:lha >nil: x disk1:GAME.lha target:Bump/
echo "*n*nUnArcing file Three please wait........."
ram:lha >nil: x disk1:C.lha target:SYS:c/
lab disk?
assign >nil: exists disk2:
if warn
c:cls
 
c:echo "*n*n*n*n*n*n*n*n*n                              Insert Disk Two"
 skip back disk?
endif
c:cls
c:echo "*n*nUnArcing file Four please wait..........."
ram:lha >nil: x disk2:2.lha target:BUMP/LEVEL_INCLUDES/
lab disk3?
assign >nil: exists disk3:
if warn
c:cls 

c:echo "*n*n*n*n*n*n*n*n*n                             Insert Disk Three"
 skip back disk3?
endif
c:cls
c:echo "*n*nUnArcing file Five please wait..........."
ram:lha >nil: x disk3:3.lha target:BUMP/LEVEL_INCLUDES/LEV_DREAM/
c:echo "*n*nUnArcing file Six please wait..........."
ram:lha >nil: x disk3:6.lha target:BUMP/LEVEL_INCLUDES/
lab disk4?
assign >nil: exists disk4:
if warn
c:cls 

c:echo "*n*n*n*n*n*n*n*n*n                             Insert Disk Four"
 skip back disk4?
endif
c:cls
c:echo "*n*nUnArcing file Seven please wait..........."
ram:lha >nil: x disk4:4.lha target:BUMP/LEVEL_INCLUDES/
lab disk5?
assign >nil: exists disk5:
if warn
c:cls 

c:echo "*n*n*n*n*n*n*n*n*n                             Insert Disk Five"
 skip back disk5?
endif
c:cls
c:echo "*n*nUnArcing file Eight please wait..........."
ram:lha >nil: x disk5:5.lha target:BUMP/LEVEL_INCLUDES/
c:echo "*n*nUnArcing file Nine please wait..........."
ram:lha >nil: x disk5:Common2.lha target:BUMP/LEVEL_INCLUDES/COMMON/

lab disk6?
assign >nil: exists disk6:
if warn
c:cls 

c:echo "*n*n*n*n*n*n*n*n*n                             Insert Disk Six"
 skip back disk6?
endif
c:cls
c:echo "*n*nUnArcing file Ten please wait.>>.........."
ram:lha >nil: x disk6:COMMON1.lha target:BUMP/LEVEL_INCLUDES/COMMON/

lab disk7?
assign >nil: exists disk7:
if warn
c:cls 

c:echo "*n*n*n*n*n*n*n*n*n                             Insert Disk Seven"
 skip back disk7?
endif
c:cls
c:echo "*n*nUnArcing file Eleven please wait.>>.........."
ram:lha >nil: x disk6:8.lha target:BUMP/LEVEL_INCLUDES/

lab exit
c:cls
c:echo "*n*n All done now please reboot!"