hedgewars: hedgewars/GSHandlers.inc@77f326c7f0ef (annotated)

4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1	(*
1066 1f1b3686a2b0 Update copyright headers a bit unc0rr parents: 1047 diff changeset	2	* Hedgewars, a free turn based strategy game
883 07a568ba44e0 Update copyright info in source files headers unc0rr parents: 876 diff changeset	3	* Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	4	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	5	* This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	6	* it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	7	* the Free Software Foundation; version 2 of the License
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	8	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	9	* This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	10	* but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	11	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	12	* GNU General Public License for more details.
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	13	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	14	* You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	15	* along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	16	* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	17	*)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	18
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	19	procedure doStepDrowningGear(Gear: PGear); forward;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	20
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	21	function CheckGearDrowning(Gear: PGear): boolean;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	22	begin
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	23	if cWaterLine < hwRound(Gear^.Y) + Gear^.Radius then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	24	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	25	CheckGearDrowning:= true;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	26	Gear^.State:= gstDrowning;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	27	Gear^.doStep:= @doStepDrowningGear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	28	PlaySound(sndSplash, false)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	29	end else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	30	CheckGearDrowning:= false
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	31	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	32
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	33	procedure CheckCollision(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	34	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	35	if TestCollisionXwithGear(Gear, hwSign(Gear^.X)) or TestCollisionYwithGear(Gear, hwSign(Gear^.Y))
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	36	then Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	37	else Gear^.State:= Gear^.State and not gstCollision
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	38	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	39
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	40	procedure CheckHHDamage(Gear: PGear);
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	41	var dmg: Longword;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	42	begin
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	43	if _0_4 < Gear^.dY then
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	44	begin
ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	45	if _0_6 < Gear^.dY then
1132 b4c0698fbb6b - Fix problem when clouds number is 0 unc0rr parents: 1124 diff changeset	46	PlaySound(sndOw4, false)
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	47	else
1132 b4c0698fbb6b - Fix problem when clouds number is 0 unc0rr parents: 1124 diff changeset	48	PlaySound(sndOw1, false);
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	49
ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	50	dmg:= 1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70);
ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	51	inc(Gear^.Damage, dmg);
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	52	AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius, dmg, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color);
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	53	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	54	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	55
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	56	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	57	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	58	procedure CalcRotationDirAngle(Gear: PGear);
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	59	var dAngle: real;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	60	begin
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	61	dAngle:= (hwAbs(Gear^.dX) + hwAbs(Gear^.dY)).QWordValue / $80000000;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	62	if not Gear^.dX.isNegative then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	63	Gear^.DirAngle:= Gear^.DirAngle + dAngle
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	64	else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	65	Gear^.DirAngle:= Gear^.DirAngle - dAngle;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	66
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	67	if Gear^.DirAngle < 0 then Gear^.DirAngle:= Gear^.DirAngle + 360
8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	68	else if 360 < Gear^.DirAngle then Gear^.DirAngle:= Gear^.DirAngle - 360
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	69	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	70
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	71	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	72	procedure doStepDrowningGear(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	73	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	74	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	75	Gear^.Y:= Gear^.Y + cDrownSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	76	if hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	77	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	78
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	79	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	80	procedure doStepFallingGear(Gear: PGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	81	var isFalling: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	82	begin
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	83	Gear^.State:= Gear^.State and not gstCollision;
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	84
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	85	if Gear^.dY.isNegative then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	86	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	87	isFalling:= true;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	88	if TestCollisionYwithGear(Gear, -1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	89	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	90	Gear^.dX:= Gear^.dX * Gear^.Friction;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	91	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	92	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	93	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	94	end else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	95	if TestCollisionYwithGear(Gear, 1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	96	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	97	isFalling:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	98	Gear^.dX:= Gear^.dX * Gear^.Friction;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	99	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	100	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	101	end else isFalling:= true;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	102
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	103	if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	104	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	105	Gear^.dX:= - Gear^.dX * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	106	Gear^.dY:= Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	107	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	108	end;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	109
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	110	if isFalling then Gear^.dY:= Gear^.dY + cGravity;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	111
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	112	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	113	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	114	CheckGearDrowning(Gear);
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	115	if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	116	(not isFalling) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	117	Gear^.State:= Gear^.State and not gstMoving
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	118	else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	119	Gear^.State:= Gear^.State or gstMoving
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	120	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	121
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	122	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	123	procedure doStepBomb(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	124	var i: LongInt;
919 fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	125	dX, dY: hwFloat;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	126	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	127	AllInactive:= false;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	128
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	129	doStepFallingGear(Gear);
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	130
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	131	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	132	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	133	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	134	case Gear^.Kind of
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	135	gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	136	gtClusterBomb: begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	137	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	138	for i:= 0 to 4 do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	139	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	140	dX:= rndSign(GetRandom * _0_1);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	141	dY:= (GetRandom - _3) * _0_08;
1261 903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	142	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 25);
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	143	end
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	144	end;
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	145	gtWatermelon: begin
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	146	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	147	for i:= 0 to 5 do
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	148	begin
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	149	dX:= rndSign(GetRandom * _0_1);
1496 bc2a166b4fd2 Modify melon pieces spread a bit unc0rr parents: 1495 diff changeset	150	dY:= (GetRandom - _1_5) * _0_3;
1262 e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	151	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMelonPiece, 0, dX, dY, 75)^.DirAngle:= i * 60;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	152	end
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	153	end;
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	154	gtHellishBomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 90, EXPLAutoSound);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	155	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	156	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	157	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	158	end;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	159
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	160	CalcRotationDirAngle(Gear);
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	161
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	162	if Gear^.Kind = gtHellishBomb then
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	163	begin
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	164	if Gear^.Timer = 3000 then PlaySound(sndHellish, false);
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	165
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	166	if (GameTicks and $3F) = 0 then
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	167	if (Gear^.State and gstCollision) = 0 then
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	168	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtEvilTrace, 0, _0, _0, 0);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	169	end;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	170
1158 d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	171	if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then
d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	172	if (hwAbs(Gear^.dX) > _0_1) or
d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	173	(hwAbs(Gear^.dY) > _0_1) then
d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	174	PlaySound(sndGrenadeImpact, false)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	175	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	176
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	177	procedure doStepWatermelon(Gear: PGear);
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	178	begin
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	179	AllInactive:= false;
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	180	PlaySound(sndMelon, false);
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	181	Gear^.doStep:= @doStepBomb
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	182	end;
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	183
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	184	procedure doStepCluster(Gear: PGear);
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	185	begin
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	186	AllInactive:= false;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	187	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	188	if (Gear^.State and gstCollision) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	189	begin
1261 903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	190	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, EXPLAutoSound);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	191	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	192	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	193	end;
1262 e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	194
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	195	if Gear^.Kind = gtMelonPiece then
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	196	CalcRotationDirAngle(Gear)
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	197	else
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	198	if (GameTicks and $1F) = 0 then
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	199	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	200	end;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	201
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	202	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	203	procedure doStepGrenade(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	204	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	205	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	206	Gear^.dX:= Gear^.dX + cWindSpeed;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	207	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	208	if (Gear^.State and gstCollision) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	209	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	210	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	211	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	212	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	213	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	214	if (GameTicks and $3F) = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	215	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	216	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	217
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	218	////////////////////////////////////////////////////////////////////////////////
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	219	procedure doStepHealthTagWork(Gear: PGear);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	220	begin
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	221	if Gear^.Kind = gtHealthTag then
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	222	AllInactive:= false;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	223
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	224	dec(Gear^.Timer);
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	225	Gear^.Y:= Gear^.Y + Gear^.dY;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	226
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	227	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	228	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	229	if Gear^.Kind = gtHealthTag then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	230	PHedgehog(Gear^.Hedgehog)^.Gear^.Active:= true; // to let current hh die
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	231	DeleteGear(Gear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	232	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	233	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	234
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	235	procedure doStepHealthTagWorkUnderWater(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	236	begin
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	237	AllInactive:= false;
1495 2b2b89bdb5f3 More verbose gear delete debuglog message unc0rr parents: 1437 diff changeset	238
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	239	Gear^.Y:= Gear^.Y - _0_08;
1495 2b2b89bdb5f3 More verbose gear delete debuglog message unc0rr parents: 1437 diff changeset	240
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	241	if hwRound(Gear^.Y) < cWaterLine + 10 then
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	242	DeleteGear(Gear)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	243	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	244
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	245	procedure doStepHealthTag(Gear: PGear);
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	246	var s: shortstring;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	247	begin
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	248	AllInactive:= false;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	249	Gear^.dY:= -_0_08;
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	250
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	251	str(Gear^.State, s);
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	252	Gear^.Tex:= RenderStringTex(s, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color, fnt16);
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	253
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	254	if hwRound(Gear^.Y) < cWaterLine then
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	255	Gear^.doStep:= @doStepHealthTagWork
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	256	else
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	257	Gear^.doStep:= @doStepHealthTagWorkUnderWater;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	258
762 5ecf042f6113 More sprites are visible unc0rr parents: 690 diff changeset	259	Gear^.Y:= Gear^.Y - int2hwFloat(Gear^.Tex^.h)
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	260	end;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	261
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	262	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	263	procedure doStepGrave(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	264	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	265	AllInactive:= false;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	266	if Gear^.dY.isNegative then
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	267	if TestCollisionY(Gear, -1) then Gear^.dY:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	268
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	269	if not Gear^.dY.isNegative then
68 cbb93eb90304 Collision-related stuff unc0rr parents: 57 diff changeset	270	if TestCollisionY(Gear, 1) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	271	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	272	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	273	if Gear^.dY > - _1div1024 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	274	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	275	Gear^.Active:= false;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	276	exit
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	277	end else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	278	end;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	279
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	280	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	281	CheckGearDrowning(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	282	Gear^.dY:= Gear^.dY + cGravity
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	283	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	284
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	285	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	286	procedure doStepUFOWork(Gear: PGear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	287	var t: hwFloat;
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	288	y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	289	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	290	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	291	t:= Distance(Gear^.dX, Gear^.dY);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	292	Gear^.dX:= Gear^.Elasticity * (Gear^.dX + _0_000004 * (TargetPoint.X - hwRound(Gear^.X)));
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	293	Gear^.dY:= Gear^.Elasticity * (Gear^.dY + _0_000004 * (TargetPoint.Y - hwRound(Gear^.Y)));
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	294	t:= t / Distance(Gear^.dX, Gear^.dY);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	295	Gear^.dX:= Gear^.dX * t;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	296	Gear^.dY:= Gear^.dY * t;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	297	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	298	Gear^.Y:= Gear^.Y + Gear^.dY;
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	299
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	300	if (GameTicks and $3F) = 0 then
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	301	begin
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	302	y:= hwRound(Gear^.Y);
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	303	if y + Gear^.Radius < cWaterLine then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	304	AddGear(hwRound(Gear^.X), y, gtSmokeTrace, 0, _0, _0, 0);
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	305	end;
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	306
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	307	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	308	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	309	if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	310	begin
560 7bf2b554de0c UFO Sound unc0rr parents: 559 diff changeset	311	StopSound(sndUFO);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	312	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	313	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	314	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	315	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	316
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	317	procedure doStepUFO(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	318	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	319	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	320	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	321	Gear^.Y:= Gear^.Y + Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	322	Gear^.dY:= Gear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	323	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	324	if (Gear^.State and gstCollision) <> 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	325	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	326	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	327	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	328	exit
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	329	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	330	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	331	if Gear^.Timer = 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	332	begin
560 7bf2b554de0c UFO Sound unc0rr parents: 559 diff changeset	333	PlaySound(sndUFO, true);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	334	Gear^.Timer:= 5000;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	335	Gear^.doStep:= @doStepUFOWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	336	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	337	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	338
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	339	////////////////////////////////////////////////////////////////////////////////
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	340	procedure doStepShotIdle(Gear: PGear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	341	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	342	AllInactive:= false;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	343	inc(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	344	if Gear^.Timer > 75 then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	345	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	346	DeleteGear(Gear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	347	AfterAttack
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	348	end
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	349	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	350
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	351	procedure doStepShotgunShot(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	352	var i: LongWord;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	353	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	354	AllInactive:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	355
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	356	if ((Gear^.State and gstAnimation) = 0) then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	357	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	358	dec(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	359	if Gear^.Timer = 0 then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	360	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	361	PlaySound(sndShotgunFire, false);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	362	Gear^.State:= Gear^.State or gstAnimation
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	363	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	364	exit
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	365	end
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	366	else inc(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	367
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	368	i:= 200;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	369	repeat
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	370	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	371	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	372	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	373	if (Gear^.State and gstCollision) <> 0 then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	374	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	375	Gear^.X:= Gear^.X + Gear^.dX * 8;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	376	Gear^.Y:= Gear^.Y + Gear^.dY * 8;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	377	ShotgunShot(Gear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	378	Gear^.doStep:= @doStepShotIdle;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	379	exit
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	380	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	381	dec(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	382	until i = 0;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	383	if (Gear^.X < _0) or (Gear^.Y < _0) or (Gear^.X > _2048) or (Gear^.Y > _1024) then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	384	Gear^.doStep:= @doStepShotIdle
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	385	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	386
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	387	////////////////////////////////////////////////////////////////////////////////
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	388	procedure doStepDEagleShotWork(Gear: PGear);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	389	var i, x, y: LongWord;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	390	oX, oY: hwFloat;
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	391	begin
c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	392	AllInactive:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	393	inc(Gear^.Timer);
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	394	i:= 80;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	395	oX:= Gear^.X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	396	oY:= Gear^.Y;
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	397	repeat
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	398	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	399	Gear^.Y:= Gear^.Y + Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	400	x:= hwRound(Gear^.X);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	401	y:= hwRound(Gear^.Y);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	402	if ((y and $FFFFFC00) = 0) and ((x and $FFFFF800) = 0)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	403	and (Land[y, x] <> 0) then inc(Gear^.Damage);
519 981df6f6e2a9 - Fix desert eagle unc0rr parents: 517 diff changeset	404	if Gear^.Damage > 5 then AmmoShove(Gear, 7, 20);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	405	dec(i)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	406	until (i = 0) or (Gear^.Damage > Gear^.Health);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	407	if Gear^.Damage > 0 then
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	408	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	409	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	410	dec(Gear^.Health, Gear^.Damage);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	411	Gear^.Damage:= 0
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	412	end;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	413	if (Gear^.Health <= 0) or (Gear^.X < _0) or (Gear^.Y < _0) or (Gear^.X > _2048) or (Gear^.Y > _1024) then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	414	Gear^.doStep:= @doStepShotIdle
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	415	end;
2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	416
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	417	procedure doStepDEagleShot(Gear: PGear);
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	418	begin
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	419	PlaySound(sndGun, false);
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	420	Gear^.doStep:= @doStepDEagleShotWork
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	421	end;
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	422
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	423	////////////////////////////////////////////////////////////////////////////////
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	424	procedure doStepActionTimer(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	425	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	426	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	427	case Gear^.Kind of
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	428	gtATStartGame: begin
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	429	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	430	if Gear^.Timer = 0 then
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	431	AddCaption(trmsg[sidStartFight], $FFFFFF, capgrpGameState);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	432	end;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	433	gtATSmoothWindCh: begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	434	if Gear^.Timer = 0 then
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	435	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	436	if WindBarWidth < Gear^.Tag then inc(WindBarWidth)
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	437	else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	438	if WindBarWidth <> Gear^.Tag then Gear^.Timer:= 10;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	439	end
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	440	end;
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	441	gtATFinishGame: begin
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	442	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	443	if Gear^.Timer = 0 then
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	444	begin
d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	445	SendIPC('N');
324 f4c109c82a0c Don't show game stats in case of interrupted by command '/quit' game unc0rr parents: 306 diff changeset	446	SendIPC('q');
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	447	GameState:= gsExit
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	448	end
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	449	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	450	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	451	if Gear^.Timer = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	452	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	453
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	454	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	455	procedure doStepPickHammerWork(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	456	var i, ei: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	457	HHGear: PGear;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	458	begin
70 82d93eeecebe - Many AI improvements unc0rr parents: 68 diff changeset	459	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	460	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	461	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	462	if (Gear^.Timer = 0)or((Gear^.Message and gm_Destroy) <> 0)or((HHGear^.State and gstHHDriven) = 0) then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	463	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	464	StopSound(sndPickhammer);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	465	DeleteGear(Gear);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	466	AfterAttack;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	467	exit
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	468	end;
845 ca72cf446ec2 Add sprite for pickhammer unc0rr parents: 820 diff changeset	469
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	470	if (Gear^.Timer mod 33) = 0 then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	471	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	472	HHGear^.State:= HHGear^.State or gstNoDamage;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	473	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 7, 6, EXPLDontDraw);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	474	HHGear^.State:= HHGear^.State and not gstNoDamage
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	475	end;
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	476
12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	477	if (Gear^.Timer mod 47) = 0 then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	478	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	479	i:= hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	480	ei:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	481	while i <= ei do
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	482	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	483	DrawExplosion(i, hwRound(Gear^.Y) + 3, 3);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	484	inc(i, 1)
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	485	end;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	486	Gear^.X:= Gear^.X + Gear^.dX;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	487	Gear^.Y:= Gear^.Y + _1_9;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	488	SetAllHHToActive;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	489	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	490	if TestCollisionYwithGear(Gear, 1) then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	491	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	492	Gear^.dY:= _0;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	493	SetLittle(HHGear^.dX);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	494	HHGear^.dY:= _0;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	495	end else
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	496	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	497	Gear^.dY:= Gear^.dY + cGravity;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	498	Gear^.Y:= Gear^.Y + Gear^.dY;
1417 210cb6b1b275 Fix some problems with water rising unc0rr parents: 1388 diff changeset	499	if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer:= 1
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	500	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	501
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	502	Gear^.X:= Gear^.X + HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	503	HHGear^.X:= Gear^.X;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	504	HHGear^.Y:= Gear^.Y - int2hwFloat(cHHRadius);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	505
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	506	if (Gear^.Message and gm_Attack) <> 0 then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	507	if (Gear^.State and gsttmpFlag) <> 0 then Gear^.Timer:= 1 else else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	508	if (Gear^.State and gsttmpFlag) = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	509	if ((Gear^.Message and gm_Left) <> 0) then Gear^.dX:= - _0_3 else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	510	if ((Gear^.Message and gm_Right) <> 0) then Gear^.dX:= _0_3
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	511	else Gear^.dX:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	512	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	513
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	514	procedure doStepPickHammer(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	515	var i, y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	516	ar: TRangeArray;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	517	HHGear: PGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	518	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	519	i:= 0;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	520	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	521
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	522	y:= hwRound(Gear^.Y) - cHHRadius * 2;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	523	while y < hwRound(Gear^.Y) do
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	524	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	525	ar[i].Left := hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	526	ar[i].Right:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	527	inc(y, 2);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	528	inc(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	529	end;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	530
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	531	DrawHLinesExplosions(@ar, 3, hwRound(Gear^.Y) - cHHRadius * 2, 2, Pred(i));
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	532	Gear^.dY:= HHGear^.dY;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	533	DeleteCI(HHGear);
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	534
282 b1e3387389b6 - Pickhammer sound unc0rr parents: 263 diff changeset	535	PlaySound(sndPickhammer, true);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	536	doStepPickHammerWork(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	537	Gear^.doStep:= @doStepPickHammerWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	538	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	539
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	540	////////////////////////////////////////////////////////////////////////////////
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	541	var BTPrevAngle, BTSteps: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	542
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	543	procedure doStepBlowTorchWork(Gear: PGear);
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	544	var HHGear: PGear;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	545	b: boolean;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	546	prevX: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	547	begin
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	548	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	549	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	550	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	551
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	552	HedgehogChAngle(HHGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	553
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	554	b:= false;
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	555
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	556	if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	557	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	558	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	559	Gear^.dY:= AngleCos(HHGear^.Angle) * ( - _0_5);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	560	BTPrevAngle:= HHGear^.Angle;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	561	b:= true
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	562	end;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	563
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	564	if ((HHGear^.State and gstMoving) <> 0) then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	565	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	566	doStepHedgehogMoving(HHGear);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	567	if (HHGear^.Damage > 0) then Gear^.Timer:= 0
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	568	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	569
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	570	if Gear^.Timer mod cHHStepTicks = 0 then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	571	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	572	b:= true;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	573	if Gear^.dX.isNegative then
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	574	HHGear^.Message:= (HHGear^.Message and (gm_Attack or gm_Up or gm_Down)) or gm_Left
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	575	else
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	576	HHGear^.Message:= (HHGear^.Message and (gm_Attack or gm_Up or gm_Down)) or gm_Right;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	577
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	578	if ((HHGear^.State and gstMoving) = 0) then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	579	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	580	HHGear^.State:= HHGear^.State and not gstAttacking;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	581	prevX:= hwRound(HHGear^.X);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	582
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	583	HedgehogStep(HHGear);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	584
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	585	if (prevX = hwRound(HHGear^.X)) then HHGear^.X:= HHGear^.X + SignAs(_1, HHGear^.dX);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	586	HHGear^.State:= HHGear^.State or gstAttacking
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	587	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	588
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	589	inc(BTSteps);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	590	if BTSteps = 7 then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	591	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	592	BTSteps:= 0;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	593	Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	594	Gear^.Y:= HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	595	HHGear^.State:= HHGear^.State or gstNoDamage;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	596	AmmoShove(Gear, 2, 10);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	597	HHGear^.State:= HHGear^.State and not gstNoDamage
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	598	end;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	599	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	600
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	601	if b then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	602	DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(Gear^.dY) * 7,
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	603	Gear^.dX, Gear^.dY,
1501 a0e56fdf10cd Tune blowtorch a bit unc0rr parents: 1496 diff changeset	604	cHHRadius * 5, cHHRadius * 2 + 7);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	605
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	606	if (Gear^.Timer = 0) or ((HHGear^.Message and gm_Attack) <> 0) then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	607	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	608	HHGear^.Message:= 0;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	609	HHGear^.State:= HHGear^.State and (not gstNotKickable);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	610	DeleteGear(Gear);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	611	AfterAttack
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	612	end
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	613	end;
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	614
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	615	procedure doStepBlowTorch(Gear: PGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	616	var HHGear: PGear;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	617	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	618	BTPrevAngle:= High(LongInt);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	619	BTSteps:= 0;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	620	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	621	HHGear^.Message:= 0;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	622	HHGear^.State:= HHGear^.State or gstNotKickable;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	623	Gear^.doStep:= @doStepBlowTorchWork
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	624	end;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	625
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	626	////////////////////////////////////////////////////////////////////////////////
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	627
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	628	procedure doStepRopeWork(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	629	var HHGear: PGear;
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	630	len, cs, cc, tx, ty, nx, ny, ropeDx, ropeDy: hwFloat;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	631	lx, ly: LongInt;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	632	haveCollision,
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	633	haveDivided: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	634
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	635	procedure DeleteMe;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	636	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	637	with HHGear^ do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	638	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	639	Message:= Message and not gm_Attack;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	640	State:= State or gstMoving;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	641	end;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	642	DeleteGear(Gear)
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	643	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	644
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	645	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	646	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	647
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	648	if ((HHGear^.State and gstHHDriven) = 0)
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	649	or (CheckGearDrowning(HHGear)) then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	650	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	651	DeleteMe;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	652	exit
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	653	end;
928 b9064b48b001 Some preparation work for attacking from rope, parachute and etc. unc0rr parents: 925 diff changeset	654
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	655	ropeDx:= HHGear^.X - Gear^.X; // vector between hedgehog and rope attaching point
4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	656	ropeDy:= HHGear^.Y - Gear^.Y;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	657
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	658	if (Gear^.Message and gm_Left <> 0) then HHGear^.dX:= HHGear^.dX - _0_0002 else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	659	if (Gear^.Message and gm_Right <> 0) then HHGear^.dX:= HHGear^.dX + _0_0002;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	660
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	661	if not TestCollisionYwithGear(HHGear, 1) then HHGear^.dY:= HHGear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	662
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	663	tx:= ropeDx + HHGear^.dX;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	664	ty:= ropeDy + HHGear^.dY;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	665	len:= _1 / Distance(tx, ty);
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	666	tx:= tx * len; // rope vector plus hedgehog direction vector normalized
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	667	ty:= ty * len;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	668
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	669	haveDivided:= false;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	670	// check whether rope needs dividing
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	671	len:= _1 / Distance(ropeDx, ropeDy); // old rope pos
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	672	nx:= ropeDx * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	673	ny:= ropeDy * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	674
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	675	len:= Gear^.Elasticity - _20;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	676	while len > _5 do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	677	begin
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	678	lx:= hwRound(Gear^.X + tx * len);
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	679	ly:= hwRound(Gear^.Y + ty * len);
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	680	if ((ly and $FFFFFC00) = 0) and ((lx and $FFFFF800) = 0) and (Land[ly, lx] <> 0) then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	681	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	682	with RopePoints.ar[RopePoints.Count] do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	683	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	684	X:= Gear^.X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	685	Y:= Gear^.Y;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	686	if RopePoints.Count = 0 then RopePoints.HookAngle:= DxDy2Angle(Gear^.dY, Gear^.dX);
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	687	b:= (tx * HHGear^.dY) > (ty * HHGear^.dX);
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	688	dLen:= len
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	689	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	690	Gear^.X:= Gear^.X + nx * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	691	Gear^.Y:= Gear^.Y + ny * len;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	692	inc(RopePoints.Count);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	693	TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	694	Gear^.Elasticity:= Gear^.Elasticity - len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	695	Gear^.Friction:= Gear^.Friction - len;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	696	haveDivided:= true;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	697	break
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	698	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	699	len:= len - _0_3 // should be the same as increase step
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	700	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	701
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	702	if not haveDivided then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	703	if RopePoints.Count > 0 then // check whether the last dividing point could be removed
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	704	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	705	tx:= RopePoints.ar[Pred(RopePoints.Count)].X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	706	ty:= RopePoints.ar[Pred(RopePoints.Count)].Y;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	707	if RopePoints.ar[Pred(RopePoints.Count)].b xor ((tx - Gear^.X) * (ty - HHGear^.Y) > (tx - HHGear^.X) * (ty - Gear^.Y)) then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	708	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	709	dec(RopePoints.Count);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	710	Gear^.X:=RopePoints.ar[RopePoints.Count].X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	711	Gear^.Y:=RopePoints.ar[RopePoints.Count].Y;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	712	Gear^.Elasticity:= Gear^.Elasticity + RopePoints.ar[RopePoints.Count].dLen;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	713	Gear^.Friction:= Gear^.Friction + RopePoints.ar[RopePoints.Count].dLen
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	714	end
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	715	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	716
1548 682c0c968997 - Fix wrond hedgehog speed calculation when using rope and changing rope length unc0rr parents: 1547 diff changeset	717	ropeDx:= HHGear^.X - Gear^.X;
682c0c968997 - Fix wrond hedgehog speed calculation when using rope and changing rope length unc0rr parents: 1547 diff changeset	718	ropeDy:= HHGear^.Y - Gear^.Y;
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	719
1548 682c0c968997 - Fix wrond hedgehog speed calculation when using rope and changing rope length unc0rr parents: 1547 diff changeset	720	cs:= ropeDy + HHGear^.dY;
682c0c968997 - Fix wrond hedgehog speed calculation when using rope and changing rope length unc0rr parents: 1547 diff changeset	721	cc:= ropeDx + HHGear^.dX;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	722	len:= _1 / Distance(cc, cs);
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	723	cc:= cc * len;
08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	724	cs:= cs * len;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	725
1552 cd907418da91 Bring back old rope behaviour when changing its length (that's more correct physical model) unc0rr parents: 1551 diff changeset	726	tx:= HHGear^.X;
cd907418da91 Bring back old rope behaviour when changing its length (that's more correct physical model) unc0rr parents: 1551 diff changeset	727	ty:= HHGear^.Y;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	728
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	729	if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Elasticity < Gear^.Friction) then
1548 682c0c968997 - Fix wrond hedgehog speed calculation when using rope and changing rope length unc0rr parents: 1547 diff changeset	730	if not (TestCollisionXwithGear(HHGear, hwSign(ropeDx))
682c0c968997 - Fix wrond hedgehog speed calculation when using rope and changing rope length unc0rr parents: 1547 diff changeset	731	or TestCollisionYwithGear(HHGear, hwSign(ropeDy))) then Gear^.Elasticity:= Gear^.Elasticity + _0_3;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	732
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	733	if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Elasticity > _30) then
1548 682c0c968997 - Fix wrond hedgehog speed calculation when using rope and changing rope length unc0rr parents: 1547 diff changeset	734	if not (TestCollisionXwithGear(HHGear, -hwSign(ropeDx))
682c0c968997 - Fix wrond hedgehog speed calculation when using rope and changing rope length unc0rr parents: 1547 diff changeset	735	or TestCollisionYwithGear(HHGear, -hwSign(ropeDy))) then Gear^.Elasticity:= Gear^.Elasticity - _0_3;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	736
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	737	HHGear^.X:= Gear^.X + cc*Gear^.Elasticity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	738	HHGear^.Y:= Gear^.Y + cs*Gear^.Elasticity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	739
1552 cd907418da91 Bring back old rope behaviour when changing its length (that's more correct physical model) unc0rr parents: 1551 diff changeset	740	HHGear^.dX:= HHGear^.X - tx;
cd907418da91 Bring back old rope behaviour when changing its length (that's more correct physical model) unc0rr parents: 1551 diff changeset	741	HHGear^.dY:= HHGear^.Y - ty;
cd907418da91 Bring back old rope behaviour when changing its length (that's more correct physical model) unc0rr parents: 1551 diff changeset	742
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	743	haveCollision:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	744	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	745	begin
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	746	HHGear^.dX:= -_0_6 * HHGear^.dX;
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	747	haveCollision:= true
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	748	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	749	if TestCollisionYwithGear(HHGear, hwSign(HHGear^.dY)) then
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	750	begin
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	751	HHGear^.dY:= -_0_6 * HHGear^.dY;
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	752	haveCollision:= true
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	753	end;
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	754
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	755	if haveCollision and (Gear^.Message and (gm_Left or gm_Right) <> 0) then
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	756	begin
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	757	HHGear^.dX:= SignAs(hwAbs(HHGear^.dX) + _0_15, HHGear^.dX);
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	758	HHGear^.dY:= SignAs(hwAbs(HHGear^.dY) + _0_15, HHGear^.dY)
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	759	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	760
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	761	len:= Distance(HHGear^.dX, HHGear^.dY);
940 769adb0ad082 Better rope unc0rr parents: 931 diff changeset	762	if len > _0_8 then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	763	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	764	len:= _0_8 / len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	765	HHGear^.dX:= HHGear^.dX * len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	766	HHGear^.dY:= HHGear^.dY * len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	767	end;
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	768
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	769	if (Gear^.Message and gm_Attack) <> 0 then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	770	if (Gear^.State and gsttmpFlag) <> 0 then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	771	DeleteMe
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	772	else
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	773	else
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	774	if (Gear^.State and gsttmpFlag) = 0 then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	775	Gear^.State:= Gear^.State or gsttmpFlag;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	776	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	777
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	778
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	779	procedure doStepRopeAttach(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	780	var HHGear: PGear;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	781	tx, ty, tt: hwFloat;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	782	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	783	Gear^.X:= Gear^.X - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	784	Gear^.Y:= Gear^.Y - Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	785	Gear^.Elasticity:= Gear^.Elasticity + _1;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	786	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
517 ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	787	DeleteCI(HHGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	788	if (HHGear^.State and gstMoving) <> 0 then
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	789	if TestCollisionYwithGear(HHGear, 1) then
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	790	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	791	CheckHHDamage(HHGear);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	792	HHGear^.dY:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	793	HHGear^.State:= HHGear^.State and not (gstMoving or gstHHJumping);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	794	end else
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	795	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	796	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	797	HHGear^.X:= HHGear^.X + HHGear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	798	HHGear^.Y:= HHGear^.Y + HHGear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	799	Gear^.X:= Gear^.X + HHGear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	800	Gear^.Y:= Gear^.Y + HHGear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	801	HHGear^.dY:= HHGear^.dY + cGravity;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	802	tt:= Gear^.Elasticity;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	803	tx:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	804	ty:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	805	while tt > _20 do
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	806	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	807	if TestCollisionXwithXYShift(Gear, tx, hwRound(ty), -hwSign(Gear^.dX))
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	808	or TestCollisionYwithXYShift(Gear, hwRound(tx), hwRound(ty), -hwSign(Gear^.dY)) then
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	809	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	810	Gear^.X:= Gear^.X + tx;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	811	Gear^.Y:= Gear^.Y + ty;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	812	Gear^.Elasticity:= tt;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	813	Gear^.doStep:= @doStepRopeWork;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	814	with HHGear^ do State:= State and not gstAttacking;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	815	tt:= _0
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	816	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	817	tx:= tx + Gear^.dX + Gear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	818	ty:= ty + Gear^.dY + Gear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	819	tt:= tt - _2;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	820	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	821	end;
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	822
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	823	CheckCollision(Gear);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	824
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	825	if (Gear^.State and gstCollision) <> 0 then
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	826	begin
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	827	Gear^.doStep:= @doStepRopeWork;
974 fc16141a0128 Prevent wrong aim direction when using rope after high jump unc0rr parents: 963 diff changeset	828	with HHGear^ do State:= State and not (gstAttacking or gstHHHJump);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	829
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	830	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	831	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	832
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	833	if Gear^.Elasticity < _10 then
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	834	Gear^.Elasticity:= _10000;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	835	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	836
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	837	if (Gear^.Elasticity > Gear^.Friction) or ((Gear^.Message and gm_Attack) = 0) then
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	838	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	839	with PHedgehog(Gear^.Hedgehog)^.Gear^ do
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	840	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	841	State:= State and not gstAttacking;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	842	Message:= Message and not gm_Attack
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	843	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	844	DeleteGear(Gear)
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	845	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	846	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	847
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	848	procedure doStepRope(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	849	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	850	Gear^.dX:= - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	851	Gear^.dY:= - Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	852	Gear^.doStep:= @doStepRopeAttach
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	853	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	854
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	855	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	856	procedure doStepSmokeTrace(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	857	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	858	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	859	if Gear^.Timer > 64 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	860	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	861	Gear^.Timer:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	862	dec(Gear^.State)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	863	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	864	Gear^.dX:= Gear^.dX + cWindSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	865	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	866	if Gear^.State = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	867	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	868
4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	869	////////////////////////////////////////////////////////////////////////////////
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	870	procedure doStepExplosionWork(Gear: PGear);
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	871	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	872	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	873	if Gear^.Timer > 75 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	874	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	875	inc(Gear^.State);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	876	Gear^.Timer:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	877	if Gear^.State > 5 then DeleteGear(Gear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	878	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	879	end;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	880
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	881	procedure doStepExplosion(Gear: PGear);
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	882	var i: LongWord;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	883	begin
1047 ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	884	for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	885	for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	886	for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart2);
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	887	Gear^.doStep:= @doStepExplosionWork
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	888	end;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	889
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	890	////////////////////////////////////////////////////////////////////////////////
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	891	procedure doStepMine(Gear: PGear);
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	892	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	893	if (Gear^.State and gstMoving) <> 0 then
914 c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	894	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	895	DeleteCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	896	doStepFallingGear(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	897	if (Gear^.State and gstMoving) = 0 then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	898	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	899	AddGearCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	900	Gear^.dX:= _0;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	901	Gear^.dY:= _0
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	902	end;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	903	CalcRotationDirAngle(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	904	AllInactive:= false
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	905	end else
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	906	if ((GameTicks and $3F) = 25) then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	907	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	908
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	909	if ((Gear^.State and gsttmpFlag) <> 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	910	if ((Gear^.State and gstAttacking) = 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	911	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	912	if ((GameTicks and $1F) = 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	913	if CheckGearNear(Gear, gtHedgehog, 46, 32) <> nil then Gear^.State:= Gear^.State or gstAttacking
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	914	end else // gstAttacking <> 0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	915	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	916	AllInactive:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	917	if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	918	if Gear^.Timer = 0 then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	919	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	920	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	921	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	922	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	923	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	924	dec(Gear^.Timer);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	925	end else // gsttmpFlag = 0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	926	if TurnTimeLeft = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	927	end;
57 e1a77ae57065 - Fixed compiling .) unc0rr parents: 53 diff changeset	928
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	929	////////////////////////////////////////////////////////////////////////////////
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	930	procedure doStepDynamite(Gear: PGear);
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	931	begin
43 e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	932	doStepFallingGear(Gear);
e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	933	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	934	if Gear^.Timer mod 166 = 0 then inc(Gear^.Tag);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	935	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	936	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	937	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	938	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	939	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	940	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	941	dec(Gear^.Timer);
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	942	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	943
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	944	///////////////////////////////////////////////////////////////////////////////
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	945	procedure doStepCase(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	946	var i, x, y: LongInt;
1436 252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	947	k: TGearType;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	948	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	949	if (Gear^.Message and gm_Destroy) > 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	950	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	951	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	952	FreeActionsList;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	953	SetAllToActive; // something (hh, mine, etc...) could be on top of the case
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	954	with CurrentHedgehog^ do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	955	if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	956	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	957	end;
15 6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	958
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	959	if Gear^.Damage > 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	960	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	961	x:= hwRound(Gear^.X);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	962	y:= hwRound(Gear^.Y);
1436 252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	963	k:= Gear^.Kind;
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	964	DeleteGear(Gear); // <-- delete gear!
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	965
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	966	if k = gtCase then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	967	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	968	doMakeExplosion(x, y, 25, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	969	for i:= 0 to 63 do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	970	AddGear(x, y, gtFlame, 0, _0, _0, 0);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	971	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	972	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	973	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	974
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	975	if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	976	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	977	AllInactive:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	978	Gear^.dY:= Gear^.dY + cGravity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	979	Gear^.Y:= Gear^.Y + Gear^.dY;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	980	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	981	if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	982	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	983	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	984	if Gear^.dY > - _0_001 then Gear^.dY:= _0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	985	else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	986	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	987	CheckGearDrowning(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	988	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	989
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	990	if (Gear^.dY.QWordValue = 0) then AddGearCI(Gear)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	991	else if (Gear^.dY.QWordValue <> 0) then DeleteCI(Gear)
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	992	end;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	993
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	994	////////////////////////////////////////////////////////////////////////////////
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	995	const cSorterWorkTime = 640;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	996	var thexchar: array[0..cMaxTeams] of
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	997	record
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	998	dy, ny, dw: LongInt;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	999	team: PTeam;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1000	SortFactor: QWord;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1001	end;
601 78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	1002	currsorter: PGear = nil;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1003
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1004	procedure doStepTeamHealthSorterWork(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	1005	var i: LongInt;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1006	begin
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1007	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1008	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1009	if (Gear^.Timer and 15) = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1010	for i:= 0 to Pred(TeamsCount) do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1011	with thexchar[i] do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1012	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1013	{$WARNINGS OFF}
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1014	team^.DrawHealthY:= ny + dy * Gear^.Timer div 640;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1015	team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * Gear^.Timer div cSorterWorkTime;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1016	{$WARNINGS ON}
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1017	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1018
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1019	if (Gear^.Timer = 0) or (currsorter <> Gear) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1020	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1021	if currsorter = Gear then currsorter:= nil;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1022	DeleteGear(Gear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1023	end
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1024	end;
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1025
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1026	procedure doStepTeamHealthSorter(Gear: PGear);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1027	var i: Longword;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1028	b: boolean;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1029	t: LongInt;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1030	begin
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1031	AllInactive:= false;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	1032
547 b81a055f2d06 Convert teams list to array unc0rr parents: 545 diff changeset	1033	for t:= 0 to Pred(TeamsCount) do
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1034	with thexchar[t] do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1035	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1036	dy:= TeamsArray[t]^.DrawHealthY;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1037	dw:= TeamsArray[t]^.TeamHealthBarWidth - TeamsArray[t]^.NewTeamHealthBarWidth;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1038	team:= TeamsArray[t];
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1039	SortFactor:= TeamsArray[t]^.Clan^.ClanHealth;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1040	SortFactor:= (SortFactor shl 3) + TeamsArray[t]^.Clan^.ClanIndex;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1041	SortFactor:= (SortFactor shl 30) + TeamsArray[t]^.TeamHealth;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1042	end;
547 b81a055f2d06 Convert teams list to array unc0rr parents: 545 diff changeset	1043
601 78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	1044	if TeamsCount > 1 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1045	repeat
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1046	b:= true;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1047	for t:= 0 to TeamsCount - 2 do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1048	if (thexchar[t].SortFactor > thexchar[Succ(t)].SortFactor) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1049	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1050	thexchar[cMaxTeams]:= thexchar[t];
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1051	thexchar[t]:= thexchar[Succ(t)];
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1052	thexchar[Succ(t)]:= thexchar[cMaxTeams];
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1053	b:= false
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1054	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1055	until b;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	1056
1120 eb5a9f86f9c6 Add ability to resize engine's window unc0rr parents: 1111 diff changeset	1057	t:= - 4;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	1058	for i:= 0 to Pred(TeamsCount) do
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1059	with thexchar[i] do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1060	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1061	dec(t, team^.HealthTex^.h + 2);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1062	ny:= t;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1063	dy:= dy - ny
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1064	end;
764 7513452b1d51 Now game looks almost like it did before switching to OpenGL unc0rr parents: 762 diff changeset	1065
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	1066	Gear^.Timer:= cSorterWorkTime;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1067	Gear^.doStep:= @doStepTeamHealthSorterWork;
143 3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	1068	currsorter:= Gear
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1069	end;
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1070
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1071	////////////////////////////////////////////////////////////////////////////////
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1072	procedure doStepIdle(Gear: PGear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1073	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1074	AllInactive:= false;
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1075	dec(Gear^.Timer);
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1076	if Gear^.Timer = 0 then
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1077	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1078	DeleteGear(Gear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1079	AfterAttack
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1080	end
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1081	end;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1082
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1083	procedure doStepShover(Gear: PGear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1084	var HHGear: PGear;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1085	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1086	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1087	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1088	DeleteCI(HHGear);
20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1089
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1090	AmmoShove(Gear, 30, 115);
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1091
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1092	HHGear^.State:= HHGear^.State and not gstNoDamage;
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1093	Gear^.Timer:= 250;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1094	Gear^.doStep:= @doStepIdle
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1095	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1096
29b477319854 - New test map unc0rr parents: 78 diff changeset	1097	////////////////////////////////////////////////////////////////////////////////
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1098	procedure doStepWhip(Gear: PGear);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1099	var HHGear: PGear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1100	i: LongInt;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1101	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1102	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1103	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1104	DeleteCI(HHGear);
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1105
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1106	for i:= 0 to 3 do
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1107	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1108	AmmoShove(Gear, 30, 25);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1109	Gear^.X:= Gear^.X + Gear^.dX * 5
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1110	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1111
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1112	HHGear^.State:= HHGear^.State and not gstNoDamage;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1113	Gear^.Timer:= 250;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1114	Gear^.doStep:= @doStepIdle
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1115	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1116
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1117	////////////////////////////////////////////////////////////////////////////////
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1118	procedure doStepFlame(Gear: PGear);
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1119	var cWindFactor: hwFloat;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1120	begin
29b477319854 - New test map unc0rr parents: 78 diff changeset	1121	AllInactive:= false;
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1122
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1123	if not TestCollisionYwithGear(Gear, 1) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1124	begin
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1125	cWindFactor:= cWindSpeed * 270;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1126
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1127	if hwAbs(Gear^.dX - cWindFactor) > _0_01 then
1437 9f370351e859 That const is better... unc0rr parents: 1436 diff changeset	1128	Gear^.dX:= (Gear^.dX - cWindFactor) * _0_995 + cWindFactor;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1129
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1130	Gear^.dY:= Gear^.dY + cGravity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1131	if Gear^.dY > _0_1 then Gear^.dY:= Gear^.dY * _0_995;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1132
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1133	Gear^.X:= Gear^.X + Gear^.dX;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1134	Gear^.Y:= Gear^.Y + Gear^.dY;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1135
1417 210cb6b1b275 Fix some problems with water rising unc0rr parents: 1388 diff changeset	1136	if not (hwRound(Gear^.Y) < cWaterLine) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1137	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1138	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1139	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1140	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1141	end else begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1142	if Gear^.Timer > 0 then dec(Gear^.Timer)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1143	else begin
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	1144	Gear^.Radius:= 7;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1145	AmmoShove(Gear, 3, 100);
78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1146	Gear^.Radius:= 1;
78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1147	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 4, EXPLNoDamage);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1148	dec(Gear^.Health);
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1149	Gear^.Timer:= 1250 - Gear^.Tag * 12
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1150	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1151	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1152
1295 27bec661581c Start flames rework unc0rr parents: 1286 diff changeset	1153	//if (((GameTicks div 8) mod 64) = Gear^.Tag) then
27bec661581c Start flames rework unc0rr parents: 1286 diff changeset	1154	// AmmoFlameWork(Gear);
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1155
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1156	if Gear^.Health = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1157	DeleteGear(Gear)
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1158	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1159
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1160	////////////////////////////////////////////////////////////////////////////////
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1161	procedure doStepFirePunchWork(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1162	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1163	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1164	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1165	if ((Gear^.Message and gm_Destroy) <> 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1166	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1167	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1168	AfterAttack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1169	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1170	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1171
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1172	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1173	if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1174	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1175	Gear^.Tag:= hwRound(HHGear^.Y);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1176	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y - _1, _0_5, _0, cHHRadius * 4, 2);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1177	HHGear^.State:= HHGear^.State or gstNoDamage;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1178	Gear^.Y:= HHGear^.Y;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1179	AmmoShove(Gear, 30, 40);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1180	HHGear^.State:= HHGear^.State and not gstNoDamage
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1181	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1182
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1183	HHGear^.dY:= HHGear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1184	if not (HHGear^.dY.isNegative) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1185	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1186	HHGear^.State:= HHGear^.State or gstMoving;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1187	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1188	AfterAttack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1189	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1190	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1191	HHGear^.Y:= HHGear^.Y + HHGear^.dY
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1192	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1193
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1194	procedure doStepFirePunch(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1195	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1196	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1197	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1198	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
514 fb8ba88a83c3 Fix firepunch regression unc0rr parents: 513 diff changeset	1199	DeleteCI(HHGear);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1200	HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
1014 3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1201	HHGear^.dX:= SignAs(cLittle, Gear^.dX);
3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1202
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1203	HHGear^.dY:= - _0_3;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1204
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1205	Gear^.X:= HHGear^.X;
979 edb8f208c1d9 Fix firepunch direction when attacking from high jump unc0rr parents: 974 diff changeset	1206	Gear^.dX:= SignAs(_0_45, Gear^.dX);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1207	Gear^.dY:= - _0_9;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1208	Gear^.doStep:= @doStepFirePunchWork;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1209	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	1210
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	1211	PlaySound(TSound(ord(sndFirePunch1) + GetRandom(6)), false)
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1212	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1213
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1214	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1215
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1216	procedure doStepParachuteWork(Gear: PGear);
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1217	var HHGear: PGear;
558476056205 Parachute unc0rr parents: 183 diff changeset	1218	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1219	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1220
516 f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1221	inc(Gear^.Timer);
f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1222
212 c8c650b23e32 Parachute fixes unc0rr parents: 211 diff changeset	1223	if TestCollisionYwithGear(HHGear, 1)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1224	or ((HHGear^.State and gstHHDriven) = 0)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1225	or CheckGearDrowning(HHGear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1226	or ((Gear^.Message and gm_Attack) <> 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1227	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1228	with HHGear^ do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1229	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1230	Message:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1231	SetLittle(dX);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1232	dY:= _0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1233	State:= State or gstMoving;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1234	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1235	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1236	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1237	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1238
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1239	if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1240	HHGear^.X:= HHGear^.X + cWindSpeed * 200;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1241
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1242	if (Gear^.Message and gm_Left) <> 0 then HHGear^.X:= HHGear^.X - cMaxWindSpeed * 40
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1243	else if (Gear^.Message and gm_Right) <> 0 then HHGear^.X:= HHGear^.X + cMaxWindSpeed * 40;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1244	if (Gear^.Message and gm_Up) <> 0 then HHGear^.Y:= HHGear^.Y - cGravity * 40
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1245	else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1246
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1247	HHGear^.Y:= HHGear^.Y + cGravity * 100;
568 d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1248	Gear^.X:= HHGear^.X;
d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1249	Gear^.Y:= HHGear^.Y
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1250	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1251
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1252	procedure doStepParachute(Gear: PGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1253	var HHGear: PGear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1254	begin
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1255	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1256
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1257	DeleteCI(HHGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1258
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1259	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1260	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1261
931 ab4d98858a40 Fix some bugs with dropping from parachute unc0rr parents: 929 diff changeset	1262	HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked or gstMoving);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1263	HHGear^.Message:= HHGear^.Message and not gm_Attack;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1264
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1265	Gear^.doStep:= @doStepParachuteWork;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1266
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1267	Gear^.Message:= HHGear^.Message;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1268	doStepParachuteWork(Gear)
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1269	end;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1270
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1271	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1272	procedure doStepAirAttackWork(Gear: PGear);
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1273	var i: Longint;
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1274	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1275	AllInactive:= false;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1276	Gear^.X:= Gear^.X + cAirPlaneSpeed * Gear^.Tag;
1124 1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1277
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1278	if (Gear^.Health > 0)and(not (Gear^.X < Gear^.dX))and(Gear^.X < Gear^.dX + cAirPlaneSpeed) then
1124 1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1279	begin
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1280	dec(Gear^.Health);
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1281	case Gear^.State of
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1282	0: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, cBombsSpeed * Gear^.Tag, _0, 0);
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1283	1: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine, 0, cBombsSpeed * Gear^.Tag, _0, 0);
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1284	2: for i:= -17 to 17 do
d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1285	FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, _0_01 * i, _0, 0);
1124 1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1286	end;
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1287	Gear^.dX:= Gear^.dX + int2hwFloat(30 * Gear^.Tag)
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1288	end;
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1289
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1290	if (GameTicks and $3F) = 0 then
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1291	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0);
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1292
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1293	if (hwRound(Gear^.X) > 3072) or (hwRound(Gear^.X) < -1024) then DeleteGear(Gear)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1294	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1295
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1296	procedure doStepAirAttack(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1297	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1298	AllInactive:= false;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1299
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1300	if Gear^.X.QWordValue = 0 then
d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1301	Gear^.Tag:= 1
d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1302	else
d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1303	Gear^.Tag:= -1;
d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1304
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1305	Gear^.X:= _1024 - _2048 * Gear^.Tag;
1124 1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1306	Gear^.Y:= -_300;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1307	Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15);
357 165a040e4cfa - Fix Blow Torch and Air Attack unc0rr parents: 355 diff changeset	1308
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1309	if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1310	Gear^.dX:= Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(TargetPoint.Y) - Gear^.Y) * 2 / cGravity) * Gear^.Tag;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1311
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1312	Gear^.Health:= 6;
801 0323e5c7ee54 - 'Incoming!' shout when the plane appears unc0rr parents: 798 diff changeset	1313	Gear^.doStep:= @doStepAirAttackWork;
0323e5c7ee54 - 'Incoming!' shout when the plane appears unc0rr parents: 798 diff changeset	1314	PlaySound(sndIncoming, false)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1315	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1316
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1317	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1318
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1319	procedure doStepAirBomb(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1320	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1321	AllInactive:= false;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1322	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1323	if (Gear^.State and gstCollision) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1324	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1325	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1326	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1327	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1328	end;
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1329	if (GameTicks and $3F) = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1330	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1331	end;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1332
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1333	////////////////////////////////////////////////////////////////////////////////
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1334
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1335	procedure doStepGirder(Gear: PGear);
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1336	var HHGear: PGear;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1337	begin
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1338	AllInactive:= false;
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1339
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1340	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1341	if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprAmGirder].Width div 2,
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1342	TargetPoint.Y - SpritesData[sprAmGirder].Height div 2,
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1343	sprAmGirder, Gear^.State, true) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1344	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1345	HHGear^.Message:= HHGear^.Message and not gm_Attack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1346	HHGear^.State:= HHGear^.State and not gstAttacking;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1347	HHGear^.State:= HHGear^.State or gstHHChooseTarget;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1348	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1349	isCursorVisible:= true
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1350	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1351	else begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1352	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1353	AfterAttack
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1354	end;
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1355	TargetPoint.X:= NoPointX
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1356	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1357
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1358	////////////////////////////////////////////////////////////////////////////////
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1359	procedure doStepTeleportAfter(Gear: PGear);
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1360	var HHGear: PGear;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1361	begin
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1362	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1363	HHGear^.Y:= HHGear^.Y + HHGear^.dY; // hedgehog falling to collect cases
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1364	HHGear^.dY:= HHGear^.dY + cGravity;
945 4ead9cde4e14 - Start chat implementation: chat strings are on the screen unc0rr parents: 940 diff changeset	1365	if TestCollisionYwithGear(HHGear, 1)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1366	or CheckGearDrowning(HHGear) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1367	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1368	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1369	AfterAttack
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1370	end
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1371	end;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1372
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1373	procedure doStepTeleportAnim(Gear: PGear);
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1374	begin
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1375	inc(Gear^.Timer);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1376	if Gear^.Timer = 65 then
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1377	begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1378	Gear^.Timer:= 0;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1379	inc(Gear^.Pos);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1380	if Gear^.Pos = 11 then
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1381	Gear^.doStep:= @doStepTeleportAfter
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1382	end
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1383	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1384
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1385	procedure doStepTeleport(Gear: PGear);
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1386	var HHGear: PGear;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1387	begin
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1388	AllInactive:= false;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1389
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1390	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1391	if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprHHTelepMask].Width div 2,
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1392	TargetPoint.Y - SpritesData[sprHHTelepMask].Height div 2,
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1393	sprHHTelepMask, 0, false) then
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1394	begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1395	HHGear^.Message:= HHGear^.Message and not gm_Attack;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1396	HHGear^.State:= HHGear^.State and not gstAttacking;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1397	HHGear^.State:= HHGear^.State or gstHHChooseTarget;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1398	DeleteGear(Gear);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1399	isCursorVisible:= true
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1400	end
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1401	else begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1402	DeleteCI(HHGear);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1403	SetAllHHToActive;
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1404	Gear^.doStep:= @doStepTeleportAnim;
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1405	Gear^.X:= HHGear^.X;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1406	Gear^.Y:= HHGear^.Y;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1407	HHGear^.X:= int2hwFloat(TargetPoint.X);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1408	HHGear^.Y:= int2hwFloat(TargetPoint.Y);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1409	HHGear^.State:= HHGear^.State or gstMoving
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1410	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1411	TargetPoint.X:= NoPointX
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1412	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1413
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1414	////////////////////////////////////////////////////////////////////////////////
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1415	procedure doStepSwitcherWork(Gear: PGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1416	var HHGear: PGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1417	Msg, State: Longword;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1418	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1419	AllInactive:= false;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1420
540 b06c5aace2fa - Many fixes related to hh switcher unc0rr parents: 538 diff changeset	1421	if ((Gear^.Message and not gm_Switch) <> 0) or (TurnTimeLeft = 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1422	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1423	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1424	Msg:= Gear^.Message and not gm_Switch;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1425	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1426	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1427	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1428
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1429	HHGear:= CurrentHedgehog^.Gear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1430	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1431	HHGear^.Message:= Msg;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1432	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1433	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1434
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1435	if (Gear^.Message and gm_Switch) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1436	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1437	HHGear:= CurrentHedgehog^.Gear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1438	HHGear^.Message:= HHGear^.Message and not gm_Switch;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1439	Gear^.Message:= Gear^.Message and not gm_Switch;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1440	State:= HHGear^.State;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1441	HHGear^.State:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1442	HHGear^.Active:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1443	HHGear^.Z:= cHHZ;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1444	RemoveGearFromList(HHGear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1445	InsertGearToList(HHGear);
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1446
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1447	repeat
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1448	CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1449	until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);
652 4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	1450
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1451	CurrentHedgehog:= @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog];
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1452
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1453	HHGear:= CurrentHedgehog^.Gear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1454	HHGear^.State:= State;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1455	HHGear^.Active:= true;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1456	FollowGear:= HHGear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1457	HHGear^.Z:= cCurrHHZ;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1458	RemoveGearFromList(HHGear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1459	InsertGearToList(HHGear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1460	Gear^.X:= HHGear^.X;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1461	Gear^.Y:= HHGear^.Y
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1462	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1463	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1464
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1465	procedure doStepSwitcher(Gear: PGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1466	var HHGear: PGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1467	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1468	Gear^.doStep:= @doStepSwitcherWork;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1469
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1470	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1471	with HHGear^ do
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1472	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1473	State:= State and not gstAttacking;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1474	Message:= Message and not gm_Attack
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1475	end
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1476	end;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1477
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1478	////////////////////////////////////////////////////////////////////////////////
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1479	procedure doStepMortar(Gear: PGear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1480	var dX, dY: hwFloat;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1481	i: LongInt;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1482	dxn, dyn: boolean;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1483	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1484	AllInactive:= false;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1485	dxn:= Gear^.dX.isNegative;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1486	dyn:= Gear^.dY.isNegative;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1487
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1488	doStepFallingGear(Gear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1489	if (Gear^.State and gstCollision) <> 0 then
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1490	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1491	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1492
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1493	Gear^.dX.isNegative:= not dxn;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1494	Gear^.dY.isNegative:= not dyn;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1495	for i:= 0 to 4 do
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1496	begin
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1497	dX:= Gear^.dX + (GetRandom - _0_5) * _0_03;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1498	dY:= Gear^.dY + (GetRandom - _0_5) * _0_03;
1273 8dcb04b143e1 Fix mortar unc0rr parents: 1263 diff changeset	1499	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 25);
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1500	end;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1501
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1502	DeleteGear(Gear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1503	exit
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1504	end;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1505
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1506	if (GameTicks and $3F) = 0 then
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1507	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1508	end;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1509
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1510	////////////////////////////////////////////////////////////////////////////////
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1511	procedure doStepKamikazeWork(Gear: PGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1512	const upd: Longword = 0;
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1513	var i: LongWord;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1514	HHGear: PGear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1515	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1516	AllInactive:= false;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1517
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1518	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1519	HHGear^.State:= HHGear^.State or gstNoDamage;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1520	DeleteCI(HHGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1521
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1522	i:= 2;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1523	repeat
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1524	Gear^.X:= Gear^.X + HHGear^.dX;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1525	Gear^.Y:= Gear^.Y + HHGear^.dY;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1526	HHGear^.X:= Gear^.X;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1527	HHGear^.Y:= Gear^.Y;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1528
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1529	inc(Gear^.Damage, 2);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1530
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	1531	// if TestCollisionXwithGear(HHGear, hwSign(Gear^.dX))
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	1532	// or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY)) then inc(Gear^.Damage, 3);
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1533
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1534	dec(i)
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1535	until (i = 0) or (Gear^.Damage > Gear^.Health);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1536
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1537	inc(upd);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1538	if upd > 3 then
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1539	begin
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1540	if Gear^.Health < 1500 then Gear^.Pos:= 2;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1541
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1542	AmmoShove(Gear, 30, 40);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1543
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1544	DrawTunnel(HHGear^.X - HHGear^.dX * 10,
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	1545	HHGear^.Y - _2 - HHGear^.dY * 10 + hwAbs(HHGear^.dY) * 2,
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1546	HHGear^.dX,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1547	HHGear^.dY,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1548	20 + cHHRadius * 2,
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	1549	cHHRadius * 2 + 6);
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1550
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1551	upd:= 0
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1552	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1553
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1554	if Gear^.Health < Gear^.Damage then
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1555	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1556	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1557	AfterAttack;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1558	DeleteGear(Gear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1559	DeleteGear(HHGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1560	end else
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1561	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1562	dec(Gear^.Health, Gear^.Damage);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1563	Gear^.Damage:= 0
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1564	end
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1565	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1566
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1567	procedure doStepKamikazeIdle(Gear: PGear);
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1568	begin
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1569	AllInactive:= false;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1570	dec(Gear^.Timer);
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1571	if Gear^.Timer = 0 then
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1572	begin
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1573	Gear^.Pos:= 1;
992 c16355b0c982 Use Kamikaze sound unc0rr parents: 987 diff changeset	1574	PlaySound(sndKamikaze, false);
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1575	Gear^.doStep:= @doStepKamikazeWork
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1576	end
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1577	end;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1578
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1579	procedure doStepKamikaze(Gear: PGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1580	var HHGear: PGear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1581	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1582	AllInactive:= false;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1583
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1584	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1585
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1586	HHGear^.dX:= Gear^.dX;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1587	HHGear^.dY:= Gear^.dY;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1588
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1589	Gear^.dX:= SignAs(_0_45, Gear^.dX);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1590	Gear^.dY:= - _0_9;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1591
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1592	Gear^.Timer:= 550;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1593
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1594	Gear^.doStep:= @doStepKamikazeIdle
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1595	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1596
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1597	////////////////////////////////////////////////////////////////////////////////
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1598	const cakeh = 27;
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1599	cakeDmg = 75;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1600	var CakePoints: array[0..Pred(cakeh)] of record x, y: hwFloat; end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1601	CakeI: Longword;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1602
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1603	procedure doStepCakeExpl(Gear: PGear);
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1604	begin
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1605	inc(Gear^.Tag);
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1606	if Gear^.Tag < 2250 then exit;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1607
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1608	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cakeDmg, EXPLAutoSound);
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1609	AfterAttack;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1610	DeleteGear(Gear)
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1611	end;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1612
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1613	procedure doStepCakeDown(Gear: PGear);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1614	var gi: PGear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1615	dmg: LongInt;
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1616	begin
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1617	AllInactive:= false;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1618
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1619	inc(Gear^.Tag);
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1620	if Gear^.Tag < 100 then exit;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1621	Gear^.Tag:= 0;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1622
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1623	if Gear^.Pos = 0 then
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1624	begin
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1625	gi:= GearsList;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1626	while gi <> nil do
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1627	begin
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1628	dmg:= cakeDmg * 2 - hwRound(Distance(gi^.X - Gear^.X, gi^.Y - Gear^.Y));
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1629	if (dmg > 1) and (gi^.Kind = gtHedgehog) then
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1630	gi^.State:= gi^.State or gstWinner;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1631	gi:= gi^.NextGear
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1632	end;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1633	Gear^.doStep:= @doStepCakeExpl;
1111 25d0ca2e4a7d Play sound before cake explodes unc0rr parents: 1110 diff changeset	1634	PlaySound(sndCake, false)
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1635	end else dec(Gear^.Pos)
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1636	end;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1637
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1638
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1639	procedure doStepCakeWork(Gear: PGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1640	const dirs: array[0..3] of TPoint = ((x: 0; y: -1), (x: 1; y: 0),(x: 0; y: 1),(x: -1; y: 0));
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1641	var xx, yy, xxn, yyn: LongInt;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1642	da: LongInt;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1643	tdx, tdy: hwFloat;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1644
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1645	procedure PrevAngle;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1646	begin
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1647	Gear^.Angle:= (LongInt(Gear^.Angle) + 4 - dA) mod 4
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1648	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1649
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1650	procedure NextAngle;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1651	begin
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1652	Gear^.Angle:= (LongInt(Gear^.Angle) + 4 + dA) mod 4
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1653	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1654
1088 9702e17146e6 Stubs for spider weapon unc0rr parents: 1066 diff changeset	1655	begin
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1656	inc(Gear^.Tag);
1108 c77267d982ee Animate falling and waking up cake unc0rr parents: 1106 diff changeset	1657	if Gear^.Tag < 7 then exit;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1658
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1659	dA:= hwSign(Gear^.dX);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1660	xx:= dirs[Gear^.Angle].x;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1661	yy:= dirs[Gear^.Angle].y;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1662	xxn:= dirs[(LongInt(Gear^.Angle) + 4 + dA) mod 4].x;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1663	yyn:= dirs[(LongInt(Gear^.Angle) + 4 + dA) mod 4].y;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1664
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1665
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1666	if (xx = 0) then
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1667	if TestCollisionYwithGear(Gear, yy) then
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1668	PrevAngle
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1669	else begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1670	Gear^.Tag:= 0;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1671	Gear^.Y:= Gear^.Y + int2hwFloat(yy);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1672	if not TestCollisionXwithGear(Gear, xxn) then NextAngle
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1673	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1674
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1675	if (yy = 0) then
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1676	if TestCollisionXwithGear(Gear, xx) then
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1677	PrevAngle
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1678	else begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1679	Gear^.Tag:= 0;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1680	Gear^.X:= Gear^.X + int2hwFloat(xx);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1681	if not TestCollisionYwithGear(Gear, yyn) then NextAngle
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1682	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1683
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1684	if Gear^.Tag = 0 then
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1685	begin
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1686	CakeI:= (CakeI + 1) mod cakeh;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1687	tdx:= CakePoints[CakeI].x - Gear^.X;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1688	tdy:= - CakePoints[CakeI].y + Gear^.Y;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1689	CakePoints[CakeI].x:= Gear^.X;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1690	CakePoints[CakeI].y:= Gear^.Y;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1691	Gear^.DirAngle:= DxDy2Angle(tdx, tdy);
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1692	end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1693
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1694	dec(Gear^.Health);
1090 c4ff49d0fe9b Cake explodes on /attack unc0rr parents: 1089 diff changeset	1695	if (Gear^.Health = 0) or ((Gear^.Message and gm_Attack) <> 0) then
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1696	begin
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1697	FollowGear:= Gear;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1698	Gear^.doStep:= @doStepCakeDown
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1699	end
1088 9702e17146e6 Stubs for spider weapon unc0rr parents: 1066 diff changeset	1700	end;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1701
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1702	procedure doStepCakeUp(Gear: PGear);
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1703	var i: Longword;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1704	begin
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1705	AllInactive:= false;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1706
1108 c77267d982ee Animate falling and waking up cake unc0rr parents: 1106 diff changeset	1707	inc(Gear^.Tag);
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1708	if Gear^.Tag < 100 then exit;
1108 c77267d982ee Animate falling and waking up cake unc0rr parents: 1106 diff changeset	1709	Gear^.Tag:= 0;
c77267d982ee Animate falling and waking up cake unc0rr parents: 1106 diff changeset	1710
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1711	if Gear^.Pos = 6 then
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1712	begin
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1713	for i:= 0 to Pred(cakeh) do
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1714	begin
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1715	CakePoints[i].x:= Gear^.X;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1716	CakePoints[i].y:= Gear^.Y
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1717	end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1718	CakeI:= 0;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1719	Gear^.doStep:= @doStepCakeWork
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1720	end else inc(Gear^.Pos)
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1721	end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1722
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1723	procedure doStepCakeFall(Gear: PGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1724	begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1725	AllInactive:= false;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1726
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1727	Gear^.dY:= Gear^.dY + cGravity;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1728	if TestCollisionYwithGear(Gear, 1) then
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1729	Gear^.doStep:= @doStepCakeUp
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1730	else
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1731	begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1732	Gear^.Y:= Gear^.Y + Gear^.dY;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1733	if CheckGearDrowning(Gear) then AfterAttack
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1734	end
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1735	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1736
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1737	procedure doStepCake(Gear: PGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1738	var HHGear: PGear;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1739	begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1740	AllInactive:= false;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1741
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1742	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1743	HHGear^.Message:= HHGear^.Message and (not gm_Attack);
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1744	DeleteCI(HHGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1745
1106 f868b7307003 - Animate cake walking unc0rr parents: 1103 diff changeset	1746	FollowGear:= Gear;
f868b7307003 - Animate cake walking unc0rr parents: 1103 diff changeset	1747
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1748	Gear^.doStep:= @doStepCakeFall
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1749	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1750
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1751	////////////////////////////////////////////////////////////////////////////////
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1752	procedure doStepSeductionWork(Gear: PGear);
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1753	var x, y: LongInt;
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1754	begin
0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1755	AllInactive:= false;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1756
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1757	Gear^.X:= Gear^.X + Gear^.dX;
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1758	Gear^.Y:= Gear^.Y + Gear^.dY;
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1759	x:= hwRound(Gear^.X);
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1760	y:= hwRound(Gear^.Y);
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1761
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1762	if ((y and $FFFFFC00) = 0) and ((x and $FFFFF800) = 0) then
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1763	if (Land[y, x] <> 0) then
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1764	begin
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1765	Gear^.dX.isNegative:= not Gear^.dX.isNegative;
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1766	Gear^.dY.isNegative:= not Gear^.dY.isNegative;
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1767	Gear^.dX:= Gear^.dX * _1_5;
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1768	Gear^.dY:= Gear^.dY * _1_5 - _0_3;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1769	AmmoShove(Gear, 0, 40);
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1770	AfterAttack;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1771	DeleteGear(Gear)
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1772	end
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1773	else
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1774	else
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1775	begin
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1776	AfterAttack;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1777	DeleteGear(Gear)
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1778	end
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1779	end;
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1780
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1781	procedure doStepSeductionWear(Gear: PGear);
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1782	begin
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1783	AllInactive:= false;
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1784	inc(Gear^.Timer);
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1785	if Gear^.Timer > 250 then
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1786	begin
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1787	Gear^.Timer:= 0;
1388 5e7920f2e2aa Fix seduction sound unc0rr parents: 1367 diff changeset	1788	inc(Gear^.Pos);
5e7920f2e2aa Fix seduction sound unc0rr parents: 1367 diff changeset	1789	if Gear^.Pos = 5 then
5e7920f2e2aa Fix seduction sound unc0rr parents: 1367 diff changeset	1790	PlaySound(sndYoohoo, false)
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1791	end;
1367 e1aaa1a4901f Use seduction sound unc0rr parents: 1361 diff changeset	1792
e1aaa1a4901f Use seduction sound unc0rr parents: 1361 diff changeset	1793	if Gear^.Pos = 14 then
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1794	Gear^.doStep:= @doStepSeductionWork
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1795	end;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1796
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1797	procedure doStepSeduction(Gear: PGear);
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1798	begin
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1799	AllInactive:= false;
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1800	DeleteCI(PHedgehog(Gear^.Hedgehog)^.Gear);
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1801	Gear^.doStep:= @doStepSeductionWear
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1802	end;
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1803
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1804	////////////////////////////////////////////////////////////////////////////////
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1805	procedure doStepWaterUp(Gear: PGear);
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1806	var i: LongWord;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1807	begin
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1808	AllInactive:= false;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1809
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1810	inc(Gear^.Timer);
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1811	if Gear^.Timer = 17 then
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1812	Gear^.Timer:= 0
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1813	else
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1814	exit;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1815
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1816	if cWaterLine > 0 then
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1817	begin
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1818	dec(cWaterLine);
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1819	for i:= 0 to 2047 do
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1820	Land[cWaterLine, i]:= 0;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1821	SetAllToActive
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1822	end;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1823
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1824	inc(Gear^.Tag);
1343 7a47a80b20ad Fix water rising too fast unc0rr parents: 1298 diff changeset	1825	if (Gear^.Tag = 47) or (cWaterLine = 0) then
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1826	DeleteGear(Gear)
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1827	end;

author	unc0rr
	Sun, 28 Dec 2008 15:57:10 +0000
changeset 1553	77f326c7f0ef
parent 1552	cd907418da91
child 1554	5657cd89668d
permissions	-rw-r--r--