REM ********************************************
REM
REM             Script for Level 215
REM Level originated in Japan.
REM
REM ********************************************

MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HAND,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_IMP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SLAP,1,1)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_OBEY,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SIGHT,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CHICKEN,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_SPEED,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_CONCEAL,1,0)
MAGIC_AVAILABLE(ALL_PLAYERS,POWER_PROTECT,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,BRIDGE,1,0)
ROOM_AVAILABLE(ALL_PLAYERS,GUARD_POST,1,0)
SET_TIMER(PLAYER0,TIMER0)
SET_TIMER(PLAYER0,TIMER1)
SET_TIMER(PLAYER0,TIMER2)

SET_CREATURE_STRENGTH(SORCEROR,255)
SET_CREATURE_HEALTH(SORCEROR,1024)
ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SORCEROR,-4,1,10,10000)


IF(PLAYER0,SKELETON > 0)
  ADD_TUNNELLER_TO_LEVEL(PLAYER_GOOD,-4,APPROPIATE_DUNGEON,0,10,400)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SKELETON,-4,10,10,1200)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SORCEROR,-4,1,10,10000)
ENDIF

IF(PLAYER0,GHOST > 0)
  ADD_TUNNELLER_TO_LEVEL(PLAYER_GOOD,-4,APPROPIATE_DUNGEON,0,10,400)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,GHOST,-4,10,10,1200)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,SORCEROR,-4,1,10,10000)
ENDIF

IF(PLAYER0,TIMER0 > 2500)
  NEXT_COMMAND_REUSABLE
  SET_TIMER(PLAYER0,TIMER0)
  IF(PLAYER0 , LAIR > 0)
    IF(PLAYER0 , RESEARCH == 0)
      NEXT_COMMAND_REUSABLE
      ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,-1,2,3,200)
    ENDIF
  ENDIF
ENDIF

IF(PLAYER0,TIMER1 > 3200)
  NEXT_COMMAND_REUSABLE
  SET_TIMER(PLAYER0,TIMER1)
  IF(PLAYER0 , GARDEN > 0)
    IF(PLAYER0 , TORTURE == 0)
      NEXT_COMMAND_REUSABLE
      ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DARK_MISTRESS,-2,3,2,600)
    ENDIF
  ENDIF
ENDIF

IF(PLAYER0,TIMER2 > 3000)
  NEXT_COMMAND_REUSABLE
  SET_TIMER(PLAYER0,TIMER2)
  IF(PLAYER0 , PRISON > 0)
    NEXT_COMMAND_REUSABLE
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,DARK_MISTRESS,-3,2,5,800)
    NEXT_COMMAND_REUSABLE
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,WITCH,-3,2,5,800)
  ENDIF
ENDIF



IF(PLAYER0,ALL_DUNGEONS_DESTROYED == 1)
  WIN_GAME
ENDIF
