equal
deleted
inserted
replaced
1 (* |
1 (* |
2 * Hedgewars, a free turn based strategy game |
2 * Hedgewars, a free turn based strategy game |
3 * Copyright (c) 2004-2012 Andrey Korotaev <unC0Rr@gmail.com> |
3 * Copyright (c) 2004-2013 Andrey Korotaev <unC0Rr@gmail.com> |
4 * |
4 * |
5 * This program is free software; you can redistribute it and/or modify |
5 * This program is free software; you can redistribute it and/or modify |
6 * it under the terms of the GNU General Public License as published by |
6 * it under the terms of the GNU General Public License as published by |
7 * the Free Software Foundation; version 2 of the License |
7 * the Free Software Foundation; version 2 of the License |
8 * |
8 * |
469 gear^.Health:= 3; |
469 gear^.Health:= 3; |
470 gear^.Radius:= 8 |
470 gear^.Radius:= 8 |
471 end; |
471 end; |
472 gtJetpack: begin |
472 gtJetpack: begin |
473 gear^.Health:= 2000; |
473 gear^.Health:= 2000; |
474 gear^.Damage:= 100 |
474 gear^.Damage:= 100; |
|
475 gear^.State:= gstSubmersible |
475 end; |
476 end; |
476 gtMolotov: begin |
477 gtMolotov: begin |
477 gear^.Radius:= 6; |
478 gear^.Radius:= 6; |
478 gear^.Density:= _2; |
479 gear^.Density:= _2; |
479 end; |
480 end; |