hedgewars: hedgewars/GSHandlers.inc@6155187bf599 (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
4976 088d40d8aba2 Happy 2011 :) koda parents: 4969 diff changeset	3	* Copyright (c) 2004-2011 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
5121 2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	19	(*
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	20	* This file contains the step handlers for gears.
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	21	*
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	22	* Important: Since gears change the course of the game, calculations that
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	23	* lead to different results for different clients/players/machines
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	24	* should NOT occur!
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	25	* Use safe functions and data types! (e.g. GetRandom() and hwFloat)
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	26	*)
2d34ec60992c added some comments in order to confuse the GSoC students as much as possible ;D sheepluva parents: 5076 diff changeset	27
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	28	procedure doStepPerPixel(Gear: PGear; step: TGearStepProcedure; onlyCheckIfChanged: boolean);
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	29	var
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	30	dX, dY, sX, sY: hwFloat;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	31	i, steps: LongWord;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	32	caller: TGearStepProcedure;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	33	begin
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	34	dX:= Gear^.dX;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	35	dY:= Gear^.dY;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	36	steps:= max(abs(hwRound(Gear^.X+dX)-hwRound(Gear^.X)), abs(hwRound(Gear^.Y+dY)-hwRound(Gear^.Y)));
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	37
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	38	// Gear is still on the same Pixel it was before
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	39	if steps < 1 then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	40	begin
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	41	if onlyCheckIfChanged then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	42	begin
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	43	Gear^.X := Gear^.X + dX;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	44	Gear^.Y := Gear^.Y + dY;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	45	EXIT;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	46	end
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	47	else
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	48	steps := 1;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	49	end;
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	50
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	51	if steps > 1 then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	52	begin
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	53	sX:= dX / steps;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	54	sY:= dY / steps;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	55	end
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	56
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	57	else
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	58	begin
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	59	sX:= dX;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	60	sY:= dY;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	61	end;
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	62
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	63	caller:= Gear^.doStep;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	64
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	65	for i:= 1 to steps do
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	66	begin
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	67	Gear^.X := Gear^.X + sX;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	68	Gear^.Y := Gear^.Y + sY;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	69	step(Gear);
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	70	if (Gear^.doStep <> caller)
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	71	or ((Gear^.State and gstCollision) <> 0)
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	72	or ((Gear^.State and gstMoving) = 0) then
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	73	break;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	74	end;
3569 27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	75	end;
27b0ec683572 portal / slope detection: sheepluva parents: 3562 diff changeset	76
2647 0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	77	procedure makeHogsWorry(x, y: hwFloat; r: LongInt);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	78	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	79	gi: PGear;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	80	d: LongInt;
2647 0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	81	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	82	gi := GearsList;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	83	while gi <> nil do
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	84	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	85	if (gi^.Kind = gtHedgehog) then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	86	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	87	d := r - hwRound(Distance(gi^.X - x, gi^.Y - y));
6450 14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	88	if (d > 1) and (not gi^.Invulnerable) and (GetRandom(2) = 0) then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	89	begin
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	90	if (CurrentHedgehog^.Gear = gi) then
4372 3836973380b9 remove some more PHedgehog casts nemo parents: 4365 diff changeset	91	PlaySound(sndOops, gi^.Hedgehog^.Team^.voicepack)
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	92
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	93	else
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	94	begin
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	95	if (gi^.State and gstMoving) = 0 then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	96	gi^.State := gi^.State or gstLoser;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	97
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	98	if d > r div 2 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	99	PlaySound(sndNooo, gi^.Hedgehog^.Team^.voicepack)
3143 682bc7f99c63 * tweaked some random stuff in GSHandlers.inc sheepluva parents: 3139 diff changeset	100	else
4372 3836973380b9 remove some more PHedgehog casts nemo parents: 4365 diff changeset	101	PlaySound(sndUhOh, gi^.Hedgehog^.Team^.voicepack);
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	102	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	103	end;
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	104	end;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	105
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	106	gi := gi^.NextGear
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	107	end;
2647 0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	108	end;
5313 5e18eaef65d0 now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values Henek parents: 5298 diff changeset	109
5807 5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	110	procedure HideHog(HH: PHedgehog);
5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	111	begin
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	112	ScriptCall('onHogHide', HH^.Gear^.Uid);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	113	DeleteCI(HH^.Gear);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	114	if FollowGear = HH^.Gear then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	115	FollowGear:= nil;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	116
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	117	if lastGearByUID = HH^.Gear then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	118	lastGearByUID := nil;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	119
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	120	RemoveGearFromList(HH^.Gear);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	121	with HH^.Gear^ do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	122	begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	123	Z := cHHZ;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	124	Active := false;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	125	State:= State and (not (gstHHDriven or gstAttacking or gstAttacked));
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	126	Message := Message and (not gmAttack);
5807 5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	127	end;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	128	HH^.GearHidden:= HH^.Gear;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	129	HH^.Gear:= nil
5807 5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	130	end;
5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	131
5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	132	procedure RestoreHog(HH: PHedgehog);
5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	133	begin
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	134	HH^.Gear:=HH^.GearHidden;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	135	HH^.GearHidden:= nil;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	136	InsertGearToList(HH^.Gear);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	137	HH^.Gear^.State:= (HH^.Gear^.State and (not (gstHHDriven or gstInvisible or gstAttacking))) or gstAttacked;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	138	AddGearCI(HH^.Gear);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	139	HH^.Gear^.Active:= true;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	140	ScriptCall('onHogRestore', HH^.Gear^.Uid)
5807 5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	141	end;
5c8fe58dead5 Define 2 script callbacks to notify of hog vanishment nemo parents: 5806 diff changeset	142
2647 0e1208e92dfe Smaxx patch with tuning by me: unc0rr parents: 2634 diff changeset	143	////////////////////////////////////////////////////////////////////////////////
4397 ab577db125c4 Disable rope attach to hogs/crates/barrels etc. Should fix a bug in collision according to unc0rr nemo parents: 4396 diff changeset	144	procedure CheckCollision(Gear: PGear); inline;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	145	begin
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	146	if TestCollisionXwithGear(Gear, hwSign(Gear^.dX))
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	147	or (TestCollisionYwithGear(Gear, hwSign(Gear^.dY)) <> 0) then
6131 4e8816cf9459 merge the changes applied to 0.9.16 koda parents: 6130 5995 diff changeset	148	Gear^.State := Gear^.State or gstCollision
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	149	else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	150	Gear^.State := Gear^.State and (not gstCollision)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	151	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	152
4798 84fb1ff0a1c0 fix sticky rope issue sheepluva parents: 4797 diff changeset	153	procedure CheckCollisionWithLand(Gear: PGear); inline;
84fb1ff0a1c0 fix sticky rope issue sheepluva parents: 4797 diff changeset	154	begin
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	155	if TestCollisionX(Gear, hwSign(Gear^.dX))
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	156	or TestCollisionY(Gear, hwSign(Gear^.dY)) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	157	Gear^.State := Gear^.State or gstCollision
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	158	else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	159	Gear^.State := Gear^.State and (not gstCollision)
4798 84fb1ff0a1c0 fix sticky rope issue sheepluva parents: 4797 diff changeset	160	end;
84fb1ff0a1c0 fix sticky rope issue sheepluva parents: 4797 diff changeset	161
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	162
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	163	////////////////////////////////////////////////////////////////////////////////
6468 da1e7fe7cff7 Start refactoring uGears. Breaks build. unc0rr parents: 6453 diff changeset	164
4 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);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 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	// Create some bubbles (0.5% might be better but causes too few bubbles sometimes)
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	173	if ((not SuddenDeathDmg and (cWaterOpacity < $FF))
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	174	or (SuddenDeathDmg and (cSDWaterOpacity < $FF))) and ((GameTicks and $1F) = 0) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	175	if (Gear^.Kind = gtHedgehog) and (Random(4) = 0) then
5494 5f55e9202122 Fix crasher. thanks to dagni for the demo file that tracked it down. nemo parents: 5480 diff changeset	176	AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble)
2225 162d8f6bca25 Fewer bubbles for non-breathing gears nemo parents: 2221 diff changeset	177	else if Random(12) = 0 then
5494 5f55e9202122 Fix crasher. thanks to dagni for the demo file that tracked it down. nemo parents: 5480 diff changeset	178	AddVisualGear(hwRound(Gear^.X) - Gear^.Radius, hwRound(Gear^.Y) - Gear^.Radius, vgtBubble);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	179	if (not SuddenDeathDmg and (cWaterOpacity > $FE))
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	180	or (SuddenDeathDmg and (cSDWaterOpacity > $FE))
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	181	or (hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater) then
5494 5f55e9202122 Fix crasher. thanks to dagni for the demo file that tracked it down. nemo parents: 5480 diff changeset	182	DeleteGear(Gear);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	183	end;
4 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	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	186	procedure doStepFallingGear(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	187	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	188	isFalling: boolean;
3020 9b443edb8dd1 use cWaterLine for steam, splashes and droplets nemo parents: 3019 diff changeset	189	//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	190	tdX, tdY: hwFloat;
3001 a1d1e0d0067a Still fiddling with bouncing, hoping to make it work nemo parents: 2998 diff changeset	191	collV, collH: LongInt;
6081 537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	192	land: word;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	193	begin
3915 c05855146440 Correct bug in flight ceiling for birdy as well, increase clip on velocity to 1.9 (shouldn't cause problems with most collision checks still), apply clip to both + and - nemo parents: 3909 diff changeset	194	// clip velocity at 1.9 - over 1 per pixel, but really shouldn't cause many actual problems.
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	195	if Gear^.dX.QWordValue > 8160437862 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	196	Gear^.dX.QWordValue:= 8160437862;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	197	if Gear^.dY.QWordValue > 8160437862 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	198	Gear^.dY.QWordValue:= 8160437862;
6450 14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	199	Gear^.State := Gear^.State and (not gstCollision);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	200	collV := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	201	collH := 0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	202	tdX := Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	203	tdY := Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	204
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	205
3359 d17b9f6adae5 Engine: smxx parents: 3358 diff changeset	206	// might need some testing/adjustments - just to avoid projectiles to fly forever (accelerated by wind/skips)
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	207	if (hwRound(Gear^.X) < LAND_WIDTH div -2)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	208	or (hwRound(Gear^.X) > LAND_WIDTH * 3 div 2) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	209	Gear^.State := Gear^.State or gstCollision;
3359 d17b9f6adae5 Engine: smxx parents: 3358 diff changeset	210
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	211	if Gear^.dY.isNegative then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	212	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	213	isFalling := true;
6081 537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	214	land:= TestCollisionYwithGear(Gear, -1);
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	215	if land <> 0 then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	216	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	217	collV := -1;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	218	if land and lfIce <> 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	219	Gear^.dX := Gear^.dX * (_0_9 + Gear^.Friction * _0_1)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	220	else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	221	Gear^.dX := Gear^.dX * Gear^.Friction;
6081 537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	222
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	223	Gear^.dY := - Gear^.dY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	224	Gear^.State := Gear^.State or gstCollision
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	225	end
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	226	else if (Gear^.AdvBounce=1) and (TestCollisionYwithGear(Gear, 1) <> 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	227	collV := 1;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	228	end
6081 537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	229	else
6498 5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	230	begin // Gear^.dY.isNegative is false
6081 537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	231	land:= TestCollisionYwithGear(Gear, 1);
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	232	if land <> 0 then
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	233	begin
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	234	collV := 1;
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	235	isFalling := false;
6498 5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	236	if land and lfIce <> 0 then
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	237	Gear^.dX := Gear^.dX * (_0_9 + Gear^.Friction * _0_1)
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	238	else
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	239	Gear^.dX := Gear^.dX * Gear^.Friction;
6081 537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	240
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	241	Gear^.dY := - Gear^.dY * Gear^.Elasticity;
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	242	Gear^.State := Gear^.State or gstCollision
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	243	end
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	244	else
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	245	begin
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	246	isFalling := true;
6498 5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	247	if (Gear^.AdvBounce=1) and (TestCollisionYwithGear(Gear, -1) <> 0) then
6081 537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	248	collV := -1
537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	249	end
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	250	end;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	251
2989 b49d87499398 Add back sheepluva's 45° patch for some weapons. Rescale Tiy's latest icons to his specifications. nemo parents: 2983 diff changeset	252
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	253	if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	254	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	255	collH := hwSign(Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	256	Gear^.dX := - Gear^.dX * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	257	Gear^.dY := Gear^.dY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	258	Gear^.State := Gear^.State or gstCollision
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	259	end
6131 4e8816cf9459 merge the changes applied to 0.9.16 koda parents: 6130 5995 diff changeset	260	else if (Gear^.AdvBounce=1) and TestCollisionXwithGear(Gear, -hwSign(Gear^.dX)) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	261	collH := -hwSign(Gear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	262	//if Gear^.AdvBounce and (collV <>0) and (collH <> 0) and (hwSqr(tdX) + hwSqr(tdY) > _0_08) then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	263	if (Gear^.AdvBounce=1) and (collV <>0) and (collH <> 0) and ((collV=-1)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	264	or ((tdX.QWordValue + tdY.QWordValue) > _0_2.QWordValue)) then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	265	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	266	Gear^.dX := tdYGear^.ElasticityGear^.Friction;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	267	Gear^.dY := tdX*Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	268	//*Gear^.Friction;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	269	Gear^.dY.isNegative := not tdY.isNegative;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	270	isFalling := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	271	Gear^.AdvBounce := 10;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	272	end;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	273
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	274	if Gear^.AdvBounce > 1 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	275	dec(Gear^.AdvBounce);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	276
6131 4e8816cf9459 merge the changes applied to 0.9.16 koda parents: 6130 5995 diff changeset	277	if isFalling then
4299 d23f8a25fc3f tweak more wind mode nemo parents: 4297 diff changeset	278	begin
d23f8a25fc3f tweak more wind mode nemo parents: 4297 diff changeset	279	Gear^.dY := Gear^.dY + cGravity;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	280	if (GameFlags and gfMoreWind) <> 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	281	Gear^.dX := Gear^.dX + cWindSpeed / Gear^.Density
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	282	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	283
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	284	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	285	Gear^.Y := Gear^.Y + Gear^.dY;
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	286	if Gear^.Kind <> gtBee then
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	287	CheckGearDrowning(Gear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	288	//if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and
6498 5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	289	if (not isFalling) and ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_02.QWordValue) then
6450 14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	290	Gear^.State := Gear^.State and (not gstMoving)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	291	else
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	292	Gear^.State := Gear^.State or gstMoving;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	293
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	294	if (Gear^.nImpactSounds > 0) and (((Gear^.Kind <> gtMine) and (Gear^.Damage <> 0))
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	295	or ((Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving))) and(((Gear^.Radius < 3) and (Gear^.dY < -_0_1))
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	296	or ((Gear^.Radius >= 3) and ((Gear^.dX.QWordValue > _0_1.QWordValue)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	297	or (Gear^.dY.QWordValue > _0_1.QWordValue)))) then
5461 3c2d4e46440f Deletion was a bad idea. nemo parents: 5417 diff changeset	298	PlaySound(TSound(ord(Gear^.ImpactSound) + LongInt(GetRandom(Gear^.nImpactSounds))), true);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	299	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	300
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	301	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	302	procedure doStepBomb(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	303	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	304	i, x, y: LongInt;
919 fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	305	dX, dY: hwFloat;
3475 95345f98da19 Engine: smxx parents: 3473 diff changeset	306	vg: PVisualGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	307	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	308	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	309
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	310	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	311
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	312	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	313	if Gear^.Timer = 1000 then // might need adjustments
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	314	case Gear^.Kind of
5139 090a8b8d1083 grenade back to old damage, but from now on explosions assume they are not closer to a gear's center than the gear's radius sheepluva parents: 5137 diff changeset	315	gtGrenade: makeHogsWorry(Gear^.X, Gear^.Y, 50);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	316	gtClusterBomb: makeHogsWorry(Gear^.X, Gear^.Y, 20);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	317	gtWatermelon: makeHogsWorry(Gear^.X, Gear^.Y, 75);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	318	gtHellishBomb: makeHogsWorry(Gear^.X, Gear^.Y, 90);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	319	gtGasBomb: makeHogsWorry(Gear^.X, Gear^.Y, 50);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	320	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	321
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	322	if (Gear^.Kind = gtBall) and ((Gear^.State and gstTmpFlag) <> 0) then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	323	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	324	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	325	if (Gear^.State and gstCollision) <> 0 then
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	326	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLDontDraw or EXPLNoGfx);
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	327	end;
3004 e9b3613cc3fb Engine: smxx parents: 3002 diff changeset	328
3475 95345f98da19 Engine: smxx parents: 3473 diff changeset	329	if (Gear^.Kind = gtGasBomb) and ((GameTicks mod 200) = 0) then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	330	begin
3475 95345f98da19 Engine: smxx parents: 3473 diff changeset	331	vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeWhite);
95345f98da19 Engine: smxx parents: 3473 diff changeset	332	if vg <> nil then
95345f98da19 Engine: smxx parents: 3473 diff changeset	333	vg^.Tint:= $FFC0C000;
95345f98da19 Engine: smxx parents: 3473 diff changeset	334	end;
95345f98da19 Engine: smxx parents: 3473 diff changeset	335
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	336	if Gear^.Timer = 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	337	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	338	case Gear^.Kind of
5139 090a8b8d1083 grenade back to old damage, but from now on explosions assume they are not closer to a gear's center than the gear's radius sheepluva parents: 5137 diff changeset	339	gtGrenade: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound);
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	340	gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, Gear^.Hedgehog, EXPLAutoSound);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	341	gtClusterBomb:
3476 1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	342	begin
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	343	x := hwRound(Gear^.X);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	344	y := hwRound(Gear^.Y);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	345	doMakeExplosion(x, y, 20, Gear^.Hedgehog, EXPLAutoSound);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	346	for i:= 0 to 4 do
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	347	begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	348	dX := rndSign(GetRandom * _0_1) + Gear^.dX / 5;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	349	dY := (GetRandom - _3) * _0_08;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	350	FollowGear := AddGear(x, y, gtCluster, 0, dX, dY, 25)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	351	end
3476 1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	352	end;
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	353	gtWatermelon:
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	354	begin
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	355	x := hwRound(Gear^.X);
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	356	y := hwRound(Gear^.Y);
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	357	doMakeExplosion(x, y, 75, Gear^.Hedgehog, EXPLAutoSound);
3476 1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	358	for i:= 0 to 5 do
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	359	begin
3505 ada9f697eb11 Engine: mario.liebisch parents: 3497 diff changeset	360	dX := rndSign(GetRandom * _0_1) + Gear^.dX / 5;
3476 1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	361	dY := (GetRandom - _1_5) * _0_3;
6120 85d99bbe074c set followgear to cluster/melon/gascloud nemo parents: 6112 diff changeset	362	FollowGear:= AddGear(x, y, gtMelonPiece, 0, dX, dY, 75);
85d99bbe074c set followgear to cluster/melon/gascloud nemo parents: 6112 diff changeset	363	FollowGear^.DirAngle := i * 60
3476 1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	364	end
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	365	end;
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	366	gtHellishBomb:
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	367	begin
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	368	x := hwRound(Gear^.X);
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	369	y := hwRound(Gear^.Y);
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	370	doMakeExplosion(x, y, 90, Gear^.Hedgehog, EXPLAutoSound);
3476 1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	371
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	372	for i:= 0 to 127 do
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	373	begin
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	374	dX := AngleCos(i * 16) * _0_5 * (GetRandom + _1);
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	375	dY := AngleSin(i * 16) * _0_5 * (GetRandom + _1);
6131 4e8816cf9459 merge the changes applied to 0.9.16 koda parents: 6130 5995 diff changeset	376	if i mod 2 = 0 then
6126 61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	377	begin
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	378	AddGear(x, y, gtFlame, gstTmpFlag, dX, dY, 0);
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	379	AddGear(x, y, gtFlame, 0, dX, -dY, 0)
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	380	end
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	381	else
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	382	begin
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	383	AddGear(x, y, gtFlame, 0, dX, dY, 0);
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	384	AddGear(x, y, gtFlame, gstTmpFlag, dX, -dY, 0)
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	385	end;
3476 1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	386	end
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	387	end;
3712 de2026031833 Engine: smaxx parents: 3710 diff changeset	388	gtGasBomb:
de2026031833 Engine: smaxx parents: 3710 diff changeset	389	begin
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	390	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, Gear^.Hedgehog, EXPLAutoSound);
3712 de2026031833 Engine: smaxx parents: 3710 diff changeset	391	for i:= 0 to 2 do
4160 043c17a8b3ca Don't call getrandom() from parameters to a function. The order of calls is undefined, so desyncs are probable. unc0rr parents: 4155 diff changeset	392	begin
043c17a8b3ca Don't call getrandom() from parameters to a function. The order of calls is undefined, so desyncs are probable. unc0rr parents: 4155 diff changeset	393	x:= GetRandom(60);
043c17a8b3ca Don't call getrandom() from parameters to a function. The order of calls is undefined, so desyncs are probable. unc0rr parents: 4155 diff changeset	394	y:= GetRandom(40);
6120 85d99bbe074c set followgear to cluster/melon/gascloud nemo parents: 6112 diff changeset	395	FollowGear:= AddGear(hwRound(Gear^.X) - 30 + x, hwRound(Gear^.Y) - 20 + y, gtPoisonCloud, 0, _0, _0, 0);
4160 043c17a8b3ca Don't call getrandom() from parameters to a function. The order of calls is undefined, so desyncs are probable. unc0rr parents: 4155 diff changeset	396	end
3712 de2026031833 Engine: smaxx parents: 3710 diff changeset	397	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	398	end;
3476 1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	399	DeleteGear(Gear);
1ec68b8d3bd1 Henek adds a flamethrower, updates some translations, and tweaks how fire works. nemo parents: 3475 diff changeset	400	exit
6498 5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	401	end;
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	402
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	403	CalcRotationDirAngle(Gear);
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	404
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	405	if Gear^.Kind = gtHellishBomb then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	406	begin
6498 5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	407
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	408	if Gear^.Timer = 3000 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	409	begin
6498 5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	410	Gear^.nImpactSounds := 0;
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	411	PlaySound(sndHellish);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	412	end;
6498 5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	413
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	414	if (GameTicks and $3F) = 0 then
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	415	if (Gear^.State and gstCollision) = 0 then
5678806aafca Some tiny optimizations unc0rr parents: 6491 diff changeset	416	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtEvilTrace);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	417	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	418	end;
5313 5e18eaef65d0 now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values Henek parents: 5298 diff changeset	419
2457 ecf0c7e7995b Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets nemo parents: 2455 diff changeset	420	////////////////////////////////////////////////////////////////////////////////
ecf0c7e7995b Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets nemo parents: 2455 diff changeset	421	procedure doStepMolotov(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	422	var
6472 bced12412f94 present somthing that could be taken as a structure Henek parents: 6468 diff changeset	423	s: Longword;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	424	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	425	dX, dY: hwFloat;
5874 5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	426	smoke, glass: PVisualGear;
2457 ecf0c7e7995b Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets nemo parents: 2455 diff changeset	427	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	428	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	429
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	430	doStepFallingGear(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	431	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	432
5870 b9b9fb00c9dd smoke for molotov sheepluva parents: 5869 diff changeset	433	// let's add some smoke depending on speed
6011 519f8a58c021 Fix a bunch of warnings (also improves speed a bit in 32 bit code) unC0Rr parents: 6002 diff changeset	434	s:= max(32,152 - hwRound(Distance(Gear^.dX,Gear^.dY)*120))+random(10);
519f8a58c021 Fix a bunch of warnings (also improves speed a bit in 32 bit code) unC0Rr parents: 6002 diff changeset	435	if (GameTicks mod s) = 0 then
5871 09daa06191d7 Since we are tweaking molotov. make the flame flickery and add a drowning frame nemo parents: 5870 diff changeset	436	begin
5873 4f2d8ce3732b fix side-effects of nemo's bottle-turnin' sheepluva parents: 5871 diff changeset	437	// adjust angle to match the texture
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	438	if Gear^.dX.isNegative then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	439	i:= 130
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	440	else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	441	i:= 50;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	442
5873 4f2d8ce3732b fix side-effects of nemo's bottle-turnin' sheepluva parents: 5871 diff changeset	443	smoke:= AddVisualGear(hwRound(Gear^.X)-round(cos((Gear^.DirAngle+i) * pi / 180)20), hwRound(Gear^.Y)-round(sin((Gear^.DirAngle+i) pi / 180)*20), vgtSmoke);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	444	if smoke <> nil then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	445	smoke^.Scale:= 0.75;
5871 09daa06191d7 Since we are tweaking molotov. make the flame flickery and add a drowning frame nemo parents: 5870 diff changeset	446	end;
5870 b9b9fb00c9dd smoke for molotov sheepluva parents: 5869 diff changeset	447
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	448	if (Gear^.State and gstCollision) <> 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	449	begin
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	450	PlaySound(sndMolotov);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	451	gX := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	452	gY := hwRound(Gear^.Y);
5924 82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	453	for i:= 0 to 4 do
5874 5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	454	begin
5924 82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	455	(*glass:= AddVisualGear(gx+random(7)-3, gy+random(5)-2, vgtEgg);
5874 5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	456	if glass <> nil then
5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	457	begin
5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	458	glass^.Frame:= 2;
5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	459	glass^.Tint:= $41B83ED0 - i * $10081000;
5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	460	glass^.dX:= 1/(10*(random(11)-5));
5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	461	glass^.dY:= -1/(random(4)+5);
5924 82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	462	end;*)
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	463	glass:= AddVisualGear(gx+random(7)-3, gy+random(7)-3, vgtStraightShot);
6131 4e8816cf9459 merge the changes applied to 0.9.16 koda parents: 6130 5995 diff changeset	464	if glass <> nil then
5924 82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	465	with glass^ do
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	466	begin
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	467	Frame:= 2;
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	468	Tint:= $41B83ED0 - i * $10081000;
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	469	Angle:= random * 360;
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	470	dx:= 0.0000001;
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	471	dy:= 0;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	472	if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	473	dx := -dx;
5924 82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	474	FrameTicks:= 750;
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	475	State:= ord(sprEgg)
82fc26c53d2a Tweak sparkles, glass. Left glass commented out in case he prefers old behaviour. nemo parents: 5922 diff changeset	476	end;
5874 5cd329cf2460 nemo's molotov burst effect; with a slight color modification added sheepluva parents: 5873 diff changeset	477	end;
5415 94e26612e2ec Adjust "sticky" fire (molotov) so it makes better fire pits, by making the kicks more regular, yet of random left/right. Tweak napalm slightly along same lines. Probably needs more balancing. nemo parents: 5413 diff changeset	478	for i:= 0 to 24 do
6126 61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	479	begin
5415 94e26612e2ec Adjust "sticky" fire (molotov) so it makes better fire pits, by making the kicks more regular, yet of random left/right. Tweak napalm slightly along same lines. Probably needs more balancing. nemo parents: 5413 diff changeset	480	dX := AngleCos(i * 2) * ((_0_15(i div 5))) (GetRandom + _1);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	481	dY := AngleSin(i * 8) * _0_5 * (GetRandom + _1);
6126 61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	482	AddGear(gX, gY, gtFlame, gstTmpFlag, dX, dY, 0);
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	483	AddGear(gX, gY, gtFlame, gstTmpFlag, dX,-dY, 0);
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	484	AddGear(gX, gY, gtFlame, gstTmpFlag,-dX, dY, 0);
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	485	AddGear(gX, gY, gtFlame, gstTmpFlag,-dX,-dY, 0);
61c1161ee32f Remove unnecessary assignments post-creation. Simplifies Lua manipulation of these adds as well as just being tidier. nemo parents: 6122 diff changeset	486	end;
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	487	DeleteGear(Gear);
3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	488	exit
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	489	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	490	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	491
5313 5e18eaef65d0 now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values Henek parents: 5298 diff changeset	492	////////////////////////////////////////////////////////////////////////////////
1279 33cae6d1635c Use new sounds unc0rr parents: 1273 diff changeset	493
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	494	procedure doStepCluster(Gear: PGear);
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	495	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	496	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	497	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	498	if (Gear^.State and gstCollision) <> 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	499	begin
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	500	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Timer, Gear^.Hedgehog, EXPLAutoSound);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	501	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	502	exit
2948 3f21a9dc93d0 Replace tabs with spaces using 'expand -t 4' command unc0rr parents: 2944 diff changeset	503	end;
1262 e9191c693e44 Add watermelon sprite unc0rr parents: 1261 diff changeset	504
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	505	if (Gear^.Kind = gtMelonPiece)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	506	or (Gear^.Kind = gtBall) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	507	CalcRotationDirAngle(Gear)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	508	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	509	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace)
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	510	end;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	511
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	512	////////////////////////////////////////////////////////////////////////////////
4168 49ad7bea4a33 renaming gtAmmo_Bomb and gtAmmo_Grenade Henek parents: 4160 diff changeset	513	procedure doStepShell(Gear: PGear);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	514	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	515	AllInactive := false;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	516	if (GameFlags and gfMoreWind) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	517	Gear^.dX := Gear^.dX + cWindSpeed;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	518	doStepFallingGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	519	if (Gear^.State and gstCollision) <> 0 then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	520	begin
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	521	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	522	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	523	exit
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	524	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	525	if (GameTicks and $3F) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	526	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	527	end;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	528
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	529	////////////////////////////////////////////////////////////////////////////////
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	530	procedure doStepSnowball(Gear: PGear);
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	531	var kick, i: LongInt;
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	532	particle: PVisualGear;
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	533	begin
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	534	AllInactive := false;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	535	if (GameFlags and gfMoreWind) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	536	Gear^.dX := Gear^.dX + cWindSpeed;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	537	doStepFallingGear(Gear);
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	538	CalcRotationDirAngle(Gear);
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	539	if (Gear^.State and gstCollision) <> 0 then
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	540	begin
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	541	kick:= hwRound((hwAbs(Gear^.dX)+hwAbs(Gear^.dY)) * _20);
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	542	Gear^.dY.isNegative:= not Gear^.dY.isNegative;
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	543	Gear^.dX.isNegative:= not Gear^.dX.isNegative;
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	544	AmmoShove(Gear, 1, kick);
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	545	for i:= 15 + kick div 10 downto 0 do
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	546	begin
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	547	particle := AddVisualGear(hwRound(Gear^.X) + Random(25), hwRound(Gear^.Y) + Random(25), vgtDust);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	548	if particle <> nil then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	549	particle^.dX := particle^.dX + (Gear^.dX.QWordValue / 21474836480)
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	550	end;
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	551	DeleteGear(Gear);
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	552	exit
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	553	end;
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	554	if ((GameTicks and $1F) = 0) and (Random(3) = 0) then
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	555	begin
4582 85e92b6e5ad4 FAIL - actually assign nemo parents: 4578 diff changeset	556	particle:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	557	if particle <> nil then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	558	particle^.dX := particle^.dX + (Gear^.dX.QWordValue / 21474836480)
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	559	end
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	560	end;
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	561
5313 5e18eaef65d0 now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values Henek parents: 5298 diff changeset	562	////////////////////////////////////////////////////////////////////////////////
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	563	procedure doStepSnowflake(Gear: PGear);
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	564	var xx, yy, px, py, rx, ry, lx, ly: LongInt;
5025 ac1691d35cf2 Land sprayer tweaks, make land spray and mudball not end turn nemo parents: 5024 diff changeset	565	move, draw, allpx, gun: Boolean;
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	566	s: PSDL_Surface;
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	567	p: PLongwordArray;
5693 24a93bbdb81a Avoid unsightly gaps in landbacktex nemo parents: 5692 diff changeset	568	lf: LongWord;
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	569	begin
5695 f1015857deb8 Prevent flakes from drawing if they spawn in land nemo parents: 5693 diff changeset	570	inc(Gear^.Pos);
5025 ac1691d35cf2 Land sprayer tweaks, make land spray and mudball not end turn nemo parents: 5024 diff changeset	571	gun:= (Gear^.State and gstTmpFlag) <> 0;
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	572	move:= false;
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	573	draw:= false;
5025 ac1691d35cf2 Land sprayer tweaks, make land spray and mudball not end turn nemo parents: 5024 diff changeset	574	if gun then
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	575	begin
6450 14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	576	Gear^.State:= Gear^.State and (not gstInvisible);
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	577	doStepFallingGear(Gear);
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	578	CheckCollision(Gear);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	579	if ((Gear^.State and gstCollision) <> 0) or ((Gear^.State and gstMoving) = 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	580	draw:= true;
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	581	xx:= hwRound(Gear^.X);
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	582	yy:= hwRound(Gear^.Y);
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	583	end
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	584	else if GameTicks and $7 = 0 then
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	585	begin
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	586	with Gear^ do
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	587	begin
6450 14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	588	State:= State and (not gstInvisible);
5355 9e0c51a882aa match snow to visual gear nemo parents: 5340 diff changeset	589	X:= X + cWindSpeed * 3200 + dX;
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	590	Y:= Y + dY + cGravity * vobFallSpeed * 8; // using same value as flakes to try and get similar results
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	591	xx:= hwRound(X);
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	592	yy:= hwRound(Y);
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	593	if vobVelocity <> 0 then
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	594	begin
4621 1d45bf63f25c more snow nemo parents: 4617 diff changeset	595	DirAngle := DirAngle + (Angle / 1250000000);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	596	if DirAngle < 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	597	DirAngle := DirAngle + 360
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	598	else if 360 < DirAngle then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	599	DirAngle := DirAngle - 360;
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	600	end;
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	601
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	602	inc(Health, 8);
5186 a05c14510c8a fix some more warnings koda parents: 5173 diff changeset	603	if longword(Health) > vobFrameTicks then
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	604	begin
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	605	dec(Health, vobFrameTicks);
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	606	inc(Timer);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	607	if Timer = vobFramesCount then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	608	Timer:= 0
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	609	end;
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	610	// move back to cloud layer
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	611	if yy > cWaterLine then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	612	move:= true
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	613	else if ((yy and LAND_HEIGHT_MASK) <> 0)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	614	or (xx > LAND_WIDTH + 512) or (xx < -512) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	615	move:=true
4791 458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	616	// Solid pixel encountered
5342 1868c2dc0284 Check xx for LAND_WIDTH_MASK unc0rr parents: 5340 diff changeset	617	else if ((xx and LAND_WIDTH_MASK) = 0) and (Land[yy, xx] <> 0) then
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	618	begin
5693 24a93bbdb81a Avoid unsightly gaps in landbacktex nemo parents: 5692 diff changeset	619	lf:= Land[yy, xx] and (lfObject or lfBasic);
4791 458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	620	// If there's room below keep falling
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	621	if (((yy-1) and LAND_HEIGHT_MASK) = 0) and (Land[yy-1, xx] = 0) then
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	622	begin
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	623	X:= X - cWindSpeed * 1600 - dX;
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	624	end
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	625	// If there's room below, on the sides, fill the gaps
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	626	else if (((yy-1) and LAND_HEIGHT_MASK) = 0) and (((xx-(1hwSign(cWindSpeed))) and LAND_WIDTH_MASK) = 0) and (Land[yy-1, (xx-(1hwSign(cWindSpeed)))] = 0) then
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	627	begin
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	628	X:= X - _0_8 * hwSign(cWindSpeed);
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	629	Y:= Y - dY - cGravity * vobFallSpeed * 8;
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	630	end
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	631	else if (((yy-1) and LAND_HEIGHT_MASK) = 0) and (((xx-(2hwSign(cWindSpeed))) and LAND_WIDTH_MASK) = 0) and (Land[yy-1, (xx-(2hwSign(cWindSpeed)))] = 0) then
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	632	begin
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	633	X:= X - _0_8 * 2 * hwSign(cWindSpeed);
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	634	Y:= Y - dY - cGravity * vobFallSpeed * 8;
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	635	end
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	636	else if (((yy-1) and LAND_HEIGHT_MASK) = 0) and (((xx+(1hwSign(cWindSpeed))) and LAND_WIDTH_MASK) = 0) and (Land[yy-1, (xx+(1hwSign(cWindSpeed)))] = 0) then
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	637	begin
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	638	X:= X + _0_8 * hwSign(cWindSpeed);
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	639	Y:= Y - dY - cGravity * vobFallSpeed * 8;
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	640	end
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	641	else if (((yy-1) and LAND_HEIGHT_MASK) = 0) and (((xx+(2hwSign(cWindSpeed))) and LAND_WIDTH_MASK) = 0) and (Land[yy-1, (xx+(2hwSign(cWindSpeed)))] = 0) then
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	642	begin
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	643	X:= X + _0_8 * 2 * hwSign(cWindSpeed);
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	644	Y:= Y - dY - cGravity * vobFallSpeed * 8;
458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	645	end
4805 01332828b568 Fancier detection of hogs/objects. Hogs wont get buried even by the worst of storms. Palewolf parents: 4803 diff changeset	646	// if there's an hog/object below do nothing
01332828b568 Fancier detection of hogs/objects. Hogs wont get buried even by the worst of storms. Palewolf parents: 4803 diff changeset	647	else if ((((yy+1) and LAND_HEIGHT_MASK) = 0) and ((Land[yy+1, xx] and $FF) <> 0))
01332828b568 Fancier detection of hogs/objects. Hogs wont get buried even by the worst of storms. Palewolf parents: 4803 diff changeset	648	then move:=true
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	649	else draw:= true
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	650	end
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	651	end
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	652	end;
6131 4e8816cf9459 merge the changes applied to 0.9.16 koda parents: 6130 5995 diff changeset	653	if draw then
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	654	with Gear^ do
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	655	begin
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	656	// we've collided with land. draw some stuff and get back into the clouds
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	657	move:= true;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	658	if (Pos > 20) and ((CurAmmoGear = nil)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	659	or (CurAmmoGear^.Kind <> gtRope)) then
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	660	begin
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	661	////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS ////////////////////////////////////
5025 ac1691d35cf2 Land sprayer tweaks, make land spray and mudball not end turn nemo parents: 5024 diff changeset	662	if not gun then
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	663	begin
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	664	dec(yy,3);
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	665	dec(xx,1)
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	666	end;
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	667	s:= SpritesData[sprSnow].Surface;
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	668	p:= s^.pixels;
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	669	allpx:= true;
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	670	for py:= 0 to Pred(s^.h) do
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	671	begin
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	672	for px:= 0 to Pred(s^.w) do
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	673	begin
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	674	lx:=xx + px; ly:=yy + py;
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	675	if (ly and LAND_HEIGHT_MASK = 0) and (lx and LAND_WIDTH_MASK = 0) and (Land[ly, lx] and $FF = 0) then
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	676	begin
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	677	rx:= lx;
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	678	ry:= ly;
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	679	if cReducedQuality and rqBlurryLand <> 0 then
5025 ac1691d35cf2 Land sprayer tweaks, make land spray and mudball not end turn nemo parents: 5024 diff changeset	680	begin
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	681	rx:= rx div 2;ry:= ry div 2;
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	682	end;
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	683	if Land[yy + py, xx + px] and $FF00 = 0 then
5025 ac1691d35cf2 Land sprayer tweaks, make land spray and mudball not end turn nemo parents: 5024 diff changeset	684	if gun then
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	685	begin
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	686	LandDirty[yy div 32, xx div 32]:= 1;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	687	if LandPixels[ry, rx] = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	688	Land[ly, lx]:= lfDamaged or lfObject
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	689	else Land[ly, lx]:= lfDamaged or lfBasic
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	690	end
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	691	else Land[ly, lx]:= lf;
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	692	if gun then
6450 14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	693	LandPixels[ry, rx]:= (cExplosionBorderColor and (not AMask)) or (p^[px] and AMask)
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	694	else LandPixels[ry, rx]:= addBgColor(LandPixels[ry, rx], p^[px]);
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	695	end
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	696	else allpx:= false
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	697	end;
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	698	p:= @(p^[s^.pitch shr 2])
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	699	end;
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	700
6419 6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	701	// Why is this here. For one thing, there's no test on +1 being safe.
6a464d0a5c13 Tidy up flake land generation, to avoid ragged holes in landbacktex. Remove of one odd Land[] change forces a PROTO bump. Well, had to happen eventually. nemo parents: 6389 diff changeset	702	//Land[py, px+1]:= lfBasic;
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	703
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	704	if allpx then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	705	UpdateLandTexture(xx, Pred(s^.h), yy, Pred(s^.w))
4791 458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	706	else
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	707	begin
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	708	UpdateLandTexture(
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	709	max(0, min(LAND_WIDTH, xx)),
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	710	min(LAND_WIDTH - xx, Pred(s^.w)),
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	711	max(0, min(LAND_WIDTH, yy)),
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	712	min(LAND_HEIGHT - yy, Pred(s^.h))
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	713	);
4791 458d9854c679 Snow blends into land, trys to fill the gaps Palewolf parents: 4790 diff changeset	714	end;
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	715	////////////////////////////////// TODO - ASK UNC0RR FOR A GOOD HOME FOR THIS ////////////////////////////////////
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	716	end
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	717	end;
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	718
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	719	if move then
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	720	begin
5025 ac1691d35cf2 Land sprayer tweaks, make land spray and mudball not end turn nemo parents: 5024 diff changeset	721	if gun then
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	722	begin
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	723	DeleteGear(Gear);
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	724	exit
1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	725	end;
5695 f1015857deb8 Prevent flakes from drawing if they spawn in land nemo parents: 5693 diff changeset	726	Gear^.Pos:= 0;
5024 1e332947147c Landgun, first pass. At sdw's request. nemo parents: 5016 diff changeset	727	Gear^.X:= int2hwFloat(GetRandom(LAND_WIDTH+1024)-512);
5413 6786f672d30b Somehow this line got lost somewhere unc0rr parents: 5402 diff changeset	728	Gear^.Y:= int2hwFloat(750+(GetRandom(50)-25));
6786f672d30b Somehow this line got lost somewhere unc0rr parents: 5402 diff changeset	729	Gear^.State:= Gear^.State or gstInvisible;
4611 445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	730	end
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	731	end;
445d382cd401 A very very basic snow implementation nemo parents: 4602 diff changeset	732
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	733	////////////////////////////////////////////////////////////////////////////////
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	734	procedure doStepGrave(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	735	begin
3454 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^.dY.isNegative then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	738	if TestCollisionY(Gear, -1) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	739	Gear^.dY := _0;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	740
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	741	if not Gear^.dY.isNegative then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	742	if TestCollisionY(Gear, 1) then
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	Gear^.dY := - Gear^.dY * Gear^.Elasticity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	745	if Gear^.dY > - _1div1024 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	746	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	747	Gear^.Active := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	748	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	749	end
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	750	else if Gear^.dY < - _0_03 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	751	PlaySound(Gear^.ImpactSound)
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	752	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	753
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	754	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	755	CheckGearDrowning(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	756	Gear^.dY := Gear^.dY + cGravity
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	757	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	758
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	759	////////////////////////////////////////////////////////////////////////////////
3080 b7fa8ad60e3b Engine: smxx parents: 3075 diff changeset	760	procedure doStepBeeWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	761	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	762	t: hwFloat;
5748 70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	763	gX,gY,i: LongInt;
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	764	uw, nuw: boolean;
5748 70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	765	flower: PVisualGear;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	766
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	767	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	768	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	769	gX := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	770	gY := hwRound(Gear^.Y);
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	771	uw := (Gear^.Tag <> 0); // was bee underwater last tick?
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	772	nuw := (cWaterLine < gy + Gear^.Radius); // is bee underwater now?
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	773
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	774	// if water entered or left
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	775	if nuw <> uw then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	776	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	777	AddVisualGear(gX, cWaterLine, vgtSplash);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	778	AddVisualGear(gX - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	779	AddVisualGear(gX - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	780	AddVisualGear(gX - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	781	AddVisualGear(gX - 3 + Random(6), cWaterLine, vgtDroplet);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	782	StopSound(Gear^.SoundChannel);
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	783	if nuw then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	784	begin
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	785	Gear^.SoundChannel := LoopSound(sndBeeWater);
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	786	Gear^.Tag := 1;
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	787	end
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	788	else
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	789	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	790	Gear^.SoundChannel := LoopSound(sndBee);
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	791	Gear^.Tag := 0;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	792	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	793	end;
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	794
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	795
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	796	if Gear^.Timer = 0 then
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	797	Gear^.RenderTimer:= false
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	798	else
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	799	begin
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	800	if (GameTicks and $F) = 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	801	begin
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	802	if (GameTicks and $30) = 0 then
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	803	AddVisualGear(gX, gY, vgtBeeTrace);
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	804	Gear^.dX := Gear^.Elasticity * (Gear^.dX + _0_000064 * (Gear^.Target.X - gX));
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	805	Gear^.dY := Gear^.Elasticity * (Gear^.dY + _0_000064 * (Gear^.Target.Y - gY));
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	806	// make sure new speed isn't higher than original one (which we stored in Friction variable)
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	807	t := Gear^.Friction / Distance(Gear^.dX, Gear^.dY);
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	808	Gear^.dX := Gear^.dX * t;
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	809	Gear^.dY := Gear^.dY * t;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	810	end;
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	811
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	812	Gear^.X := Gear^.X + Gear^.dX;
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	813	Gear^.Y := Gear^.Y + Gear^.dY;
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	814
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	815	end;
3591 c447d5218f6f bee: sheepluva parents: 3588 diff changeset	816
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	817
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	818	CheckCollision(Gear);
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	819	if ((Gear^.State and gstCollision) <> 0) then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	820	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	821	StopSound(Gear^.SoundChannel);
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	822	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound);
5748 70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	823	for i:= 0 to 31 do
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	824	begin
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	825	flower:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot);
6131 4e8816cf9459 merge the changes applied to 0.9.16 koda parents: 6130 5995 diff changeset	826	if flower <> nil then
5748 70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	827	with flower^ do
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	828	begin
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	829	Scale:= 0.75;
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	830	dx:= 0.001 * (random(200));
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	831	dy:= 0.001 * (random(200));
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	832	if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	833	dx := -dx;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	834	if random(2) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	835	dy := -dy;
5748 70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	836	FrameTicks:= random(250) + 250;
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	837	State:= ord(sprTargetBee);
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	838	end;
70d7f8e40f53 Just for fun. Flowers! Also, use a less blatant image in ammo menu. nemo parents: 5738 diff changeset	839	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	840	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	841	end;
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	842
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	843	if (Gear^.Timer > 0) then
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	844	dec(Gear^.Timer)
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	845	else
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	846	begin
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	847	if nuw then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	848	begin
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	849	StopSound(Gear^.SoundChannel);
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	850	CheckGearDrowning(Gear);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	851	end
6251 5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	852	else
5cd33711afb9 Bee: sheepluva parents: 6156 diff changeset	853	doStepFallingGear(Gear);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	854	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	855	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	856
3080 b7fa8ad60e3b Engine: smxx parents: 3075 diff changeset	857	procedure doStepBee(Gear: PGear);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	858	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	859	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	860	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	861	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	862	Gear^.dY := Gear^.dY + cGravity;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	863	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	864	if (Gear^.State and gstCollision) <> 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	865	begin
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	866	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, Gear^.Hedgehog, EXPLAutoSound);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	867	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	868	exit
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	869	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	870	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	871	if Gear^.Timer = 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	872	begin
6450 14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	873	Gear^.Hedgehog^.Gear^.Message:= Gear^.Hedgehog^.Gear^.Message and (not gmAttack);
14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	874	Gear^.Hedgehog^.Gear^.State:= Gear^.Hedgehog^.Gear^.State and (not gstAttacking);
4135 5be798ecafdc This should make bee and other targetted things behave more reliably in infinite attack mode. Blocks switching of weps if a target point is active. nemo parents: 4104 diff changeset	875	AttackBar:= 0;
5be798ecafdc This should make bee and other targetted things behave more reliably in infinite attack mode. Blocks switching of weps if a target point is active. nemo parents: 4104 diff changeset	876
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	877	Gear^.SoundChannel := LoopSound(sndBee);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	878	Gear^.Timer := 5000;
3591 c447d5218f6f bee: sheepluva parents: 3588 diff changeset	879	// save initial speed in otherwise unused Friction variable
c447d5218f6f bee: sheepluva parents: 3588 diff changeset	880	Gear^.Friction := Distance(Gear^.dX, Gear^.dY);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	881	Gear^.doStep := @doStepBeeWork
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	882	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	883	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	884
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	885	////////////////////////////////////////////////////////////////////////////////
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	886	procedure doStepShotIdle(Gear: PGear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	887	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	888	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	889	inc(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	890	if Gear^.Timer > 75 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	891	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	892	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	893	AfterAttack
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	894	end
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	895	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	896
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	897	procedure doStepShotgunShot(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	898	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	899	i: LongWord;
2828 e45410eae9ea Engine: smxx parents: 2762 diff changeset	900	shell: PVisualGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	901	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	902	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	903
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	904	if ((Gear^.State and gstAnimation) = 0) then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	905	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	906	dec(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	907	if Gear^.Timer = 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	908	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	909	PlaySound(sndShotgunFire);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	910	shell := AddVisualGear(hwRound(Gear^.x), hwRound(Gear^.y), vgtShell);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	911	if shell <> nil then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	912	begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3591 diff changeset	913	shell^.dX := gear^.dX.QWordValue / -17179869184;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3591 diff changeset	914	shell^.dY := gear^.dY.QWordValue / -17179869184;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	915	shell^.Frame := 0
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	916	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	917	Gear^.State := Gear^.State or gstAnimation
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	918	end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	919	exit
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	920	end
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	921	else
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	922	inc(Gear^.Timer);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	923
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	924	i := 200;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	925	repeat
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	926	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	927	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	928	CheckCollision(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	929	if (Gear^.State and gstCollision) <> 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	930	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	931	Gear^.X := Gear^.X + Gear^.dX * 8;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	932	Gear^.Y := Gear^.Y + Gear^.dY * 8;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	933	ShotgunShot(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	934	Gear^.doStep := @doStepShotIdle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	935	exit
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	936	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	937
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	938	CheckGearDrowning(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	939	if (Gear^.State and gstDrowning) <> 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	940	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	941	Gear^.doStep := @doStepShotIdle;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	942	exit
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	943	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	944	dec(i)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	945	until i = 0;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	946	if (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0) or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0) then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	947	Gear^.doStep := @doStepShotIdle
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	948	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	949
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	950	////////////////////////////////////////////////////////////////////////////////
5841 ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	951	procedure spawnBulletTrail(Bullet: PGear);
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	952	var oX, oY: hwFloat;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	953	VGear: PVisualGear;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	954	begin
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	955	if Bullet^.PortalCounter = 0 then
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	956	begin
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	957	ox:= CurrentHedgehog^.Gear^.X + Int2hwFloat(GetLaunchX(CurrentHedgehog^.CurAmmoType, hwSign(CurrentHedgehog^.Gear^.dX), CurrentHedgehog^.Gear^.Angle));
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	958	oy:= CurrentHedgehog^.Gear^.Y + Int2hwFloat(GetLaunchY(CurrentHedgehog^.CurAmmoType, CurrentHedgehog^.Gear^.Angle));
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	959	end
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	960	else
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	961	begin
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	962	ox:= Bullet^.Elasticity;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	963	oy:= Bullet^.Friction;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	964	end;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	965
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	966	// Bullet trail
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	967	VGear := AddVisualGear(hwRound(ox), hwRound(oy), vgtLineTrail);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	968
5841 ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	969	if VGear <> nil then
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	970	begin
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	971	VGear^.X:= hwFloat2Float(ox);
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	972	VGear^.Y:= hwFloat2Float(oy);
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	973	VGear^.dX:= hwFloat2Float(Bullet^.X);
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	974	VGear^.dY:= hwFloat2Float(Bullet^.Y);
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	975
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	976	// reached edge of land. assume infinite beam. Extend it way out past camera
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	977	if (hwRound(Bullet^.X) and LAND_WIDTH_MASK <> 0)
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	978	or (hwRound(Bullet^.Y) and LAND_HEIGHT_MASK <> 0) then
5841 ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	979	// only extend if not under water
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	980	if hwRound(Bullet^.Y) < cWaterLine then
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	981	begin
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	982	VGear^.dX := VGear^.dX + LAND_WIDTH * (VGear^.dX - VGear^.X);
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	983	VGear^.dY := VGear^.dY + LAND_WIDTH * (VGear^.dY - VGear^.Y);
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	984	end;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	985
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	986	VGear^.Timer := 200;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	987	end;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	988	end;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	989
2023 41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	990	procedure doStepBulletWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	991	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	992	i, x, y: LongWord;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	993	oX, oY: hwFloat;
4327 224efdd648e1 Small animation on bullet impact Palewolf parents: 4325 diff changeset	994	VGear: PVisualGear;
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	995	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	996	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	997	inc(Gear^.Timer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	998	i := 80;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	999	oX := Gear^.X;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1000	oY := Gear^.Y;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1001	repeat
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1002	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1003	Gear^.Y := Gear^.Y + Gear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1004	x := hwRound(Gear^.X);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1005	y := hwRound(Gear^.Y);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1006
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1007	if ((y and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y, x] <> 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1008	inc(Gear^.Damage);
5841 ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1009	// let's interrupt before a collision to give portals a chance to catch the bullet
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1010	if (Gear^.Damage = 1) and (Gear^.Tag = 0) and (Land[y, x] > 255) then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1011	begin
5841 ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1012	Gear^.Tag := 1;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1013	Gear^.Damage := 0;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1014	Gear^.X := Gear^.X - Gear^.dX;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1015	Gear^.Y := Gear^.Y - Gear^.dY;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1016	CheckGearDrowning(Gear);
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1017	break;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1018	end
5841 ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1019	else
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1020	Gear^.Tag := 0;
ef0a76e154cb some portal love for deagle/etc shots sheepluva parents: 5839 diff changeset	1021
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1022	if Gear^.Damage > 5 then
3836 833c0f32e326 Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon. nemo parents: 3821 diff changeset	1023	if Gear^.AmmoType = amDEagle then
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1024	AmmoShove(Gear, 7, 20)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1025	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1026	AmmoShove(Gear, Gear^.Timer, 20);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1027	CheckGearDrowning(Gear);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1028	dec(i) until (i = 0) or (Gear^.Damage > Gear^.Health) or ((Gear^.State and gstDrowning) <> 0);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1029	if Gear^.Damage > 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1030	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1031	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1032	dec(Gear^.Health, Gear^.Damage);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1033	Gear^.Damage := 0
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1034	end;
4792 68f9b331014a sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change Henek parents: 4791 diff changeset	1035	if ((Gear^.State and gstDrowning) <> 0) and (Gear^.Damage < Gear^.Health) and ((not SuddenDeathDmg and (cWaterOpacity < $FF)) or (SuddenDeathDmg and (cSDWaterOpacity < $FF))) then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1036	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1037	for i:=(Gear^.Health - Gear^.Damage) * 4 downto 0 do
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1038	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1039	if Random(6) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1040	AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtBubble);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1041	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1042	Gear^.Y := Gear^.Y + Gear^.dY;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1043	end;
2994 7ae3067546f2 Palewolf adds bubbles and splashes when firing bullets into the water nemo parents: 2989 diff changeset	1044	end;
1760 55a1edd97911 Fix nemo's large land patch unc0rr parents: 1753 diff changeset	1045
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1046	if (Gear^.Health <= 0)
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1047	or (hwRound(Gear^.X) and LAND_WIDTH_MASK <> 0)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1048	or (hwRound(Gear^.Y) and LAND_HEIGHT_MASK <> 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1049	begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1050	if (Gear^.Kind = gtSniperRifleShot) and ((GameFlags and gfLaserSight) = 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1051	cLaserSighting := false;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1052	if (Ammoz[Gear^.AmmoType].Ammo.NumPerTurn <= CurrentHedgehog^.MultiShootAttacks) and ((GameFlags and gfArtillery) = 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1053	cArtillery := false;
4279 b697a26ed538 Light trails for bullets Palewolf parents: 4277 diff changeset	1054
4327 224efdd648e1 Small animation on bullet impact Palewolf parents: 4325 diff changeset	1055	// Bullet Hit
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1056	if (hwRound(Gear^.X) and LAND_WIDTH_MASK = 0) and (hwRound(Gear^.Y) and LAND_HEIGHT_MASK = 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1057	begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1058	VGear := AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtBulletHit);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1059	if VGear <> nil then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1060	begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1061	VGear^.Angle := DxDy2Angle(-Gear^.dX, Gear^.dY);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1062	end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1063	end;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1064
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1065	spawnBulletTrail(Gear);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1066	Gear^.doStep := @doStepShotIdle
4327 224efdd648e1 Small animation on bullet impact Palewolf parents: 4325 diff changeset	1067	end;
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	1068	end;
2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	1069
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	1070	procedure doStepDEagleShot(Gear: PGear);
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	1071	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1072	PlaySound(sndGun);
5926 09bbc7b88714 2 extra steps was still occasionally causing problems w/ edge cases. hopefully 3 should do the trick nemo parents: 5924 diff changeset	1073	// add 3 initial steps to avoid problem with ammoshove related to calculation of radius + 1 radius as gear widths, and also just plain old weird angles
09bbc7b88714 2 extra steps was still occasionally causing problems w/ edge cases. hopefully 3 should do the trick nemo parents: 5924 diff changeset	1074	Gear^.X := Gear^.X + Gear^.dX * 3;
09bbc7b88714 2 extra steps was still occasionally causing problems w/ edge cases. hopefully 3 should do the trick nemo parents: 5924 diff changeset	1075	Gear^.Y := Gear^.Y + Gear^.dY * 3;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1076	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	1077	end;
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	1078
41d3afaa20c7 Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump nemo parents: 2017 diff changeset	1079	procedure doStepSniperRifleShot(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1080	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1081	HHGear: PGear;
2828 e45410eae9ea Engine: smxx parents: 2762 diff changeset	1082	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	1083	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1084	cArtillery := true;
4365 4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast unc0rr parents: 4337 diff changeset	1085	HHGear := Gear^.Hedgehog^.Gear;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1086	HHGear^.State := HHGear^.State or gstNotKickable;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1087	HedgehogChAngle(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1088	if not cLaserSighting then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1089	// game does not have default laser sight. turn it on and give them a chance to aim
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1090	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1091	cLaserSighting := true;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1092	HHGear^.Message := 0;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1093	if (HHGear^.Angle - 32 >= 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1094	dec(HHGear^.Angle,32)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1095	end;
2031 b6f3e56fb100 david_ac's game scheme options for mine delay/quantity, tweaks to sniper rifle nemo parents: 2029 diff changeset	1096
3894 9abce5468583 Engine: smaxx parents: 3852 diff changeset	1097	if (HHGear^.Message and gmAttack) <> 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1098	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1099	shell := AddVisualGear(hwRound(Gear^.x), hwRound(Gear^.y), vgtShell);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1100	if shell <> nil then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1101	begin
3593 ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3591 diff changeset	1102	shell^.dX := gear^.dX.QWordValue / -8589934592;
ae50f63e4fa9 Remove hwFloat from VisualGears - they don't need the precision for syncing purposes, and it saves a whole lot of operations. nemo parents: 3591 diff changeset	1103	shell^.dY := gear^.dY.QWordValue / -8589934592;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1104	shell^.Frame := 1
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1105	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1106	Gear^.State := Gear^.State or gstAnimation;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1107	Gear^.dX := SignAs(AngleSin(HHGear^.Angle), HHGear^.dX) * _0_5;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1108	Gear^.dY := -AngleCos(HHGear^.Angle) * _0_5;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1109	PlaySound(sndGun);
5926 09bbc7b88714 2 extra steps was still occasionally causing problems w/ edge cases. hopefully 3 should do the trick nemo parents: 5924 diff changeset	1110	// add 3 initial steps to avoid problem with ammoshove related to calculation of radius + 1 radius as gear widths, and also just weird angles
09bbc7b88714 2 extra steps was still occasionally causing problems w/ edge cases. hopefully 3 should do the trick nemo parents: 5924 diff changeset	1111	Gear^.X := Gear^.X + Gear^.dX * 3;
09bbc7b88714 2 extra steps was still occasionally causing problems w/ edge cases. hopefully 3 should do the trick nemo parents: 5924 diff changeset	1112	Gear^.Y := Gear^.Y + Gear^.dY * 3;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1113	Gear^.doStep := @doStepBulletWork;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1114	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1115	else
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1116	if (GameTicks mod 32) = 0 then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1117	if (GameTicks mod 4096) < 2048 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1118	begin
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1119	if (HHGear^.Angle + 1 <= cMaxAngle) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1120	inc(HHGear^.Angle)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1121	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1122	else
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1123	if (HHGear^.Angle - 1 >= 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1124	dec(HHGear^.Angle);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1125
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1126	if (TurnTimeLeft > 0) then
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1127	dec(TurnTimeLeft)
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1128	else
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1129	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1130	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1131	AfterAttack
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1132	end;
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	1133	end;
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	1134
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	1135	////////////////////////////////////////////////////////////////////////////////
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1136	procedure doStepActionTimer(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1137	begin
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1138	dec(Gear^.Timer);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1139	case Gear^.Kind of
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1140	gtATStartGame:
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1141	begin
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1142	AllInactive := false;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1143	if Gear^.Timer = 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1144	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1145	AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1146	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1147	end;
5368 a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1148	gtATFinishGame:
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1149	begin
5368 a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1150	AllInactive := false;
a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1151	if Gear^.Timer = 1000 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1152	begin
5368 a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1153	ScreenFade := sfToBlack;
a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1154	ScreenFadeValue := 0;
a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1155	ScreenFadeSpeed := 1;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1156	end;
5368 a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1157	if Gear^.Timer = 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1158	begin
5368 a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1159	SendIPC('N');
a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1160	SendIPC('q');
a66d5141a3ba fix build. seems like a indentation-related merge-oopsy dragged deleted code back in. sheepluva parents: 5366 diff changeset	1161	GameState := gsExit
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1162	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1163	end;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1164	end;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1165	if Gear^.Timer = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1166	DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1167	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1168
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1169	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1170	procedure doStepPickHammerWork(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1171	var
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1172	i, ei, x, y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1173	HHGear: PGear;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1174	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1175	AllInactive := false;
4365 4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast unc0rr parents: 4337 diff changeset	1176	HHGear := Gear^.Hedgehog^.Gear;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1177	dec(Gear^.Timer);
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1178	if ((GameFlags and gfInfAttack) <> 0) and (TurnTimeLeft > 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1179	dec(TurnTimeLeft);
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1180	if (TurnTimeLeft = 0) or (Gear^.Timer = 0)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1181	or((Gear^.Message and gmDestroy) <> 0)
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1182	or((HHGear^.State and gstHHDriven) =0) then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1183	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1184	StopSound(Gear^.SoundChannel);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1185	DeleteGear(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1186	AfterAttack;
3954 ae3583ad6ea9 Hopefully fix the last of the more obvious weapon bugs w/ infinite attack mode, add a depixeling sweep every 5s too. nemo parents: 3953 diff changeset	1187	doStepHedgehogMoving(HHGear); // for gfInfAttack
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1188	exit
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1189	end;
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1190
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1191	x:= hwRound(Gear^.X);
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1192	y:= hwRound(Gear^.Y);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1193	if (Gear^.Timer mod 33) = 0 then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1194	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1195	HHGear^.State := HHGear^.State or gstNoDamage;
4837 2ea0a152c319 Pass PHedgehog instead of PGear to stats. Fixes crash. unc0rr parents: 4824 diff changeset	1196	doMakeExplosion(x, y + 7, 6, Gear^.Hedgehog, EXPLDontDraw);
6450 14224c9b4594 - Improvement to the parser unc0rr parents: 6419 diff changeset	1197	HHGear^.State := HHGear^.State and (not gstNoDamage)
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1198	end;
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	1199
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1200	if (Gear^.Timer mod 47) = 0 then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1201	begin
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1202	// ok. this was an attempt to turn off dust if not actually drilling land. I have no idea why it isn't working as expected
6131 4e8816cf9459 merge the changes applied to 0.9.16 koda parents: 6130 5995 diff changeset	1203	if (( (y + 12) and LAND_HEIGHT_MASK) = 0) and ((x and LAND_WIDTH_MASK) = 0) and (Land[y + 12, x] > 255) then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1204	for i:= 0 to 1 do
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1205	AddVisualGear(x - 5 + Random(10), y + 12, vgtDust);
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1206
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1207	i := x - Gear^.Radius - LongInt(GetRandom(2));
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1208	ei := x + Gear^.Radius + LongInt(GetRandom(2));
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1209	while i <= ei do
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1210	begin
f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1211	DrawExplosion(i, y + 3, 3);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1212	inc(i, 1)
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1213	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	1214
6314 b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1215	if CheckLandValue(hwRound(Gear^.X + Gear^.dX + SignAs(_6,Gear^.dX)), hwRound(Gear^.Y + _1_9), lfIndestructible) then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1216	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1217	Gear^.X := Gear^.X + Gear^.dX;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1218	Gear^.Y := Gear^.Y + _1_9;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1219	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1220	SetAllHHToActive;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1221	end;
6081 537bbd5c1a62 Basic test implementation of an ice flag. Allows for slick parts of terrain. Intended for ice gun, or "ice" mask on portions of land objects. nemo parents: 6011 diff changeset	1222	if TestCollisionYwithGear(Gear, 1) <> 0 then
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1223	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1224	Gear^.dY := _0;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1225	SetLittle(HHGear^.dX);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1226	HHGear^.dY := _0;
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1227	end
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1228	else
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1229	begin
6389 9acbf54e9379 prevent flinging up into any land. nemo parents: 6385 diff changeset	1230	if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y + Gear^.dY + cGravity), $FF00) then
6314 b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1231	begin
b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1232	Gear^.dY := Gear^.dY + cGravity;
b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1233	Gear^.Y := Gear^.Y + Gear^.dY
b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1234	end;
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1235	if hwRound(Gear^.Y) > cWaterLine then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1236	Gear^.Timer := 1
4578 f3cf226fad16 Snowball weapon nemo parents: 4473 diff changeset	1237	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1238
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1239	Gear^.X := Gear^.X + HHGear^.dX;
6389 9acbf54e9379 prevent flinging up into any land. nemo parents: 6385 diff changeset	1240	if CheckLandValue(hwRound(Gear^.X), hwRound(Gear^.Y)-cHHRadius, $FF00) then
6314 b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1241	begin
b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1242	HHGear^.X := Gear^.X;
b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1243	HHGear^.Y := Gear^.Y - int2hwFloat(cHHRadius)
b4fc5b863f5f Add more border checks nemo parents: 6305 diff changeset	1244	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1245
3894 9abce5468583 Engine: smaxx parents: 3852 diff changeset	1246	if (Gear^.Message and gmAttack) <> 0 then
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1247	if (Gear^.State and gsttmpFlag) <> 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1248	Gear^.Timer := 1
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1249	else //there would be a mistake.
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1250	else
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1251	if (Gear^.State and gsttmpFlag) = 0 then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1252	Gear^.State := Gear^.State or gsttmpFlag;
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1253	if ((Gear^.Message and gmLeft) <> 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1254	Gear^.dX := - _0_3
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1255	else
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1256	if ((Gear^.Message and gmRight) <> 0) then
6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1257	Gear^.dX := _0_3
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1258	else Gear^.dX := _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1259	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1260
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1261	procedure doStepPickHammer(Gear: PGear);
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1262	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1263	i, y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1264	ar: TRangeArray;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	1265	HHGear: PGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1266	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1267	i := 0;
4365 4f2b1a152979 Remove ugly PHedgehog(Gear^.Hedgehog) cast unc0rr parents: 4337 diff changeset	1268	HHGear := Gear^.Hedgehog^.Gear;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1269
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1270	y := hwRound(Gear^.Y) - cHHRadius * 2;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1271	while y < hwRound(Gear^.Y) do
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1272	begin
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1273	ar[i].Left := hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1274	ar[i].Right := hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1275	inc(y, 2);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1276	inc(i)
6580 6155187bf599 A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent. lovelacer parents: 6556 diff changeset	1277	end;
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1278
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1279	DrawHLinesExplosions(@ar, 3, hwRound(Gear^.Y) - cHHRadius * 2, 2, Pred(i));
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1280	Gear^.dY := HHGear^.dY;
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1281	DeleteCI(HHGear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1282
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1283	Gear^.SoundChannel := LoopSound(sndPickhammer);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1284	doStepPickHammerWork(Gear);
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1285	Gear^.doStep := @doStepPickHammerWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1286	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1287
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1288	////////////////////////////////////////////////////////////////////////////////
3454 a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1289	var
a9bef74bd6e0 Code restlyling: experimental restyling of one module mbait parents: 3440 diff changeset	1290	BTPrevAngle, BTSteps: LongInt;
302 7aca131ecd7f First impleme

author	lovelacer
	Tue, 17 Jan 2012 09:01:31 -0500
changeset 6580	6155187bf599
parent 6556	faa47a7e614a
child 6700	e04da46ee43c
permissions	-rw-r--r--