REM if viewing from WEB browser; use File|Save As option and save to KEEPER\levels directory
REM /Keeper/level/Map00001.txt Dragon Keeper 97 Aug 24
REM xoxoxox@geocities.com
REM Command script for Level 1 training
REM Torture Chamber version; minimum resources needed for torture chamber & Dark Mistress.
REM heroes easier to defeat
REM Build Treasure room, Lair, Torture Chamber, Hatchery, Prison, and tunnel to Portal.
REM Added graveyard to get Vampires.
REM All other rooms available for practice.
REM Select Imprison Button.
REM Use GUARD POST room as trigger points to add heroes to begin battles.
REM There will be 6 waves of heroes:
REM 1 tunneller
REM 2 witch
REM 3 fairy & archer
REM 4 thief, dwarf, & barbarian
REM 5 wizard, giant, samurai, & monk
REM 6 Lord of the Land
REM Use Bridge to get the Lord of the Land faster.
REM If you have imprisoned the Lord, then pressing Space will take you to the special Torture Dungeon.
REM Normal play will resume at Level 2.
REM May need to press Windows key or Ctrl-Esc to exit.
REM uses modified Keeper/data/text.dat for messages for DISPLAY_INFORMATION & DISPLAY_OBJECTIVE
SET_GENERATE_SPEED(400)
MAX_CREATURES(PLAYER0,100)
START_MONEY(PLAYER0,10000000)
REM max money savable is around $16M
REM max pool number = 3; change number as desired
ADD_CREATURE_TO_POOL(DARK_MISTRESS,3)
ADD_CREATURE_TO_POOL(FLY,1)
ADD_CREATURE_TO_POOL(VAMPIRE,3)
ADD_CREATURE_TO_POOL(BUG,1)
REM aka beetle
ADD_CREATURE_TO_POOL(BILE_DEMON,1)
ADD_CREATURE_TO_POOL(DEMON_SPAWN,1)
ADD_CREATURE_TO_POOL(DRAGON,1)
ADD_CREATURE_TO_POOL(GHOST,3)
ADD_CREATURE_TO_POOL(TROLL,1)
ADD_CREATURE_TO_POOL(HELLHOUND,1)
ADD_CREATURE_TO_POOL(HORNY,1)
REM aka horned reaper
ADD_CREATURE_TO_POOL(ORC,1)
ADD_CREATURE_TO_POOL(SKELETON,3)
ADD_CREATURE_TO_POOL(SPIDER,1)
ADD_CREATURE_TO_POOL(TENTACLE,1)
ADD_CREATURE_TO_POOL(SORCEROR,1)
REM aka warlock
REM creature will only appear with correct conditions
CREATURE_AVAILABLE(PLAYER0,FLY,1,1)
CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,1)
REM Dark Mistress attracted with torture chamber of 9 tiles
CREATURE_AVAILABLE(PLAYER0,VAMPIRE,1,1)
REM vampire attracted with lair of 9 tiles and graveyard of 30 tiles
CREATURE_AVAILABLE(PLAYER0,BUG,1,1)
CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,1)
CREATURE_AVAILABLE(PLAYER0,DEMON_SPAWN,1,1)
CREATURE_AVAILABLE(PLAYER0,DRAGON,1,1)
CREATURE_AVAILABLE(PLAYER0,GHOST,1,1)
CREATURE_AVAILABLE(PLAYER0,TROLL,1,1)
CREATURE_AVAILABLE(PLAYER0,HELLHOUND,1,1)
CREATURE_AVAILABLE(PLAYER0,HORNY,1,1)
CREATURE_AVAILABLE(PLAYER0,ORC,1,1)
CREATURE_AVAILABLE(PLAYER0,SKELETON,1,1)
CREATURE_AVAILABLE(PLAYER0,SPIDER,1,1)
CREATURE_AVAILABLE(PLAYER0,TENTACLE,1,1)
CREATURE_AVAILABLE(PLAYER0,SORCEROR,1,1)
REM All rooms will be made available during game play
REM Remove rem's if you wish immediate availability
ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
rem ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
rem ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
REM aka hatchery
rem ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
rem ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
rem ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
rem ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,1)
rem ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,1)
rem ROOM_AVAILABLE(PLAYER0,BARRACKS,1,1)
rem ROOM_AVAILABLE(PLAYER0,PRISON,1,1)
rem ROOM_AVAILABLE(PLAYER0,TORTURE,1,1)
rem ROOM_AVAILABLE(PLAYER0,TEMPLE,1,1)
rem ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,1)
rem ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_HAND,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SIGHT,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CHICKEN,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_DISEASE,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_ARMAGEDDON,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_DESTROY_WALLS,1,1)
DOOR_AVAILABLE(PLAYER0,WOOD,1,1)
DOOR_AVAILABLE(PLAYER0,BRACED,1,1)
DOOR_AVAILABLE(PLAYER0,STEEL,1,1)
DOOR_AVAILABLE(PLAYER0,MAGIC,1,1)
TRAP_AVAILABLE(PLAYER0,BOULDER,1,1)
TRAP_AVAILABLE(PLAYER0,ALARM,1,1)
TRAP_AVAILABLE(PLAYER0,POISON_GAS,1,1)
TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,1)
TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,1)
TRAP_AVAILABLE(PLAYER0,LAVA,1,1)
REM *** heroes ***
CREATURE_AVAILABLE(PLAYER_GOOD,TUNNELLER,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,WITCH,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,FAIRY,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,KNIGHT,1,1)
REM aka lord of the land
CREATURE_AVAILABLE(PLAYER_GOOD,THIEF,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,ARCHER,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,DWARFA,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,BARBARIAN,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,WIZARD,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,GIANT,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,SAMURAI,1,1)
CREATURE_AVAILABLE(PLAYER_GOOD,MONK,1,1)
SET_CREATURE_FEAR(TUNNELLER,0)
SET_CREATURE_FEAR(WITCH,0)
SET_CREATURE_FEAR(FAIRY,0)
SET_CREATURE_FEAR(KNIGHT,0)
SET_CREATURE_FEAR(THIEF,0)
SET_CREATURE_FEAR(ARCHER,0)
SET_CREATURE_FEAR(DWARFA,0)
SET_CREATURE_FEAR(BARBARIAN,0)
SET_CREATURE_FEAR(WIZARD,0)
SET_CREATURE_FEAR(GIANT,0)
SET_CREATURE_FEAR(SAMURAI,0)
SET_CREATURE_FEAR(MONK,0)
CREATE_PARTY(ONE)
ADD_TO_PARTY(ONE,WITCH,1,1000,ATTACK_ENEMIES,0)
CREATE_PARTY(TWO)
ADD_TO_PARTY(TWO,FAIRY,1,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(TWO,ARCHER,1,1000,ATTACK_ENEMIES,0)
CREATE_PARTY(THREE)
ADD_TO_PARTY(THREE,THIEF,1,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(THREE,DWARFA,1,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(THREE,BARBARIAN,1,1000,ATTACK_ENEMIES,0)
CREATE_PARTY(FOUR)
ADD_TO_PARTY(FOUR,WIZARD,1,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(FOUR,GIANT,1,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(FOUR,SAMURAI,1,1000,ATTACK_ENEMIES,0)
ADD_TO_PARTY(FOUR,MONK,1,1000,ATTACK_ENEMIES,0)
CREATE_PARTY(KNIGHT)
ADD_TO_PARTY(KNIGHT,KNIGHT,1,1000,ATTACK_ENEMIES,0)
REM make heroes weaker; rem to reset to default
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,TUNNELLER,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,WITCH,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,FAIRY,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,KNIGHT,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,THIEF,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,ARCHER,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,DWARFA,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,BARBARIAN,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,WIZARD,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,GIANT,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,SAMURAI,1)
SET_CREATURE_MAX_LEVEL(PLAYER_GOOD,MONK,1)
SET_CREATURE_STRENGTH(TUNNELLER,0)
SET_CREATURE_STRENGTH(WITCH,0)
SET_CREATURE_STRENGTH(FAIRY,0)
SET_CREATURE_STRENGHT(KNIGHT,0)
SET_CREATURE_STRENGTH(THIEF,0)
SET_CREATURE_STRENGTH(ARCHER,0)
SET_CREATURE_STRENGTH(DWARFA,0)
SET_CREATURE_STRENGTH(BARBARIAN,0)
SET_CREATURE_STRENGTH(WIZARD,0)
SET_CREATURE_STRENGTH(GIANT,0)
SET_CREATURE_STRENGTH(SAMURAI,0)
SET_CREATURE_STRENGTH(MONK,0)
SET_CREATURE_ARMOUR(TUNNELLER,0)
SET_CREATURE_ARMOUR(WITCH,0)
SET_CREATURE_ARMOUR(FAIRY,0)
SET_CREATURE_ARMOUR(KNIGHT,0)
SET_CREATURE_ARMOUR(THIEF,0)
SET_CREATURE_ARMOUR(ARCHER,0)
SET_CREATURE_ARMOUR(DWARFA,0)
SET_CREATURE_ARMOUR(BARBARIAN,0)
SET_CREATURE_ARMOUR(WIZARD,0)
SET_CREATURE_ARMOUR(GIANT,0)
SET_CREATURE_ARMOUR(SAMURAI,0)
SET_CREATURE_ARMOUR(MONK,0)
REM lower heroes health; most unconscious at 150; if 0 -> dies
SET_CREATURE_HEALTH(TUNNELLER,50)
SET_CREATURE_HEALTH(WITCH,50)
SET_CREATURE_HEALTH(FAIRY,50)
SET_CREATURE_HEALTH(KNIGHT,200)
SET_CREATURE_HEALTH(THIEF,50)
SET_CREATURE_HEALTH(ARCHER,50)
SET_CREATURE_HEALTH(DWARFA,50)
SET_CREATURE_HEALTH(BARBARIAN,50)
SET_CREATURE_HEALTH(WIZARD,50)
SET_CREATURE_HEALTH(GIANT,50)
SET_CREATURE_HEALTH(SAMURAI,50)
SET_CREATURE_HEALTH(MONK,50)
REM *** gameplay command scripts ***
IF(PLAYER0,GAME_TURN > 20)
DISPLAY_INFORMATION(1,PLAYER0)
REM Welcome
ENDIF
IF(PLAYER0,GAME_TURN >= 120)
DISPLAY_OBJECTIVE(2,PLAYER0)
REM First, build Treasure Room
SET_FLAG(PLAYER0,FLAG0,1)
ENDIF
IF(PLAYER0,TREASURE >= 1)
DISPLAY_OBJECTIVE(4,PLAYER0)
REM after treasure, dig out gold
IF(PLAYER0,TOTAL_GOLD_MINED >= 1000)
ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
DISPLAY_OBJECTIVE(7,PLAYER0)
REM build lair
ENDIF
ENDIF
IF(PLAYER0,LAIR >= 1)
CREATURE_AVAILABLE(PLAYER0,FLY,1,1)
DISPLAY_OBJECTIVE(8,PLAYER0)
REM portal
ENDIF
IF(PLAYER0,TOTAL_CREATURES >= 1)
ROOM_AVAILABLE(PLAYER0,TORTURE,1,1)
DISPLAY_OBJECTIVE(10,PLAYER0)
REM build torture chamber
CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,1)
ENDIF
IF(PLAYER0,DARK_MISTRESS >= 1)
DISPLAY_INFORMATION(11,PLAYER0)
ENDIF
IF(PLAYER0,TORTURE >= 1)
ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,1)
DISPLAY_OBJECTIVE(12,PLAYER0)
REM build graveyard
CREATURE_AVAILABLE(PLAYER0,VAMPIRE,1,1)
ENDIF
IF(PLAYER0,VAMPIRE >= 1)
DISPLAY_INFORMATION(13,PLAYER0)
ENDIF
IF(PLAYER0,GRAVEYARD >= 1)
ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
DISPLAY_OBJECTIVE(14,PLAYER0)
REM build hatchery
ENDIF
IF(PLAYER0,GARDEN >= 1)
ROOM_AVAILABLE(PLAYER0,PRISON,1,1)
DISPLAY_OBJECTIVE(15,PLAYER0)
REM build prison
ENDIF
IF(PLAYER0,PRISON >= 1)
ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,1)
REM bridge & guard posts available
REM all other rooms made available
ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER0,WORKSHOP,1,1)
ROOM_AVAILABLE(PLAYER0,BARRACKS,1,1)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,1)
ROOM_AVAILABLE(PLAYER0,GRAVEYARD,1,1)
ROOM_AVAILABLE(PLAYER0,SCAVENGER,1,1)
DISPLAY_OBJECTIVE(16,PLAYER0)
REM use guard posts as trigger points to add heros
REM use bridge as alternate trigger point get add Lord of the Land
ENDIF
REM *** Heroes enter to do battle ***
REM *** uses guard posts as trigger point to add heroes to game
REM tunneller
IF(PLAYER0,GUARD_POST == 1)
ADD_TUNNELLER_TO_LEVEL(PLAYER_GOOD,1,DUNGEON,0,1,200)
DISPLAY_OBJECTIVE(17,PLAYER0)
REM intruder arrives
IF(PLAYER_GOOD, TOTAL_CREATURES == 0)
DISPLAY_OBJECTIVE(18,PLAYER0)
ENDIF
ENDIF
REM party one
IF(PLAYER0,GUARD_POST == 2)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,1,1)
DISPLAY_OBJECTIVE(17,PLAYER0)
REM intruder arrives
IF(PLAYER_GOOD, TOTAL_CREATURES == 0)
DISPLAY_OBJECTIVE(18,PLAYER0)
ENDIF
ENDIF
REM party two
IF(PLAYER0,GUARD_POST == 3)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,TWO,1,1)
DISPLAY_OBJECTIVE(17,PLAYER0)
REM intruder arrives
IF(PLAYER_GOOD, TOTAL_CREATURES == 0)
DISPLAY_OBJECTIVE(18,PLAYER0)
ENDIF
ENDIF
REM party three
IF(PLAYER0,GUARD_POST == 4)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,THREE,1,1)
DISPLAY_OBJECTIVE(17,PLAYER0)
REM intruder arrives
IF(PLAYER_GOOD, TOTAL_CREATURES == 0)
DISPLAY_OBJECTIVE(18,PLAYER0)
ENDIF
ENDIF
REM party four
IF(PLAYER0,GUARD_POST == 5)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,FOUR,1,1)
DISPLAY_OBJECTIVE(17,PLAYER0)
REM intruder arrives
IF(PLAYER_GOOD, TOTAL_CREATURES == 0)
DISPLAY_OBJECTIVE(18,PLAYER0)
ENDIF
ENDIF
REM lord of the land
IF(PLAYER0,GUARD_POST == 6)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,KNIGHT,1,1)
DISPLAY_OBJECTIVE(19,PLAYER0)
REM Lord of the Land arrives
SET_FLAG(PLAYER0, FLAG0, 7)
ENDIF
REM lord of the land, alternate trigger point using bridge
IF(PLAYER0,BRIDGE == 1)
ADD_PARTY_TO_LEVEL(PLAYER_GOOD,KNIGHT,1,1)
DISPLAY_OBJECTIVE(19,PLAYER0)
REM Lord of the Land arrives
SET_FLAG(PLAYER0, FLAG0, 7)
ENDIF
IF(PLAYER0, FLAG0 == 7)
IF(PLAYER_GOOD, TOTAL_CREATURES == 0)
DISPLAY_OBJECTIVE(20,PLAYER0)
WIN_GAME
ENDIF
ENDIF
IF(PLAYER0,TOTAL_IMPS==0)
DISPLAY_INFORMATION(21,PLAYER0)
MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
ENDIF
(
geocities.com/timessquare/dungeon) (
geocities.com/timessquare)