;
; Football Update Installer Script
;
;*****************************************************************************

 (set #MSG_DESTINATION "Where is Football currently installed?\n(Select parent directory where the 'Football' directory resides)")
 (set #MSG_OS          "You need Kickstart 2.04 and above to use this program.")
 (set #MSG_UPDATE      "\nFootball Update\n---------------\nThis installation will update Football 2.3 \nwith the latest program updates and data.  \n\n\n\n\n\n\n\n")

 (set #MSG_UPDATE2     "Football 2.4 by Mark Naughton, during 1996-99")

;*****************************************************************************
; Are we on the wrong system?

(if (< (/ (getversion) 65536) 37)
(
    (abort #MSG_OS)
))

;*****************************************************************************

(complete 0)

(message (#MSG_UPDATE) (#MSG_UPDATE2))

(set #dest_dir
   (askdir (prompt (#MSG_DESTINATION))
                 (help @askdir-help)
                 (default @default-dest)
                 (newpath))
)
(working)

(set #dest_dir (tackon #dest_dir "Football"))
(set dest_file (tackon #dest_dir "Football"))
(set @default-dest #dest_dir)
(set #exis_dir (exists #dest_dir))
(if #exis_dir (<> 2)
    (abort "Respecify correct path for Football\notherwise we're not going to work....\n")
    (set #happy "We're working!")
)

(if (<> (getsize dest_file) 98300)
    (set #happi "We're moving!")
    (abort "You have Football 2.4 installed.\nThis is the latest version.\n")
)

(complete 15)

;*****************************************************************************

(copyfiles  (source "Football")
            (dest @default-dest)
            (infos)
)
(copyfiles  (source "Football.guide")
            (dest @default-dest)
            (infos)
)
(copyfiles  (source "User.info")
            (dest @default-dest)
)
(copyfiles  (source "Exec.info")
            (dest @default-dest)
)
(copyfiles  (source "Data.info")
            (dest @default-dest)
)

(set datadir (tackon @default-dest "Data"))
(set execdir (tackon @default-dest "Exec"))
(set userdir (tackon @default-dest "User"))

(set protund (tackon @default-dest "Data/FAPrem_9899*"))
(protect (protund) "+rwed")

(set protuno (tackon @default-dest "Data/FACPS_9899.schd"))
(protect (protuno) "+rwed")

(copyfiles (optional oknodelete fail)
           (source "Data/FAPrem_9899.df")
           (dest datadir)
)
(copyfiles (optional oknodelete fail)
           (source "Data/FAPrem_9899.sf")
           (dest datadir)
)
(copyfiles (optional oknodelete fail)
           (source "Data/FAPrem_9899.sflearn")
           (dest datadir)
)
(copyfiles (optional oknodelete fail)
           (source "Data/FAPrem_9899.stats")
           (dest datadir)
)
(copyfiles (optional oknodelete fail)
           (source "Data/FACPS_9899.schd")
           (dest datadir)
)

(copyfiles (source "Data/FAPrem_9900.df")
           (dest datadir)
)
(copyfiles (source "Data/FAPrem_9900.sf")
           (dest datadir)
)
(copyfiles (source "Data/FAPrem_9900.stats")
           (dest datadir)
)
(copyfiles (source "Data/FACPS_9900.schd")
           (dest datadir)
)
(copyfiles (source "Data/OddTeams.df")
           (dest datadir)
)
(copyfiles (source "Data/OddTeams.sf")
           (dest datadir)
)
(copyfiles (source "Data/OddTeams.stats")
           (dest datadir)
)
(copyfiles (source "Data/OddTeams.schd")
           (dest datadir)
)
(copyfiles (source "Data/Players.df")
           (dest datadir)
)
(copyfiles (source "Data/Players.sf")
           (dest datadir)
)
(copyfiles (source "Data/Players.sflearn")
           (dest datadir)
)
(copyfiles (source "Data/Players.stats")
           (dest datadir)
)
(copyfiles (source "Data/1BL_98-99.df")
           (dest datadir)
)
(copyfiles (source "Data/1BL_98-99.sf")
           (dest datadir)
)
(copyfiles (source "Data/1BL_98-99.stats")
           (dest datadir)
)
(copyfiles (source "Data/EMKval.df")
           (dest datadir)
)
(copyfiles (source "Data/EMKval.sf")
           (dest datadir)
)
(copyfiles (source "Data/EMKval.sflearn")
           (dest datadir)
)
(copyfiles (source "Data/EMKval.stats")
           (dest datadir)
)
(copyfiles (source "Data/EMKval.schd")
           (dest datadir)
)
(copyfiles (source "Data/SuperLiga9899.df")
           (dest datadir)
)
(copyfiles (source "Data/SuperLiga9899.sf")
           (dest datadir)
)
(copyfiles (source "Data/SuperLiga9899.sflearn")
           (dest datadir)
)
(copyfiles (source "Data/SuperLiga9899.stats")
           (dest datadir)
)
(copyfiles (source "Data/SuperLiga9900.df")
           (dest datadir)
)
(copyfiles (source "Data/SuperLiga9900.sf")
           (dest datadir)
)
(copyfiles (source "Data/SuperLiga9900.schd")
           (dest datadir)
)
(copyfiles (source "Data/SuperLiga9900.stats")
           (dest datadir)
)


(copyfiles (source "Exec/League.rexx")
           (dest execdir)
)
(copyfiles (source "Exec/Alt_League.rexx")
           (dest execdir)
)
(copyfiles (source "Exec/Lstats.rexx")
           (dest execdir)
)
(copyfiles (source "Exec/Alt_Results.rexx")
           (dest execdir)
)
(copyfiles (source "Exec/Scheduler.rexx")
           (dest execdir)
)
(copyfiles (source "Exec/Stats.rexx")
           (dest execdir)
)


(set delet (tackon @default-dest "User/GamesPlayed.rexx"))
(delete (delet)
        (prompt "To tidy up old programs, Football needs to\ndelete the script 'GamesPlayed.rexx' which\nhas been replaced by 'MatchesPlayed.rexx'.\n")
        (help @delete-help)
        (confirm)
)

(copyfiles (source "User/Combination.rexx")
           (dest userdir)
)
(copyfiles (source "User/MatchesPlayed.rexx")
           (dest userdir)
)
(copyfiles (source "User/SwapLeagueMode.rexx")
           (dest userdir)
)
(copyfiles (source "User/Cup_ViewHistory.rexx")
           (dest userdir)
)
(copyfiles (source "User/SwapResultsMode.rexx")
           (dest userdir)
)
(copyfiles (source "User/HTML_Table.rexx")
           (dest userdir)
)
(copyfiles (source "User/HTML_Results.rexx")
           (dest userdir)
)
(copyfiles (source "User/Referees.rexx")
           (dest userdir)
)
(copyfiles (source "User/ManOfTheMatch.rexx")
           (dest userdir)
)


(complete 100)

(exit)

;*****************************************************************************