REM ********************************************
REM I'm Horny
REM Script for Level 208
REM Clare Wykes
REM ********************************************



REM ************************************
REM ********** SETUP COMMANDS **********
REM ************************************






SET_GENERATE_SPEED(500)



START_MONEY(PLAYER0,20000)




MAX_CREATURES(PLAYER0,60)






ROOM_AVAILABLE(PLAYER0,TREASURE,1,1)
ROOM_AVAILABLE(PLAYER0,RESEARCH,1,1)
ROOM_AVAILABLE(PLAYER0,PRISON,1,0)
ROOM_AVAILABLE(PLAYER0,TORTURE,1,0)
ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
ROOM_AVAILABLE(PLAYER0,TEMPLE,1,0)
ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
ROOM_AVAILABLE(PLAYER0,BRIDGE,1,0)
ROOM_AVAILABLE(PLAYER0,GUARD_POST,1,0)
ROOM_AVAILABLE(PLAYER0,ENTRANCE,0,1)



MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
MAGIC_AVAILABLE(PLAYER0,POWER_OBEY,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CALL_TO_ARMS,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CAVE_IN,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HEAL_CREATURE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_HOLD_AUDIENCE,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_LIGHTNING,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_PROTECT,1,0)
MAGIC_AVAILABLE(PLAYER0,POWER_CONCEAL,1,0)




DOOR_AVAILABLE(PLAYER0,WOOD,1,0)
DOOR_AVAILABLE(PLAYER0,BRACED,1,0)
DOOR_AVAILABLE(PLAYER0,STEEL,1,0)
DOOR_AVAILABLE(PLAYER0,MAGIC,1,0)


TRAP_AVAILABLE(PLAYER0,ALARM,1,0)
TRAP_AVAILABLE(PLAYER0,POISON_GAS,1,0)
TRAP_AVAILABLE(PLAYER0,WORD_OF_POWER,1,0)
TRAP_AVAILABLE(PLAYER0,LAVA,1,0)







ADD_CREATURE_TO_POOL(DARK_MISTRESS,40)



ADD_CREATURE_TO_POOL(WITCH,40)




CREATURE_AVAILABLE(PLAYER0,DARK_MISTRESS,1,1)


CREATURE_AVAILABLE(PLAYER0,WITCH,1,1)



CREATURE_AVAILABLE(PLAYER0,SKELETON,1,0)
CREATURE_AVAILABLE(PLAYER0,GHOST,1,0)
CREATURE_AVAILABLE(PLAYER0,HORNY,1,0)
CREATURE_AVAILABLE(PLAYER0,VAMPIRE,1,0)




IF(PLAYER0,GAME_TURN < 50)
    
    QUICK_INFORMATION(1,"A good wizard has gained control of one of your portals, he has also discovered the science of cloning")
    
ENDIF

IF(PLAYER0,GAME_TURN > 50)
    
    QUICK_INFORMATION(2," He has cloned all types of creatures and set them to work forming an immense dungeon, you have to find him and kill him and his minions")
    
ENDIF

IF(PLAYER0,GAME_TURN > 100)
    
    QUICK_INFORMATION(3,"At some stage his cloning went wrong and their are rougue creatures for you to find. His favourite creature was the horned reaper. GOOD LUCK")
    
ENDIF



IF(PLAYER0,GAME_TURN > 200)
    
    QUICK_INFORMATION(4," Oh one other thing Keeper!!! He has managed to clone himself, so watch out!!! HA HA HA HA HA!")
    
ENDIF

IF(PLAYER_GOOD,DUNGEON_DESTROYED == 1)
    
    WIN_GAME
    
ENDIF
