equal
deleted
inserted
replaced
402 inc(step) |
402 inc(step) |
403 end; |
403 end; |
404 stChDmg: if CheckNoDamage then inc(step) else step:= stDelay; |
404 stChDmg: if CheckNoDamage then inc(step) else step:= stDelay; |
405 stChWin: if not CheckForWin then inc(step) else step:= stDelay; |
405 stChWin: if not CheckForWin then inc(step) else step:= stDelay; |
406 stTurnReact: begin |
406 stTurnReact: begin |
407 if not isInMultiShoot then uStats.TurnReaction; |
407 if not isInMultiShoot then |
408 inc(step) |
408 begin |
|
409 uStats.TurnReaction; |
|
410 inc(step) |
|
411 end else |
|
412 inc(step, 2); |
409 end; |
413 end; |
410 stAfterDelay: begin |
414 stAfterDelay: begin |
411 if delay = 0 then |
415 if delay = 0 then |
412 delay:= cInactDelay |
416 delay:= cInactDelay |
413 else |
417 else |