;																	Sword
;														Installation script
;											Author: Krzysztof Dura / Serio-Comic.


(complete 0)

(message "\n\n\n\n\n\n\"Sword Preview\"\n\n"
	 "Installation requires about 1 MB of free disk space.")

(set destdir
  (askdir
    (prompt "Choose a place for installing \"Sword Preview\".\n"
						"Directory \"Sword\" will be created for you.")
    (help @askdir-help)
    (default @default-dest)
  )
)

(set @default-dest destdir)

(makedir (tackon destdir "Sword"))

(complete 10)

(working "Installing \"Sword Preview\"...")

(askdisk
  (prompt "\n\n\n\n\n\nInsert disk \"SwordDisk1:\".")
  (help @askdisk-help)
  (dest "SwordDisk1")
)

(copyfiles
  (source "SwordDisk1:")
  (dest (tackon destdir "Sword"))
  (help @copyfiles-help)
  (choices
		"Sword.exe"
		"SCtitle.cod"
		"PrevInfo.cod"
		"TitanLogo.cod"
    "Menu.cod" "Menu.gfx" "Menu.mus1MB"
    "Hero.img"
    "Level2.img" "Level2.map" "Level2.smp" "Level2.cod" "Level2.mus" "Level2.bri"
    "Sword.info"
  )
)

(copyfiles
  (source (tackon "SwordDisk1:" "ICONS"))
  (dest destdir)
  (help @copyfiles-help)
  (choices
    "Sword.info"
  )
)



(complete 80)

(set libsdir
  (askdir
    (prompt "Where should I copy \n\"serio-comic.library\" ?")
    (help @askdir-help)
    (default "LIBS:")
  )
)

(complete 85)

(copylib
  (source "SwordDisk1:libs/serio-comic.library")
  (dest libsdir)
  (help @copylib-help)
)

(complete 95)

(textfile
  (dest
    (tackon destdir "Sword/Sword")
  )
  (prompt "Creating script for IconX...")
  (append "assign SwordDisk1: \"" (tackon destdir "sword") "\"\n"
				  "SwordDisk1:Sword.exe\n")
)

(complete 100)

(message "\n\n\n\n\n\"Sword Preview\" has been installed.\n"
	 "Have a good time.\n\n"
	 "Serio-Comic. (1997)\n\n\n"
	 "PS. Do not forget to remove the disk from your floppy drive."
)

(exit)