cd MISC

if NOT exists env:
 assign env: ram:
endif

REQUESTCHOICE "GloomDeluxe Weltwahl" "Welche Welt willst Du spielen?" Spacehulk GothicTomb Hell Original Original_Plus "zuletzt gespielte" >env:welt

if $WELT EQ 4
 copy Script.deutsch to script
 echo >/gloomgame gamegamegamegamegamegamegamegame noline
 Skip end
endif

if $WELT EQ 5
 copy Script.deutsch_plus to script
 echo >/gloomgame gamegamegamegamegamegamegamegame noline
 Skip end
endif

if $Welt NOT EQ 0
REQUESTCHOICE "GloomDeluxe Levelwahl" "Welchen Level willst Du spielen ?" 1 2 3 4 5 6 7 Alle >env:Level
echo >/gloomgame gamegamegamegamegamegamegamegame noline
if $Level EQ 0
 copy Script$welt to Script
 Skip end
endif
echo ";GloomDeluxe Level-Anwahl trainer" >Script
if $welt EQ 1
 echo "pict_spacehulk*ntile_1" >>script
endif
if $welt EQ 2
 echo "pict_gothic*ntile_2" >>script
endif
if $welt EQ 3
 echo "pict_hell*ntile_3" >>script
endif
echo "draw_*nshow_*ntext_Gloom Deluxe Level Trainer luft*nwait_*ndark_" >>script
if $welt eq 1
 echo play_map1_$level >>script
endif
if $welt eq 2
 echo Play_map3_$Level >>script
endif
if $Welt eq 3
 echo play_map4_$Level >>script
endif
echo "pict_theend*ndraw_*nshow_*ntext_Du hast den ausgewhlten Level geschafft!*nwait_*ndone_" >>script
endif
delete env:game >NIL:
sploin /gloomgame env:game -s -o28 -n4 >NIL:
if $game NOT EQ "game"
 delete ram:game >NIL:
 sploin /gloomgame ram:game -s -o24 -n8 >NIL:
 echo >>ram:game gamegamegamegamegamegame NOLINE
 copy ram:game /gloomgame
endif
lab end
cd /
REQUESTCHOICE "GloomDeluxe Modus Auswahl" "Welchen Grafikmodus willst Du?" Alt Deluxe Exit >env:engine
if $engine EQ 1
 gloom
endif
if $engine eq 2
 gloom2
endif

