equal
deleted
inserted
replaced
1128 |
1128 |
1129 //////////////////////////////////////////////////////////////////////////////// |
1129 //////////////////////////////////////////////////////////////////////////////// |
1130 procedure doStepShotIdle(Gear: PGear); |
1130 procedure doStepShotIdle(Gear: PGear); |
1131 begin |
1131 begin |
1132 AllInactive := false; |
1132 AllInactive := false; |
1133 inc(Gear^.Timer); |
1133 if (Gear^.Kind <> gtMinigunBullet) then |
1134 if Gear^.Timer > 75 then |
1134 begin |
|
1135 inc(Gear^.Timer); |
|
1136 if Gear^.Timer > 75 then |
|
1137 begin |
|
1138 DeleteGear(Gear); |
|
1139 AfterAttack |
|
1140 end |
|
1141 end |
|
1142 else |
1135 begin |
1143 begin |
1136 DeleteGear(Gear); |
1144 DeleteGear(Gear); |
1137 AfterAttack |
|
1138 end |
1145 end |
1139 end; |
1146 end; |
1140 |
1147 |
1141 procedure CreateShellForGear(Gear: PGear; startFrame: Longword); |
1148 procedure CreateShellForGear(Gear: PGear; startFrame: Longword); |
1142 var |
1149 var |