; System-X 1.04 update

; -- SET UP STRINGS ---------------------------------------

(set MSG_COPY "Please Wait - Copying Files\n")
(set MSG_THANKS "System-X 1.04 now installed!\n\nIMPORTANT NOTE:\n\nSome new strings have been added to SX:TXT/Strings.XXX Please have a look at SX:TXT/Strings.NEW, which has been installed for you, and add the new strings to the bottom of your file (Usually SX:TXT/Strings.ANS).")
(set CODES "IMPORTANT NOTE TWO:\n\nAre you using a strings file originally from 1.00-1.02 of System-X?\n\nIf you havn't already, you must change all %u and %d codes within your STRINGS.XXX file. This includes %xxd and %xxu where xx is a number. Change them to %ld. See STRINGS.NEW or just copy it! Check SX.Guide->'Editing Strings.ANS' for more information")
(set dest_dir "SX:")
(set @default-dest dest_dir)


; -- COPY FILES --------------------------------------------

(set machine (database "cpu"))

(if (OR (= machine "68000") (= machine "68010"))
(
	(copyfiles (prompt MSG_COPY)
       	    (help @copyfiles-help)
       	    (source "sx/sx_000")
       	    (dest dest_dir)
       	    (newname "sx")
       	    (infos)
	)
)
)

(if (OR (= machine "68020") (= machine "68030") (= machine "68040") (= machine "68060"))
(
	(copyfiles (prompt MSG_COPY)
       	    (help @copyfiles-help)
       	    (source "sx/sx_020")
       	    (dest dest_dir)
       	    (newname "sx")
       	    (infos)
	)
)
)

(copyfiles (prompt MSG_COPY)
      	    (help @copyfiles-help)
      	    (source "devs/ibmcon.device")
      	    (dest "DEVS:")
      	    (infos)
)

(copyfiles (prompt MSG_COPY)
      	    (help @copyfiles-help)
      	    (source "sx/")
      	    (dest dest_dir)
      	    (pattern "~(sx_0#?)")
      	    (infos)
)

(message MSG_THANKS)
(message CODES)
(exit (quiet))
(exit)