equal
deleted
inserted
replaced
325 end; |
325 end; |
326 |
326 |
327 procedure doStepHedgehogDriven(Gear: PGear); |
327 procedure doStepHedgehogDriven(Gear: PGear); |
328 var t: PGear; |
328 var t: PGear; |
329 begin |
329 begin |
330 if isInMultiShoot and (Gear^.Damage = 0) then |
330 if not isInMultiShoot then |
331 begin |
331 AllInactive:= false |
332 exit |
332 else |
333 end; |
333 Gear^.Message:= 0; |
334 AllInactive:= false; |
|
335 |
334 |
336 if (TurnTimeLeft = 0) or (Gear^.Damage > 0) then |
335 if (TurnTimeLeft = 0) or (Gear^.Damage > 0) then |
337 begin |
336 begin |
338 TurnTimeLeft:= 0; |
337 TurnTimeLeft:= 0; |
339 Gear^.State:= Gear^.State and not gstHHDriven; |
338 Gear^.State:= Gear^.State and not gstHHDriven; |
385 StepTicks:= 350 |
384 StepTicks:= 350 |
386 end; |
385 end; |
387 exit |
386 exit |
388 end; |
387 end; |
389 |
388 |
390 HedgehogChAngle(Gear); |
389 if not isInMultiShoot then |
391 if StepTicks > 0 then dec(StepTicks); |
390 begin |
392 if (StepTicks = 0) then HedgehogStep(Gear) |
391 HedgehogChAngle(Gear); |
|
392 if StepTicks > 0 then dec(StepTicks); |
|
393 if (StepTicks = 0) then HedgehogStep(Gear) |
|
394 end |
393 end; |
395 end; |
394 |
396 |
395 //////////////////////////////////////////////////////////////////////////////// |
397 //////////////////////////////////////////////////////////////////////////////// |
396 procedure doStepHedgehogFree(Gear: PGear); |
398 procedure doStepHedgehogFree(Gear: PGear); |
397 var prevState: Longword; |
399 var prevState: Longword; |