;
; T.B.O.T.W. Installer Utility
;
; This script is done by: AmiZoft in 1997!!!
;
(complete 0)
       (set #intro
               (cat
                      "-The Battles Of The World -\n"
                      "T.B.O.T.W.\n"
                      "Freeware release\n"
                      "? august 1997\n"
                      "created by:\n"
                      "________________        \n"
                     "/_____________  /         \n"
" __             __     / /                    \n"
"  //||    _______`--'   / / ______  _____ ________\n"
" //=||   ||-||-|| ||   / /  ||__|| ||___/ /______/\n"
"//  ||_  || || || ||  / /   ||__|| ||___    | |   \n"
"     ||_ || || || || / /    ||__|| ||__/    | |   \n"
"      ||            / /___________ ||       | |   \n"
"                   /_____________/ |/       `-|   \n"
               )
       )

       (set #askdir
               (cat
                     "Select where you would like to install "
                     "T.B.O.T.W.. A drawer called 'T.B.O.T.W. will "
                     "be created there."
               )
       )

	(set #askdir_help
		(cat
			"T.B.O.T.W. executable and all necessary files will "
			"be installed in the directory of your choice. You "
			"may wish to create a new directory by using the "
			"'Make New Drawer' gadget.\n\n"
		)
	)

	(set #overwrite
		(cat
			"The 'T.B.O.T.W.' directory already exists, overwrite?"
		)
	)

	(set #overwrite_help
		(cat
			"You may stop the install to "
			"avoid overwriting your current "
			"version of T.B.O.T.W..\n\n"
			"Continuing the install will "
			"overwrite your current files."
		)
	)

	(set #yes
		(cat
			"Yes"
		)
	)

	(set #quit
		(cat
			"Quit"
		)
	)

	(set #installed
		(cat
			"T.B.O.T.W. will be installed in "
		)
	)

	(set #installing
		(cat
			"Installing T.B.O.T.W...."
		)
	)

	(set #creating
		(cat
			"Creating 'T.B.O.T.W.' directory"
		)
	)

	(set #copyingexe
		(cat
			"Copying T.B.O.T.W. executable..."
		)
	)

	(set #goodbye
		(cat
			"Thank you! Enjoy with T.B.O.T.W.! Don't forget to\n"
                        "look at Aminet for higher versions of this game, or\n"
                        "on my homepage for other games and cool stuff from:\n"
                        "________________        \n"
                        "/_____________  /         \n"
                        " __             __     / /                    \n"
      			"  //||    _______`--'   / / ______  _____ ________\n"
			" //=||   ||-||-|| ||   / /  ||__|| ||___/ /______/\n"
			"//  ||_  || || || ||  / /   ||__|| ||___    | |   \n"
			"     ||_ || || || || / /    ||__|| ||__/    | |   \n"
			"      ||            / /___________ ||       | |   \n"
			"                   /_____________/ |/       `-|   \n"
                        "Remember:AMIGA RULEZ 4EVER AND ONLY AMIGA makes it\n"
                        "possible!!!"

		)
	)

	; Start! Show intro message...

	(message #intro)

(complete 20)

(set mode (askchoice
            (help @askchoice-help)
            (prompt "Please select between installing T.B.O.T.W. "
                    "from floppy disk to hard disk or from hard disk "
                    "to floppy disk.")
            (choices "Install to floppy"
                     "Install to hard disk")
            (default 0)
          )
)

(complete 20)

(if (= mode 0)
  (
    (message "The T.B.O.T.W. floppy disk installation requires "
              "one blank floppy disk labeled:\n"
              "\nT.B.O.T.W.\n\n"
              "If you already have a old version of T.B.O.T.W."
              "installed on the disk, it will be overwritten "
              "automatically. "
              "Make sure you have this disk ready..."
    )

    (askdisk
      (dest "T.B.O.T.W.")
      (help @askdisk-help)
      (prompt "\nPlease insert the blank disk labeled T.B.O.T.W. into DF0:...")
    )
    (run "install df0:")

;     	(set destdir
;     			(default @default-dest)
;			(disk)
;	)
;     
     (
      (set destdir "T.B.O.T.W.:T.B.O.T.W.")
     
	(set @default-dest destdir)

	; Start copy

	; Create the directory
		(
			(makedir @default-dest
				(prompt #creating)
				(infos)
			)
		)
     )
(complete 30)

    (copyfiles
      (source "pl1vann")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )
    (copyfiles
      (source "tbotw")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )

(complete 40)

    (copyfiles
      (source "TBOTW-install")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )
    (copyfiles
      (source "TBOTW.Guide")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )

(complete 50)

    (copyfiles
      (source "tbotw_avsluta")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )
    (copyfiles
      (source "TBOTW_chpl1.IFF")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )

(complete 60)

    (copyfiles
      (source "TBOTW_chpl2.IFF")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )
    (copyfiles
      (source "TBOTW_jordbavning.IFF")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )

(complete 70)

    (copyfiles
      (source "TBOTW_mmove.IFF")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )
    (copyfiles
      (source "TBOTW_orkan.IFF")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )

(complete 80)

    (copyfiles
      (source "TBOTW_oversvammning.IFF")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )
    (copyfiles
      (source "TBOTW_titlemusic.Abk")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )

(complete 90)

    (copyfiles
      (source "tbotw_title")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )
    (copyfiles
      (source "TheBattlesOfTheWorld")
      (dest "T.B.O.T.W.:T.B.O.T.W.")
      (infos)
    )
(complete 100)

    (set @default-dest "T.B.O.T.W.:")

  	(message #goodbye)
(exit)

  )
)

  (	; Ask where to install T.B.O.T.W. directory...
	(set destdir
		(askdir
			(prompt #askdir)
			(help #askdir_help)
			(default @default-dest)
			(disk)
		)
	)

	(set destdir
		(tackon destdir "T.B.O.T.W.")
	)

	(set @default-dest destdir)

	; See whether this directory exists, if so warn the user

	(if (exists @default-dest) 
		(
			(if (= 0 (askbool
					(prompt #overwrite)
					(help #overwrite_help)
					(choices #yes #quit)
				))

				(

				; User wishes to quit

				(exit (quiet))
				)

			)
		)
	)

	; Prompt for choosed dir

	(message #installed @default-dest)

	; Start copy

	(complete 15)

	(working #installing)

	; Create the directory if it doesn't exist

	(if (= 0 (exists @default-dest))
		(
			(makedir @default-dest
				(prompt #creating)
				(infos)
			)
		)
	)

    (working #copyingexe)
(complete 20)
    (copyfiles
      (Source "pl1vann")
      (dest @default-dest)
    )
    (copyfiles
      (Source "tbotw")
      (dest @default-dest)
    )    
(complete 30)
    (copyfiles
      (Source "TBOTW-install")
      (dest @default-dest)
    )
    (copyfiles
      (Source "TBOTW-install.info")
      (dest @default-dest)
    )  
    (copyfiles
      (Source "TBOTW.Guide")
      (dest @default-dest)
    )
    (copyfiles
      (Source "TBOTW.Guide.info")
      (dest @default-dest)
    )
(complete 40)
    (copyfiles
      (Source "tbotw_avsluta")
      (dest @default-dest)
    )
    (copyfiles
      (Source "TBOTW_chpl1.IFF")
      (dest @default-dest)
    )
(complete 50)
    (copyfiles
      (Source "TBOTW_chpl2.IFF")
      (dest @default-dest)
    )
    (copyfiles
      (Source "TBOTW_jordbavning.IFF")
      (dest @default-dest)
    )
(complete 60)
    (copyfiles
      (Source "TBOTW_mmove.IFF")
      (dest @default-dest)
    )
    (copyfiles
      (Source "TBOTW_orkan.IFF")
      (dest @default-dest)
    )
(complete 70)
    (copyfiles
      (Source "TBOTW_oversvammning.IFF")
      (dest @default-dest)
    )
    (copyfiles
      (Source "TBOTW_titlemusic.Abk")
      (dest @default-dest)
    )
(complete 85)
    (copyfiles
      (Source "tbotw_title")
      (dest @default-dest)
    )
    (copyfiles
      (Source "TheBattlesOfTheWorld")
      (dest @default-dest)
    )
    (copyfiles
      (Source "TheBattlesOfTheWorld.info")
      (dest @default-dest)
    )
  )

(complete 100)
  	(message #goodbye)
(exit)