equal
deleted
inserted
replaced
139 procedure doStepCreeper(Gear: PGear); |
139 procedure doStepCreeper(Gear: PGear); |
140 procedure doStepKnife(Gear: PGear); |
140 procedure doStepKnife(Gear: PGear); |
141 procedure doStepMinigunWork(Gear: PGear); |
141 procedure doStepMinigunWork(Gear: PGear); |
142 procedure doStepMinigun(Gear: PGear); |
142 procedure doStepMinigun(Gear: PGear); |
143 procedure doStepMinigunBullet(Gear: PGear); |
143 procedure doStepMinigunBullet(Gear: PGear); |
|
144 procedure doStepSentry(Gear: PGear); |
144 |
145 |
145 var |
146 var |
146 upd: Longword; |
147 upd: Longword; |
147 snowLeft,snowRight: LongInt; |
148 snowLeft,snowRight: LongInt; |
148 |
149 |
7168 Gear^.Y := Gear^.Y + Gear^.dY * 2; |
7169 Gear^.Y := Gear^.Y + Gear^.dY * 2; |
7169 Gear^.FlightTime := 0; |
7170 Gear^.FlightTime := 0; |
7170 Gear^.doStep := @doStepBulletWork |
7171 Gear^.doStep := @doStepBulletWork |
7171 end; |
7172 end; |
7172 |
7173 |
|
7174 //////////////////////////////////////////////////////////////////////////////// |
|
7175 procedure doStepSentry(Gear: PGear); |
|
7176 begin |
|
7177 CheckGearDrowning(Gear); |
|
7178 doStepFallingGear(Gear); |
|
7179 end; |
|
7180 |
7173 end. |
7181 end. |