equal
deleted
inserted
replaced
415 step:= Low(step) |
415 step:= Low(step) |
416 end; |
416 end; |
417 end; |
417 end; |
418 |
418 |
419 if TurnTimeLeft > 0 then |
419 if TurnTimeLeft > 0 then |
420 if CurrentTeam <> nil then |
|
421 if CurrentHedgehog^.Gear <> nil then |
420 if CurrentHedgehog^.Gear <> nil then |
422 if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0) |
421 if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0) |
423 and not isInMultiShoot then dec(TurnTimeLeft); |
422 and not isInMultiShoot then dec(TurnTimeLeft); |
424 |
423 |
425 if (GameTicks and $FFFF) = $FFFF then SendIPCTimeInc; |
424 if (not CurrentTeam^.ExtDriven) and |
|
425 ((GameTicks and $FFFF) = $FFFF) then SendIPCTimeInc; |
426 inc(GameTicks) |
426 inc(GameTicks) |
427 end; |
427 end; |
428 |
428 |
429 procedure SetAllToActive; |
429 procedure SetAllToActive; |
430 var t: PGear; |
430 var t: PGear; |