; Genetic Species Saved Game Handler v1.25 - GS-SGH
; (c) 1998 James Fraser

; User Preferences:
Set prf1 Joypad
Set prf2 Keyboard
Set prf0 Mouse
Set skipintro No
Set CDDAconfig "atapi.device 3"

; If you edit the following, please don't distribute it.
; It is copyrighted by me, so you must send the edited script
; to me, and I can distribute it, mentioning you of course.
; You can of course edit it to suit your own computer, but if
; there are any bugs *please* let me know!

Echo "*n&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&|||||&&&&&&&&&&&&&&&&&||||&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&||||||&&&&||||||||||&&&&&||||||&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&|||||&&&&||||&&&||||&&|||||||&&&&&&&&&&&&&"
Echo " &&&&&||||||&&&&&&||||&&|&||&||&|||&&&&&&&&||||||&&&&&&"
Echo " &&&&&&&&&&||||||||||||||&&&&&||||||||||||||&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&|||||||&&&&&&&&&&&||&||||&&&&&&&&&&&&&&&"
Echo " &&&&&&|&&&&&&||||||&&&&&|||||&&&&|||||||&&&&&&&&&&&&&&"
Echo " &&&&&&&|||||||&&&||&&&||@|||@||&&&||&&&|||&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&|&&&&||||||||&&&&||&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&||&&&&|||o||&&&&&||&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&&||&&&&&&&&&&&&&||&&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&&&|||&&&&&&&&&||&&&&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&&&&&&|||||||||&&&&&&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&&/ G-E-N-E-T-I-C \&&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&&\ S-P-E-C-I-E-S /&&&&&&&&&&&&&&&&&&&"
Echo " &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"

Echo "*nGenetic Species Saved Game Handler v1.25*n(c) 1998 James Fraser*n"


Set GenDir `CD`
Assign External: "$GenDir/External"
Assign External: Genetics:GeneticSpecies ADD
CD Genetics:
; Genetics:UseCDLibs...
Echo "Setting up Assigns to CD...*n"
Wait 2
Assign Libs: Remove
Assign L: Remove
Assign Devs: GENETICS:Devs Add
Assign Libs: GENETICS:Libs
Assign C: GENETICS:C Add
Assign L: GENETICS:L
Assign Libs: SYS:Libs Add
Assign L: SYS:L Add
Assign >NIL: Libs: SYS:Classes Add
; end of UseCDLibs

If Exists S:Genetic.savedgame
 If Exists "$GenDir/Current.savedgame"
  Set Game `Type $GenDir/Current.savedgame`
 Else
  Set Game UnNamed
 Endif

 Set DoWot `RequestChoice "Genetic Species Saved Game Handler" "A saved game called '$Game'is already in place.*nWhat would you like to do with it?" "Play" "Save" "Discard"`

 ;1 - Play - Do Nothing
If $DoWot EQ 1
 Echo "User Chose: Play Saved Game."
Endif

 ;2 - Save
 If $DoWot EQ 2
  Echo "User Chose: Save Game."
  Set SSG `RequestFile DRAWER $GenDir/Saves FILE "$Game" TITLE "Save Game"`
  If "a$SSG" EQ a
  Echo "No filename entered - Saving as 'UnNamed'."
   set SSG UnNamed
  Endif
  Copy s:Genetic.savedgame "$SSG" QUIET
 Endif

 ;0 - Discard - Do Nothing
If $DoWot EQ 0
 Echo "User Chose: Discard Saved Game."
Endif

Else
 Echo "No saved game detected."
 Set DoWot 3
Endif

If $DoWot Not EQ 1
 cd "$Gendir/Saves"
 Set Game ""
 Set Game `RequestFile TITLE "Choose or Create a Saved Game File"`
 If "a$Game" EQ a
  Set Game UnNamed
  Echo "User Aborted: No save game created."
 Endif
 If Exists "$game"
  Echo "Save game file '$game' ready to play."
  copy "$Game" S:genetic.savedgame QUIET
  Echo >"$Gendir/Current.savedgame" "$Game"
 Else
  If "$game" Not EQ unnamed
   Echo "Save game file '$game' created."
   delete S:genetic.savedgame QUIET
   delete "$Gendir/Current.savedgame" QUIET
  Endif
 Endif
Endif


 If Exists ENV:Genetic.prefs
  Delete ENV:Genetic.prefs quiet
 Endif


Copy "$GenDir/Prefs/`RequestChoice "Genetic Species Saved Game Handler" "Choose Preference Set:" $prf1 $prf2 $prf0`.prefs" SYS:Prefs/ENV-Archive/genetic.prefs



Echo "*NLoading Genetic Species...*n"
cd External:

If skipintro EQ Yes
 External:geneticspecies.exe $CDDAconfig
Else
 External:GS-Foreword.exe "Genetics:Geneticspecies/Playanim Genetics:Geneticspecies/GS-Anim.Cdxl multipal dosxl lmbabort nopointer nolowpass view xlspeed=280 lores"
 External:GS-Intro.exe "Run >NIL: GeneticSpecies.Exe"
 External:GeneticSpecies.exe $CDDAconfig
Endif


Wait 2
If Exists S:Genetic.savedgame
 Set DoWot `RequestChoice "Genetic Species Saved Game Handler" "A Saved Game called '$Game' is in place.*nWhat would you like to do with it?" "Leave" "Save" "Discard"`
 Echo $DoWot
 If $DoWot EQ 1
  Echo "User Chose: Leave Game in place."
 Endif

 If $DoWot EQ 2
  Echo "User Chose: Save Game."
  CD "$Gendir/Saves"
  Set save "Cancel"
  Set Save `RequestFile TITLE "Choose or Create a Saved Game File" FILE "$Game"`
  If "$save" Not EQ Cancel
   If "a$save" EQ a
    Echo "No filename entered - Saving as 'UnNamed'."
    Set save UnNamed
   Else
    If Exists "$save"
     Echo "Saving game '$save'."
    Else
     Echo "New file '$save' created."
   Endif
  Endif
  Copy S:genetic.savedgame "$save" QUIET
  Echo >"$Gendir/Current.savedgame" "$save"
 Else
  Echo "User Cancelled: Game left in place."
 Endif
Endif

 If $DoWot EQ 0
  Echo "User Chose: Discard Game."
  Delete S:genetic.savedgame QUIET
  If Exists "$GenDir/Current.savedgame"
   Delete "$Gendir/Current.savedgame" QUIET
  Endif
 Endif
Else
 Echo "No saved game in place"
Endif


Echo "*N*N*N*NGenetic Species Saved Game Handler v1.25*n(c) 1998 James Fraser"
Echo "*N*nIf you like this script please send a postcard to:"
Echo " James Fraser,*n 4 Chesterfield Close,*n Westlea,*n Swindon SN5 7DT*N ENGLAND"
Echo "or E-mail: 94FraserJ@ridgeway.swindon.sch.uk"
Echo "*N"


Echo "Removing Assigns to CD...*n"
Assign Libs: Remove
Assign L: Remove
Assign Devs: GENETICS:Devs REMOVE
Assign C: GENETICS:C REMOVE
Assign Libs: SYS:Libs REMOVE
Assign L: SYS:L Add
;Assign >NIL: Libs: SYS:Classes Add
Assign Libs: SYS:Libs
Assign L: SYS:L

Wait 4