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

author	nemo
	Mon, 12 Oct 2009 13:47:56 +0000
changeset 2425	a4af95e6382c
parent 2424	b52344de23ae
child 2428	6800f8aa0184
permissions	-rw-r--r--