sheepy-clone: hedgewars/GSHandlers.inc@a9bef74bd6e0 (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
3236 4ab3917d7d44 Update (c) lines to 2010 as unc0rr requested - they all had varying values so I just took the first year mentioned, then tacked on -2010 nemo parents: 3216 diff changeset	3	* Copyright (c) 2004-2010 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
2647 0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	19	procedure makeHogsWorry(x, y: hwFloat; r: LongInt);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	20	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	21	gi: PGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	22	d: LongInt;
2647 0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	23	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	24	gi := GearsList;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	25	while gi <> nil do
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	26	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	27	if (gi^.Kind = gtHedgehog) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	28	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	29	d := r - hwRound(Distance(gi^.X - x, gi^.Y - y));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	30	if (d > 1) and not gi^.Invulnerable and (GetRandom(2) = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	31	begin
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	32	if (CurrentHedgehog^.Gear = gi) then
682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	33	PlaySound(sndOops, PHedgehog(gi^.Hedgehog)^.Team^.voicepack)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	34	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	35	begin
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	36	if (gi^.State and gstMoving) = 0 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	37	gi^.State := gi^.State or gstLoser;
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	38	if d > r div 2 then
682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	39	PlaySound(sndNooo, PHedgehog(gi^.Hedgehog)^.Team^.voicepack)
682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	40	else
682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	41	PlaySound(sndUhOh, PHedgehog(gi^.Hedgehog)^.Team^.voicepack);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	42	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	43	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	44	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	45	gi := gi^.NextGear
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	46	end;
2647 0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	47	end;
0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	48	////////////////////////////////////////////////////////////////////////////////
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	49	procedure doStepDrowningGear(Gear: PGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	50	forward;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	51
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	52	function CheckGearDrowning(Gear: PGear): boolean;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	53	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	54	skipSpeed, skipAngle, skipDecay: hwFloat;
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	55	i, maxDrops: LongInt;
4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	56	particle: PVisualGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	57	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	58	// probably needs tweaking. might need to be in a case statement based upon gear type
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	59	if cWaterLine < hwRound(Gear^.Y) + Gear^.Radius then
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	60	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	61	skipSpeed := _0_25;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	62	skipAngle := _1_9;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	63	skipDecay := _0_87;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	64	// this could perhaps be a tiny bit higher.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	65	if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > skipSpeed) and
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	66	(hwAbs(Gear^.dX) > skipAngle * hwAbs(Gear^.dY)) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	67	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	68	Gear^.dY.isNegative := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	69	Gear^.dY := Gear^.dY * skipDecay;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	70	Gear^.dX := Gear^.dX * skipDecay;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	71	CheckGearDrowning := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	72	PlaySound(sndSkip)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	73	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	74	else
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	75	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	76	CheckGearDrowning := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	77	Gear^.State := gstDrowning;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	78	Gear^.RenderTimer := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	79	if (Gear^.Kind <> gtSniperRifleShot) and (Gear^.Kind <> gtShotgunShot) and (Gear^.Kind <> gtDEagleShot) and (Gear^.Kind <> gtSineGunShot) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	80	Gear^.doStep := @doStepDrowningGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	81	if Gear^.Kind = gtHedgehog then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	82	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	83	Gear^.State := Gear^.State and (not gstHHDriven);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	84	AddCaption(Format(GetEventString(eidDrowned), PHedgehog(Gear^.Hedgehog)^.Name),
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	85	cWhiteColor, capgrpMessage);
3359 d17b9f6adae5 Engine: smxx parents: 3358 diff changeset	86	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	87	if hwRound(Gear^.Y) < cWaterLine + 64 + Gear^.Radius then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	88	// don't play splash if they are already way past the surface
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	89	PlaySound(sndSplash)
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	90	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	91
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	92	if not cReducedQuality and (hwRound(Gear^.Y) < cWaterLine + 64 + Gear^.Radius) then
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	93	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	94	AddVisualGear(hwRound(Gear^.X), cWaterLine, vgtSplash);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	95
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	96	maxDrops := (Gear^.Radius div 2) + hwRound(Gear^.dX * Gear^.Radius * 2) + hwRound(Gear^.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	97	dY * Gear^.Radius * 2);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	98	for i:= max(maxDrops div 3, min(32, Random(maxDrops))) downto 0 do
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	99	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	100	particle := AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	101	if particle <> nil then
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	102	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	103	particle^.dX := particle^.dX - (Gear^.dX / 10);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	104	particle^.dY := particle^.dY - (Gear^.dY / 5)
2982 4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	105	end
4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	106	end
4213c6a8aceb Palewolf adds droplets to his splashes nemo parents: 2974 diff changeset	107	end;
1918 975d5061712f patch by nemo: water bouncing + some tweaks unc0rr parents: 1915 diff changeset	108	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	109	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	110	CheckGearDrowning := false
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	111	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	112
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	113	procedure CheckCollision(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	114	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	115	if TestCollisionXwithGear(Gear, hwSign(Gear^.X)) or TestCollisionYwithGear(Gear, hwSign(Gear^.Y)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	116	)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	117	then Gear^.State := Gear^.State or gstCollision
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	118	else Gear^.State := Gear^.State and not gstCollision
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	procedure CheckHHDamage(Gear: PGear);
2848 8a1725b4f724 Engine: smxx parents: 2840 diff changeset	122	var
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	123	dmg: Longword;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	124	i: LongInt;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	125	particle: PVisualGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	126	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	127	if _0_4 < Gear^.dY then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	128	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	129	dmg := ModifyDamage(1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70), Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	130	if dmg < 1 then exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	131
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	132	for i:= min(12, (3 + dmg div 10)) downto 0 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	133	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	134	particle := AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	135	vgtDust);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	136	if particle <> nil then particle^.dX := particle^.dX + (Gear^.dX / 5);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	137	end;
2871 eec42a0b7014 rearrange fall damage a bit so invulnerability still causes dust nemo parents: 2859 diff changeset	138
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	139	if (Gear^.Invulnerable) then exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	140
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	141	if _0_6 < Gear^.dY then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	142	PlaySound(sndOw4, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	143	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	144	PlaySound(sndOw1, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	145
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	146	ApplyDamage(Gear, dmg);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	147	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	148	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	149
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	150	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	151	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	152	procedure CalcRotationDirAngle(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	153	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	154	dAngle: real;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	155	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	156	dAngle := (Gear^.dX.QWordValue + Gear^.dY.QWordValue) / $80000000;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	157	if not Gear^.dX.isNegative then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	158	Gear^.DirAngle := Gear^.DirAngle + dAngle
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	159	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	160	Gear^.DirAngle := Gear^.DirAngle - dAngle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	161
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	162	if Gear^.DirAngle < 0 then Gear^.DirAngle := Gear^.DirAngle + 360
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	163	else if 360 < Gear^.DirAngle then Gear^.DirAngle := Gear^.DirAngle - 360
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	164	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	165
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	166	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	167	procedure doStepDrowningGear(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	168	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	169	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	170	Gear^.Y := Gear^.Y + cDrownSpeed;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	171	Gear^.X := Gear^.X + Gear^.dX * cDrownSpeed;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	172	if (cWaterOpacity > $FE) or (hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	173	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	174	// Create some bubbles (0.5% might be better but causes too few bubbles sometimes)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	175	if (cWaterOpacity < $FF) and ((GameTicks and $1F) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	176	if (Gear^.Kind = gtHedgehog) and (Random(4) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	177	AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	178	vgtBubble)
2225 162d8f6bca25 Fewer bubbles for non-breathing gears nemo parents: 2221 diff changeset	179	else if Random(12) = 0 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	180	AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	181	vgtBubble)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	182	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	183
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	184	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	185	procedure doStepFallingGear(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	186	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	187	isFalling: boolean;
3020 9b443edb8dd1 use cWaterLine for steam, splashes and droplets nemo parents: 3019 diff changeset	188	//tmp: QWord;
2998 5b74906c14bb Slightly better behaved bounce, assuming we can make this 45 deg thing work, calcs could stand some optimisation. nemo parents: 2995 diff changeset	189	tdX, tdY: hwFloat;
3001 a1d1e0d0067a Still fiddling with bouncing, hoping to make it work nemo parents: 2998 diff changeset	190	collV, collH: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	191	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	192	if Gear^.dX > _0_995 then Gear^.dX := _0_995;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	193	if Gear^.dY > _0_995 then Gear^.dY := _0_995;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	194	Gear^.State := Gear^.State and not gstCollision;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	195	collV := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	196	collH := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	197	tdX := Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	198	tdY := Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	199
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	200
3359 d17b9f6adae5 Engine: smxx parents: 3358 diff changeset	201	// might need some testing/adjustments - just to avoid projectiles to fly forever (accelerated by wind/skips)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	202	if (hwRound(Gear^.X) < LAND_WIDTH div -2) or (hwRound(Gear^.X) > LAND_WIDTH * 3 div 2) then
3359 d17b9f6adae5 Engine: smxx parents: 3358 diff changeset	203	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	204	Gear^.State := Gear^.State or gstCollision;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	205	exit
3359 d17b9f6adae5 Engine: smxx parents: 3358 diff changeset	206	end;
d17b9f6adae5 Engine: smxx parents: 3358 diff changeset	207
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	208	if Gear^.dY.isNegative then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	209	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	210	isFalling := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	211	if TestCollisionYwithGear(Gear, -1) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	212	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	213	collV := -1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	214	Gear^.dX := Gear^.dX * Gear^.Friction;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	215	Gear^.dY := - Gear^.dY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	216	Gear^.State := Gear^.State or gstCollision
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	217	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	218	else if (Gear^.AdvBounce=1) and TestCollisionYwithGear(Gear, 1) then collV := 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	219	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	220	else if TestCollisionYwithGear(Gear, 1) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	221	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	222	collV := 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	223	isFalling := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	224	Gear^.dX := Gear^.dX * Gear^.Friction;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	225	Gear^.dY := - Gear^.dY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	226	Gear^.State := Gear^.State or gstCollision
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	227	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	228	else
3071 f40a3fbe3b34 Add more dY checks to allow greater 45 deg bouncing, simplify check for stopped gear in interests of perf. nemo parents: 3065 diff changeset	229	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	230	isFalling := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	231	if (Gear^.AdvBounce=1) and not Gear^.dY.isNegative and TestCollisionYwithGear(Gear, -1) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	232	collV := -1;
3071 f40a3fbe3b34 Add more dY checks to allow greater 45 deg bouncing, simplify check for stopped gear in interests of perf. nemo parents: 3065 diff changeset	233	end;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	234
2989 b49d87499398 Add back sheepluva's 45° patch for some weapons. Rescale Tiy's latest icons to his specifications. nemo parents: 2983 diff changeset	235
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	236	if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	237	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	238	collH := hwSign(Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	239	Gear^.dX := - Gear^.dX * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	240	Gear^.dY := Gear^.dY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	241	Gear^.State := Gear^.State or gstCollision
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	242	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	243	else if (Gear^.AdvBounce=1) and TestCollisionXwithGear(Gear, -hwSign(Gear^.dX)) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	244	collH := -hwSign(Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	245	//if Gear^.AdvBounce and (collV <>0) and (collH <> 0) and (hwSqr(tdX) + hwSqr(tdY) > _0_08) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	246	if (Gear^.AdvBounce=1) and (collV <>0) and (collH <> 0) and ((collV=-1) or ((tdX.QWordValue +
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	247	tdY.QWordValue) > _0_2.QWordValue)) then
3001 a1d1e0d0067a Still fiddling with bouncing, hoping to make it work nemo parents: 2998 diff changeset	248	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	249	Gear^.dX := tdYGear^.ElasticityGear^.Friction;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	250	Gear^.dY := tdX*Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	251	//*Gear^.Friction;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	252	Gear^.dY.isNegative := not tdY.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	253	isFalling := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	254	Gear^.AdvBounce := 10;
3001 a1d1e0d0067a Still fiddling with bouncing, hoping to make it work nemo parents: 2998 diff changeset	255	end;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	256
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	257	if Gear^.AdvBounce > 1 then dec(Gear^.AdvBounce);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	258
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	259	if isFalling then Gear^.dY := Gear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	260
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	261	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	262	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	263	CheckGearDrowning(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	264	//if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	265	if ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_02.QWordValue) and
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	266	(not isFalling) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	267	Gear^.State := Gear^.State and not gstMoving
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	268	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	269	Gear^.State := Gear^.State or gstMoving;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	270
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	271	if (Gear^.nImpactSounds > 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	272	if ((Gear^.Damage <> 0) or ((Gear^.State and (gstCollision or gstMoving)) = (gstCollision or
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	273	gstMoving))) and
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	274	((Gear^.dX.QWordValue > _0_1.QWordValue) or (Gear^.dY.QWordValue > _0_1.QWordValue)) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	275	PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), true
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	276	);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	277	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	278
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	279	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	280	procedure doStepBomb(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	281	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	282	i, x, y: LongInt;
919 fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	283	dX, dY: hwFloat;
2538 661079b00177 Just checking this in so prg can try it. May back it out nemo parents: 2524 diff changeset	284	Fire: PGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	285	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	286	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	287
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	288	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	289
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	290	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	291	if Gear^.Timer = 1000 then // might need adjustments
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	292	case Gear^.Kind of
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	293	gtAmmo_Bomb: makeHogsWorry(Gear^.X, Gear^.Y, 50);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	294	gtClusterBomb: makeHogsWorry(Gear^.X, Gear^.Y, 20);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	295	gtWatermelon: makeHogsWorry(Gear^.X, Gear^.Y, 75);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	296	gtHellishBomb: makeHogsWorry(Gear^.X, Gear^.Y, 90);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	297	gtGasBomb: makeHogsWorry(Gear^.X, Gear^.Y, 50);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	298	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	299
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	300	if (Gear^.Kind = gtBall) and ((Gear^.State and gstTmpFlag) <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	301	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	302	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	303	if (Gear^.State and gstCollision) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	304	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLDontDraw or EXPLNoGfx);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	305	end;
3004 e9b3613cc3fb Engine: smxx parents: 3002 diff changeset	306
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	307	if Gear^.Timer = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	308	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	309	case Gear^.Kind of
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	310	gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	311	gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	312	gtClusterBomb:
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	313	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	314	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	315	y := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	316	doMakeExplosion(x, y, 20, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	317	for i:= 0 to 4 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	318	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	319	dX := rndSign(GetRandom * _0_1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	320	dY := (GetRandom - _3) * _0_08;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	321	AddGear(x, y, gtCluster, 0, dX, dY, 25);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	322	end
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	323	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	324	gtWatermelon:
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	325	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	326	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	327	y := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	328	doMakeExplosion(x, y, 75, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	329	for i:= 0 to 5 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	330	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	331	dX := rndSign(GetRandom * _0_1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	332	dY := (GetRandom - _1_5) * _0_3;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	333	AddGear(x, y, gtMelonPiece, 0, dX, dY, 75)^.DirAngle := i * 60;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	334	end
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	335	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	336	gtHellishBomb:
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	337	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	338	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	339	y := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	340	doMakeExplosion(x, y, 90, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	341
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	342	for i:= 0 to 127 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	343	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	344	dX := AngleCos(i * 16) * _0_5 * (GetRandom + _1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	345	dY := AngleSin(i * 16) * _0_5 * (GetRandom + _1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	346	Fire := AddGear(x, y, gtFlame, 0, dX, dY, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	347	if i mod 2 = 0 then Fire^.State := Fire^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	348	Fire := AddGear(x, y, gtFlame, 0, dX, -dY, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	349	if i mod 2 <> 0 then Fire^.State := Fire^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	350	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	351	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	352	gtGasBomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound or EXPLPoisoned);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	353	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	354	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	355	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	356	end;
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	357
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	358	CalcRotationDirAngle(Gear);
1263 24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	359
24677a82531d Add Hellish bomb weapon unc0rr parents: 1262 diff changeset	360	if Gear^.Kind = gtHellishBomb then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	361	begin
3118 1320933fd651 New impact sounds for HHG nemo parents: 3115 diff changeset	362
1320933fd651 New impact sounds for HHG nemo parents: 3115 diff changeset	363	if Gear^.Timer = 3000 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	364	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	365	Gear^.nImpactSounds := 0;
3118 1320933fd651 New impact sounds for HHG nemo parents: 3115 diff changeset	366	PlaySound(sndHellish);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	367	end;
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	368
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	369	if (GameTicks and $3F) = 0 then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	370	if (Gear^.State and gstCollision) = 0 then
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3431 diff changeset	371	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEvilTrace);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	372	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	373	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	374	////////////////////////////////////////////////////////////////////////////////
ecf0c7e7995b Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets nemo parents: 2455 diff changeset	375	procedure doStepMolotov(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	376	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	377	i, gX, gY: LongInt;
2457 ecf0c7e7995b Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets nemo parents: 2455 diff changeset	378	dX, dY: hwFloat;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	379	Fire: PGear;
2457 ecf0c7e7995b Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets nemo parents: 2455 diff changeset	380	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	381	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	382
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	383	doStepFallingGear(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	384	CalcRotationDirAngle(Gear);
2457 ecf0c7e7995b Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets nemo parents: 2455 diff changeset	385
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	386	if (Gear^.State and gstCollision) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	387	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	388	PlaySound(sndMolotov);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	389	gX := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	390	gY := hwRound(Gear^.Y);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	391	//doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 5, EXPLAutoSound);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	392	for i:= 0 to 20 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	393	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	394	dX := AngleCos(i * 2) * ((_0_1(i div 5))) (GetRandom + _1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	395	dY := AngleSin(i * 8) * _0_5 * (GetRandom + _1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	396	Fire := AddGear(gX, gY, gtFlame, 0, dX, dY, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	397	Fire^.State := Fire^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	398	Fire := AddGear(gX, gY, gtFlame, 0, dX, -dY, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	399	Fire^.State := Fire^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	400	Fire := AddGear(gX, gY, gtFlame, 0, -dX, dY, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	401	Fire^.State := Fire^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	402	Fire := AddGear(gX, gY, gtFlame, 0, -dX, -dY, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	403	Fire^.State := Fire^.State or gsttmpFlag;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	404	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	405	DeleteGear(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	406	exit
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	407	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	408	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	409
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	410	procedure doStepWatermelon(Gear: PGear);
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	411	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	412	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	413	Gear^.doStep := @doStepBomb
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	414	end;
33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	415
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	416	procedure doStepCluster(Gear: PGear);
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	417	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	418	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	419	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	420	if (Gear^.State and gstCollision) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	421	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	422	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	423	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	424	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	425	end;
1262 e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	426
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	427	if (Gear^.Kind = gtMelonPiece) or (Gear^.Kind = gtBall) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	428	CalcRotationDirAngle(Gear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	429	else if (GameTicks and $1F) = 0 then
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3431 diff changeset	430	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace)
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	431	end;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	432
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	433	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	434	procedure doStepGrenade(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	435	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	436	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	437	Gear^.dX := Gear^.dX + cWindSpeed;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	438	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	439	if (Gear^.State and gstCollision) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	440	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	441	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	442	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	443	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	444	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	445	if (GameTicks and $3F) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	446	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	447	end;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	448
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	449	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	450	procedure doStepGrave(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	451	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	452	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	453	if Gear^.dY.isNegative then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	454	if TestCollisionY(Gear, -1) then Gear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	455
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	456	if not Gear^.dY.isNegative then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	457	if TestCollisionY(Gear, 1) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	458	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	459	Gear^.dY := - Gear^.dY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	460	if Gear^.dY > - _1div1024 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	461	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	462	Gear^.Active := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	463	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	464	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	465	else if Gear^.dY < - _0_03 then PlaySound(Gear^.ImpactSound)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	466	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	467
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	468	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	469	CheckGearDrowning(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	470	Gear^.dY := Gear^.dY + cGravity
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	471	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	472
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	473	////////////////////////////////////////////////////////////////////////////////
3080 b7fa8ad60e3b Engine: smxx parents: 3075 diff changeset	474	procedure doStepBeeWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	475	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	476	t: hwFloat;
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	477	gX,gY: LongInt;
3139 a075f5344796 Engine: smxx parents: 3136 diff changeset	478	nuw: boolean;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	479
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	480	const uw: boolean = false;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	481	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	482	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	483	gX := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	484	gY := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	485	nuw := (cWaterLine < hwRound(Gear^.Y) + Gear^.Radius);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	486	if nuw and not uw then
3139 a075f5344796 Engine: smxx parents: 3136 diff changeset	487	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	488	AddVisualGear(gX, cWaterLine, vgtSplash);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	489	AddVisualGear(gX - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	490	AddVisualGear(gX - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	491	AddVisualGear(gX - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	492	AddVisualGear(gX - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	493	StopSound(Gear^.SoundChannel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	494	Gear^.SoundChannel := LoopSound(sndBeeWater);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	495	uw := nuw
3139 a075f5344796 Engine: smxx parents: 3136 diff changeset	496	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	497	else if not nuw and uw then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	498	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	499	AddVisualGear(gX, cWaterLine, vgtSplash);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	500	StopSound(Gear^.SoundChannel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	501	Gear^.SoundChannel := LoopSound(sndBee);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	502	uw := nuw
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	503	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	504
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	505
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	506	t := Distance(Gear^.dX, Gear^.dY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	507	Gear^.dX := Gear^.Elasticity * (Gear^.dX + _0_000004 * (TargetPoint.X - gX));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	508	Gear^.dY := Gear^.Elasticity * (Gear^.dY + _0_000004 * (TargetPoint.Y - gY));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	509
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	510	t := t / Distance(Gear^.dX, Gear^.dY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	511	Gear^.dX := Gear^.dX * t;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	512	Gear^.dY := Gear^.dY * t;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	513	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	514	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	515
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	516	if (GameTicks and $3F) = 0 then
3139 a075f5344796 Engine: smxx parents: 3136 diff changeset	517	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	518	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtBeeTrace);
3139 a075f5344796 Engine: smxx parents: 3136 diff changeset	519	end;
a075f5344796 Engine: smxx parents: 3136 diff changeset	520
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	521	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	522	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	523	if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	524	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	525	StopSound(Gear^.SoundChannel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	526	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	527	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	528	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	529	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	530
3080 b7fa8ad60e3b Engine: smxx parents: 3075 diff changeset	531	procedure doStepBee(Gear: PGear);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	532	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	533	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	534	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	535	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	536	Gear^.dY := Gear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	537	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	538	if (Gear^.State and gstCollision) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	539	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	540	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	541	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	542	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	543	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	544	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	545	if Gear^.Timer = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	546	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	547	Gear^.SoundChannel := LoopSound(sndBee);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	548	Gear^.Timer := 5000;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	549	Gear^.doStep := @doStepBeeWork
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	550	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	551	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	552
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	553	////////////////////////////////////////////////////////////////////////////////
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	554	procedure doStepShotIdle(Gear: PGear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	555	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	556	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	557	inc(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	558	if Gear^.Timer > 75 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	559	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	560	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	561	AfterAttack
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	562	end
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	563	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	564
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	565	procedure doStepShotgunShot(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	566	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	567	i: LongWord;
2828 e45410eae9ea Engine: smxx parents: 2762 diff changeset	568	shell: PVisualGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	569	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	570	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	571
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	572	if ((Gear^.State and gstAnimation) = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	573	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	574	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	575	if Gear^.Timer = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	576	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	577	PlaySound(sndShotgunFire);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	578	shell := AddVisualGear(hwRound(Gear^.x), hwRound(Gear^.y), vgtShell);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	579	if shell <> nil then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	580	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	581	shell^.dX := gear^.dX / -4;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	582	shell^.dY := gear^.dY / -4;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	583	shell^.Frame := 0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	584	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	585	Gear^.State := Gear^.State or gstAnimation
2858 4c5c4bc0ae35 Add nil check to shotgun shell nemo parents: 2857 diff changeset	586	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	587	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	588	end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	589	else inc(Gear^.Timer);
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	590
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	591	i := 200;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	592	repeat
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	593	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	594	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	595	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	596	if (Gear^.State and gstCollision) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	597	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	598	Gear^.X := Gear^.X + Gear^.dX * 8;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	599	Gear^.Y := Gear^.Y + Gear^.dY * 8;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	600	ShotgunShot(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	601	Gear^.doStep := @doStepShotIdle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	602	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	603	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	604
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	605	CheckGearDrowning(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	606	if (Gear^.State and gstDrowning) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	607	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	608	Gear^.doStep := @doStepShotIdle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	609	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	610	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	611	dec(i)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	612	until i = 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	613	if (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0) or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	614	then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	615	Gear^.doStep := @doStepShotIdle
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	616	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	617
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	618	////////////////////////////////////////////////////////////////////////////////
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	619	procedure doStepBulletWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	620	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	621	i, x, y: LongWord;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	622	oX, oY: hwFloat;
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	623	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	624	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	625	inc(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	626	i := 80;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	627	oX := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	628	oY := Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	629	repeat
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	630	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	631	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	632	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	633	y := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	634	if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	635	and (Land[y, x] <> 0) then inc(Gear^.Damage);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	636	if Gear^.Damage > 5 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	637	if Gear^.Ammo^.AmmoType = amDEagle then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	638	AmmoShove(Gear, 7, 20)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	639	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	640	AmmoShove(Gear, Gear^.Timer, 20);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	641	CheckGearDrowning(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	642	dec(i)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	643	until (i = 0) or (Gear^.Damage > Gear^.Health) or ((Gear^.State and gstDrowning) <> 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	644	if Gear^.Damage > 0 then
2994 7ae3067546f2 Palewolf adds bubbles and splashes when firing bullets into the water nemo parents: 2989 diff changeset	645	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	646	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	647	dec(Gear^.Health, Gear^.Damage);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	648	Gear^.Damage := 0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	649	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	650	if ((Gear^.State and gstDrowning) <> 0) and (Gear^.Damage < Gear^.Health) and (cWaterOpacity < $FF) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	651	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	652	for i:=(Gear^.Health - Gear^.Damage) * 4 downto 0 do
2994 7ae3067546f2 Palewolf adds bubbles and splashes when firing bullets into the water nemo parents: 2989 diff changeset	653	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	654	if Random(6) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	655	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtBubble);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	656	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	657	Gear^.Y := Gear^.Y + Gear^.dY;
2994 7ae3067546f2 Palewolf adds bubbles and splashes when firing bullets into the water nemo parents: 2989 diff changeset	658	end;
7ae3067546f2 Palewolf adds bubbles and splashes when firing bullets into the water nemo parents: 2989 diff changeset	659	end;
1760 55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	660
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	661	if (Gear^.Health <= 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	662	or (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	663	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	664	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	665	if (Gear^.Kind = gtSniperRifleShot) and ((GameFlags and gfLaserSight) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	666	cLaserSighting := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	667	if (Gear^.Ammo^.NumPerTurn <= CurrentHedgehog^.MultiShootAttacks) and
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	668	((GameFlags and gfArtillery) = 0) then cArtillery := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	669	Gear^.doStep := @doStepShotIdle
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	670	end;
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	671	end;
2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	672
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	673	procedure doStepDEagleShot(Gear: PGear);
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	674	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	675	PlaySound(sndGun);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	676	Gear^.doStep := @doStepBulletWork
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	677	end;
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	678
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	679	procedure doStepSniperRifleShot(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	680	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	681	HHGear: PGear;
2828 e45410eae9ea Engine: smxx parents: 2762 diff changeset	682	shell: PVisualGear;
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	683	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	684	cArtillery := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	685	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	686	HHGear^.State := HHGear^.State or gstNotKickable;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	687	HedgehogChAngle(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	688	if not cLaserSighting then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	689	// 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	690	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	691	cLaserSighting := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	692	HHGear^.Message := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	693	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	694	end;
b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	695
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	696	if (HHGear^.Message and gm_Attack) <> 0 then
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	697	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	698	shell := AddVisualGear(hwRound(Gear^.x), hwRound(Gear^.y), vgtShell);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	699	if shell <> nil then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	700	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	701	shell^.dX := gear^.dX / -2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	702	shell^.dY := gear^.dY / -2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	703	shell^.Frame := 1
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	704	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	705	Gear^.State := Gear^.State or gstAnimation;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	706	Gear^.dX := SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _0_5;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	707	Gear^.dY := -AngleCos(HHGear^.Angle) * _0_5;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	708	PlaySound(sndGun);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	709	Gear^.doStep := @doStepBulletWork;
2024 2985f3bd18b7 Disable long jump in artillery mode, make snipre rifle single shot nemo parents: 2023 diff changeset	710	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	711	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	712	if (GameTicks mod 32) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	713	if (GameTicks mod 4096) < 2048 then
2052 1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	714	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	715	if (HHGear^.Angle + 1 <= cMaxAngle) then inc(HHGear^.Angle)
2052 1f67933cb620 constrain angle, decrement turn time nemo parents: 2042 diff changeset	716	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	717	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	718	if (HHGear^.Angle - 1 >= 0) then dec(HHGear^.Angle);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	719
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	720	if (TurnTimeLeft > 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	721	dec(TurnTimeLeft)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	722	else
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	723	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	724	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	725	AfterAttack
2058 5c2b52755141 Neglected to delete gear at end of turn nemo parents: 2052 diff changeset	726	end;
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	727	end;
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	728
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	729	////////////////////////////////////////////////////////////////////////////////
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	730	procedure doStepActionTimer(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	731	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	732	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	733	case Gear^.Kind of
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	734	gtATStartGame:
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	735	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	736	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	737	if Gear^.Timer = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	738	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	739	AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	740	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	741	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	742	gtATSmoothWindCh:
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	743	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	744	if Gear^.Timer = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	745	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	746	if WindBarWidth < Gear^.Tag then inc(WindBarWidth)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	747	else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	748	if WindBarWidth <> Gear^.Tag then Gear^.Timer := 10;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	749	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	750	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	751	gtATFinishGame:
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	752	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	753	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	754	if Gear^.Timer = 1000 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	755	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	756	ScreenFade := sfToBlack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	757	ScreenFadeValue := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	758	ScreenFadeSpeed := 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	759	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	760	if Gear^.Timer = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	761	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	762	SendIPC('N');
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	763	SendIPC('q');
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	764	GameState := gsExit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	765	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	766	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	767	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	768	if Gear^.Timer = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	769	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	770
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	771	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	772	procedure doStepPickHammerWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	773	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	774	i, ei: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	775	HHGear: PGear;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	776	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	777	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	778	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	779	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	780	if (Gear^.Timer = 0)or((Gear^.Message and gm_Destroy) <> 0)or((HHGear^.State and gstHHDriven) =
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	781	0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	782	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	783	StopSound(Gear^.SoundChannel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	784	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	785	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	786	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	787	end;
845 ca72cf446ec2 Add sprite for pickhammer unc0rr parents: 820 diff changeset	788
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	789	if (Gear^.Timer mod 33) = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	790	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	791	HHGear^.State := HHGear^.State or gstNoDamage;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	792	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 7, 6, EXPLDontDraw);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	793	HHGear^.State := HHGear^.State and not gstNoDamage
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	794	end;
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	795
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	796	if (Gear^.Timer mod 47) = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	797	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	798	i := hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	799	ei := hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	800	while i <= ei do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	801	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	802	DrawExplosion(i, hwRound(Gear^.Y) + 3, 3);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	803	inc(i, 1)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	804	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	805
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	806	if CheckLandValue(hwRound(Gear^.X + Gear^.dX + SignAs(_6,Gear^.dX)), hwRound(Gear^.Y + _1_9)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	807	, 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	808	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	809	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	810	Gear^.Y := Gear^.Y + _1_9;
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	811	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	812	SetAllHHToActive;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	813	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	814	if TestCollisionYwithGear(Gear, 1) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	815	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	816	Gear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	817	SetLittle(HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	818	HHGear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	819	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	820	else
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	821	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	822	Gear^.dY := Gear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	823	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	824	if hwRound(Gear^.Y) > cWaterLine then Gear^.Timer := 1
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	825	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	826
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	827	Gear^.X := Gear^.X + HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	828	HHGear^.X := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	829	HHGear^.Y := Gear^.Y - int2hwFloat(cHHRadius);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	830
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	831	if (Gear^.Message and gm_Attack) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	832	if (Gear^.State and gsttmpFlag) <> 0 then Gear^.Timer := 1
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	833	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	834	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	835	if (Gear^.State and gsttmpFlag) = 0 then Gear^.State := Gear^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	836	if ((Gear^.Message and gm_Left) <> 0) then Gear^.dX := - _0_3
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	837	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	838	if ((Gear^.Message and gm_Right) <> 0) then Gear^.dX := _0_3
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	839	else Gear^.dX := _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	840	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	841
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	842	procedure doStepPickHammer(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	843	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	844	i, y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	845	ar: TRangeArray;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	846	HHGear: PGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	847	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	848	i := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	849	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	850
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	851	y := hwRound(Gear^.Y) - cHHRadius * 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	852	while y < hwRound(Gear^.Y) do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	853	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	854	ar[i].Left := hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	855	ar[i].Right := hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	856	inc(y, 2);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	857	inc(i)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	858	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	859
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	860	DrawHLinesExplosions(@ar, 3, hwRound(Gear^.Y) - cHHRadius * 2, 2, Pred(i));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	861	Gear^.dY := HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	862	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	863
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	864	Gear^.SoundChannel := LoopSound(sndPickhammer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	865	doStepPickHammerWork(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	866	Gear^.doStep := @doStepPickHammerWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	867	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	868
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	869	////////////////////////////////////////////////////////////////////////////////
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	870	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	871	BTPrevAngle, BTSteps: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	872
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	873	procedure doStepBlowTorchWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	874	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	875	HHGear: PGear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	876	b: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	877	prevX: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	878	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	879	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	880	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	881	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	882
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	883	HedgehogChAngle(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	884
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	885	b := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	886
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	887	if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	888	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	889	Gear^.dX := SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	890	Gear^.dY := AngleCos(HHGear^.Angle) * ( - _0_5);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	891	BTPrevAngle := HHGear^.Angle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	892	b := true
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	893	end;
1528 3fee15104c1d More stable blowtorch: unc0rr parents: 1507 diff changeset	894
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	895	if ((HHGear^.State and gstMoving) <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	896	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	897	doStepHedgehogMoving(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	898	if (HHGear^.State and gstHHDriven) = 0 then Gear^.Timer := 0
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	899	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	900
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	901	if Gear^.Timer mod cHHStepTicks = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	902	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	903	b := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	904	if Gear^.dX.isNegative then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	905	HHGear^.Message := (HHGear^.Message and (gm_Attack or gm_Up or gm_Down)) or gm_Left
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	906	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	907	HHGear^.Message := (HHGear^.Message and (gm_Attack or gm_Up or gm_Down)) or gm_Right;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	908
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	909	if ((HHGear^.State and gstMoving) = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	910	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	911	HHGear^.State := HHGear^.State and not gstAttacking;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	912	prevX := hwRound(HHGear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	913
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	914	// why the call to HedgehogStep then a further increment of X?
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	915	if (prevX = hwRound(HHGear^.X)) and
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	916	CheckLandValue(hwRound(HHGear^.X + SignAs(_6, HHGear^.dX)), hwRound(HHGear^.Y),
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	917	COLOR_INDESTRUCTIBLE) then HedgehogStep(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	918
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	919	if (prevX = hwRound(HHGear^.X)) and
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	920	CheckLandValue(hwRound(HHGear^.X + SignAs(_6, HHGear^.dX)), hwRound(HHGear^.Y),
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	921	COLOR_INDESTRUCTIBLE) then HHGear^.X := HHGear^.X + SignAs(_1, HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	922	HHGear^.State := HHGear^.State or gstAttacking
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	923	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	924
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	925	inc(BTSteps);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	926	if BTSteps = 7 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	927	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	928	BTSteps := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	929	if CheckLandValue(hwRound(HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC) + SignAs(_6,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	930	Gear^.dX)), hwRound(HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC)),
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	931	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	932	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	933	Gear^.X := HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	934	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	935	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	936	HHGear^.State := HHGear^.State or gstNoDamage;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	937	AmmoShove(Gear, 2, 15);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	938	HHGear^.State := HHGear^.State and not gstNoDamage
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	939	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	940	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	941
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	942	if b then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	943	DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	944	Gear^.dY) * 7,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	945	Gear^.dX, Gear^.dY,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	946	cHHRadius * 5, cHHRadius * 2 + 7);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	947
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	948	if (Gear^.Timer = 0) or ((HHGear^.Message and gm_Attack) <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	949	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	950	HHGear^.Message := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	951	HHGear^.State := HHGear^.State and (not gstNotKickable);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	952	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	953	AfterAttack
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	954	end
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	955	end;
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	956
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	957	procedure doStepBlowTorch(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	958	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	959	HHGear: PGear;
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	960	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	961	BTPrevAngle := High(LongInt);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	962	BTSteps := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	963	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	964	HHGear^.Message := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	965	HHGear^.State := HHGear^.State or gstNotKickable;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	966	Gear^.doStep := @doStepBlowTorchWork
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	967	end;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	968
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	969	////////////////////////////////////////////////////////////////////////////////
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	970
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	971	procedure doStepRope(Gear: PGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	972	forward;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	973
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	974	procedure doStepRopeAfterAttack(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	975	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	976	HHGear: PGear;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	977	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	978	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	979	if ((HHGear^.State and gstHHDriven) = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	980	or (CheckGearDrowning(HHGear))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	981	or TestCollisionYwithGear(HHGear, 1) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	982	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	983	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	984	isCursorVisible := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	985	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	986	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	987	end;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	988
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	989	HedgehogChAngle(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	990
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	991	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	992
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	993	if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	994	HHGear^.X := HHGear^.X + HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	995	HHGear^.Y := HHGear^.Y + HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	996	HHGear^.dY := HHGear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	997
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	998	if (Gear^.Message and gm_Attack) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	999	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1000	Gear^.X := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1001	Gear^.Y := HHGear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1002
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1003	ApplyAngleBounds(PHedgehog(Gear^.Hedgehog)^, amRope);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1004
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1005	Gear^.dX := SignAs(AngleSin(HHGear^.Angle), HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1006	Gear^.dY := -AngleCos(HHGear^.Angle);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1007	Gear^.Friction := _450;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1008	Gear^.Elasticity := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1009	Gear^.State := Gear^.State and not gsttmpflag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1010	Gear^.doStep := @doStepRope;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1011	end
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	1012	end;
28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	1013
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1014	procedure doStepRopeWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1015	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1016	HHGear: PGear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1017	len, tx, ty, nx, ny, ropeDx, ropeDy, mdX, mdY: hwFloat;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1018	lx, ly: LongInt;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1019	haveCollision,
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1020	haveDivided: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1021
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1022	procedure DeleteMe;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1023	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1024	with HHGear^ do
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1025	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1026	Message := Message and not gm_Attack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1027	State := (State or gstMoving) and not gstWinner;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1028	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1029	DeleteGear(Gear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1030	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1031
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1032	procedure WaitCollision;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1033	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1034	with HHGear^ do
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1035	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1036	Message := Message and not gm_Attack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1037	State := State or gstMoving;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1038	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1039	RopePoints.Count := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1040	Gear^.Elasticity := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1041	Gear^.doStep := @doStepRopeAfterAttack
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1042	end;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	1043
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1044	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1045	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1046
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1047	if ((HHGear^.State and gstHHDriven) = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1048	or (CheckGearDrowning(HHGear)) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1049	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1050	PlaySound(sndRopeRelease);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1051	DeleteMe;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1052	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1053	end;
928 b9064b48b001 Some preparation work for attacking from rope, parachute and etc. unc0rr parents: 925 diff changeset	1054
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1055	if (Gear^.Message and gm_Left <> 0) then HHGear^.dX := HHGear^.dX - _0_0002
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1056	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1057	if (Gear^.Message and gm_Right <> 0) then HHGear^.dX := HHGear^.dX + _0_0002;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1058
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1059	if not TestCollisionYwithGear(HHGear, 1) then HHGear^.dY := HHGear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1060
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1061	ropeDx := HHGear^.X - Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1062	// vector between hedgehog and rope attaching point
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1063	ropeDy := HHGear^.Y - Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1064
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1065	mdX := ropeDx + HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1066	mdY := ropeDy + HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1067	len := _1 / Distance(mdX, mdY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1068	mdX := mdX * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1069	// rope vector plus hedgehog direction vector normalized
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1070	mdY := mdY * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1071
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1072	Gear^.dX := mdX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1073	// for visual purposes only
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1074	Gear^.dY := mdY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1075
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1076	/////
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1077	tx := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1078	ty := HHGear^.Y;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1079
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1080	if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Elasticity < Gear^.Friction) then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1081	if not (TestCollisionXwithGear(HHGear, hwSign(ropeDx))
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1082	or TestCollisionYwithGear(HHGear, hwSign(ropeDy))) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1083	Gear^.Elasticity := Gear^.Elasticity + _0_3;
1652 2f15a299ffc6 Reorganize rope code, adjust some constants unc0rr parents: 1643 diff changeset	1084
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1085	if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Elasticity > _30) then
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1086	if not (TestCollisionXwithGear(HHGear, -hwSign(ropeDx))
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1087	or TestCollisionYwithGear(HHGear, -hwSign(ropeDy))) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1088	Gear^.Elasticity := Gear^.Elasticity - _0_3;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1089
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1090	HHGear^.X := Gear^.X + mdX * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1091	HHGear^.Y := Gear^.Y + mdY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1092
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1093	HHGear^.dX := HHGear^.X - tx;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1094	HHGear^.dY := HHGear^.Y - ty;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1095	////
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1096
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1097
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1098	haveDivided := false;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1099	// check whether rope needs dividing
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1100	len := _1 / Distance(ropeDx, ropeDy);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1101	// old rope pos
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1102	nx := ropeDx * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1103	ny := ropeDy * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1104
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1105	len := Gear^.Elasticity - _5;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1106	while len > _3 do
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1107	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1108	lx := hwRound(Gear^.X + mdX * len);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1109	ly := hwRound(Gear^.Y + mdY * len);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1110	if ((ly and LAND_HEIGHT_MASK) = 0) and ((lx and LAND_WIDTH_MASK) = 0) and (Land[ly, lx] <> 0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1111	) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1112	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1113	with RopePoints.ar[RopePoints.Count] do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1114	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1115	X := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1116	Y := Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1117	if RopePoints.Count = 0 then RopePoints.HookAngle := DxDy2Angle(Gear^.dY, Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1118	b := (nx * HHGear^.dY) > (ny * HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1119	dLen := len
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1120	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1121	with RopePoints.rounded[RopePoints.Count] do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1122	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1123	X := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1124	Y := hwRound(Gear^.Y);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1125	end;
1553 77f326c7f0ef The best final fix for rope stucking in the ground bug unc0rr parents: 1552 diff changeset	1126
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1127	Gear^.X := Gear^.X + nx * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1128	Gear^.Y := Gear^.Y + ny * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1129	inc(RopePoints.Count);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1130	TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1131	Gear^.Elasticity := Gear^.Elasticity - len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1132	Gear^.Friction := Gear^.Friction - len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1133	haveDivided := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1134	break
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1135	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1136	len := len - _0_3 // should be the same as increase step
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1137	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1138
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1139	if not haveDivided then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1140	if RopePoints.Count > 0 then // check whether the last dividing point could be removed
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1141	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1142	tx := RopePoints.ar[Pred(RopePoints.Count)].X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1143	ty := RopePoints.ar[Pred(RopePoints.Count)].Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1144	mdX := tx - Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1145	mdY := ty - Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1146	if RopePoints.ar[Pred(RopePoints.Count)].b xor (mdX * (ty - HHGear^.Y) > (tx - HHGear^.X
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1147	) * mdY) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1148	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1149	dec(RopePoints.Count);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1150	Gear^.X := RopePoints.ar[RopePoints.Count].X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1151	Gear^.Y := RopePoints.ar[RopePoints.Count].Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1152	Gear^.Elasticity := Gear^.Elasticity + RopePoints.ar[RopePoints.Count].dLen;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1153	Gear^.Friction := Gear^.Friction + RopePoints.ar[RopePoints.Count].dLen;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1154
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1155	// restore hog position
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1156	len := _1 / Distance(mdX, mdY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1157	mdX := mdX * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1158	mdY := mdY * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1159
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1160	HHGear^.X := Gear^.X - mdX * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1161	HHGear^.Y := Gear^.Y - mdY * Gear^.Elasticity;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1162	end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1163	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1164
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1165	haveCollision := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1166	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1167	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1168	HHGear^.dX := -_0_6 * HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1169	haveCollision := true
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1170	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1171	if TestCollisionYwithGear(HHGear, hwSign(HHGear^.dY)) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1172	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1173	HHGear^.dY := -_0_6 * HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1174	haveCollision := true
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1175	end;
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	1176
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1177	if haveCollision
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1178	and (Gear^.Message and (gm_Left or gm_Right) <> 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1179	and (Gear^.Message and (gm_Up or gm_Down) <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1180	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1181	HHGear^.dX := SignAs(hwAbs(HHGear^.dX) + _0_2, HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1182	HHGear^.dY := SignAs(hwAbs(HHGear^.dY) + _0_2, HHGear^.dY)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1183	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1184
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1185	len := Distance(HHGear^.dX, HHGear^.dY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1186	if len > _0_8 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1187	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1188	len := _0_8 / len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1189	HHGear^.dX := HHGear^.dX * len;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1190	HHGear^.dY := HHGear^.dY * len;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1191	end;
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	1192
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1193	if (Gear^.Message and gm_Attack) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1194	if (Gear^.State and gsttmpFlag) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1195	with PHedgehog(Gear^.Hedgehog)^ do
3320 506f7d6a82b3 Engine: smxx parents: 3307 diff changeset	1196	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1197	PlaySound(sndRopeRelease);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1198	if Ammo^[CurSlot, CurAmmo].AmmoType <> amParachute then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1199	WaitCollision
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1200	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1201	DeleteMe
3320 506f7d6a82b3 Engine: smxx parents: 3307 diff changeset	1202	end
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1203	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1204	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1205	if (Gear^.State and gsttmpFlag) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1206	Gear^.State := Gear^.State or gsttmpFlag;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1207	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1208
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1209	procedure doStepRopeAttach(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1210	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1211	HHGear: PGear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1212	tx, ty, tt: hwFloat;
1781 28f674367d68 - Right way to handle rope ammo unc0rr parents: 1776 diff changeset	1213
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1214	procedure RemoveFromAmmo;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1215	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1216	if (Gear^.State and gstAttacked) = 0 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1217	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1218	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1219	Gear^.State := Gear^.State or gstAttacked
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1220	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1221	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1222	end;
2376 ece7b87f1334 Strip trailing spaces nemo parents: 2367 diff changeset	1223
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1224	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1225	Gear^.X := Gear^.X - Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1226	Gear^.Y := Gear^.Y - Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1227	Gear^.Elasticity := Gear^.Elasticity + _1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1228
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1229	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1230	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1231
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1232	if (HHGear^.State and gstMoving) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1233	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1234	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1235	if HHGear^.dY.isNegative and TestCollisionYwithGear(HHGear, -1) then HHGear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1236
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1237	HHGear^.X := HHGear^.X + HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1238	Gear^.X := Gear^.X + HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1239
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1240	if TestCollisionYwithGear(HHGear, 1) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1241	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1242	CheckHHDamage(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1243	HHGear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1244	//HHGear^.State:= HHGear^.State and not (gstHHJumping or gstHHHJump);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1245	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1246	else
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1247	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1248	HHGear^.Y := HHGear^.Y + HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1249	Gear^.Y := Gear^.Y + HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1250	HHGear^.dY := HHGear^.dY + cGravity;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1251	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1252
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1253	tt := Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1254	tx := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1255	ty := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1256	while tt > _20 do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1257	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1258	if TestCollisionXwithXYShift(Gear, tx, hwRound(ty), -hwSign(Gear^.dX))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1259	or TestCollisionYwithXYShift(Gear, hwRound(tx), hwRound(ty), -hwSign(Gear^.dY)) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1260	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1261	Gear^.X := Gear^.X + tx;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1262	Gear^.Y := Gear^.Y + ty;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1263	Gear^.Elasticity := tt;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1264	Gear^.doStep := @doStepRopeWork;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1265	PlaySound(sndRopeAttach);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1266	with HHGear^ do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1267	State := State and not (gstAttacking or gstHHJumping or gstHHHJump);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1268
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1269	RemoveFromAmmo;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1270
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1271	tt := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1272	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1273	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1274	tx := tx + Gear^.dX + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1275	ty := ty + Gear^.dY + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1276	tt := tt - _2;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1277	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1278	end;
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1279
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1280	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1281
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1282	if (Gear^.State and gstCollision) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1283	if Gear^.Elasticity < _10 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1284	Gear^.Elasticity := _10000
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1285	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1286	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1287	Gear^.doStep := @doStepRopeWork;
3320 506f7d6a82b3 Engine: smxx parents: 3307 diff changeset	1288	PlaySound(sndRopeAttach);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1289	with HHGear^ do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1290	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	1291
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1292	RemoveFromAmmo;
2376 ece7b87f1334 Strip trailing spaces nemo parents: 2367 diff changeset	1293
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1294	exit
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1295	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1296
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1297	if (Gear^.Elasticity > Gear^.Friction)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1298	or ((Gear^.Message and gm_Attack) = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1299	or ((HHGear^.State and gstHHDriven) = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1300	or (HHGear^.Damage > 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1301	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1302	with PHedgehog(Gear^.Hedgehog)^.Gear^ do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1303	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1304	State := State and not gstAttacking;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1305	Message := Message and not gm_Attack
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1306	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1307	DeleteGear(Gear)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1308	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1309	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1310
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1311	procedure doStepRope(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1312	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1313	Gear^.dX := - Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1314	Gear^.dY := - Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1315	Gear^.doStep := @doStepRopeAttach;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1316	PlaySound(sndRopeShot)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1317	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1318
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1319	////////////////////////////////////////////////////////////////////////////////
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1320	procedure doStepMine(Gear: PGear);
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1321	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1322	if (Gear^.State and gstMoving) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1323	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1324	DeleteCI(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1325	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1326	if (Gear^.State and gstMoving) = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1327	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1328	AddGearCI(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1329	Gear^.dX := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1330	Gear^.dY := _0
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1331	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1332	CalcRotationDirAngle(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1333	AllInactive := false
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1334	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1335	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1336	if ((GameTicks and $3F) = 25) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1337	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1338
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1339	if ((Gear^.State and gsttmpFlag) <> 0) and (Gear^.Health <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1340	if ((Gear^.State and gstAttacking) = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1341	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1342	if ((GameTicks and $1F) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1343	if CheckGearNear(Gear, gtHedgehog, 46, 32) <> nil then Gear^.State := Gear^.State or
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1344	gstAttacking
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1345	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1346	else // gstAttacking <> 0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1347	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1348	AllInactive := false;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1349	if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1350	if Gear^.Timer = 0 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1351	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1352	if ((Gear^.State and gstWait) <> 0) or
2882 b9aceb3fe3d6 Dude mine probability spinner nemo parents: 2871 diff changeset	1353	(cMineDudPercent = 0) or
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1354	(getRandom(100) > cMineDudPercent) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1355	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1356	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1357	DeleteGear(Gear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1358	end
2886 c7087a565bd2 trying a little hiss and steam nemo parents: 2882 diff changeset	1359	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1360	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1361	AddVisualGear(hwRound(Gear^.X) - 4 + Random(8), hwRound(Gear^.Y) - 4 - Random(4),
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1362	vgtSmoke);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1363	PlaySound(sndVaporize);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1364	Gear^.Health := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1365	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1366	exit
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1367	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1368	dec(Gear^.Timer);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1369	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1370	else // gsttmpFlag = 0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1371	if TurnTimeLeft = 0 then Gear^.State := Gear^.State or gsttmpFlag;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	1372	end;
57 e1a77ae57065 - Fixed compiling .) unc0rr parents: 53 diff changeset	1373
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1374	////////////////////////////////////////////////////////////////////////////////
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1375	procedure doStepDynamite(Gear: PGear);
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1376	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1377	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1378	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1379	if Gear^.Timer mod 166 = 0 then inc(Gear^.Tag);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1380	if Gear^.Timer = 1000 then // might need better timing
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1381	makeHogsWorry(Gear^.X, Gear^.Y, 75);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1382	if Gear^.Timer = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1383	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1384	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1385	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1386	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1387	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1388	dec(Gear^.Timer);
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	1389	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1390
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1391	///////////////////////////////////////////////////////////////////////////////
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1392
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1393	(*
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1394	TODO
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1395	Increase damage as barrel smokes?
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1396	Try tweaking friction some more
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1397	*)
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1398	procedure doStepRollingBarrel(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1399	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1400	i: LongInt;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1401	particle: PVisualGear;
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1402	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1403	Gear^.State := Gear^.State or gstAnimation;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1404	if ((Gear^.dX.QWordValue <> 0) or (Gear^.dY.QWordValue <> 0)) then
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1405	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1406	DeleteCI(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1407	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1408	if not Gear^.dY.isNegative and (Gear^.dY > _0_03) and TestCollisionYwithGear(Gear, 1) then
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1409	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1410	Gear^.State := Gear^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1411	inc(Gear^.Damage, hwRound(Gear^.dY * _50));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1412	for i:= min(12, hwRound(Gear^.dY*_10)) downto 0 do
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1413	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1414	particle := AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1415	vgtDust);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1416	if particle <> nil then particle^.dX := particle^.dX + (Gear^.dX / 5)
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1417	end
2944 e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1418	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1419	else if not Gear^.dX.isNegative and (Gear^.dX > _0_03) and TestCollisionXwithGear(Gear, 1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1420	then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1421	inc(Gear^.Damage, hwRound(Gear^.dX * _50))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1422	else if Gear^.dY.isNegative and (Gear^.dY < -_0_03) and TestCollisionYwithGear(Gear, -1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1423	then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1424	inc(Gear^.Damage, hwRound(Gear^.dY * -_50))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1425	else if Gear^.dX.isNegative and (Gear^.dX < -_0_03) and TestCollisionXwithGear(Gear, -1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1426	then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1427	inc(Gear^.Damage, hwRound(Gear^.dX * -_50));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1428
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1429	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1430	CalcRotationDirAngle(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1431	//CheckGearDrowning(Gear)
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1432	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1433	else
2963 0f0789204802 This might be all it takes to prevent the desync. needs local/remote testing. Also toggle 2nd barrel state on 0 movement nemo parents: 2955 diff changeset	1434	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1435	Gear^.State := Gear^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1436	AddGearCI(Gear)
2963 0f0789204802 This might be all it takes to prevent the desync. needs local/remote testing. Also toggle 2nd barrel state on 0 movement nemo parents: 2955 diff changeset	1437	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1438
2944 e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1439	(*
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1440	Attempt to make a barrel knock itself over an edge. Would need more checks to avoid issues like burn damage
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1441	begin
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1442	x:= hwRound(Gear^.X);
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1443	y:= hwRound(Gear^.Y);
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1444	if (((y+1) and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1445	if (Land[y+1, x] = 0) then
2944 e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1446	begin
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1447	if (((y+1) and LAND_HEIGHT_MASK) = 0) and (((x+Gear^.Radius-2) and LAND_WIDTH_MASK) = 0) and (Land[y+1, x+Gear^.Radius-2] = 0) then
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1448	Gear^.dX:= -_0_08
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1449	else if (((y+1 and LAND_HEIGHT_MASK)) = 0) and (((x-(Gear^.Radius-2)) and LAND_WIDTH_MASK) = 0) and (Land[y+1, x-(Gear^.Radius-2)] = 0) then
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1450	Gear^.dX:= _0_08;
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1451	end;
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1452	if Gear^.dX.QWordValue = 0 then AddGearCI(Gear)
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1453	end; *)
e8a891bf6660 Adjust fall damage again, zero out X/Y to avoid sinking/shivering barrels. nemo parents: 2941 diff changeset	1454
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1455	if not Gear^.dY.isNegative and (Gear^.dY < _0_001) and TestCollisionYwithGear(Gear, 1) then Gear
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1456	^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1457	if hwAbs(Gear^.dX) < _0_001 then Gear^.dX := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1458
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1459	if ((Gear^.Health * 100 div cBarrelHealth) < random(90)) and ((GameTicks and $FF) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1460	if (cBarrelHealth div Gear^.Health) > 2 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1461	AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y) - 2, vgtSmoke)
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1462	else
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1463	AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y) - 2, vgtSmokeWhite);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1464	dec(Gear^.Health, Gear^.Damage);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1465	Gear^.Damage := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1466	if Gear^.Health <= 0 then Gear^.doStep := @doStepCase;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1467	// Hand off to doStepCase for the explosion
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1468
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1469	end;
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1470
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1471	procedure doStepCase(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1472	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1473	i, x, y: LongInt;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1474	k: TGearType;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1475	exBoom: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1476	dX, dY: HWFloat;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	1477	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1478	k := Gear^.Kind;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1479	exBoom := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1480
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1481	if (Gear^.Message and gm_Destroy) > 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1482	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1483	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1484	FreeActionsList;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1485	SetAllToActive;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1486	// something (hh, mine, etc...) could be on top of the case
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1487	with CurrentHedgehog^ do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1488	if Gear <> nil then Gear^.Message := Gear^.Message and not (gm_LJump or gm_HJump);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1489	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1490	end;
15 6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	1491
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1492	if k = gtExplosives then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1493	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1494	//if V > _0_03 then Gear^.State:= Gear^.State or gstAnimation;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1495	if (hwAbs(Gear^.dX) > _0_15) or ((hwAbs(Gear^.dY) > _0_15) and (hwAbs(Gear^.dX) > _0_02))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1496	then Gear^.doStep := @doStepRollingBarrel;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1497
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1498	if ((Gear^.Health * 100 div cBarrelHealth) < random(90)) and ((GameTicks and $FF) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1499	if (cBarrelHealth div Gear^.Health) > 2 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1500	AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y) - 2, vgtSmoke)
2941 566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1501	else
566f967ec22f White/Black smoke, break out rolling barrel into its own routine, adjust rolling barrel impact damage. NEEDS TESTING nemo parents: 2939 diff changeset	1502	AddVisualGear(hwRound(Gear^.X) - 16 + Random(32), hwRound(Gear^.Y) - 2, vgtSmokeWhite);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1503	dec(Gear^.Health, Gear^.Damage);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1504	Gear^.Damage := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1505	if Gear^.Health <= 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1506	exBoom := true;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1507	end;
2911 cd355befa683 Engine: smxx parents: 2887 diff changeset	1508
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1509	if (Gear^.Damage > 0) or exBoom then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1510	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1511	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1512	y := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1513	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1514	// <-- delete gear!
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1515
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1516	if k = gtCase then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1517	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1518	doMakeExplosion(x, y, 25, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1519	for i:= 0 to 63 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1520	AddGear(x, y, gtFlame, 0, _0, _0, 0);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1521	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1522	else if k = gtExplosives then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1523	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1524	doMakeExplosion(x, y, 75, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1525	for i:= 0 to 31 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1526	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1527	dX := AngleCos(i * 64) * _0_5 * (getrandom + _1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1528	dY := AngleSin(i * 64) * _0_5 * (getrandom + _1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1529	AddGear(x, y, gtFlame, 0, dX, dY, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1530	AddGear(x, y, gtFlame, 0, -dX, -dY, 0)^.State := gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1531	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1532	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1533	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1534	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1535
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1536	if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1537	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1538	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1539	Gear^.dY := Gear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1540	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1541	if (not Gear^.dY.isNegative) and (Gear^.dY > _0_001) then SetAllHHToActive;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1542	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1543	if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1544	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1545	if (Gear^.dY > _0_02) and (k = gtExplosives) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1546	inc(Gear^.Damage, hwRound(Gear^.dY * _40));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1547
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1548	if Gear^.dY > _0_2 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1549	for i:= min(12, hwRound(Gear^.dY*_10)) downto 0 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1550	AddVisualGear(hwRound(Gear^.X) - 5 + Random(10), hwRound(Gear^.Y) + 12, vgtDust)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1551	;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1552	Gear^.dY := - Gear^.dY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1553	if Gear^.dY > - _0_001 then Gear^.dY := _0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1554	else if Gear^.dY < - _0_03 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1555	PlaySound(Gear^.ImpactSound);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1556	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1557	//if Gear^.dY > - _0_001 then Gear^.dY:= _0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1558	CheckGearDrowning(Gear);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1559	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1560
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1561	if (Gear^.dY.QWordValue = 0) then AddGearCI(Gear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1562	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	1563	end;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1564
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	1565	////////////////////////////////////////////////////////////////////////////////
2460 ac0c497fb842 Adjustments to training mode and credits by Smaxx nemo parents: 2457 diff changeset	1566
ac0c497fb842 Adjustments to training mode and credits by Smaxx nemo parents: 2457 diff changeset	1567	procedure doStepTarget(Gear: PGear);
ac0c497fb842 Adjustments to training mode and credits by Smaxx nemo parents: 2457 diff changeset	1568	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1569	if (Gear^.Timer = 0) and (Gear^.Tag = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1570	PlaySound(sndWarp);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1571
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1572	if (Gear^.Tag = 0) and (Gear^.Timer < 1000) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1573	inc(Gear^.Timer)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1574	else if Gear^.Tag = 1 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1575	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1576	Gear^.Tag := 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1577	if (TrainingFlags and tfTimeTrial) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1578	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1579	inc(TurnTimeLeft, TrainingTimeInc);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1580
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1581	if TrainingTimeInc > TrainingTimeInM then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1582	dec(TrainingTimeInc, TrainingTimeInD);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1583	if TurnTimeLeft > TrainingTimeMax then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1584	TurnTimeLeft := TrainingTimeMax;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1585	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1586	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1587	else if Gear^.Tag = 2 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1588	if Gear^.Timer > 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1589	dec(Gear^.Timer)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1590	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1591	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1592	if (TrainingFlags and tfTargetRespawn) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1593	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1594	TrainingTargetGear := AddGear(0, 0, gtTarget, 0, _0, _0, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1595	FindPlace(TrainingTargetGear, false, 0, LAND_WIDTH);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1596	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1597	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1598	exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1599	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1600
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1601	doStepCase(Gear)
2460 ac0c497fb842 Adjustments to training mode and credits by Smaxx nemo parents: 2457 diff changeset	1602	end;
ac0c497fb842 Adjustments to training mode and credits by Smaxx nemo parents: 2457 diff changeset	1603
ac0c497fb842 Adjustments to training mode and credits by Smaxx nemo parents: 2457 diff changeset	1604	////////////////////////////////////////////////////////////////////////////////
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1605	procedure doStepIdle(Gear: PGear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1606	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1607	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1608	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1609	if Gear^.Timer = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1610	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1611	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1612	AfterAttack
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1613	end
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1614	end;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1615
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1616	procedure doStepShover(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1617	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1618	HHGear: PGear;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1619	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1620	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1621	HHGear^.State := HHGear^.State or gstNoDamage;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1622	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1623
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1624	AmmoShove(Gear, 30, 115);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1625
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1626	HHGear^.State := HHGear^.State and not gstNoDamage;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1627	Gear^.Timer := 250;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1628	Gear^.doStep := @doStepIdle
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1629	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1630
29b477319854 - New test map unc0rr parents: 78 diff changeset	1631	////////////////////////////////////////////////////////////////////////////////
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1632	procedure doStepWhip(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1633	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1634	HHGear: PGear;
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1635	i: LongInt;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1636	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1637	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1638	HHGear^.State := HHGear^.State or gstNoDamage;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1639	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1640
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1641	for i:= 0 to 3 do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1642	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1643	AmmoShove(Gear, 30, 25);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1644	Gear^.X := Gear^.X + Gear^.dX * 5
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1645	end;
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1646
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1647	HHGear^.State := HHGear^.State and not gstNoDamage;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1648	Gear^.Timer := 250;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1649	Gear^.doStep := @doStepIdle
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1650	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1651
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1652	////////////////////////////////////////////////////////////////////////////////
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1653	procedure doStepFlame(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1654	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1655	gX,gY,i: LongInt;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1656	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1657	if (Gear^.State and gsttmpFlag) = 0 then AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1658
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1659	if not TestCollisionYwithGear(Gear, 1) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1660	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1661	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1662	if Gear^.dX.QWordValue > _0_01.QWordValue then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1663	Gear^.dX := Gear^.dX * _0_995;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1664	Gear^.dY := Gear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1665	if (Gear^.State and gsttmpFlag) <> 0 then Gear^.dY := Gear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1666	if Gear^.dY.QWordValue > _0_2.QWordValue then Gear^.dY := Gear^.dY * _0_995;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1667
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1668	if (Gear^.State and gsttmpFlag) <> 0 then Gear^.X := Gear^.X + Gear^.dX
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1669	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1670	Gear^.X := Gear^.X + Gear^.dX + cWindSpeed * 640;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1671	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1672
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1673	if (hwRound(Gear^.Y) > cWaterLine) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1674	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1675	gX := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1676	for i:= 0 to 3 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1677	AddVisualGear(gX - 16 + Random(32), cWaterLine - 16 + Random(16), vgtSteam);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1678	PlaySound(sndVaporize);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1679	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1680	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1681	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1682	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1683	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1684	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1685	if (Gear^.State and gsttmpFlag) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1686	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1687	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	1688	AmmoShove(Gear, 2, 30);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1689	Gear^.Radius := 1
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1690	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1691	if Gear^.Timer > 0 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1692	begin
2475 e0646a529a38 Fire tweaks nemo parents: 2470 diff changeset	1693	dec(Gear^.Timer);
e0646a529a38 Fire tweaks nemo parents: 2470 diff changeset	1694	inc(Gear^.Damage)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1695	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1696	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1697	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1698	// Standard fire
2424 b52344de23ae In progress, trying to make a fire for molotov cocktail. Normal fire should still work fairly normally. nemo parents: 2376 diff changeset	1699	if (Gear^.State and gsttmpFlag) = 0 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1700	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1701	Gear^.Radius := 9;
2424 b52344de23ae In progress, trying to make a fire for molotov cocktail. Normal fire should still work fairly normally. nemo parents: 2376 diff changeset	1702	AmmoShove(Gear, 4, 100);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1703	gX := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1704	gY := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1705	Gear^.Radius := 1;
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	1706	doMakeExplosion(gX, gY, 4, EXPLNoDamage);
3096 9330eead14fa Remove Distance from flake kick, reduce calls to Random() in flame replacing w/ checks on game tick and a little randomness. nemo parents: 3094 diff changeset	1707	if ((GameTicks and $7) = 0) and (Random(2) = 0) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1708	for i:= 1 to Random(2)+1 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1709	AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke);
2424 b52344de23ae In progress, trying to make a fire for molotov cocktail. Normal fire should still work fairly normally. nemo parents: 2376 diff changeset	1710	if Gear^.Health > 0 then dec(Gear^.Health);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1711	Gear^.Timer := 450 - Gear^.Tag * 8
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1712	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1713	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1714	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1715	// Modified fire
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1716	if ((GameTicks and $7FF) = 0) and ((GameFlags and gfSolidLand) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1717	begin
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	1718	DrawExplosion(gX, gY, 4);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1719
2713 71250942e95b Palewolf's smoke traces for fire. nemo parents: 2647 diff changeset	1720	for i:= 0 to Random(3) do
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1721	AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke);
2713 71250942e95b Palewolf's smoke traces for fire. nemo parents: 2647 diff changeset	1722	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1723
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1724	// 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.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1725	Gear^.Timer := 100 - Gear^.Tag * 3;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1726	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	1727	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1728	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1729	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1730	if Gear^.Health = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1731	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1732	gX := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1733	gY := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1734	if (Gear^.State and gsttmpFlag) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1735	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1736	if ((GameTicks and $3) = 0) and (Random(1) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1737	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1738	for i:= 1 to Random(2)+1 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1739	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1740	AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1741	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1742	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1743	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1744	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1745	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1746	for i:= 0 to Random(3) do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1747	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1748	AddVisualGear(gX - 3 + Random(6), gY - 2, vgtSmoke);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1749	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	1750	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1751
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1752	DeleteGear(Gear)
2713 71250942e95b Palewolf's smoke traces for fire. nemo parents: 2647 diff changeset	1753	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1754	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1755
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1756	////////////////////////////////////////////////////////////////////////////////
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1757	procedure doStepFirePunchWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1758	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1759	HHGear: PGear;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1760	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1761	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1762	if ((Gear^.Message and gm_Destroy) <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1763	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1764	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1765	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1766	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1767	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1768
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1769	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1770	if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1771	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1772	Gear^.Tag := hwRound(HHGear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1773	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y - _1, _0_5, _0, cHHRadius * 4, 2);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1774	HHGear^.State := HHGear^.State or gstNoDamage;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1775	Gear^.Y := HHGear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1776	AmmoShove(Gear, 30, 40);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1777	HHGear^.State := HHGear^.State and not gstNoDamage
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1778	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1779
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1780	HHGear^.dY := HHGear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1781	if not (HHGear^.dY.isNegative) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1782	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1783	HHGear^.State := HHGear^.State or gstMoving;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1784	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1785	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1786	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1787	end;
2089 a08758aed76a Prevent unc0rr's sneaky escape nemo parents: 2087 diff changeset	1788
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1789	if CheckLandValue(hwRound(HHGear^.X), hwRound(HHGear^.Y + HHGear^.dY + SignAs(_6,Gear^.dY)),
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1790	COLOR_INDESTRUCTIBLE) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1791	HHGear^.Y := HHGear^.Y + HHGear^.dY
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1792	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1793
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1794	procedure doStepFirePunch(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1795	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1796	HHGear: PGear;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1797	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1798	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1799	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1800	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1801	HHGear^.X := int2hwFloat(hwRound(HHGear^.X)) - _0_5;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1802	HHGear^.dX := SignAs(cLittle, Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1803
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1804	HHGear^.dY := - _0_3;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1805
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1806	Gear^.X := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1807	Gear^.dX := SignAs(_0_45, Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1808	Gear^.dY := - _0_9;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1809	Gear^.doStep := @doStepFirePunchWork;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1810	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1811
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1812	PlaySound(TSound(ord(sndFirePunch1) + GetRandom(6)), PHedgehog(HHGear^.Hedgehog)^.Team^.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1813	voicepack)
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1814	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1815
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1816	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1817
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1818	procedure doStepParachuteWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1819	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1820	HHGear: PGear;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1821	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1822	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1823
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1824	inc(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1825
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1826	if TestCollisionYwithGear(HHGear, 1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1827	or ((HHGear^.State and gstHHDriven) = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1828	or CheckGearDrowning(HHGear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1829	or ((Gear^.Message and gm_Attack) <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1830	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1831	with HHGear^ do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1832	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1833	Message := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1834	SetLittle(dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1835	dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1836	State := State or gstMoving;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1837	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1838	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1839	isCursorVisible := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1840	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1841	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1842	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1843
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1844	if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1845	HHGear^.X := HHGear^.X + cWindSpeed * 200;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1846
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1847	if (Gear^.Message and gm_Left) <> 0 then HHGear^.X := HHGear^.X - cMaxWindSpeed * 80
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1848	else if (Gear^.Message and gm_Right) <> 0 then HHGear^.X := HHGear^.X + cMaxWindSpeed * 80;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1849	if (Gear^.Message and gm_Up) <> 0 then HHGear^.Y := HHGear^.Y - cGravity * 40
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1850	else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y := HHGear^.Y + cGravity * 40;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1851
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1852	HHGear^.Y := HHGear^.Y + cGravity * 100;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1853	Gear^.X := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1854	Gear^.Y := HHGear^.Y
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1855	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1856
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1857	procedure doStepParachute(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1858	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1859	HHGear: PGear;
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1860	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1861	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1862
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1863	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1864
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1865	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1866
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1867	HHGear^.State := HHGear^.State and not (gstAttacking or gstAttacked or gstMoving);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1868	HHGear^.Message := HHGear^.Message and not gm_Attack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1869
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1870	Gear^.doStep := @doStepParachuteWork;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1871
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1872	Gear^.Message := HHGear^.Message;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1873	doStepParachuteWork(Gear)
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1874	end;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1875
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1876	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1877	procedure doStepAirAttackWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1878	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1879	i: Longint;
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1880	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1881	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1882	Gear^.X := Gear^.X + cAirPlaneSpeed * Gear^.Tag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1883
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1884	if (Gear^.Health > 0)and(not (Gear^.X < Gear^.dX))and(Gear^.X < Gear^.dX + cAirPlaneSpeed) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1885	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1886	dec(Gear^.Health);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1887	case Gear^.State of
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1888	0: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, cBombsSpeed *
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1889	Gear^.Tag, _0, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1890	1: FollowGear := AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine, 0, cBombsSpeed *
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1891	Gear^.Tag, _0, 0);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1892	2: for i:= -19 to 19 do
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1893	FollowGear := AddGear(hwRound(Gear^.X) + i div 3, hwRound(Gear^.Y), gtFlame, 0,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1894	_0_001 * i, _0, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1895	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1896	Gear^.dX := Gear^.dX + int2hwFloat(30 * Gear^.Tag)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1897	end;
1124 1636a3c7c061 - Airplane is higher unc0rr parents: 1123 diff changeset	1898
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1899	if (GameTicks and $3F) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1900	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1901
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1902	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	1903	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1904
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1905	procedure doStepAirAttack(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1906	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1907	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1908
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1909	if Gear^.X.QWordValue = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1910	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1911	Gear^.Tag := 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1912	Gear^.X := -_1024;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1913	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1914	else
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1915	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1916	Gear^.Tag := -1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1917	Gear^.X := int2hwFloat(LAND_WIDTH + 1024);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1918	end;
1507 d18c67b7ad4c Quick and dirty napalm implementation unc0rr parents: 1505 diff changeset	1919
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1920	Gear^.Y := int2hwFloat(topY-300);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1921	Gear^.dX := int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1922
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1923	if (int2hwFloat(TargetPoint.Y) - Gear^.Y > _0) and (Gear^.State <> 2) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1924	Gear^.dX := Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(TargetPoint.Y) - Gear^.Y) * 2 /
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1925	cGravity) * Gear^.Tag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1926
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1927	Gear^.Health := 6;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1928	Gear^.doStep := @doStepAirAttackWork;
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1929	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1930
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1931	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1932
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1933	procedure doStepAirBomb(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1934	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1935	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1936	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1937	if (Gear^.State and gstCollision) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1938	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1939	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1940	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1941	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1942	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1943	if (GameTicks and $3F) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1944	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace)
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1945	end;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1946
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1947	////////////////////////////////////////////////////////////////////////////////
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1948
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1949	procedure doStepGirder(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1950	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1951	HHGear: PGear;
1915 c357f5b55320 patch by nemo: unc0rr parents: 1914 diff changeset	1952	x, y, tx, ty: hwFloat;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1953	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1954	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1955
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1956	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1957	tx := int2hwFloat(TargetPoint.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1958	ty := int2hwFloat(TargetPoint.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1959	x := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1960	y := HHGear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1961
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1962	if (Distance(tx - x, ty - y) > _256) or
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1963	not TryPlaceOnLand(TargetPoint.X - SpritesData[sprAmGirder].Width div 2,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1964	TargetPoint.Y - SpritesData[sprAmGirder].Height div 2,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1965	sprAmGirder, Gear^.State, true) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1966	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1967	PlaySound(sndDenied);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1968	HHGear^.Message := HHGear^.Message and not gm_Attack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1969	HHGear^.State := HHGear^.State and not gstAttacking;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1970	HHGear^.State := HHGear^.State or gstHHChooseTarget;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1971	isCursorVisible := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1972	DeleteGear(Gear)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1973	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1974	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1975	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1976	PlaySound(sndPlaced);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1977	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1978	AfterAttack;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1979	end;
1914 aab686a4e0c5 Add sounds to girder unc0rr parents: 1909 diff changeset	1980
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1981	HHGear^.State := HHGear^.State and not (gstAttacking or gstAttacked);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1982	HHGear^.Message := HHGear^.Message and not gm_Attack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1983	TargetPoint.X := NoPointX
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1984	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1985
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1986	////////////////////////////////////////////////////////////////////////////////
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1987	procedure doStepTeleportAfter(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1988	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1989	HHGear: PGear;
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1990	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1991	PHedgehog(Gear^.Hedgehog)^.Unplaced := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1992	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1993	HHGear^.Y := HHGear^.Y + HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1994	// hedgehog falling to collect cases
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1995	HHGear^.dY := HHGear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1996	if TestCollisionYwithGear(HHGear, 1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1997	or CheckGearDrowning(HHGear) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	1998	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1999	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2000	AfterAttack
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2001	end
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	2002	end;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	2003
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	2004	procedure doStepTeleportAnim(Gear: PGear);
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	2005	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2006	inc(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2007	if Gear^.Timer = 65 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2008	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2009	Gear^.Timer := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2010	inc(Gear^.Pos);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2011	if Gear^.Pos = 11 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2012	Gear^.doStep := @doStepTeleportAfter
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2013	end;
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	2014	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	2015
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	2016	procedure doStepTeleport(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2017	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2018	HHGear: PGear;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	2019	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2020	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2021
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2022	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2023	if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprHHTelepMask].Width div 2,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2024	TargetPoint.Y - SpritesData[sprHHTelepMask].Height div 2,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2025	sprHHTelepMask, 0, false) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2026	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2027	HHGear^.Message := HHGear^.Message and not gm_Attack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2028	HHGear^.State := HHGear^.State and not gstAttacking;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2029	HHGear^.State := HHGear^.State or gstHHChooseTarget;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2030	DeleteGear(Gear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2031	isCursorVisible := true;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2032	PlaySound(sndDenied)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2033	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2034	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2035	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2036	DeleteCI(HHGear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2037	SetAllHHToActive;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2038	Gear^.doStep := @doStepTeleportAnim;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2039
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2040	// copy old HH position and direction to Gear (because we need them for drawing the vanishing hog)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2041	Gear^.dX := HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2042	// retrieve the cursor direction (it was previously copied to X so it doesn't get lost)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2043	HHGear^.dX.isNegative := (Gear^.X.QWordValue <> 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2044	Gear^.X := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2045	Gear^.Y := HHGear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2046	HHGear^.X := int2hwFloat(TargetPoint.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2047	HHGear^.Y := int2hwFloat(TargetPoint.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2048	HHGear^.State := HHGear^.State or gstMoving;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2049	playSound(sndWarp)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2050	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2051	TargetPoint.X := NoPointX;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	2052	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2053
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2054	////////////////////////////////////////////////////////////////////////////////
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2055	procedure doStepSwitcherWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2056	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2057	HHGear: PGear;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2058	Msg, State: Longword;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2059	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2060	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2061
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2062	if ((Gear^.Message and not gm_Switch) <> 0) or (TurnTimeLeft = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2063	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2064	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2065	Msg := Gear^.Message and not gm_Switch;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2066	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2067	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2068	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2069
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2070	HHGear := CurrentHedgehog^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2071	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2072	HHGear^.Message := Msg;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2073	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2074	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2075
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2076	if (Gear^.Message and gm_Switch) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2077	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2078	HHGear := CurrentHedgehog^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2079	HHGear^.Message := HHGear^.Message and not gm_Switch;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2080	Gear^.Message := Gear^.Message and not gm_Switch;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2081	State := HHGear^.State;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2082	HHGear^.State := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2083	HHGear^.Active := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2084	HHGear^.Z := cHHZ;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2085	RemoveGearFromList(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2086	InsertGearToList(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2087
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2088	PlaySound(sndSwitchHog);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2089
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2090	repeat
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2091	CurrentTeam^.CurrHedgehog := Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2092	HedgehogsNumber);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2093	until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2094
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2095	CurrentHedgehog := @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog];
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2096
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2097	HHGear := CurrentHedgehog^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2098	HHGear^.State := State;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2099	HHGear^.Active := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2100	FollowGear := HHGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2101	HHGear^.Z := cCurrHHZ;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2102	RemoveGearFromList(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2103	InsertGearToList(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2104	Gear^.X := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2105	Gear^.Y := HHGear^.Y
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2106	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2107	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2108
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2109	procedure doStepSwitcher(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2110	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2111	HHGear: PGear;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2112	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2113	Gear^.doStep := @doStepSwitcherWork;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2114
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2115	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2116	with HHGear^ do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2117	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2118	State := State and not gstAttacking;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2119	Message := Message and not gm_Attack
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2120	end
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	2121	end;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	2122
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	2123	////////////////////////////////////////////////////////////////////////////////
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	2124	procedure doStepMortar(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2125	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2126	dX, dY: hwFloat;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	2127	i: LongInt;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	2128	dxn, dyn: boolean;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	2129	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2130	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2131	dxn := Gear^.dX.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2132	dyn := Gear^.dY.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2133
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2134	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2135	if (Gear^.State and gstCollision) <> 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2136	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2137	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2138
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2139	Gear^.dX.isNegative := not dxn;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2140	Gear^.dY.isNegative := not dyn;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2141	for i:= 0 to 4 do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2142	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2143	dX := Gear^.dX + (GetRandom - _0_5) * _0_03;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2144	dY := Gear^.dY + (GetRandom - _0_5) * _0_03;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2145	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 25);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2146	end;
2376 ece7b87f1334 Strip trailing spaces nemo parents: 2367 diff changeset	2147
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2148	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2149	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2150	end;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	2151
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2152	if (GameTicks and $3F) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2153	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace)
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	2154	end;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2155
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2156	////////////////////////////////////////////////////////////////////////////////
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2157	procedure doStepKamikazeWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2158
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2159	const upd: Longword = 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2160	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2161	i: LongWord;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2162	HHGear: PGear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2163	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2164	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2165
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2166	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2167	HHGear^.State := HHGear^.State or gstNoDamage;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2168	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2169
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2170	i := 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2171	repeat
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2172	Gear^.X := Gear^.X + HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2173	Gear^.Y := Gear^.Y + HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2174	HHGear^.X := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2175	HHGear^.Y := Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2176
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2177	inc(Gear^.Damage, 2);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2178
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2179	// if TestCollisionXwithGear(HHGear, hwSign(Gear^.dX))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2180	// or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY)) then inc(Gear^.Damage, 3);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2181
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2182	dec(i)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2183	until (i = 0) or (Gear^.Damage > Gear^.Health);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2184
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2185	inc(upd);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2186	if upd > 3 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2187	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2188	if Gear^.Health < 1500 then Gear^.Pos := 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2189
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2190	AmmoShove(Gear, 30, 40);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2191
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2192	DrawTunnel(HHGear^.X - HHGear^.dX * 10,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2193	HHGear^.Y - _2 - HHGear^.dY * 10 + hwAbs(HHGear^.dY) * 2,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2194	HHGear^.dX,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2195	HHGear^.dY,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2196	20 + cHHRadius * 2,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2197	cHHRadius * 2 + 6);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2198
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2199	upd := 0
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2200	end;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2201
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2202	if Gear^.Health < Gear^.Damage then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2203	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2204	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2205	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2206	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2207	DeleteGear(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2208	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2209	else
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2210	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2211	dec(Gear^.Health, Gear^.Damage);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2212	Gear^.Damage := 0
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2213	end
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2214	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2215
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	2216	procedure doStepKamikazeIdle(Gear: PGear);
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	2217	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2218	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2219	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2220	if Gear^.Timer = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2221	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2222	Gear^.Pos := 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2223	PlaySound(sndKamikaze, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2224	Gear^.doStep := @doStepKamikazeWork
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2225	end
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	2226	end;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	2227
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2228	procedure doStepKamikaze(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2229	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2230	HHGear: PGear;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2231	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2232	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2233
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2234	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2235
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2236	HHGear^.dX := Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2237	HHGear^.dY := Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2238
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2239	Gear^.dX := SignAs(_0_45, Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2240	Gear^.dY := - _0_9;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2241
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2242	Gear^.Timer := 550;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2243
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2244	Gear^.doStep := @doStepKamikazeIdle
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2245	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	2246
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	2247	////////////////////////////////////////////////////////////////////////////////
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2248
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2249	const cakeh = 27;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2250	cakeDmg = 75;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2251	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2252	CakePoints: array[0..Pred(cakeh)] of record
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2253	x, y: hwFloat;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2254	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2255	CakeI: Longword;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	2256
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	2257	procedure doStepCakeExpl(Gear: PGear);
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	2258	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2259	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2260
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2261	inc(Gear^.Tag);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2262	if Gear^.Tag < 2250 then exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2263
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2264	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cakeDmg, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2265	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2266	DeleteGear(Gear)
1110 3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	2267	end;
3660bbfc1cba Finish cake implementation unc0rr parents: 1109 diff changeset	2268
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	2269	procedure doStepCakeDown(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2270	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2271	gi: PGear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2272	dmg: LongInt;
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	2273	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2274	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2275
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2276	inc(Gear^.Tag);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2277	if Gear^.Tag < 100 then exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2278	Gear^.Tag := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2279
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2280	if Gear^.Pos = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2281	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2282	gi := GearsList;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2283	while gi <> nil do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2284	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2285	dmg := cakeDmg * 2 - hwRound(Distance(gi^.X - Gear^.X, gi^.Y - Gear^.Y));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2286	if (dmg > 1) and (gi^.Kind = gtHedgehog) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2287	if (CurrentHedgehog^.Gear = gi) and (not gi^.Invulnerable) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2288	gi^.State := gi^.State or gstLoser
1865 ebc6dfca60d4 - nemo's patch: some animations, zero probability for infinite weapons unc0rr parents: 1861 diff changeset	2289	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2290	gi^.State := gi^.State or gstWinner;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2291	gi := gi^.NextGear
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2292	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2293	Gear^.doStep := @doStepCakeExpl;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2294	PlaySound(sndCake)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2295	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2296	else dec(Gear^.Pos)
1109 87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	2297	end;
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	2298
87c44c14fdd4 - Cake sits down before exploding unc0rr parents: 1108 diff changeset	2299
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2300	procedure doStepCakeWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2301
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2302	const dirs: array[0..3] of TPoint = ((x: 0; y: -1), (x: 1; y: 0),(x: 0; y: 1),(x: -1; y: 0));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2303	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2304	xx, yy, xxn, yyn: LongInt;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2305	da: LongInt;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2306	tdx, tdy: hwFloat;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2307
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2308	procedure PrevAngle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2309	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2310	Gear^.Angle := (LongInt(Gear^.Angle) + 4 - dA) mod 4
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2311	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2312
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2313	procedure NextAngle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2314	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2315	Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2316	end;
2376 ece7b87f1334 Strip trailing spaces nemo parents: 2367 diff changeset	2317
1088 9702e17146e6 Stubs for spider weapon unc0rr parents: 1066 diff changeset	2318	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2319	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2320
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2321	inc(Gear^.Tag);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2322	if Gear^.Tag < 7 then exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2323
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2324	dA := hwSign(Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2325	xx := dirs[Gear^.Angle].x;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2326	yy := dirs[Gear^.Angle].y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2327	xxn := dirs[(LongInt(Gear^.Angle) + 4 + dA) mod 4].x;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2328	yyn := dirs[(LongInt(Gear^.Angle) + 4 + dA) mod 4].y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2329
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2330	if (xx = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2331	if TestCollisionYwithGear(Gear, yy) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2332	PrevAngle
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2333	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2334	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2335	Gear^.Tag := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2336	Gear^.Y := Gear^.Y + int2hwFloat(yy);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2337	if not TestCollisionXwithGear(Gear, xxn) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2338	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2339	Gear^.X := Gear^.X + int2hwFloat(xxn);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2340	NextAngle
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2341	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2342	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2343
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2344	if (yy = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2345	if TestCollisionXwithGear(Gear, xx) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2346	PrevAngle
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2347	else
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2348	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2349	Gear^.Tag := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2350	Gear^.X := Gear^.X + int2hwFloat(xx);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2351	if not TestCollisionYwithGear(Gear, yyn) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2352	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2353	Gear^.Y := Gear^.Y + int2hwFloat(yyn);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2354	NextAngle
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2355	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2356	end;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	2357
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2358	if Gear^.Tag = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2359	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2360	CakeI := (CakeI + 1) mod cakeh;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2361	tdx := CakePoints[CakeI].x - Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2362	tdy := - CakePoints[CakeI].y + Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2363	CakePoints[CakeI].x := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2364	CakePoints[CakeI].y := Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2365	Gear^.DirAngle := DxDy2Angle(tdx, tdy);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2366	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2367
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2368	dec(Gear^.Health);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2369	Gear^.Timer := Gear^.Health*10;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2370	// This is not seconds, but at least it is some feedback
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2371	if (Gear^.Health = 0) or ((Gear^.Message and gm_Attack) <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2372	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2373	FollowGear := Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2374	Gear^.RenderTimer := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2375	Gear^.doStep := @doStepCakeDown
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2376	end
1088 9702e17146e6 Stubs for spider weapon unc0rr parents: 1066 diff changeset	2377	end;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2378
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	2379	procedure doStepCakeUp(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2380	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2381	i: Longword;
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	2382	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2383	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2384
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2385	inc(Gear^.Tag);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2386	if Gear^.Tag < 100 then exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2387	Gear^.Tag := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2388
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2389	if Gear^.Pos = 6 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2390	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2391	for i:= 0 to Pred(cakeh) do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2392	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2393	CakePoints[i].x := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2394	CakePoints[i].y := Gear^.Y
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2395	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2396	CakeI := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2397	Gear^.doStep := @doStepCakeWork
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2398	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2399	else inc(Gear^.Pos)
1103 1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	2400	end;
1ff3db3c12af Show cake rotated correct angle unc0rr parents: 1090 diff changeset	2401
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2402	procedure doStepCakeFall(Gear: PGear);
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2403	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2404	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2405
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2406	Gear^.dY := Gear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2407	if TestCollisionYwithGear(Gear, 1) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2408	Gear^.doStep := @doStepCakeUp
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2409	else
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2410	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2411	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2412	if CheckGearDrowning(Gear) then AfterAttack
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2413	end
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2414	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2415
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2416	procedure doStepCake(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2417	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2418	HHGear: PGear;
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2419	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2420	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2421
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2422	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2423	HHGear^.Message := HHGear^.Message and (not gm_Attack);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2424	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2425
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2426	FollowGear := Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2427
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2428	Gear^.doStep := @doStepCakeFall
1089 24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2429	end;
24e9e1ca0394 First implementation of the Cake weapon unc0rr parents: 1088 diff changeset	2430
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	2431	////////////////////////////////////////////////////////////////////////////////
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	2432	procedure doStepSeductionWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2433	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2434	x, y: LongInt;
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	2435	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2436	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2437
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2438	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2439	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2440	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2441	y := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2442
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2443	if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2444	if (Land[y, x] <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2445	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2446	Gear^.dX.isNegative := not Gear^.dX.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2447	Gear^.dY.isNegative := not Gear^.dY.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2448	Gear^.dX := Gear^.dX * _1_5;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2449	Gear^.dY := Gear^.dY * _1_5 - _0_3;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2450	AmmoShove(Gear, 0, 40);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2451	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2452	DeleteGear(Gear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2453	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2454	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2455	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2456	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2457	AfterAttack;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2458	DeleteGear(Gear)
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2459	end
1286 a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	2460	end;
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	2461
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	2462	procedure doStepSeductionWear(Gear: PGear);
a02a5345b91e Seduction animation unc0rr parents: 1284 diff changeset	2463	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2464	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2465	inc(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2466	if Gear^.Timer > 250 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2467	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2468	Gear^.Timer := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2469	inc(Gear^.Pos);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2470	if Gear^.Pos = 5 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2471	PlaySound(sndYoohoo, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2472	end;
1367 e1aaa1a4901f Use seduction sound unc0rr parents: 1361 diff changeset	2473
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2474	if Gear^.Pos = 14 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2475	Gear^.doStep := @doStepSeductionWork
1259 0c660c3d98a4 - Continue seduction implementation unc0rr parents: 1207 diff changeset	2476	end;
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	2477
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	2478	procedure doStepSeduction(Gear: PGear);
21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	2479	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2480	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2481	DeleteCI(PHedgehog(Gear^.Hedgehog)^.Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2482	Gear^.doStep := @doStepSeductionWear
1284 21916b5de218 - Update Italian translation unc0rr parents: 1279 diff changeset	2483	end;
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	2484
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	2485	////////////////////////////////////////////////////////////////////////////////
18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	2486	procedure doStepWaterUp(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2487	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2488	i: LongWord;
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	2489	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2490	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2491
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2492	inc(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2493	if Gear^.Timer = 17 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2494	Gear^.Timer := 0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2495	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2496	exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2497
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2498	if cWaterLine > 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2499	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2500	dec(cWaterLine);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2501	for i:= 0 to LAND_WIDTH - 1 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2502	Land[cWaterLine, i] := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2503	SetAllToActive
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2504	end;
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	2505
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2506	inc(Gear^.Tag);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2507	if (Gear^.Tag = 47) or (cWaterLine = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2508	DeleteGear(Gear)
1298 18fdc25fe65d - Fix water rise unc0rr parents: 1297 diff changeset	2509	end;
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2510
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2511	////////////////////////////////////////////////////////////////////////////////
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2512	procedure doStepDrillDrilling(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2513	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2514	t: PGearArray;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2515	ox, oy: hwFloat;
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2516	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2517	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2518
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2519	if (Gear^.Timer > 0) and ((Gear^.Timer mod 10) = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2520	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2521	ox := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2522	oy := Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2523	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2524	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2525	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 2, 6);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2526	if (CheckGearDrowning(Gear)) then
2558 b1cb0f71b704 doStepDrowningGear - I always forget it. Kill the sound and exit. nemo parents: 2538 diff changeset	2527	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2528	StopSound(Gear^.SoundChannel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2529	exit
2558 b1cb0f71b704 doStepDrowningGear - I always forget it. Kill the sound and exit. nemo parents: 2538 diff changeset	2530	end
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2531	end;
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2532
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2533	t := CheckGearsCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2534	//fixes drill not exploding when touching HH bug
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2535	if (Gear^.Timer = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2536	or (t^.Count <> 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2537	or (not TestCollisionYWithGear(Gear, hwSign(Gear^.dY))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2538	and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2539	or (Land[hwRound(Gear^.Y), hwRound(Gear^.X)] = COLOR_INDESTRUCTIBLE) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2540	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2541	//out of time or exited ground
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2542	StopSound(Gear^.SoundChannel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2543	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2544	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2545	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2546	end;
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2547
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2548	dec(Gear^.Timer);
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2549	end;
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2550
cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2551	procedure doStepDrill(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2552	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2553	t: PGearArray;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2554	oldDx, oldDy: hwFloat;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2555	t2: hwFloat;
1573 cf88e0ace609 Drill rocket unc0rr parents: 1555 diff changeset	2556	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2557	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2558
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2559	Gear^.dX := Gear^.dX + cWindSpeed;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2560	oldDx := Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2561	oldDy := Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2562
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2563	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2564
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2565	if (GameTicks and $3F) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2566	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2567
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2568	if ((Gear^.State and gstCollision) <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2569	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2570	//hit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2571	Gear^.dX := oldDx;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2572	Gear^.dY := oldDy;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2573
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2574	t := CheckGearsCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2575	if (t^.Count = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2576	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2577	//hit the ground not the HH
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2578	t2 := _0_5 / Distance(Gear^.dX, Gear^.dY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2579	Gear^.dX := Gear^.dX * t2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2580	Gear^.dY := Gear^.dY * t2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2581	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2582	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2583	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2584	//explode right on contact with HH
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2585	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2586	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2587	exit;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2588	end;
2376 ece7b87f1334 Strip trailing spaces nemo parents: 2367 diff changeset	2589
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2590	Gear^.SoundChannel := LoopSound(sndDrillRocket);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2591	Gear^.doStep := @doStepDrillDrilling;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2592	dec(Gear^.Timer)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2593	end
1590 646d56eacb8f - Refactor drill rocket unc0rr parents: 1586 diff changeset	2594	end;
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2595
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2596	////////////////////////////////////////////////////////////////////////////////
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2597	procedure doStepBallgunWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2598	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2599	HHGear: PGear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2600	rx, ry: hwFloat;
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	2601	gX, gY: LongInt;
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2602	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2603	AllInactive := false;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2604	dec(Gear^.Timer);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2605	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2606	HedgehogChAngle(HHGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2607	gX := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2608	gY := hwRound(Gear^.Y);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2609	if (Gear^.Timer mod 100) = 0 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2610	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2611	rx := rndSign(getRandom * _0_1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2612	ry := rndSign(getRandom * _0_1);
2376 ece7b87f1334 Strip trailing spaces nemo parents: 2367 diff changeset	2613
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	2614	AddGear(gx, gy, gtBall, 0,
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2615	SignAs(AngleSin(HHGear^.Angle) * _0_8, HHGear^.dX) + rx,
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2616	AngleCos(HHGear^.Angle) * ( - _0_8) + ry,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2617	0);
2376 ece7b87f1334 Strip trailing spaces nemo parents: 2367 diff changeset	2618
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2619	PlaySound(sndGun);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2620	end;
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2621
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2622	if (Gear^.Timer = 0) or (HHGear^.Damage <> 0) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2623	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2624	DeleteGear(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2625	AfterAttack
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2626	end
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2627	end;
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2628
0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2629	procedure doStepBallgun(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2630	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2631	HHGear: PGear;
1601 0cff69c8c4cf Ballsgun unc0rr parents: 1590 diff changeset	2632	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2633	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2634	HHGear^.Message := HHGear^.Message and not (gm_Up or gm_Down);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2635	HHGear^.State := HHGear^.State or gstNotKickable;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2636	Gear^.doStep := @doStepBallgunWork
1633 c1de4078b0fd Drill rocket patch unc0rr parents: 1631 diff changeset	2637	end;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2638
1696 bb1e305320a1 rc plane falls down when looses control unc0rr parents: 1689 diff changeset	2639	////////////////////////////////////////////////////////////////////////////////
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2640	procedure doStepRCPlaneWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2641
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2642	const cAngleSpeed = 3;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2643	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2644	HHGear: PGear;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2645	i: LongInt;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2646	dX, dY: hwFloat;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2647	fChanged: boolean;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2648	trueAngle: Longword;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2649	t: PGear;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2650	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2651	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2652
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2653	if ((TrainingFlags and tfRCPlane) = 0) and (Gear^.Timer > 0) then dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2654
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2655	if ((TrainingFlags and tfRCPlane) <> 0) and ((TrainingFlags and tfTimeTrial) <> 0 ) and (
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2656	TimeTrialStartTime = 0) then TimeTrialStartTime := RealTicks;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2657
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2658	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2659	FollowGear := Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2660
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2661	fChanged := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2662	if ((HHGear^.State and gstHHDriven) = 0) or (Gear^.Timer = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2663	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2664	fChanged := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2665	if Gear^.Angle > 2048 then dec(Gear^.Angle)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2666	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2667	if Gear^.Angle < 2048 then inc(Gear^.Angle)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2668	else fChanged := false
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2669	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2670	else
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2671	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2672	if ((Gear^.Message and gm_Left) <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2673	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2674	fChanged := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2675	Gear^.Angle := (Gear^.Angle + (4096 - cAngleSpeed)) mod 4096
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2676	end;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2677
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2678	if ((Gear^.Message and gm_Right) <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2679	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2680	fChanged := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2681	Gear^.Angle := (Gear^.Angle + cAngleSpeed) mod 4096
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2682	end
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2683	end;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2684
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2685	if fChanged then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2686	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2687	Gear^.dX.isNegative := (Gear^.Angle > 2048);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2688	if Gear^.dX.isNegative then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2689	trueAngle := 4096 - Gear^.Angle
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2690	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2691	trueAngle := Gear^.Angle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2692
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2693	Gear^.dX := SignAs(AngleSin(trueAngle), Gear^.dX) * _0_25;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2694	Gear^.dY := AngleCos(trueAngle) * -_0_25;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2695	end;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2696
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2697	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2698	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2699
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2700	if (TrainingFlags and tfRCPlane) = 0 then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2701	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2702	if (GameTicks and $FF) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2703	if Gear^.Timer < 3500 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2704	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEvilTrace)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2705	else
3440 dee31c5149e0 * gtHealthTag, gtSmokeTrace, gtEvilTrace, gtExplosion and gtBigExplosion are visual gears now (vgt) sheepluva* parents: 3431 diff changeset	2706	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
2428 6800f8aa0184 Huge Smaxx patch with some fixes by me: unc0rr parents: 2425 diff changeset	2707
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2708	if ((HHGear^.Message and gm_Attack) <> 0) and (Gear^.Health <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2709	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2710	HHGear^.Message := HHGear^.Message and not gm_Attack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2711	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, Gear^.dX * _0_5, Gear^.dY *
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2712	_0_5, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2713	dec(Gear^.Health)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2714	end;
2428 6800f8aa0184 Huge Smaxx patch with some fixes by me: unc0rr parents: 2425 diff changeset	2715
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2716	if ((HHGear^.Message and gm_LJump) <> 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2717	and ((Gear^.State and gsttmpFlag) = 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2718	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2719	Gear^.State := Gear^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2720	PauseMusic;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2721	playSound(sndRideOfTheValkyries);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2722	end;
2428 6800f8aa0184 Huge Smaxx patch with some fixes by me: unc0rr parents: 2425 diff changeset	2723
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2724	// pickup bonuses
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2725	t := CheckGearNear(Gear, gtCase, 36, 36);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2726	if t <> nil then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2727	PickUp(HHGear, t);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2728	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2729	else
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2730	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2731	if (GameTicks and $FF) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2732	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2733
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2734	// pickup targets
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2735	t := CheckGearNear(Gear, gtTarget, 36, 36);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2736	if t <> nil then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2737	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2738	if t^.Tag <> 0 then // collect it only once
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2739	exit;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2740	PlaySound(sndShotgunReload);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2741	t^.Tag := 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2742	TrainingTargetGear := nil;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2743	// remove target cursor
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2744	exit;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2745	end;
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2746
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2747	if (TurnTimeLeft > 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2748	dec(TurnTimeLeft)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2749	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2750
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2751	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2752
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2753	if ((Gear^.State and gstCollision) <> 0) or (((TrainingFlags and tfRCPlane) <> 0) and (
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2754	TurnTimeLeft = 0))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2755	or CheckGearDrowning(Gear) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2756	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2757	if ((TrainingFlags and tfRCPlane) <> 0) and ((TrainingFlags and tfTimeTrial) <> 0 ) and (
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2758	TimeTrialStopTime = 0) then TimeTrialStopTime := RealTicks;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2759	StopSound(Gear^.SoundChannel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2760	StopSound(sndRideOfTheValkyries);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2761	ResumeMusic;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2762
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2763	if ((Gear^.State and gstCollision) <> 0) or (((TrainingFlags and tfRCPlane) <> 0) and (
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2764	TurnTimeLeft = 0)) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2765	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2766	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2767	for i:= 0 to 32 do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2768	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2769	dX := AngleCos(i * 64) * _0_5 * (GetRandom + _1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2770	dY := AngleSin(i * 64) * _0_5 * (GetRandom + _1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2771	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2772	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2773	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2774	DeleteGear(Gear)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2775	end;
1713 194ed95f9e8d Hedgehog is also sad when rcplane is drawning unc0rr parents: 1712 diff changeset	2776
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2777	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2778	CurAmmoGear := nil;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2779	TurnTimeLeft := 14 * 125;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2780
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2781	if (TrainingFlags and tfRCPlane) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2782	TurnTimeLeft := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2783	// HACK: RCPlane training allows unlimited plane starts in last 2 seconds
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2784
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2785	HHGear^.Message := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2786	ParseCommand('/taunt '#1, true)
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2787	end
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2788	end;
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2789
3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2790	procedure doStepRCPlane(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2791	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2792	HHGear: PGear;
1689 3d0eee01f734 RC Plane unc0rr parents: 1669 diff changeset	2793	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2794	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2795	HHGear^.Message := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2796	HHGear^.State := HHGear^.State or gstNotKickable;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2797	Gear^.Angle := HHGear^.Angle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2798	Gear^.Tag := hwSign(HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2799	if HHGear^.dX.isNegative then Gear^.Angle := 4096 - Gear^.Angle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2800	Gear^.doStep := @doStepRCPlaneWork
1712 f5b916de40f0 Patch by nemo (polished by me) unc0rr parents: 1708 diff changeset	2801	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	2802
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	2803	procedure doStepJetpackWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2804	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2805	HHGear: PGear;
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	2806	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	2807	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	2808	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2809	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2810	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2811	//dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2812	move := _0_1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2813	fuel := 50;
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2814	(*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	2815	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	2816	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	2817	fuel:= 5;
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2818	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	2819
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2820	if (HHGear^.Message and gm_Up) <> 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	2821	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2822	if (not HHGear^.dY.isNegative) or (HHGear^.Y > -_256) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2823	HHGear^.dY := HHGear^.dY - move;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2824	HHGear^.dY := HHGear^.dY - move;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2825	dec(Gear^.Health, fuel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2826	Gear^.MsgParam := Gear^.MsgParam or gm_Up;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2827	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	2828	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2829	if (HHGear^.Message and gm_Left) <> 0 then move.isNegative := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2830	if (HHGear^.Message and (gm_Left or gm_Right)) <> 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	2831	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2832	HHGear^.dX := HHGear^.dX + (move * _0_2);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2833	dec(Gear^.Health, fuel div 5);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2834	Gear^.MsgParam := Gear^.MsgParam or (HHGear^.Message and (gm_Left or gm_Right));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2835	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	2836	end;
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2837
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2838	// erases them all at once :-/
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2839	if (Gear^.Timer <> 0) and (GameTicks - Gear^.Timer > 250) then
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2840	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2841	Gear^.Timer := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2842	Gear^.MsgParam := 0
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2843	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2844
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2845	if Gear^.Health < 0 then Gear^.Health := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2846	if (GameTicks and $3F) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2847	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2848	//AddCaption('Fuel: '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2849	if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2850	Gear^.Tex := RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) +
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2851	'%', cWhiteColor, fntSmall)
2182 ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2852	end;
ed7e7eb3f9ed Ugly graphic for jetpack - jetpack should be essentially functional. nemo parents: 2181 diff changeset	2853
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2854	if HHGear^.Message and (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right) <> 0 then Gear^
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2855	.State := Gear^.State and not gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2856	HHGear^.Message := HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2857	HHGear^.State := HHGear^.State or gstMoving;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2858
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2859	Gear^.X := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2860	Gear^.Y := HHGear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2861	// For some reason I need to reapply followgear here, something else grabs it otherwise.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2862	if not bShowAmmoMenu then FollowGear := HHGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2863
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2864	if ((Gear^.State and gsttmpFlag) = 0) or (HHGear^.dY < _0) then doStepHedgehogMoving(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2865
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2866	if (Gear^.Health = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2867	or (HHGear^.Damage <> 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2868	or CheckGearDrowning(HHGear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2869	or (TurnTimeLeft = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2870	// allow brief ground touches - to be fair on this, might need another counter
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2871	or (((GameTicks and $1FF) = 0) and (not HHGear^.dY.isNegative) and TestCollisionYwithGear(
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2872	HHGear, 1))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2873	or ((Gear^.Message and gm_Attack) <> 0) then
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2874	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2875	with HHGear^ do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2876	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2877	Message := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2878	Active := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2879	State := State or gstMoving
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2880	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2881	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2882	isCursorVisible := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2883	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2884	// if Gear^.Tex <> nil then FreeTexture(Gear^.Tex);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2885
2619 bc2786a00fb8 fix wrong ttf blending in ppc koda parents: 2608 diff changeset	2886	// Gear^.Tex:= RenderStringTex(trmsg[sidFuel] + ': ' + inttostr(round(Gear^.Health / 20)) + '%', cWhiteColor, fntSmall)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2887
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2888	//AddCaption(trmsg[sidFuel]+': '+inttostr(round(Gear^.Health/20))+'%', cWhiteColor, capgrpAmmostate);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2889	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	2890	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	2891
2647 0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	2892	////////////////////////////////////////////////////////////////////////////////
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	2893	procedure doStepJetpack(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2894	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2895	HHGear: PGear;
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	2896	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2897	Gear^.doStep := @doStepJetpackWork;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2898
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2899	HHGear := PHedgehog(Gear^.Hedgehog)^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2900	FollowGear := HHGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2901	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2902	with HHGear^ do
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2903	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2904	State := State and not gstAttacking;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2905	Message := Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2906	if (dY < _0_1) and (dY > -_0_1) then
2301 7a4ad0772c88 minor saucer change Tiy had requested once. nemo parents: 2283 diff changeset	2907	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2908	Gear^.State := Gear^.State or gsttmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2909	dY := dY - _0_2
2301 7a4ad0772c88 minor saucer change Tiy had requested once. nemo parents: 2283 diff changeset	2910	end
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	2911	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	2912	end;
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	2913
25b6b554c516 Engine: smxx parents: 2982 diff changeset	2914	////////////////////////////////////////////////////////////////////////////////
3149 08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	2915	procedure doStepBirdyDisappear(Gear: PGear);
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	2916	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2917	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2918	Gear^.Pos := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2919	if Gear^.Timer < 2000 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2920	inc(Gear^.Timer, 1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2921	else
3075 b4ef08187d22 Engine: smxx parents: 3072 diff changeset	2922	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2923	DeleteGear(Gear);
3149 08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	2924	end;
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	2925	end;
25b6b554c516 Engine: smxx parents: 2982 diff changeset	2926
25b6b554c516 Engine: smxx parents: 2982 diff changeset	2927	////////////////////////////////////////////////////////////////////////////////
25b6b554c516 Engine: smxx parents: 2982 diff changeset	2928	procedure doStepBirdyFly(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2929	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2930	HHGear: PGear;
3161 cb5f04cc9d76 - Add HH dX/dY to Birdy disappearing animation palewolf parents: 3151 diff changeset	2931	fuel, i: LongInt;
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	2932	move: hwFloat;
25b6b554c516 Engine: smxx parents: 2982 diff changeset	2933	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2934	HHGear := CurrentHedgehog^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2935
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2936	move := _0_1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2937	fuel := 50;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2938
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2939	if Gear^.Pos > 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2940	dec(Gear^.Pos, 1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2941	else if (HHGear^.Message and (gm_Left or gm_Right or gm_Up)) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2942	Gear^.Pos := 500;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2943
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2944	if HHGear^.dX.isNegative then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2945	Gear^.Tag := -1
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2946	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2947	Gear^.Tag := 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2948
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2949	if (HHGear^.Message and gm_Up) <> 0 then
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	2950	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2951	if (not HHGear^.dY.isNegative) or (HHGear^.Y > -_256) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2952	HHGear^.dY := HHGear^.dY - move;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2953	HHGear^.dY := HHGear^.dY - move;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2954	dec(Gear^.Health, fuel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2955	Gear^.MsgParam := Gear^.MsgParam or gm_Up;
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	2956	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2957	if (HHGear^.Message and gm_Left) <> 0 then move.isNegative := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2958	if (HHGear^.Message and (gm_Left or gm_Right)) <> 0 then
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	2959	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2960	HHGear^.dX := HHGear^.dX + (move * _0_2);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2961	dec(Gear^.Health, fuel div 5);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2962	Gear^.MsgParam := Gear^.MsgParam or (HHGear^.Message and (gm_Left or gm_Right));
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	2963	end;
25b6b554c516 Engine: smxx parents: 2982 diff changeset	2964
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2965	if Gear^.Health < 0 then Gear^.Health := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2966	if ((GameTicks and $FF) = 0) and (Gear^.Health < 500) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2967	for i:= ((500-Gear^.Health) div 250) downto 0 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2968	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFeather);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2969
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2970	if (HHGear^.Message and gm_Attack <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2971	begin
3065 4afa5e3e27e4 Birdy egg added mbait parents: 3036 diff changeset	2972	HHGear^.Message := HHGear^.Message and not gm_Attack;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2973	if Gear^.FlightTime > 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2974	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2975	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y) + 32, gtEgg, 0, Gear^.dX * _0_5, Gear^.dY, 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2976	;
3123 b0a02930a1dc Engine: smxx parents: 3119 diff changeset	2977	PlaySound(sndBirdyLay);
3115 831bd0f7050d Engine: smxx parents: 3107 diff changeset	2978	dec(Gear^.FlightTime)
831bd0f7050d Engine: smxx parents: 3107 diff changeset	2979	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2980	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2981
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2982	if HHGear^.Message and (gm_Up or gm_Precise or gm_Left or gm_Right) <> 0 then Gear^.State :=
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2983	Gear
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2984	^.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2985	State
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2986	and
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2987	not
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2988	gsttmpFlag
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2989	;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2990	HHGear^.Message := HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2991	HHGear^.State := HHGear^.State or gstMoving;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2992
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2993	Gear^.X := HHGear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2994	Gear^.Y := HHGear^.Y - int2hwFloat(32);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2995	// For some reason I need to reapply followgear here, something else grabs it otherwise.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2996	if not bShowAmmoMenu then FollowGear := HHGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2997
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2998	if ((Gear^.State and gsttmpFlag) = 0) or (HHGear^.dY < _0) then doStepHedgehogMoving(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	2999
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3000	if (Gear^.Health = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3001	or (HHGear^.Damage <> 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3002	or CheckGearDrowning(HHGear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3003	or (TurnTimeLeft = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3004	// allow brief ground touches - to be fair on this, might need another counter
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3005	or (((GameTicks and $1FF) = 0) and (not HHGear^.dY.isNegative) and TestCollisionYwithGear(
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3006	HHGear, 1))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3007	or ((Gear^.Message and gm_Attack) <> 0) then
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3008	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3009	with HHGear^ do
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3010	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3011	Message := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3012	Active := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3013	State := State or gstMoving
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3014	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3015	Gear^.State := Gear^.State or gstAnimation or gstTmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3016	if HHGear^.dY < _0 then
3149 08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	3017	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3018	Gear^.dX := HHGear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3019	Gear^.dY := HHGear^.dY;
3149 08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	3020	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3021	Gear^.Timer := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3022	Gear^.doStep := @doStepBirdyDisappear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3023	CurAmmoGear := nil;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3024	isCursorVisible := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3025	AfterAttack;
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3026	end
25b6b554c516 Engine: smxx parents: 2982 diff changeset	3027	end;
25b6b554c516 Engine: smxx parents: 2982 diff changeset	3028
25b6b554c516 Engine: smxx parents: 2982 diff changeset	3029	////////////////////////////////////////////////////////////////////////////////
25b6b554c516 Engine: smxx parents: 2982 diff changeset	3030	procedure doStepBirdyDescend(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3031	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3032	HHGear: PGear;
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3033	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3034	if Gear^.Timer > 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3035	dec(Gear^.Timer, 1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3036	else if CurrentHedgehog = nil then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3037	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3038	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3039	AfterAttack;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3040	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3041	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3042	HHGear := CurrentHedgehog^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3043	HHGear^.Message := HHGear^.Message and not (gm_Up or gm_Precise or gm_Left or gm_Right);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3044	if abs(hwRound(HHGear^.Y - Gear^.Y)) > 32 then
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3045	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3046	if Gear^.Timer = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3047	Gear^.Y := Gear^.Y + _0_1
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3048	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3049	else if Gear^.Timer = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3050	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3051	Gear^.doStep := @doStepBirdyFly;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3052	HHGear^.dY := -_0_2
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3053	end
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3054	end;
25b6b554c516 Engine: smxx parents: 2982 diff changeset	3055
3149 08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	3056	procedure doStepBirdyAppear(Gear: PGear);
08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	3057	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3058	Gear^.Pos := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3059	if Gear^.Timer < 2000 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3060	inc(Gear^.Timer, 1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3061	else
3149 08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	3062	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3063	Gear^.Timer := 500;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3064	Gear^.dX := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3065	Gear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3066	Gear^.State := Gear^.State and not gstAnimation;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3067	Gear^.doStep := @doStepBirdyDescend;
3149 08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	3068	end
08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	3069	end;
08c4d9670b54 Birdy appears from off-screen palewolf parents: 3146 diff changeset	3070
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3071	////////////////////////////////////////////////////////////////////////////////
25b6b554c516 Engine: smxx parents: 2982 diff changeset	3072	procedure doStepBirdy(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3073	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3074	HHGear: PGear;
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3075	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3076	gear^.State := gear^.State or gstAnimation and not gstTmpFlag;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3077	Gear^.doStep := @doStepBirdyAppear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3078	if CurrentHedgehog = nil then
2995 b90745d87332 Engine: smxx parents: 2994 diff changeset	3079	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3080	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3081	exit
2995 b90745d87332 Engine: smxx parents: 2994 diff changeset	3082	end;
b90745d87332 Engine: smxx parents: 2994 diff changeset	3083
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3084	HHGear := CurrentHedgehog^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3085
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3086	if HHGear^.dX.isNegative then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3087	Gear^.Tag := -1
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3088	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3089	Gear^.Tag := 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3090	Gear^.Pos := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3091	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3092	FollowGear := HHGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3093	with HHGear^ do
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3094	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3095	State := State and not gstAttacking;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3096	Message := Message and not (gm_Attack or gm_Up or gm_Precise or gm_Left or gm_Right)
2983 25b6b554c516 Engine: smxx parents: 2982 diff changeset	3097	end
25b6b554c516 Engine: smxx parents: 2982 diff changeset	3098	end;
3032 9c190d3c165b Insert commit message here palewolf parents: 3020 diff changeset	3099
9c190d3c165b Insert commit message here palewolf parents: 3020 diff changeset	3100	////////////////////////////////////////////////////////////////////////////////
3065 4afa5e3e27e4 Birdy egg added mbait parents: 3036 diff changeset	3101	procedure doStepEggWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3102	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3103	vg: PVisualGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3104	i: LongInt;
3065 4afa5e3e27e4 Birdy egg added mbait parents: 3036 diff changeset	3105	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3106	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3107	Gear^.dX := Gear^.dX;
3115 831bd0f7050d Engine: smxx parents: 3107 diff changeset	3108	doStepFallingGear(Gear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3109	// CheckGearDrowning(Gear); // already checked for in doStepFallingGear
3115 831bd0f7050d Engine: smxx parents: 3107 diff changeset	3110	CalcRotationDirAngle(Gear);
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3111
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3112	if (Gear^.State and gstCollision) <> 0 then
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3113	begin
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3114	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 10, EXPLPoisoned or EXPLNoGfx);
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3115	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 10, EXPLPoisoned or EXPLNoGfx);
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3116	PlaySound(sndEggBreak);
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3117	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3118	vg := AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEgg);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3119	if vg <> nil then vg^.Frame := 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3120
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3121	for i:= 10 downto 0 do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3122	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3123	vg := AddVisualGear(hwRound(Gear^.X) - 3 + Random(6), hwRound(Gear^.Y) - 3 + Random(6),
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3124	vgtDust);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3125	if vg <> nil then vg^.dX := vg^.dX + (Gear^.dX / 5);
3115 831bd0f7050d Engine: smxx parents: 3107 diff changeset	3126	end;
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3127
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3128	DeleteGear(Gear);
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3129	exit
831bd0f7050d Engine: smxx parents: 3107 diff changeset	3130	end;
3065 4afa5e3e27e4 Birdy egg added mbait parents: 3036 diff changeset	3131	end;
3342 b4f01613dcd7 Some initial stubs for portal just so Tiy will quit nagging. Also let folks know what approximation of physics I plan to try, here. nemo parents: 3320 diff changeset	3132
3401 d5d31d16eccc add a part of my landslide vector collision and use if for the portal gun DirAngle, not flawless yet sheepluva parents: 3399 diff changeset	3133	////////////////////////////////////////////////////////////////////////////////
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3134	procedure doPortalColorSwitch();
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3135	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3136	flags: LongWord;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3137	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3138	if (CurrentHedgehog <> nil)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3139	and (CurrentHedgehog^.Gear <> nil)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3140	and ((CurrentHedgehog^.Gear^.Message and gm_Switch) <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3141	With CurrentHedgehog^ do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3142	if (Ammo^[CurSlot, CurAmmo].AmmoType = amPortalGun) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3143	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3144	CurrentHedgehog^.Gear^.Message := CurrentHedgehog^.Gear^.Message and not gm_Switch;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3145
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3146	flags := Ammo^[CurSlot, CurAmmo].Timer and not 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3147	if (flags and 1) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3148	Ammo^[CurSlot, CurAmmo].Timer := flags or 1
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3149	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3150	Ammo^[CurSlot, CurAmmo].Timer := flags and not 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3151	end;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3152	end;
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3153
3342 b4f01613dcd7 Some initial stubs for portal just so Tiy will quit nagging. Also let folks know what approximation of physics I plan to try, here. nemo parents: 3320 diff changeset	3154	procedure doStepPortal(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3155	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3156	iterator, conPortal: PGear;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3157	s, acptRadius, cdxy: hwFloat;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3158	noTrap, hasdxy: Boolean;
3342 b4f01613dcd7 Some initial stubs for portal just so Tiy will quit nagging. Also let folks know what approximation of physics I plan to try, here. nemo parents: 3320 diff changeset	3159	begin
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3160	doPortalColorSwitch();
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3161
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3162	// destroy portal if ground it was attached too is gone
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3163	if ((Land[hwRound(Gear^.Y), hwRound(Gear^.X)] and $FF00) = 0)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3164	or (Gear^.Timer < 1)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3165	or (hwRound(Gear^.Y) > cWaterLine) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3166	begin
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3167	deleteGear(Gear);
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3168	EXIT;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3169	end;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3170
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3171	if (TurnTimeLeft < 1)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3172	or (Gear^.Health < 1) then
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3173	dec(Gear^.Timer);
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3174
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3175	if Gear^.Timer < 10000 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3176	gear^.RenderTimer := true;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3177
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3178	// abort if there is no other portal connected to this one
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3179	if (Gear^.IntersectGear = nil) then
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3180	exit;
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3181	if ((Gear^.IntersectGear^.Tag and 1) = 0) then // or if it's still moving;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3182	exit;
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3183
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3184	conPortal := Gear^.IntersectGear;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3185
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3186	// check all gears for stuff to port through
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3187	iterator := nil;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3188	while true do
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3189	begin
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3190
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3191	if iterator = nil then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3192	iterator := GearsList // start
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3193	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3194	iterator := iterator^.NextGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3195	// iterate through GearsList
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3196
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3197	if iterator = nil then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3198	break;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3199	// end of list
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3200
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3201	// don't port portals or other gear that wouldn't make sense
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3202	if (iterator^.Kind = gtPortal) or (iterator^.Kind = gtRope) then
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3203	continue;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3204
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3205	// don't port hogs on rope
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3206	if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3207	and (iterator = CurrentHedgehog^.Gear) and (CurAmmoGear <> nil) and (CurAmmoGear^.Kind =
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3208	gtRope) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3209	continue;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3210
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3211	if (iterator^.Radius > Gear^.Radius) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3212	continue;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3213	// sorry, you're too fat!
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3214
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3215	// this is the range we accept incoming gears in
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3216	acptRadius := Int2hwFloat(iterator^.Radius+Gear^.Radius);
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3217
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3218	if (iterator^.X < Gear^.X - acptRadius)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3219	or (iterator^.X > Gear^.X + acptRadius)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3220	or (iterator^.Y < Gear^.Y - acptRadius)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3221	or (iterator^.Y > Gear^.Y + acptRadius) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3222	continue;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3223	// too far away!
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3224
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3225	hasdxy := ((iterator^.dX.QWordValue <> 0) or (iterator^.dY.QWordValue <> 0));
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3226
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3227	if hasdxy and not (Gear^.dXiterator^.dX + Gear^.dYiterator^.dY).isNegative then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3228	continue;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3229	// won't port stuff that moves away from me!
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3230
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3231	// wow! good candidate there, let's see if the distance really is small enough!
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3232	if (Distance(Gear^.X-iterator^.X,Gear^.Y-iterator^.Y) > acptRadius) then
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3233	continue;
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3234
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3235	noTrap := ((not Gear^.dY.isNegative or (Gear^.dY.QWordValue = 0))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3236	// can't be entered from above
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3237	or ((conPortal^.dY.isNegative and not (conPortal^.dY.QWordValue = 0))));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3238	// can't be left downwards;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3239
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3240	// prevent getting stuck in a ground portal loop
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3241	if noTrap and (iterator^.dY.QWordValue < _0_08.QWordValue) then
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3242	continue;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3243
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3244	iterator^.Active := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3245	iterator^.State := iterator^.State or gstMoving;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3246	DeleteCI(iterator);
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3247
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3248	// TODO: more accurate porting
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3249	cdxy := Distance(conPortal^.dX, conPortal^.dY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3250	s := (Int2hwFloat(Gear^.Radius)) / cdxy;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3251
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3252	iterator^.X := conPortal^.X + s * conPortal^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3253	iterator^.Y := conPortal^.Y + s * conPortal^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3254
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3255	s := Distance(iterator^.dX, iterator^.dY) / cdxy;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3256
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3257	iterator^.dX := s * conPortal^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3258	iterator^.dY := s * conPortal^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3259
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3260	FollowGear := iterator;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3261
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3262	s := _0_2 + _0_008 * Gear^.Health;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3263	iterator^.dX := s * iterator^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3264	iterator^.dY := s * iterator^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3265
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3266	if Gear^.Health > 1 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3267	begin
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3268	dec(Gear^.Health);
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3269	dec(iterator^.Health);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3270	end;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3271
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3272	// breaks (some) loops
41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3273	if Distance(iterator^.dX, iterator^.dY) > _0_96 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3274	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3275	iterator^.dX := iterator^.dX + signAs(cGravity * getRandom(1000),iterator^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3276	iterator^.dY := iterator^.dY + signAs(cGravity * getRandom(1000),iterator^.dY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3277	s := _0_96 / Distance(iterator^.dX, iterator^.dY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3278	iterator^.dX := s * iterator^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3279	iterator^.dY := s * iterator^.dX;
3422 41ae3c48faa0 * some changes/cleanups to portal, still much to do :/ * reverted nemo's temporary loop fix * notice: small loops possible again, so take care :P, bigger onces should be interrupted sheepluva parents: 3419 diff changeset	3280	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3281	end;
3342 b4f01613dcd7 Some initial stubs for portal just so Tiy will quit nagging. Also let folks know what approximation of physics I plan to try, here. nemo parents: 3320 diff changeset	3282	end;
3350 5cd02aafc612 Engine: smxx parents: 3342 diff changeset	3283
3388 ab9352a4ddcc Fix portal graphic name, continuing work on portal movement nemo parents: 3384 diff changeset	3284	procedure doStepMovingPortal(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3285	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3286	x, y, tx, ty: LongInt;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3287	//, bx, by, tangle: LongInt;
3414 b2f3bb44777e some portal changes, warning: no loop prevention yet, note: entry angle not preserved yet sheepluva parents: 3413 diff changeset	3288	s, dx, dy: hwFloat;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3289
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3290	procedure loadNewPortalBall(oldPortal: PGear; destroyGear: Boolean);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3291	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3292	flags: LongWord;
3388 ab9352a4ddcc Fix portal graphic name, continuing work on portal movement nemo parents: 3384 diff changeset	3293	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3294	if CurrentHedgehog <> nil then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3295	With CurrentHedgehog^ do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3296	if (Ammo^[CurSlot, CurAmmo].AmmoType = amPortalGun) then
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3297	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3298	flags := Ammo^[CurSlot, CurAmmo].Timer;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3299
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3300	if destroyGear xor ((oldPortal^.Tag and 2) = 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3301	flags := flags or 1
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3302	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3303	flags := flags and not 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3304
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3305	Ammo^[CurSlot, CurAmmo].Timer := flags and not 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3306	// make the ball visible
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3307	end;
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3308
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3309	if destroyGear then deleteGear(oldPortal);
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3310	end;
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3311
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3312	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3313	doPortalColorSwitch();
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3314
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3315	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3316	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3317	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3318	y := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3319	tx := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3320	ty := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3321	// avoid compiler hints
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3322
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3323	if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y, x] > 255) then
3396 e5b3e5f2818e More portal changes. Allows for a multishoot utility. Hopefully not breaking anything. nemo parents: 3391 diff changeset	3324	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3325	if not calcSlopeTangent(Gear, x, y, tx, ty, 255)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3326	or (DistanceI(tx,ty) < _12) then // reject shots at too irregular terrain
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3327	begin
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3328	loadNewPortalBall(Gear, true);
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3329	EXIT;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3330	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3331
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3332	// making a normalized normal vector
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3333	s := _1/DistanceI(tx,ty);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3334	dx := -s * ty;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3335	dy := s * tx;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3336
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3337	// make sure the vector is pointing outwards
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3338	if not (Gear^.dXdx + Gear^.dYdy).isNegative then
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3339	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3340	dx := -dx;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3341	dy := -dy;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3342	end;
3414 b2f3bb44777e some portal changes, warning: no loop prevention yet, note: entry angle not preserved yet sheepluva parents: 3413 diff changeset	3343
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3344	Gear^.dX := dx;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3345	Gear^.dY := dy;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3346
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3347	Gear^.DirAngle := DxDy2Angle(-dy,dx);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3348	if not Gear^.dX.isNegative then Gear^.DirAngle := 180-Gear^.DirAngle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3349
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3350	if ((Gear^.IntersectGear = nil)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3351	or (hwRound(Distance(Gear^.X - Gear^.IntersectGear^.X,Gear^.Y-Gear^.IntersectGear^.Y)) >=
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3352	Gear^.Radius*2))
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3353	then
3396 e5b3e5f2818e More portal changes. Allows for a multishoot utility. Hopefully not breaking anything. nemo parents: 3391 diff changeset	3354	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3355	loadNewPortalBall(Gear, false);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3356	inc(Gear^.Tag);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3357	Gear^.doStep := @doStepPortal;
3396 e5b3e5f2818e More portal changes. Allows for a multishoot utility. Hopefully not breaking anything. nemo parents: 3391 diff changeset	3358	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3359	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3360	loadNewPortalBall(Gear, true);
3388 ab9352a4ddcc Fix portal graphic name, continuing work on portal movement nemo parents: 3384 diff changeset	3361	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3362	else if (y > cWaterLine) or (y < -LAND_WIDTH)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3363	or (x > 2*LAND_WIDTH) or (x < -LAND_WIDTH) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3364	loadNewPortalBall(Gear, true);
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3365	end;
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3366
46a2694867bc portal: sheepluva parents: 3424 diff changeset	3367	procedure doStepPortalShot(newPortal: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3368	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3369	iterator: PGear;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3370	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3371	newPortal^.IntersectGear := nil;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3372
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3373	if CurrentHedgehog <> nil then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3374	With CurrentHedgehog^ do
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3375	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3376	// make portal gun look unloaded
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3377	Ammo^[CurSlot, CurAmmo].Timer := Ammo^[CurSlot, CurAmmo].Timer or 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3378
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3379	// set portal to the currently chosen color
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3380	if ((Ammo^[CurSlot, CurAmmo].Timer and 1) <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3381	newPortal^.Tag := newPortal^.Tag or 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3382
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3383	iterator := GearsList;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3384	while iterator <> nil do
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3385	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3386	if (iterator^.Kind = gtPortal) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3387	if (iterator <> newPortal) then
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3388	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3389	if (iterator^.Tag and 2) = (newPortal^.Tag and 2) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3390	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3391	iterator := iterator^.PrevGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3392	deleteGear(iterator^.NextGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3393	continue;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3394	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3395	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3396	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3397	// link portals with each other
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3398	newPortal^.IntersectGear := iterator;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3399	iterator^.IntersectGear := newPortal;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3400	iterator^.Health := newPortal^.Health;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3401	end;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3402	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3403	iterator := iterator^.NextGear
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3404	end;
3428 46a2694867bc portal: sheepluva parents: 3424 diff changeset	3405	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3406	newPortal^.doStep := @doStepMovingPortal;
3388 ab9352a4ddcc Fix portal graphic name, continuing work on portal movement nemo parents: 3384 diff changeset	3407	end;
ab9352a4ddcc Fix portal graphic name, continuing work on portal movement nemo parents: 3384 diff changeset	3408
3350 5cd02aafc612 Engine: smxx parents: 3342 diff changeset	3409	procedure doStepPiano(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3410	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3411	r0, r1: LongInt;
3350 5cd02aafc612 Engine: smxx parents: 3342 diff changeset	3412	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3413	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3414	if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) and ((CurrentHedgehog^.Gear^.
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3415	Message and gm_Slot) <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3416	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3417	case CurrentHedgehog^.Gear^.MsgParam of
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3418	0: PlaySound(sndPiano0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3419	1: PlaySound(sndPiano1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3420	2: PlaySound(sndPiano2);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3421	3: PlaySound(sndPiano3);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3422	4: PlaySound(sndPiano4);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3423	5: PlaySound(sndPiano5);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3424	6: PlaySound(sndPiano6);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3425	7: PlaySound(sndPiano7);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3426	else PlaySound(sndPiano8);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3427	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3428	CurrentHedgehog^.Gear^.MsgParam := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3429	CurrentHedgehog^.Gear^.Message := CurrentHedgehog^.Gear^.Message and not gm_Slot;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3430	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3431
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3432	if ((Gear^.Pos = 3) and ((GameFlags and gfSolidLand) <> 0)) or (Gear^.Pos = 20) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3433	// bounce up to 20 times (3 times on gameflagged solid land) before dropping past landscape
3351 3fd3f116f2fc Engine: smxx parents: 3350 diff changeset	3434	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3435	Gear^.dY := Gear^.dY + cGravity * 3;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3436	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3437	CheckGearDrowning(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3438	if (Gear^.State and gstDrowning) <> 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3439	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3440	if CurrentHedgehog^.Gear <> nil then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3441	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3442	// Drown the hedgehog. Could also just delete it, but hey, this gets a caption
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3443	CurrentHedgehog^.Gear^.Active := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3444	CurrentHedgehog^.Gear^.X := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3445	CurrentHedgehog^.Gear^.Y := int2hwFloat(cWaterLine+cVisibleWater)+_128;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3446	CurrentHedgehog^.Unplaced := false
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3447	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3448	ResumeMusic
3351 3fd3f116f2fc Engine: smxx parents: 3350 diff changeset	3449	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3450	exit
3351 3fd3f116f2fc Engine: smxx parents: 3350 diff changeset	3451	end;
3fd3f116f2fc Engine: smxx parents: 3350 diff changeset	3452
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3453	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3454
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3455	if (Gear^.State and gstDrowning) <> 0 then
3358 546e75f839ce Engine: smxx parents: 3356 diff changeset	3456	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3457	if CurrentHedgehog^.Gear <> nil then
3419 b66a1b597f88 Add drown-the-playing-hog check for case of piano falling off the landscape. nemo parents: 3417 diff changeset	3458	begin
b66a1b597f88 Add drown-the-playing-hog check for case of piano falling off the landscape. nemo parents: 3417 diff changeset	3459	// Drown the hedgehog. Could also just delete it, but hey, this gets a caption
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3460	CurrentHedgehog^.Gear^.Active := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3461	CurrentHedgehog^.Gear^.X := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3462	CurrentHedgehog^.Gear^.Y := int2hwFloat(cWaterLine+cVisibleWater)+_128;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3463	CurrentHedgehog^.Unplaced := false
3419 b66a1b597f88 Add drown-the-playing-hog check for case of piano falling off the landscape. nemo parents: 3417 diff changeset	3464	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3465	ResumeMusic
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3466	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3467	else if (Gear^.State and gstCollision) <> 0 then
3399 885304636abf Drown the hog using the piano nemo parents: 3398 diff changeset	3468	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3469	r0 := GetRandom(21);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3470	r1 := GetRandom(21);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3471	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 80 + r0, EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3472	doMakeExplosion(hwRound(Gear^.X) - 30 - r0, hwRound(Gear^.Y) + 40, 40 + r1,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3473	EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3474	doMakeExplosion(hwRound(Gear^.X) + 30 + r1, hwRound(Gear^.Y) + 40, 40 + r0,
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3475	EXPLAutoSound);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3476	Gear^.dY := -_1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3477	Gear^.Pos := Gear^.Pos + 1;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3478	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3479	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3480	Gear^.dY := Gear^.dY + cGravity * 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3481	// let it fall faster so itdoesn't take too long for the whole attack
3382 633046fa040c Gas grenade: mbait parents: 3378 diff changeset	3482	end;
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3483
7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3484
7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3485	////////////////////////////////////////////////////////////////////////////////
7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3486	procedure doStepSineGunShotWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3487	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3488	x, y, rX, rY, t, tmp, initHealth: LongInt;
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3489	oX, oY, ldX, ldY, sdX, sdY, sine, lx, ly, amp: hwFloat;
7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3490	justCollided: boolean;
7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3491	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3492	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3493	initHealth := Gear^.Health;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3494	lX := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3495	lY := Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3496	ldX := Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3497	ldY := Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3498	sdy := _0_5/Distance(Gear^.dX,Gear^.dY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3499	ldX := ldX * sdy;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3500	ldY := ldY * sdy;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3501	sdY := hwAbs(ldX) + hwAbs(ldY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3502	sdX := _1 - hwAbs(ldX/sdY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3503	sdY := _1 - hwAbs(ldY/sdY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3504	if (ldX.isNegative = ldY.isNegative) then sdY := -sdY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3505
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3506	// initial angle depends on current GameTicks
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3507	t := GameTicks mod 4096;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3508
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3509
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3510	// used for a work-around detection of area that is within land array, but outside borders
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3511	justCollided := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3512
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3513	repeat
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3514	lX := lX + ldX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3515	lY := lY + ldY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3516	oX := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3517	oY := Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3518	rX := hwRound(oX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3519	rY := hwRound(oY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3520	tmp := t mod 4096;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3521	amp := _128 * (_1 - hwSqr(int2hwFloat(Gear^.Health)/initHealth));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3522	sine := amp * AngleSin(tmp mod 2048);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3523	sine.isNegative := (tmp < 2048);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3524	inc(t,Gear^.Health div 313);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3525	Gear^.X := lX + (sine * sdX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3526	Gear^.Y := ly + (sine * sdY);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3527	Gear^.dX := Gear^.X - oX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3528	Gear^.dY := Gear^.Y - oY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3529
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3530	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3531	y := hwRound(Gear^.Y);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3532
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3533	// if borders are on, stop outside land array
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3534	if hasBorder and (((x and LAND_WIDTH_MASK) <> 0) or ((y and LAND_HEIGHT_MASK) <> 0)) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3535	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3536	Gear^.Damage := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3537	Gear^.Health := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3538	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3539	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3540	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3541	if (rY <= cWaterLine) or (y <= cWaterLine) then
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3542	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3543	if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3544	and (Land[y, x] <> 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3545	begin
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3546	if justCollided then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3547	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3548	Gear^.Damage := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3549	Gear^.Health := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3550	end
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3551	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3552	begin
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3553	inc(Gear^.Damage,3);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3554	justCollided := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3555	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3556	end
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3557	else
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3558	justCollided := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3559
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3560	// kick nearby hogs, dig tunnel and add some fire
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3561	// if at least 5 collisions occured
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3562	if Gear^.Damage > 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3563	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3564	DrawExplosion(rX,rY,Gear^.Radius);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3565
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3566	// kick nearby hogs
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3567	AmmoShove(Gear, 35, 50);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3568
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3569	dec(Gear^.Health, Gear^.Damage);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3570	Gear^.Damage := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3571
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3572	// add some fire to the tunnel
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3573	if getRandom(6) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3574	AddGear(x - Gear^.Radius + LongInt(getRandom(2 * Gear^.Radius)), y -
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3575	getRandom(Gear^.Radius + 1), gtFlame, gsttmpFlag, _0, _0, 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3576	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3577
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3578	if getRandom(100) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3579	AddVisualGear(x, y, vgtSmokeTrace);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3580	end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3581	else dec(Gear^.Health, 5); // if underwater get additional damage
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3582	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3583
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3584	dec(Gear^.Health);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3585
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3586	// decrease bullet size towards the end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3587	if (Gear^.Radius > 4) then begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3588	if (Gear^.Health <= (initHealth div 3)) then dec(Gear^.Radius) end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3589	else if (Gear^.Radius > 3) then begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3590	if (Gear^.Health <= (initHealth div 4)) then dec(Gear^.Radius) end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3591	else if (Gear^.Radius > 2) then begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3592	if (Gear^.Health <= (initHealth div 5)) then dec(Gear^.Radius) end
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3593	else if (Gear^.Radius > 1) then begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3594	if (Gear^.Health <= (initHealth div 6)) then dec(Gear^.Radius) end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3595
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3596	until (Gear^.Health <= 0);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3597
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3598	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3599	AfterAttack;
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3600	end;
7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3601
7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3602	procedure doStepSineGunShot(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3603	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3604	HHGear: PGear;
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3605	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3606	PlaySound(sndSineGun);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3607
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3608	// push the shooting Hedgehog back
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3609	HHGear := CurrentHedgehog^.Gear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3610	Gear^.dX.isNegative := not Gear^.dX.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3611	Gear^.dY.isNegative := not Gear^.dY.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3612	HHGear^.dX := Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3613	HHGear^.dY := Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3614	AmmoShove(Gear, 0, 80);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3615	Gear^.dX.isNegative := not Gear^.dX.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3616	Gear^.dY.isNegative := not Gear^.dY.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3617
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	3618	Gear^.doStep := @doStepSineGunShotWork;
3384 7eb4707d43f0 * added some comments sheepluva parents: 3382 diff changeset	3619	end;

author	mbait
	Mon, 10 May 2010 04:41:19 +0000
changeset 3454	a9bef74bd6e0
parent 3440	dee31c5149e0
child 3455	f33e7ad2261c
permissions	-rw-r--r--