hedgewars: hedgewars/GSHandlers.inc@bf6eafc3b2e6 (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
2185 cf8f98e75bf9 Localise words "Fuel" and "Remaining" - add shot counter to deagle. nemo parents: 2182 diff changeset	462	if Ammoz[amDEagle].Ammo.NumPerTurn>CurrentHedgehog^.AttacksNum then
cf8f98e75bf9 Localise words "Fuel" and "Remaining" - add shot counter to deagle. nemo parents: 2182 diff changeset	463	AddCaption(inttostr(Ammoz[amDEagle].Ammo.NumPerTurn-CurrentHedgehog^.AttacksNum)+' '+trmsg[sidRemaining], $FFFFFF, capgrpAmmostate);
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	464	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	465	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	466	end;
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	467
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	468	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	469	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	470	begin
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	471	cArtillery:= true;
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	472	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	473	HHGear^.State:= HHGear^.State or gstNotKickable;
2033 860b9aea5e86 allow adjusting angle during sniping nemo parents: 2031 diff changeset	474	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	475	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	476	begin
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	477	cLaserSighting:= true;
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	478	HHGear^.Message:= 0;
2052 1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	479	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	480	end;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	481
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	482	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	483	begin
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	484	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	485	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	486	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	487	PlaySound(sndGun, false, nil);
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	488	Gear^.doStep:= @doStepBulletWork;
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	489	end
2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	490	else
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	491	if (GameTicks mod 32) = 0 then
2052 1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	492	if (GameTicks mod 4096) < 2048 then
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	493	begin
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	494	if(HHGear^.Angle + 1 <= cMaxAngle) then inc(HHGear^.Angle)
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	495	end
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	496	else
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	497	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	498
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	499	if (TurnTimeLeft > 0) then
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	500	dec(TurnTimeLeft)
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	501	else
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	502	begin
2139 5a083e71a71d Properly decrement sniper rifle if timed out. Try to get camera position straight for once. nemo parents: 2090 diff changeset	503	PHedgehog(Gear^.Hedgehog)^.AttacksNum:= Gear^.Ammo^.NumPerTurn+1;
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	504	DeleteGear(Gear);
2059 b25eed7f9183 oops. forgot to reset turn time nemo parents: 2058 diff changeset	505	AfterAttack;
b25eed7f9183 oops. forgot to reset turn time nemo parents: 2058 diff changeset	506	TurnTimeLeft:= 0
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	507	end;
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	508	end;
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	509
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	510	////////////////////////////////////////////////////////////////////////////////
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	511	procedure doStepActionTimer(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	512	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	513	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	514	case Gear^.Kind of
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	515	gtATStartGame: begin
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	516	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	517	if Gear^.Timer = 0 then
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	518	AddCaption(trmsg[sidStartFight], $FFFFFF, capgrpGameState);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	519	end;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	520	gtATSmoothWindCh: begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	521	if Gear^.Timer = 0 then
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	522	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	523	if WindBarWidth < Gear^.Tag then inc(WindBarWidth)
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	524	else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	525	if WindBarWidth <> Gear^.Tag then Gear^.Timer:= 10;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	526	end
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	527	end;
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	528	gtATFinishGame: begin
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	529	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	530	if Gear^.Timer = 0 then
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	531	begin
d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	532	SendIPC('N');
324 f4c109c82a0c Don't show game stats in case of interrupted by command '/quit' game unc0rr parents: 306 diff changeset	533	SendIPC('q');
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	534	GameState:= gsExit
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	535	end
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	536	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	537	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	538	if Gear^.Timer = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	539	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	540
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	541	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	542	procedure doStepPickHammerWork(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	543	var i, ei: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	544	HHGear: PGear;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	545	begin
70 82d93eeecebe - Many AI improvements unc0rr parents: 68 diff changeset	546	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	547	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	548	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	549	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	550	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	551	StopSound(sndPickhammer);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	552	DeleteGear(Gear);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	553	AfterAttack;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	554	exit
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	555	end;
845 ca72cf446ec2 Add sprite for pickhammer unc0rr parents: 820 diff changeset	556
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	557	if (Gear^.Timer mod 33) = 0 then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	558	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	559	HHGear^.State:= HHGear^.State or gstNoDamage;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	560	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 7, 6, EXPLDontDraw);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	561	HHGear^.State:= HHGear^.State and not gstNoDamage
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	562	end;
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	563
12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	564	if (Gear^.Timer mod 47) = 0 then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	565	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	566	i:= hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	567	ei:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	568	while i <= ei do
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	569	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	570	DrawExplosion(i, hwRound(Gear^.Y) + 3, 3);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	571	inc(i, 1)
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	572	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	573	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	574	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	575	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	576	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	577	end;
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	578	SetAllHHToActive;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	579	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	580	if TestCollisionYwithGear(Gear, 1) then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	581	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	582	Gear^.dY:= _0;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	583	SetLittle(HHGear^.dX);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	584	HHGear^.dY:= _0;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	585	end else
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	586	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	587	Gear^.dY:= Gear^.dY + cGravity;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	588	Gear^.Y:= Gear^.Y + Gear^.dY;
1417 210cb6b1b275 Fix some problems with water rising unc0rr parents: 1388 diff changeset	589	if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer:= 1
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	590	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	591
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	592	Gear^.X:= Gear^.X + HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	593	HHGear^.X:= Gear^.X;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	594	HHGear^.Y:= Gear^.Y - int2hwFloat(cHHRadius);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	595
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	596	if (Gear^.Message and gm_Attack) <> 0 then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	597	if (Gear^.State and gsttmpFlag) <> 0 then Gear^.Timer:= 1 else else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	598	if (Gear^.State and gsttmpFlag) = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	599	if ((Gear^.Message and gm_Left) <> 0) then Gear^.dX:= - _0_3 else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	600	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	601	else Gear^.dX:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	602	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	603
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	604	procedure doStepPickHammer(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	605	var i, y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	606	ar: TRangeArray;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	607	HHGear: PGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	608	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	609	i:= 0;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	610	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	611
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	612	y:= hwRound(Gear^.Y) - cHHRadius * 2;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	613	while y < hwRound(Gear^.Y) do
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	614	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	615	ar[i].Left := hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	616	ar[i].Right:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	617	inc(y, 2);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	618	inc(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	619	end;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	620
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	621	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	622	Gear^.dY:= HHGear^.dY;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	623	DeleteCI(HHGear);
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	624
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	625	PlaySound(sndPickhammer, true, nil);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	626	doStepPickHammerWork(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	627	Gear^.doStep:= @doStepPickHammerWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	628	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	629
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	630	////////////////////////////////////////////////////////////////////////////////
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	631	var BTPrevAngle, BTSteps: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	632
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	633	procedure doStepBlowTorchWork(Gear: PGear);
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	634	var HHGear: PGear;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	635	b: boolean;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	636	prevX: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	637	begin
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	638	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	639	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	640	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	641
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	642	HedgehogChAngle(HHGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	643
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	644	b:= false;
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	645
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	646	if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	647	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	648	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	649	Gear^.dY:= AngleCos(HHGear^.Angle) * ( - _0_5);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	650	BTPrevAngle:= HHGear^.Angle;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	651	b:= true
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	652	end;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	653
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	654	if ((HHGear^.State and gstMoving) <> 0) then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	655	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	656	doStepHedgehogMoving(HHGear);
1736 9ae3cd2204d3 Fix blowtorch delete condition unc0rr parents: 1719 diff changeset	657	if (HHGear^.State and gstHHDriven) = 0 then Gear^.Timer:= 0
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	658	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	659
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	660	if Gear^.Timer mod cHHStepTicks = 0 then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	661	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	662	b:= true;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	663	if Gear^.dX.isNegative then
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_Left
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	665	else
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	666	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	667
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	668	if ((HHGear^.State and gstMoving) = 0) then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	669	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	670	HHGear^.State:= HHGear^.State and not gstAttacking;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	671	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	672
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	673	// 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	674	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	675
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	676	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	677	HHGear^.State:= HHGear^.State or gstAttacking
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	678	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	679
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	680	inc(BTSteps);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	681	if BTSteps = 7 then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	682	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	683	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	684	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	685	begin
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	686	Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	687	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	688	end;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	689	HHGear^.State:= HHGear^.State or gstNoDamage;
1643 434e28245dc0 Fix yet another ballgun bug unc0rr parents: 1635 diff changeset	690	AmmoShove(Gear, 2, 15);
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	691	HHGear^.State:= HHGear^.State and not gstNoDamage
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	692	end;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	693	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	694
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	695	if b then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	696	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	697	Gear^.dX, Gear^.dY,
1501 a0e56fdf10cd Tune blowtorch a bit unc0rr parents: 1496 diff changeset	698	cHHRadius * 5, cHHRadius * 2 + 7);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	699
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	700	if (Gear^.Timer = 0) or ((HHGear^.Message and gm_Attack) <> 0) then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	701	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	702	HHGear^.Message:= 0;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	703	HHGear^.State:= HHGear^.State and (not gstNotKickable);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	704	DeleteGear(Gear);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	705	AfterAttack
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	706	end
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	707	end;
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	708
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	709	procedure doStepBlowTorch(Gear: PGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	710	var HHGear: PGear;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	711	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	712	BTPrevAngle:= High(LongInt);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	713	BTSteps:= 0;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	714	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	715	HHGear^.Message:= 0;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	716	HHGear^.State:= HHGear^.State or gstNotKickable;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	717	Gear^.doStep:= @doStepBlowTorchWork
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	718	end;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	719
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	720	////////////////////////////////////////////////////////////////////////////////
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	721
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	722	procedure doStepRope(Gear: PGear); forward;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	723
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	724	procedure doStepRopeAfterAttack(Gear: PGear);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	725	var HHGear: PGear;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	726	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	727	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	728	if ((HHGear^.State and gstHHDriven) = 0)
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	729	or (CheckGearDrowning(HHGear))
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	730	or TestCollisionYwithGear(HHGear, 1) then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	731	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	732	DeleteGear(Gear);
2060 3e9e5e1be6f5 fix crash in parachute/rope if drowning with active girder/teleport nemo parents: 2059 diff changeset	733	isCursorVisible:= false;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	734	exit
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	735	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	736
1785 26c28fa8f56c Fix rope regression (unable to change angle) unc0rr parents: 1784 diff changeset	737	HedgehogChAngle(HHGear);
26c28fa8f56c Fix rope regression (unable to change angle) unc0rr parents: 1784 diff changeset	738
2029 51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	739	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	740	begin
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	741	{$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	742	SetLittle(HHGear^.dX);
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	743	end;
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	744
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	745	if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	746	HHGear^.X:= HHGear^.X + HHGear^.dX;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	747	HHGear^.Y:= HHGear^.Y + HHGear^.dY;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	748	HHGear^.dY:= HHGear^.dY + cGravity;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	749
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	750	if (Gear^.Message and gm_Attack) <> 0 then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	751	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	752	Gear^.X:= HHGear^.X;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	753	Gear^.Y:= HHGear^.Y;
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	754
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	755	ApplyAngleBounds(PHedgehog(Gear^.Hedgehog)^, amRope);
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	756
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	757	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	758	Gear^.dY:= -AngleCos(HHGear^.Angle);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	759	Gear^.Friction:= _450;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	760	Gear^.Elasticity:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	761	Gear^.State:= Gear^.State and not gsttmpflag;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	762	Gear^.doStep:= @doStepRope
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	763	end
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	764	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	765
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	766	procedure doStepRopeWork(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	767	var HHGear: PGear;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	768	len, tx, ty, nx, ny, ropeDx, ropeDy, mdX, mdY: hwFloat;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	769	lx, ly: LongInt;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	770	haveCollision,
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	771	haveDivided: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	772
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	773	procedure DeleteMe;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	774	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	775	with HHGear^ do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	776	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	777	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	778	State:= (State or gstMoving) and not gstWinner;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	779	end;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	780	DeleteGear(Gear)
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	781	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	782
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	783	procedure WaitCollision;
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	with HHGear^ do
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	786	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	787	Message:= Message and not gm_Attack;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	788	State:= State or gstMoving;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	789	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	790	RopePoints.Count:= 0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	791	Gear^.Elasticity:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	792	Gear^.doStep:= @doStepRopeAfterAttack
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	793	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	794
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	795	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	796	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	797
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	798	if ((HHGear^.State and gstHHDriven) = 0)
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	799	or (CheckGearDrowning(HHGear)) then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	800	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	801	DeleteMe;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	802	exit
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	803	end;
928 b9064b48b001 Some preparation work for attacking from rope, parachute and etc. unc0rr parents: 925 diff changeset	804
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	805	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	806	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	807
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	808	if not TestCollisionYwithGear(HHGear, 1) then HHGear^.dY:= HHGear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	809
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	810	ropeDx:= HHGear^.X - Gear^.X; // vector between hedgehog and rope attaching point
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	811	ropeDy:= HHGear^.Y - Gear^.Y;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	812
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	813	mdX:= ropeDx + HHGear^.dX;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	814	mdY:= ropeDy + HHGear^.dY;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	815	len:= _1 / Distance(mdX, mdY);
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	816	mdX:= mdX * len; // rope vector plus hedgehog direction vector normalized
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	817	mdY:= mdY * len;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	818
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	819	Gear^.dX:= mdX; // for visual purposes only
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	820	Gear^.dY:= mdY;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	821
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	822	/////
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	823	tx:= HHGear^.X;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	824	ty:= HHGear^.Y;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	825
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	826	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	827	if not (TestCollisionXwithGear(HHGear, hwSign(ropeDx))
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	828	or TestCollisionYwithGear(HHGear, hwSign(ropeDy))) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	829	Gear^.Elasticity:= Gear^.Elasticity + _0_3;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	830
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	831	if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Elasticity > _30) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	832	if not (TestCollisionXwithGear(HHGear, -hwSign(ropeDx))
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	833	or TestCollisionYwithGear(HHGear, -hwSign(ropeDy))) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	834	Gear^.Elasticity:= Gear^.Elasticity - _0_3;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	835
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	836	HHGear^.X:= Gear^.X + mdX * Gear^.Elasticity;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	837	HHGear^.Y:= Gear^.Y + mdY * Gear^.Elasticity;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	838
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	839	HHGear^.dX:= HHGear^.X - tx;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	840	HHGear^.dY:= HHGear^.Y - ty;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	841	////
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	842
1554 5657cd89668d Fix rope animation unc0rr parents: 1553 diff changeset	843
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	844	haveDivided:= false;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	845	// check whether rope needs dividing
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	846	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	847	nx:= ropeDx * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	848	ny:= ropeDy * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	849
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	850	len:= Gear^.Elasticity - _0_3x70;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	851	while len > _0_3 do
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	852	begin
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	853	lx:= hwRound(Gear^.X + mdX * len);
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	854	ly:= hwRound(Gear^.Y + mdY * len);
1753 2ccba26f1aa4 Apply nemo's world resize patch unc0rr parents: 1752 diff changeset	855	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	856	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	857	with RopePoints.ar[RopePoints.Count] do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	858	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	859	X:= Gear^.X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	860	Y:= Gear^.Y;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	861	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	862	b:= (nx * HHGear^.dY) > (ny * HHGear^.dX);
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	863	dLen:= len
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	864	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	865	Gear^.X:= Gear^.X + nx * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	866	Gear^.Y:= Gear^.Y + ny * len;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	867	inc(RopePoints.Count);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	868	TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	869	Gear^.Elasticity:= Gear^.Elasticity - len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	870	Gear^.Friction:= Gear^.Friction - len;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	871	haveDivided:= true;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	872	break
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	len:= len - _0_3 // should be the same as increase step
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	875	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	876
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	877	if not haveDivided then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	878	if RopePoints.Count > 0 then // check whether the last dividing point could be removed
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	879	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	880	tx:= RopePoints.ar[Pred(RopePoints.Count)].X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	881	ty:= RopePoints.ar[Pred(RopePoints.Count)].Y;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	882	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	883	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	884	dec(RopePoints.Count);
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	885	Gear^.X:= RopePoints.ar[RopePoints.Count].X;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	886	Gear^.Y:= RopePoints.ar[RopePoints.Count].Y;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	887	Gear^.Elasticity:= Gear^.Elasticity + RopePoints.ar[RopePoints.Count].dLen;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	888	Gear^.Friction:= Gear^.Friction + RopePoints.ar[RopePoints.Count].dLen
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	889	end
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	890	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	891
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	haveCollision:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	893	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	894	begin
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	895	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	896	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	897	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	898	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	899	begin
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	900	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	901	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	902	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	903
1579 2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	904	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	905	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	906	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	907	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	908	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	909	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	910	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	911
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	912	len:= Distance(HHGear^.dX, HHGear^.dY);
940 769adb0ad082 Better rope unc0rr parents: 931 diff changeset	913	if len > _0_8 then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	914	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	915	len:= _0_8 / len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	916	HHGear^.dX:= HHGear^.dX * len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	917	HHGear^.dY:= HHGear^.dY * len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	918	end;
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	919
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	920	if (Gear^.Message and gm_Attack) <> 0 then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	921	if (Gear^.State and gsttmpFlag) <> 0 then
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	922	with PHedgehog(Gear^.Hedgehog)^ do
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	923	if Ammo^[CurSlot, CurAmmo].AmmoType <> amParachute then
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	924	WaitCollision
88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	925	else
88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	926	DeleteMe
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	927	else
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	928	else
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	929	if (Gear^.State and gsttmpFlag) = 0 then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	930	Gear^.State:= Gear^.State or gsttmpFlag;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	931	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	932
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	933	procedure doStepRopeAttach(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	934	var HHGear: PGear;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	935	tx, ty, tt: hwFloat;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	936
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	937	procedure RemoveFromAmmo;
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	if (Gear^.State and gstAttacked) = 0 then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	940	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	941	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	942	Gear^.State:= Gear^.State or gstAttacked
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	943	end;
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	944	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^)
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	945	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	946
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	947	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	948	Gear^.X:= Gear^.X - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	949	Gear^.Y:= Gear^.Y - Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	950	Gear^.Elasticity:= Gear^.Elasticity + _1;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	951	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
517 ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	952	DeleteCI(HHGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	953	if (HHGear^.State and gstMoving) <> 0 then
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	954	if TestCollisionYwithGear(HHGear, 1) then
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	955	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	956	CheckHHDamage(HHGear);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	957	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	958	HHGear^.State:= HHGear^.State and not (gstMoving or gstHHJumping or gstHHHJump);
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	959	end else
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	960	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	961	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	962	HHGear^.X:= HHGear^.X + HHGear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	963	HHGear^.Y:= HHGear^.Y + HHGear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	964	Gear^.X:= Gear^.X + HHGear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	965	Gear^.Y:= Gear^.Y + HHGear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	966	HHGear^.dY:= HHGear^.dY + cGravity;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	967	tt:= Gear^.Elasticity;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	968	tx:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	969	ty:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	970	while tt > _20 do
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	971	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	972	if TestCollisionXwithXYShift(Gear, tx, hwRound(ty), -hwSign(Gear^.dX))
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	973	or TestCollisionYwithXYShift(Gear, hwRound(tx), hwRound(ty), -hwSign(Gear^.dY)) then
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	974	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	975	Gear^.X:= Gear^.X + tx;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	976	Gear^.Y:= Gear^.Y + ty;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	977	Gear^.Elasticity:= tt;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	978	Gear^.doStep:= @doStepRopeWork;
1752 769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	979	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	980
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	981	RemoveFromAmmo;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	982
1752 769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	983	tt:= _0;
769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	984	exit
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	985	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	986	tx:= tx + Gear^.dX + Gear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	987	ty:= ty + Gear^.dY + Gear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	988	tt:= tt - _2;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	989	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	990	end;
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	991
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	992	CheckCollision(Gear);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	993
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	994	if (Gear^.State and gstCollision) <> 0 then
2068 9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	995	if Gear^.Elasticity < _10 then
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	996	Gear^.Elasticity:= _10000
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	997	else
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	998	begin
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	999	Gear^.doStep:= @doStepRopeWork;
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1000	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	1001
2068 9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1002	RemoveFromAmmo;
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1003
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1004	exit
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1005	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1006
1634 486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1007	if (Gear^.Elasticity > Gear^.Friction)
486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1008	or ((Gear^.Message and gm_Attack) = 0)
486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1009	or (HHGear^.Damage > 0) then
1433 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	with PHedgehog(Gear^.Hedgehog)^.Gear^ do
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1012	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1013	State:= State and not gstAttacking;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1014	Message:= Message and not gm_Attack
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1015	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1016	DeleteGear(Gear)
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1017	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1018	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1019
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1020	procedure doStepRope(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1021	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1022	Gear^.dX:= - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1023	Gear^.dY:= - Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1024	Gear^.doStep:= @doStepRopeAttach
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1025	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1026
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1027	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1028	procedure doStepSmokeTrace(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1029	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1030	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1031	if Gear^.Timer > 64 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1032	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1033	Gear^.Timer:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1034	dec(Gear^.State)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1035	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1036	Gear^.dX:= Gear^.dX + cWindSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1037	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1038	if Gear^.State = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1039	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1040
4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1041	////////////////////////////////////////////////////////////////////////////////
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1042	procedure doStepExplosionWork(Gear: PGear);
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1043	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1044	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1045	if Gear^.Timer > 75 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1046	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1047	inc(Gear^.State);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1048	Gear^.Timer:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1049	if Gear^.State > 5 then DeleteGear(Gear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1050	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1051	end;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1052
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1053	procedure doStepExplosion(Gear: PGear);
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1054	var i: LongWord;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1055	begin
1047 ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1056	for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1057	for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1058	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	1059	Gear^.doStep:= @doStepExplosionWork
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1060	end;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1061
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1062	////////////////////////////////////////////////////////////////////////////////
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1063	procedure doStepMine(Gear: PGear);
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1064	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	1065	if (Gear^.State and gstMoving) <> 0 then
914 c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1066	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1067	DeleteCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1068	doStepFallingGear(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1069	if (Gear^.State and gstMoving) = 0 then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1070	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1071	AddGearCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1072	Gear^.dX:= _0;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1073	Gear^.dY:= _0
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1074	end;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1075	CalcRotationDirAngle(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1076	AllInactive:= false
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1077	end else
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1078	if ((GameTicks and $3F) = 25) then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1079	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1080
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1081	if ((Gear^.State and gsttmpFlag) <> 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1082	if ((Gear^.State and gstAttacking) = 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1083	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1084	if ((GameTicks and $1F) = 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1085	if CheckGearNear(Gear, gtHedgehog, 46, 32) <> nil then Gear^.State:= Gear^.State or gstAttacking
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1086	end else // gstAttacking <> 0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1087	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1088	AllInactive:= false;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1089	if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false, nil);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1090	if Gear^.Timer = 0 then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1091	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1092	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1093	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1094	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1095	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1096	dec(Gear^.Timer);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1097	end else // gsttmpFlag = 0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1098	if TurnTimeLeft = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1099	end;
57 e1a77ae57065 - Fixed compiling .) unc0rr parents: 53 diff changeset	1100
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1101	////////////////////////////////////////////////////////////////////////////////
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1102	procedure doStepDynamite(Gear: PGear);
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1103	begin
43 e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	1104	doStepFallingGear(Gear);
e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	1105	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1106	if Gear^.Timer mod 166 = 0 then inc(Gear^.Tag);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1107	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1108	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1109	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1110	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1111	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1112	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1113	dec(Gear^.Timer);
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1114	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1115
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1116	///////////////////////////////////////////////////////////////////////////////
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1117	procedure doStepCase(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	1118	var i, x, y: LongInt;
1436 252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1119	k: TGearType;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1120	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1121	if (Gear^.Message and gm_Destroy) > 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1122	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1123	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1124	FreeActionsList;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1125	SetAllToActive; // something (hh, mine, etc...) could be on top of the case
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1126	with CurrentHedgehog^ do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1127	if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1128	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1129	end;
15 6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	1130
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1131	if Gear^.Damage > 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1132	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1133	x:= hwRound(Gear^.X);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1134	y:= hwRound(Gear^.Y);
1436 252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1135	k:= Gear^.Kind;
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1136	DeleteGear(Gear); // <-- delete gear!
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1137
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1138	if k = gtCase then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1139	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1140	doMakeExplosion(x, y, 25, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1141	for i:= 0 to 63 do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1142	AddGear(x, y, gtFlame, 0, _0, _0, 0);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1143	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1144	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1145	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1146
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1147	if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1148	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1149	AllInactive:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1150	Gear^.dY:= Gear^.dY + cGravity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1151	Gear^.Y:= Gear^.Y + Gear^.dY;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1152	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1153	if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1154	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1155	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1156	if Gear^.dY > - _0_001 then Gear^.dY:= _0
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1157	else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false, nil);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1158	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1159	CheckGearDrowning(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1160	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1161
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	1162	if (Gear^.dY.QWordValue = 0) then AddGearCI(Gear)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1163	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	1164	end;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1165
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1166	////////////////////////////////////////////////////////////////////////////////
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1167	procedure doStepIdle(Gear: PGear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1168	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1169	AllInactive:= false;
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1170	dec(Gear^.Timer);
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1171	if Gear^.Timer = 0 then
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1172	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1173	DeleteGear(Gear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1174	AfterAttack
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1175	end
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1176	end;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1177
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1178	procedure doStepShover(Gear: PGear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1179	var HHGear: PGear;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1180	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1181	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1182	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1183	DeleteCI(HHGear);
20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1184
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1185	AmmoShove(Gear, 30, 115);
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1186
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1187	HHGear^.State:= HHGear^.State and not gstNoDamage;
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1188	Gear^.Timer:= 250;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1189	Gear^.doStep:= @doStepIdle
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1190	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1191
29b477319854 - New test map unc0rr parents: 78 diff changeset	1192	////////////////////////////////////////////////////////////////////////////////
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1193	procedure doStepWhip(Gear: PGear);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1194	var HHGear: PGear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1195	i: LongInt;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1196	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1197	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1198	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1199	DeleteCI(HHGear);
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1200
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1201	for i:= 0 to 3 do
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1202	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1203	AmmoShove(Gear, 30, 25);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1204	Gear^.X:= Gear^.X + Gear^.dX * 5
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1205	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1206
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1207	HHGear^.State:= HHGear^.State and not gstNoDamage;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1208	Gear^.Timer:= 250;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1209	Gear^.doStep:= @doStepIdle
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1210	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1211
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1212	////////////////////////////////////////////////////////////////////////////////
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1213	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	1214	var i: Integer;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1215	begin
29b477319854 - New test map unc0rr parents: 78 diff changeset	1216	AllInactive:= false;
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1217
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1218	if not TestCollisionYwithGear(Gear, 1) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1219	begin
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1220	if hwAbs(Gear^.dX) > _0_01 then
2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1221	Gear^.dX:= Gear^.dX * _0_995;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1222
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1223	Gear^.dY:= Gear^.dY + cGravity;
1830 b3e9ab82c364 Faster fire falling unc0rr parents: 1785 diff changeset	1224	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	1225
1830 b3e9ab82c364 Faster fire falling unc0rr parents: 1785 diff changeset	1226	Gear^.X:= Gear^.X + Gear^.dX + cWindSpeed * 640;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1227	Gear^.Y:= Gear^.Y + Gear^.dY;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1228
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	if (hwRound(Gear^.Y) > cWaterLine) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1230	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	1231	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	1232	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	1233	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	1234	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	1235	end;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1236	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1237	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1238	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1239	end else begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1240	if Gear^.Timer > 0 then dec(Gear^.Timer)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1241	else begin
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1242	Gear^.Radius:= 9;
2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1243	AmmoShove(Gear, 4, 100);
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1244	Gear^.Radius:= 1;
78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1245	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 4, EXPLNoDamage);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1246	dec(Gear^.Health);
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1247	Gear^.Timer:= 450 - Gear^.Tag * 8
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1248	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1249	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1250
1295 27bec661581c Start flames rework unc0rr parents: 1286 diff changeset	1251	//if (((GameTicks div 8) mod 64) = Gear^.Tag) then
27bec661581c Start flames rework unc0rr parents: 1286 diff changeset	1252	// AmmoFlameWork(Gear);
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1253
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1254	if Gear^.Health = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1255	DeleteGear(Gear)
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1256	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1257
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1258	////////////////////////////////////////////////////////////////////////////////
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1259	procedure doStepFirePunchWork(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1260	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1261	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1262	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1263	if ((Gear^.Message and gm_Destroy) <> 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1264	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1265	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1266	AfterAttack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1267	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1268	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1269
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1270	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1271	if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1272	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1273	Gear^.Tag:= hwRound(HHGear^.Y);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1274	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y - _1, _0_5, _0, cHHRadius * 4, 2);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1275	HHGear^.State:= HHGear^.State or gstNoDamage;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1276	Gear^.Y:= HHGear^.Y;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1277	AmmoShove(Gear, 30, 40);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1278	HHGear^.State:= HHGear^.State and not gstNoDamage
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1279	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1280
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1281	HHGear^.dY:= HHGear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1282	if not (HHGear^.dY.isNegative) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1283	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1284	HHGear^.State:= HHGear^.State or gstMoving;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1285	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1286	AfterAttack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1287	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1288	end;
2089 a08758aed76a Prevent unc0rr's sneaky escape nemo parents: 2087 diff changeset	1289
a08758aed76a Prevent unc0rr's sneaky escape nemo parents: 2087 diff changeset	1290	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	1291	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1292
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1293	procedure doStepFirePunch(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1294	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1295	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1296	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1297	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
514 fb8ba88a83c3 Fix firepunch regression unc0rr parents: 513 diff changeset	1298	DeleteCI(HHGear);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1299	HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
1014 3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1300	HHGear^.dX:= SignAs(cLittle, Gear^.dX);
3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1301
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1302	HHGear^.dY:= - _0_3;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1303
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1304	Gear^.X:= HHGear^.X;
979 edb8f208c1d9 Fix firepunch direction when attacking from high jump unc0rr parents: 974 diff changeset	1305	Gear^.dX:= SignAs(_0_45, Gear^.dX);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1306	Gear^.dY:= - _0_9;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1307	Gear^.doStep:= @doStepFirePunchWork;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1308	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	1309
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1310	PlaySound(TSound(ord(sndFirePunch1) + GetRandom(6)), false, PHedgehog(HHGear^.Hedgehog)^.Team^.voicepack)
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1311	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1312
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1313	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1314
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1315	procedure doStepParachuteWork(Gear: PGear);
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1316	var HHGear: PGear;
558476056205 Parachute unc0rr parents: 183 diff changeset	1317	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1318	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1319
516 f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1320	inc(Gear^.Timer);
f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1321
212 c8c650b23e32 Parachute fixes unc0rr parents: 211 diff changeset	1322	if TestCollisionYwithGear(HHGear, 1)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1323	or ((HHGear^.State and gstHHDriven) = 0)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1324	or CheckGearDrowning(HHGear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1325	or ((Gear^.Message and gm_Attack) <> 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1326	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1327	with HHGear^ do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1328	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1329	Message:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1330	SetLittle(dX);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1331	dY:= _0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1332	State:= State or gstMoving;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1333	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1334	DeleteGear(Gear);
2060 3e9e5e1be6f5 fix crash in parachute/rope if drowning with active girder/teleport nemo parents: 2059 diff changeset	1335	isCursorVisible:= false;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1336	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1337	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1338
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1339	if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1340	HHGear^.X:= HHGear^.X + cWindSpeed * 200;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1341
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1342	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	1343	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	1344	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	1345	else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1346
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1347	HHGear^.Y:= HHGear^.Y + cGravity * 100;
568 d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1348	Gear^.X:= HHGear^.X;
d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1349	Gear^.Y:= HHGear^.Y
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1350	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1351
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1352	procedure doStepParachute(Gear: PGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1353	var HHGear: PGear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1354	begin
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1355	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
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	DeleteCI(HHGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1358
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1359	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1360	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1361
931 ab4d98858a40 Fix some bugs with dropping from parachute unc0rr parents: 929 diff changeset	1362	HHGear^.State:= HHGear^.State and not (gstAttacki

author	nemo
	Mon, 22 Jun 2009 00:27:55 +0000
changeset 2189	bf6eafc3b2e6
parent 2188	6cdf9109cc58
child 2190	cfcad6142d48
permissions	-rw-r--r--