hedgewars: hedgewars/GSHandlers.inc@8be71085f0f0 (annotated)

4 bcbd7adb4e4b - set svn:eol-style to native unc0rr parents: 1 diff changeset	1	(*
1066 1f1b3686a2b0 Update copyright headers a bit unc0rr parents: 1047 diff changeset	2	* Hedgewars, a free turn based strategy game
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
940 769adb0ad082 Better rope unc0rr parents: 931 diff changeset	601	nx:= hwAbs(cs) * hwSign(HHGear^.dX) * 5; // hedgehog direction normalized with length 3
769adb0ad082 Better rope unc0rr parents: 931 diff changeset	602	ny:= hwAbs(cc) * hwSign(HHGear^.dY) * 5;
789 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);
940 769adb0ad082 Better rope unc0rr parents: 931 diff changeset	681	if len > _0_8 then
789 3d976d2579eb - More accurate rope collision detection unc0rr parents: 776 diff changeset	682	begin
940 769adb0ad082 Better rope unc0rr parents: 931 diff changeset	683	len:= _0_8 / len;
789 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;
974 fc16141a0128 Prevent wrong aim direction when using rope after high jump unc0rr parents: 963 diff changeset	743	with HHGear^ do State:= State and not (gstAttacking or gstHHHJump);
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	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	////////////////////////////////////////////////////////////////////////////////
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	785	procedure doStepExplosionWork(Gear: PGear);
9 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
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	796	procedure doStepExplosion(Gear: PGear);
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	797	var i: LongWord;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	798	begin
1047 ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	799	for i:= 0 to 31 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtFire);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	800	for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart);
ca7078116c0c Update explosion graphics unc0rr parents: 1046 diff changeset	801	for i:= 0 to 8 do AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtExplPart2);
1045 ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	802	Gear^.doStep:= @doStepExplosionWork
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	803	end;
ea195268734f Testing explosion particles implementation unc0rr parents: 1024 diff changeset	804
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	805	////////////////////////////////////////////////////////////////////////////////
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	806	procedure doStepMine(Gear: PGear);
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	807	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	808	if (Gear^.State and gstMoving) <> 0 then
914 c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	809	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	810	DeleteCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	811	doStepFallingGear(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	812	if (Gear^.State and gstMoving) = 0 then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	813	begin
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	814	AddGearCI(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	815	Gear^.dX:= _0;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	816	Gear^.dY:= _0
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	817	end;
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	818	CalcRotationDirAngle(Gear);
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	819	AllInactive:= false
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	820	end else
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	821	if ((GameTicks and $3F) = 25) then
c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	822	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	823
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	824	if ((Gear^.State and gsttmpFlag) <> 0) then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	825	if ((Gear^.State and gstAttacking) = 0) then
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	826	begin
914 c2fcafbfc4aa Now really fix issue with mines on top of cases unc0rr parents: 913 diff changeset	827	if ((GameTicks and $1F) = 0) then
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	828	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	829	end else // gstAttacking <> 0
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	830	begin
edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	831	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	832	if (Gear^.Timer and $FF) = 0 then PlaySound(sndMineTick, false);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	833	if Gear^.Timer = 0 then
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	834	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	835	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
521 bc8fd78d7598 - Fix some collision bugs unc0rr parents: 520 diff changeset	836	DeleteGear(Gear);
bc8fd78d7598 - Fix some collision bugs unc0rr parents: 520 diff changeset	837	exit
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	838	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	839	dec(Gear^.Timer);
13 7a5db822fd3f - Show no crosshair when using mine unc0rr parents: 10 diff changeset	840	end else // gsttmpFlag = 0
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	841	if TurnTimeLeft = 0 then Gear^.State:= Gear^.State or gsttmpFlag;
10 edf56dca1587 - Mine weapon unc0rr parents: 9 diff changeset	842	end;
57 e1a77ae57065 - Fixed compiling .) unc0rr parents: 53 diff changeset	843
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	844	////////////////////////////////////////////////////////////////////////////////
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	845	procedure doStepDynamite(Gear: PGear);
b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	846	begin
43 e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	847	doStepFallingGear(Gear);
e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	848	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	849	if Gear^.Timer mod 166 = 0 then inc(Gear^.Tag);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	850	if Gear^.Timer = 0 then
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	851	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	852	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	853	DeleteGear(Gear);
e297fea1a2f3 - Removed dark pixels on the corners of health case unc0rr parents: 42 diff changeset	854	exit
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	855	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	856	dec(Gear^.Timer);
39 b78e7185ed13 - Increased FPS unc0rr parents: 38 diff changeset	857	end;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	858
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	859	///////////////////////////////////////////////////////////////////////////////
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	860	procedure doStepCase(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	861	var i, x, y: LongInt;
14 81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	862	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	863	if (Gear^.Message and gm_Destroy) > 0 then
15 6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	864	begin
6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	865	DeleteGear(Gear);
435 25820c10c849 Better AI behavior unc0rr parents: 422 diff changeset	866	FreeActionsList;
913 a86f8af21b94 Fix mines on top of the case issue also unc0rr parents: 912 diff changeset	867	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	868	with CurrentHedgehog^ do
441 f2920f08ea5f Fix hedgehog stopping after picking up bonus box unc0rr parents: 439 diff changeset	869	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	870	exit
6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	871	end;
6200cca92480 - Minor code simplifying unc0rr parents: 14 diff changeset	872
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	873	if Gear^.Damage > 0 then
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	874	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	875	x:= hwRound(Gear^.X);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	876	y:= hwRound(Gear^.Y);
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	877	DeleteGear(Gear);
590 e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	878	if Gear^.Kind = gtCase then
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	879	begin
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	880	doMakeExplosion(x, y, 25, EXPLAutoSound);
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	881	for i:= 0 to 63 do
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	882	AddGear(x, y, gtFlame, 0, _0, _0, 0);
e816adf4a27f Basic gtTarget support unc0rr parents: 576 diff changeset	883	end;
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	884	exit
29b477319854 - New test map unc0rr parents: 78 diff changeset	885	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	886
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	887	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	888	begin
81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	889	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	890	Gear^.dY:= Gear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	891	Gear^.Y:= Gear^.Y + Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	892	if (Gear^.dY.isNegative) and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= _0 else
439 c336ed82e76d Fix bugs: unc0rr parents: 437 diff changeset	893	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	894	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	895	Gear^.dY:= - Gear^.dY * Gear^.Elasticity;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	896	if Gear^.dY > - _0_001 then Gear^.dY:= _0
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	897	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	898	end;
81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	899	CheckGearDrowning(Gear);
81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	900	end;
81f125629b25 - Mine checks whether a hedgehog is near less frequently unc0rr parents: 13 diff changeset	901
511 2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	902	if (Gear^.dY.QWordValue = 0) then AddGearCI(Gear)
2b5b9e00419d - Further work on new collisions implementation unc0rr parents: 506 diff changeset	903	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	904	end;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	905
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	906	////////////////////////////////////////////////////////////////////////////////
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	907	const cSorterWorkTime = 640;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	908	var thexchar: array[0..cMaxTeams] of
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	909	record
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	910	dy, ny, dw: LongInt;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	911	team: PTeam;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	912	SortFactor: QWord;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	913	end;
601 78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	914	currsorter: PGear = nil;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	915
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	916	procedure doStepTeamHealthSorterWork(Gear: PGear);
371 731ad6d27bd1 integer -> LongInt unc0rr parents: 370 diff changeset	917	var i: LongInt;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	918	begin
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	919	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	920	dec(Gear^.Timer);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	921	if (Gear^.Timer and 15) = 0 then
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	922	for i:= 0 to Pred(TeamsCount) do
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	923	with thexchar[i] do
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	924	begin
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	925	{$WARNINGS OFF}
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	926	team^.DrawHealthY:= ny + dy * Gear^.Timer div 640;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	927	team^.TeamHealthBarWidth:= team^.NewTeamHealthBarWidth + dw * Gear^.Timer div cSorterWorkTime;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	928	{$WARNINGS ON}
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	929	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	930	if (Gear^.Timer = 0) or (currsorter <> Gear) then
143 3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	931	begin
3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	932	if currsorter = Gear then currsorter:= nil;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	933	DeleteGear(Gear)
143 3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	934	end
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	935	end;
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	936
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	937	procedure doStepTeamHealthSorter(Gear: PGear);
547 b81a055f2d06 Convert teams list to array unc0rr parents: 545 diff changeset	938	var i, t: Longword;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	939	b: boolean;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	940	begin
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	941	AllInactive:= false;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	942
547 b81a055f2d06 Convert teams list to array unc0rr parents: 545 diff changeset	943	for t:= 0 to Pred(TeamsCount) do
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	944	with thexchar[t] do
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	945	begin
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	946	dy:= TeamsArray[t]^.DrawHealthY;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	947	dw:= TeamsArray[t]^.TeamHealthBarWidth - TeamsArray[t]^.NewTeamHealthBarWidth;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	948	team:= TeamsArray[t];
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	949	SortFactor:= TeamsArray[t]^.Clan^.ClanHealth;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	950	SortFactor:= (SortFactor shl 3) + TeamsArray[t]^.Clan^.ClanIndex;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	951	SortFactor:= (SortFactor shl 30) + TeamsArray[t]^.TeamHealth;
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	952	end;
547 b81a055f2d06 Convert teams list to array unc0rr parents: 545 diff changeset	953
601 78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	954	if TeamsCount > 1 then
78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	955	repeat
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	956	b:= true;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	957	for t:= 0 to TeamsCount - 2 do
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	958	if (thexchar[t].SortFactor > thexchar[Succ(t)].SortFactor) then
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	959	begin
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	960	thexchar[cMaxTeams]:= thexchar[t];
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	961	thexchar[t]:= thexchar[Succ(t)];
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	962	thexchar[Succ(t)]:= thexchar[cMaxTeams];
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	963	b:= false
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	964	end
601 78a68cc4d846 Special game mode allowing the only clan on map for training mode unc0rr parents: 590 diff changeset	965	until b;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	966
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	967	t:= cScreenHeight - 4;
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	968	for i:= 0 to Pred(TeamsCount) do
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	969	with thexchar[i] do
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	970	begin
764 7513452b1d51 Now game looks almost like it did before switching to OpenGL unc0rr parents: 762 diff changeset	971	dec(t, team^.HealthTex^.h + 2);
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	972	ny:= t;
a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	973	dy:= dy - ny
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	974	end;
764 7513452b1d51 Now game looks almost like it did before switching to OpenGL unc0rr parents: 762 diff changeset	975
557 a7d49d5e8257 - TeamHealthSorter refactored to know about clans unc0rr parents: 551 diff changeset	976	Gear^.Timer:= cSorterWorkTime;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	977	Gear^.doStep:= @doStepTeamHealthSorterWork;
143 3dacbd83209b - Many fixes to AI unc0rr parents: 113 diff changeset	978	currsorter:= Gear
49 3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	979	end;
3afe33c1cf06 - Teams health bars sorting unc0rr parents: 46 diff changeset	980
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	981	////////////////////////////////////////////////////////////////////////////////
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	982	procedure doStepIdle(Gear: PGear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	983	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	984	AllInactive:= false;
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	985	dec(Gear^.Timer);
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	986	if Gear^.Timer = 0 then
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	987	begin
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	988	DeleteGear(Gear);
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	989	AfterAttack
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	990	end
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	991	end;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	992
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	993	procedure doStepShover(Gear: PGear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	994	var HHGear: PGear;
29b477319854 - New test map unc0rr parents: 78 diff changeset	995	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	996	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	997	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	998	DeleteCI(HHGear);
20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	999
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1000	AmmoShove(Gear, 30, 115);
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1001
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1002	HHGear^.State:= HHGear^.State and not gstNoDamage;
854 fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1003	Gear^.Timer:= 250;
fef7f2d908bf Animate baseball bat attack unc0rr parents: 853 diff changeset	1004	Gear^.doStep:= @doStepIdle
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1005	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1006
29b477319854 - New test map unc0rr parents: 78 diff changeset	1007	////////////////////////////////////////////////////////////////////////////////
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1008	procedure doStepWhip(Gear: PGear);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1009	var HHGear: PGear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1010	i: LongInt;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1011	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1012	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1013	HHGear^.State:= HHGear^.State or gstNoDamage;
980 20128e98988b Don't push attacking hedgehog when using whip or baseball unc0rr parents: 979 diff changeset	1014	DeleteCI(HHGear);
925 c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1015
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1016	for i:= 0 to 3 do
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1017	begin
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1018	AmmoShove(Gear, 30, 25);
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1019	Gear^.X:= Gear^.X + Gear^.dX * 5
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1020	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1021
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1022	HHGear^.State:= HHGear^.State and not gstNoDamage;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1023	Gear^.Timer:= 250;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1024	Gear^.doStep:= @doStepIdle
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1025	end;
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1026
c20156328529 Implement whip weapon unc0rr parents: 924 diff changeset	1027	////////////////////////////////////////////////////////////////////////////////
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1028	procedure doStepFlame(Gear: PGear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1029	begin
29b477319854 - New test map unc0rr parents: 78 diff changeset	1030	AllInactive:= false;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1031	if not TestCollisionYwithGear(Gear, 1) then
29b477319854 - New test map unc0rr parents: 78 diff changeset	1032	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1033	Gear^.dX:= Gear^.dX + cWindSpeed;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1034	Gear^.dY:= Gear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1035	if hwAbs(Gear^.dX) > _0_1 then Gear^.dX:= Gear^.dX * _0_5;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1036	if Gear^.dY > _0_1 then Gear^.dY:= Gear^.dY * _0_995;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1037	Gear^.X:= Gear^.X + Gear^.dX;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1038	Gear^.Y:= Gear^.Y + Gear^.dY;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1039	if not (Gear^.Y < _1024) then
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1040	begin
29b477319854 - New test map unc0rr parents: 78 diff changeset	1041	DeleteGear(Gear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1042	exit
29b477319854 - New test map unc0rr parents: 78 diff changeset	1043	end
29b477319854 - New test map unc0rr parents: 78 diff changeset	1044	end else begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1045	if Gear^.Timer > 0 then dec(Gear^.Timer)
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1046	else begin
506 0889d833d47e - A good implementation of shotgun unc0rr parents: 505 diff changeset	1047	// doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 2, 0);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1048	dec(Gear^.Health);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1049	Gear^.Timer:= 1250 - Gear^.Angle * 12
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1050	end
29b477319854 - New test map unc0rr parents: 78 diff changeset	1051	end;
29b477319854 - New test map unc0rr parents: 78 diff changeset	1052
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1053	if (((GameTicks div 8) mod 64) = Gear^.Angle) then
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1054	AmmoFlameWork(Gear);
29b477319854 - New test map unc0rr parents: 78 diff changeset	1055
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1056	if Gear^.Health = 0 then
79 29b477319854 - New test map unc0rr parents: 78 diff changeset	1057	DeleteGear(Gear)
29b477319854 - New test map unc0rr parents: 78 diff changeset	1058	end;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1059
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1060	////////////////////////////////////////////////////////////////////////////////
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1061	procedure doStepFirePunchWork(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1062	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1063	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1064	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1065	if ((Gear^.Message and gm_Destroy) <> 0) then
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1066	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1067	DeleteGear(Gear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1068	AfterAttack;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1069	exit
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1070	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1071
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1072	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1073	if hwRound(HHGear^.Y) <= Gear^.Tag - 2 then
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1074	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1075	Gear^.Tag:= hwRound(HHGear^.Y);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1076	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	1077	HHGear^.State:= HHGear^.State or gstNoDamage;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1078	Gear^.Y:= HHGear^.Y;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1079	AmmoShove(Gear, 30, 40);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1080	HHGear^.State:= HHGear^.State and not gstNoDamage
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1081	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1082
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1083	HHGear^.dY:= HHGear^.dY + cGravity;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1084	if not (HHGear^.dY.isNegative) then
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1085	begin
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	1086	HHGear^.State:= HHGear^.State or gstMoving;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1087	DeleteGear(Gear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1088	AfterAttack;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1089	exit
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1090	end;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1091	HHGear^.Y:= HHGear^.Y + HHGear^.dY
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1092	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1093
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1094	procedure doStepFirePunch(Gear: PGear);
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1095	var HHGear: PGear;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1096	begin
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1097	AllInactive:= false;
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1098	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
514 fb8ba88a83c3 Fix firepunch regression unc0rr parents: 513 diff changeset	1099	DeleteCI(HHGear);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1100	HHGear^.X:= int2hwFloat(hwRound(HHGear^.X)) - _0_5;
1014 3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1101	HHGear^.dX:= SignAs(cLittle, Gear^.dX);
3c7d4e7ccdff - Fix firepunch sprite direction when use in high jump unc0rr parents: 992 diff changeset	1102
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1103	HHGear^.dY:= - _0_3;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1104
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1105	Gear^.X:= HHGear^.X;
979 edb8f208c1d9 Fix firepunch direction when attacking from high jump unc0rr parents: 974 diff changeset	1106	Gear^.dX:= SignAs(_0_45, Gear^.dX);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1107	Gear^.dY:= - _0_9;
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1108	Gear^.doStep:= @doStepFirePunchWork;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1109	DrawTunnel(HHGear^.X - int2hwFloat(cHHRadius), HHGear^.Y + _1, _0_5, _0, cHHRadius * 4, 5);
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1110	end;
2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1111
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1112	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1113
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1114	procedure doStepParachuteWork(Gear: PGear);
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1115	var HHGear: PGear;
558476056205 Parachute unc0rr parents: 183 diff changeset	1116	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1117	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
82 2f4f3236cccc - New fort unc0rr parents: 81 diff changeset	1118
516 f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1119	inc(Gear^.Timer);
f682e134ac2e Fix using parachute while staying on the ground unc0rr parents: 514 diff changeset	1120
212 c8c650b23e32 Parachute fixes unc0rr parents: 211 diff changeset	1121	if TestCollisionYwithGear(HHGear, 1)
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1122	or ((HHGear^.State and gstHHDriven) = 0)
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1123	or CheckGearDrowning(HHGear)
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1124	or ((Gear^.Message and gm_Attack) <> 0) then
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1125	begin
558476056205 Parachute unc0rr parents: 183 diff changeset	1126	with HHGear^ do
558476056205 Parachute unc0rr parents: 183 diff changeset	1127	begin
558476056205 Parachute unc0rr parents: 183 diff changeset	1128	Message:= 0;
568 d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1129	SetLittle(dX);
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1130	dY:= _0;
542 ec26095f1bed - Get rid of ammoProp_AttackInFall and gstFalling unc0rr parents: 540 diff changeset	1131	State:= State or gstMoving;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1132	end;
558476056205 Parachute unc0rr parents: 183 diff changeset	1133	DeleteGear(Gear);
558476056205 Parachute unc0rr parents: 183 diff changeset	1134	exit
558476056205 Parachute unc0rr parents: 183 diff changeset	1135	end;
558476056205 Parachute unc0rr parents: 183 diff changeset	1136
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1137	if not TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) then
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1138	HHGear^.X:= HHGear^.X + cWindSpeed * 200;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1139
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1140	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	1141	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	1142	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	1143	else if (Gear^.Message and gm_Down) <> 0 then HHGear^.Y:= HHGear^.Y + cGravity * 40;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1144
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1145	HHGear^.Y:= HHGear^.Y + cGravity * 100;
568 d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1146	Gear^.X:= HHGear^.X;
d0690b7aa808 - Small fixes unc0rr parents: 560 diff changeset	1147	Gear^.Y:= HHGear^.Y
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1148	end;
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1149
929 9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1150	procedure doStepParachute(Gear: PGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1151	var HHGear: PGear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1152	begin
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1153	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1154
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1155	DeleteCI(HHGear);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1156
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1157	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1158	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1159
931 ab4d98858a40 Fix some bugs with dropping from parachute unc0rr parents: 929 diff changeset	1160	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	1161	HHGear^.Message:= HHGear^.Message and not gm_Attack;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1162
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1163	Gear^.doStep:= @doStepParachuteWork;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1164
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1165	Gear^.Message:= HHGear^.Message;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1166	doStepParachuteWork(Gear)
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1167	end;
9456e1e77369 - Continue preparation for implementing attack from rope and parachute unc0rr parents: 928 diff changeset	1168
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1169	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1170	procedure doStepAirAttackWork(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1171	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1172	AllInactive:= false;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1173	Gear^.X:= Gear^.X + cAirPlaneSpeed * Gear^.Tag;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1174	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	1175	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1176	dec(Gear^.Health);
29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1177	case Gear^.State of
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1178	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	1179	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	1180	end;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1181	Gear^.dX:= Gear^.dX + int2hwFloat(30 * Gear^.Tag)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1182	end;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1183	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	1184	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1185
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1186	procedure doStepAirAttack(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1187	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1188	AllInactive:= false;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1189
408 6c3da4907d00 Airplane can fly from right to left unc0rr parents: 393 diff changeset	1190	if Gear^.X.QWordValue = 0 then Gear^.Tag:= 1
6c3da4907d00 Airplane can fly from right to left unc0rr parents: 393 diff changeset	1191	else Gear^.Tag:= -1;
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1192	Gear^.X:= _1024 - _2048 * Gear^.Tag;
9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1193	Gear^.Y:= -_128;
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1194	Gear^.dX:= int2hwFloat(TargetPoint.X - 5 * Gear^.Tag * 15);
357 165a040e4cfa - Fix Blow Torch and Air Attack unc0rr parents: 355 diff changeset	1195
543 465e2ec8f05f - Better randomness of placing hedgehogs on the land unc0rr parents: 542 diff changeset	1196	if int2hwFloat(TargetPoint.Y) - Gear^.Y > _0 then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1197	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	1198
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1199	Gear^.Health:= 6;
801 0323e5c7ee54 - 'Incoming!' shout when the plane appears unc0rr parents: 798 diff changeset	1200	Gear^.doStep:= @doStepAirAttackWork;
0323e5c7ee54 - 'Incoming!' shout when the plane appears unc0rr parents: 798 diff changeset	1201	PlaySound(sndIncoming, false)
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1202	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1203
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1204	////////////////////////////////////////////////////////////////////////////////
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1205
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1206	procedure doStepAirBomb(Gear: PGear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1207	begin
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1208	AllInactive:= false;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1209	doStepFallingGear(Gear);
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1210	if (Gear^.State and gstCollision) <> 0 then
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1211	begin
351 29bc9c36ad5f Fixed-point arithmetics in engine. unc0rr parents: 346 diff changeset	1212	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
263 36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1213	DeleteGear(Gear);
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1214	exit
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1215	end;
36379e6abcdd - Health tags over drowned hedgehogs unc0rr parents: 219 diff changeset	1216	if (GameTicks and $3F) = 0 then
498 9c8b385dc9a1 - Get rid of operator := to have GPC support unc0rr parents: 495 diff changeset	1217	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
211 558476056205 Parachute unc0rr parents: 183 diff changeset	1218	end;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1219
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1220	////////////////////////////////////////////////////////////////////////////////
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1221
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1222	procedure doStepGirder(Gear: PGear);
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1223	var HHGear: PGear;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1224	begin
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1225	AllInactive:= false;
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1226
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1227	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1228	if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprAmGirder].Width div 2,
4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1229	TargetPoint.Y - SpritesData[sprAmGirder].Height div 2,
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1230	sprAmGirder, Gear^.State, true) then
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1231	begin
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1232	HHGear^.Message:= HHGear^.Message and not gm_Attack;
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1233	HHGear^.State:= HHGear^.State and not gstAttacking;
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1234	HHGear^.State:= HHGear^.State or gstHHChooseTarget;
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1235	DeleteGear(Gear);
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1236	isCursorVisible:= true
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1237	end
415 d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1238	else begin
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1239	DeleteGear(Gear);
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1240	AfterAttack
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1241	end;
d6d3a6a473a3 - Bind also 9th slot unc0rr parents: 409 diff changeset	1242	TargetPoint.X:= NoPointX
409 4f1841929ccc Construction tool unc0rr parents: 408 diff changeset	1243	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1244
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1245	////////////////////////////////////////////////////////////////////////////////
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1246	procedure doStepTeleportAfter(Gear: PGear);
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1247	var HHGear: PGear;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1248	begin
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1249	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1250	HHGear^.Y:= HHGear^.Y + HHGear^.dY; // hedgehog falling to collect cases
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1251	HHGear^.dY:= HHGear^.dY + cGravity;
945 4ead9cde4e14 - Start chat implementation: chat strings are on the screen unc0rr parents: 940 diff changeset	1252	if TestCollisionYwithGear(HHGear, 1)
4ead9cde4e14 - Start chat implementation: chat strings are on the screen unc0rr parents: 940 diff changeset	1253	or CheckGearDrowning(HHGear) then
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1254	begin
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1255	DeleteGear(Gear);
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1256	AfterAttack
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1257	end
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1258	end;
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1259
acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1260	procedure doStepTeleportAnim(Gear: PGear);
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1261	begin
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1262	inc(Gear^.Timer);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1263	if Gear^.Timer = 65 then
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1264	begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1265	Gear^.Timer:= 0;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1266	inc(Gear^.Pos);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1267	if Gear^.Pos = 11 then
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1268	Gear^.doStep:= @doStepTeleportAfter
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1269	end
525 ae21b8e86dd9 Teleported hedgehog picks up cases unc0rr parents: 522 diff changeset	1270	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1271
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1272	procedure doStepTeleport(Gear: PGear);
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1273	var HHGear: PGear;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1274	begin
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1275	AllInactive:= false;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1276
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1277	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1278	if not TryPlaceOnLand(TargetPoint.X - SpritesData[sprHHTelepMask].Width div 2,
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1279	TargetPoint.Y - SpritesData[sprHHTelepMask].Height div 2,
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1280	sprHHTelepMask, 0, false) then
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1281	begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1282	HHGear^.Message:= HHGear^.Message and not gm_Attack;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1283	HHGear^.State:= HHGear^.State and not gstAttacking;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1284	HHGear^.State:= HHGear^.State or gstHHChooseTarget;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1285	DeleteGear(Gear);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1286	isCursorVisible:= true
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1287	end
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1288	else begin
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1289	DeleteCI(HHGear);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1290	SetAllHHToActive;
912 acab672fb1aa Fix collecting cases after teleportation unc0rr parents: 911 diff changeset	1291	Gear^.doStep:= @doStepTeleportAnim;
853 0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1292	Gear^.X:= HHGear^.X;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1293	Gear^.Y:= HHGear^.Y;
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1294	HHGear^.X:= int2hwFloat(TargetPoint.X);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1295	HHGear^.Y:= int2hwFloat(TargetPoint.Y);
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1296	HHGear^.State:= HHGear^.State or gstMoving
0b4a23795530 Teleport animation unc0rr parents: 845 diff changeset	1297	end;
520 e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1298	TargetPoint.X:= NoPointX
e83dfb7ffead Teleportation tool unc0rr parents: 519 diff changeset	1299	end;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1300
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1301	////////////////////////////////////////////////////////////////////////////////
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1302	procedure doStepSwitcherWork(Gear: PGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1303	var HHGear: PGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1304	Msg, State: Longword;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1305	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1306	AllInactive:= false;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1307
540 b06c5aace2fa - Many fixes related to hh switcher unc0rr parents: 538 diff changeset	1308	if ((Gear^.Message and not gm_Switch) <> 0) or (TurnTimeLeft = 0) then
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1309	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1310	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1311	Msg:= Gear^.Message and not gm_Switch;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1312	DeleteGear(Gear);
538 74219eadab5e - Various small fixes unc0rr parents: 537 diff changeset	1313	OnUsedAmmo(PHedgehog(HHGear^.Hedgehog)^);
74219eadab5e - Various small fixes unc0rr parents: 537 diff changeset	1314	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1315
602 f7628ebfccde Add CurrentHedgehog variable which simplifies code unc0rr parents: 601 diff changeset	1316	HHGear:= CurrentHedgehog^.Gear;
538 74219eadab5e - Various small fixes unc0rr parents: 537 diff changeset	1317	ApplyAmmoChanges(PHedgehog(HHGear^.Hedgehog)^);
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1318	HHGear^.Message:= Msg;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1319	exit
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1320	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1321
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1322	if (Gear^.Message and gm_Switch) <> 0 then
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1323	begin
602 f7628ebfccde Add CurrentHedgehog variable which simplifies code unc0rr parents: 601 diff changeset	1324	HHGear:= CurrentHedgehog^.Gear;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1325	HHGear^.Message:= HHGear^.Message and not gm_Switch;
809 b33c2def1576 Fix hedgehogs switching hang unc0rr parents: 803 diff changeset	1326	Gear^.Message:= Gear^.Message and not gm_Switch;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1327	State:= HHGear^.State;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1328	HHGear^.State:= 0;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1329	HHGear^.Active:= false;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1330	HHGear^.Z:= cHHZ;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1331	RemoveGearFromList(HHGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1332	InsertGearToList(HHGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1333
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1334	repeat
551 86bc0430ba17 Fix warnings unc0rr parents: 549 diff changeset	1335	CurrentTeam^.CurrHedgehog:= Succ(CurrentTeam^.CurrHedgehog) mod (CurrentTeam^.HedgehogsNumber);
652 4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	1336	until (CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog].Gear <> nil);
4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	1337
4cca0c7de609 - Fix for hedgehogs switching unc0rr parents: 602 diff changeset	1338	CurrentHedgehog:= @CurrentTeam^.Hedgehogs[CurrentTeam^.CurrHedgehog];
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1339
602 f7628ebfccde Add CurrentHedgehog variable which simplifies code unc0rr parents: 601 diff changeset	1340	HHGear:= CurrentHedgehog^.Gear;
534 92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1341	HHGear^.State:= State;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1342	HHGear^.Active:= true;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1343	FollowGear:= HHGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1344	HHGear^.Z:= cCurrHHZ;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1345	RemoveGearFromList(HHGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1346	InsertGearToList(HHGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1347	Gear^.X:= HHGear^.X;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1348	Gear^.Y:= HHGear^.Y
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1349	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1350	end;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1351
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1352	procedure doStepSwitcher(Gear: PGear);
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1353	var HHGear: PGear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1354	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1355	Gear^.doStep:= @doStepSwitcherWork;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1356
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1357	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1358	with HHGear^ do
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1359	begin
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1360	State:= State and not gstAttacking;
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1361	Message:= Message and not gm_Attack
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1362	end
92fb2b0d5117 - Fix some bugs unc0rr parents: 525 diff changeset	1363	end;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1364
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1365	////////////////////////////////////////////////////////////////////////////////
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1366	procedure doStepMortar(Gear: PGear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1367	var dX, dY: hwFloat;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1368	i: LongInt;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1369	dxn, dyn: boolean;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1370	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1371	AllInactive:= false;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1372	dxn:= Gear^.dX.isNegative;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1373	dyn:= Gear^.dY.isNegative;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1374
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1375	doStepFallingGear(Gear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1376	if (Gear^.State and gstCollision) <> 0 then
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1377	begin
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1378	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1379
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1380	Gear^.dX.isNegative:= not dxn;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1381	Gear^.dY.isNegative:= not dyn;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1382	for i:= 0 to 4 do
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1383	begin
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1384	dX:= Gear^.dX + (GetRandom - _0_5) * _0_03;
5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1385	dY:= Gear^.dY + (GetRandom - _0_5) * _0_03;
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1386	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtCluster, 0, dX, dY, 0);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1387	end;
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1388
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1389	DeleteGear(Gear);
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1390	exit
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1391	end;
963 5f8bb3470563 Fix mortar clusters spread direction unc0rr parents: 945 diff changeset	1392
924 227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1393	if (GameTicks and $3F) = 0 then
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1394	AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtSmokeTrace, 0, _0, _0, 0)
227f9fcdc2f4 Initial implementation of mortar unc0rr parents: 919 diff changeset	1395	end;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1396
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1397	////////////////////////////////////////////////////////////////////////////////
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1398	procedure doStepKamikazeWork(Gear: PGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1399	const upd: Longword = 0;
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1400	var i: LongWord;
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1401	HHGear: PGear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1402	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1403	AllInactive:= false;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1404
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1405	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1406	HHGear^.State:= HHGear^.State or gstNoDamage;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1407	DeleteCI(HHGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1408
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1409	i:= 2;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1410	repeat
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1411	Gear^.X:= Gear^.X + HHGear^.dX;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1412	Gear^.Y:= Gear^.Y + HHGear^.dY;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1413	HHGear^.X:= Gear^.X;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1414	HHGear^.Y:= Gear^.Y;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1415
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1416	inc(Gear^.Damage, 2);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1417
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1418	if TestCollisionXwithGear(HHGear, hwSign(Gear^.dX))
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1419	or TestCollisionYwithGear(HHGear, hwSign(Gear^.dY)) then inc(Gear^.Damage, 3);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1420
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1421	dec(i)
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1422	until (i = 0) or (Gear^.Damage > Gear^.Health);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1423
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1424	inc(upd);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1425	if upd > 3 then
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1426	begin
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1427	if Gear^.Health < 1500 then Gear^.Pos:= 2;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1428
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1429	AmmoShove(Gear, 30, 40);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1430
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1431	DrawTunnel(HHGear^.X - HHGear^.dX * 10,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1432	HHGear^.Y - _3 - HHGear^.dY * 10 + hwAbs(HHGear^.dY) * 5,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1433	HHGear^.dX,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1434	HHGear^.dY,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1435	20 + cHHRadius * 2,
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1436	cHHRadius * 2 + 4);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1437
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1438	upd:= 0
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1439	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1440
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1441	if Gear^.Health < Gear^.Damage then
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1442	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1443	doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 30, EXPLAutoSound);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1444	AfterAttack;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1445	DeleteGear(Gear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1446	DeleteGear(HHGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1447	end else
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1448	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1449	dec(Gear^.Health, Gear^.Damage);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1450	Gear^.Damage:= 0
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1451	end
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1452	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1453
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1454	procedure doStepKamikazeIdle(Gear: PGear);
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1455	begin
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1456	AllInactive:= false;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1457	dec(Gear^.Timer);
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1458	if Gear^.Timer = 0 then
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1459	begin
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1460	Gear^.Pos:= 1;
992 c16355b0c982 Use Kamikaze sound unc0rr parents: 987 diff changeset	1461	PlaySound(sndKamikaze, false);
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1462	Gear^.doStep:= @doStepKamikazeWork
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1463	end
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1464	end;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1465
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1466	procedure doStepKamikaze(Gear: PGear);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1467	var HHGear: PGear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1468	begin
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1469	AllInactive:= false;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1470
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1471	HHGear:= PHedgehog(Gear^.Hedgehog)^.Gear;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1472
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1473	HHGear^.dX:= Gear^.dX;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1474	HHGear^.dY:= Gear^.dY;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1475
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1476	Gear^.dX:= SignAs(_0_45, Gear^.dX);
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1477	Gear^.dY:= - _0_9;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1478
987 0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1479	Gear^.Timer:= 550;
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1480
0fcd3fadda41 Use kamiakze sprite unc0rr parents: 984 diff changeset	1481	Gear^.doStep:= @doStepKamikazeIdle
984 dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1482	end;
dd5f16f69926 Kamikaze weapon unc0rr parents: 980 diff changeset	1483

author	unc0rr
	Mon, 07 Jul 2008 13:12:18 +0000
changeset 1067	8be71085f0f0
parent 1066	1f1b3686a2b0
child 1088	9702e17146e6
permissions	-rw-r--r--