home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / jogos / Incub / Missions / Jungle.lcl next >
Encoding:
INI File  |  1998-04-24  |  3.6 KB  |  179 lines
  1. [LCL]
  2. *========================================================================================
  3. *
  4. *      LCL_Program: Missions\_C_168.lcl
  5. *      ************
  6. *             Date: 01/30/98
  7. *          Comment: 
  8. *
  9. *========================================================================================
  10. *
  11. * Environment variable _A select between NEXT PLAYER (01),MOVE UNIT (02),ATTACK (03),USE (04),NEXT TURN (05),INIT MAP (06),DIALOG (100...255).
  12. *
  13. >EnvVarCmpNum(_A_Calltype,01);  Goto(NextPlayer); <
  14. >EnvVarCmpNum(_A_Calltype,02);  Goto(MoveUnit);   <
  15. >EnvVarCmpNum(_A_Calltype,03);  Goto(Attack);     <
  16. >EnvVarCmpNum(_A_Calltype,04);  Goto(Use);        <
  17. >EnvVarCmpNum(_A_Calltype,05);  Goto(NextTurn);   <
  18. >EnvVarCmpNum(_A_Calltype,06);  Goto(InitMap);    <
  19. >EnvVarCmpNum(_A_Calltype,100); Goto(Dialog_0);   <
  20. *
  21. *========================================================================================
  22.  
  23. *
  24. :Dialog_0;
  25. **[Dialog]**
  26. *
  27. [END]
  28.  
  29. :Use;
  30. **[Use]**
  31. *
  32. * EnvironmentVars: B = use-x, C = use-y, D = use-ActPt
  33. *
  34. [END]
  35.  
  36. :Attack;
  37. **[Attack]**
  38. *
  39. * EnvironmentVars: B = attack-x, C = attack-y
  40. [END]
  41.  
  42. :MoveUnit:
  43. **[MoveUnit]**
  44. *
  45. * EnvironmentVars: B = movetarget-x, C = movetarget-y, D = z-position(in 10cm), E = movetarget-ActPt, F = unit id
  46. *
  47.  
  48. >UnitOnField (0,12,22);
  49. SetActPt (0,0,0);
  50. <
  51.  
  52. [END]
  53.  
  54. :NextTurn;
  55. **[Next turn]**
  56. *
  57. * EnvironmentVars: B = turn
  58. *
  59. GetUnitsInArea (_A,0,3,13,10,27);
  60. GetUnitsInArea (_B,0,8,6,17,11);
  61. GetUnitsInArea (_C,0,11,6,16,22);
  62. GetActPt (_D,0,0);
  63.  
  64.  
  65. >EnvVarCmpNum (_B,2);
  66.  MoveCamera (5,11,3,7,8);
  67.   OpenPlantTube (3,7);
  68.  MoveCamera (18,8,22,8,8);
  69.   OpenPlantTube (22,8);
  70.  MoveCamera (9,27,13,31,12);
  71.   OpenPlantTube (13,31);
  72. <
  73.  
  74. >EnvVarCmpNum (_B,4);
  75.  MoveCamera (27,9,27,4,17);
  76.   OpenPlantTube (27,4);
  77.   OpenPlantTube (22,13);
  78.   OpenPlantTube (31,13);
  79. <
  80.  
  81. >VarGreaterNum (_A,0);
  82.  MovePosition (19,13,15);
  83.   FixedStatue (7,21,2);
  84.   FixedStatue (10,19,1);
  85.   FixedStatue (8,15,0);
  86.   FixedStatue (4,18,3);
  87. <
  88.  
  89. >VarGreaterNum (_B,0);
  90.  MovePosition (11,19,15);
  91.   FixedStatue (9,8,3);
  92.   FixedStatue (17,7,1);
  93. <
  94.  
  95. >VarGreaterNum (_C,0);
  96.  &VarGreaterNum (_D,0);
  97.   MovePosition (13,2,15);
  98.    FixedStatue (12,21,2);
  99.    FixedStatue (13,21,2);
  100. <
  101.  
  102.  
  103.  
  104.  
  105. [END]
  106.  
  107. :NextPlayer;
  108. **[Next player]**
  109. *
  110. * EnvironmentVars: B = turn, C = player
  111. *
  112. * Get numbers of units for each player. Save numbers in _A (p0),_B (p1),_C (p2),_D(p3) and _E(com).
  113. GetUnits (_A_p0,0); 
  114. GetUnits (_E_com,255);
  115. GetActPt (_B,0,0);
  116.  
  117.  
  118. * Reset game control variables for saving the winconditions.
  119. SetGameControl (0,0);
  120. SetGameControl (4,0);
  121.  
  122. * Set win conditions for each player.
  123. * Player 0:
  124. >VarCmpNum (_B,0);
  125. &UnitOnField (0,32,8);
  126. SetGameControl (0,1);
  127. <
  128.  
  129.  
  130. * Player Computer:
  131. >VarCmpNum (_A_p0,0);
  132. |HeroKilled (0);
  133.    SetGameControl (4,1);
  134. <
  135. *
  136. * einsetzen der Einheiten
  137.  
  138. >EnvVarGreaterNum (_B,1);
  139. &EnvVarLowerNum (_B,10);
  140. InsertUnit (255,66,"",0,0,3,7,2);
  141. InsertUnit (255,50,"",0,0,3,7,3);
  142. InsertUnit (255,50,"",0,0,13,31,2);
  143. InsertUnit (255,50,"",0,0,13,31,2);
  144. <
  145.  
  146. >EnvVarGreaterNum (_B,3);
  147. &EnvVarLowerNum (_B,20);
  148. InsertUnit (255,66,"",0,0,22,8,2);
  149. InsertUnit (255,50,"",0,0,22,8,3);
  150. <
  151.  
  152. >EnvVarGreaterNum (_B,10);
  153. &EnvVarLowerNum (_B,30);
  154. InsertUnit (255,66,"",0,0,27,4,2);
  155. InsertUnit (255,66,"",0,0,27,4,3);
  156. <
  157.  
  158. >EnvVarGreaterNum (_B,11);
  159. &EnvVarLowerNum (_B,31);
  160. InsertUnit (255,66,"",0,0,22,13,2);
  161. InsertUnit (255,50,"",0,0,22,13,3);
  162. <
  163.  
  164. >EnvVarGreaterNum (_B,12);
  165. &EnvVarLowerNum (_B,32);
  166. InsertUnit (255,66,"",0,0,31,13,2);
  167. InsertUnit (255,50,"",0,0,31,13,3);
  168. < 
  169.  
  170. [END]
  171.  
  172. :InitMap;
  173. **[Init map]**
  174. *
  175.  
  176. EnterNameOfNextMap ("_C_169");
  177. CDTrackProgram ("2.3.4.5");
  178.  
  179. [END]