equal
deleted
inserted
replaced
156 dec(Gear^.Hedgehog^.InitialHealth, 5) |
156 dec(Gear^.Hedgehog^.InitialHealth, 5) |
157 end |
157 end |
158 end; |
158 end; |
159 if tmp > 0 then |
159 if tmp > 0 then |
160 begin |
160 begin |
161 inc(Gear^.Damage, min(tmp, max(0,Gear^.Health - 1 - Gear^.Damage))); |
161 // SD damage never reduces health below 1 |
162 HHHurt(Gear^.Hedgehog, dsPoison); |
162 tmp:= min(tmp, max(0, Gear^.Health - 1 - Gear^.Damage)); |
|
163 inc(Gear^.Damage, tmp); |
|
164 if tmp > 0 then |
|
165 // Make hedgehog moan on damage |
|
166 HHHurt(Gear^.Hedgehog, dsPoison); |
163 end |
167 end |
164 end; |
168 end; |
165 |
169 |
166 Gear:= Gear^.NextGear |
170 Gear:= Gear^.NextGear |
167 end; |
171 end; |