;Script was created by PK'95,96

cd MISC
SET World `REQUESTCHOICE "GloomDeluxe Selector" "Which world do you wanna play?" Spacehulk GothicTomb Hell "Last Used"`

if $World NOT EQ 0
 SET Level `REQUESTCHOICE "GloomDeluxe Selector" "Which level do you wanna play?" 1 2 3 4 5 6 7 All` 
 
 if $Level EQ 0
  copy Script$World to Script
  Skip End
 endif

 echo ";GloomDeluxe Script by PK'95,96" > Script

 if $World EQ 1
  echo pict_spacehulk >> Script
  echo tile_1 >> Script 
 endif

 if $World EQ 2
  echo pict_gothic >> Script
  echo tile_2 >> Script 
 endif

 if $World EQ 3
  echo pict_hell >> Script
  echo tile_3 >> Script 
 endif

 echo draw_ >> Script
 echo show_ >> Script
 echo "text_pk gloom world and level selector used!" >> Script
 echo wait_ >> Script
 echo dark_ >> Script
 if $World EQ 1
  echo play_map1_$Level >> Script
 endif
 if $World EQ 2
  echo play_map3_$Level >> Script
 endif
 if $World EQ 3
  echo play_map4_$Level >> Script
 endif

 echo pict_theend >> Script
 echo draw_ >> Script
 echo show_ >> Script
 echo "text_congratulations! you have finished selected level!" >> Script
 echo wait_ >> Script
 echo done_ >> Script
endif

Lab End
cd /

SET Engine `REQUESTCHOICE "GloomDeluxe Selector" "With which engine do you wanna play?" Old Deluxe Exit` 
if $Engine EQ 1
 gloom
endif
if $Engine EQ 2
 gloom2
endif

;End of Start