equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a worms-like game |
2 * Hedgewars, a worms-like game |
3 * Copyright (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004, 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * Distributed under the terms of the BSD-modified licence: |
5 * Distributed under the terms of the BSD-modified licence: |
6 * |
6 * |
7 * Permission is hereby granted, free of charge, to any person obtaining a copy |
7 * Permission is hereby granted, free of charge, to any person obtaining a copy |
8 * of this software and associated documentation files (the "Software"), to deal |
8 * of this software and associated documentation files (the "Software"), to deal |
174 procedure PickUp(HH, Gear: PGear); |
174 procedure PickUp(HH, Gear: PGear); |
175 begin |
175 begin |
176 case Gear.Pos of |
176 case Gear.Pos of |
177 posCaseHealth: begin |
177 posCaseHealth: begin |
178 inc(HH.Health, Gear.Health); |
178 inc(HH.Health, Gear.Health); |
179 RenderHealth(PHedgehog(HH.Hedgehog)^) |
179 RenderHealth(PHedgehog(HH.Hedgehog)^); |
|
180 RecountTeamHealth(PHedgehog(HH.Hedgehog)^.Team) |
180 end; |
181 end; |
181 end; |
182 end; |
182 end; |
183 end; |
183 |
184 |
184 procedure doStepHedgehog(Gear: PGear); forward; |
185 procedure doStepHedgehog(Gear: PGear); forward; |