home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC Gamer 4.3
/
1998-09_Disc_4.3.iso
/
incudemo
/
incudemo.exe
/
INCUDEMO
/
Missions
/
Jungle.lcl
next >
Wrap
INI File
|
1998-04-24
|
4KB
|
179 lines
[LCL]
*========================================================================================
*
* LCL_Program: Missions\_C_168.lcl
* ************
* Date: 01/30/98
* Comment:
*
*========================================================================================
*
* Environment variable _A select between NEXT PLAYER (01),MOVE UNIT (02),ATTACK (03),USE (04),NEXT TURN (05),INIT MAP (06),DIALOG (100...255).
*
>EnvVarCmpNum(_A_Calltype,01); Goto(NextPlayer); <
>EnvVarCmpNum(_A_Calltype,02); Goto(MoveUnit); <
>EnvVarCmpNum(_A_Calltype,03); Goto(Attack); <
>EnvVarCmpNum(_A_Calltype,04); Goto(Use); <
>EnvVarCmpNum(_A_Calltype,05); Goto(NextTurn); <
>EnvVarCmpNum(_A_Calltype,06); Goto(InitMap); <
>EnvVarCmpNum(_A_Calltype,100); Goto(Dialog_0); <
*
*========================================================================================
*
:Dialog_0;
**[Dialog]**
*
[END]
:Use;
**[Use]**
*
* EnvironmentVars: B = use-x, C = use-y, D = use-ActPt
*
[END]
:Attack;
**[Attack]**
*
* EnvironmentVars: B = attack-x, C = attack-y
[END]
:MoveUnit:
**[MoveUnit]**
*
* EnvironmentVars: B = movetarget-x, C = movetarget-y, D = z-position(in 10cm), E = movetarget-ActPt, F = unit id
*
>UnitOnField (0,12,22);
SetActPt (0,0,0);
<
[END]
:NextTurn;
**[Next turn]**
*
* EnvironmentVars: B = turn
*
GetUnitsInArea (_A,0,3,13,10,27);
GetUnitsInArea (_B,0,8,6,17,11);
GetUnitsInArea (_C,0,11,6,16,22);
GetActPt (_D,0,0);
>EnvVarCmpNum (_B,2);
MoveCamera (5,11,3,7,8);
OpenPlantTube (3,7);
MoveCamera (18,8,22,8,8);
OpenPlantTube (22,8);
MoveCamera (9,27,13,31,12);
OpenPlantTube (13,31);
<
>EnvVarCmpNum (_B,4);
MoveCamera (27,9,27,4,17);
OpenPlantTube (27,4);
OpenPlantTube (22,13);
OpenPlantTube (31,13);
<
>VarGreaterNum (_A,0);
MovePosition (19,13,15);
FixedStatue (7,21,2);
FixedStatue (10,19,1);
FixedStatue (8,15,0);
FixedStatue (4,18,3);
<
>VarGreaterNum (_B,0);
MovePosition (11,19,15);
FixedStatue (9,8,3);
FixedStatue (17,7,1);
<
>VarGreaterNum (_C,0);
&VarGreaterNum (_D,0);
MovePosition (13,2,15);
FixedStatue (12,21,2);
FixedStatue (13,21,2);
<
[END]
:NextPlayer;
**[Next player]**
*
* EnvironmentVars: B = turn, C = player
*
* Get numbers of units for each player. Save numbers in _A (p0),_B (p1),_C (p2),_D(p3) and _E(com).
GetUnits (_A_p0,0);
GetUnits (_E_com,255);
GetActPt (_B,0,0);
* Reset game control variables for saving the winconditions.
SetGameControl (0,0);
SetGameControl (4,0);
* Set win conditions for each player.
* Player 0:
>VarCmpNum (_B,0);
&UnitOnField (0,32,8);
SetGameControl (0,1);
<
* Player Computer:
>VarCmpNum (_A_p0,0);
|HeroKilled (0);
SetGameControl (4,1);
<
*
* einsetzen der Einheiten
>EnvVarGreaterNum (_B,1);
&EnvVarLowerNum (_B,10);
InsertUnit (255,66,"",0,0,3,7,2);
InsertUnit (255,50,"",0,0,3,7,3);
InsertUnit (255,50,"",0,0,13,31,2);
InsertUnit (255,50,"",0,0,13,31,2);
<
>EnvVarGreaterNum (_B,3);
&EnvVarLowerNum (_B,20);
InsertUnit (255,66,"",0,0,22,8,2);
InsertUnit (255,50,"",0,0,22,8,3);
<
>EnvVarGreaterNum (_B,10);
&EnvVarLowerNum (_B,30);
InsertUnit (255,66,"",0,0,27,4,2);
InsertUnit (255,66,"",0,0,27,4,3);
<
>EnvVarGreaterNum (_B,11);
&EnvVarLowerNum (_B,31);
InsertUnit (255,66,"",0,0,22,13,2);
InsertUnit (255,50,"",0,0,22,13,3);
<
>EnvVarGreaterNum (_B,12);
&EnvVarLowerNum (_B,32);
InsertUnit (255,66,"",0,0,31,13,2);
InsertUnit (255,50,"",0,0,31,13,3);
<
[END]
:InitMap;
**[Init map]**
*
EnterNameOfNextMap ("_C_169");
CDTrackProgram ("2.3.4.5");
[END]