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

author	koda
	Thu, 05 Nov 2009 20:47:42 +0000
changeset 2602	3deb9ff104da
parent 2558	b1cb0f71b704
child 2603	abed6070a669
permissions	-rw-r--r--