equal
deleted
inserted
replaced
420 if CurrentHedgehog^.Gear <> nil then |
420 if CurrentHedgehog^.Gear <> nil then |
421 if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0) |
421 if ((CurrentHedgehog^.Gear^.State and gstAttacking) = 0) |
422 and not isInMultiShoot then dec(TurnTimeLeft); |
422 and not isInMultiShoot then dec(TurnTimeLeft); |
423 |
423 |
424 if (not CurrentTeam^.ExtDriven) and |
424 if (not CurrentTeam^.ExtDriven) and |
425 ((GameTicks and $FFFF) = $FFFF) then SendIPCTimeInc; |
425 ((GameTicks and $FFFF) = $FFFF) then |
|
426 begin |
|
427 SendIPCTimeInc; |
|
428 inc(hiTicks) // we do not recieve a message for it |
|
429 end; |
|
430 |
426 inc(GameTicks) |
431 inc(GameTicks) |
427 end; |
432 end; |
428 |
433 |
429 procedure SetAllToActive; |
434 procedure SetAllToActive; |
430 var t: PGear; |
435 var t: PGear; |