home *** CD-ROM | disk | FTP | other *** search
/ Computer Buyer 1998 May / dpcb0598.iso / Keeper / LEVELS / MAP00001.BAK < prev    next >
Text File  |  1997-08-01  |  10KB  |  257 lines

  1. rem level 112 ~ Demo Level, BP
  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 >= 100)
  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 >= 40)
  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 >= 8)
  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 to a gold seam. Your imps will mine it out and replenish your coffers.")
  71.         ENDIF
  72. ENDIF
  73.  
  74.  
  75. IF(PLAYER0,TREASURE >= 9)
  76.     set_timer(player2,timer0)
  77.         if(player2,timer0 >= 75)
  78.             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)
  79.                 if(player2,timer0 >= 275)
  80.       rem              quick_information(27,"You started this level with a little money. Should this initial reserve run low you can obtain more Money from mining gold seams. Tag areas of rock and gold to be mined by your Imps with Left Mouse Button.",0)
  81.       rem                    if(player2,timer0 >= 550)
  82.                         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!")
  83.                             if(player2,timer0 >= 550)
  84.                                 QUICK_INFORMATION(8,"Clicking with the LBM 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.") 
  85.                             ENDIF
  86.                         ENDIF
  87.                 endif
  88. rem        endif
  89. endif
  90.  
  91.  
  92. if(player0,entrance >= 1)
  93.     ROOM_AVAILABLE(PLAYER0,LAIR,1,1)
  94.     tutorial_flash_button(8,-1)
  95.         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)
  96. endif
  97.  
  98. if(player0,lair >= 9)
  99.         QUICK_OBJECTIVE(31,"Now you have built a small lair, await the arrival of your first minion.",PLAYER0)
  100.     set_timer(player2,timer1)
  101.         if(player2,timer1 >= 250)
  102.                 quick_INFORMATION(20,"Rooms become more efficient as they increase in size. Build neat, rectangular rooms to ensure maximum efficiency.")
  103.         creature_available(player0,fly,1,1)
  104.         endif
  105. endif
  106.  
  107. IF(PLAYER0,FLY >= 1)
  108.         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)
  109.     ROOM_AVAILABLE(PLAYER0,GARDEN,1,1)
  110.     tutorial_flash_button(7,-1)
  111. endif
  112.  
  113. IF(PLAYER0,BUG >= 1)
  114.         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.")
  115. endif
  116.  
  117. if(player0,garden >= 9)
  118.         set_timer(player0,timer1)
  119.         CREATURE_AVAILABLE(PLAYER0,BUG,1,1)
  120.  
  121.         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)
  122.         tutorial_flash_button(36,-1)
  123. endif
  124.  
  125.  
  126.  
  127. IF(PLAYER0,TOTAL_CREATURES >= 5)
  128.         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.")
  129.         tutorial_flash_button(5,-1)
  130. endif
  131.  
  132. IF(PLAYER0,TOTAL_CREATURES >= 7)
  133.     ROOM_AVAILABLE(PLAYER0,TRAINING,1,1)
  134.     tutorial_flash_button(10,-1)
  135.     CREATURE_AVAILABLE(PLAYER0,troll,1,1)
  136.     CREATURE_AVAILABLE(PLAYER0,spider,1,1)
  137.     CREATURE_AVAILABLE(PLAYER0,bile_demon,1,1)
  138.         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)
  139. endif
  140.  
  141. if(player0,training >= 8)
  142.         quick_information(34,"Creatures in the training room will improve their fighting prowess.")
  143.  
  144.         if(player0,training >= 9)
  145.                 SET_TIMER(PLAYER0,TIMER2)
  146.                 QUICK_OBJECTIVE(75,"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)
  147.                 IF(PLAYER0,TIMER2 >= 800)
  148.                         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)
  149.                         tutorial_flash_button(21,-1)
  150.                         SET_FLAG(PLAYER_GOOD,FLAG0,1)
  151.  
  152.                         IF(PLAYER0,TIMER2 >= 1200)
  153.                                 QUICK_OBJECTIVE(9,"Your mission here is to use your power to rid this land of all good. Forge a path North!",PLAYER0)
  154.                         ENDIF
  155.                  ENDIF
  156.          ENDIF
  157. endif
  158.                            
  159. IF_ACTION_POINT(1,PLAYER0)
  160.         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.")
  161.     magic_available(player0,power_speed,1,1)
  162. ENDIF
  163.  
  164. IF_ACTION_POINT(2,PLAYER0)
  165.         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.",player0)
  166.         TUTORIAL_FLASH_BUTTON(18, -1)
  167.     ROOM_AVAILABLE(PLAYER0,BRIDGE,1,1)
  168.         SET_TIMER(PLAYER_GOOD,TIMER1)
  169. ENDIF
  170.  
  171.  
  172. IF_ACTION_POINT(5,PLAYER0)
  173.     if(player0,bridge >= 3)
  174.     MAGIC_AVAILABLE(PLAYER0,POWER_heal_creature,1,1)
  175.     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")
  176.     ENDIF
  177. endif
  178.  
  179. if(player0,troll >= 1)
  180.     quick_information(21,"A Troll has entered your dungeon. While not as intelligent as the average human, goblins make excellent soldiers.")
  181. endif
  182.  
  183. if(Player0,bile_demon >= 1)
  184.         quick_information(22,"You have found a new Bile Demon ally. The aggression and tenacity of these beasts is matched only by their appetites.")
  185. endif
  186.  
  187. if_action_point(7,player0)
  188.     if(player_good,flag0 == 1)
  189.                 quick_objective(26,"From the markings, you have broken into an old dungeon. claim any assets remaining, but be on your guard!",player0)
  190.                 ADD_TUNNELLER_PARTY_TO_LEVEL(PLAYER_GOOD,ONE,-1,DUNGEON,0,2,600)
  191.     endif
  192. endif
  193.  
  194. if_action_point(7,player0)
  195.     if(player_good,flag0 == 0)
  196.         add_party_to_level(player_good,victor,7,1)
  197.                 quick_objective(28,"Danger! Your untidy exploration of this realm has left you exposed to the Lord's troops.",player0)
  198.         set_timer(player2,timer3)
  199.     endif
  200. endif
  201.  
  202. if(player2,timer3 >= 350)
  203.     if(player_good,flag0 == 0)
  204.         next_command_reusable
  205.         add_party_to_level(player_good,victor,7,1)
  206.         next_command_reusable
  207.         set_timer(player2,timer3)
  208.     endif
  209. endif
  210.  
  211. if_action_point(3,player0)
  212.         quick_objective(37,"You've discovered the Heroes' castle.",player0)
  213.         add_party_to_level(player_good,final,player_good,1)
  214.     set_flag(player0,flag1,1)
  215. endif
  216.  
  217. if_action_point(5,player0)
  218.        add_party_to_level(player_good,victor,-4,1)
  219. endif
  220.  
  221. if(player0, flag1 == 1)
  222.     if(player_good, KNIGHT == 0)
  223.                 quick_objective(36,"You win",player0)
  224.         win_game
  225.     endif
  226. endif
  227.  
  228.  
  229.  
  230. IF(PLAYER0,DUNGEON_DESTROYED == 1)
  231.     LOSE_GAME
  232. ENDIF
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.                 
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.    
  257.