changeset 1922 | 88cdabb51995 |
parent 1906 | 644f93d8f148 |
child 2005 | aa79f631711b |
1921:2a09f7f786a0 | 1922:88cdabb51995 |
---|---|
204 end; |
204 end; |
205 |
205 |
206 procedure AfterSwitchHedgehog; |
206 procedure AfterSwitchHedgehog; |
207 var g: PGear; |
207 var g: PGear; |
208 begin |
208 begin |
209 SwitchNotHoldedAmmo(CurrentHedgehog^); |
209 SwitchNotHeldAmmo(CurrentHedgehog^); |
210 with CurrentHedgehog^ do |
210 with CurrentHedgehog^ do |
211 begin |
211 begin |
212 with Gear^ do |
212 with Gear^ do |
213 begin |
213 begin |
214 Z:= cCurrHHZ; |
214 Z:= cCurrHHZ; |