equal
deleted
inserted
replaced
990 var t: PGear; |
990 var t: PGear; |
991 wasJumping: boolean; |
991 wasJumping: boolean; |
992 Hedgehog: PHedgehog; |
992 Hedgehog: PHedgehog; |
993 begin |
993 begin |
994 Hedgehog:= HHGear^.Hedgehog; |
994 Hedgehog:= HHGear^.Hedgehog; |
995 if isInMultiShoot then |
995 (* |
996 HHGear^.Message:= 0; |
996 if isInMultiShoot then HHGear^.Message:= 0; |
997 |
997 |
998 if ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Utility) <> 0) and isInMultiShoot then |
998 if ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Utility) <> 0) and isInMultiShoot then |
999 AllInactive:= true |
999 AllInactive:= true |
1000 else if not isInMultiShoot then |
1000 else if not isInMultiShoot then*) |
1001 AllInactive:= false; |
1001 AllInactive:= false; |
1002 |
1002 |
1003 if (TurnTimeLeft = 0) or (HHGear^.Damage > 0) then |
1003 if (TurnTimeLeft = 0) or (HHGear^.Damage > 0) then |
1004 begin |
1004 begin |
1005 if TagTurnTimeLeft = 0 then |
1005 if TagTurnTimeLeft = 0 then |
1077 begin |
1077 begin |
1078 CurAmmoGear^.Message:= HHGear^.Message; |
1078 CurAmmoGear^.Message:= HHGear^.Message; |
1079 exit |
1079 exit |
1080 end; |
1080 end; |
1081 |
1081 |
1082 if not isInMultiShoot then |
1082 //if not isInMultiShoot then |
1083 HedgehogChAngle(HHGear); |
1083 HedgehogChAngle(HHGear); |
1084 |
1084 |
1085 if (HHGear^.State and gstMoving) <> 0 then |
1085 if (HHGear^.State and gstMoving) <> 0 then |
1086 begin |
1086 begin |
1087 wasJumping:= ((HHGear^.State and gstHHJumping) <> 0); |
1087 wasJumping:= ((HHGear^.State and gstHHJumping) <> 0); |
1113 GHStepTicks:= 95 |
1113 GHStepTicks:= 95 |
1114 end; |
1114 end; |
1115 exit |
1115 exit |
1116 end; |
1116 end; |
1117 |
1117 |
1118 if not isInMultiShoot and (Hedgehog^.Gear <> nil) then |
1118 //if not isInMultiShoot and (Hedgehog^.Gear <> nil) then |
|
1119 if Hedgehog^.Gear <> nil then |
1119 begin |
1120 begin |
1120 if GHStepTicks > 0 then |
1121 if GHStepTicks > 0 then |
1121 dec(GHStepTicks); |
1122 dec(GHStepTicks); |
1122 if (GHStepTicks = 0) then |
1123 if (GHStepTicks = 0) then |
1123 HedgehogStep(HHGear) |
1124 HedgehogStep(HHGear) |