; $VER: Selector 1.1 (25/7/97) Tak Tang
;

; ask which world to use
cd MISC/SCRIPTS
SET World `RequestFile Title="Select World"`
cd /

; check for blank
if "$world" eq ""
  skip end
endif

; check for invalid world
if not exists "Scripts/$world"
  skip end
endif

; check for DataDisk
if "$world" eq "-DataDisk-"
  delete >nil: Script /gloomgame
  skip Play
endif

; check for LastUsed
if "$world" eq "-LastUsed-"
  skip Play
endif

; prepare world
copy "Scripts/$World" to Script NOPRO QUIET
if exists "Save/$World"
  copy "Save/$World" to /gloomgame NOPRO QUIET
else
  echo >/gloomgame "gamegamegamegamegamegamegamegame" noline
endif

; play game
lab Play
cd /
if exists GDTrainer
  GDTrainer
else
  PlayGloom
endif

lab end

;End of selector script