hedgewars: hedgewars/GSHandlers.inc@29508a2924c2 (annotated)

4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1	(*
1066 1f1b3686a2b0 Update copyright headers a bit unc0rr parents: 1047 diff changeset	2	* Hedgewars, a free turn based strategy game
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	3	* Copyright (c) 2004-2009 Andrey Korotaev <unC0Rr@gmail.com>
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	4	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	5	* This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	6	* it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	7	* the Free Software Foundation; version 2 of the License
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	8	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	9	* This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	10	* but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	11	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	12	* GNU General Public License for more details.
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	13	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	14	* You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	15	* along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	16	* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	17	*)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	18
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	19	procedure doStepDrowningGear(Gear: PGear); forward;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	20
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	21	function CheckGearDrowning(Gear: PGear): boolean;
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	22	var skipSpeed, skipAngle, skipDecay: hwFloat;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	23	begin
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	24	// probably needs tweaking. might need to be in a case statement based upon gear type
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	25	//(not Gear^.dY.isNegative) and this should not be necessary
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	26	if cWaterLine < hwRound(Gear^.Y) + Gear^.Radius then
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	27	begin
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	28	skipSpeed:= _0_25; // was 0.36 - couldn't manage baseball bat. Tiy's build is 0.36...
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	29	skipAngle:= _1 + _0_9; // these should perhaps also be constants, once work out what proper values are
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	30	skipDecay:= _0_87; // this could perhaps be a tiny bit higher.
1919 390d3f685a80 Optimize water bouncing a bit unc0rr parents: 1918 diff changeset	31	if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > skipSpeed) and
1920 302835d554d8 oops unc0rr parents: 1919 diff changeset	32	(hwAbs(Gear^.dX) > skipAngle * hwAbs(Gear^.dY)) then
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	33	begin
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	34	Gear^.dY.isNegative:= true;
1919 390d3f685a80 Optimize water bouncing a bit unc0rr parents: 1918 diff changeset	35	Gear^.dY:= Gear^.dY * skipDecay;
390d3f685a80 Optimize water bouncing a bit unc0rr parents: 1918 diff changeset	36	Gear^.dX:= Gear^.dX * skipDecay;
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	37	CheckGearDrowning:= false
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	38	end
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	39	else
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	40	begin
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	41	CheckGearDrowning:= true;
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	42	Gear^.State:= gstDrowning;
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	43	Gear^.doStep:= @doStepDrowningGear;
2142 48ed98cfd119 Make code suck less unc0rr parents: 2141 diff changeset	44	if Gear^.Kind = gtHedgehog then AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name), $FFFFFF, capgrpMessage);
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	45	end;
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	46	PlaySound(sndSplash, false, nil)
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	47	end
975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	48	else
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	49	CheckGearDrowning:= false
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	50	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	51
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	52	procedure CheckCollision(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	53	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	54	if TestCollisionXwithGear(Gear, hwSign(Gear^.X)) or TestCollisionYwithGear(Gear, hwSign(Gear^.Y))
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	55	then Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	56	else Gear^.State:= Gear^.State and not gstCollision
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	57	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	58
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	59	procedure CheckHHDamage(Gear: PGear);
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	60	var dmg: Longword;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	61	begin
1849 2a989e5abda6 4 utilities by nemo unc0rr parents: 1830 diff changeset	62	if(Gear^.Invulnerable) then exit;
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	63	if _0_4 < Gear^.dY then
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	64	begin
ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	65	if _0_6 < Gear^.dY then
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	66	PlaySound(sndOw4, false, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack)
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	67	else
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	68	PlaySound(sndOw1, false, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack);
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	69
1861 98de5dc5fda7 nemo: unc0rr parents: 1849 diff changeset	70	dmg:= modifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70));
2017 7845c77c8d31 nemo's great patch: unc0rr parents: 2005 diff changeset	71	ApplyDamage(Gear, dmg);
1123 ed713652afae Play Ow1.ogg and Ow4.ogg when hedgehog falls unc0rr parents: 1120 diff changeset	72	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	73	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	74
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	75	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	76	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	77	procedure CalcRotationDirAngle(Gear: PGear);
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	78	var dAngle: real;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	79	begin
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	80	dAngle:= (hwAbs(Gear^.dX) + hwAbs(Gear^.dY)).QWordValue / $80000000;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	81	if not Gear^.dX.isNegative then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	82	Gear^.DirAngle:= Gear^.DirAngle + dAngle
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	83	else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	84	Gear^.DirAngle:= Gear^.DirAngle - dAngle;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	85
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	86	if Gear^.DirAngle < 0 then Gear^.DirAngle:= Gear^.DirAngle + 360
8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	87	else if 360 < Gear^.DirAngle then Gear^.DirAngle:= Gear^.DirAngle - 360
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	88	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	89
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	90	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	91	procedure doStepDrowningGear(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	92	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	93	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	94	Gear^.Y:= Gear^.Y + cDrownSpeed;
2143 ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	95	if hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater then DeleteGear(Gear);
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	96	// Create some bubbles (0.5% might be better but causes too few bubbles sometimes)
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	97	if Random(1000) < 10 then AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	98	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	99
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	100	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	101	procedure doStepFallingGear(Gear: PGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	102	var isFalling: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	103	begin
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	104	Gear^.State:= Gear^.State and not gstCollision;
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	105
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	106	if Gear^.dY.isNegative then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	107	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	108	isFalling:= true;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	109	if TestCollisionYwithGear(Gear, -1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	110	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	111	Gear^.dX:= Gear^.dX * Gear^.Friction;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	112	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	113	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	114	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	115	end else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	116	if TestCollisionYwithGear(Gear, 1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	117	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	118	isFalling:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	119	Gear^.dX:= Gear^.dX * Gear^.Friction;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	120	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	121	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	122	end else isFalling:= true;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	123
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	124	if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	125	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	126	Gear^.dX:= - Gear^.dX * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	127	Gear^.dY:= Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	128	Gear^.State:= Gear^.State or gstCollision
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	129	end;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	130
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	131	if isFalling then Gear^.dY:= Gear^.dY + cGravity;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	132
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	133	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	134	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	135	CheckGearDrowning(Gear);
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	136	if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	137	(not isFalling) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	138	Gear^.State:= Gear^.State and not gstMoving
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	139	else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	140	Gear^.State:= Gear^.State or gstMoving
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	141	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	142
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	143	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	144	procedure doStepBomb(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	145	var i: LongInt;
919 fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	146	dX, dY: hwFloat;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	147	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	148	AllInactive:= false;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	149
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	150	doStepFallingGear(Gear);
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	151
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	152	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	153	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	154	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	155	case Gear^.Kind of
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	156	gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
1603 dbcb2d531fad Update changelog unc0rr parents: 1601 diff changeset	157	gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	158	gtClusterBomb: begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	159	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	160	for i:= 0 to 4 do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	161	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	162	dX:= rndSign(GetRandom * _0_1);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	163	dY:= (GetRandom - _3) * _0_08;
1261 903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	164	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 25);
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	165	end
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	166	end;
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	167	gtWatermelon: begin
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	168	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	169	for i:= 0 to 5 do
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	170	begin
903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	171	dX:= rndSign(GetRandom * _0_1);
1496 bc2a166b4fd2 Modify melon pieces spread a bit unc0rr parents: 1495 diff changeset	172	dY:= (GetRandom - _1_5) * _0_3;
1262 e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	173	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMelonPiece, 0, dX, dY, 75)^.DirAngle:= i * 60;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	174	end
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	175	end;
1555 0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	176	gtHellishBomb: begin
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	177	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 90, EXPLAutoSound);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	178	for i:= 0 to 127 do
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	179	begin
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	180	dX:= AngleCos(i * 16) * _0_5 * (GetRandom + _1);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	181	dY:= AngleSin(i * 16) * _0_5 * (GetRandom + _1);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	182	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	183	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	184	end
0a62938e695a - Hellish bomb now spreads fire unc0rr parents: 1554 diff changeset	185	end;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	186	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	187	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	188	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	189	end;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	190
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	191	CalcRotationDirAngle(Gear);
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	192
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	193	if Gear^.Kind = gtHellishBomb then
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	194	begin
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	195	if Gear^.Timer = 3000 then PlaySound(sndHellish, false, nil);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	196
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	197	if (GameTicks and $3F) = 0 then
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	198	if (Gear^.State and gstCollision) = 0 then
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	199	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtEvilTrace, 0, _0, _0, 0);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	200	end;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	201
1158 d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	202	if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then
d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	203	if (hwAbs(Gear^.dX) > _0_1) or
d03d12ef8971 - Fix grenade sound unc0rr parents: 1142 diff changeset	204	(hwAbs(Gear^.dY) > _0_1) then
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	205	PlaySound(sndGrenadeImpact, false, nil)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	206	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	207
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	208	procedure doStepWatermelon(Gear: PGear);
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	209	begin
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	210	AllInactive:= false;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	211	PlaySound(sndMelon, false, nil);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	212	Gear^.doStep:= @doStepBomb
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	213	end;
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	214
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	215	procedure doStepCluster(Gear: PGear);
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	216	begin
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	217	AllInactive:= false;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	218	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	219	if (Gear^.State and gstCollision) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	220	begin
1261 903058d382c7 Add watermelon weapon (without proper sprites yet) unc0rr parents: 1259 diff changeset	221	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, EXPLAutoSound);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	222	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	223	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	224	end;
1262 e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	225
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	226	if Gear^.Kind = gtMelonPiece then
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	227	CalcRotationDirAngle(Gear)
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	228	else
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	229	if (GameTicks and $1F) = 0 then
e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	230	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	231	end;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	232
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	233	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	234	procedure doStepGrenade(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	235	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	236	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	237	Gear^.dX:= Gear^.dX + cWindSpeed;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	238	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	239	if (Gear^.State and gstCollision) <> 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	240	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	241	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	242	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	243	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	244	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	245	if (GameTicks and $3F) = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	246	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	247	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	248
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	249	////////////////////////////////////////////////////////////////////////////////
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	250	procedure doStepHealthTagWork(Gear: PGear);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	251	begin
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	252	if Gear^.Kind = gtHealthTag then
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	253	AllInactive:= false;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	254
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	255	dec(Gear^.Timer);
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	256	Gear^.Y:= Gear^.Y + Gear^.dY;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	257
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	258	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	259	begin
2017 7845c77c8d31 nemo's great patch: unc0rr parents: 2005 diff changeset	260	if (Gear^.Kind = gtHealthTag) and (PHedgehog(Gear^.Hedgehog)^.Gear <> nil) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	261	PHedgehog(Gear^.Hedgehog)^.Gear^.Active:= true; // to let current hh die
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	262	DeleteGear(Gear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	263	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	264	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	265
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	266	procedure doStepHealthTagWorkUnderWater(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	267	begin
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	268	AllInactive:= false;
1495 2b2b89bdb5f3 More verbose gear delete debuglog message unc0rr parents: 1437 diff changeset	269
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	270	Gear^.Y:= Gear^.Y - _0_08;
1495 2b2b89bdb5f3 More verbose gear delete debuglog message unc0rr parents: 1437 diff changeset	271
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	272	if hwRound(Gear^.Y) < cWaterLine + 10 then
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	273	DeleteGear(Gear)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	274	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	275
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	276	procedure doStepHealthTag(Gear: PGear);
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	277	var s: shortstring;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	278	begin
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	279	AllInactive:= false;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	280	Gear^.dY:= -_0_08;
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	281
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	282	str(Gear^.State, s);
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	283	Gear^.Tex:= RenderStringTex(s, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color, fnt16);
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	284
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	285	if hwRound(Gear^.Y) < cWaterLine then
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	286	Gear^.doStep:= @doStepHealthTagWork
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	287	else
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	288	Gear^.doStep:= @doStepHealthTagWorkUnderWater;
3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	289
762 5ecf042f6113 More sprites are visible unc0rr parents: 690 diff changeset	290	Gear^.Y:= Gear^.Y - int2hwFloat(Gear^.Tex^.h)
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	291	end;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	292
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	293	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	294	procedure doStepGrave(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	295	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	296	AllInactive:= false;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	297	if Gear^.dY.isNegative then
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	298	if TestCollisionY(Gear, -1) then Gear^.dY:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	299
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	300	if not Gear^.dY.isNegative then
68 cbb93eb90304 Collision-related stuff unc0rr parents: 57 diff changeset	301	if TestCollisionY(Gear, 1) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	302	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	303	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	304	if Gear^.dY > - _1div1024 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	305	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	306	Gear^.Active:= false;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	307	exit
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	308	end else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false, nil)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	309	end;
1505 3a96e93572cb - Convert small damage tag to visual gears unc0rr parents: 1504 diff changeset	310
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	311	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	312	CheckGearDrowning(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	313	Gear^.dY:= Gear^.dY + cGravity
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	314	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	315
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	316	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	317	procedure doStepUFOWork(Gear: PGear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	318	var t: hwFloat;
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	319	y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	320	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	321	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	322	t:= Distance(Gear^.dX, Gear^.dY);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	323	Gear^.dX:= Gear^.Elasticity * (Gear^.dX + _0_000004 * (TargetPoint.X - hwRound(Gear^.X)));
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	324	Gear^.dY:= Gear^.Elasticity * (Gear^.dY + _0_000004 * (TargetPoint.Y - hwRound(Gear^.Y)));
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	325	t:= t / Distance(Gear^.dX, Gear^.dY);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	326	Gear^.dX:= Gear^.dX * t;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	327	Gear^.dY:= Gear^.dY * t;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	328	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	329	Gear^.Y:= Gear^.Y + Gear^.dY;
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	330
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	331	if (GameTicks and $3F) = 0 then
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	332	begin
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	333	y:= hwRound(Gear^.Y);
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	334	if y + Gear^.Radius < cWaterLine then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	335	AddGear(hwRound(Gear^.X), y, gtSmokeTrace, 0, _0, _0, 0);
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	336	end;
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	337
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	338	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	339	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	340	if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	341	begin
560 7bf2b554de0c UFO Sound unc0rr parents: 559 diff changeset	342	StopSound(sndUFO);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	343	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	344	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	345	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	346	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	347
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	348	procedure doStepUFO(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	349	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	350	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	351	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	352	Gear^.Y:= Gear^.Y + Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	353	Gear^.dY:= Gear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	354	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	355	if (Gear^.State and gstCollision) <> 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	356	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	357	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	358	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	359	exit
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	360	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	361	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	362	if Gear^.Timer = 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	363	begin
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	364	PlaySound(sndUFO, true, nil);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	365	Gear^.Timer:= 5000;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	366	Gear^.doStep:= @doStepUFOWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	367	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	368	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	369
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	370	////////////////////////////////////////////////////////////////////////////////
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	371	procedure doStepShotIdle(Gear: PGear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	372	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	373	AllInactive:= false;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	374	inc(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	375	if Gear^.Timer > 75 then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	376	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	377	DeleteGear(Gear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	378	AfterAttack
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	379	end
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	380	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	381
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	382	procedure doStepShotgunShot(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	383	var i: LongWord;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	384	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	385	AllInactive:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	386
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	387	if ((Gear^.State and gstAnimation) = 0) then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	388	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	389	dec(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	390	if Gear^.Timer = 0 then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	391	begin
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	392	PlaySound(sndShotgunFire, false, nil);
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	393	Gear^.State:= Gear^.State or gstAnimation
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	394	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	395	exit
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	396	end
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	397	else inc(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	398
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	399	i:= 200;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	400	repeat
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	401	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	402	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	403	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	404	if (Gear^.State and gstCollision) <> 0 then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	405	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	406	Gear^.X:= Gear^.X + Gear^.dX * 8;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	407	Gear^.Y:= Gear^.Y + Gear^.dY * 8;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	408	ShotgunShot(Gear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	409	Gear^.doStep:= @doStepShotIdle;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	410	exit
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	411	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	412	dec(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	413	until i = 0;
1760 55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	414	if (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0) or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0) then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	415	Gear^.doStep:= @doStepShotIdle
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	416	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	417
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	418	////////////////////////////////////////////////////////////////////////////////
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	419	procedure doStepBulletWork(Gear: PGear);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	420	var i, x, y: LongWord;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	421	oX, oY: hwFloat;
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	422	begin
c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	423	AllInactive:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	424	inc(Gear^.Timer);
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	425	i:= 80;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	426	oX:= Gear^.X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	427	oY:= Gear^.Y;
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	428	repeat
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	429	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	430	Gear^.Y:= Gear^.Y + Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	431	x:= hwRound(Gear^.X);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	432	y:= hwRound(Gear^.Y);
1753 2ccba26f1aa4 Apply nemo's world resize patch unc0rr parents: 1752 diff changeset	433	if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	434	and (Land[y, x] <> 0) then inc(Gear^.Damage);
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	435	if Gear^.Damage > 5 then
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	436	if Gear^.Ammo^.AmmoType = amDEagle then
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	437	AmmoShove(Gear, 7, 20)
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	438	else
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	439	AmmoShove(Gear, Gear^.Timer, 20);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	440	dec(i)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	441	until (i = 0) or (Gear^.Damage > Gear^.Health);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	442	if Gear^.Damage > 0 then
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	443	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	444	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	445	dec(Gear^.Health, Gear^.Damage);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	446	Gear^.Damage:= 0
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	447	end;
1760 55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	448
55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	449	if (Gear^.Health <= 0)
55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	450	or (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0)
55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	451	or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0) then
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	452	begin
2087 79472a9be025 neglected test on sniper rifle being active nemo parents: 2068 diff changeset	453	if (Gear^.Kind = gtSniperRifleShot) and ((GameFlags and gfLaserSight) = 0) then cLaserSighting:= false;
2033 860b9aea5e86 allow adjusting angle during sniping nemo parents: 2031 diff changeset	454	if (Gear^.Ammo^.NumPerTurn <= CurrentHedgehog^.AttacksNum) and
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	455	((GameFlags and gfArtillery) = 0) then cArtillery:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	456	Gear^.doStep:= @doStepShotIdle
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	457	end;
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	458	end;
2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	459
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	460	procedure doStepDEagleShot(Gear: PGear);
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	461	begin
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	462	PlaySound(sndGun, false, nil);
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	463	Gear^.doStep:= @doStepBulletWork
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	464	end;
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	465
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	466	procedure doStepSniperRifleShot(Gear: PGear);
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	467	var HHGear: PGear;
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	468	begin
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	469	cArtillery:= true;
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	470	HHGear:=PHedgehog(Gear^.Hedgehog)^.Gear;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	471	HHGear^.State:= HHGear^.State or gstNotKickable;
2033 860b9aea5e86 allow adjusting angle during sniping nemo parents: 2031 diff changeset	472	HedgehogChAngle(HHGear);
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	473	if not cLaserSighting then // game doesn't have default laser sight. turn it on and give them a chance to aim
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	474	begin
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	475	cLaserSighting:= true;
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	476	HHGear^.Message:= 0;
2052 1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	477	if(HHGear^.Angle - 32 >= 0) then dec(HHGear^.Angle,32)
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	478	end;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	479
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	480	if (HHGear^.Message and gm_Attack) <> 0 then
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	481	begin
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	482	Gear^.State:= Gear^.State or gstAnimation;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	483	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _0_5;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	484	Gear^.dY:= -AngleCos(HHGear^.Angle) * _0_5;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	485	PlaySound(sndGun, false, nil);
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	486	Gear^.doStep:= @doStepBulletWork;
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	487	end
2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	488	else
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	489	if (GameTicks mod 32) = 0 then
2052 1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	490	if (GameTicks mod 4096) < 2048 then
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	491	begin
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	492	if(HHGear^.Angle + 1 <= cMaxAngle) then inc(HHGear^.Angle)
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	493	end
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	494	else
1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	495	if(HHGear^.Angle - 1 >= 0) then dec(HHGear^.Angle);
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	496
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	497	if (TurnTimeLeft > 0) then
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	498	dec(TurnTimeLeft)
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	499	else
5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	500	begin
2139 5a083e71a71d Properly decrement sniper rifle if timed out. Try to get camera position straight for once. nemo parents: 2090 diff changeset	501	PHedgehog(Gear^.Hedgehog)^.AttacksNum:= Gear^.Ammo^.NumPerTurn+1;
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	502	DeleteGear(Gear);
2059 b25eed7f9183 oops. forgot to reset turn time nemo parents: 2058 diff changeset	503	AfterAttack;
b25eed7f9183 oops. forgot to reset turn time nemo parents: 2058 diff changeset	504	TurnTimeLeft:= 0
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	505	end;
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	506	end;
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	507
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	508	////////////////////////////////////////////////////////////////////////////////
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	509	procedure doStepActionTimer(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	510	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	511	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	512	case Gear^.Kind of
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	513	gtATStartGame: begin
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	514	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	515	if Gear^.Timer = 0 then
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	516	AddCaption(trmsg[sidStartFight], $FFFFFF, capgrpGameState);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	517	end;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	518	gtATSmoothWindCh: begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	519	if Gear^.Timer = 0 then
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	520	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	521	if WindBarWidth < Gear^.Tag then inc(WindBarWidth)
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	522	else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	523	if WindBarWidth <> Gear^.Tag then Gear^.Timer:= 10;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	524	end
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	525	end;
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	526	gtATFinishGame: begin
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	527	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	528	if Gear^.Timer = 0 then
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	529	begin
d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	530	SendIPC('N');
324 f4c109c82a0c Don't show game stats in case of interrupted by command '/quit' game unc0rr parents: 306 diff changeset	531	SendIPC('q');
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	532	GameState:= gsExit
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	533	end
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	534	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	535	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	536	if Gear^.Timer = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	537	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	538
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	539	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	540	procedure doStepPickHammerWork(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	541	var i, ei: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	542	HHGear: PGear;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	543	begin
70 82d93eeecebe - Many AI improvements unc0rr parents: 68 diff changeset	544	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	545	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	546	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	547	if (Gear^.Timer = 0)or((Gear^.Message and gm_Destroy) <> 0)or((HHGear^.State and gstHHDriven) = 0) then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	548	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	549	StopSound(sndPickhammer);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	550	DeleteGear(Gear);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	551	AfterAttack;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	552	exit
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	553	end;
845 ca72cf446ec2 Add sprite for pickhammer unc0rr parents: 820 diff changeset	554
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	555	if (Gear^.Timer mod 33) = 0 then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	556	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	557	HHGear^.State:= HHGear^.State or gstNoDamage;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	558	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 7, 6, EXPLDontDraw);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	559	HHGear^.State:= HHGear^.State and not gstNoDamage
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	560	end;
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	561
12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	562	if (Gear^.Timer mod 47) = 0 then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	563	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	564	i:= hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	565	ei:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	566	while i <= ei do
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	567	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	568	DrawExplosion(i, hwRound(Gear^.Y) + 3, 3);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	569	inc(i, 1)
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	570	end;
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	571	if Land[hwRound(Gear^.Y + _1_9) , hwRound(Gear^.X + Gear^.dX)] <> COLOR_INDESTRUCTIBLE then
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	572	begin
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	573	Gear^.X:= Gear^.X + Gear^.dX;
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	574	Gear^.Y:= Gear^.Y + _1_9;
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	575	end;
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	576	SetAllHHToActive;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	577	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	578	if TestCollisionYwithGear(Gear, 1) then
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	579	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	580	Gear^.dY:= _0;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	581	SetLittle(HHGear^.dX);
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	582	HHGear^.dY:= _0;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	583	end else
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	584	begin
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	585	Gear^.dY:= Gear^.dY + cGravity;
b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	586	Gear^.Y:= Gear^.Y + Gear^.dY;
1417 210cb6b1b275 Fix some problems with water rising unc0rr parents: 1388 diff changeset	587	if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer:= 1
1200 b92323ccce45 Fix pickhammer and kamikaze unc0rr parents: 1158 diff changeset	588	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	589
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	590	Gear^.X:= Gear^.X + HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	591	HHGear^.X:= Gear^.X;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	592	HHGear^.Y:= Gear^.Y - int2hwFloat(cHHRadius);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	593
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	594	if (Gear^.Message and gm_Attack) <> 0 then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	595	if (Gear^.State and gsttmpFlag) <> 0 then Gear^.Timer:= 1 else else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	596	if (Gear^.State and gsttmpFlag) = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	597	if ((Gear^.Message and gm_Left) <> 0) then Gear^.dX:= - _0_3 else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	598	if ((Gear^.Message and gm_Right) <> 0) then Gear^.dX:= _0_3
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	599	else Gear^.dX:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	600	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	601
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	602	procedure doStepPickHammer(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	603	var i, y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	604	ar: TRangeArray;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	605	HHGear: PGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	606	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	607	i:= 0;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	608	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	609
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	610	y:= hwRound(Gear^.Y) - cHHRadius * 2;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	611	while y < hwRound(Gear^.Y) do
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	612	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	613	ar[i].Left := hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	614	ar[i].Right:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	615	inc(y, 2);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	616	inc(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	617	end;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	618
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	619	DrawHLinesExplosions(@ar, 3, hwRound(Gear^.Y) - cHHRadius * 2, 2, Pred(i));
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	620	Gear^.dY:= HHGear^.dY;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	621	DeleteCI(HHGear);
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	622
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	623	PlaySound(sndPickhammer, true, nil);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	624	doStepPickHammerWork(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	625	Gear^.doStep:= @doStepPickHammerWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	626	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	627
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	628	////////////////////////////////////////////////////////////////////////////////
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	629	var BTPrevAngle, BTSteps: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	630
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	631	procedure doStepBlowTorchWork(Gear: PGear);
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	632	var HHGear: PGear;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	633	b: boolean;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	634	prevX: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	635	begin
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	636	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	637	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	638	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	639
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	640	HedgehogChAngle(HHGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	641
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	642	b:= false;
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	643
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	644	if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	645	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	646	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	647	Gear^.dY:= AngleCos(HHGear^.Angle) * ( - _0_5);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	648	BTPrevAngle:= HHGear^.Angle;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	649	b:= true
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	650	end;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	651
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	652	if ((HHGear^.State and gstMoving) <> 0) then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	653	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	654	doStepHedgehogMoving(HHGear);
1736 9ae3cd2204d3 Fix blowtorch delete condition unc0rr parents: 1719 diff changeset	655	if (HHGear^.State and gstHHDriven) = 0 then Gear^.Timer:= 0
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	656	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	657
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	658	if Gear^.Timer mod cHHStepTicks = 0 then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	659	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	660	b:= true;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	661	if Gear^.dX.isNegative then
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	662	HHGear^.Message:= (HHGear^.Message and (gm_Attack or gm_Up or gm_Down)) or gm_Left
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	663	else
1547 4251f9598d54 - Fix blowtorch regression unc0rr parents: 1545 diff changeset	664	HHGear^.Message:= (HHGear^.Message and (gm_Attack or gm_Up or gm_Down)) or gm_Right;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	665
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	666	if ((HHGear^.State and gstMoving) = 0) then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	667	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	668	HHGear^.State:= HHGear^.State and not gstAttacking;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	669	prevX:= hwRound(HHGear^.X);
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	670
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	671	// why the call to HedgehogStep then a further increment of X?
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	672	if (prevX = hwRound(HHGear^.X)) and (Land[hwRound(HHGear^.Y) , hwRound(HHGear^.X + SignAs(_1, HHGear^.dX))] <> COLOR_INDESTRUCTIBLE) then HedgehogStep(HHGear);
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	673
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	674	if (prevX = hwRound(HHGear^.X)) and (Land[hwRound(HHGear^.Y) , hwRound(HHGear^.X + SignAs(_1, HHGear^.dX))] <> COLOR_INDESTRUCTIBLE) then HHGear^.X:= HHGear^.X + SignAs(_1, HHGear^.dX);
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	675	HHGear^.State:= HHGear^.State or gstAttacking
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	676	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	677
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	678	inc(BTSteps);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	679	if BTSteps = 7 then
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	680	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	681	BTSteps:= 0;
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	682	if Land[hwRound(HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC)) , hwRound(HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC))] <> COLOR_INDESTRUCTIBLE then
4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	683	begin
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	684	Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	685	Gear^.Y:= HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC);
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	686	end;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	687	HHGear^.State:= HHGear^.State or gstNoDamage;
1643 434e28245dc0 Fix yet another ballgun bug unc0rr parents: 1635 diff changeset	688	AmmoShove(Gear, 2, 15);
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	689	HHGear^.State:= HHGear^.State and not gstNoDamage
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	690	end;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	691	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	692
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	693	if b then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	694	DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(Gear^.dY) * 7,
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	695	Gear^.dX, Gear^.dY,
1501 a0e56fdf10cd Tune blowtorch a bit unc0rr parents: 1496 diff changeset	696	cHHRadius * 5, cHHRadius * 2 + 7);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	697
2090 4edb0d49a42d prevent unc0rr from getting clever with jackhammer too. bring blowtorch into line with the other - should be more fun anyway nemo parents: 2089 diff changeset	698	if (Gear^.Timer = 0) or ((HHGear^.Message and gm_Attack) <> 0) then
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	699	begin
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	700	HHGear^.Message:= 0;
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	701	HHGear^.State:= HHGear^.State and (not gstNotKickable);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	702	DeleteGear(Gear);
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	703	AfterAttack
3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	704	end
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	705	end;
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	706
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	707	procedure doStepBlowTorch(Gear: PGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	708	var HHGear: PGear;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	709	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	710	BTPrevAngle:= High(LongInt);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	711	BTSteps:= 0;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	712	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	713	HHGear^.Message:= 0;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	714	HHGear^.State:= HHGear^.State or gstNotKickable;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	715	Gear^.doStep:= @doStepBlowTorchWork
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	716	end;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	717
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	718	////////////////////////////////////////////////////////////////////////////////
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	719
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	720	procedure doStepRope(Gear: PGear); forward;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	721
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	722	procedure doStepRopeAfterAttack(Gear: PGear);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	723	var HHGear: PGear;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	724	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	725	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	726	if ((HHGear^.State and gstHHDriven) = 0)
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	727	or (CheckGearDrowning(HHGear))
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	728	or TestCollisionYwithGear(HHGear, 1) then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	729	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	730	DeleteGear(Gear);
2060 3e9e5e1be6f5 fix crash in parachute/rope if drowning with active girder/teleport nemo parents: 2059 diff changeset	731	isCursorVisible:= false;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	732	exit
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	733	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	734
1785 26c28fa8f56c Fix rope regression (unable to change angle) unc0rr parents: 1784 diff changeset	735	HedgehogChAngle(HHGear);
26c28fa8f56c Fix rope regression (unable to change angle) unc0rr parents: 1784 diff changeset	736
2029 51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	737	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	738	begin
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	739	{$IFDEF DEBUGFILE}if HHGear^.dX.QWordValue > 1 then AddFileLog('Stopping hedgehog after rope attack due to wall collision');{$ENDIF}
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	740	SetLittle(HHGear^.dX);
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	741	end;
51e164a40b41 Add a tracing message to help debug rope bugs unc0rr parents: 2025 diff changeset	742
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	743	if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	744	HHGear^.X:= HHGear^.X + HHGear^.dX;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	745	HHGear^.Y:= HHGear^.Y + HHGear^.dY;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	746	HHGear^.dY:= HHGear^.dY + cGravity;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	747
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	748	if (Gear^.Message and gm_Attack) <> 0 then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	749	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	750	Gear^.X:= HHGear^.X;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	751	Gear^.Y:= HHGear^.Y;
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	752
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	753	ApplyAngleBounds(PHedgehog(Gear^.Hedgehog)^, amRope);
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	754
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	755	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle), HHGear^.dX);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	756	Gear^.dY:= -AngleCos(HHGear^.Angle);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	757	Gear^.Friction:= _450;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	758	Gear^.Elasticity:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	759	Gear^.State:= Gear^.State and not gsttmpflag;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	760	Gear^.doStep:= @doStepRope
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	761	end
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	762	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	763
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	764	procedure doStepRopeWork(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	765	var HHGear: PGear;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	766	len, tx, ty, nx, ny, ropeDx, ropeDy, mdX, mdY: hwFloat;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	767	lx, ly: LongInt;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	768	haveCollision,
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	769	haveDivided: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	770
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	771	procedure DeleteMe;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	772	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	773	with HHGear^ do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	774	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	775	Message:= Message and not gm_Attack;
2025 692308790912 Adjust routines impacted by DrawRotatedF modification, clear gstHHHJump in rope to avoid crosshair/hat drawing bug. nemo parents: 2024 diff changeset	776	State:= (State or gstMoving) and not gstWinner;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	777	end;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	778	DeleteGear(Gear)
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	779	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	780
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	781	procedure WaitCollision;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	782	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	783	with HHGear^ do
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	784	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	785	Message:= Message and not gm_Attack;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	786	State:= State or gstMoving;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	787	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	788	RopePoints.Count:= 0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	789	Gear^.Elasticity:= _0;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	790	Gear^.doStep:= @doStepRopeAfterAttack
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	791	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	792
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	793	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	794	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	795
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	796	if ((HHGear^.State and gstHHDriven) = 0)
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	797	or (CheckGearDrowning(HHGear)) then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	798	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	799	DeleteMe;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	800	exit
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	801	end;
928 b9064b48b001 Some preparation work for attacking from rope, parachute and etc. unc0rr parents: 925 diff changeset	802
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	803	if (Gear^.Message and gm_Left <> 0) then HHGear^.dX:= HHGear^.dX - _0_0002 else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	804	if (Gear^.Message and gm_Right <> 0) then HHGear^.dX:= HHGear^.dX + _0_0002;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	805
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	806	if not TestCollisionYwithGear(HHGear, 1) then HHGear^.dY:= HHGear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	807
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	808	ropeDx:= HHGear^.X - Gear^.X; // vector between hedgehog and rope attaching point
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	809	ropeDy:= HHGear^.Y - Gear^.Y;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	810
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	811	mdX:= ropeDx + HHGear^.dX;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	812	mdY:= ropeDy + HHGear^.dY;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	813	len:= _1 / Distance(mdX, mdY);
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	814	mdX:= mdX * len; // rope vector plus hedgehog direction vector normalized
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	815	mdY:= mdY * len;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	816
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	817	Gear^.dX:= mdX; // for visual purposes only
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	818	Gear^.dY:= mdY;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	819
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	820	/////
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	821	tx:= HHGear^.X;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	822	ty:= HHGear^.Y;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	823
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	824	if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Elasticity < Gear^.Friction) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	825	if not (TestCollisionXwithGear(HHGear, hwSign(ropeDx))
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	826	or TestCollisionYwithGear(HHGear, hwSign(ropeDy))) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	827	Gear^.Elasticity:= Gear^.Elasticity + _0_3;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	828
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	829	if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Elasticity > _30) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	830	if not (TestCollisionXwithGear(HHGear, -hwSign(ropeDx))
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	831	or TestCollisionYwithGear(HHGear, -hwSign(ropeDy))) then
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	832	Gear^.Elasticity:= Gear^.Elasticity - _0_3;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	833
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	834	HHGear^.X:= Gear^.X + mdX * Gear^.Elasticity;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	835	HHGear^.Y:= Gear^.Y + mdY * Gear^.Elasticity;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	836
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	837	HHGear^.dX:= HHGear^.X - tx;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	838	HHGear^.dY:= HHGear^.Y - ty;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	839	////
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	840
1554 5657cd89668d Fix rope animation unc0rr parents: 1553 diff changeset	841
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	842	haveDivided:= false;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	843	// check whether rope needs dividing
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	844	len:= _1 / Distance(ropeDx, ropeDy); // old rope pos
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	845	nx:= ropeDx * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	846	ny:= ropeDy * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	847
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	848	len:= Gear^.Elasticity - _0_3x70;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	849	while len > _0_3 do
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	850	begin
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	851	lx:= hwRound(Gear^.X + mdX * len);
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	852	ly:= hwRound(Gear^.Y + mdY * len);
1753 2ccba26f1aa4 Apply nemo's world resize patch unc0rr parents: 1752 diff changeset	853	if ((ly and LAND_HEIGHT_MASK) = 0) and ((lx and LAND_WIDTH_MASK) = 0) and (Land[ly, lx] <> 0) then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	854	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	855	with RopePoints.ar[RopePoints.Count] do
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	856	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	857	X:= Gear^.X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	858	Y:= Gear^.Y;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	859	if RopePoints.Count = 0 then RopePoints.HookAngle:= DxDy2Angle(Gear^.dY, Gear^.dX);
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	860	b:= (nx * HHGear^.dY) > (ny * HHGear^.dX);
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	861	dLen:= len
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	862	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	863	Gear^.X:= Gear^.X + nx * len;
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	864	Gear^.Y:= Gear^.Y + ny * len;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	865	inc(RopePoints.Count);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	866	TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true);
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	867	Gear^.Elasticity:= Gear^.Elasticity - len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	868	Gear^.Friction:= Gear^.Friction - len;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	869	haveDivided:= true;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	870	break
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	871	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	872	len:= len - _0_3 // should be the same as increase step
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	873	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	874
77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	875	if not haveDivided then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	876	if RopePoints.Count > 0 then // check whether the last dividing point could be removed
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	877	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	878	tx:= RopePoints.ar[Pred(RopePoints.Count)].X;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	879	ty:= RopePoints.ar[Pred(RopePoints.Count)].Y;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	880	if RopePoints.ar[Pred(RopePoints.Count)].b xor ((tx - Gear^.X) * (ty - HHGear^.Y) > (tx - HHGear^.X) * (ty - Gear^.Y)) then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	881	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	882	dec(RopePoints.Count);
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	883	Gear^.X:= RopePoints.ar[RopePoints.Count].X;
2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	884	Gear^.Y:= RopePoints.ar[RopePoints.Count].Y;
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	885	Gear^.Elasticity:= Gear^.Elasticity + RopePoints.ar[RopePoints.Count].dLen;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	886	Gear^.Friction:= Gear^.Friction + RopePoints.ar[RopePoints.Count].dLen
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	887	end
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	888	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	889
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	890	haveCollision:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	891	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	892	begin
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	893	HHGear^.dX:= -_0_6 * HHGear^.dX;
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	894	haveCollision:= true
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	895	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	896	if TestCollisionYwithGear(HHGear, hwSign(HHGear^.dY)) then
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	897	begin
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	898	HHGear^.dY:= -_0_6 * HHGear^.dY;
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	899	haveCollision:= true
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	900	end;
c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	901
1579 2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	902	if haveCollision
2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	903	and (Gear^.Message and (gm_Left or gm_Right) <> 0)
2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	904	and (Gear^.Message and (gm_Up or gm_Down) <> 0) then
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	905	begin
1579 2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	906	HHGear^.dX:= SignAs(hwAbs(HHGear^.dX) + _0_2, HHGear^.dX);
2f581b1f289e More bouncy rope, but you need to press vertical arrow and horizontal keys at once to bounce unc0rr parents: 1573 diff changeset	907	HHGear^.dY:= SignAs(hwAbs(HHGear^.dY) + _0_2, HHGear^.dY)
1551 c747e69f98f3 Add some speed to hedgehog on rope when colliding with land and pressing left or right arrow key unc0rr parents: 1548 diff changeset	908	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	909
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	910	len:= Distance(HHGear^.dX, HHGear^.dY);
940 769adb0ad082 Better rope unc0rr parents: 931 diff changeset	911	if len > _0_8 then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	912	begin
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	913	len:= _0_8 / len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	914	HHGear^.dX:= HHGear^.dX * len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	915	HHGear^.dY:= HHGear^.dY * len;
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	916	end;
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	917
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	918	if (Gear^.Message and gm_Attack) <> 0 then
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	919	if (Gear^.State and gsttmpFlag) <> 0 then
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	920	with PHedgehog(Gear^.Hedgehog)^ do
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	921	if Ammo^[CurSlot, CurAmmo].AmmoType <> amParachute then
1922 88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	922	WaitCollision
88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	923	else
88cdabb51995 Fix bug with rope and bazooka unc0rr parents: 1920 diff changeset	924	DeleteMe
1504 1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	925	else
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	926	else
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	927	if (Gear^.State and gsttmpFlag) = 0 then
1603a796f42a Some reformatting unc0rr parents: 1501 diff changeset	928	Gear^.State:= Gear^.State or gsttmpFlag;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	929	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	930
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	931	procedure doStepRopeAttach(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	932	var HHGear: PGear;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	933	tx, ty, tt: hwFloat;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	934
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	935	procedure RemoveFromAmmo;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	936	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	937	if (Gear^.State and gstAttacked) = 0 then
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	938	begin
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	939	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	940	Gear^.State:= Gear^.State or gstAttacked
1964 dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	941	end;
dc9ea05c9d2f - Another way of defining official server unc0rr parents: 1922 diff changeset	942	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^)
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	943	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	944
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	945	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	946	Gear^.X:= Gear^.X - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	947	Gear^.Y:= Gear^.Y - Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	948	Gear^.Elasticity:= Gear^.Elasticity + _1;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	949	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
517 ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	950	DeleteCI(HHGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	951	if (HHGear^.State and gstMoving) <> 0 then
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	952	if TestCollisionYwithGear(HHGear, 1) then
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	953	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	954	CheckHHDamage(HHGear);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	955	HHGear^.dY:= _0;
2025 692308790912 Adjust routines impacted by DrawRotatedF modification, clear gstHHHJump in rope to avoid crosshair/hat drawing bug. nemo parents: 2024 diff changeset	956	HHGear^.State:= HHGear^.State and not (gstMoving or gstHHJumping or gstHHHJump);
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	957	end else
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	958	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	959	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	960	HHGear^.X:= HHGear^.X + HHGear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	961	HHGear^.Y:= HHGear^.Y + HHGear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	962	Gear^.X:= Gear^.X + HHGear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	963	Gear^.Y:= Gear^.Y + HHGear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	964	HHGear^.dY:= HHGear^.dY + cGravity;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	965	tt:= Gear^.Elasticity;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	966	tx:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	967	ty:= _0;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	968	while tt > _20 do
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	969	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	970	if TestCollisionXwithXYShift(Gear, tx, hwRound(ty), -hwSign(Gear^.dX))
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	971	or TestCollisionYwithXYShift(Gear, hwRound(tx), hwRound(ty), -hwSign(Gear^.dY)) then
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	972	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	973	Gear^.X:= Gear^.X + tx;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	974	Gear^.Y:= Gear^.Y + ty;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	975	Gear^.Elasticity:= tt;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	976	Gear^.doStep:= @doStepRopeWork;
1752 769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	977	with HHGear^ do State:= State and not (gstAttacking or gstMoving or gstHHHJump);
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	978
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	979	RemoveFromAmmo;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	980
1752 769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	981	tt:= _0;
769986d39202 Fix accidental rope removinf from ammo in some cases unc0rr parents: 1736 diff changeset	982	exit
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	983	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	984	tx:= tx + Gear^.dX + Gear^.dX;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	985	ty:= ty + Gear^.dY + Gear^.dY;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	986	tt:= tt - _2;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	987	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	988	end;
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	989
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	990	CheckCollision(Gear);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	991
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	992	if (Gear^.State and gstCollision) <> 0 then
2068 9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	993	if Gear^.Elasticity < _10 then
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	994	Gear^.Elasticity:= _10000
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	995	else
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	996	begin
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	997	Gear^.doStep:= @doStepRopeWork;
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	998	with HHGear^ do State:= State and not (gstAttacking or gstHHHJump);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	999
2068 9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1000	RemoveFromAmmo;
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1001
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1002	exit
9d683de175d7 Fix rope disappearing bug unc0rr parents: 2060 diff changeset	1003	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1004
1634 486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1005	if (Gear^.Elasticity > Gear^.Friction)
486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1006	or ((Gear^.Message and gm_Attack) = 0)
486a89f0e843 Fix rope bug which allowed hedgehog to go into land unc0rr parents: 1633 diff changeset	1007	or (HHGear^.Damage > 0) then
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1008	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1009	with PHedgehog(Gear^.Hedgehog)^.Gear^ do
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1010	begin
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1011	State:= State and not gstAttacking;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1012	Message:= Message and not gm_Attack
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1013	end;
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1014	DeleteGear(Gear)
4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1015	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1016	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1017
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1018	procedure doStepRope(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1019	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1020	Gear^.dX:= - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1021	Gear^.dY:= - Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1022	Gear^.doStep:= @doStepRopeAttach
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1023	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1024
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1025	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1026	procedure doStepSmokeTrace(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1027	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1028	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1029	if Gear^.Timer > 64 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1030	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1031	Gear^.Timer:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1032	dec(Gear^.State)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1033	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1034	Gear^.dX:= Gear^.dX + cWindSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1035	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1036	if Gear^.State = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1037	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1038
4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1039	////////////////////////////////////////////////////////////////////////////////
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1040	procedure doStepExplosionWork(Gear: PGear);
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1041	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1042	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1043	if Gear^.Timer > 75 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1044	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1045	inc(Gear^.State);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1046	Gear^.Timer:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1047	if Gear^.State > 5 then DeleteGear(Gear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1048	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	1049	end;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1050
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1051	procedure doStepExplosion(Gear: PGear);
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1052	var i: LongWord;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1053	begin
1047 ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1054	for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1055	for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	1056	for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart2);
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1057	Gear^.doStep:= @doStepExplosionWork
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1058	end;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	1059
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1060	////////////////////////////////////////////////////////////////////////////////
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1061	procedure doStepMine(Gear: PGear);
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1062	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	1063	if (Gear^.State and gstMoving) <> 0 then
914 c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1064	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1065	DeleteCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1066	doStepFallingGear(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1067	if (Gear^.State and gstMoving) = 0 then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1068	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1069	AddGearCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1070	Gear^.dX:= _0;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1071	Gear^.dY:= _0
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1072	end;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1073	CalcRotationDirAngle(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1074	AllInactive:= false
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1075	end else
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1076	if ((GameTicks and $3F) = 25) then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	1077	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1078
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1079	if ((Gear^.State and gsttmpFlag) <> 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1080	if ((Gear^.State and gstAttacking) = 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1081	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1082	if ((GameTicks and $1F) = 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1083	if CheckGearNear(Gear, gtHedgehog, 46, 32) <> nil then Gear^.State:= Gear^.State or gstAttacking
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1084	end else // gstAttacking <> 0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1085	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1086	AllInactive:= false;
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1087	if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false, nil);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1088	if Gear^.Timer = 0 then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1089	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1090	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1091	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1092	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1093	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1094	dec(Gear^.Timer);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1095	end else // gsttmpFlag = 0
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1096	if TurnTimeLeft = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1097	end;
57 e1a77ae57065 - Fixed compiling .) unc0rr parents: 53 diff changeset	1098
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1099	////////////////////////////////////////////////////////////////////////////////
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1100	procedure doStepDynamite(Gear: PGear);
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1101	begin
43 e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	1102	doStepFallingGear(Gear);
e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	1103	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1104	if Gear^.Timer mod 166 = 0 then inc(Gear^.Tag);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1105	if Gear^.Timer = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1106	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1107	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1108	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1109	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1110	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1111	dec(Gear^.Timer);
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1112	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1113
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1114	///////////////////////////////////////////////////////////////////////////////
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1115	procedure doStepCase(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	1116	var i, x, y: LongInt;
1436 252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1117	k: TGearType;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1118	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1119	if (Gear^.Message and gm_Destroy) > 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1120	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1121	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1122	FreeActionsList;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1123	SetAllToActive; // something (hh, mine, etc...) could be on top of the case
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1124	with CurrentHedgehog^ do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1125	if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1126	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1127	end;
15 6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	1128
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1129	if Gear^.Damage > 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1130	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1131	x:= hwRound(Gear^.X);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1132	y:= hwRound(Gear^.Y);
1436 252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1133	k:= Gear^.Kind;
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1134	DeleteGear(Gear); // <-- delete gear!
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1135
252ab509c779 Well, okay, better fix unc0rr parents: 1435 diff changeset	1136	if k = gtCase then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1137	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1138	doMakeExplosion(x, y, 25, EXPLAutoSound);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1139	for i:= 0 to 63 do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1140	AddGear(x, y, gtFlame, 0, _0, _0, 0);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1141	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1142	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1143	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1144
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1145	if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1146	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1147	AllInactive:= false;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1148	Gear^.dY:= Gear^.dY + cGravity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1149	Gear^.Y:= Gear^.Y + Gear^.dY;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1150	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 else
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1151	if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1152	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1153	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1154	if Gear^.dY > - _0_001 then Gear^.dY:= _0
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1155	else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false, nil);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1156	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1157	CheckGearDrowning(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1158	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1159
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	1160	if (Gear^.dY.QWordValue = 0) then AddGearCI(Gear)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1161	else if (Gear^.dY.QWordValue <> 0) then DeleteCI(Gear)
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1162	end;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1163
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1164	////////////////////////////////////////////////////////////////////////////////
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1165	procedure doStepIdle(Gear: PGear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1166	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1167	AllInactive:= false;
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1168	dec(Gear^.Timer);
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1169	if Gear^.Timer = 0 then
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1170	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1171	DeleteGear(Gear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1172	AfterAttack
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1173	end
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1174	end;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1175
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1176	procedure doStepShover(Gear: PGear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1177	var HHGear: PGear;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1178	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1179	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1180	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1181	DeleteCI(HHGear);
20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1182
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1183	AmmoShove(Gear, 30, 115);
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1184
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1185	HHGear^.State:= HHGear^.State and not gstNoDamage;
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1186	Gear^.Timer:= 250;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1187	Gear^.doStep:= @doStepIdle
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1188	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1189
29b477319854 - New test map unc0rr parents: 78 diff changeset	1190	////////////////////////////////////////////////////////////////////////////////
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1191	procedure doStepWhip(Gear: PGear);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1192	var HHGear: PGear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1193	i: LongInt;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1194	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1195	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1196	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1197	DeleteCI(HHGear);
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1198
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1199	for i:= 0 to 3 do
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1200	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1201	AmmoShove(Gear, 30, 25);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1202	Gear^.X:= Gear^.X + Gear^.dX * 5
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1203	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1204
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1205	HHGear^.State:= HHGear^.State and not gstNoDamage;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1206	Gear^.Timer:= 250;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1207	Gear^.doStep:= @doStepIdle
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1208	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1209
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1210	////////////////////////////////////////////////////////////////////////////////
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1211	procedure doStepFlame(Gear: PGear);
2143 ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1212	var i: Integer;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1213	begin
29b477319854 - New test map unc0rr parents: 78 diff changeset	1214	AllInactive:= false;
1433 4af291d5d79c Repair flame dependancy on wind unc0rr parents: 1417 diff changeset	1215
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1216	if not TestCollisionYwithGear(Gear, 1) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1217	begin
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1218	if hwAbs(Gear^.dX) > _0_01 then
2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1219	Gear^.dX:= Gear^.dX * _0_995;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1220
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1221	Gear^.dY:= Gear^.dY + cGravity;
1830 b3e9ab82c364 Faster fire falling unc0rr parents: 1785 diff changeset	1222	if hwAbs(Gear^.dY) > _0_2 then Gear^.dY:= Gear^.dY * _0_995;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1223
1830 b3e9ab82c364 Faster fire falling unc0rr parents: 1785 diff changeset	1224	Gear^.X:= Gear^.X + Gear^.dX + cWindSpeed * 640;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1225	Gear^.Y:= Gear^.Y + Gear^.dY;
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1226
2143 ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1227	if (hwRound(Gear^.Y) > cWaterLine) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1228	begin
2143 ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1229	for i:= 0 to 3 do
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1230	begin
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1231	AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y) - 16 + Random(16), vgtSteam);
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1232	PlaySound(sndVaporize, false, nil);
ad05f6b2d1c0 New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on nemo parents: 2142 diff changeset	1233	end;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1234	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1235	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1236	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1237	end else begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1238	if Gear^.Timer > 0 then dec(Gear^.Timer)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1239	else begin
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1240	Gear^.Radius:= 9;
2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1241	AmmoShove(Gear, 4, 100);
1297 78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1242	Gear^.Radius:= 1;
78670b0c4a23 Try to adjust flame parameters unc0rr parents: 1295 diff changeset	1243	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 4, EXPLNoDamage);
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1244	dec(Gear^.Health);
1586 2c6f1d1f43c1 Adjust flame parameters to produce more damage unc0rr parents: 1579 diff changeset	1245	Gear^.Timer:= 450 - Gear^.Tag * 8
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1246	end
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1247	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1248
1295 27bec661581c Start flames rework unc0rr parents: 1286 diff changeset	1249	//if (((GameTicks div 8) mod 64) = Gear^.Tag) then
27bec661581c Start flames rework unc0rr parents: 1286 diff changeset	1250	// AmmoFlameWork(Gear);
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1251
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1252	if Gear^.Health = 0 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1253	DeleteGear(Gear)
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1254	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1255
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1256	////////////////////////////////////////////////////////////////////////////////
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1257	procedure doStepFirePunchWork(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1258	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1259	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1260	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1261	if ((Gear^.Message and gm_Destroy) <> 0) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1262	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1263	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1264	AfterAttack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1265	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1266	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1267
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1268	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1269	if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1270	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1271	Gear^.Tag:= hwRound(HHGear^.Y);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1272	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y - _1, _0_5, _0, cHHRadius * 4, 2);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1273	HHGear^.State:= HHGear^.State or gstNoDamage;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1274	Gear^.Y:= HHGear^.Y;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1275	AmmoShove(Gear, 30, 40);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1276	HHGear^.State:= HHGear^.State and not gstNoDamage
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1277	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1278
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1279	HHGear^.dY:= HHGear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1280	if not (HHGear^.dY.isNegative) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1281	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1282	HHGear^.State:= HHGear^.State or gstMoving;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1283	DeleteGear(Gear);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1284	AfterAttack;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1285	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1286	end;
2089 a08758aed76a Prevent unc0rr's sneaky escape nemo parents: 2087 diff changeset	1287
a08758aed76a Prevent unc0rr's sneaky escape nemo parents: 2087 diff changeset	1288	if Land[hwRound(HHGear^.Y + HHGear^.dY), hwRound(HHGear^.X)] <> COLOR_INDESTRUCTIBLE then HHGear^.Y:= HHGear^.Y + HHGear^.dY
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1289	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1290
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1291	procedure doStepFirePunch(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1292	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1293	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1294	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1295	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
514 fb8ba88a83c3 Fix firepunch regression unc0rr parents: 513 diff changeset	1296	DeleteCI(HHGear);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1297	HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
1014 3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1298	HHGear^.dX:= SignAs(cLittle, Gear^.dX);
3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1299
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1300	HHGear^.dY:= - _0_3;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1301
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1302	Gear^.X:= HHGear^.X;
979 edb8f208c1d9 Fix firepunch direction when attacking from high jump unc0rr parents: 974 diff changeset	1303	Gear^.dX:= SignAs(_0_45, Gear^.dX);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1304	Gear^.dY:= - _0_9;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1305	Gear^.doStep:= @doStepFirePunchWork;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1306	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	1307
1669 b709e061577e Mostly fix voicepack usage unc0rr parents: 1652 diff changeset	1308	PlaySound(TSound(ord(sndFirePunch1) + GetRandom(6)), false, PHedgehog(HHGear^.Hedgehog)^.Team^.voicepack)
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1309	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1310
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1311	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1312
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1313	procedure doStepParachuteWork(Gear: PGear);
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1314	var HHGear: PGear;
558476056205 Parachute unc0rr parents: 183 diff changeset	1315	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1316	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1317
516 f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1318	inc(Gear^.Timer);
f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1319
212 c8c650b23e32 Parachute fixes unc0rr parents: 211 diff changeset	1320	if TestCollisionYwithGear(HHGear, 1)
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1321	or ((HHGear^.State and gstHHDriven) = 0)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1322	or CheckGearDrowning(HHGear)
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1323	or ((Gear^.Message and gm_Attack) <> 0) then
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1324	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1325	with HHGear^ do
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1326	begin
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1327	Message:= 0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1328	SetLittle(dX);
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1329	dY:= _0;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1330	State:= State or gstMoving;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1331	end;
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1332	DeleteGear(Gear);
2060 3e9e5e1be6f5 fix crash in parachute/rope if drowning with active girder/teleport nemo parents: 2059 diff changeset	1333	isCursorVisible:= false;
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1334	exit
5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1335	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1336
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1337	if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
1133 5d5a912d6fc2 - Fix warnings unc0rr parents: 1132 diff changeset	1338	HHGear^.X:= HHGear^.X + cWindSpeed * 200;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1339
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1340	if (Gear^.Message and gm_Left) <> 0 then HHGear^.X:= HHGear^.X - cMaxWindSpeed * 40
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1341	else if (Gear^.Message and gm_Right) <> 0 then HHGear^.X:= HHGear^.X + cMaxWindSpeed * 40;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1342	if (Gear^.Message and gm_Up) <> 0 then HHGear^.Y:= HHGear^.Y - cGravity * 40
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1343	else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1344
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1345	HHGear^.Y:= HHGear^.Y + cGravity * 100;
568 d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1346	Gear^.X:= HHGear^.X;
d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1347	Gear^.Y:= HHGear^.Y
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1348	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1349
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1350	procedure doStepParachute(Gear: PGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1351	var HHGear: PGear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1352	begin
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1353	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1354
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1355	DeleteCI(HHGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1356
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1357	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1358	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1359
931 ab4d98858a40 Fix some bugs with dropping from parachute unc0rr parents: 929 diff changeset	1360	HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked or gstMoving);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1361	HHGear^.Message:= HHGear^.Message and not gm_Attack;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1362

author	nemo
	Sun, 28 Jun 2009 16:44:04 +0000
changeset 2202	29508a2924c2
parent 2196	7032f286301b
child 2204	526f8165acce
permissions	-rw-r--r--