equal
deleted
inserted
replaced
136 end; |
136 end; |
137 |
137 |
138 procedure OnUsedAmmo(var Hedgehog: THedgehog); |
138 procedure OnUsedAmmo(var Hedgehog: THedgehog); |
139 begin |
139 begin |
140 with Hedgehog do |
140 with Hedgehog do |
141 begin |
141 begin |
142 with Ammo^[CurSlot, CurAmmo] do |
142 with Ammo^[CurSlot, CurAmmo] do |
143 if Count <> AMMO_INFINITE then |
143 if Count <> AMMO_INFINITE then |
144 begin |
144 begin |
145 dec(Count); |
145 dec(Count); |
146 if Count = 0 then PackAmmo(Ammo, CurSlot) |
146 if Count = 0 then |
147 end |
147 begin |
148 end |
148 PackAmmo(Ammo, CurSlot); |
|
149 SwitchNotHoldedAmmo(Hedgehog) |
|
150 end |
|
151 end |
|
152 end |
149 end; |
153 end; |
150 |
154 |
151 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
155 function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
152 var slot, ami: LongInt; |
156 var slot, ami: LongInt; |
153 begin |
157 begin |