home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / GAME / EAV / keeper_demo / LEVELS / MAP00001.TXT < prev    next >
Text File  |  1997-08-04  |  10KB  |  265 lines

  1. rem Demo Level
  2.  
  3. SET_GENERATE_SPEED(400)
  4. MAX_CREATURES(PLAYER0,12)
  5. START_MONEY(PLAYER0,5000)
  6.  
  7. ADD_CREATURE_TO_POOL(FLY,4)
  8. ADD_CREATURE_TO_POOL(BUG,7)
  9. ADD_CREATURE_TO_POOL(SPIDER,3)
  10. ADD_CREATURE_TO_POOL(TROLL,5)
  11. ADD_CREATURE_TO_POOL(BILE_DEMON,3)
  12.  
  13. CREATURE_AVAILABLE(PLAYER0,FLY,1,0)
  14. CREATURE_AVAILABLE(PLAYER0,BUG,1,0)
  15. CREATURE_AVAILABLE(PLAYER0,SPIDER,1,0)
  16. CREATURE_AVAILABLE(PLAYER0,TROLL,1,0)
  17. CREATURE_AVAILABLE(PLAYER0,BILE_DEMON,1,0)
  18.  
  19. ROOM_AVAILABLE(PLAYER0,TREASURE,1,0)
  20. ROOM_AVAILABLE(PLAYER0,GARDEN,1,0)
  21. ROOM_AVAILABLE(PLAYER0,LAIR,1,0)
  22. ROOM_AVAILABLE(PLAYER0,TRAINING,1,0)
  23. ROOM_AVAILABLE(PLAYER0,BRIDGE,1,0)
  24.  
  25. MAGIC_AVAILABLE(PLAYER0,POWER_HAND,1,1)
  26. MAGIC_AVAILABLE(PLAYER0,POWER_SLAP,1,1)
  27. MAGIC_AVAILABLE(PLAYER0,POWER_IMP,1,1)
  28. MAGIC_AVAILABLE(PLAYER0,POWER_SPEED,1,0)
  29. MAGIC_AVAILABLE(PLAYER0,POWER_heal_creature,1,0)
  30.  
  31.  
  32. CREATE_PARTY(ONE)
  33.     ADD_TO_PARTY(ONE,THIEF,1,300,ATTACK_ENEMIES,0)
  34.     ADD_TO_PARTY(ONE,THIEF,1,300,ATTACK_ENEMIES,0)
  35.     ADD_TO_PARTY(ONE,THIEF,1,300,ATTACK_ENEMIES,0)
  36.  
  37. create_party(victor)
  38.         add_to_party(victor,archer,2,600,attack_enemies,0)
  39.         add_to_party(victor,archer,1,400,attack_enemies,0)
  40.         add_to_party(victor,archer,1,400,attack_enemies,0)
  41.         add_to_party(victor,wizard,2,800,attack_enemies,0)
  42.  
  43. CREATE_PARTY(FINAL)
  44.     ADD_TO_PARTY(FINAL,WIZARD,2,800,ATTACK_ENEMIES,0)
  45.     ADD_TO_PARTY(FINAL,ARCHER,2,500,ATTACK_ENEMIES,0)
  46.     ADD_TO_PARTY(FINAL,ARCHER,2,500,ATTACK_ENEMIES,0)
  47.     ADD_TO_PARTY(FINAL,KNIGHT,3,2000,ATTACK_ENEMIES,0)
  48.  
  49. IF(PLAYER0,GAME_TURN >= 40)
  50.     QUICK_OBJECTIVE(1,"Money sits at the root of all Evil, and so it is appropriate that you start your Empire by building a Treasure Room. Select the Treasure Room Icon with the Left Mouse Button (LMB) and build a 3X3 Treasure Room in an empty space in your Dungeon.",PLAYER0)
  51.     room_available(player0,treasure,1,1)
  52.     tutorial_flash_button(6,-1)
  53. endif
  54.  
  55.  
  56. IF(PLAYER0, GAME_TURN >= 100)
  57.         DISPLAY_INFORMATION(1,PLAYER0)
  58. ENDIF
  59.  
  60.  
  61. IF(PLAYER0, GAME_TURN >= 450)
  62.         quick_information(33, "You may see a map of the entire realm by pressing 'M' or clicking on the scroll at the top-left of your panel.")
  63. ENDIF
  64.  
  65.  
  66.  
  67. IF(PLAYER0,TREASURE >= 1)
  68.         QUICK_INFORMATION(30, "A Treasure Room is used to store any gold mined by your imps.")
  69.         IF(PLAYER0,MONEY <= 1000)
  70.                 QUICK_INFORMATION(2,"Your gold reserves are running low. Tag the gold seam to the South. Your imps will mine it out and replenish your coffers.")
  71.         ENDIF
  72. ENDIF
  73.  
  74.  
  75.  
  76. IF(PLAYER0,TREASURE >= 9)
  77.     QUICK_OBJECTIVE(3,"Click with the right mouse button to stop building rooms. Now tunnel to the Portal in the East by tagging the rock with your left mouse button. Your Imps will then claim it for you.",PLAYER0)
  78.     set_timer(player2,timer0)
  79.     set_flag(player0,flag4,1)
  80.         if(player2,timer0 >= 275)
  81.                 QUICK_INFORMATION(7,"Using the right mouse button (RMB), you may slap your creatures, thus making them work more quickly. Be careful not to beat them too frequently! This will make them angry, or at worst you will beat them to death!")
  82.                 if(player2,timer0 >= 550)
  83.                         QUICK_INFORMATION(8,"Clicking with the LMB whilst over a minion will pick that creature up. Any eight of the creatures you own can be carried in your hand like this. Use this method to place Imps next to the tasks that you wish them to carry out. Drop them on your own, or Neutral territory with the RMB.") 
  84.                 ENDIF
  85.         endif
  86. endif
  87.  
  88. if(player0,flag4 == 1)
  89.     if(player0,entrance >= 1)
  90.         ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
  91.         tutorial_flash_button(8,-1)
  92.         quick_objective(19,"Now you have claimed a portal creatures will enter your dungeon seeking employment. You must build a 3X3 Lair to house your creatures. Larger Lairs hold more creatures.",player0)
  93.     endif
  94. endif
  95.  
  96. if(player0,lair >= 9)
  97.         QUICK_OBJECTIVE(31,"Now you have built a small lair, await the arrival of your first minion.",PLAYER0)
  98.     set_timer(player2,timer1)
  99.         if(player2,timer1 >= 250)
  100.                 QUICK_INFORMATION(20,"Rooms become more efficient as they increase in size. Build neat, rectangular rooms to ensure maximum efficiency.")
  101.         creature_available(player0,fly,1,1)
  102.         endif
  103. endif
  104.  
  105. IF(PLAYER0,FLY >= 1)
  106.         QUICK_OBJECTIVE(4,"A humble Fly has become the first of your troops. More powerful creatures require a source of sustenance. Build a 3X3 Hatchery to feed your creatures.",PLAYER0)
  107.     ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
  108.     tutorial_flash_button(7,-1)
  109. endif
  110.  
  111. IF(PLAYER0,BUG >= 1)
  112.         QUICK_INFORMATION(5,"A Beetle has settled in your Lair. To make your dungeon more appealing to the creatures of this world you can build bigger rooms.")
  113. endif
  114.  
  115. if(player0,garden >= 9)
  116.         set_timer(player0,timer1)
  117.         CREATURE_AVAILABLE(PLAYER0,BUG,1,1)
  118.  
  119.         QUICK_OBJECTIVE(23,"While you are waiting for your ranks to grow, try possessing a creature. Select the icon from the spell menu and choose your creature, right clicking to release it from its bond.", player0)
  120.         tutorial_flash_button(36,-1)
  121. endif
  122.  
  123.  
  124.  
  125. IF(PLAYER0,TOTAL_CREATURES >= 5)
  126.         quick_information(32,"Left Click on a creature in the creature panel to place it in your Hand of Evil. Clicking on the creature icon itself will select the most experienced specimen of the breed.")
  127. endif
  128.  
  129. IF(PLAYER0,TOTAL_CREATURES >= 7)
  130.     ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
  131.     tutorial_flash_button(10,-1)
  132.     CREATURE_AVAILABLE(PLAYER0,troll,1,1)
  133.     CREATURE_AVAILABLE(PLAYER0,spider,1,1)
  134.     CREATURE_AVAILABLE(PLAYER0,bile_demon,1,1)
  135.         QUICK_OBJECTIVE(6,"Now dig out a 3X3 area and, once your imps have claimed the floor, build a Training Room in the space you have excavated.",PLAYER0)
  136. endif
  137.  
  138. if(player0,training >= 1)
  139.         quick_information(34,"Creatures in the training room will improve their fighting prowess.")
  140.  
  141.         if(player0,training >= 9)
  142.                 SET_TIMER(PLAYER0,TIMER2)
  143.                 QUICK_OBJECTIVE(35,"Now that you have built the training room, you can tell your creatures to train by picking them up with the LMB and dropping them in it.",player0)
  144.  
  145.                 IF(PLAYER0,TIMER2 >= 800)
  146.                     IF (PLAYER0, FLAG2 == 0)
  147.                             QUICK_OBJECTIVE(18,"You may create more imps by choosing the Create Imp spell in the spell panel and then clicking with the left mouse button on a section of your dungeon floor.",PLAYER0)
  148.                             SET_FLAG(PLAYER0, FLAG2, 1)
  149.                     ENDIF
  150.                         tutorial_flash_button(21,-1)
  151.                         SET_FLAG(PLAYER_GOOD,FLAG0,1)
  152.  
  153.                         IF(PLAYER0,TIMER2 >= 1200)
  154.                                 QUICK_OBJECTIVE(9,"Your mission here is to use your power to rid this land of all good. Forge a path North!",PLAYER0)
  155.                         ENDIF
  156.                  ENDIF
  157.          ENDIF
  158. endif
  159.                            
  160. IF_ACTION_POINT(1,PLAYER0)
  161.         QUICK_INFORMATION(10,"You have found a spell of acceleration. When cast on your creatures this will allow them to move at a greatly increased rate for a time. Holding down the LMB will increase the power and cost of the spell.")
  162.     magic_available(player0,power_speed,1,1)
  163. ENDIF
  164.  
  165. IF_ACTION_POINT(2,PLAYER0)
  166.     if(player_good,thief == 0)
  167.         QUICK_OBJECTIVE(11,"The Heroes' castle lies out of reach on the far bank of the lava flow. Use bridges to connect your land to the north bank and seek out this nest of virtue.",player0)
  168.         TUTORIAL_FLASH_BUTTON(18, -1)
  169.     ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
  170.         SET_TIMER(PLAYER_GOOD,TIMER1)
  171.     ENDIF
  172. endif
  173.  
  174.  
  175. IF_ACTION_POINT(5,PLAYER0)
  176.     if(player0,bridge >= 3)
  177.     MAGIC_AVAILABLE(PLAYER0,POWER_heal_creature,1,1)
  178.     QUICK_INFORMATION(15,"You now have the ability to cast Heal on your creatures. Hold down the LMB for more power. The hero forces are sure to retaliate")
  179.     ENDIF
  180. endif
  181.  
  182. if(player0,troll >= 1)
  183.     quick_information(21,"A goblin has entered your dungeon. While not as intelligent as the average human, goblins make excellent soldiers.")
  184. endif
  185.  
  186. if(Player0,bile_demon >= 1)
  187.         quick_information(22,"You have found a new Bile Demon ally. The aggression and tenacity of these beasts is matched only by their appetites.")
  188. endif
  189.  
  190. if_action_point(7,player0)
  191.     if(player_good,flag0 == 1)
  192.                 quick_objective(26,"From the markings, you have broken into an old dungeon. Claim any assets remaining, but be on your guard!",player0)
  193.                 ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,2,600)
  194.     endif
  195. endif
  196.  
  197. if_action_point(7,player0)
  198.     if(player_good,flag0 == 0)
  199.         add_party_to_level(player_good,victor,7,1)
  200.                 quick_information(28,"Danger! Your untidy exploration of this realm has left you exposed to the Lord's troops.")
  201.         set_timer(player2,timer3)
  202.     endif
  203. endif
  204.  
  205. if(player2,timer3 >= 350)
  206.     if(player_good,flag0 == 0)
  207.         next_command_reusable
  208.         add_party_to_level(player_good,victor,7,1)
  209.         next_command_reusable
  210.         set_timer(player2,timer3)
  211.     endif
  212. endif
  213.  
  214. if_action_point(3,player0)
  215.         quick_objective(37,"You've discovered the Heroes' castle. Break down the doors and wreak havoc upon the enemy!",player0)
  216.         add_party_to_level(player_good,final,player_good,1)
  217.     set_flag(player0,flag1,1)
  218. endif
  219.  
  220. if_action_point(5,player0)
  221.        add_party_to_level(player_good,victor,-4,1)
  222. endif
  223.  
  224. if(player0, flag1 == 1)
  225.     if(player_good, KNIGHT == 0)
  226.                  quick_objective(36,"Congratulations. You have defeated the Lord of the Land and completed the Dungeon Keeper demo.",player0)
  227.         win_game
  228.     endif
  229. endif
  230.  
  231. IF (PLAYER0,TOTAL_IMPS <= 3)
  232.     IF (PLAYER0, FLAG2 == 0)
  233.             QUICK_INFORMATION(39,"You may create more imps by choosing the Create Imp spell in the spell panel and then clicking with the left mouse button on a section of your dungeon floor.",PLAYER0)
  234.         SET_FLAG(PLAYER0, FLAG2, 1)
  235.     ENDIF
  236. ENDIF
  237.  
  238. IF(PLAYER0,DUNGEON_DESTROYED == 1)
  239.     LOSE_GAME
  240. ENDIF
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.                 
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263.  
  264.    
  265.