sheepy-clone: hedgewars/GSHandlers.inc@26d3b13ee553 (annotated)

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

author	nemo
	Sun, 21 Jun 2009 15:46:48 +0000
changeset 2181	26d3b13ee553
parent 2180	6c5a339f8e28
child 2182	ed7e7eb3f9ed
permissions	-rw-r--r--