equal
deleted
inserted
replaced
798 |
798 |
799 if (not cArtillery) and ((Gear^.Message and gmPrecise) = 0) then |
799 if (not cArtillery) and ((Gear^.Message and gmPrecise) = 0) then |
800 MakeHedgehogsStep(Gear); |
800 MakeHedgehogsStep(Gear); |
801 |
801 |
802 SetAllHHToActive(false); |
802 SetAllHHToActive(false); |
803 AddGearCI(Gear) |
803 AddCI(Gear) |
804 end |
804 end |
805 end; |
805 end; |
806 |
806 |
807 procedure HedgehogChAngle(HHGear: PGear); |
807 procedure HedgehogChAngle(HHGear: PGear); |
808 var da: LongWord; |
808 var da: LongWord; |
1143 if Hedgehog^.Gear <> nil then |
1143 if Hedgehog^.Gear <> nil then |
1144 doStepHedgehogMoving(HHGear); |
1144 doStepHedgehogMoving(HHGear); |
1145 |
1145 |
1146 if ((HHGear^.State and (gstMoving or gstDrowning)) = 0) then |
1146 if ((HHGear^.State and (gstMoving or gstDrowning)) = 0) then |
1147 begin |
1147 begin |
1148 AddGearCI(HHGear); |
1148 AddCI(HHGear); |
1149 if wasJumping then |
1149 if wasJumping then |
1150 GHStepTicks:= 410 |
1150 GHStepTicks:= 410 |
1151 else |
1151 else |
1152 GHStepTicks:= 95 |
1152 GHStepTicks:= 95 |
1153 end; |
1153 end; |
1225 begin |
1225 begin |
1226 if Gear^.Timer = 0 then |
1226 if Gear^.Timer = 0 then |
1227 begin |
1227 begin |
1228 Gear^.State:= Gear^.State and (not (gstWait or gstLoser or gstWinner or gstAttacked or gstNotKickable or gstHHChooseTarget)); |
1228 Gear^.State:= Gear^.State and (not (gstWait or gstLoser or gstWinner or gstAttacked or gstNotKickable or gstHHChooseTarget)); |
1229 if Gear^.Hedgehog^.Effects[heFrozen] = 0 then Gear^.Active:= false; |
1229 if Gear^.Hedgehog^.Effects[heFrozen] = 0 then Gear^.Active:= false; |
1230 AddGearCI(Gear); |
1230 AddCI(Gear); |
1231 exit |
1231 exit |
1232 end |
1232 end |
1233 else dec(Gear^.Timer) |
1233 else dec(Gear^.Timer) |
1234 end; |
1234 end; |
1235 |
1235 |