REM ********************************************
REM
REM             Script for Level Goki
REM
REM ********************************************

LEVEL_VERSION(1)
START_MONEY(PLAYER0,10000)

ADD_CREATURE_TO_POOL(SORCEROR,5)
ADD_CREATURE_TO_POOL(ORC,5)
ADD_CREATURE_TO_POOL(TROLL,5)
ADD_CREATURE_TO_POOL(DARK_MISTRESS,5)

QUICK_OBJECTIVE(0,"A thousand beetles and one mighty hero,...")
DISPLAY_VARIABLE(PLAYER_GOOD,BATTLES_LOST,1000)

IF (PLAYER0 , TOTAL_IMPS > 0)
  MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
ENDIF

IF_ACTION_POINT(1,PLAYER0)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,1,7,1,0)
  ADD_TO_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(2,PLAYER0)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,2,7,2,0)
  ADD_TO_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(3,PLAYER0)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,3,7,5,0)
  ADD_TO_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(4,PLAYER0)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,4,7,7,0)
  ADD_TO_FLAG(PLAYER0,FLAG0,1)
ENDIF
IF_ACTION_POINT(5,PLAYER0)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,5,7,8,0)
  ADD_TO_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF_ACTION_POINT(6,PLAYER0)
  ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,6,7,10,0)
  ADD_TO_FLAG(PLAYER0,FLAG0,1)
ENDIF

IF(PLAYER_GOOD,TOTAL_CREATURES < 5)
  IF (PLAYER0,FLAG0 > 0)
    NEXT_COMMAND_REUSABLE
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,1,2,2,0)
  ENDIF
  IF (PLAYER0,FLAG0 > 1)
    NEXT_COMMAND_REUSABLE
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,2,2,4,0)
  ENDIF
  IF (PLAYER0,FLAG0 > 2)
    NEXT_COMMAND_REUSABLE
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,3,2,6,0)
  ENDIF
  IF (PLAYER0,FLAG0 > 3)
    NEXT_COMMAND_REUSABLE
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,4,2,8,0)
  ENDIF
  IF (PLAYER0,FLAG0 > 4)
    NEXT_COMMAND_REUSABLE
    ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,5,2,10,0)
  ENDIF
  IF(PLAYER_GOOD,BATTLES_LOST < 1000)
    IF (PLAYER0,FLAG0 > 5)
      NEXT_COMMAND_REUSABLE
      ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,6,5,4,0)
    ENDIF
    IF (PLAYER_GOOD,DUNGEON_DESTROYED == 1)
      NEXT_COMMAND_REUSABLE
      ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,7,8,4,0)
      NEXT_COMMAND_REUSABLE
      ADD_CREATURE_TO_LEVEL(PLAYER_GOOD,BUG,1,8,4,0)
    ENDIF
  ENDIF
ENDIF

IF (PLAYER_GOOD,BATTLES_LOST>20)
  QUICK_MESSAGE(1,"20",BUG)
  MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
  DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
ENDIF

IF (PLAYER_GOOD,BATTLES_LOST>50)
  QUICK_MESSAGE(2,"50",BUG)
  TRAP_AVAILABLE(PLAYER0,LIGHTNING,1,0)
  MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
ENDIF

IF (PLAYER_GOOD,BATTLES_LOST>100)
  QUICK_MESSAGE(3,"100",BUG)
  MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
  DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)
ENDIF

IF (PLAYER_GOOD,BATTLES_LOST>200)
  QUICK_MESSAGE(4,"200",BUG)
  ROOM_AVAILABLE(PLAYER0,GARDEN,1,0)
  ROOM_AVAILABLE(PLAYER0,LAIR,1,0)
ENDIF

IF (PLAYER_GOOD,BATTLES_LOST>500)
  QUICK_MESSAGE(5,"500",BUG)
  MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)
  TRAP_AVAILABLE(PLAYER0,BOULDER,1,0)
ENDIF

IF (PLAYER_GOOD,BATTLES_LOST>1000)
  SET_TIMER(PLAYER_GOOD,TIMER1)
  ADD_TO_FLAG(PLAYER_GOOD,FLAG0,1)
ENDIF
IF_CONTROLS (PLAYER_GOOD,AVATAR<1)
  ADD_TO_FLAG(PLAYER_GOOD,FLAG0,1)
ENDIF
IF(PLAYER_GOOD,FLAG0 == 1)
  IF(PLAYER_GOOD,AVATAR > 0)
    QUICK_OBJECTIVE(10,"Just some bugs remain, easy.")
  ENDIF
  IF(PLAYER_GOOD,BATTLES_LOST >= 1000)
    QUICK_OBJECTIVE(11,"Just the one human remains, easy.")
  ENDIF
ENDIF

IF(PLAYER_GOOD,TIMER1 > 200)
  HIDE_VARIABLE
ENDIF

IF(PLAYER_GOOD,FLAG0 > 1)
    QUICK_OBJECTIVE(20,"Victory. Let's do this again tomorrow but with spiders.")
    WIN_GAME
ENDIF