
; PoWeR Install script version 1.0 by Jagu/PWR (Hi Angel! Do not use THIS 
; version of install script!!!!)
 
(set @default-dest "dh1:")

 (set #Welcome
  (cat "\n\n"
      "Kszntelek a PoWeR 16. szmnak installerben\n"
  )
 )

 (Set #StartUp
   (cat "\n\n\n"
    "A PoWeR installlshoz minimum 1MB szabad winchester\n"
    "kapacits szksges. \n\n"
    "Ha van ennyi helyed megkezdheted az installlst!\n\n"
   )
 )
 (Set #HelpTxt
  (Cat "Vlaszd ki, hogy hova installljam az jsgot!\n"
       "Ezen az  tvonalon egy  PoWeR_16 nev knyvtr\n"
       " kerl ltrehozsra"
  )
 )

(welcome #Welcome)
(message #StartUp)
(working "Working")
(complete 0)
 (set destination
(askdir (prompt #HelpTxt) (default @default-dest) (help #HelpTxt)
 )
)

(makeassign "PWR" destination)

(set PoWeR_16_d (cat  "PWR:PoWeR_16/"))
(makedir PoWeR_16_d)

(makeassign "PWR" PoWeR_16_d)
(makedir "PWR:Data")
(makedir "PWR:Bonus")
(makedir "PWR:Fonts")
(complete 10)
(CopyFiles (Source "PoWeR_16:Bonus/") (Dest "PWR:Bonus/") (ALL))
(complete 15)
(CopyFiles (Source "PoWeR_16:Data/") (Dest "PWR:Data/") (ALL))
(complete 85)
(CopyFiles (Source "PoWeR_16:Fonts/") (Dest "PWR:Fonts/") (ALL))
(complete 90)
(CopyFiles (Source "PoWeR_16:PoWeR_16") (Dest "PWR:"))
(CopyFiles (Source "PoWeR_16:PoWeR_16.info") (Dest "PWR:"))
(Set @default-dest destination)
(complete 100)
(run "c:assign PWR: REMOVE")
