2221 |
2221 |
2222 Gear^.X:= HHGear^.X; |
2222 Gear^.X:= HHGear^.X; |
2223 Gear^.Y:= HHGear^.Y; |
2223 Gear^.Y:= HHGear^.Y; |
2224 doStepHedgehogMoving(HHGear); |
2224 doStepHedgehogMoving(HHGear); |
2225 |
2225 |
2226 if //(Gear^.Timer = 0) or |
2226 if (Gear^.Health = 0) |
2227 (Gear^.Health = 0) or |
2227 or CheckGearDrowning(HHGear) |
2228 ((HHGear^.Message and gm_Attack) <> 0) or |
2228 or ((Gear^.Message and gm_Attack) <> 0) then |
2229 (HHGear^.Damage <> 0) then |
2229 begin |
2230 begin |
2230 with HHGear^ do |
2231 HHGear^.Message:= 0; |
2231 begin |
|
2232 Message:= 0; |
|
2233 Active:= true; |
|
2234 State:= State or gstMoving |
|
2235 end; |
2232 DeleteGear(Gear); |
2236 DeleteGear(Gear); |
2233 AfterAttack; |
2237 isCursorVisible:= false; |
2234 HHGear^.Active:= true; |
|
2235 end |
2238 end |
2236 end; |
2239 end; |
2237 |
2240 |
2238 procedure doStepJetpack(Gear: PGear); |
2241 procedure doStepJetpack(Gear: PGear); |
2239 var HHGear: PGear; |
2242 var HHGear: PGear; |
2240 begin |
2243 begin |
2241 Gear^.doStep:= @doStepJetpackWork; |
2244 Gear^.doStep:= @doStepJetpackWork; |
2242 |
2245 |
2243 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
2246 HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear; |
2244 FollowGear:= HHGear; |
2247 FollowGear:= HHGear; |
|
2248 OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^); |
|
2249 ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^); |
2245 with HHGear^ do |
2250 with HHGear^ do |
2246 begin |
2251 begin |
2247 State:= State and not gstAttacking; |
2252 State:= State and not gstAttacking; |
2248 Message:= Message and not gm_Attack |
2253 Message:= Message and not gm_Attack |
2249 end |
2254 end |