; SPIELEKISTE präsentiert: Star Trek Game
;    Startup-Sequence




Cls
Bluestripes
FastMemFirst

Echo "*N*E[1m                  Die Berliner SPIELEKISTE stellt vor:"
Echo "*E[3m                       *E[4m  Das Star Trek Game  *E[0m*N"
Type s/ReadMe
Echo "*N Achtung!... amerikanische Tastaturbelegung: y = z !!! ...*N"
Ask " Möchten Sie die Anleitung lesen? (Y/N):"
If WARN
 Less StarTrek.DOC
EndIf

Ask " Möchten Sie die Eingangs-Animation sehen? (Y/N):"
If WARN
 ShowAnim >Nil: TrekGame.preanim +4
EndIf

CheckMem 1500000 
If NOT WARN
 Ask " Sie haben genug Speicher - die DatenDisk ins RAM kopieren: ? (Y/N):"
 If WARN
  Echo "*N Ich kopiere die Datadisk ins RAM: ... *N"
  Copy STDATA: ram: all quiet
  Ask " Bitte jetzt die DataDisk entfernen und dann <Return> druecken!"
  Assign STDATA: RAM:
 EndIf
 Echo "*N Gleich beginnt das Spiel ..."
 FailAt 30000000  ; ahem...
 StarTrek
 FailAt 20
Else
 FailAt 30000000
 CheckMem 600000
 If WARN
  Echo "*N Leider nur 512K Memory - daher eine Version mit weniger Sounds."
  StarTrek512
 Else
  Echo "*N 1MB Memory - gleich beginnt das Game ..."
  StarTrek
 EndIf
 FailAt 20
EndIf

Type s/Bye

Show Enterprise.pic

; End of Script