hedgewars: hedgewars/GSHandlers.inc@28519f4f3f21 (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
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	3	* Copyright (c) 2004-2009 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;
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	22	var skipSpeed, skipAngle, skipDecay: hwFloat;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	23	begin
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	24	// probably needs tweaking. might need to be in a case statement based upon gear type
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	25	//(not Gear^.dY.isNegative) and this should not be necessary
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	26	if cWaterLine < hwRound(Gear^.Y) + Gear^.Radius then
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	27	begin
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	28	skipSpeed:= _0_25; // was 0.36 - couldn't manage baseball bat. Tiy's build is 0.36...
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	29	skipAngle:= _1 + _0_9; // these should perhaps also be constants, once work out what proper values are
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	30	skipDecay:= _0_87; // this could perhaps be a tiny bit higher.
1919 390d3f685a80 Optimize water bouncing a bit unc0rr parents: 1918 diff changeset	31	if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > skipSpeed) and
1920 302835d554d8 oops unc0rr parents: 1919 diff changeset	32	(hwAbs(Gear^.dX) > skipAngle * hwAbs(Gear^.dY)) then
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	33	begin
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	34	Gear^.dY.isNegative:= true;
1919 390d3f685a80 Optimize water bouncing a bit unc0rr parents: 1918 diff changeset	35	Gear^.dY:= Gear^.dY * skipDecay;
390d3f685a80 Optimize water bouncing a bit unc0rr parents: 1918 diff changeset	36	Gear^.dX:= Gear^.dX * skipDecay;
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	37	CheckGearDrowning:= false
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	38	end
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	39	else
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	40	begin
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	41	CheckGearDrowning:= true;
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	42	Gear^.State:= gstDrowning;
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	43	Gear^.doStep:= @doStepDrowningGear;
2142 48ed98cfd119 Make code suck less unc0rr parents: 2141 diff changeset	44	if Gear^.Kind = gtHedgehog then AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage);
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	45	end;
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	46	PlaySound(sndSplash, false, nil)
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	47	end
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	48	else
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	49	CheckGearDrowning:= false
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	50	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	51
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	52	procedure CheckCollision(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	53	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	54	if TestCollisionXwithGear(Gear, hwSign(Gear^.X)) or TestCollisionYwithGear(Gear, hwSign(Gear^.Y))
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	55	then Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	56	else Gear^.State:= Gear^.State and not gstCollision
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	57	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	58
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	59	procedure CheckHHDamage(Gear: PGear);
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	60	var dmg: Longword;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	61	begin
1849 2a989e5abda6 4 utilities by nemo unc0rr parents: 1830 diff changeset	62	if(Gear^.Invulnerable) then exit;
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	63	if _0_4 < Gear^.dY then
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	64	begin
ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	65	if _0_6 < Gear^.dY then
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	66	PlaySound(sndOw4, false, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack)
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	67	else
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	68	PlaySound(sndOw1, false, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack);
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	69
1861 98de5dc5fda7 nemo: unc0rr parents: 1849 diff changeset	70	dmg:= modifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70));
2017 7845c77c8d31 nemo's great patch: unc0rr parents: 2005 diff changeset	71	ApplyDamage(Gear, dmg);
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	72	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	73	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	74
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	75	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	76	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	77	procedure CalcRotationDirAngle(Gear: PGear);
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	78	var dAngle: real;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	79	begin
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	80	dAngle:= (hwAbs(Gear^.dX) + hwAbs(Gear^.dY)).QWordValue / $80000000;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	81	if not Gear^.dX.isNegative then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	82	Gear^.DirAngle:= Gear^.DirAngle + dAngle
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	83	else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	84	Gear^.DirAngle:= Gear^.DirAngle - dAngle;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	85
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	86	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	87	else if 360 < Gear^.DirAngle then Gear^.DirAngle:= Gear^.DirAngle - 360
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	88	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	89
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	90	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	91	procedure doStepDrowningGear(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	92	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	93	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	94	Gear^.Y:= Gear^.Y + cDrownSpeed;
2228 7f4613bae01a apply dx too (from smaxx) nemo parents: 2227 diff changeset	95	Gear^.X:= Gear^.X + Gear^.dX * cDrownSpeed;
2143 ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	96	if hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater then DeleteGear(Gear);
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	97	// Create some bubbles (0.5% might be better but causes too few bubbles sometimes)
2225 162d8f6bca25 Fewer bubbles for non-breathing gears nemo parents: 2221 diff changeset	98	if (GameTicks and $1F) = 0 then
162d8f6bca25 Fewer bubbles for non-breathing gears nemo parents: 2221 diff changeset	99	if (Gear^.Kind = gtHedgehog) and (Random(4) = 0) then
162d8f6bca25 Fewer bubbles for non-breathing gears nemo parents: 2221 diff changeset	100	AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble)
162d8f6bca25 Fewer bubbles for non-breathing gears nemo parents: 2221 diff changeset	101	else if Random(12) = 0 then
162d8f6bca25 Fewer bubbles for non-breathing gears nemo parents: 2221 diff changeset	102	AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	103	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	104
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	105	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	106	procedure doStepFallingGear(Gear: PGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	107	var isFalling: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	108	begin
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	109	Gear^.State:= Gear^.State and not gstCollision;
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	110
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	111	if Gear^.dY.isNegative then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	112	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	113	isFalling:= true;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	114	if TestCollisionYwithGear(Gear, -1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	115	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	116	Gear^.dX:= Gear^.dX * Gear^.Friction;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	117	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	118	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	119	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	120	end else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	121	if TestCollisionYwithGear(Gear, 1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	122	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	123	isFalling:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	124	Gear^.dX:= Gear^.dX * Gear^.Friction;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	125	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	126	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	127	end else isFalling:= true;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	128
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	129	if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	130	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	131	Gear^.dX:= - Gear^.dX * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	132	Gear^.dY:= Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	133	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	134	end;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	135
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	136	if isFalling then Gear^.dY:= Gear^.dY + cGravity;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	137
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	138	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	139	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	140	CheckGearDrowning(Gear);
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	141	if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	142	(not isFalling) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	143	Gear^.State:= Gear^.State and not gstMoving
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	144	else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	145	Gear^.State:= Gear^.State or gstMoving
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	146	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	147
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	148	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	149	procedure doStepBomb(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	150	var i: LongInt;
919 fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	151	dX, dY: hwFloat;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	152	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	153	AllInactive:= false;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	154
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	155	doStepFallingGear(Gear);
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	156
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	157	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	158	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	159	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	160	case Gear^.Kind of
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	161	gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
1603 dbcb2d531fad Update changelog unc0rr parents: 1601 diff changeset	162	gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	163	gtClusterBomb: begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	164	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	165	for i:= 0 to 4 do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	166	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	167	dX:= rndSign(GetRandom * _0_1);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	168	dY:= (GetRandom - _3) * _0_08;
1261 903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	169	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	170	end
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	171	end;
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	172	gtWatermelon: begin
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	173	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	174	for i:= 0 to 5 do
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	175	begin
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	176	dX:= rndSign(GetRandom * _0_1);
1496 bc2a166b4fd2 Modify melon pieces spread a bit unc0rr parents: 1495 diff changeset	177	dY:= (GetRandom - _1_5) * _0_3;
1262 e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	178	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMelonPiece, 0, dX, dY, 75)^.DirAngle:= i * 60;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	179	end
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	180	end;
1555 0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	181	gtHellishBomb: begin
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	182	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 90, EXPLAutoSound);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	183	for i:= 0 to 127 do
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	184	begin
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	185	dX:= AngleCos(i * 16) * _0_5 * (GetRandom + _1);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	186	dY:= AngleSin(i * 16) * _0_5 * (GetRandom + _1);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	187	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	188	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	189	end
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	190	end;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	191	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	192	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	193	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	194	end;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	195
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	196	CalcRotationDirAngle(Gear);
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	197
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	198	if Gear^.Kind = gtHellishBomb then
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	199	begin
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	200	if Gear^.Timer = 3000 then PlaySound(sndHellish, false, nil);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	201
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	202	if (GameTicks and $3F) = 0 then
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	203	if (Gear^.State and gstCollision) = 0 then
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	204	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtEvilTrace, 0, _0, _0, 0);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	205	end;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	206
1158 d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	207	if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then
d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	208	if (hwAbs(Gear^.dX) > _0_1) or
d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	209	(hwAbs(Gear^.dY) > _0_1) then
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	210	PlaySound(sndGrenadeImpact, false, nil)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	211	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	212
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	213	procedure doStepWatermelon(Gear: PGear);
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	214	begin
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	215	AllInactive:= false;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	216	PlaySound(sndMelon, false, nil);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	217	Gear^.doStep:= @doStepBomb
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	218	end;
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	219
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	220	procedure doStepCluster(Gear: PGear);
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	221	begin
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	222	AllInactive:= false;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	223	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	224	if (Gear^.State and gstCollision) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	225	begin
1261 903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	226	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, EXPLAutoSound);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	227	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	228	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	229	end;
1262 e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	230
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	231	if Gear^.Kind = gtMelonPiece then
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	232	CalcRotationDirAngle(Gear)
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	233	else
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	234	if (GameTicks and $1F) = 0 then
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	235	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	236	end;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	237
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	238	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	239	procedure doStepGrenade(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	240	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	241	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	242	Gear^.dX:= Gear^.dX + cWindSpeed;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	243	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	244	if (Gear^.State and gstCollision) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	245	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	246	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	247	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	248	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	249	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	250	if (GameTicks and $3F) = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	251	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	252	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	253
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	254	////////////////////////////////////////////////////////////////////////////////
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	255	procedure doStepHealthTagWork(Gear: PGear);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	256	begin
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	257	if Gear^.Kind = gtHealthTag then
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	258	AllInactive:= false;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	259
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	260	dec(Gear^.Timer);
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	261	Gear^.Y:= Gear^.Y + Gear^.dY;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	262
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	263	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	264	begin
2017 7845c77c8d31 nemo's great patch: unc0rr parents: 2005 diff changeset	265	if (Gear^.Kind = gtHealthTag) and (PHedgehog(Gear^.Hedgehog)^.Gear <> nil) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	266	PHedgehog(Gear^.Hedgehog)^.Gear^.Active:= true; // to let current hh die
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	267	DeleteGear(Gear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	268	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	269	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	270
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	271	procedure doStepHealthTagWorkUnderWater(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	272	begin
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	273	AllInactive:= false;
1495 2b2b89bdb5f3 More verbose gear delete debuglog message unc0rr parents: 1437 diff changeset	274
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	275	Gear^.Y:= Gear^.Y - _0_08;
1495 2b2b89bdb5f3 More verbose gear delete debuglog message unc0rr parents: 1437 diff changeset	276
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	277	if hwRound(Gear^.Y) < cWaterLine + 10 then
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	278	DeleteGear(Gear)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	279	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	280
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	281	procedure doStepHealthTag(Gear: PGear);
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	282	var s: shortstring;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	283	begin
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	284	AllInactive:= false;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	285	Gear^.dY:= -_0_08;
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	286
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	287	str(Gear^.State, s);
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	288	Gear^.Tex:= RenderStringTex(s, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color, fnt16);
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	289
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	290	if hwRound(Gear^.Y) < cWaterLine then
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	291	Gear^.doStep:= @doStepHealthTagWork
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	292	else
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	293	Gear^.doStep:= @doStepHealthTagWorkUnderWater;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	294
762 5ecf042f6113 More sprites are visible unc0rr parents: 690 diff changeset	295	Gear^.Y:= Gear^.Y - int2hwFloat(Gear^.Tex^.h)
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	296	end;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	297
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	298	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	299	procedure doStepGrave(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	300	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	301	AllInactive:= false;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	302	if Gear^.dY.isNegative then
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	303	if TestCollisionY(Gear, -1) then Gear^.dY:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	304
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	305	if not Gear^.dY.isNegative then
68 cbb93eb90304 Collision-related stuff unc0rr parents: 57 diff changeset	306	if TestCollisionY(Gear, 1) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	307	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	308	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	309	if Gear^.dY > - _1div1024 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	310	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	311	Gear^.Active:= false;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	312	exit
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	313	end else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false, nil)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	314	end;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	315
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	316	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	317	CheckGearDrowning(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	318	Gear^.dY:= Gear^.dY + cGravity
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	319	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	320
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	321	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	322	procedure doStepUFOWork(Gear: PGear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	323	var t: hwFloat;
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	324	y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	325	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	326	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	327	t:= Distance(Gear^.dX, Gear^.dY);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	328	Gear^.dX:= Gear^.Elasticity * (Gear^.dX + _0_000004 * (TargetPoint.X - hwRound(Gear^.X)));
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	329	Gear^.dY:= Gear^.Elasticity * (Gear^.dY + _0_000004 * (TargetPoint.Y - hwRound(Gear^.Y)));
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	330	t:= t / Distance(Gear^.dX, Gear^.dY);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	331	Gear^.dX:= Gear^.dX * t;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	332	Gear^.dY:= Gear^.dY * t;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	333	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	334	Gear^.Y:= Gear^.Y + Gear^.dY;
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	335
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	336	if (GameTicks and $3F) = 0 then
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	337	begin
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	338	y:= hwRound(Gear^.Y);
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	339	if y + Gear^.Radius < cWaterLine then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	340	AddGear(hwRound(Gear^.X), y, gtSmokeTrace, 0, _0, _0, 0);
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	341	end;
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	342
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	343	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	344	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	345	if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	346	begin
560 7bf2b554de0c UFO Sound unc0rr parents: 559 diff changeset	347	StopSound(sndUFO);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	348	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	349	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	350	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	351	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	352
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	353	procedure doStepUFO(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	354	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	355	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	356	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	357	Gear^.Y:= Gear^.Y + Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	358	Gear^.dY:= Gear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	359	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	360	if (Gear^.State and gstCollision) <> 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	361	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	362	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	363	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	364	exit
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	365	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	366	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	367	if Gear^.Timer = 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	368	begin
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	369	PlaySound(sndUFO, true, nil);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	370	Gear^.Timer:= 5000;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	371	Gear^.doStep:= @doStepUFOWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	372	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	373	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	374
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	375	////////////////////////////////////////////////////////////////////////////////
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	376	procedure doStepShotIdle(Gear: PGear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	377	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	378	AllInactive:= false;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	379	inc(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	380	if Gear^.Timer > 75 then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	381	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	382	DeleteGear(Gear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	383	AfterAttack
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	384	end
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	385	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	386
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	387	procedure doStepShotgunShot(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	388	var i: LongWord;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	389	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	390	AllInactive:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	391
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	392	if ((Gear^.State and gstAnimation) = 0) then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	393	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	394	dec(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	395	if Gear^.Timer = 0 then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	396	begin
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	397	PlaySound(sndShotgunFire, false, nil);
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	398	Gear^.State:= Gear^.State or gstAnimation
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	399	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	400	exit
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	401	end
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	402	else inc(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	403
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	404	i:= 200;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	405	repeat
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	406	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	407	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	408	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	409	if (Gear^.State and gstCollision) <> 0 then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	410	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	411	Gear^.X:= Gear^.X + Gear^.dX * 8;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	412	Gear^.Y:= Gear^.Y + Gear^.dY * 8;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	413	ShotgunShot(Gear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	414	Gear^.doStep:= @doStepShotIdle;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	415	exit
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	416	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	417	dec(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	418	until i = 0;
1760 55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	419	if (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0) or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0) then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	420	Gear^.doStep:= @doStepShotIdle
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	421	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	422
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	423	////////////////////////////////////////////////////////////////////////////////
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	424	procedure doStepBulletWork(Gear: PGear);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	425	var i, x, y: LongWord;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	426	oX, oY: hwFloat;
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	427	begin
c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	428	AllInactive:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	429	inc(Gear^.Timer);
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	430	i:= 80;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	431	oX:= Gear^.X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	432	oY:= Gear^.Y;
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	433	repeat
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	434	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	435	Gear^.Y:= Gear^.Y + Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	436	x:= hwRound(Gear^.X);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	437	y:= hwRound(Gear^.Y);
1753 2ccba26f1aa4 Apply nemo's world resize patch unc0rr parents: 1752 diff changeset	438	if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	439	and (Land[y, x] <> 0) then inc(Gear^.Damage);
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	440	if Gear^.Damage > 5 then
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	441	if Gear^.Ammo^.AmmoType = amDEagle then
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	442	AmmoShove(Gear, 7, 20)
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	443	else
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	444	AmmoShove(Gear, Gear^.Timer, 20);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	445	dec(i)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	446	until (i = 0) or (Gear^.Damage > Gear^.Health);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	447	if Gear^.Damage > 0 then
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	448	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	449	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	450	dec(Gear^.Health, Gear^.Damage);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	451	Gear^.Damage:= 0
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	452	end;
1760 55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	453
55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	454	if (Gear^.Health <= 0)
55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	455	or (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0)
55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	456	or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0) then
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	457	begin
2087 79472a9be025 neglected test on sniper rifle being active nemo parents: 2068 diff changeset	458	if (Gear^.Kind = gtSniperRifleShot) and ((GameFlags and gfLaserSight) = 0) then cLaserSighting:= false;
2033 860b9aea5e86 allow adjusting angle during sniping nemo parents: 2031 diff changeset	459	if (Gear^.Ammo^.NumPerTurn <= CurrentHedgehog^.AttacksNum) and
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	460	((GameFlags and gfArtillery) = 0) then cArtillery:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	461	Gear^.doStep:= @doStepShotIdle
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	462	end;
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	463	end;
2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	464
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	465	procedure doStepDEagleShot(Gear: PGear);
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	466	begin
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	467	PlaySound(sndGun, false, nil);
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	468	Gear^.doStep:= @doStepBulletWork
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	469	end;
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	470
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	471	procedure doStepSniperRifleShot(Gear: PGear);
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	472	var HHGear: PGear;
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	473	begin
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	474	cArtillery:= true;
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	475	HHGear:=PHedgehog(Gear^.Hedgehog)^.Gear;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	476	HHGear^.State:= HHGear^.State or gstNotKickable;
2033 860b9aea5e86 allow adjusting angle during sniping nemo parents: 2031 diff changeset	477	HedgehogChAngle(HHGear);
2220 110266ba2ef7 -new openal api for setting sound position koda parents: 2217 diff changeset	478	if not cLaserSighting then // game does not have default laser sight. turn it on and give them a chance to aim
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	479	begin
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	480	cLaserSighting:= true;
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	481	HHGear^.Message:= 0;
2052 1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	482	if(HHGear^.Angle - 32 >= 0) then dec(HHGear^.Angle,32)
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	483	end;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	484
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	485	if (HHGear^.Message and gm_Attack) <> 0 then
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	486	begin
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	487	Gear^.State:= Gear^.State or gstAnimation;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	488	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _0_5;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	489	Gear^.dY:= -AngleCos(HHGear^.Angle) * _0_5;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	490	PlaySound(sndGun, false, nil);
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	491	Gear^.doStep:= @doStepBulletWork;
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	492	end
2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	493	else
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	494	if (GameTicks mod 32) = 0 then
2052 1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	495	if (GameTicks mod 4096) < 2048 then
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	496	begin
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	497	if(HHGear^.Angle + 1 <= cMaxAngle) then inc(HHGear^.Angle)
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	498	end
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	499	else
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	500	if(HHGear^.Angle - 1 >= 0) then dec(HHGear^.Angle);
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	501
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	502	if (TurnTimeLeft > 0) then
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	503	dec(TurnTimeLeft)
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	504	else
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	505	begin
2139 5a083e71a71d Properly decrement sniper rifle if timed out. Try to get camera position straight for once. nemo parents: 2090 diff changeset	506	PHedgehog(Gear^.Hedgehog)^.AttacksNum:= Gear^.Ammo^.NumPerTurn+1;
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	507	DeleteGear(Gear);
2059 b25eed7f9183 oops. forgot to reset turn time nemo parents: 2058 diff changeset	508	AfterAttack;
b25eed7f9183 oops. forgot to reset turn time nemo parents: 2058 diff changeset	509	TurnTimeLeft:= 0
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	510	end;
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	511	end;
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	512
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	513	////////////////////////////////////////////////////////////////////////////////
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	514	procedure doStepActionTimer(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	515	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	516	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	517	case Gear^.Kind of
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	518	gtATStartGame: begin
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	519	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	520	if Gear^.Timer = 0 then
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	521	AddCaption(trmsg[sidStartFight], $FFFFFF, capgrpGameState);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	522	end;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	523	gtATSmoothWindCh: begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	524	if Gear^.Timer = 0 then
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	525	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	526	if WindBarWidth < Gear^.Tag then inc(WindBarWidth)
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	527	else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	528	if WindBarWidth <> Gear^.Tag then Gear^.Timer:= 10;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	529	end
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	530	end;
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	531	gtATFinishGame: begin
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	532	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	533	if Gear^.Timer = 0 then
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	534	begin
d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	535	SendIPC('N');
324 f4c109c82a0c Don't show game stats in case of interrupted by command '/quit' game unc0rr parents: 306 diff changeset	536	SendIPC('q');
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	537	GameState:= gsExit
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	538	end
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	539	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	540	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	541	if Gear^.Timer = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	542	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	543
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	544	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	545	procedure doStepPickHammerWork(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	546	var i, ei: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	547	HHGear: PGear;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	548	begin
70 82d93eeecebe - Many AI improvements unc0rr parents: 68 diff changeset	549	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	550	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	551	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	552	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	553	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	554	StopSound(sndPickhammer);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	555	DeleteGear(Gear);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	556	AfterAttack;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	557	exit
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	558	end;
845 ca72cf446ec2 Add sprite for pickhammer unc0rr parents: 820 diff changeset	559
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	560	if (Gear^.Timer mod 33) = 0 then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	561	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	562	HHGear^.State:= HHGear^.State or gstNoDamage;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	563	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 7, 6, EXPLDontDraw);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	564	HHGear^.State:= HHGear^.State and not gstNoDamage
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	565	end;
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	566
12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	567	if (Gear^.Timer mod 47) = 0 then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	568	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	569	i:= hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	570	ei:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	571	while i <= ei do
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	572	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	573	DrawExplosion(i, hwRound(Gear^.Y) + 3, 3);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	574	inc(i, 1)
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	575	end;
2267 ad372e549cc5 Restrict hogs to 16px proximity to border to avoid getting kicked through. nemo parents: 2262 diff changeset	576	if Land[hwRound(Gear^.Y + _1_9) , hwRound(Gear^.X + Gear^.dX + SignAs(_16,Gear^.dX))] <> COLOR_INDESTRUCTIBLE then
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	577	begin
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	578	Gear^.X:= Gear^.X + Gear^.dX;
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	579	Gear^.Y:= Gear^.Y + _1_9;
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	580	end;
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	581	SetAllHHToActive;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	582	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	583	if TestCollisionYwithGear(Gear, 1) then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	584	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	585	Gear^.dY:= _0;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	586	SetLittle(HHGear^.dX);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	587	HHGear^.dY:= _0;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	588	end else
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	589	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	590	Gear^.dY:= Gear^.dY + cGravity;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	591	Gear^.Y:= Gear^.Y + Gear^.dY;
1417 210cb6b1b275 Fix some problems with water rising unc0rr parents: 1388 diff changeset	592	if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer:= 1
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	593	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	594
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	595	Gear^.X:= Gear^.X + HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	596	HHGear^.X:= Gear^.X;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	597	HHGear^.Y:= Gear^.Y - int2hwFloat(cHHRadius);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	598
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	599	if (Gear^.Message and gm_Attack) <> 0 then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	600	if (Gear^.State and gsttmpFlag) <> 0 then Gear^.Timer:= 1 else else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	601	if (Gear^.State and gsttmpFlag) = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	602	if ((Gear^.Message and gm_Left) <> 0) then Gear^.dX:= - _0_3 else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	603	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	604	else Gear^.dX:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	605	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	606
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	607	procedure doStepPickHammer(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	608	var i, y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	609	ar: TRangeArray;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	610	HHGear: PGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	611	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	612	i:= 0;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	613	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	614
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	615	y:= hwRound(Gear^.Y) - cHHRadius * 2;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	616	while y < hwRound(Gear^.Y) do
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	617	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	618	ar[i].Left := hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	619	ar[i].Right:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	620	inc(y, 2);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	621	inc(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	622	end;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	623
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	624	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	625	Gear^.dY:= HHGear^.dY;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	626	DeleteCI(HHGear);
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	627
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	628	PlaySound(sndPickhammer, true, nil);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	629	doStepPickHammerWork(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	630	Gear^.doStep:= @doStepPickHammerWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	631	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	632
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	633	////////////////////////////////////////////////////////////////////////////////
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	634	var BTPrevAngle, BTSteps: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	635
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	636	procedure doStepBlowTorchWork(Gear: PGear);
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	637	var HHGear: PGear;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	638	b: boolean;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	639	prevX: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	640	begin
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	641	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	642	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	643	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	644
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	645	HedgehogChAngle(HHGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	646
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	647	b:= false;
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	648
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	649	if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	650	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	651	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	652	Gear^.dY:= AngleCos(HHGear^.Angle) * ( - _0_5);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	653	BTPrevAngle:= HHGear^.Angle;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	654	b:= true
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	655	end;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	656
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	657	if ((HHGear^.State and gstMoving) <> 0) then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	658	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	659	doStepHedgehogMoving(HHGear);
1736 9ae3cd2204d3 Fix blowtorch delete condition unc0rr parents: 1719 diff changeset	660	if (HHGear^.State and gstHHDriven) = 0 then Gear^.Timer:= 0
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	661	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	662
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	663	if Gear^.Timer mod cHHStepTicks = 0 then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	664	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	665	b:= true;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	666	if Gear^.dX.isNegative then
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	667	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	668	else
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	669	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	670
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	671	if ((HHGear^.State and gstMoving) = 0) then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	672	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	673	HHGear^.State:= HHGear^.State and not gstAttacking;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	674	prevX:= hwRound(HHGear^.X);
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	675
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	676	// why the call to HedgehogStep then a further increment of X?
2267 ad372e549cc5 Restrict hogs to 16px proximity to border to avoid getting kicked through. nemo parents: 2262 diff changeset	677	if (prevX = hwRound(HHGear^.X)) and (Land[hwRound(HHGear^.Y) , hwRound(HHGear^.X + SignAs(_16, HHGear^.dX))] <> COLOR_INDESTRUCTIBLE) then HedgehogStep(HHGear);
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	678
2267 ad372e549cc5 Restrict hogs to 16px proximity to border to avoid getting kicked through. nemo parents: 2262 diff changeset	679	if (prevX = hwRound(HHGear^.X)) and (Land[hwRound(HHGear^.Y) , hwRound(HHGear^.X + SignAs(_16, HHGear^.dX))] <> COLOR_INDESTRUCTIBLE) then HHGear^.X:= HHGear^.X + SignAs(_1, HHGear^.dX);
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	680	HHGear^.State:= HHGear^.State or gstAttacking
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	681	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	682
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	683	inc(BTSteps);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	684	if BTSteps = 7 then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	685	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	686	BTSteps:= 0;
2267 ad372e549cc5 Restrict hogs to 16px proximity to border to avoid getting kicked through. nemo parents: 2262 diff changeset	687	if Land[hwRound(HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC)) , hwRound(HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC) + SignAs(_16,Gear^.dX)
ad372e549cc5 Restrict hogs to 16px proximity to border to avoid getting kicked through. nemo parents: 2262 diff changeset	688	)] <> COLOR_INDESTRUCTIBLE then
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	689	begin
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	690	Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	691	Gear^.Y:= HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC);
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	692	end;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	693	HHGear^.State:= HHGear^.State or gstNoDamage;
1643 434e28245dc0 Fix yet another ballgun bug unc0rr parents: 1635 diff changeset	694	AmmoShove(Gear, 2, 15);
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	695	HHGear^.State:= HHGear^.State and not gstNoDamage
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	696	end;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	697	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	698
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	699	if b then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	700	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	701	Gear^.dX, Gear^.dY,
1501 a0e56fdf10cd Tune blowtorch a bit unc0rr parents: 1496 diff changeset	702	cHHRadius * 5, cHHRadius * 2 + 7);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	703
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	704	if (Gear^.Timer = 0) or ((HHGear^.Message and gm_Attack) <> 0) then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	705	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	706	HHGear^.Message:= 0;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	707	HHGear^.State:= HHGear^.State and (not gstNotKickable);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	708	DeleteGear(Gear);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	709	AfterAttack
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	710	end
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	711	end;
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	712
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	713	procedure doStepBlowTorch(Gear: PGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	714	var HHGear: PGear;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	715	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	716	BTPrevAngle:= High(LongInt);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	717	BTSteps:= 0;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	718	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	719	HHGear^.Message:= 0;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	720	HHGear^.State:= HHGear^.State or gstNotKickable;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	721	Gear^.doStep:= @doStepBlowTorchWork
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	722	end;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	723
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	724	////////////////////////////////////////////////////////////////////////////////
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	725
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	726	procedure doStepRope(Gear: PGear); forward;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	727
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	728	procedure doStepRopeAfterAttack(Gear: PGear);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	729	var HHGear: PGear;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	730	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	731	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	732	if ((HHGear^.State and gstHHDriven) = 0)
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	733	or (CheckGearDrowning(HHGear))
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	734	or TestCollisionYwithGear(HHGear, 1) then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	735	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	736	DeleteGear(Gear);
2060 3e9e5e1be6f5 fix crash in parachute/rope if drowning with active girder/teleport nemo parents: 2059 diff changeset	737	isCursorVisible:= false;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	738	exit
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	739	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	740
1785 26c28fa8f56c Fix rope regression (unable to change angle) unc0rr parents: 1784 diff changeset	741	HedgehogChAngle(HHGear);
26c28fa8f56c Fix rope regression (unable to change angle) unc0rr parents: 1784 diff changeset	742
2029 51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	743	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	744	begin
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	745	{$IFDEF DEBUGFILE}if HHGear^.dX.QWordValue > 1 then AddFileLog('Stopping hedgehog after rope attack due to wall collision');{$ENDIF}
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	746	SetLittle(HHGear^.dX);
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	747	end;
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	748
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	749	if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	750	HHGear^.X:= HHGear^.X + HHGear^.dX;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	751	HHGear^.Y:= HHGear^.Y + HHGear^.dY;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	752	HHGear^.dY:= HHGear^.dY + cGravity;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	753
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	754	if (Gear^.Message and gm_Attack) <> 0 then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	755	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	756	Gear^.X:= HHGear^.X;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	757	Gear^.Y:= HHGear^.Y;
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	758
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	759	ApplyAngleBounds(PHedgehog(Gear^.Hedgehog)^, amRope);
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	760
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	761	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	762	Gear^.dY:= -AngleCos(HHGear^.Angle);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	763	Gear^.Friction:= _450;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	764	Gear^.Elasticity:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	765	Gear^.State:= Gear^.State and not gsttmpflag;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	766	Gear^.doStep:= @doStepRope
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	767	end
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	768	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	769
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	770	procedure doStepRopeWork(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	771	var HHGear: PGear;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	772	len, tx, ty, nx, ny, ropeDx, ropeDy, mdX, mdY: hwFloat;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	773	lx, ly: LongInt;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	774	haveCollision,
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	775	haveDivided: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	776
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	777	procedure DeleteMe;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	778	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	779	with HHGear^ do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	780	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	781	Message:= Message and not gm_Attack;
2025 692308790912 Adjust routines impacted by DrawRotatedF modification, clear gstHHHJump in rope to avoid crosshair/hat drawing bug. nemo parents: 2024 diff changeset	782	State:= (State or gstMoving) and not gstWinner;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	783	end;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	784	DeleteGear(Gear)
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	785	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	786
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	787	procedure WaitCollision;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	788	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	789	with HHGear^ do
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	790	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	791	Message:= Message and not gm_Attack;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	792	State:= State or gstMoving;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	793	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	794	RopePoints.Count:= 0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	795	Gear^.Elasticity:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	796	Gear^.doStep:= @doStepRopeAfterAttack
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	797	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	798
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	799	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	800	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	801
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	802	if ((HHGear^.State and gstHHDriven) = 0)
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	803	or (CheckGearDrowning(HHGear)) then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	804	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	805	DeleteMe;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	806	exit
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	807	end;
928 b9064b48b001 Some preparation work for attacking from rope, parachute and etc. unc0rr parents: 925 diff changeset	808
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	809	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	810	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	811
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	812	if not TestCollisionYwithGear(HHGear, 1) then HHGear^.dY:= HHGear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	813
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	814	ropeDx:= HHGear^.X - Gear^.X; // vector between hedgehog and rope attaching point
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	815	ropeDy:= HHGear^.Y - Gear^.Y;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	816
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	817	mdX:= ropeDx + HHGear^.dX;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	818	mdY:= ropeDy + HHGear^.dY;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	819	len:= _1 / Distance(mdX, mdY);
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	820	mdX:= mdX * len; // rope vector plus hedgehog direction vector normalized
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	821	mdY:= mdY * len;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	822
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	823	Gear^.dX:= mdX; // for visual purposes only
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	824	Gear^.dY:= mdY;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	825
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	826	/////
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	827	tx:= HHGear^.X;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	828	ty:= HHGear^.Y;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	829
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	830	if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Elasticity < Gear^.Friction) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	831	if not (TestCollisionXwithGear(HHGear, hwSign(ropeDx))
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	832	or TestCollisionYwithGear(HHGear, hwSign(ropeDy))) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	833	Gear^.Elasticity:= Gear^.Elasticity + _0_3;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	834
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	835	if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Elasticity > _30) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	836	if not (TestCollisionXwithGear(HHGear, -hwSign(ropeDx))
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	837	or TestCollisionYwithGear(HHGear, -hwSign(ropeDy))) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	838	Gear^.Elasticity:= Gear^.Elasticity - _0_3;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	839
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	840	HHGear^.X:= Gear^.X + mdX * Gear^.Elasticity;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	841	HHGear^.Y:= Gear^.Y + mdY * Gear^.Elasticity;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	842
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	843	HHGear^.dX:= HHGear^.X - tx;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	844	HHGear^.dY:= HHGear^.Y - ty;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	845	////
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	846
1554 5657cd89668d Fix rope animation unc0rr parents: 1553 diff changeset	847
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	848	haveDivided:= false;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	849	// check whether rope needs dividing
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	850	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	851	nx:= ropeDx * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	852	ny:= ropeDy * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	853
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	854	len:= Gear^.Elasticity - _0_3x70;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	855	while len > _0_3 do
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	856	begin
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	857	lx:= hwRound(Gear^.X + mdX * len);
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	858	ly:= hwRound(Gear^.Y + mdY * len);
1753 2ccba26f1aa4 Apply nemo's world resize patch unc0rr parents: 1752 diff changeset	859	if ((ly and LAND_HEIGHT_MASK) = 0) and ((lx and LAND_WIDTH_MASK) = 0) and (Land[ly, lx] <> 0) then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	860	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	861	with RopePoints.ar[RopePoints.Count] do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	862	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	863	X:= Gear^.X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	864	Y:= Gear^.Y;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	865	if RopePoints.Count = 0 then RopePoints.HookAngle:= DxDy2Angle(Gear^.dY, Gear^.dX);
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	866	b:= (nx * HHGear^.dY) > (ny * HHGear^.dX);
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	867	dLen:= len
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	868	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	869	Gear^.X:= Gear^.X + nx * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	870	Gear^.Y:= Gear^.Y + ny * len;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	871	inc(RopePoints.Count);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	872	TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	873	Gear^.Elasticity:= Gear^.Elasticity - len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	874	Gear^.Friction:= Gear^.Friction - len;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	875	haveDivided:= true;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	876	break
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	877	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	878	len:= len - _0_3 // should be the same as increase step
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	879	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	880
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	881	if not haveDivided then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	882	if RopePoints.Count > 0 then // check whether the last dividing point could be removed
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	883	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	884	tx:= RopePoints.ar[Pred(RopePoints.Count)].X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	885	ty:= RopePoints.ar[Pred(RopePoints.Count)].Y;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	886	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	887	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	888	dec(RopePoints.Count);
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	889	Gear^.X:= RopePoints.ar[RopePoints.Count].X;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	890	Gear^.Y:= RopePoints.ar[RopePoints.Count].Y;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	891	Gear^.Elasticity:= Gear^.Elasticity + RopePoints.ar[RopePoints.Count].dLen;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	892	Gear^.Friction:= Gear^.Friction + RopePoints.ar[RopePoints.Count].dLen
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	893	end
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	894	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	895
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	896	haveCollision:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	897	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	898	begin
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	899	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	900	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	901	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	902	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	903	begin
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	904	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	905	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	906	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	907
1579 2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	908	if haveCollision
2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	909	and (Gear^.Message and (gm_Left or gm_Right) <> 0)
2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	910	and (Gear^.Message and (gm_Up or gm_Down) <> 0) 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	911	begin
1579 2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	912	HHGear^.dX:= SignAs(hwAbs(HHGear^.dX) + _0_2, HHGear^.dX);
2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	913	HHGear^.dY:= SignAs(hwAbs(HHGear^.dY) + _0_2, 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	914	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	915
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	916	len:= Distance(HHGear^.dX, HHGear^.dY);
940 769adb0ad082 Better rope unc0rr parents: 931 diff changeset	917	if len > _0_8 then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	918	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	919	len:= _0_8 / len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	920	HHGear^.dX:= HHGear^.dX * len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	921	HHGear^.dY:= HHGear^.dY * len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	922	end;
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	923
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	924	if (Gear^.Message and gm_Attack) <> 0 then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	925	if (Gear^.State and gsttmpFlag) <> 0 then
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	926	with PHedgehog(Gear^.Hedgehog)^ do
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	927	if Ammo^[CurSlot, CurAmmo].AmmoType <> amParachute then
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	928	WaitCollision
88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	929	else
88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	930	DeleteMe
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	931	else
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	932	else
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	933	if (Gear^.State and gsttmpFlag) = 0 then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	934	Gear^.State:= Gear^.State or gsttmpFlag;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	935	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	936
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	937	procedure doStepRopeAttach(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	938	var HHGear: PGear;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	939	tx, ty, tt: hwFloat;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	940
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	941	procedure RemoveFromAmmo;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	942	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	943	if (Gear^.State and gstAttacked) = 0 then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	944	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	945	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	946	Gear^.State:= Gear^.State or gstAttacked
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	947	end;
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	948	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^)
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	949	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	950
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	951	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	952	Gear^.X:= Gear^.X - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	953	Gear^.Y:= Gear^.Y - Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	954	Gear^.Elasticity:= Gear^.Elasticity + _1;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	955	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
517 ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	956	DeleteCI(HHGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	957	if (HHGear^.State and gstMoving) <> 0 then
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	958	if TestCollisionYwithGear(HHGear, 1) then
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	959	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	960	CheckHHDamage(HHGear);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	961	HHGear^.dY:= _0;
2025 692308790912 Adjust routines impacted by DrawRotatedF modification, clear gstHHHJump in rope to avoid crosshair/hat drawing bug. nemo parents: 2024 diff changeset	962	HHGear^.State:= HHGear^.State and not (gstMoving or gstHHJumping or gstHHHJump);
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	963	end else
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	964	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	965	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	966	HHGear^.X:= HHGear^.X + HHGear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	967	HHGear^.Y:= HHGear^.Y + HHGear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	968	Gear^.X:= Gear^.X + HHGear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	969	Gear^.Y:= Gear^.Y + HHGear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	970	HHGear^.dY:= HHGear^.dY + cGravity;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	971	tt:= Gear^.Elasticity;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	972	tx:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	973	ty:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	974	while tt > _20 do
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	975	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	976	if TestCollisionXwithXYShift(Gear, tx, hwRound(ty), -hwSign(Gear^.dX))
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	977	or TestCollisionYwithXYShift(Gear, hwRound(tx), hwRound(ty), -hwSign(Gear^.dY)) then
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	978	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	979	Gear^.X:= Gear^.X + tx;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	980	Gear^.Y:= Gear^.Y + ty;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	981	Gear^.Elasticity:= tt;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	982	Gear^.doStep:= @doStepRopeWork;
1752 769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	983	with HHGear^ do State:= State and not (gstAttacking or gstMoving or gstHHHJump);
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	984
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	985	RemoveFromAmmo;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	986
1752 769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	987	tt:= _0;
769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	988	exit
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	989	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	990	tx:= tx + Gear^.dX + Gear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	991	ty:= ty + Gear^.dY + Gear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	992	tt:= tt - _2;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	993	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	994	end;
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	995
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	996	CheckCollision(Gear);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	997
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	998	if (Gear^.State and gstCollision) <> 0 then
2068 9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	999	if Gear^.Elasticity < _10 then
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1000	Gear^.Elasticity:= _10000
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1001	else
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1002	begin
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1003	Gear^.doStep:= @doStepRopeWork;
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1004	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	1005
2068 9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1006	RemoveFromAmmo;
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1007
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1008	exit
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1009	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1010
1634 486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1011	if (Gear^.Elasticity > Gear^.Friction)
486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1012	or ((Gear^.Message and gm_Attack) = 0)
486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1013	or (HHGear^.Damage > 0) then
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1014	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1015	with PHedgehog(Gear^.Hedgehog)^.Gear^ do
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1016	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1017	State:= State and not gstAttacking;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1018	Message:= Message and not gm_Attack
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1019	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1020	DeleteGear(Gear)
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1021	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1022	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1023
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1024	procedure doStepRope(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1025	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1026	Gear^.dX:= - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1027	Gear^.dY:= - Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1028	Gear^.doStep:= @doStepRopeAttach
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1029	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1030
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1031	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1032	procedure doStepSmokeTrace(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1033	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1034	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1035	if Gear^.Timer > 64 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1036	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1037	Gear^.Timer:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1038	dec(Gear^.State)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1039	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1040	Gear^.dX:= Gear^.dX + cWindSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1041	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1042	if Gear^.State = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1043	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1044
4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1045	////////////////////////////////////////////////////////////////////////////////
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1046	procedure doStepExplosionWork(Gear: PGear);
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1047	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1048	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1049	if Gear^.Timer > 75 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1050	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1051	inc(Gear^.State);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1052	Gear^.Timer:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1053	if Gear^.State > 5 then DeleteGear(Gear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1054	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1055	end;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1056
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1057	procedure doStepExplosion(Gear: PGear);
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1058	var i: LongWord;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1059	begin
1047 ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1060	for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1061	for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1062	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	1063	Gear^.doStep:= @doStepExplosionWork
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1064	end;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1065
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1066	////////////////////////////////////////////////////////////////////////////////
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1067	procedure doStepMine(Gear: PGear);
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1068	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	1069	if (Gear^.State and gstMoving) <> 0 then
914 c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1070	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1071	DeleteCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1072	doStepFallingGear(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1073	if (Gear^.State and gstMoving) = 0 then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1074	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1075	AddGearCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1076	Gear^.dX:= _0;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1077	Gear^.dY:= _0
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1078	end;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1079	CalcRotationDirAngle(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1080	AllInactive:= false
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1081	end else
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1082	if ((GameTicks and $3F) = 25) then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1083	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1084
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1085	if ((Gear^.State and gsttmpFlag) <> 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1086	if ((Gear^.State and gstAttacking) = 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1087	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1088	if ((GameTicks and $1F) = 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1089	if CheckGearNear(Gear, gtHedgehog, 46, 32) <> nil then Gear^.State:= Gear^.State or gstAttacking
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1090	end else // gstAttacking <> 0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1091	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1092	AllInactive:= false;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1093	if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false, nil);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1094	if Gear^.Timer = 0 then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1095	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1096	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1097	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1098	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1099	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1100	dec(Gear^.Timer);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1101	end else // gsttmpFlag = 0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1102	if TurnTimeLeft = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1103	end;
57 e1a77ae57065 - Fixed compiling .) unc0rr parents: 53 diff changeset	1104
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1105	////////////////////////////////////////////////////////////////////////////////
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1106	procedure doStepDynamite(Gear: PGear);
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1107	begin
43 e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	1108	doStepFallingGear(Gear);
e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	1109	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1110	if Gear^.Timer mod 166 = 0 then inc(Gear^.Tag);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1111	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1112	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1113	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1114	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1115	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1116	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1117	dec(Gear^.Timer);
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1118	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1119
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1120	///////////////////////////////////////////////////////////////////////////////
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1121	procedure doStepCase(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	1122	var i, x, y: LongInt;
1436 252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1123	k: TGearType;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1124	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1125	if (Gear^.Message and gm_Destroy) > 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1126	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1127	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1128	FreeActionsList;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1129	SetAllToActive; // something (hh, mine, etc...) could be on top of the case
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1130	with CurrentHedgehog^ do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1131	if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1132	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1133	end;
15 6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	1134
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1135	if Gear^.Damage > 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1136	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1137	x:= hwRound(Gear^.X);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1138	y:= hwRound(Gear^.Y);
1436 252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1139	k:= Gear^.Kind;
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1140	DeleteGear(Gear); // <-- delete gear!
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1141
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1142	if k = gtCase then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1143	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1144	doMakeExplosion(x, y, 25, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1145	for i:= 0 to 63 do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1146	AddGear(x, y, gtFlame, 0, _0, _0, 0);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1147	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1148	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1149	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1150
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1151	if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1152	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1153	AllInactive:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1154	Gear^.dY:= Gear^.dY + cGravity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1155	Gear^.Y:= Gear^.Y + Gear^.dY;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1156	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1157	if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1158	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1159	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1160	if Gear^.dY > - _0_001 then Gear^.dY:= _0
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1161	else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false, nil);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1162	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1163	CheckGearDrowning(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1164	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1165
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	1166	if (Gear^.dY.QWordValue = 0) then AddGearCI(Gear)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1167	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	1168	end;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1169
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1170	////////////////////////////////////////////////////////////////////////////////
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1171	procedure doStepIdle(Gear: PGear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1172	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1173	AllInactive:= false;
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1174	dec(Gear^.Timer);
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1175	if Gear^.Timer = 0 then
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1176	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1177	DeleteGear(Gear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1178	AfterAttack
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1179	end
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1180	end;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1181
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1182	procedure doStepShover(Gear: PGear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1183	var HHGear: PGear;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1184	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1185	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1186	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1187	DeleteCI(HHGear);
20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1188
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1189	AmmoShove(Gear, 30, 115);
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1190
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1191	HHGear^.State:= HHGear^.State and not gstNoDamage;
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1192	Gear^.Timer:= 250;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1193	Gear^.doStep:= @doStepIdle
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1194	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1195
29b477319854 - New test map unc0rr parents: 78 diff changeset	1196	////////////////////////////////////////////////////////////////////////////////
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1197	procedure doStepWhip(Gear: PGear);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1198	var HHGear: PGear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1199	i: LongInt;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1200	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1201	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1202	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1203	DeleteCI(HHGear);
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1204
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1205	for i:= 0 to 3 do
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1206	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1207	AmmoShove(Gear, 30, 25);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1208	Gear^.X:= Gear^.X + Gear^.dX * 5
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1209	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1210
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1211	HHGear^.State:= HHGear^.State and not gstNoDamage;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1212	Gear^.Timer:= 250;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1213	Gear^.doStep:= @doStepIdle
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1214	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1215
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1216	////////////////////////////////////////////////////////////////////////////////
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1217	procedure doStepFlame(Gear: PGear);
2143 ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1218	var i: Integer;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1219	begin
29b477319854 - New test map unc0rr parents: 78 diff changeset	1220	AllInactive:= false;
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1221
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1222	if not TestCollisionYwithGear(Gear, 1) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1223	begin
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1224	if hwAbs(Gear^.dX) > _0_01 then
2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1225	Gear^.dX:= Gear^.dX * _0_995;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1226
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1227	Gear^.dY:= Gear^.dY + cGravity;
1830 b3e9ab82c364 Faster fire falling unc0rr parents: 1785 diff changeset	1228	if hwAbs(Gear^.dY) > _0_2 then Gear^.dY:= Gear^.dY * _0_995;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1229
1830 b3e9ab82c364 Faster fire falling unc0rr parents: 1785 diff changeset	1230	Gear^.X:= Gear^.X + Gear^.dX + cWindSpeed * 640;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1231	Gear^.Y:= Gear^.Y + Gear^.dY;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1232
2143 ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1233	if (hwRound(Gear^.Y) > cWaterLine) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1234	begin
2143 ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1235	for i:= 0 to 3 do
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1236	begin
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1237	AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y) - 16 + Random(16), vgtSteam);
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1238	PlaySound(sndVaporize, false, nil);
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1239	end;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1240	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1241	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1242	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1243	end else begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1244	if Gear^.Timer > 0 then dec(Gear^.Timer)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1245	else begin
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1246	Gear^.Radius:= 9;
2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1247	AmmoShove(Gear, 4, 100);
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1248	Gear^.Radius:= 1;
78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1249	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 4, EXPLNoDamage);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1250	dec(Gear^.Health);
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1251	Gear^.Timer:= 450 - Gear^.Tag * 8
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1252	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1253	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1254
1295 27bec661581c Start flames rework unc0rr parents: 1286 diff changeset	1255	//if (((GameTicks div 8) mod 64) = Gear^.Tag) then
27bec661581c Start flames rework unc0rr parents: 1286 diff changeset	1256	// AmmoFlameWork(Gear);
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1257
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1258	if Gear^.Health = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1259	DeleteGear(Gear)
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1260	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1261
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1262	////////////////////////////////////////////////////////////////////////////////
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1263	procedure doStepFirePunchWork(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1264	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1265	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1266	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1267	if ((Gear^.Message and gm_Destroy) <> 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1268	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1269	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1270	AfterAttack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1271	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1272	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1273
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1274	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1275	if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1276	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1277	Gear^.Tag:= hwRound(HHGear^.Y);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1278	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y - _1, _0_5, _0, cHHRadius * 4, 2);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1279	HHGear^.State:= HHGear^.State or gstNoDamage;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1280	Gear^.Y:= HHGear^.Y;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1281	AmmoShove(Gear, 30, 40);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1282	HHGear^.State:= HHGear^.State and not gstNoDamage
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1283	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1284
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1285	HHGear^.dY:= HHGear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1286	if not (HHGear^.dY.isNegative) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1287	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1288	HHGear^.State:= HHGear^.State or gstMoving;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1289	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1290	AfterAttack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1291	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1292	end;
2089 a08758aed76a Prevent unc0rr's sneaky escape nemo parents: 2087 diff changeset	1293
2267 ad372e549cc5 Restrict hogs to 16px proximity to border to avoid getting kicked through. nemo parents: 2262 diff changeset	1294	if Land[hwRound(HHGear^.Y + HHGear^.dY + SignAs(_16,Gear^.dX)
ad372e549cc5 Restrict hogs to 16px proximity to border to avoid getting kicked through. nemo parents: 2262 diff changeset	1295	), hwRound(HHGear^.X)] <> COLOR_INDESTRUCTIBLE then HHGear^.Y:= HHGear^.Y + HHGear^.dY
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1296	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1297
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1298	procedure doStepFirePunch(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1299	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1300	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1301	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1302	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
514 fb8ba88a83c3 Fix firepunch regression unc0rr parents: 513 diff changeset	1303	DeleteCI(HHGear);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1304	HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
1014 3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1305	HHGear^.dX:= SignAs(cLittle, Gear^.dX);
3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1306
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1307	HHGear^.dY:= - _0_3;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1308
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1309	Gear^.X:= HHGear^.X;
979 edb8f208c1d9 Fix firepunch direction when attacking from high jump unc0rr parents: 974 diff changeset	1310	Gear^.dX:= SignAs(_0_45, Gear^.dX);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1311	Gear^.dY:= - _0_9;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1312	Gear^.doStep:= @doStepFirePunchWork;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1313	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	1314
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1315	PlaySound(TSound(ord(sndFirePunch1) + GetRandom(6)), false, PHedgehog(HHGear^.Hedgehog)^.Team^.voicepack)
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1316	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1317
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1318	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1319
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1320	procedure doStepParachuteWork(Gear: PGear);
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1321	var HHGear: PGear;
558476056205 Parachute unc0rr parents: 183 diff changeset	1322	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1323	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1324
516 f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1325	inc(Gear^.Timer);
f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1326
212 c8c650b23e32 Parachute fixes unc0rr parents: 211 diff changeset	1327	if TestCollisionYwithGear(HHGear, 1)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1328	or ((HHGear^.State and gstHHDriven) = 0)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1329	or CheckGearDrowning(HHGear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1330	or ((Gear^.Message and gm_Attack) <> 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1331	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1332	with HHGear^ do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1333	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1334	Message:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1335	SetLittle(dX);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1336	dY:= _0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1337	State:= State or gstMoving;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1338	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1339	DeleteGear(Gear);
2060 3e9e5e1be6f5 fix crash in parachute/rope if drowning with active girder/teleport nemo parents: 2059 diff changeset	1340	isCursorVisible:= false;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1341	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1342	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1343
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1344	if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1345	HHGear^.X:= HHGear^.X + cWindSpeed * 200;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1346
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1347	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	1348	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	1349	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	1350	else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1351
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1352	HHGear^.Y:= HHGear^.Y + cGravity * 100;
568 d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1353	Gear^.X:= HHGear^.X;
d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1354	Gear^.Y:= HHGear^.Y
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1355	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1356
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1357	procedure doStepParachute(Gear: PGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1358	var HHGear: PGear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1359	begin
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1360	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1361
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1362	DeleteCI(HHGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1363
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1364	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1365	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1366
931 ab4d98858a40 Fix some bugs with dropping from parachute unc0rr parents: 929 diff changeset	1367	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	1368	HHGear^.Message:= HHGear^.Message and not gm_Attack;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1369
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1370	Gear^.doStep:= @doStepParachuteWork;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1371
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1372	Gear^.Message:= HHGear^.Message;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1373	doStepParachuteWork(Gear)
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1374	end;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1375
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1376	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1377	procedure doStepAirAttackWork(Gear: PGear);
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1378	var i: Longint;
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1379	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1380	AllInactive:= false;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1381	Gear^.X:= Gear^.X + cAirPlaneSpeed * Gear^.Tag;
1124 1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1382
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1383	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	1384	begin
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1385	dec(Gear^.Health);
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1386	case Gear^.State of
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1387	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	1388	1: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine, 0, cBombsSpeed * Gear^.Tag, _0, 0);
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1389	2: for i:= -19 to 19 do
2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1390	FollowGear:= AddGear(hwRound(Gear^.X) + i div 3, hwRound(Gear^.Y), gtFlame, 0, _0_001 * i, _0, 0);
1124 1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1391	end;
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1392	Gear^.dX:= Gear^.dX + int2hwFloat(30 * Gear^.Tag)
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1393	end;
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1394
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1395	if (GameTicks and $3F) = 0 then
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1396	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0);
1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1397
1753 2ccba26f1aa4 Apply nemo's world resize patch unc0rr parents: 1752 diff changeset	1398	if (hwRound(Gear^.X) > (LAND_WIDTH+1024)) or (hwRound(Gear^.X) < -1024) then DeleteGear(Gear)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1399	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1400
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1401	procedure doStepAirAttack(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1402	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1403	AllInactive:= false;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1404
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1405	if Gear^.X.QWordValue = 0 then
1771 141f029a2e0a Fix airplane unc0rr parents: 1760 diff changeset	1406	begin
141f029a2e0a Fix airplane unc0rr parents: 1760 diff changeset	1407	Gear^.Tag:= 1;
141f029a2e0a Fix airplane unc0rr parents: 1760 diff changeset	1408	Gear^.X:= -_1024;
141f029a2e0a Fix airplane unc0rr parents: 1760 diff changeset	1409	end
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1410	else
1771 141f029a2e0a Fix airplane unc0rr parents: 1760 diff changeset	1411	begin
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1412	Gear^.Tag:= -1;
1771 141f029a2e0a Fix airplane unc0rr parents: 1760 diff changeset	1413	Gear^.X:= int2hwFloat(LAND_WIDTH + 1024);
141f029a2e0a Fix airplane unc0rr parents: 1760 diff changeset	1414	end;
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1415
1784 dfe9bafb4590 Apply nemo's patch polished by me: unc0rr parents: 1781 diff changeset	1416	Gear^.Y:= int2hwFloat(topY-300);
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1417	Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15);
357 165a040e4cfa - Fix Blow Torch and Air Attack unc0rr parents: 355 diff changeset	1418
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1419	if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1420	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	1421
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1422	Gear^.Health:= 6;
801 0323e5c7ee54 - 'Incoming!' shout when the plane appears unc0rr parents: 798 diff changeset	1423	Gear^.doStep:= @doStepAirAttackWork;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1424	PlaySound(sndIncoming, false, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1425	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1426
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1427	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1428
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1429	procedure doStepAirBomb(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1430	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1431	AllInactive:= false;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1432	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1433	if (Gear^.State and gstCollision) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1434	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1435	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1436	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1437	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1438	end;
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1439	if (GameTicks and $3F) = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1440	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1441	end;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1442
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1443	////////////////////////////////////////////////////////////////////////////////
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1444
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1445	procedure doStepGirder(Gear: PGear);
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1446	var HHGear: PGear;
1915 c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1447	x, y, tx, ty: hwFloat;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1448	begin
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1449	AllInactive:= false;
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1450
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1451	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
1915 c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1452	tx:= int2hwFloat(TargetPoint.X);
c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1453	ty:= int2hwFloat(TargetPoint.Y);
c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1454	x:= HHGear^.X;
c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1455	y:= HHGear^.Y;
1909 30fa1608b54f nemo's patch for girder + some fixes unc0rr parents: 1892 diff changeset	1456
1915 c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1457	if (Distance(tx - x, ty - y) > _256) or
c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1458	not TryPlaceOnLand(TargetPoint.X - SpritesData[sprAmGirder].Width div 2,
c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1459	TargetPoint.Y - SpritesData[sprAmGirder].Height div 2,
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1460	sprAmGirder, Gear^.State, true) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1461	begin
1914 aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1462	PlaySound(sndDenied, false, nil);
aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1463	HHGear^.Message:= HHGear^.Message and not gm_Attack;
aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1464	HHGear^.State:= HHGear^.State and not gstAttacking;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1465	HHGear^.State:= HHGear^.State or gstHHChooseTarget;
1914 aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1466	isCursorVisible:= true;
aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1467	DeleteGear(Gear)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1468	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1469	else begin
1914 aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1470	PlaySound(sndPlaced, false, nil);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1471	DeleteGear(Gear);
1909 30fa1608b54f nemo's patch for girder + some fixes unc0rr parents: 1892 diff changeset	1472	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
1914 aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1473	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^)
aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1474	end;
aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1475
1909 30fa1608b54f nemo's patch for girder + some fixes unc0rr parents: 1892 diff changeset	1476	HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked);
30fa1608b54f nemo's patch for girder + some fixes unc0rr parents: 1892 diff changeset	1477	HHGear^.Message:= HHGear^.Message and not gm_Attack;
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1478	TargetPoint.X:= NoPointX
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1479	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1480
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1481	////////////////////////////////////////////////////////////////////////////////
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1482	procedure doStepTeleportAfter(Gear: PGear);
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1483	var HHGear: PGear;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1484	begin
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1485	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1486	HHGear^.Y:= HHGear^.Y + HHGear^.dY; // hedgehog falling to collect cases
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1487	HHGear^.dY:= HHGear^.dY + cGravity;
945 4ead9cde4e14 - Start chat implementation: chat strings are on the screen unc0rr parents: 940 diff changeset	1488	if TestCollisionYwithGear(HHGear, 1)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1489	or CheckGearDrowning(HHGear) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1490	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1491	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1492	AfterAttack
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1493	end
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1494	end;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1495
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1496	procedure doStepTeleportAnim(Gear: PGear);
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1497	begin
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1498	inc(Gear^.Timer);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1499	if Gear^.Timer = 65 then
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1500	begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1501	Gear^.Timer:= 0;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1502	inc(Gear^.Pos);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1503	if Gear^.Pos = 11 then
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1504	Gear^.doStep:= @doStepTeleportAfter
2217 458c08d74ae6 sounds for teleport and beginning of sudden death koda parents: 2208 diff changeset	1505	end;
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1506	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1507
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1508	procedure doStepTeleport(Gear: PGear);
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1509	var HHGear: PGear;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1510	begin
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1511	AllInactive:= false;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1512
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1513	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1514	if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprHHTelepMask].Width div 2,
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1515	TargetPoint.Y - SpritesData[sprHHTelepMask].Height div 2,
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1516	sprHHTelepMask, 0, false) then
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1517	begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1518	HHGear^.Message:= HHGear^.Message and not gm_Attack;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1519	HHGear^.State:= HHGear^.State and not gstAttacking;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1520	HHGear^.State:= HHGear^.State or gstHHChooseTarget;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1521	DeleteGear(Gear);
2227 743218daf878 -fix teleport sound when moving to wrong positions koda parents: 2226 diff changeset	1522	isCursorVisible:= true;
743218daf878 -fix teleport sound when moving to wrong positions koda parents: 2226 diff changeset	1523	PlaySound(sndDenied, false, nil);
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1524	end
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1525	else begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1526	DeleteCI(HHGear);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1527	SetAllHHToActive;
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1528	Gear^.doStep:= @doStepTeleportAnim;
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1529	Gear^.X:= HHGear^.X;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1530	Gear^.Y:= HHGear^.Y;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1531	HHGear^.X:= int2hwFloat(TargetPoint.X);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1532	HHGear^.Y:= int2hwFloat(TargetPoint.Y);
2227 743218daf878 -fix teleport sound when moving to wrong positions koda parents: 2226 diff changeset	1533	HHGear^.State:= HHGear^.State or gstMoving;
743218daf878 -fix teleport sound when moving to wrong positions koda parents: 2226 diff changeset	1534	playSound(sndWarp, false, nil);
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1535	end;
2217 458c08d74ae6 sounds for teleport and beginning of sudden death koda parents: 2208 diff changeset	1536	TargetPoint.X:= NoPointX;
458c08d74ae6 sounds for teleport and beginning of sudden death koda parents: 2208 diff changeset	1537
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1538	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1539
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1540	////////////////////////////////////////////////////////////////////////////////
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1541	procedure doStepSwitcherWork(Gear: PGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1542	var HHGear: PGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1543	Msg, State: Longword;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1544	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1545	AllInactive:= false;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1546
540 b06c5aace2fa - Many fixes related to hh switcher unc0rr parents: 538 diff changeset	1547	if ((Gear^.Message and not gm_Switch) <> 0) or (TurnTimeLeft = 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1548	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1549	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1550	Msg:= Gear^.Message and not gm_Switch;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1551	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1552	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1553	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1554
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1555	HHGear:= CurrentHedgehog^.Gear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1556	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1557	HHGear^.Message:= Msg;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1558	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1559	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1560
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1561	if (Gear^.Message and gm_Switch) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1562	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1563	HHGear:= CurrentHedgehog^.Gear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1564	HHGear^.Message:= HHGear^.Message and not gm_Switch;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1565	Gear^.Message:= Gear^.Message and not gm_Switch;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1566	State:= HHGear^.State;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1567	HHGear^.State:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1568	HHGear^.Active:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1569	HHGear^.Z:= cHHZ;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1570	RemoveGearFromList(HHGear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1571	InsertGearToList(HHGear);
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1572
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1573	repeat
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1574	CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1575	until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);
652 4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	1576
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1577	CurrentHedgehog:= @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog];
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1578
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1579	HHGear:= CurrentHedgehog^.Gear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1580	HHGear^.State:= State;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1581	HHGear^.Active:= true;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1582	FollowGear:= HHGear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1583	HHGear^.Z:= cCurrHHZ;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1584	RemoveGearFromList(HHGear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1585	InsertGearToList(HHGear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1586	Gear^.X:= HHGear^.X;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1587	Gear^.Y:= HHGear^.Y
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1588	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1589	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1590
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1591	procedure doStepSwitcher(Gear: PGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1592	var HHGear: PGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1593	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1594	Gear^.doStep:= @doStepSwitcherWork;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1595
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1596	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1597	with HHGear^ do
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1598	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1599	State:= State and not gstAttacking;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1600	Message:= Message and not gm_Attack
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1601	end
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1602	end;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1603
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1604	////////////////////////////////////////////////////////////////////////////////
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1605	procedure doStepMortar(Gear: PGear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1606	var dX, dY: hwFloat;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1607	i: LongInt;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1608	dxn, dyn: boolean;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1609	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1610	AllInactive:= false;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1611	dxn:= Gear^.dX.isNegative;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1612	dyn:= Gear^.dY.isNegative;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1613
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1614	doStepFallingGear(Gear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1615	if (Gear^.State and gstCollision) <> 0 then
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1616	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1617	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
2262 0dc94341bf42 sound for mortar koda parents: 2228 diff changeset	1618	soundFadeOut(sndMortar,10,nil);
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1619
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1620	Gear^.dX.isNegative:= not dxn;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1621	Gear^.dY.isNegative:= not dyn;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1622	for i:= 0 to 4 do
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1623	begin
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1624	dX:= Gear^.dX + (GetRandom - _0_5) * _0_03;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1625	dY:= Gear^.dY + (GetRandom - _0_5) * _0_03;
1273 8dcb04b143e1 Fix mortar unc0rr parents: 1263 diff changeset	1626	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 25);
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1627	end;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1628
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1629	DeleteGear(Gear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1630	exit
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1631	end;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1632
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1633	if (GameTicks and $3F) = 0 then
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1634	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1635	end;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1636
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1637	////////////////////////////////////////////////////////////////////////////////
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1638	procedure doStepKamikazeWork(Gear: PGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1639	const upd: Longword = 0;
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1640	var i: LongWord;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1641	HHGear: PGear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1642	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1643	AllInactive:= false;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1644
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1645	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1646	HHGear^.State:= HHGear^.State or gstNoDamage;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1647	DeleteCI(HHGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1648
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1649	i:= 2;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1650	repeat
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1651	Gear^.X:= Gear^.X + HHGear^.dX;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1652	Gear^.Y:= Gear^.Y + HHGear^.dY;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1653	HHGear^.X:= Gear^.X;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1654	HHGear^.Y:= Gear^.Y;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1655
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1656	inc(Gear^.Damage, 2);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1657
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	1658	// if TestCollisionXwithGear(HHGear, hwSign(Gear^.dX))
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	1659	// or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY)) then inc(Gear^.Damage, 3);
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1660
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1661	dec(i)
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1662	until (i = 0) or (Gear^.Damage > Gear^.Health);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1663
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1664	inc(upd);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1665	if upd > 3 then
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1666	begin
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1667	if Gear^.Health < 1500 then Gear^.Pos:= 2;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1668
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1669	AmmoShove(Gear, 30, 40);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1670
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1671	DrawTunnel(HHGear^.X - HHGear^.dX * 10,
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	1672	HHGear^.Y - _2 - HHGear^.dY * 10 + hwAbs(HHGear^.dY) * 2,
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1673	HHGear^.dX,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1674	HHGear^.dY,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1675	20 + cHHRadius * 2,
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	1676	cHHRadius * 2 + 6);
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1677
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1678	upd:= 0
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1679	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1680
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1681	if Gear^.Health < Gear^.Damage then
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1682	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1683	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1684	AfterAttack;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1685	DeleteGear(Gear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1686	DeleteGear(HHGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1687	end else
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1688	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1689	dec(Gear^.Health, Gear^.Damage);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1690	Gear^.Damage:= 0
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1691	end
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1692	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1693
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1694	procedure doStepKamikazeIdle(Gear: PGear);
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1695	begin
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1696	AllInactive:= false;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1697	dec(Gear^.Timer);
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1698	if Gear^.Timer = 0 then
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1699	begin
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1700	Gear^.Pos:= 1;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1701	PlaySound(sndKamikaze, false, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack);
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1702	Gear^.doStep:= @doStepKamikazeWork
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1703	end
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1704	end;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1705
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1706	procedure doStepKamikaze(Gear: PGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1707	var HHGear: PGear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1708	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1709	AllInactive:= false;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1710
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1711	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1712
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1713	HHGear^.dX:= Gear^.dX;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1714	HHGear^.dY:= Gear^.dY;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1715
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1716	Gear^.dX:= SignAs(_0_45, Gear^.dX);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1717	Gear^.dY:= - _0_9;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1718
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1719	Gear^.Timer:= 550;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1720
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1721	Gear^.doStep:= @doStepKamikazeIdle
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1722	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1723
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1724	////////////////////////////////////////////////////////////////////////////////
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1725	const cakeh = 27;
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1726	cakeDmg = 75;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1727	var CakePoints: array[0..Pred(cakeh)] of record x, y: hwFloat; end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1728	CakeI: Longword;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1729
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1730	procedure doStepCakeExpl(Gear: PGear);
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1731	begin
2141 3b06505dbd5d Fix some cake bugs unc0rr parents: 2140 diff changeset	1732	AllInactive:= false;
3b06505dbd5d Fix some cake bugs unc0rr parents: 2140 diff changeset	1733
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1734	inc(Gear^.Tag);
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1735	if Gear^.Tag < 2250 then exit;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1736
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1737	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cakeDmg, EXPLAutoSound);
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1738	AfterAttack;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1739	DeleteGear(Gear)
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1740	end;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1741
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1742	procedure doStepCakeDown(Gear: PGear);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1743	var gi: PGear;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1744	dmg: LongInt;
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1745	begin
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1746	AllInactive:= false;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1747
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1748	inc(Gear^.Tag);
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1749	if Gear^.Tag < 100 then exit;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1750	Gear^.Tag:= 0;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1751
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1752	if Gear^.Pos = 0 then
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1753	begin
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1754	gi:= GearsList;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1755	while gi <> nil do
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1756	begin
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1757	dmg:= cakeDmg * 2 - hwRound(Distance(gi^.X - Gear^.X, gi^.Y - Gear^.Y));
1865 ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons unc0rr parents: 1861 diff changeset	1758	if (dmg > 1) and (gi^.Kind = gtHedgehog) then
ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons unc0rr parents: 1861 diff changeset	1759	if (CurrentHedgehog^.Gear = gi) and (not gi^.Invulnerable) then
1867 2fc0e1e39b11 loser animation by nemo unc0rr parents: 1865 diff changeset	1760	gi^.State:= gi^.State or gstLoser
1865 ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons unc0rr parents: 1861 diff changeset	1761	else
ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons unc0rr parents: 1861 diff changeset	1762	gi^.State:= gi^.State or gstWinner;
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1763	gi:= gi^.NextGear
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1764	end;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	1765	Gear^.doStep:= @doStepCakeExpl;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1766	PlaySound(sndCake, false, nil)
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1767	end else dec(Gear^.Pos)
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1768	end;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1769
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1770
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1771	procedure doStepCakeWork(Gear: PGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1772	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	1773	var xx, yy, xxn, yyn: LongInt;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1774	da: LongInt;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1775	tdx, tdy: hwFloat;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1776
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1777	procedure PrevAngle;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1778	begin
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1779	Gear^.Angle:= (LongInt(Gear^.Angle) + 4 - dA) mod 4
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1780	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1781
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1782	procedure NextAngle;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1783	begin
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1784	Gear^.Angle:= (LongInt(Gear^.Angle) + 4 + dA) mod 4
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1785	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1786
1088 9702e17146e6 Stubs for spider weapon unc0rr parents: 1066 diff changeset	1787	begin
2141 3b06505dbd5d Fix some cake bugs unc0rr parents: 2140 diff changeset	1788	AllInactive:= false;
3b06505dbd5d Fix some cake bugs unc0rr parents: 2140 diff changeset	1789
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1790	inc(Gear^.Tag);
1108 c77267d982ee Animate falling and waking up cake unc0rr parents: 1106 diff changeset	1791	if Gear^.Tag < 7 then exit;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1792
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1793	dA:= hwSign(Gear^.dX);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1794	xx:= dirs[Gear^.Angle].x;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1795	yy:= dirs[Gear^.Angle].y;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1796	xxn:= dirs[(LongInt(Gear^.Angle) + 4 + dA) mod 4].x;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1797	yyn:= dirs[(LongInt(Gear^.Angle) + 4 + dA) mod 4].y;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1798
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1799	if (xx = 0) then
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1800	if TestCollisionYwithGear(Gear, yy) then
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1801	PrevAngle
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1802	else begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1803	Gear^.Tag:= 0;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1804	Gear^.Y:= Gear^.Y + int2hwFloat(yy);
1635 cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1805	if not TestCollisionXwithGear(Gear, xxn) then
cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1806	begin
cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1807	Gear^.X:= Gear^.X + int2hwFloat(xxn);
cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1808	NextAngle
cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1809	end;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1810	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1811
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1812	if (yy = 0) then
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1813	if TestCollisionXwithGear(Gear, xx) then
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1814	PrevAngle
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1815	else begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1816	Gear^.Tag:= 0;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1817	Gear^.X:= Gear^.X + int2hwFloat(xx);
1635 cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1818	if not TestCollisionYwithGear(Gear, yyn) then
cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1819	begin
cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1820	Gear^.Y:= Gear^.Y + int2hwFloat(yyn);
cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1821	NextAngle
cc5976f292f9 Cake makes a step after turn. This fixes cake stucking in air unc0rr parents: 1634 diff changeset	1822	end;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1823	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1824
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1825	if Gear^.Tag = 0 then
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1826	begin
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1827	CakeI:= (CakeI + 1) mod cakeh;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1828	tdx:= CakePoints[CakeI].x - Gear^.X;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1829	tdy:= - CakePoints[CakeI].y + Gear^.Y;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1830	CakePoints[CakeI].x:= Gear^.X;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1831	CakePoints[CakeI].y:= Gear^.Y;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1832	Gear^.DirAngle:= DxDy2Angle(tdx, tdy);
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1833	end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1834
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1835	dec(Gear^.Health);
2208 7d1a084d11ab disable timers on a few silly items, trying out a timer on cake nemo parents: 2204 diff changeset	1836	Gear^.Timer:= Gear^.Health10; // This is not seconds, but at least it is some* feedback
1090 c4ff49d0fe9b Cake explodes on /attack unc0rr parents: 1089 diff changeset	1837	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	1838	begin
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1839	FollowGear:= Gear;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1840	Gear^.doStep:= @doStepCakeDown
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1841	end
1088 9702e17146e6 Stubs for spider weapon unc0rr parents: 1066 diff changeset	1842	end;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1843
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1844	procedure doStepCakeUp(Gear: PGear);
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1845	var i: Longword;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1846	begin
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1847	AllInactive:= false;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1848
1108 c77267d982ee Animate falling and waking up cake unc0rr parents: 1106 diff changeset	1849	inc(Gear^.Tag);
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1850	if Gear^.Tag < 100 then exit;
1108 c77267d982ee Animate falling and waking up cake unc0rr parents: 1106 diff changeset	1851	Gear^.Tag:= 0;
c77267d982ee Animate falling and waking up cake unc0rr parents: 1106 diff changeset	1852
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1853	if Gear^.Pos = 6 then
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1854	begin
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1855	for i:= 0 to Pred(cakeh) do
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1856	begin
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1857	CakePoints[i].x:= Gear^.X;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1858	CakePoints[i].y:= Gear^.Y
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1859	end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1860	CakeI:= 0;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1861	Gear^.doStep:= @doStepCakeWork
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	1862	end else inc(Gear^.Pos)
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1863	end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1864
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1865	procedure doStepCakeFall(Gear: PGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1866	begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1867	AllInactive:= false;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1868
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1869	Gear^.dY:= Gear^.dY + cGravity;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1870	if TestCollisionYwithGear(Gear, 1) then
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1871	Gear^.doStep:= @doStepCakeUp
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1872	else
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1873	begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1874	Gear^.Y:= Gear^.Y + Gear^.dY;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1875	if CheckGearDrowning(Gear) then AfterAttack
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1876	end
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1877	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1878
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1879	procedure doStepCake(Gear: PGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1880	var HHGear: PGear;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1881	begin
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1882	AllInactive:= false;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1883
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1884	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	1885	HHGear^.Message:= HHGear^.Message and (not gm_Attack);
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1886	DeleteCI(HHGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1887
1106 f868b7307003 - Animate cake walking unc0rr parents: 1103 diff changeset	1888	FollowGear:= Gear;
f868b7307003 - Animate cake walking unc0rr parents: 1103 diff changeset	1889
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1890	Gear^.doStep:= @doStepCakeFall
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1891	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	1892
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1893	////////////////////////////////////////////////////////////////////////////////
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1894	procedure doStepSeductionWork(Gear: PGear);
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1895	var x, y: LongInt;
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1896	begin
0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1897	AllInactive:= false;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1898
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1899	Gear^.X:= Gear^.X + Gear^.dX;
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1900	Gear^.Y:= Gear^.Y + Gear^.dY;
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1901	x:= hwRound(Gear^.X);
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1902	y:= hwRound(Gear^.Y);
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1903
1753 2ccba26f1aa4 Apply nemo's world resize patch unc0rr parents: 1752 diff changeset	1904	if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) then
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1905	if (Land[y, x] <> 0) then
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1906	begin
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1907	Gear^.dX.isNegative:= not Gear^.dX.isNegative;
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1908	Gear^.dY.isNegative:= not Gear^.dY.isNegative;
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1909	Gear^.dX:= Gear^.dX * _1_5;
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1910	Gear^.dY:= Gear^.dY * _1_5 - _0_3;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1911	AmmoShove(Gear, 0, 40);
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1912	AfterAttack;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1913	DeleteGear(Gear)
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1914	end
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1915	else
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1916	else
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1917	begin
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1918	AfterAttack;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1919	DeleteGear(Gear)
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1920	end
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1921	end;
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1922
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1923	procedure doStepSeductionWear(Gear: PGear);
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1924	begin
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1925	AllInactive:= false;
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1926	inc(Gear^.Timer);
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1927	if Gear^.Timer > 250 then
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1928	begin
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1929	Gear^.Timer:= 0;
1388 5e7920f2e2aa Fix seduction sound unc0rr parents: 1367 diff changeset	1930	inc(Gear^.Pos);
5e7920f2e2aa Fix seduction sound unc0rr parents: 1367 diff changeset	1931	if Gear^.Pos = 5 then
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1932	PlaySound(sndYoohoo, false, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack)
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1933	end;
1367 e1aaa1a4901f Use seduction sound unc0rr parents: 1361 diff changeset	1934
e1aaa1a4901f Use seduction sound unc0rr parents: 1361 diff changeset	1935	if Gear^.Pos = 14 then
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1936	Gear^.doStep:= @doStepSeductionWork
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	1937	end;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1938
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1939	procedure doStepSeduction(Gear: PGear);
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1940	begin
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1941	AllInactive:= false;
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1942	DeleteCI(PHedgehog(Gear^.Hedgehog)^.Gear);
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	1943	Gear^.doStep:= @doStepSeductionWear
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	1944	end;
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1945
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1946	////////////////////////////////////////////////////////////////////////////////
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1947	procedure doStepWaterUp(Gear: PGear);
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1948	var i: LongWord;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1949	begin
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1950	AllInactive:= false;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1951
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1952	inc(Gear^.Timer);
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1953	if Gear^.Timer = 17 then
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1954	Gear^.Timer:= 0
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1955	else
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1956	exit;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1957
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1958	if cWaterLine > 0 then
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1959	begin
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1960	dec(cWaterLine);
1760 55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	1961	for i:= 0 to LAND_WIDTH - 1 do
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1962	Land[cWaterLine, i]:= 0;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1963	SetAllToActive
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1964	end;
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1965
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1966	inc(Gear^.Tag);
1343 7a47a80b20ad Fix water rising too fast unc0rr parents: 1298 diff changeset	1967	if (Gear^.Tag = 47) or (cWaterLine = 0) then
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1968	DeleteGear(Gear)
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	1969	end;
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1970
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1971	////////////////////////////////////////////////////////////////////////////////
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1972	procedure doStepDrillDrilling(Gear: PGear);
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	1973	var t: PGearArray;
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	1974	ox, oy: hwFloat;
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1975	begin
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1976	AllInactive:= false;
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1977
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	1978	if (Gear^.Timer > 0) and ((Gear^.Timer mod 10) = 0) then
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1979	begin
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1980	ox:= Gear^.X;
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1981	oy:= Gear^.Y;
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1982	Gear^.X:= Gear^.X + Gear^.dX;
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1983	Gear^.Y:= Gear^.Y + Gear^.dY;
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1984	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 2, 6);
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	1985	CheckGearDrowning(Gear);
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1986	end;
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1987
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	1988	t:= CheckGearsCollision(Gear); //fixes drill not exploding when touching HH bug
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1989	if (Gear^.Timer = 0)
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	1990	or (t^.Count <> 0)
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1991	or (not TestCollisionYWithGear(Gear, hwSign(Gear^.dY))
1784 dfe9bafb4590 Apply nemo's patch polished by me: unc0rr parents: 1781 diff changeset	1992	and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)))
dfe9bafb4590 Apply nemo's patch polished by me: unc0rr parents: 1781 diff changeset	1993	or (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] = COLOR_INDESTRUCTIBLE) then
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1994	begin //out of time or exited ground
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1995	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1996	DeleteGear(Gear);
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1997	exit
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1998	end;
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	1999
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2000	dec(Gear^.Timer);
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2001	end;
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2002
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2003	procedure doStepDrill(Gear: PGear);
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2004	var t: PGearArray;
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2005	oldDx, oldDy: hwFloat;
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2006	t2: hwFloat;
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2007	begin
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2008	AllInactive:= false;
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2009
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2010	Gear^.dX:= Gear^.dX + cWindSpeed;
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2011	oldDx:= Gear^.dX;
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2012	oldDy:= Gear^.dY;
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2013
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2014	doStepFallingGear(Gear);
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2015
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2016	if (GameTicks and $3F) = 0 then
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2017	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0);
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2018
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2019	if ((Gear^.State and gstCollision) <> 0) then begin //hit
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2020	Gear^.dX:= oldDx;
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2021	Gear^.dY:= oldDy;
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2022
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2023	t:= CheckGearsCollision(Gear);
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2024	if (t^.Count = 0) then begin //hit the ground not the HH
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2025	t2 := _0_5 / Distance(Gear^.dX, Gear^.dY);
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2026	Gear^.dX:= Gear^.dX * t2;
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2027	Gear^.dY:= Gear^.dY * t2;
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2028	end else begin //explode right on contact with HH
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2029	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2030	DeleteGear(Gear);
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2031	exit;
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2032	end;
c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2033
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2034	Gear^.doStep:= @doStepDrillDrilling;
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2035	dec(Gear^.Timer)
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2036	end
646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2037	end;
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2038
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2039	////////////////////////////////////////////////////////////////////////////////
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2040	procedure doStepBallgunWork(Gear: PGear);
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2041	var HHGear: PGear;
1630 513a2c089160 Some debug stuff for ballgun bug unc0rr parents: 1624 diff changeset	2042	rx, ry: hwFloat;
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2043	begin
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2044	AllInactive:= false;
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2045	dec(Gear^.Timer);
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2046	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2047	HedgehogChAngle(HHGear);
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2048	if (Gear^.Timer mod 100) = 0 then
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2049	begin
1630 513a2c089160 Some debug stuff for ballgun bug unc0rr parents: 1624 diff changeset	2050	rx:= rndSign(getRandom * _0_1);
513a2c089160 Some debug stuff for ballgun bug unc0rr parents: 1624 diff changeset	2051	ry:= rndSign(getRandom * _0_1);
1631 6e313b3818ef Remove debug stuff, ballgun 64but incompatibility fixed in previous revision unc0rr parents: 1630 diff changeset	2052
1630 513a2c089160 Some debug stuff for ballgun bug unc0rr parents: 1624 diff changeset	2053	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtBall, 0,
513a2c089160 Some debug stuff for ballgun bug unc0rr parents: 1624 diff changeset	2054	SignAs(AngleSin(HHGear^.Angle) * _0_8, HHGear^.dX) + rx,
513a2c089160 Some debug stuff for ballgun bug unc0rr parents: 1624 diff changeset	2055	AngleCos(HHGear^.Angle) * ( - _0_8) + ry,
513a2c089160 Some debug stuff for ballgun bug unc0rr parents: 1624 diff changeset	2056	0);
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2057
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	2058	PlaySound(sndGun, false, nil);
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2059	end;
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2060
1643 434e28245dc0 Fix yet another ballgun bug unc0rr parents: 1635 diff changeset	2061	if (Gear^.Timer = 0) or (HHGear^.Damage <> 0) then
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2062	begin
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2063	DeleteGear(Gear);
1643 434e28245dc0 Fix yet another ballgun bug unc0rr parents: 1635 diff changeset	2064	AfterAttack
434e28245dc0 Fix yet another ballgun bug unc0rr parents: 1635 diff changeset	2065	end
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2066	end;
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2067
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2068	procedure doStepBallgun(Gear: PGear);
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2069	var HHGear: PGear;
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2070	begin
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2071	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2072	HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Down);
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2073	HHGear^.State:= HHGear^.State or gstNotKickable;
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2074	Gear^.doStep:= @doStepBallgunWork
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2075	end;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2076
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2077	////////////////////////////////////////////////////////////////////////////////
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2078	procedure doStepRCPlaneWork(Gear: PGear);
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2079	const cAngleSpeed = 3;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2080	var HHGear: PGear;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2081	i: LongInt;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2082	dX, dY: hwFloat;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2083	fChanged: boolean;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2084	trueAngle: Longword;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2085	t: PGear;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2086	begin
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2087	AllInactive:= false;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2088
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2089	if Gear^.Timer > 0 then dec(Gear^.Timer);
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2090
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2091	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2092	FollowGear:= Gear;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2093
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2094	fChanged:= false;
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2095	if ((HHGear^.State and gstHHDriven) = 0) or (Gear^.Timer = 0) then
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2096	begin
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2097	fChanged:= true;
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2098	if Gear^.Angle > 2048 then dec(Gear^.Angle) else
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2099	if Gear^.Angle < 2048 then inc(Gear^.Angle) else fChanged:= false
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2100	end
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2101	else
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2102	begin
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2103	if ((Gear^.Message and gm_Left) <> 0) then
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2104	begin
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2105	fChanged:= true;
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2106	Gear^.Angle:= (Gear^.Angle + (4096 - cAngleSpeed)) mod 4096
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2107	end;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2108
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2109	if ((Gear^.Message and gm_Right) <> 0) then
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2110	begin
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2111	fChanged:= true;
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2112	Gear^.Angle:= (Gear^.Angle + cAngleSpeed) mod 4096
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2113	end
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2114	end;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2115
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2116	if fChanged then
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2117	begin
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2118	Gear^.dX.isNegative:= (Gear^.Angle > 2048);
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2119	if Gear^.dX.isNegative then
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2120	trueAngle:= 4096 - Gear^.Angle
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2121	else
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2122	trueAngle:= Gear^.Angle;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2123
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2124	Gear^.dX:= SignAs(AngleSin(trueAngle), Gear^.dX) * _0_25;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2125	Gear^.dY:= AngleCos(trueAngle) * -_0_25;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2126	end;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2127
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2128	Gear^.X:= Gear^.X + Gear^.dX;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2129	Gear^.Y:= Gear^.Y + Gear^.dY;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2130
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2131	if (GameTicks and $FF) = 0 then
1698 993c42413387 Fallback to no hat when hat couldn't be loaded unc0rr parents: 1697 diff changeset	2132	if Gear^.Timer < 3500 then
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2133	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtEvilTrace, 0, _0, _0, 0)
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2134	else
bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2135	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0);
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2136
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2137	if ((HHGear^.Message and gm_Attack) <> 0) and (Gear^.Health <> 0) then
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2138	begin
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2139	HHGear^.Message := HHGear^.Message and not gm_Attack;
1708 62e1d9af1dd9 More predictable bombs trajectory with rc plane unc0rr parents: 1698 diff changeset	2140	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.dX * _0_5, Gear^.dY * _0_5, 0);
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2141	dec(Gear^.Health)
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2142	end;
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2143
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2144	if ((HHGear^.Message and gm_LJump) <> 0)
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2145	and ((Gear^.State and gsttmpFlag) = 0) then
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2146	begin
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2147	Gear^.State:= Gear^.State or gsttmpFlag;
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2148	PauseMusic;
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2149	playSound(sndRideOfTheValkyries, false, nil);
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2150	end;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2151
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2152	// pickup bonuses
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2153	t:= CheckGearNear(Gear, gtCase, 36, 36);
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2154	if t <> nil then
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2155	PickUp(HHGear, t);
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2156
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2157	CheckCollision(Gear);
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2158
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2159	if ((Gear^.State and gstCollision) <> 0)
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2160	or CheckGearDrowning(Gear) then
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2161	begin
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2162	StopSound(sndRCPlane);
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2163	StopSound(sndRideOfTheValkyries);
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2164	ResumeMusic;
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2165
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2166	if ((Gear^.State and gstCollision) <> 0) then
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2167	begin
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2168	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound);
1714 10de2dcaa34f Fix rc plane fire spread unc0rr parents: 1713 diff changeset	2169	for i:= 0 to 32 do
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2170	begin
1714 10de2dcaa34f Fix rc plane fire spread unc0rr parents: 1713 diff changeset	2171	dX:= AngleCos(i * 64) * _0_5 * (GetRandom + _1);
10de2dcaa34f Fix rc plane fire spread unc0rr parents: 1713 diff changeset	2172	dY:= AngleSin(i * 64) * _0_5 * (GetRandom + _1);
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2173	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2174	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2175	end;
f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2176	DeleteGear(Gear)
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2177	end;
1713 194ed95f9e8d Hedgehog is also sad when rcplane is drawning unc0rr parents: 1712 diff changeset	2178
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2179	AfterAttack;
1713 194ed95f9e8d Hedgehog is also sad when rcplane is drawning unc0rr parents: 1712 diff changeset	2180	CurAmmoGear:= nil;
1697 ea3eddd73f2c Play sad animation on rc plane crash unc0rr parents: 1696 diff changeset	2181	TurnTimeLeft:= 14 * 125;
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2182	HHGear^.Message:= 0;
1697 ea3eddd73f2c Play sad animation on rc plane crash unc0rr parents: 1696 diff changeset	2183	ParseCommand('/taunt '#1, true)
ea3eddd73f2c Play sad animation on rc plane crash unc0rr parents: 1696 diff changeset	2184	end
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2185	end;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2186
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2187	procedure doStepRCPlane(Gear: PGear);
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2188	var HHGear: PGear;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2189	begin
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2190	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2191	HHGear^.Message:= 0;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2192	HHGear^.State:= HHGear^.State or gstNotKickable;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2193	Gear^.Angle:= HHGear^.Angle;
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2194	Gear^.Tag:= hwSign(HHGear^.dX);
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2195	if HHGear^.dX.isNegative then Gear^.Angle:= 4096 - Gear^.Angle;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2196	Gear^.doStep:= @doStepRCPlaneWork
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2197	end;
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2198
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2199	procedure doStepJetpackWork(Gear: PGear);
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2200	var HHGear: PGear;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2201	fuel: LongInt;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2202	move: hwFloat;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2203	begin
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2204	AllInactive:= false;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2205	HHGear:=PHedgehog(Gear^.Hedgehog)^.Gear;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2206	//dec(Gear^.Timer);
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2207	move:= _0_2;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2208	fuel:= 50;
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2209	(*if (HHGear^.Message and gm_Precise) <> 0 then
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2210	begin
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2211	move:= _0_02;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2212	fuel:= 5;
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2213	end;*)
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2214
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2215	if (HHGear^.Message and gm_Up) <> 0 then
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2216	begin
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2217	HHGear^.dY:= HHGear^.dY - move;
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2218	dec(Gear^.Health, fuel);
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2219	Gear^.MsgParam:= Gear^.MsgParam or gm_Up;
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2220	Gear^.Timer:= GameTicks
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2221	end;
2187 66c0f9b3bd6f set vector to negative after applying upward vector nemo parents: 2186 diff changeset	2222	if (HHGear^.Message and gm_Left) <> 0 then move.isNegative:= true;
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2223	if (HHGear^.Message and (gm_Left or gm_Right)) <> 0 then
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2224	begin
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2225	HHGear^.dX:= HHGear^.dX + (move * _0_2);
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2226	dec(Gear^.Health, fuel div 5);
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2227	Gear^.MsgParam:= Gear^.MsgParam or (HHGear^.Message and (gm_Left or gm_Right));
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2228	Gear^.Timer:= GameTicks
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2229	end;
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2230
2221 ef52dae4130b typos koda parents: 2220 diff changeset	2231	// erases them all at once :-/
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2232	if (Gear^.Timer <> 0) and (GameTicks - Gear^.Timer > 250) then
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2233	begin
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2234	Gear^.Timer:= 0;
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2235	Gear^.MsgParam:= 0
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2236	end;
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2237
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2238	if Gear^.Health < 0 then Gear^.Health:= 0;
2204 526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2239	if (GameTicks and $3F) = 0 then
526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2240	begin
526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2241	//AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate);
526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2242	if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2243	Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', $FFFFFFFF, fntSmall)
526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2244	end;
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2245
2278 28519f4f3f21 requested change by Tiy to Flying Saucer start (hover until first keypress) nemo parents: 2267 diff changeset	2246	if HHGear^.Message and (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right) <> 0 then Gear^.State:= Gear^.State and not gsttmpFlag;
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2247	HHGear^.Message:= HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right);
2181 26d3b13ee553 thanks unc0rr (corrected flag - also check on turn time) nemo parents: 2180 diff changeset	2248	HHGear^.State:= HHGear^.State or gstMoving;
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2249
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2250	Gear^.X:= HHGear^.X;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2251	Gear^.Y:= HHGear^.Y;
2196 7032f286301b small jetpack tweak nemo parents: 2190 diff changeset	2252	// For some reason I need to reapply followgear here, something else grabs it otherwise.
2226 e35b62cb7a1c Try turning off follow gear while ammo menu is open - needs testing w/ rope/parachute/jetpack nemo parents: 2225 diff changeset	2253	if not bShowAmmoMenu then FollowGear:= HHGear;
2278 28519f4f3f21 requested change by Tiy to Flying Saucer start (hover until first keypress) nemo parents: 2267 diff changeset	2254
28519f4f3f21 requested change by Tiy to Flying Saucer start (hover until first keypress) nemo parents: 2267 diff changeset	2255	if ((Gear^.State and gsttmpFlag) = 0) or (HHGear^.dY < _0) then doStepHedgehogMoving(HHGear);
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2256
2179 839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2257	if (Gear^.Health = 0)
2180 6c5a339f8e28 Use different group to not erase messages, restore gear deletion on hog damage. nemo parents: 2179 diff changeset	2258	or (HHGear^.Damage <> 0)
2179 839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2259	or CheckGearDrowning(HHGear)
2181 26d3b13ee553 thanks unc0rr (corrected flag - also check on turn time) nemo parents: 2180 diff changeset	2260	or (TurnTimeLeft = 0)
2189 bf6eafc3b2e6 allow brief ground touches nemo parents: 2188 diff changeset	2261	// allow brief ground touches - to be fair on this, might need another counter
2190 cfcad6142d48 extra check suggested by unc0rr nemo parents: 2189 diff changeset	2262	or (((GameTicks and $1FF) = 0) and (not HHGear^.dY.isNegative) and TestCollisionYwithGear(HHGear, 1))
2179 839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2263	or ((Gear^.Message and gm_Attack) <> 0) then
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2264	begin
2179 839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2265	with HHGear^ do
839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2266	begin
839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2267	Message:= 0;
839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2268	Active:= true;
839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2269	State:= State or gstMoving
839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2270	end;
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2271	DeleteGear(Gear);
2179 839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2272	isCursorVisible:= false;
2204 526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2273	// if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2274	// Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', $FFFFFFFF, fntSmall)
526f8165acce Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now nemo parents: 2202 diff changeset	2275	//AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', $FFFFFF, capgrpAmmostate);
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2276	end
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2277	end;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2278
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2279	procedure doStepJetpack(Gear: PGear);
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2280	var HHGear: PGear;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2281	begin
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2282	Gear^.doStep:= @doStepJetpackWork;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2283
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2284	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2285	FollowGear:= HHGear;
2179 839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2286	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
839472821b4d Duplicate Parachute more closely :D nemo parents: 2177 diff changeset	2287	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
2278 28519f4f3f21 requested change by Tiy to Flying Saucer start (hover until first keypress) nemo parents: 2267 diff changeset	2288	Gear^.State:= Gear^.State or gsttmpFlag;
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2289	with HHGear^ do
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2290	begin
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2291	State:= State and not gstAttacking;
2278 28519f4f3f21 requested change by Tiy to Flying Saucer start (hover until first keypress) nemo parents: 2267 diff changeset	2292	Message:= Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right);
2186 5ec3e4a03d51 disable selection sprite, nudge ship into the air on launch nemo parents: 2185 diff changeset	2293	dY:= dY - _0_2
2177 c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2294	end
c045698e044f Initial attempt at jetpack. Pluses, more like lunar lander (takes fall damage). Minuses, can't seem to cancel it or use alt weapon nemo parents: 2143 diff changeset	2295	end;

author	nemo
	Sun, 26 Jul 2009 20:56:18 +0000
changeset 2278	28519f4f3f21
parent 2267	ad372e549cc5
child 2280	786fb5d8107d
permissions	-rw-r--r--