equal
deleted
inserted
replaced
60 |
60 |
61 var skipFlag: boolean; |
61 var skipFlag: boolean; |
62 |
62 |
63 var delay: LongWord; |
63 var delay: LongWord; |
64 delay2: LongWord; |
64 delay2: LongWord; |
65 step: (stDelay, stChDmg, stSweep, stTurnReact, |
65 step: (stInit, stDelay, stChDmg, stSweep, stTurnReact, |
66 stAfterDelay, stChWin, stWater, stChWin2, stHealth, |
66 stAfterDelay, stChWin, stWater, stChWin2, stHealth, |
67 stSpawn, stNTurn); |
67 stSpawn, stNTurn); |
68 NewTurnTick: LongWord; |
68 NewTurnTick: LongWord; |
69 //SDMusic: shortstring; |
69 //SDMusic: shortstring; |
70 |
70 |
251 |
251 |
252 curHandledGear:= nil; |
252 curHandledGear:= nil; |
253 |
253 |
254 if AllInactive then |
254 if AllInactive then |
255 case step of |
255 case step of |
|
256 stInit: |
|
257 begin |
|
258 ScriptCall('onEndTurn'); |
|
259 inc(step) |
|
260 end; |
256 stDelay: |
261 stDelay: |
257 begin |
262 begin |
258 if delay = 0 then |
263 if delay = 0 then |
259 delay:= cInactDelay |
264 delay:= cInactDelay |
260 else |
265 else |