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

author	unc0rr
	Mon, 12 Oct 2009 16:49:03 +0000
changeset 2429	f97bac89f0c5
parent 2428	6800f8aa0184
child 2433	332287d62c81
permissions	-rw-r--r--