;Script was created by PK'95

cd MISC
SET World `REQUESTCHOICE "PK's Gloom Ultimate" "Which world do you wanna play?" Spacehulk GothicTomb Hell Deluxe Latest`

if $World NOT EQ 0
 SET Level `REQUESTCHOICE "PK's Gloom Ultimate" "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 ";Gloom Script by PK'95" > 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

 if $World EQ 4
  echo pict_spacehulk >> Script
  echo tile_4 >> Script 
 endif

 echo draw_ >> Script
 echo show_ >> Script
 echo "text_pk gloom world and level selector used!" >> Script
 echo wait_ >> Script
 echo dark_ >> Script
 echo play_map$World_$Level >> Script
 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 "PK's Gloom Ultimate" "With which engine do you wanna play?" Old Deluxe Deluxe2 Exit` 
if $Engine EQ 1
 copy gloomcfg1 to gloomcfg
 gloom
endif
if $Engine EQ 2
 copy gloomcfg1 to gloomcfg
 gloom2
endif
if $Engine EQ 3
 copy gloomcfg2 to gloomcfg
 gloom2.1
endif
if $Engine EQ 0
 quit
endif

;End of Start

