sheepy-clone: hedgewars/GSHandlers.inc@f13a67ce3811 (annotated)

4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1	(*
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	2	* Hedgewars, a worms-like game
883 07a568ba44e0 Update copyright info in source files headers unc0rr parents: 876 diff changeset	3	* Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	4	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	5	* This program is free software; you can redistribute it and/or modify
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	6	* it under the terms of the GNU General Public License as published by
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	7	* the Free Software Foundation; version 2 of the License
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	8	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	9	* This program is distributed in the hope that it will be useful,
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	10	* but WITHOUT ANY WARRANTY; without even the implied warranty of
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	11	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	12	* GNU General Public License for more details.
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	13	*
183 57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	14	* You should have received a copy of the GNU General Public License
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	15	* along with this program; if not, write to the Free Software
57c2ef19f719 Relicense to GPL unc0rr parents: 161 diff changeset	16	* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	17	*)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	18
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	19	procedure doStepDrowningGear(Gear: PGear); forward;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	20
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	21	function CheckGearDrowning(Gear: PGear): boolean;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	22	begin
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	23	if cWaterLine < hwRound(Gear^.Y) + Gear^.Radius then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	24	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	25	CheckGearDrowning:= true;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	26	Gear^.State:= gstDrowning;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	27	Gear^.doStep:= @doStepDrowningGear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	28	PlaySound(sndSplash, false)
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	29	end else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	30	CheckGearDrowning:= false
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	31	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	32
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	33	procedure CheckCollision(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	34	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	35	if TestCollisionXwithGear(Gear, hwSign(Gear^.X)) or TestCollisionYwithGear(Gear, hwSign(Gear^.Y))
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	36	then Gear^.State:= Gear^.State or gstCollision
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	37	else Gear^.State:= Gear^.State and not gstCollision
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	38	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	39
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	40	procedure CheckHHDamage(Gear: PGear);
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	41	var dmg: Longword;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	42	begin
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	43	if _0_4 < Gear^.dY then
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	44	begin
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	45	dmg:= 1 + hwRound((hwAbs(Gear^.dY) - _0_4) * 70);
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	46	inc(Gear^.Damage, dmg);
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	47	AddDamageTag(hwRound(Gear^.X), hwRound(Gear^.Y) + cHHRadius, dmg, Gear);
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	48	end
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	49	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	50
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	51	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	52	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	53	procedure CalcRotationDirAngle(Gear: PGear);
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	54	var dAngle: real;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	55	begin
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	56	dAngle:= (hwAbs(Gear^.dX) + hwAbs(Gear^.dY)).QWordValue / $80000000;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	57	if not Gear^.dX.isNegative then Gear^.DirAngle:= Gear^.DirAngle + dAngle
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	58	else Gear^.DirAngle:= Gear^.DirAngle - dAngle;
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	59	if Gear^.DirAngle < 0 then Gear^.DirAngle:= Gear^.DirAngle + 360
8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	60	else if 360 < Gear^.DirAngle then Gear^.DirAngle:= Gear^.DirAngle - 360
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	61	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	62
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	63	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	64	procedure doStepDrowningGear(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	65	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	66	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	67	Gear^.Y:= Gear^.Y + cDrownSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	68	if hwRound(Gear^.Y) > Gear^.Radius + cWaterLine + cVisibleWater then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	69	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	70
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	71	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	72	procedure doStepFallingGear(Gear: PGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	73	var isFalling: boolean;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	74	begin
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	75	Gear^.State:= Gear^.State and not gstCollision;
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	76
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	77	if Gear^.dY.isNegative then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	78	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	79	isFalling:= true;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	80	if TestCollisionYwithGear(Gear, -1) then
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	81	begin
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	82	Gear^.dX:= Gear^.dX * Gear^.Friction;
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	83	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	84	Gear^.State:= Gear^.State or gstCollision
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	85	end
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	86	end else
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	87	if TestCollisionYwithGear(Gear, 1) then
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	88	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	89	isFalling:= false;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	90	Gear^.dX:= Gear^.dX * Gear^.Friction;
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	91	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	92	Gear^.State:= Gear^.State or gstCollision
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	93	end else isFalling:= true;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	94
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	95	if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	96	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	97	Gear^.dX:= - Gear^.dX * Gear^.Elasticity;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	98	Gear^.dY:= Gear^.dY * Gear^.Elasticity;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	99	Gear^.State:= Gear^.State or gstCollision
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	100	end;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	101
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	102	if isFalling then Gear^.dY:= Gear^.dY + cGravity;
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	103
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	104	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	105	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	106	CheckGearDrowning(Gear);
503 2cfdc4bfc2be Mines also collide unc0rr parents: 498 diff changeset	107	if (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) < _0_0002) and
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	108	(not isFalling) then Gear^.State:= Gear^.State and not gstMoving
ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	109	else Gear^.State:= Gear^.State or gstMoving
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	110	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	111
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	112	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	113	procedure doStepBomb(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	114	var i: LongInt;
919 fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	115	dX, dY: hwFloat;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	116	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	117	AllInactive:= false;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	118	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	119	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	120	if Gear^.Timer = 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	121	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	122	case Gear^.Kind of
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	123	gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	124	gtClusterBomb: begin
915 33040b7695c0 - Some changes in clusters initialization unc0rr parents: 914 diff changeset	125	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	126	for i:= 0 to 4 do
919 fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	127	begin
fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	128	dX:= rndSign(GetRandom * _0_1);
fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	129	dY:= (GetRandom - _3) * _0_08;
fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	130	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 0);
fadfefc2ae40 It looks like fix for cluster bomb issue... unc0rr parents: 915 diff changeset	131	end
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	132	end
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	133	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	134	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	135	exit
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	136	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	137	CalcRotationDirAngle(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	138	if (Gear^.State and (gstCollision or gstMoving)) = (gstCollision or gstMoving) then PlaySound(sndGrenadeImpact, false)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	139	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	140
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	141	procedure doStepCluster(Gear: PGear);
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	142	begin
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	143	AllInactive:= false;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	144	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	145	if (Gear^.State and gstCollision) <> 0 then
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	146	begin
915 33040b7695c0 - Some changes in clusters initialization unc0rr parents: 914 diff changeset	147	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound);
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	148	DeleteGear(Gear);
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	149	exit
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	150	end;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	151	if (GameTicks and $1F) = 0 then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	152	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
78 66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	153	end;
66bb79dd248d Cluster bomb unc0rr parents: 75 diff changeset	154
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	155	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	156	procedure doStepGrenade(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	157	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	158	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	159	Gear^.dX:= Gear^.dX + cWindSpeed;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	160	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	161	if (Gear^.State and gstCollision) <> 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	162	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	163	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	164	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	165	exit
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	166	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	167	if (GameTicks and $3F) = 0 then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	168	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	169	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	170
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	171	////////////////////////////////////////////////////////////////////////////////
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	172	procedure doStepHealthTagWork(Gear: PGear);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	173	begin
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	174	if Gear^.Kind = gtHealthTag then
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	175	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	176	dec(Gear^.Timer);
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	177	Gear^.Y:= Gear^.Y + Gear^.dY;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	178	if Gear^.Timer = 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	179	begin
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	180	if Gear^.Kind = gtHealthTag then
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	181	PHedgehog(Gear^.Hedgehog)^.Gear^.Active:= true; // to let current hh die
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	182	DeleteGear(Gear)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	183	end
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	184	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	185
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	186	procedure doStepHealthTagWorkUnderWater(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	187	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	188	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	189	Gear^.Y:= Gear^.Y - _0_08;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	190	if hwRound(Gear^.Y) < cWaterLine + 10 then
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	191	DeleteGear(Gear)
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	192	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	193
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	194	procedure doStepHealthTag(Gear: PGear);
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	195	var s: shortstring;
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	196	font: THWFont;
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	197	begin
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	198	if Gear^.Kind = gtHealthTag then
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	199	begin
813 36fffe78ff11 Fix potentional syncronizing bug unc0rr parents: 809 diff changeset	200	AllInactive:= false;
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	201	font:= fnt16;
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	202	Gear^.dY:= -_0_08
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	203	end else
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	204	begin
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	205	font:= fntSmall;
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	206	Gear^.dY:= -_0_02
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	207	end;
ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	208
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	209	str(Gear^.State, s);
762 5ecf042f6113 More sprites are visible unc0rr parents: 690 diff changeset	210	Gear^.Tex:= RenderStringTex(s, PHedgehog(Gear^.Hedgehog)^.Team^.Clan^.Color, font);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	211	if hwRound(Gear^.Y) < cWaterLine then Gear^.doStep:= @doStepHealthTagWork
522 ca089787f59d Tags with current damage unc0rr parents: 521 diff changeset	212	else Gear^.doStep:= @doStepHealthTagWorkUnderWater;
762 5ecf042f6113 More sprites are visible unc0rr parents: 690 diff changeset	213	Gear^.Y:= Gear^.Y - int2hwFloat(Gear^.Tex^.h)
95 1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	214	end;
1ef5e2c41115 - Fixed compilation unc0rr parents: 89 diff changeset	215
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	216	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	217	procedure doStepGrave(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	218	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	219	AllInactive:= false;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	220	if Gear^.dY.isNegative then
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	221	if TestCollisionY(Gear, -1) then Gear^.dY:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	222
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	223	if not Gear^.dY.isNegative then
68 cbb93eb90304 Collision-related stuff unc0rr parents: 57 diff changeset	224	if TestCollisionY(Gear, 1) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	225	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	226	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	227	if Gear^.dY > - _1div1024 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	228	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	229	Gear^.Active:= false;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	230	exit
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	231	end else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	232	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	233	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	234	CheckGearDrowning(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	235	Gear^.dY:= Gear^.dY + cGravity
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	236	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	237
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	238	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	239	procedure doStepUFOWork(Gear: PGear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	240	var t: hwFloat;
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	241	y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	242	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	243	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	244	t:= Distance(Gear^.dX, Gear^.dY);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	245	Gear^.dX:= Gear^.Elasticity * (Gear^.dX + _0_000004 * (TargetPoint.X - hwRound(Gear^.X)));
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	246	Gear^.dY:= Gear^.Elasticity * (Gear^.dY + _0_000004 * (TargetPoint.Y - hwRound(Gear^.Y)));
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	247	t:= t / Distance(Gear^.dX, Gear^.dY);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	248	Gear^.dX:= Gear^.dX * t;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	249	Gear^.dY:= Gear^.dY * t;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	250	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	251	Gear^.Y:= Gear^.Y + Gear^.dY;
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	252
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	253	if (GameTicks and $3F) = 0 then
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	254	begin
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	255	y:= hwRound(Gear^.Y);
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	256	if y + Gear^.Radius < cWaterLine then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	257	AddGear(hwRound(Gear^.X), y, gtSmokeTrace, 0, _0, _0, 0);
374 95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	258	end;
95169697cc38 - UFO smokes unc0rr parents: 371 diff changeset	259
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	260	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	261	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	262	if ((Gear^.State and gstCollision) <> 0) or (Gear^.Timer = 0) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	263	begin
560 7bf2b554de0c UFO Sound unc0rr parents: 559 diff changeset	264	StopSound(sndUFO);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	265	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	266	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	267	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	268	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	269
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	270	procedure doStepUFO(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	271	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	272	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	273	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	274	Gear^.Y:= Gear^.Y + Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	275	Gear^.dY:= Gear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	276	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	277	if (Gear^.State and gstCollision) <> 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	278	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	279	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	280	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	281	exit
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	282	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	283	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	284	if Gear^.Timer = 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	285	begin
560 7bf2b554de0c UFO Sound unc0rr parents: 559 diff changeset	286	PlaySound(sndUFO, true);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	287	Gear^.Timer:= 5000;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	288	Gear^.doStep:= @doStepUFOWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	289	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	290	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	291
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	292	////////////////////////////////////////////////////////////////////////////////
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	293	procedure doStepShotIdle(Gear: PGear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	294	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	295	AllInactive:= false;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	296	inc(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	297	if Gear^.Timer > 75 then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	298	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	299	DeleteGear(Gear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	300	AfterAttack
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	301	end
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	302	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	303
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	304	procedure doStepShotgunShot(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	305	var i: LongWord;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	306	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	307	AllInactive:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	308
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	309	if ((Gear^.State and gstAnimation) = 0) then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	310	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	311	dec(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	312	if Gear^.Timer = 0 then
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	313	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	314	PlaySound(sndShotgunFire, false);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	315	Gear^.State:= Gear^.State or gstAnimation
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	316	end;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	317	exit
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	318	end
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	319	else inc(Gear^.Timer);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	320
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	321	i:= 200;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	322	repeat
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	323	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	324	Gear^.Y:= Gear^.Y + Gear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	325	CheckCollision(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	326	if (Gear^.State and gstCollision) <> 0 then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	327	begin
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	328	Gear^.X:= Gear^.X + Gear^.dX * 8;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	329	Gear^.Y:= Gear^.Y + Gear^.dY * 8;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	330	ShotgunShot(Gear);
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	331	Gear^.doStep:= @doStepShotIdle;
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	332	exit
d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	333	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	334	dec(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	335	until i = 0;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	336	if (Gear^.X < _0) or (Gear^.Y < _0) or (Gear^.X > _2048) or (Gear^.Y > _1024) then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	337	Gear^.doStep:= @doStepShotIdle
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	338	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	339
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	340	////////////////////////////////////////////////////////////////////////////////
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	341	procedure doStepDEagleShotWork(Gear: PGear);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	342	var i, x, y: LongWord;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	343	oX, oY: hwFloat;
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	344	begin
c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	345	AllInactive:= false;
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	346	inc(Gear^.Timer);
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	347	i:= 80;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	348	oX:= Gear^.X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	349	oY:= Gear^.Y;
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	350	repeat
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	351	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	352	Gear^.Y:= Gear^.Y + Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	353	x:= hwRound(Gear^.X);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	354	y:= hwRound(Gear^.Y);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	355	if ((y and $FFFFFC00) = 0) and ((x and $FFFFF800) = 0)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	356	and (Land[y, x] <> 0) then inc(Gear^.Damage);
519 981df6f6e2a9 - Fix desert eagle unc0rr parents: 517 diff changeset	357	if Gear^.Damage > 5 then AmmoShove(Gear, 7, 20);
38 c1ec4b15d70e Better Desert Eagle and Shotgun unc0rr parents: 37 diff changeset	358	dec(i)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	359	until (i = 0) or (Gear^.Damage > Gear^.Health);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	360	if Gear^.Damage > 0 then
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	361	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	362	DrawTunnel(oX, oY, Gear^.dX, Gear^.dY, 82 - i, 1);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	363	dec(Gear^.Health, Gear^.Damage);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	364	Gear^.Damage:= 0
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	365	end;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	366	if (Gear^.Health <= 0) or (Gear^.X < _0) or (Gear^.Y < _0) or (Gear^.X > _2048) or (Gear^.Y > _1024) then
876 d5b6e0ae5755 Desert Eagle and Shotgun shot animations unc0rr parents: 854 diff changeset	367	Gear^.doStep:= @doStepShotIdle
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	368	end;
2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	369
559 6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	370	procedure doStepDEagleShot(Gear: PGear);
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	371	begin
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	372	PlaySound(sndGun, false);
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	373	Gear^.doStep:= @doStepDEagleShotWork
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	374	end;
6083fffc9e2f Desert Eagle sound unc0rr parents: 557 diff changeset	375
37 2b7f2a43b999 - Properly get seed in net game unc0rr parents: 23 diff changeset	376	////////////////////////////////////////////////////////////////////////////////
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	377	procedure doStepActionTimer(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	378	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	379	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	380	case Gear^.Kind of
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	381	gtATStartGame: begin
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	382	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	383	if Gear^.Timer = 0 then
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	384	AddCaption(trmsg[sidStartFight], $FFFFFF, capgrpGameState);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	385	end;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	386	gtATSmoothWindCh: begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	387	if Gear^.Timer = 0 then
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	388	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	389	if WindBarWidth < Gear^.Tag then inc(WindBarWidth)
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	390	else if WindBarWidth > Gear^.Tag then dec(WindBarWidth);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	391	if WindBarWidth <> Gear^.Tag then Gear^.Timer:= 10;
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	392	end
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	393	end;
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	394	gtATFinishGame: begin
207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	395	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	396	if Gear^.Timer = 0 then
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	397	begin
d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	398	SendIPC('N');
324 f4c109c82a0c Don't show game stats in case of interrupted by command '/quit' game unc0rr parents: 306 diff changeset	399	SendIPC('q');
83 207c85fbef51 - First hedgehog in team has first turn in team unc0rr parents: 82 diff changeset	400	GameState:= gsExit
113 d975a426ebf7 - Many small fixes in engine unc0rr parents: 109 diff changeset	401	end
6 9c1f00e7b43e Smooth change wind bar unc0rr parents: 4 diff changeset	402	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	403	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	404	if Gear^.Timer = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	405	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	406
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	407	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	408	procedure doStepPickHammerWork(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	409	var i, ei: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	410	HHGear: PGear;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	411	begin
70 82d93eeecebe - Many AI improvements unc0rr parents: 68 diff changeset	412	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	413	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	414	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	415	if (Gear^.Timer = 0)or((Gear^.Message and gm_Destroy) <> 0)or((HHGear^.State and gstHHDriven) = 0) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	416	begin
282 b1e3387389b6 - Pickhammer sound unc0rr parents: 263 diff changeset	417	StopSound(sndPickhammer);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	418	DeleteGear(Gear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	419	AfterAttack;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	420	exit
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	421	end;
845 ca72cf446ec2 Add sprite for pickhammer unc0rr parents: 820 diff changeset	422
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	423	if (Gear^.Timer mod 33) = 0 then
12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	424	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y) + 6, 6, EXPLDontDraw);
12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	425
12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	426	if (Gear^.Timer mod 47) = 0 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	427	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	428	i:= hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	429	ei:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	430	while i <= ei do
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	431	begin
422 12295a8b8b2f Tune pickhammer unc0rr parents: 415 diff changeset	432	DrawExplosion(i, hwRound(Gear^.Y) + 3, 3);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	433	inc(i, 1)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	434	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	435	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	436	Gear^.Y:= Gear^.Y + _1_9;
42 72ffe21f027c - Fixed console behavior unc0rr parents: 39 diff changeset	437	SetAllHHToActive;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	438	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	439	if TestCollisionYwithGear(Gear, 1) then
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	440	begin
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	441	Gear^.dY:= _0;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	442	SetLittle(HHGear^.dX);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	443	HHGear^.dY:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	444	end else
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	445	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	446	Gear^.dY:= Gear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	447	Gear^.Y:= Gear^.Y + Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	448	if Gear^.Y > _1024 then Gear^.Timer:= 1
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	449	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	450
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	451	Gear^.X:= Gear^.X + HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	452	HHGear^.X:= Gear^.X;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	453	HHGear^.Y:= Gear^.Y - int2hwFloat(cHHRadius);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	454
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	455	if (Gear^.Message and gm_Attack) <> 0 then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	456	if (Gear^.State and gsttmpFlag) <> 0 then Gear^.Timer:= 1 else else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	457	if (Gear^.State and gsttmpFlag) = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	458	if ((Gear^.Message and gm_Left) <> 0) then Gear^.dX:= - _0_3 else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	459	if ((Gear^.Message and gm_Right) <> 0) then Gear^.dX:= _0_3
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	460	else Gear^.dX:= _0;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	461	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	462
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	463	procedure doStepPickHammer(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	464	var i, y: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	465	ar: TRangeArray;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	466	HHGear: PGear;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	467	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	468	i:= 0;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	469	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	470
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	471	y:= hwRound(Gear^.Y) - cHHRadius * 2;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	472	while y < hwRound(Gear^.Y) do
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	473	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	474	ar[i].Left := hwRound(Gear^.X) - Gear^.Radius - LongInt(GetRandom(2));
731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	475	ar[i].Right:= hwRound(Gear^.X) + Gear^.Radius + LongInt(GetRandom(2));
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	476	inc(y, 2);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	477	inc(i)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	478	end;
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	479
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	480	DrawHLinesExplosions(@ar, 3, hwRound(Gear^.Y) - cHHRadius * 2, 2, Pred(i));
911 b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	481	Gear^.dY:= HHGear^.dY;
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	482	DeleteCI(HHGear);
b709fe13ed69 Fix issue with hedgehog on top of the hedgehog with pickhammer unc0rr parents: 883 diff changeset	483
282 b1e3387389b6 - Pickhammer sound unc0rr parents: 263 diff changeset	484	PlaySound(sndPickhammer, true);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	485	doStepPickHammerWork(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	486	Gear^.doStep:= @doStepPickHammerWork
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	487	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	488
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	489	////////////////////////////////////////////////////////////////////////////////
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	490	var BTPrevAngle, BTSteps: LongInt;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	491
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	492	procedure doStepBlowTorchWork(Gear: PGear);
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	493	var HHGear: PGear;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	494	b: boolean;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	495	begin
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	496	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	497	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	498	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	499
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	500	HedgehogChAngle(HHGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	501
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	502	b:= false;
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	503
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	504	if abs(LongInt(HHGear^.Angle) - BTPrevAngle) > 7 then
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	505	begin
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	506	Gear^.dX:= SignAs(AngleSin(HHGear^.Angle) * _0_5, HHGear^.dX);
355 40c68869899e Small fixes to bring engine to life unc0rr parents: 351 diff changeset	507	Gear^.dY:= AngleCos(HHGear^.Angle) * ( - _0_5);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	508	BTPrevAngle:= HHGear^.Angle;
358 236bbd12d4d9 - New Land Generator unc0rr parents: 357 diff changeset	509	b:= true
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	510	end;
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	511
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	512	if Gear^.Timer mod cHHStepTicks = 0 then
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	513	begin
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	514	b:= true;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	515	if Gear^.dX.isNegative then HHGear^.Message:= (HHGear^.Message or gm_Left) and not gm_Right
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	516	else HHGear^.Message:= (HHGear^.Message or gm_Right) and not gm_Left;
357 165a040e4cfa - Fix Blow Torch and Air Attack unc0rr parents: 355 diff changeset	517
165a040e4cfa - Fix Blow Torch and Air Attack unc0rr parents: 355 diff changeset	518	HHGear^.State:= HHGear^.State and not gstAttacking;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	519	HedgehogStep(HHGear);
357 165a040e4cfa - Fix Blow Torch and Air Attack unc0rr parents: 355 diff changeset	520	HHGear^.State:= HHGear^.State or gstAttacking;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	521
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	522	inc(BTSteps);
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	523	if BTSteps = 7 then
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	524	begin
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	525	BTSteps:= 0;
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	526	Gear^.X:= HHGear^.X + Gear^.dX * (cHHRadius + cBlowTorchC);
2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	527	Gear^.Y:= HHGear^.Y + Gear^.dY * (cHHRadius + cBlowTorchC);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	528	HHGear^.State:= HHGear^.State or gstNoDamage;
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	529	AmmoShove(Gear, 2, 14);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	530	HHGear^.State:= HHGear^.State and not gstNoDamage
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	531	end;
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	532
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	533	if (HHGear^.State and gstMoving) <> 0 then Gear^.Timer:= 0
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	534	end;
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	535
1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	536	if b then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	537	DrawTunnel(HHGear^.X - Gear^.dX * cHHRadius, HHGear^.Y - _4 - Gear^.dY * cHHRadius + hwAbs(Gear^.dY) * 7,
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	538	Gear^.dX, Gear^.dY,
306 7b61834edcf6 - Better blowtorch unc0rr parents: 305 diff changeset	539	cHHRadius * 5, cHHRadius * 2 + 6);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	540
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	541	if (Gear^.Timer = 0) or ((HHGear^.Message and gm_Attack) <> 0) then
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	542	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	543	HHGear^.Message:= 0;
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	544	DeleteGear(Gear);
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	545	AfterAttack
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	546	end
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	547	end;
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	548
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	549	procedure doStepBlowTorch(Gear: PGear);
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	550	var HHGear: PGear;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	551	begin
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	552	BTPrevAngle:= High(LongInt);
305 1c1cd66ffcdc Better blowtorch unc0rr parents: 304 diff changeset	553	BTSteps:= 0;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	554	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	555	HHGear^.Message:= 0;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	556	Gear^.doStep:= @doStepBlowTorchWork
303 1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	557	end;
1659c4aad5ab Now blow torch angle can be changed during blowing :) unc0rr parents: 302 diff changeset	558
302 7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	559	////////////////////////////////////////////////////////////////////////////////
7aca131ecd7f First implementation of Blow Torch unc0rr parents: 300 diff changeset	560
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	561	procedure doStepRopeWork(Gear: PGear);
70 82d93eeecebe - Many AI improvements unc0rr parents: 68 diff changeset	562	const flCheck: boolean = false;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	563	var HHGear: PGear;
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	564	len, cs, cc, tx, ty, nx, ny: hwFloat;
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	565	lx, ly: LongInt;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	566
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	567	procedure DeleteMe;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	568	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	569	with HHGear^ do
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	570	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	571	Message:= Message and not gm_Attack;
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	572	State:= State or gstMoving;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	573	end;
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	574	DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	575	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	576
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	577	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	578	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	579
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	580	if ((HHGear^.State and gstHHDriven) = 0)
80 3c3dc6a148ca - Fixed bug with hedgehog under water using rope unc0rr parents: 79 diff changeset	581	or (CheckGearDrowning(HHGear)) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	582	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	583	DeleteMe;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	584	exit
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	585	end;
928 b9064b48b001 Some preparation work for attacking from rope, parachute and etc. unc0rr parents: 925 diff changeset	586
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	587	Gear^.dX:= HHGear^.X - Gear^.X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	588	Gear^.dY:= HHGear^.Y - Gear^.Y;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	589
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	590	if (Gear^.Message and gm_Left <> 0) then HHGear^.dX:= HHGear^.dX - _0_0002 else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	591	if (Gear^.Message and gm_Right <> 0) then HHGear^.dX:= HHGear^.dX + _0_0002;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	592
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	593	if not TestCollisionYwithGear(HHGear, 1) then HHGear^.dY:= HHGear^.dY + cGravity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	594
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	595	cs:= Gear^.dY + HHGear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	596	cc:= Gear^.dX + HHGear^.dX;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	597	len:= _1 / Distance(cc, cs);
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	598	cc:= cc * len; // rope vector plus hedgehog direction vector normalized
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	599	cs:= cs * len;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	600
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	601	nx:= hwAbs(cs) * hwSign(HHGear^.dX) * 3; // hedgehog direction normalized with length 3
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	602	ny:= hwAbs(cc) * hwSign(HHGear^.dY) * 3;
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	603
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	604	flCheck:= not flCheck;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	605	if flCheck then // check whether rope needs dividing
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	606	begin
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	607	len:= Gear^.Elasticity - _20;
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	608	while len > _5 do
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	609	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	610	tx:= cc*len;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	611	ty:= cs*len;
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	612	lx:= hwRound(Gear^.X + tx + nx);
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	613	ly:= hwRound(Gear^.Y + ty + ny);
652 4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	614	if ((ly and $FFFFFC00) = 0) and ((lx and $FFFFF800) = 0) and (Land[ly, lx] <> 0) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	615	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	616	with RopePoints.ar[RopePoints.Count] do
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	617	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	618	X:= Gear^.X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	619	Y:= Gear^.Y;
776 8fc7e59d9cb4 Convert the rest of rotated sprites to be rotated by OpenGL unc0rr parents: 764 diff changeset	620	if RopePoints.Count = 0 then RopePoints.HookAngle:= DxDy2Angle(Gear^.dY, Gear^.dX);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	621	b:= (cc * HHGear^.dY) > (cs * HHGear^.dX);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	622	dLen:= len
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	623	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	624	Gear^.X:= Gear^.X + tx;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	625	Gear^.Y:= Gear^.Y + ty;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	626	inc(RopePoints.Count);
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	627	TryDo(RopePoints.Count <= MAXROPEPOINTS, 'Rope points overflow', true);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	628	Gear^.Elasticity:= Gear^.Elasticity - len;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	629	Gear^.Friction:= Gear^.Friction - len;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	630	break
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	631	end;
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	632	len:= len - _2
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	633	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	634	end else
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	635	if RopePoints.Count > 0 then // check whether the last dividing point could be removed
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	636	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	637	tx:= RopePoints.ar[Pred(RopePoints.Count)].X;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	638	ty:= RopePoints.ar[Pred(RopePoints.Count)].Y;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	639	if RopePoints.ar[Pred(RopePoints.Count)].b xor ((tx - Gear^.X) * (ty - HHGear^.Y) > (tx - HHGear^.X) * (ty - Gear^.Y)) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	640	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	641	dec(RopePoints.Count);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	642	Gear^.X:=RopePoints.ar[RopePoints.Count].X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	643	Gear^.Y:=RopePoints.ar[RopePoints.Count].Y;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	644	Gear^.Elasticity:= Gear^.Elasticity + RopePoints.ar[RopePoints.Count].dLen;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	645	Gear^.Friction:= Gear^.Friction + RopePoints.ar[RopePoints.Count].dLen
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	646	end
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	647	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	648
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	649	Gear^.dX:= HHGear^.X - Gear^.X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	650	Gear^.dY:= HHGear^.Y - Gear^.Y;
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	651
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	652	cs:= Gear^.dY + HHGear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	653	cc:= Gear^.dX + HHGear^.dX;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	654	len:= _1 / Distance(cc, cs);
108 08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	655	cc:= cc * len;
08f1fe6f21f8 Small fixes for better FPC compatibility unc0rr parents: 107 diff changeset	656	cs:= cs * len;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	657
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	658	HHGear^.dX:= HHGear^.X;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	659	HHGear^.dY:= HHGear^.Y;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	660
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	661	if ((Gear^.Message and gm_Down) <> 0) and (Gear^.Elasticity < Gear^.Friction) then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	662	if not (TestCollisionXwithGear(HHGear, hwSign(Gear^.dX))
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	663	or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY))) then Gear^.Elasticity:= Gear^.Elasticity + _0_3;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	664
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	665	if ((Gear^.Message and gm_Up) <> 0) and (Gear^.Elasticity > _30) then
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	666	if not (TestCollisionXwithGear(HHGear, -hwSign(Gear^.dX))
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	667	or TestCollisionYwithGear(HHGear, -hwSign(Gear^.dY))) then Gear^.Elasticity:= Gear^.Elasticity - _0_3;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	668
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	669	HHGear^.X:= Gear^.X + cc*Gear^.Elasticity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	670	HHGear^.Y:= Gear^.Y + cs*Gear^.Elasticity;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	671
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	672	HHGear^.dX:= HHGear^.X - HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	673	HHGear^.dY:= HHGear^.Y - HHGear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	674
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	675	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	676	HHGear^.dX:= -_0_6 * HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	677	if TestCollisionYwithGear(HHGear, hwSign(HHGear^.dY)) then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	678	HHGear^.dY:= -_0_6 * HHGear^.dY;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	679
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	680	len:= Distance(HHGear^.dX, HHGear^.dY);
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	681	if len > _0_5 then
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	682	begin
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	683	len:= _0_5 / len;
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	684	HHGear^.dX:= HHGear^.dX * len;
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	685	HHGear^.dY:= HHGear^.dY * len;
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	686	end;
3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	687
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	688	if (Gear^.Message and gm_Attack) <> 0 then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	689	if (Gear^.State and gsttmpFlag) <> 0 then DeleteMe else
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	690	else if (Gear^.State and gsttmpFlag) = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	691	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	692
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	693
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	694	procedure doStepRopeAttach(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	695	var HHGear: PGear;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	696	tx, ty, tt: hwFloat;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	697	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	698	Gear^.X:= Gear^.X - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	699	Gear^.Y:= Gear^.Y - Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	700	Gear^.Elasticity:= Gear^.Elasticity + _1;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	701	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
517 ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	702	DeleteCI(HHGear);
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	703	if (HHGear^.State and gstMoving) <> 0 then
68 cbb93eb90304 Collision-related stuff unc0rr parents: 57 diff changeset	704	if TestCollisionYwithGear(HHGear, 1) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	705	begin
820 a26537586400 Fix fall without damage trick, which could be performed with not attached rope unc0rr parents: 819 diff changeset	706	CheckHHDamage(HHGear);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	707	HHGear^.dY:= _0;
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	708	HHGear^.State:= HHGear^.State and not (gstMoving or gstHHJumping);
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	709	end else
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	710	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	711	if TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then SetLittle(HHGear^.dX);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	712	HHGear^.X:= HHGear^.X + HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	713	HHGear^.Y:= HHGear^.Y + HHGear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	714	Gear^.X:= Gear^.X + HHGear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	715	Gear^.Y:= Gear^.Y + HHGear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	716	HHGear^.dY:= HHGear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	717	tt:= Gear^.Elasticity;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	718	tx:= _0;
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	719	ty:= _0;
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	720	while tt > _20 do
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	721	begin
517 ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	722	if TestCollisionXwithXYShift(Gear, tx, hwRound(ty), -hwSign(Gear^.dX))
ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	723	or TestCollisionYwithXYShift(Gear, hwRound(tx), hwRound(ty), -hwSign(Gear^.dY)) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	724	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	725	Gear^.X:= Gear^.X + tx;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	726	Gear^.Y:= Gear^.Y + ty;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	727	Gear^.Elasticity:= tt;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	728	Gear^.doStep:= @doStepRopeWork;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	729	with HHGear^ do State:= State and not gstAttacking;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	730	tt:= _0
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	731	end;
517 ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	732	tx:= tx + Gear^.dX + Gear^.dX;
ba560c17c24c - Don't kick cases by moving hedgehog unc0rr parents: 516 diff changeset	733	ty:= ty + Gear^.dY + Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	734	tt:= tt - _2;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	735	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	736	end;
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	737
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	738	CheckCollision(Gear);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	739
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	740	if (Gear^.State and gstCollision) <> 0 then
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	741	begin
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	742	Gear^.doStep:= @doStepRopeWork;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	743	with HHGear^ do State:= State and not gstAttacking;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	744
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	745	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	746	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	747
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	748	if Gear^.Elasticity < _10 then
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	749	Gear^.Elasticity:= _10000;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	750	end;
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	751
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	752	if (Gear^.Elasticity > Gear^.Friction) or ((Gear^.Message and gm_Attack) = 0) then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	753	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	754	with PHedgehog(Gear^.Hedgehog)^.Gear^ do
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	755	begin
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	756	State:= State and not gstAttacking;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	757	Message:= Message and not gm_Attack
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	758	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	759	DeleteGear(Gear)
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	760	end
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	761	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	762
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	763	procedure doStepRope(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	764	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	765	Gear^.dX:= - Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	766	Gear^.dY:= - Gear^.dY;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	767	Gear^.doStep:= @doStepRopeAttach
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	768	end;
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	769
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	770	////////////////////////////////////////////////////////////////////////////////
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	771	procedure doStepSmokeTrace(Gear: PGear);
bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	772	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	773	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	774	if Gear^.Timer > 64 then
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	775	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	776	Gear^.Timer:= 0;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	777	dec(Gear^.State)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	778	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	779	Gear^.dX:= Gear^.dX + cWindSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	780	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	781	if Gear^.State = 0 then DeleteGear(Gear)
4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	782	end;
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	783
4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	784	////////////////////////////////////////////////////////////////////////////////
4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	785	procedure doStepExplosion(Gear: PGear);
4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	786	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	787	inc(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	788	if Gear^.Timer > 75 then
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	789	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	790	inc(Gear^.State);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	791	Gear^.Timer:= 0;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	792	if Gear^.State > 5 then DeleteGear(Gear)
9 4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	793	end;
4cbf854ad095 - Show explosion unc0rr parents: 6 diff changeset	794	end;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	795
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	796	////////////////////////////////////////////////////////////////////////////////
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	797	procedure doStepMine(Gear: PGear);
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	798	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	799	if (Gear^.State and gstMoving) <> 0 then
914 c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	800	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	801	DeleteCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	802	doStepFallingGear(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	803	if (Gear^.State and gstMoving) = 0 then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	804	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	805	AddGearCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	806	Gear^.dX:= _0;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	807	Gear^.dY:= _0
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	808	end;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	809	CalcRotationDirAngle(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	810	AllInactive:= false
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	811	end else
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	812	if ((GameTicks and $3F) = 25) then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	813	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	814
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	815	if ((Gear^.State and gsttmpFlag) <> 0) then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	816	if ((Gear^.State and gstAttacking) = 0) then
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	817	begin
914 c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	818	if ((GameTicks and $1F) = 0) then
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	819	if CheckGearNear(Gear, gtHedgehog, 46, 32) <> nil then Gear^.State:= Gear^.State or gstAttacking
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	820	end else // gstAttacking <> 0
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	821	begin
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	822	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	823	if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	824	if Gear^.Timer = 0 then
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	825	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	826	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
521 bc8fd78d7598 - Fix some collision bugs unc0rr parents: 520 diff changeset	827	DeleteGear(Gear);
bc8fd78d7598 - Fix some collision bugs unc0rr parents: 520 diff changeset	828	exit
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	829	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	830	dec(Gear^.Timer);
13 7a5db822fd3f - Show no crosshair when using mine unc0rr parents: 10 diff changeset	831	end else // gsttmpFlag = 0
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	832	if TurnTimeLeft = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	833	end;
57 e1a77ae57065 - Fixed compiling .) unc0rr parents: 53 diff changeset	834
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	835	////////////////////////////////////////////////////////////////////////////////
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	836	procedure doStepDynamite(Gear: PGear);
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	837	begin
43 e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	838	doStepFallingGear(Gear);
e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	839	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	840	if Gear^.Timer mod 166 = 0 then inc(Gear^.Tag);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	841	if Gear^.Timer = 0 then
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	842	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	843	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 75, EXPLAutoSound);
43 e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	844	DeleteGear(Gear);
e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	845	exit
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	846	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	847	dec(Gear^.Timer);
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	848	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	849
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	850	///////////////////////////////////////////////////////////////////////////////
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	851	procedure doStepCase(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	852	var i, x, y: LongInt;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	853	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	854	if (Gear^.Message and gm_Destroy) > 0 then
15 6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	855	begin
6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	856	DeleteGear(Gear);
435 25820c10c849 Better AI behavior unc0rr parents: 422 diff changeset	857	FreeActionsList;
913 a86f8af21b94 Fix mines on top of the case issue also unc0rr parents: 912 diff changeset	858	SetAllToActive; // something (hh, mine, etc...) could be on top of the case
602 f7628ebfccde Add CurrentHedgehog variable which simplifies code unc0rr parents: 601 diff changeset	859	with CurrentHedgehog^ do
441 f2920f08ea5f Fix hedgehog stopping after picking up bonus box unc0rr parents: 439 diff changeset	860	if Gear <> nil then Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump);
15 6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	861	exit
6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	862	end;
6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	863
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	864	if Gear^.Damage > 0 then
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	865	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	866	x:= hwRound(Gear^.X);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	867	y:= hwRound(Gear^.Y);
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	868	DeleteGear(Gear);
590 e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	869	if Gear^.Kind = gtCase then
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	870	begin
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	871	doMakeExplosion(x, y, 25, EXPLAutoSound);
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	872	for i:= 0 to 63 do
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	873	AddGear(x, y, gtFlame, 0, _0, _0, 0);
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	874	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	875	exit
29b477319854 - New test map unc0rr parents: 78 diff changeset	876	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	877
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	878	if (Gear^.dY.QWordValue <> 0) or (not TestCollisionYwithGear(Gear, 1)) then
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	879	begin
81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	880	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	881	Gear^.dY:= Gear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	882	Gear^.Y:= Gear^.Y + Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	883	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 else
439 c336ed82e76d Fix bugs: unc0rr parents: 437 diff changeset	884	if (not Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, 1) then
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	885	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	886	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	887	if Gear^.dY > - _0_001 then Gear^.dY:= _0
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	888	else if Gear^.dY < - _0_03 then PlaySound(sndGraveImpact, false);
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	889	end;
81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	890	CheckGearDrowning(Gear);
81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	891	end;
81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	892
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	893	if (Gear^.dY.QWordValue = 0) then AddGearCI(Gear)
2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	894	else if (Gear^.dY.QWordValue <> 0) then DeleteCI(Gear)
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	895	end;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	896
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	897	////////////////////////////////////////////////////////////////////////////////
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	898	const cSorterWorkTime = 640;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	899	var thexchar: array[0..cMaxTeams] of
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	900	record
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	901	dy, ny, dw: LongInt;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	902	team: PTeam;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	903	SortFactor: QWord;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	904	end;
601 78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	905	currsorter: PGear = nil;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	906
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	907	procedure doStepTeamHealthSorterWork(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	908	var i: LongInt;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	909	begin
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	910	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	911	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	912	if (Gear^.Timer and 15) = 0 then
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	913	for i:= 0 to Pred(TeamsCount) do
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	914	with thexchar[i] do
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	915	begin
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	916	{$WARNINGS OFF}
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	917	team^.DrawHealthY:= ny + dy * Gear^.Timer div 640;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	918	team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * Gear^.Timer div cSorterWorkTime;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	919	{$WARNINGS ON}
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	920	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	921	if (Gear^.Timer = 0) or (currsorter <> Gear) then
143 3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	922	begin
3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	923	if currsorter = Gear then currsorter:= nil;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	924	DeleteGear(Gear)
143 3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	925	end
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	926	end;
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	927
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	928	procedure doStepTeamHealthSorter(Gear: PGear);
547 b81a055f2d06 Convert teams list to array unc0rr parents: 545 diff changeset	929	var i, t: Longword;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	930	b: boolean;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	931	begin
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	932	AllInactive:= false;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	933
547 b81a055f2d06 Convert teams list to array unc0rr parents: 545 diff changeset	934	for t:= 0 to Pred(TeamsCount) do
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	935	with thexchar[t] do
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	936	begin
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	937	dy:= TeamsArray[t]^.DrawHealthY;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	938	dw:= TeamsArray[t]^.TeamHealthBarWidth - TeamsArray[t]^.NewTeamHealthBarWidth;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	939	team:= TeamsArray[t];
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	940	SortFactor:= TeamsArray[t]^.Clan^.ClanHealth;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	941	SortFactor:= (SortFactor shl 3) + TeamsArray[t]^.Clan^.ClanIndex;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	942	SortFactor:= (SortFactor shl 30) + TeamsArray[t]^.TeamHealth;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	943	end;
547 b81a055f2d06 Convert teams list to array unc0rr parents: 545 diff changeset	944
601 78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	945	if TeamsCount > 1 then
78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	946	repeat
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	947	b:= true;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	948	for t:= 0 to TeamsCount - 2 do
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	949	if (thexchar[t].SortFactor > thexchar[Succ(t)].SortFactor) then
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	950	begin
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	951	thexchar[cMaxTeams]:= thexchar[t];
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	952	thexchar[t]:= thexchar[Succ(t)];
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	953	thexchar[Succ(t)]:= thexchar[cMaxTeams];
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	954	b:= false
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	955	end
601 78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	956	until b;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	957
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	958	t:= cScreenHeight - 4;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	959	for i:= 0 to Pred(TeamsCount) do
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	960	with thexchar[i] do
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	961	begin
764 7513452b1d51 Now game looks almost like it did before switching to OpenGL unc0rr parents: 762 diff changeset	962	dec(t, team^.HealthTex^.h + 2);
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	963	ny:= t;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	964	dy:= dy - ny
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	965	end;
764 7513452b1d51 Now game looks almost like it did before switching to OpenGL unc0rr parents: 762 diff changeset	966
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	967	Gear^.Timer:= cSorterWorkTime;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	968	Gear^.doStep:= @doStepTeamHealthSorterWork;
143 3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	969	currsorter:= Gear
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	970	end;
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	971
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	972	////////////////////////////////////////////////////////////////////////////////
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	973	procedure doStepIdle(Gear: PGear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	974	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	975	AllInactive:= false;
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	976	dec(Gear^.Timer);
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	977	if Gear^.Timer = 0 then
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	978	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	979	DeleteGear(Gear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	980	AfterAttack
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	981	end
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	982	end;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	983
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	984	procedure doStepShover(Gear: PGear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	985	var HHGear: PGear;
29b477319854 - New test map unc0rr parents: 78 diff changeset	986	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	987	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	988	HHGear^.State:= HHGear^.State or gstNoDamage;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	989	AmmoShove(Gear, 30, 115);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	990	HHGear^.State:= HHGear^.State and not gstNoDamage;
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	991	Gear^.Timer:= 250;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	992	Gear^.doStep:= @doStepIdle
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	993	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	994
29b477319854 - New test map unc0rr parents: 78 diff changeset	995	////////////////////////////////////////////////////////////////////////////////
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	996	procedure doStepWhip(Gear: PGear);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	997	var HHGear: PGear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	998	i: LongInt;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	999	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1000	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1001	HHGear^.State:= HHGear^.State or gstNoDamage;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1002
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1003	for i:= 0 to 3 do
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1004	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1005	AmmoShove(Gear, 30, 25);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1006	Gear^.X:= Gear^.X + Gear^.dX * 5
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1007	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1008
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1009	HHGear^.State:= HHGear^.State and not gstNoDamage;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1010	Gear^.Timer:= 250;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1011	Gear^.doStep:= @doStepIdle
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1012	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1013
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1014	////////////////////////////////////////////////////////////////////////////////
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1015	procedure doStepFlame(Gear: PGear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1016	begin
29b477319854 - New test map unc0rr parents: 78 diff changeset	1017	AllInactive:= false;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1018	if not TestCollisionYwithGear(Gear, 1) then
29b477319854 - New test map unc0rr parents: 78 diff changeset	1019	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1020	Gear^.dX:= Gear^.dX + cWindSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1021	Gear^.dY:= Gear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1022	if hwAbs(Gear^.dX) > _0_1 then Gear^.dX:= Gear^.dX * _0_5;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1023	if Gear^.dY > _0_1 then Gear^.dY:= Gear^.dY * _0_995;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1024	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1025	Gear^.Y:= Gear^.Y + Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1026	if not (Gear^.Y < _1024) then
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1027	begin
29b477319854 - New test map unc0rr parents: 78 diff changeset	1028	DeleteGear(Gear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1029	exit
29b477319854 - New test map unc0rr parents: 78 diff changeset	1030	end
29b477319854 - New test map unc0rr parents: 78 diff changeset	1031	end else begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1032	if Gear^.Timer > 0 then dec(Gear^.Timer)
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1033	else begin
506 0889d833d47e - A good implementation of shotgun unc0rr parents: 505 diff changeset	1034	// doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 2, 0);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1035	dec(Gear^.Health);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1036	Gear^.Timer:= 1250 - Gear^.Angle * 12
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1037	end
29b477319854 - New test map unc0rr parents: 78 diff changeset	1038	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1039
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1040	if (((GameTicks div 8) mod 64) = Gear^.Angle) then
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1041	AmmoFlameWork(Gear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1042
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1043	if Gear^.Health = 0 then
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1044	DeleteGear(Gear)
29b477319854 - New test map unc0rr parents: 78 diff changeset	1045	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1046
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1047	////////////////////////////////////////////////////////////////////////////////
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1048	procedure doStepFirePunchWork(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1049	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1050	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1051	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1052	if ((Gear^.Message and gm_Destroy) <> 0) then
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1053	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1054	DeleteGear(Gear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1055	AfterAttack;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1056	exit
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1057	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1058
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1059	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1060	if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1061	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1062	Gear^.Tag:= hwRound(HHGear^.Y);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1063	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y - _1, _0_5, _0, cHHRadius * 4, 2);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1064	HHGear^.State:= HHGear^.State or gstNoDamage;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1065	Gear^.Y:= HHGear^.Y;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1066	AmmoShove(Gear, 30, 40);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1067	HHGear^.State:= HHGear^.State and not gstNoDamage
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1068	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1069
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1070	HHGear^.dY:= HHGear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1071	if not (HHGear^.dY.isNegative) then
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1072	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	1073	HHGear^.State:= HHGear^.State or gstMoving;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1074	DeleteGear(Gear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1075	AfterAttack;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1076	exit
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1077	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1078	HHGear^.Y:= HHGear^.Y + HHGear^.dY
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1079	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1080
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1081	procedure doStepFirePunch(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1082	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1083	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1084	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1085	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
514 fb8ba88a83c3 Fix firepunch regression unc0rr parents: 513 diff changeset	1086	DeleteCI(HHGear);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1087	HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1088	SetLittle(HHGear^.dX);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1089	HHGear^.dY:= - _0_3;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1090
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1091	Gear^.X:= HHGear^.X;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1092	Gear^.dX:= SignAs(_0_45, HHGear^.dX);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1093	Gear^.dY:= - _0_9;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1094	Gear^.doStep:= @doStepFirePunchWork;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1095	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1096	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1097
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1098	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1099
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1100	procedure doStepParachuteWork(Gear: PGear);
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1101	var HHGear: PGear;
558476056205 Parachute unc0rr parents: 183 diff changeset	1102	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1103	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1104
516 f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1105	inc(Gear^.Timer);
f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1106
212 c8c650b23e32 Parachute fixes unc0rr parents: 211 diff changeset	1107	if TestCollisionYwithGear(HHGear, 1)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1108	or ((HHGear^.State and gstHHDriven) = 0)
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1109	or CheckGearDrowning(HHGear)
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1110	or ((Gear^.Message and gm_Attack) <> 0) then
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1111	begin
558476056205 Parachute unc0rr parents: 183 diff changeset	1112	with HHGear^ do
558476056205 Parachute unc0rr parents: 183 diff changeset	1113	begin
558476056205 Parachute unc0rr parents: 183 diff changeset	1114	Message:= 0;
568 d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1115	SetLittle(dX);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1116	dY:= _0;
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	1117	State:= State or gstMoving;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1118	end;
558476056205 Parachute unc0rr parents: 183 diff changeset	1119	DeleteGear(Gear);
558476056205 Parachute unc0rr parents: 183 diff changeset	1120	exit
558476056205 Parachute unc0rr parents: 183 diff changeset	1121	end;
558476056205 Parachute unc0rr parents: 183 diff changeset	1122
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1123	if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1124	HHGear^.X:= HHGear^.X + cWindSpeed * 200;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1125
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1126	if (Gear^.Message and gm_Left) <> 0 then HHGear^.X:= HHGear^.X - cMaxWindSpeed * 40
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1127	else if (Gear^.Message and gm_Right) <> 0 then HHGear^.X:= HHGear^.X + cMaxWindSpeed * 40;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1128	if (Gear^.Message and gm_Up) <> 0 then HHGear^.Y:= HHGear^.Y - cGravity * 40
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1129	else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1130
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1131	HHGear^.Y:= HHGear^.Y + cGravity * 100;
568 d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1132	Gear^.X:= HHGear^.X;
d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1133	Gear^.Y:= HHGear^.Y
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1134	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1135
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1136	procedure doStepParachute(Gear: PGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1137	var HHGear: PGear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1138	begin
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1139	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1140
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1141	DeleteCI(HHGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1142
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1143	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1144	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1145
931 ab4d98858a40 Fix some bugs with dropping from parachute unc0rr parents: 929 diff changeset	1146	HHGear^.State:= HHGear^.State and not (gstAttacking or gstAttacked or gstMoving);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1147	HHGear^.Message:= HHGear^.Message and not gm_Attack;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1148
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1149	Gear^.doStep:= @doStepParachuteWork;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1150
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1151	Gear^.Message:= HHGear^.Message;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1152	doStepParachuteWork(Gear)
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1153	end;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1154
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1155	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1156	procedure doStepAirAttackWork(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1157	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1158	AllInactive:= false;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1159	Gear^.X:= Gear^.X + cAirPlaneSpeed * Gear^.Tag;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1160	if (Gear^.Health > 0)and(not (Gear^.X < Gear^.dX))and(Gear^.X < Gear^.dX + cAirPlaneSpeed) then
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1161	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1162	dec(Gear^.Health);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1163	case Gear^.State of
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1164	0: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAirBomb, 0, cBombsSpeed * Gear^.Tag, _0, 0);
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1165	1: FollowGear:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtMine, 0, cBombsSpeed * Gear^.Tag, _0, 0);
285 cdab49768c83 Mine Strike weapon unc0rr parents: 283 diff changeset	1166	end;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1167	Gear^.dX:= Gear^.dX + int2hwFloat(30 * Gear^.Tag)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1168	end;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1169	if (hwRound(Gear^.X) > 3072) or (hwRound(Gear^.X) < -1024) then DeleteGear(Gear)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1170	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1171
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1172	procedure doStepAirAttack(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1173	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1174	AllInactive:= false;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1175
408 6c3da4907d00 Airplane can fly from right to left unc0rr parents: 393 diff changeset	1176	if Gear^.X.QWordValue = 0 then Gear^.Tag:= 1
6c3da4907d00 Airplane can fly from right to left unc0rr parents: 393 diff changeset	1177	else Gear^.Tag:= -1;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1178	Gear^.X:= _1024 - _2048 * Gear^.Tag;
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1179	Gear^.Y:= -_128;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1180	Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15);
357 165a040e4cfa - Fix Blow Torch and Air Attack unc0rr parents: 355 diff changeset	1181
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1182	if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1183	Gear^.dX:= Gear^.dX - cBombsSpeed * hwSqrt((int2hwFloat(TargetPoint.Y) - Gear^.Y) * 2 / cGravity) * Gear^.Tag;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1184
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1185	Gear^.Health:= 6;
801 0323e5c7ee54 - 'Incoming!' shout when the plane appears unc0rr parents: 798 diff changeset	1186	Gear^.doStep:= @doStepAirAttackWork;
0323e5c7ee54 - 'Incoming!' shout when the plane appears unc0rr parents: 798 diff changeset	1187	PlaySound(sndIncoming, false)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1188	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1189
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1190	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1191
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1192	procedure doStepAirBomb(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1193	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1194	AllInactive:= false;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1195	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1196	if (Gear^.State and gstCollision) <> 0 then
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1197	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1198	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1199	DeleteGear(Gear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1200	exit
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1201	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1202	if (GameTicks and $3F) = 0 then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1203	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1204	end;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1205
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1206	////////////////////////////////////////////////////////////////////////////////
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1207
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1208	procedure doStepGirder(Gear: PGear);
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1209	var HHGear: PGear;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1210	begin
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1211	AllInactive:= false;
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1212
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1213	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1214	if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprAmGirder].Width div 2,
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1215	TargetPoint.Y - SpritesData[sprAmGirder].Height div 2,
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1216	sprAmGirder, Gear^.State, true) then
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1217	begin
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1218	HHGear^.Message:= HHGear^.Message and not gm_Attack;
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1219	HHGear^.State:= HHGear^.State and not gstAttacking;
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1220	HHGear^.State:= HHGear^.State or gstHHChooseTarget;
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1221	DeleteGear(Gear);
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1222	isCursorVisible:= true
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1223	end
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1224	else begin
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1225	DeleteGear(Gear);
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1226	AfterAttack
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1227	end;
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1228	TargetPoint.X:= NoPointX
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1229	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1230
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1231	////////////////////////////////////////////////////////////////////////////////
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1232	procedure doStepTeleportAfter(Gear: PGear);
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1233	var HHGear: PGear;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1234	begin
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1235	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1236	HHGear^.Y:= HHGear^.Y + HHGear^.dY; // hedgehog falling to collect cases
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1237	HHGear^.dY:= HHGear^.dY + cGravity;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1238	if TestCollisionYwithGear(HHGear, 1) then
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1239	begin
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1240	DeleteGear(Gear);
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1241	AfterAttack
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1242	end
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1243	end;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1244
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1245	procedure doStepTeleportAnim(Gear: PGear);
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1246	begin
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1247	inc(Gear^.Timer);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1248	if Gear^.Timer = 65 then
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1249	begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1250	Gear^.Timer:= 0;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1251	inc(Gear^.Pos);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1252	if Gear^.Pos = 11 then
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1253	Gear^.doStep:= @doStepTeleportAfter
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1254	end
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1255	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1256
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1257	procedure doStepTeleport(Gear: PGear);
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1258	var HHGear: PGear;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1259	begin
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1260	AllInactive:= false;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1261
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1262	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1263	if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprHHTelepMask].Width div 2,
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1264	TargetPoint.Y - SpritesData[sprHHTelepMask].Height div 2,
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1265	sprHHTelepMask, 0, false) then
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1266	begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1267	HHGear^.Message:= HHGear^.Message and not gm_Attack;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1268	HHGear^.State:= HHGear^.State and not gstAttacking;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1269	HHGear^.State:= HHGear^.State or gstHHChooseTarget;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1270	DeleteGear(Gear);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1271	isCursorVisible:= true
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1272	end
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1273	else begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1274	DeleteCI(HHGear);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1275	SetAllHHToActive;
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1276	Gear^.doStep:= @doStepTeleportAnim;
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1277	Gear^.X:= HHGear^.X;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1278	Gear^.Y:= HHGear^.Y;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1279	HHGear^.X:= int2hwFloat(TargetPoint.X);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1280	HHGear^.Y:= int2hwFloat(TargetPoint.Y);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1281	HHGear^.State:= HHGear^.State or gstMoving
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1282	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1283	TargetPoint.X:= NoPointX
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1284	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1285
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1286	////////////////////////////////////////////////////////////////////////////////
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1287	procedure doStepSwitcherWork(Gear: PGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1288	var HHGear: PGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1289	Msg, State: Longword;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1290	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1291	AllInactive:= false;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1292
540 b06c5aace2fa - Many fixes related to hh switcher unc0rr parents: 538 diff changeset	1293	if ((Gear^.Message and not gm_Switch) <> 0) or (TurnTimeLeft = 0) then
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1294	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1295	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1296	Msg:= Gear^.Message and not gm_Switch;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1297	DeleteGear(Gear);
538 74219eadab5e - Various small fixes unc0rr parents: 537 diff changeset	1298	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
74219eadab5e - Various small fixes unc0rr parents: 537 diff changeset	1299	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1300
602 f7628ebfccde Add CurrentHedgehog variable which simplifies code unc0rr parents: 601 diff changeset	1301	HHGear:= CurrentHedgehog^.Gear;
538 74219eadab5e - Various small fixes unc0rr parents: 537 diff changeset	1302	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1303	HHGear^.Message:= Msg;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1304	exit
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1305	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1306
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1307	if (Gear^.Message and gm_Switch) <> 0 then
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1308	begin
602 f7628ebfccde Add CurrentHedgehog variable which simplifies code unc0rr parents: 601 diff changeset	1309	HHGear:= CurrentHedgehog^.Gear;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1310	HHGear^.Message:= HHGear^.Message and not gm_Switch;
809 b33c2def1576 Fix hedgehogs switching hang unc0rr parents: 803 diff changeset	1311	Gear^.Message:= Gear^.Message and not gm_Switch;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1312	State:= HHGear^.State;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1313	HHGear^.State:= 0;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1314	HHGear^.Active:= false;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1315	HHGear^.Z:= cHHZ;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1316	RemoveGearFromList(HHGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1317	InsertGearToList(HHGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1318
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1319	repeat
551 86bc0430ba17 Fix warnings unc0rr parents: 549 diff changeset	1320	CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);
652 4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	1321	until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);
4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	1322
4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	1323	CurrentHedgehog:= @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog];
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1324
602 f7628ebfccde Add CurrentHedgehog variable which simplifies code unc0rr parents: 601 diff changeset	1325	HHGear:= CurrentHedgehog^.Gear;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1326	HHGear^.State:= State;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1327	HHGear^.Active:= true;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1328	FollowGear:= HHGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1329	HHGear^.Z:= cCurrHHZ;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1330	RemoveGearFromList(HHGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1331	InsertGearToList(HHGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1332	Gear^.X:= HHGear^.X;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1333	Gear^.Y:= HHGear^.Y
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1334	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1335	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1336
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1337	procedure doStepSwitcher(Gear: PGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1338	var HHGear: PGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1339	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1340	Gear^.doStep:= @doStepSwitcherWork;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1341
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1342	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1343	with HHGear^ do
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1344	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1345	State:= State and not gstAttacking;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1346	Message:= Message and not gm_Attack
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1347	end
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1348	end;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1349
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1350	////////////////////////////////////////////////////////////////////////////////
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1351	procedure doStepMortar(Gear: PGear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1352	var dX, dY: hwFloat;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1353	i: LongInt;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1354	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1355	AllInactive:= false;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1356	doStepFallingGear(Gear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1357	if (Gear^.State and gstCollision) <> 0 then
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1358	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1359	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1360
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1361	for i:= 0 to 4 do
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1362	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1363	dX:= - Gear^.dX + (GetRandom - _0_5) * _0_03;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1364	dY:= - Gear^.dY + (GetRandom - _0_5) * _0_03;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1365	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 0);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1366	end;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1367
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1368	DeleteGear(Gear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1369	exit
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1370	end;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1371	if (GameTicks and $3F) = 0 then
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1372	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1373	end;

author	unc0rr
	Fri, 16 May 2008 13:21:18 +0000
changeset 935	f13a67ce3811
parent 931	ab4d98858a40
child 940	769adb0ad082
permissions	-rw-r--r--