author | Grigory Ustinov <grenka@altlinux.org> |
Thu, 26 Sep 2019 16:35:46 +0300 | |
changeset 15442 | 85ed38cc5f8f |
parent 15254 | b189d6a2ecda |
child 15508 | d668fcb9307e |
permissions | -rw-r--r-- |
6581 | 1 |
(* |
2 |
* Hedgewars, a free turn based strategy game |
|
11046 | 3 |
* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
6581 | 4 |
* |
5 |
* This program is free software; you can redistribute it and/or modify |
|
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
8 |
* |
|
9 |
* This program is distributed in the hope that it will be useful, |
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
13 |
* |
|
14 |
* You should have received a copy of the GNU General Public License |
|
15 |
* along with this program; if not, write to the Free Software |
|
10108
c68cf030eded
update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents:
10040
diff
changeset
|
16 |
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
6581 | 17 |
*) |
18 |
||
19 |
{$INCLUDE "options.inc"} |
|
20 |
unit uGearsList; |
|
21 |
||
22 |
interface |
|
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
23 |
uses uFloat, uTypes, SDLh; |
6581 | 24 |
|
25 |
function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
|
11203 | 26 |
function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer, newUid: LongWord): PGear; |
10646
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
27 |
procedure DeleteGear(Gear: PGear); |
6581 | 28 |
procedure InsertGearToList(Gear: PGear); |
29 |
procedure RemoveGearFromList(Gear: PGear); |
|
30 |
||
7395 | 31 |
var curHandledGear: PGear; |
32 |
||
6581 | 33 |
implementation |
34 |
||
35 |
uses uRandom, uUtils, uConsts, uVariables, uAmmos, uTeams, uStats, |
|
36 |
uTextures, uScript, uRenderUtils, uAI, uCollisions, |
|
7395 | 37 |
uGearsRender, uGearsUtils, uDebug; |
6581 | 38 |
|
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
39 |
const |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
40 |
GearKindAmmoTypeMap : array [TGearType] of TAmmoType = ( |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
41 |
(* gtFlame *) amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
42 |
(* gtHedgehog *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
43 |
(* gtMine *) , amMine |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
44 |
(* gtCase *) , amNothing |
10829 | 45 |
(* gtAirMine *) , amAirMine |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
46 |
(* gtExplosives *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
47 |
(* gtGrenade *) , amGrenade |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
48 |
(* gtShell *) , amBazooka |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
49 |
(* gtGrave *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
50 |
(* gtBee *) , amBee |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
51 |
(* gtShotgunShot *) , amShotgun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
52 |
(* gtPickHammer *) , amPickHammer |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
53 |
(* gtRope *) , amRope |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
54 |
(* gtDEagleShot *) , amDEagle |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
55 |
(* gtDynamite *) , amDynamite |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
56 |
(* gtClusterBomb *) , amClusterBomb |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
57 |
(* gtCluster *) , amClusterBomb |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
58 |
(* gtShover *) , amBaseballBat // Shover is only used for baseball bat right now |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
59 |
(* gtFirePunch *) , amFirePunch |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
60 |
(* gtATStartGame *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
61 |
(* gtATFinishGame *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
62 |
(* gtParachute *) , amParachute |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
63 |
(* gtAirAttack *) , amAirAttack |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
64 |
(* gtAirBomb *) , amAirAttack |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
65 |
(* gtBlowTorch *) , amBlowTorch |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
66 |
(* gtGirder *) , amGirder |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
67 |
(* gtTeleport *) , amTeleport |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
68 |
(* gtSwitcher *) , amSwitch |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
69 |
(* gtTarget *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
70 |
(* gtMortar *) , amMortar |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
71 |
(* gtWhip *) , amWhip |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
72 |
(* gtKamikaze *) , amKamikaze |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
73 |
(* gtCake *) , amCake |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
74 |
(* gtSeduction *) , amSeduction |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
75 |
(* gtWatermelon *) , amWatermelon |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
76 |
(* gtMelonPiece *) , amWatermelon |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
77 |
(* gtHellishBomb *) , amHellishBomb |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
78 |
(* gtWaterUp *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
79 |
(* gtDrill *) , amDrill |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
80 |
(* gtBallGun *) , amBallgun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
81 |
(* gtBall *) , amBallgun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
82 |
(* gtRCPlane *) , amRCPlane |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
83 |
(*gtSniperRifleShot *) , amSniperRifle |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
84 |
(* gtJetpack *) , amJetpack |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
85 |
(* gtMolotov *) , amMolotov |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
86 |
(* gtBirdy *) , amBirdy |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
87 |
(* gtEgg *) , amBirdy |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
88 |
(* gtPortal *) , amPortalGun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
89 |
(* gtPiano *) , amPiano |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
90 |
(* gtGasBomb *) , amGasBomb |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
91 |
(* gtSineGunShot *) , amSineGun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
92 |
(* gtFlamethrower *) , amFlamethrower |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
93 |
(* gtSMine *) , amSMine |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
94 |
(* gtPoisonCloud *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
95 |
(* gtHammer *) , amHammer |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
96 |
(* gtHammerHit *) , amHammer |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
97 |
(* gtResurrector *) , amResurrector |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
98 |
(* gtPoisonCloud *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
99 |
(* gtSnowball *) , amSnowball |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
100 |
(* gtFlake *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
101 |
(* gtLandGun *) , amLandGun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
102 |
(* gtTardis *) , amTardis |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
103 |
(* gtIceGun *) , amIceGun |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
104 |
(* gtAddAmmo *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
105 |
(* gtGenericFaller *) , amNothing |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
106 |
(* gtKnife *) , amKnife |
13872
f01798038c2e
Rename amDuck and related symbols to amCreeper, gtCreeper, etc.
Wuzzy <Wuzzy2@mail.ru>
parents:
13871
diff
changeset
|
107 |
(* gtCreeper *) , amCreeper |
12898 | 108 |
(* gtMinigun *) , amMinigun |
109 |
(* gtMinigunBullet *) , amMinigun |
|
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
110 |
); |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
111 |
|
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
112 |
|
7093 | 113 |
var GCounter: LongWord = 0; // this does not get re-initialized, but should be harmless |
7028 | 114 |
|
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
115 |
const |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
116 |
cUsualZ = 500; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
117 |
cOnHHZ = 2000; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
7754
diff
changeset
|
118 |
|
6581 | 119 |
procedure InsertGearToList(Gear: PGear); |
120 |
var tmp, ptmp: PGear; |
|
121 |
begin |
|
122 |
tmp:= GearsList; |
|
123 |
ptmp:= GearsList; |
|
7366
e5a0856708dc
Insert at front of same Z, not end. Saves a little time on insertion and lua lookup of recent adds.
nemo
parents:
7364
diff
changeset
|
124 |
while (tmp <> nil) and (tmp^.Z < Gear^.Z) do |
6581 | 125 |
begin |
126 |
ptmp:= tmp; |
|
127 |
tmp:= tmp^.NextGear |
|
128 |
end; |
|
129 |
||
130 |
if ptmp <> tmp then |
|
131 |
begin |
|
132 |
Gear^.NextGear:= ptmp^.NextGear; |
|
133 |
Gear^.PrevGear:= ptmp; |
|
134 |
if ptmp^.NextGear <> nil then |
|
135 |
ptmp^.NextGear^.PrevGear:= Gear; |
|
136 |
ptmp^.NextGear:= Gear |
|
137 |
end |
|
138 |
else |
|
139 |
begin |
|
140 |
Gear^.NextGear:= GearsList; |
|
141 |
if Gear^.NextGear <> nil then |
|
142 |
Gear^.NextGear^.PrevGear:= Gear; |
|
143 |
GearsList:= Gear; |
|
144 |
end; |
|
145 |
end; |
|
146 |
||
7395 | 147 |
|
6581 | 148 |
procedure RemoveGearFromList(Gear: PGear); |
149 |
begin |
|
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
150 |
if (Gear <> GearsList) and (Gear <> nil) and (Gear^.NextGear = nil) and (Gear^.PrevGear = nil) then |
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
151 |
begin |
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
152 |
AddFileLog('Attempted to remove Gear #'+inttostr(Gear^.uid)+' from the list twice.'); |
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
153 |
exit |
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
154 |
end; |
11539 | 155 |
|
156 |
checkFails((Gear = nil) or (curHandledGear = nil) or (Gear = curHandledGear), 'You''re doing it wrong', true); |
|
7395 | 157 |
|
6581 | 158 |
if Gear^.NextGear <> nil then |
159 |
Gear^.NextGear^.PrevGear:= Gear^.PrevGear; |
|
160 |
if Gear^.PrevGear <> nil then |
|
161 |
Gear^.PrevGear^.NextGear:= Gear^.NextGear |
|
11043
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
162 |
else |
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
163 |
GearsList:= Gear^.NextGear; |
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
164 |
|
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
165 |
Gear^.NextGear:= nil; |
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
166 |
Gear^.PrevGear:= nil |
6581 | 167 |
end; |
7395 | 168 |
|
169 |
||
6581 | 170 |
function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
11203 | 171 |
begin |
172 |
AddGear:= AddGear(X, Y, Kind, State, dX, dY, Timer, 0); |
|
173 |
end; |
|
174 |
function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer, newUid: LongWord): PGear; |
|
6581 | 175 |
var gear: PGear; |
10518
dbbe2f6c0a96
make gear ability to speak somewhat less ironic
sheepluva
parents:
10495
diff
changeset
|
176 |
//c: byte; |
10874
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
177 |
cakeData: PCakeData; |
6581 | 178 |
begin |
11203 | 179 |
if newUid = 0 then |
180 |
inc(GCounter); |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7754
diff
changeset
|
181 |
|
7028 | 182 |
AddFileLog('AddGear: #' + inttostr(GCounter) + ' (' + inttostr(x) + ',' + inttostr(y) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); |
6581 | 183 |
|
8330 | 184 |
|
6581 | 185 |
New(gear); |
186 |
FillChar(gear^, sizeof(TGear), 0); |
|
187 |
gear^.X:= int2hwFloat(X); |
|
188 |
gear^.Y:= int2hwFloat(Y); |
|
189 |
gear^.Target.X:= NoPointX; |
|
190 |
gear^.Kind := Kind; |
|
191 |
gear^.State:= State; |
|
192 |
gear^.Active:= true; |
|
193 |
gear^.dX:= dX; |
|
194 |
gear^.dY:= dY; |
|
195 |
gear^.doStep:= doStepHandlers[Kind]; |
|
196 |
gear^.CollisionIndex:= -1; |
|
197 |
gear^.Timer:= Timer; |
|
11203 | 198 |
if newUid = 0 then |
199 |
gear^.uid:= GCounter |
|
200 |
else gear^.uid:= newUid; |
|
6581 | 201 |
gear^.SoundChannel:= -1; |
202 |
gear^.ImpactSound:= sndNone; |
|
203 |
gear^.Density:= _1; |
|
204 |
// Define ammo association, if any. |
|
205 |
gear^.AmmoType:= GearKindAmmoTypeMap[Kind]; |
|
13470
7b4643ff60ea
Refactor collision mask checks, remove hardcoded numbers
Wuzzy <Wuzzy2@mail.ru>
parents:
13469
diff
changeset
|
206 |
gear^.CollisionMask:= lfAll; |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
207 |
gear^.Tint:= $FFFFFFFF; |
10874
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
208 |
gear^.Data:= nil; |
13610
f1b6070a6e14
Fix projectiles reacing incorrectly with land just behind the wrap world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
209 |
gear^.Sticky:= false; |
7272
71df899c4163
Second part of the change. Make collision check use the new mask bit.
nemo
parents:
7176
diff
changeset
|
210 |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
211 |
if CurrentHedgehog <> nil then |
7726
1137406bce12
Set default collision mask for gears at currenthedgehog X/Y to FF7F, expose mask to scripting as well. This should resolve the collision part of bug #420
nemo
parents:
7721
diff
changeset
|
212 |
begin |
1137406bce12
Set default collision mask for gears at currenthedgehog X/Y to FF7F, expose mask to scripting as well. This should resolve the collision part of bug #420
nemo
parents:
7721
diff
changeset
|
213 |
gear^.Hedgehog:= CurrentHedgehog; |
1137406bce12
Set default collision mask for gears at currenthedgehog X/Y to FF7F, expose mask to scripting as well. This should resolve the collision part of bug #420
nemo
parents:
7721
diff
changeset
|
214 |
if (CurrentHedgehog^.Gear <> nil) and (hwRound(CurrentHedgehog^.Gear^.X) = X) and (hwRound(CurrentHedgehog^.Gear^.Y) = Y) then |
13469
f1d349a52bc7
Refactor: lfCurrentHog→lfCurHogCrate, lfNotCurrentMask→lfNotCurHogCrate
Wuzzy <Wuzzy2@mail.ru>
parents:
13399
diff
changeset
|
215 |
gear^.CollisionMask:= lfNotCurHogCrate |
7730
2013733f9ca9
A bit more on the knife. Also add missing files to CMakeLists
nemo
parents:
7726
diff
changeset
|
216 |
end; |
7272
71df899c4163
Second part of the change. Make collision check use the new mask bit.
nemo
parents:
7176
diff
changeset
|
217 |
|
7364 | 218 |
if (Ammoz[Gear^.AmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then |
6581 | 219 |
gear^.Z:= cHHZ+1 |
220 |
else gear^.Z:= cUsualZ; |
|
221 |
||
15244
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
222 |
// set gstInBounceEdge if gear spawned inside the bounce world edge |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
223 |
if WorldEdge = weBounce then |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
224 |
if (hwRound(gear^.X) - Gear^.Radius < leftX) or (hwRound(gear^.X) + Gear^.Radius > rightX) then |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
225 |
case gear^.Kind of |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
226 |
// list all gears here that could collide with the bounce world edge |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
227 |
gtHedgehog, |
15246
ebbc2f04b863
Make flames collide with bounce world edge again, properly this time
Wuzzy <Wuzzy2@mail.ru>
parents:
15244
diff
changeset
|
228 |
gtFlame, |
15244
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
229 |
gtMine, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
230 |
gtAirBomb, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
231 |
gtDrill, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
232 |
gtNapalmBomb, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
233 |
gtCase, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
234 |
gtAirMine, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
235 |
gtExplosives, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
236 |
gtGrenade, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
237 |
gtShell, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
238 |
gtBee, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
239 |
gtDynamite, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
240 |
gtClusterBomb, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
241 |
gtMelonPiece, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
242 |
gtCluster, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
243 |
gtMortar, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
244 |
gtKamikaze, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
245 |
gtCake, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
246 |
gtWatermelon, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
247 |
gtGasBomb, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
248 |
gtHellishBomb, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
249 |
gtBall, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
250 |
gtRCPlane, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
251 |
gtSniperRifleShot, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
252 |
gtShotgunShot, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
253 |
gtDEagleShot, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
254 |
gtSineGunShot, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
255 |
gtMinigunBullet, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
256 |
gtEgg, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
257 |
gtPiano, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
258 |
gtSMine, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
259 |
gtSnowball, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
260 |
gtKnife, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
261 |
gtCreeper, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
262 |
gtMolotov, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
263 |
gtFlake, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
264 |
gtGrave, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
265 |
gtPortal, |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
266 |
gtTarget: |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
267 |
gear^.State := gear^.State or gstInBounceEdge; |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
268 |
end; |
32678e65b25e
Bounce world edge: Fix buggy gear behaviour if gear spawned inside bounce edge area
Wuzzy <Wuzzy2@mail.ru>
parents:
15243
diff
changeset
|
269 |
|
11468
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
270 |
case Kind of |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
271 |
gtFlame: Gear^.Boom := 2; // some additional expl in there are x3, x4 this |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
272 |
gtHedgehog: Gear^.Boom := 30; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
273 |
gtMine: Gear^.Boom := 50; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
274 |
gtCase: Gear^.Boom := 25; |
13399 | 275 |
gtAirMine: Gear^.Boom := 30; |
11468
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
276 |
gtExplosives: Gear^.Boom := 75; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
277 |
gtGrenade: Gear^.Boom := 50; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
278 |
gtShell: Gear^.Boom := 50; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
279 |
gtBee: Gear^.Boom := 50; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
280 |
gtShotgunShot: Gear^.Boom := 25; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
281 |
gtPickHammer: Gear^.Boom := 6; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
282 |
// gtRope: Gear^.Boom := 2; could be funny to have rope attaching to hog deal small amount of dmg? |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
283 |
gtDEagleShot: Gear^.Boom := 7; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
284 |
gtDynamite: Gear^.Boom := 75; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
285 |
gtClusterBomb: Gear^.Boom := 20; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
286 |
gtMelonPiece, |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
287 |
gtCluster: Gear^.Boom := Timer; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
288 |
gtShover: Gear^.Boom := 30; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
289 |
gtFirePunch: Gear^.Boom := 30; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
290 |
gtAirBomb: Gear^.Boom := 30; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
291 |
gtBlowTorch: Gear^.Boom := 2; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
292 |
gtMortar: Gear^.Boom := 20; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
293 |
gtWhip: Gear^.Boom := 30; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
294 |
gtKamikaze: Gear^.Boom := 30; // both shove and explosion |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
295 |
gtCake: Gear^.Boom := cakeDmg; // why is cake damage a global constant |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
296 |
gtWatermelon: Gear^.Boom := 75; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
297 |
gtHellishBomb: Gear^.Boom := 90; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
298 |
gtDrill: if Gear^.State and gsttmpFlag = 0 then |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
299 |
Gear^.Boom := 50 |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
300 |
else Gear^.Boom := 30; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
301 |
gtBall: Gear^.Boom := 40; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
302 |
gtRCPlane: Gear^.Boom := 25; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
303 |
// sniper rifle is distance linked, this Boom is just an arbitrary scaling factor applied to timer-based-damage |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
304 |
// because, eh, why not.. |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
305 |
gtSniperRifleShot: Gear^.Boom := 100000; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
306 |
gtEgg: Gear^.Boom := 10; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
307 |
gtPiano: Gear^.Boom := 80; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
308 |
gtGasBomb: Gear^.Boom := 20; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
309 |
gtSineGunShot: Gear^.Boom := 35; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
310 |
gtSMine: Gear^.Boom := 30; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
311 |
gtSnowball: Gear^.Boom := 200000; // arbitrary scaling for the shove |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
312 |
gtHammer: if cDamageModifier > _1 then // scale it based on cDamageModifier? |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
313 |
Gear^.Boom := 2 |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
314 |
else Gear^.Boom := 3; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
315 |
gtPoisonCloud: Gear^.Boom := 20; |
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
316 |
gtKnife: Gear^.Boom := 40000; // arbitrary scaling factor since impact-based |
13872
f01798038c2e
Rename amDuck and related symbols to amCreeper, gtCreeper, etc.
Wuzzy <Wuzzy2@mail.ru>
parents:
13871
diff
changeset
|
317 |
gtCreeper: Gear^.Boom := 100; |
12898 | 318 |
gtMinigunBullet: Gear^.Boom := 2; |
11468
2f6f8baa2a97
Make weapon damage in most cases be a structure value and also expose it to lua. Needs testing/review due to conditions at time of doing this (w/ one arm, dizzy/tingling due to sodium citrate), and just number of places changed..
nemo
parents:
11203
diff
changeset
|
319 |
end; |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
320 |
|
6581 | 321 |
case Kind of |
322 |
gtGrenade, |
|
323 |
gtClusterBomb, |
|
324 |
gtGasBomb: begin |
|
325 |
gear^.ImpactSound:= sndGrenadeImpact; |
|
326 |
gear^.nImpactSounds:= 1; |
|
327 |
gear^.AdvBounce:= 1; |
|
328 |
gear^.Radius:= 5; |
|
329 |
gear^.Elasticity:= _0_8; |
|
330 |
gear^.Friction:= _0_8; |
|
331 |
gear^.Density:= _1_5; |
|
332 |
gear^.RenderTimer:= true; |
|
333 |
if gear^.Timer = 0 then |
|
334 |
gear^.Timer:= 3000 |
|
335 |
end; |
|
336 |
gtWatermelon: begin |
|
337 |
gear^.ImpactSound:= sndMelonImpact; |
|
338 |
gear^.nImpactSounds:= 1; |
|
339 |
gear^.AdvBounce:= 1; |
|
340 |
gear^.Radius:= 6; |
|
341 |
gear^.Elasticity:= _0_8; |
|
342 |
gear^.Friction:= _0_995; |
|
343 |
gear^.Density:= _2; |
|
344 |
gear^.RenderTimer:= true; |
|
345 |
if gear^.Timer = 0 then |
|
346 |
gear^.Timer:= 3000 |
|
347 |
end; |
|
348 |
gtMelonPiece: begin |
|
9825 | 349 |
gear^.AdvBounce:= 1; |
10889
f7200e614295
give melon pieces a radius. is why they weren't bouncing.
nemo
parents:
10875
diff
changeset
|
350 |
gear^.Density:= _2; |
11036
6e866be63b1d
oops. melon pieces need friction and elasticity to bounce right.
nemo
parents:
11002
diff
changeset
|
351 |
gear^.Elasticity:= _0_8; |
6e866be63b1d
oops. melon pieces need friction and elasticity to bounce right.
nemo
parents:
11002
diff
changeset
|
352 |
gear^.Friction:= _0_995; |
10889
f7200e614295
give melon pieces a radius. is why they weren't bouncing.
nemo
parents:
10875
diff
changeset
|
353 |
gear^.Radius:= 4 |
6581 | 354 |
end; |
355 |
gtHedgehog: begin |
|
356 |
gear^.AdvBounce:= 1; |
|
357 |
gear^.Radius:= cHHRadius; |
|
358 |
gear^.Elasticity:= _0_35; |
|
359 |
gear^.Friction:= _0_999; |
|
360 |
gear^.Angle:= cMaxAngle div 2; |
|
361 |
gear^.Density:= _3; |
|
362 |
gear^.Z:= cHHZ; |
|
363 |
if (GameFlags and gfAISurvival) <> 0 then |
|
364 |
if gear^.Hedgehog^.BotLevel > 0 then |
|
7077 | 365 |
gear^.Hedgehog^.Effects[heResurrectable] := 1; |
13096
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
12898
diff
changeset
|
366 |
if (GameFlags and gfArtillery) <> 0 then |
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
12898
diff
changeset
|
367 |
gear^.Hedgehog^.Effects[heArtillery] := 1; |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
368 |
// this would presumably be set in the frontend |
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
369 |
// if we weren't going to do that yet, would need to reinit GetRandom |
10040 | 370 |
// oh, and, randomising slightly R and B might be nice too. |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
371 |
//gear^.Tint:= $fa00efff or ((random(80)+128) shl 16) |
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
372 |
//gear^.Tint:= $faa4efff |
10040 | 373 |
//gear^.Tint:= (($e0+random(32)) shl 24) or |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
374 |
// ((random(80)+128) shl 16) or |
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
375 |
// (($d5+random(32)) shl 8) or $ff |
10495
6d61b44a5652
- Comment out getrandom in addgear for hedgehog, causes preview-game desync
unc0rr
parents:
10494
diff
changeset
|
376 |
{c:= GetRandom(32); |
10040 | 377 |
gear^.Tint:= (($e0+c) shl 24) or |
10494 | 378 |
((GetRandom(90)+128) shl 16) or |
10495
6d61b44a5652
- Comment out getrandom in addgear for hedgehog, causes preview-game desync
unc0rr
parents:
10494
diff
changeset
|
379 |
(($d5+c) shl 8) or $ff} |
6581 | 380 |
end; |
15167
6b7d92fa4912
Keep hog facing direction while on parachute
Wuzzy <Wuzzy2@mail.ru>
parents:
15129
diff
changeset
|
381 |
gtParachute: begin |
6b7d92fa4912
Keep hog facing direction while on parachute
Wuzzy <Wuzzy2@mail.ru>
parents:
15129
diff
changeset
|
382 |
gear^.Tag:= 1; // hog face dir. 1 = right, -1 = left |
6b7d92fa4912
Keep hog facing direction while on parachute
Wuzzy <Wuzzy2@mail.ru>
parents:
15129
diff
changeset
|
383 |
gear^.Z:= cCurrHHZ; |
6b7d92fa4912
Keep hog facing direction while on parachute
Wuzzy <Wuzzy2@mail.ru>
parents:
15129
diff
changeset
|
384 |
end; |
6581 | 385 |
gtShell: begin |
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
386 |
gear^.Elasticity:= _0_8; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
387 |
gear^.Friction:= _0_8; |
6581 | 388 |
gear^.Radius:= 4; |
389 |
gear^.Density:= _1; |
|
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
390 |
gear^.AdvBounce:= 1; |
6581 | 391 |
end; |
392 |
gtSnowball: begin |
|
393 |
gear^.ImpactSound:= sndMudballImpact; |
|
394 |
gear^.nImpactSounds:= 1; |
|
395 |
gear^.Radius:= 4; |
|
396 |
gear^.Density:= _0_5; |
|
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
397 |
gear^.AdvBounce:= 1; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
398 |
gear^.Elasticity:= _0_8; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
399 |
gear^.Friction:= _0_8; |
6581 | 400 |
end; |
401 |
||
402 |
gtFlake: begin |
|
403 |
with Gear^ do |
|
404 |
begin |
|
405 |
Pos:= 0; |
|
406 |
Radius:= 1; |
|
7069 | 407 |
DirAngle:= random(360); |
13610
f1b6070a6e14
Fix projectiles reacing incorrectly with land just behind the wrap world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
408 |
Sticky:= true; |
6581 | 409 |
if State and gstTmpFlag = 0 then |
410 |
begin |
|
411 |
dx.isNegative:= GetRandom(2) = 0; |
|
9809 | 412 |
dx.QWordValue:= QWord($40DA) * GetRandom(10000) * 8; |
6581 | 413 |
dy.isNegative:= false; |
9809 | 414 |
dy.QWordValue:= QWord($3AD3) * GetRandom(7000) * 8; |
6581 | 415 |
if GetRandom(2) = 0 then |
10645
b8c73bacb31e
Fix in-flight colouring of land spray, make it use tint when added to land too (lua might find that handy), tweak climbhome cake delay slightly
nemo
parents:
10643
diff
changeset
|
416 |
dx := -dx; |
b8c73bacb31e
Fix in-flight colouring of land spray, make it use tint when added to land too (lua might find that handy), tweak climbhome cake delay slightly
nemo
parents:
10643
diff
changeset
|
417 |
Tint:= $FFFFFFFF |
b8c73bacb31e
Fix in-flight colouring of land spray, make it use tint when added to land too (lua might find that handy), tweak climbhome cake delay slightly
nemo
parents:
10643
diff
changeset
|
418 |
end |
b8c73bacb31e
Fix in-flight colouring of land spray, make it use tint when added to land too (lua might find that handy), tweak climbhome cake delay slightly
nemo
parents:
10643
diff
changeset
|
419 |
else |
b8c73bacb31e
Fix in-flight colouring of land spray, make it use tint when added to land too (lua might find that handy), tweak climbhome cake delay slightly
nemo
parents:
10643
diff
changeset
|
420 |
Tint:= (ExplosionBorderColor shr RShift and $FF shl 24) or |
b8c73bacb31e
Fix in-flight colouring of land spray, make it use tint when added to land too (lua might find that handy), tweak climbhome cake delay slightly
nemo
parents:
10643
diff
changeset
|
421 |
(ExplosionBorderColor shr GShift and $FF shl 16) or |
b8c73bacb31e
Fix in-flight colouring of land spray, make it use tint when added to land too (lua might find that handy), tweak climbhome cake delay slightly
nemo
parents:
10643
diff
changeset
|
422 |
(ExplosionBorderColor shr BShift and $FF shl 8) or $FF; |
6581 | 423 |
State:= State or gstInvisible; |
10625
125e120165aa
flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents:
10589
diff
changeset
|
424 |
// use health field to store current frameticks |
125e120165aa
flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents:
10589
diff
changeset
|
425 |
if vobFrameTicks > 0 then |
125e120165aa
flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents:
10589
diff
changeset
|
426 |
Health:= random(vobFrameTicks) |
125e120165aa
flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents:
10589
diff
changeset
|
427 |
else |
125e120165aa
flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents:
10589
diff
changeset
|
428 |
Health:= 0; |
125e120165aa
flake FrameTicks value of 0 now indicades that the frame should not be changed
sheepluva
parents:
10589
diff
changeset
|
429 |
// use timer to store currently displayed frame index |
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
430 |
if gear^.Timer = 0 then Timer:= random(vobFramesCount); |
10645
b8c73bacb31e
Fix in-flight colouring of land spray, make it use tint when added to land too (lua might find that handy), tweak climbhome cake delay slightly
nemo
parents:
10643
diff
changeset
|
431 |
Damage:= (random(2) * 2 - 1) * (vobVelocity + random(vobVelocity)) * 8 |
6581 | 432 |
end |
433 |
end; |
|
434 |
gtGrave: begin |
|
435 |
gear^.ImpactSound:= sndGraveImpact; |
|
436 |
gear^.nImpactSounds:= 1; |
|
437 |
gear^.Radius:= 10; |
|
438 |
gear^.Elasticity:= _0_6; |
|
11541 | 439 |
gear^.Z:= 1; |
6581 | 440 |
end; |
441 |
gtBee: begin |
|
442 |
gear^.Radius:= 5; |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
443 |
if gear^.Timer = 0 then gear^.Timer:= 500; |
6581 | 444 |
gear^.RenderTimer:= true; |
445 |
gear^.Elasticity:= _0_9; |
|
446 |
gear^.Tag:= 0; |
|
9479
167dea42d7d7
move border back a bit from left/right bounds, bee tweak
nemo
parents:
9195
diff
changeset
|
447 |
gear^.State:= Gear^.State or gstSubmersible |
6581 | 448 |
end; |
449 |
gtSeduction: begin |
|
15117
eff1a080cf40
Move resurrector and seduction distance to uConsts
Wuzzy <Wuzzy2@mail.ru>
parents:
15059
diff
changeset
|
450 |
gear^.Radius:= cSeductionDist; |
6581 | 451 |
end; |
452 |
gtShotgunShot: begin |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
453 |
if gear^.Timer = 0 then gear^.Timer:= 900; |
6581 | 454 |
gear^.Radius:= 2 |
455 |
end; |
|
456 |
gtPickHammer: begin |
|
457 |
gear^.Radius:= 10; |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
458 |
if gear^.Timer = 0 then gear^.Timer:= 4000 |
6581 | 459 |
end; |
460 |
gtHammerHit: begin |
|
461 |
gear^.Radius:= 8; |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
462 |
if gear^.Timer = 0 then gear^.Timer:= 125 |
6581 | 463 |
end; |
464 |
gtRope: begin |
|
465 |
gear^.Radius:= 3; |
|
466 |
gear^.Friction:= _450 * _0_01 * cRopePercent; |
|
467 |
RopePoints.Count:= 0; |
|
10848 | 468 |
gear^.Tint:= $D8D8D8FF; |
469 |
gear^.Tag:= 0; // normal rope render |
|
13469
f1d349a52bc7
Refactor: lfCurrentHog→lfCurHogCrate, lfNotCurrentMask→lfNotCurHogCrate
Wuzzy <Wuzzy2@mail.ru>
parents:
13399
diff
changeset
|
470 |
gear^.CollisionMask:= lfNotCurHogCrate //lfNotObjMask or lfNotHHObjMask; |
6581 | 471 |
end; |
472 |
gtMine: begin |
|
473 |
gear^.ImpactSound:= sndMineImpact; |
|
474 |
gear^.nImpactSounds:= 1; |
|
475 |
gear^.Health:= 10; |
|
476 |
gear^.State:= gear^.State or gstMoving; |
|
477 |
gear^.Radius:= 2; |
|
478 |
gear^.Elasticity:= _0_55; |
|
479 |
gear^.Friction:= _0_995; |
|
7602
a620319d377e
Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents:
7395
diff
changeset
|
480 |
gear^.Density:= _1; |
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
481 |
if gear^.Timer = 0 then |
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
482 |
begin |
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
483 |
if cMinesTime < 0 then |
14773
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
484 |
begin |
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
485 |
gear^.Timer:= getrandom(51)*100; |
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
486 |
gear^.Karma:= 1; |
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
487 |
end |
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
488 |
else |
14773
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
489 |
gear^.Timer:= cMinesTime; |
14771
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
490 |
end; |
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
491 |
gear^.RenderTimer:= true; |
6581 | 492 |
end; |
10789
acbf69e2e5cf
experiment with air mines. thought they could make shoppa... interesting. ToDo: Allow mines to give up, tweak distances, real graphics, toggle for whether they can acquire a new target while they haven't given up.
nemo
parents:
10663
diff
changeset
|
493 |
gtAirMine: begin |
13347
e7b89e87a1b3
Airmines should have been set for 45° bounce - the only reason they weren't I guess is they were a clone of some mine values - and mines use traditional behaviour.
nemo
parents:
13154
diff
changeset
|
494 |
gear^.AdvBounce:= 1; |
11765
10860d4bca22
Add sound effects for: cleaver impact, air mine impact, using extra time
Wuzzy <almikes@aol.com>
parents:
11589
diff
changeset
|
495 |
gear^.ImpactSound:= sndAirMineImpact; |
10789
acbf69e2e5cf
experiment with air mines. thought they could make shoppa... interesting. ToDo: Allow mines to give up, tweak distances, real graphics, toggle for whether they can acquire a new target while they haven't given up.
nemo
parents:
10663
diff
changeset
|
496 |
gear^.nImpactSounds:= 1; |
acbf69e2e5cf
experiment with air mines. thought they could make shoppa... interesting. ToDo: Allow mines to give up, tweak distances, real graphics, toggle for whether they can acquire a new target while they haven't given up.
nemo
parents:
10663
diff
changeset
|
497 |
gear^.Health:= 30; |
10827 | 498 |
gear^.State:= gear^.State or gstMoving or gstNoGravity or gstSubmersible; |
10802
089e43d01f74
Use the larger scaled airmine sprite originally intended, add some antidickery measures.
nemo
parents:
10800
diff
changeset
|
499 |
gear^.Radius:= 8; |
10789
acbf69e2e5cf
experiment with air mines. thought they could make shoppa... interesting. ToDo: Allow mines to give up, tweak distances, real graphics, toggle for whether they can acquire a new target while they haven't given up.
nemo
parents:
10663
diff
changeset
|
500 |
gear^.Elasticity:= _0_55; |
acbf69e2e5cf
experiment with air mines. thought they could make shoppa... interesting. ToDo: Allow mines to give up, tweak distances, real graphics, toggle for whether they can acquire a new target while they haven't given up.
nemo
parents:
10663
diff
changeset
|
501 |
gear^.Friction:= _0_995; |
acbf69e2e5cf
experiment with air mines. thought they could make shoppa... interesting. ToDo: Allow mines to give up, tweak distances, real graphics, toggle for whether they can acquire a new target while they haven't given up.
nemo
parents:
10663
diff
changeset
|
502 |
gear^.Density:= _1; |
10791
0311c9fa7498
tweak a few params. still something wtf going on when on rope
nemo
parents:
10789
diff
changeset
|
503 |
gear^.Angle:= 175; // Radius at which air bombs will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
10800 | 504 |
gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
10828
9867dd60a66a
bit more friction. remove gstSubmersible clearing. was for the old "sea" thing that is totally gone now. As a general attribute, better to let other stuff clear it as needed.
nemo
parents:
10827
diff
changeset
|
505 |
gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
14221 | 506 |
gear^.Tag:= 0; |
10805 | 507 |
if gear^.Timer = 0 then |
508 |
begin |
|
509 |
if cMinesTime < 0 then |
|
14773
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
510 |
begin |
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
511 |
gear^.Timer:= getrandom(13)*100; |
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
512 |
gear^.Karma:= 1; |
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
513 |
end |
10805 | 514 |
else |
14773
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
515 |
gear^.Timer:= cMinesTime div 4; |
10805 | 516 |
end; |
14773
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
517 |
gear^.RenderTimer:= true; |
10805 | 518 |
gear^.WDTimer:= gear^.Timer |
10789
acbf69e2e5cf
experiment with air mines. thought they could make shoppa... interesting. ToDo: Allow mines to give up, tweak distances, real graphics, toggle for whether they can acquire a new target while they haven't given up.
nemo
parents:
10663
diff
changeset
|
519 |
end; |
6581 | 520 |
gtSMine: begin |
521 |
gear^.Health:= 10; |
|
522 |
gear^.State:= gear^.State or gstMoving; |
|
523 |
gear^.Radius:= 2; |
|
524 |
gear^.Elasticity:= _0_55; |
|
525 |
gear^.Friction:= _0_995; |
|
7602
a620319d377e
Fix throwing things off rope, also make throwing things a bit more generic and gear density dependent (so you can throw mines further, and also throw dynamite a little).
nemo
parents:
7395
diff
changeset
|
526 |
gear^.Density:= _1_6; |
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
527 |
gear^.AdvBounce:= 1; |
13610
f1b6070a6e14
Fix projectiles reacing incorrectly with land just behind the wrap world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
528 |
gear^.Sticky:= true; |
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
529 |
if gear^.Timer = 0 then gear^.Timer:= 500; |
14771
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
530 |
gear^.RenderTimer:= true; |
6581 | 531 |
end; |
7733 | 532 |
gtKnife: begin |
11765
10860d4bca22
Add sound effects for: cleaver impact, air mine impact, using extra time
Wuzzy <almikes@aol.com>
parents:
11589
diff
changeset
|
533 |
gear^.ImpactSound:= sndKnifeImpact; |
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
534 |
gear^.AdvBounce:= 1; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
535 |
gear^.Elasticity:= _0_8; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
536 |
gear^.Friction:= _0_8; |
7754 | 537 |
gear^.Density:= _4; |
13610
f1b6070a6e14
Fix projectiles reacing incorrectly with land just behind the wrap world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
538 |
gear^.Radius:= 7; |
f1b6070a6e14
Fix projectiles reacing incorrectly with land just behind the wrap world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
539 |
gear^.Sticky:= true; |
7733 | 540 |
end; |
6581 | 541 |
gtCase: begin |
14009
c28a4f76d37d
Add separate sound symbols for case impact and extra damage
Wuzzy <Wuzzy2@mail.ru>
parents:
14005
diff
changeset
|
542 |
gear^.ImpactSound:= sndCaseImpact; |
6581 | 543 |
gear^.nImpactSounds:= 1; |
544 |
gear^.Radius:= 16; |
|
7168
8defaabce92e
warp sound when AI survival hog respawns. attempt at a bit of a crate spawn animation (moar sparkles and a quick fadein)
nemo
parents:
7093
diff
changeset
|
545 |
gear^.Elasticity:= _0_3; |
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
546 |
if gear^.Timer = 0 then gear^.Timer:= 500 |
6581 | 547 |
end; |
548 |
gtExplosives: begin |
|
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
549 |
gear^.AdvBounce:= 1; |
14774
168be33c099a
Don't render barrel health after loading savegame
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
550 |
if GameType in [gmtDemo, gmtRecord] then |
14770
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14755
diff
changeset
|
551 |
gear^.RenderHealth:= true; |
6581 | 552 |
gear^.ImpactSound:= sndGrenadeImpact; |
553 |
gear^.nImpactSounds:= 1; |
|
554 |
gear^.Radius:= 16; |
|
555 |
gear^.Elasticity:= _0_4; |
|
556 |
gear^.Friction:= _0_995; |
|
557 |
gear^.Density:= _6; |
|
558 |
gear^.Health:= cBarrelHealth; |
|
559 |
gear^.Z:= cHHZ-1 |
|
560 |
end; |
|
561 |
gtDEagleShot: begin |
|
562 |
gear^.Radius:= 1; |
|
563 |
gear^.Health:= 50 |
|
564 |
end; |
|
565 |
gtSniperRifleShot: begin |
|
566 |
gear^.Radius:= 1; |
|
567 |
gear^.Health:= 50 |
|
568 |
end; |
|
569 |
gtDynamite: begin |
|
570 |
gear^.Radius:= 3; |
|
571 |
gear^.Elasticity:= _0_55; |
|
572 |
gear^.Friction:= _0_03; |
|
573 |
gear^.Density:= _2; |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
574 |
if gear^.Timer = 0 then gear^.Timer:= 5000; |
6581 | 575 |
end; |
576 |
gtCluster: begin |
|
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
577 |
gear^.AdvBounce:= 1; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
578 |
gear^.Elasticity:= _0_8; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
579 |
gear^.Friction:= _0_8; |
6581 | 580 |
gear^.Radius:= 2; |
581 |
gear^.Density:= _1_5; |
|
582 |
gear^.RenderTimer:= true |
|
583 |
end; |
|
12119 | 584 |
gtShover: begin |
585 |
gear^.Radius:= 20; |
|
586 |
gear^.Tag:= 0; |
|
12828 | 587 |
gear^.Timer:= 50; |
12119 | 588 |
end; |
6581 | 589 |
gtFlame: begin |
590 |
gear^.Tag:= GetRandom(32); |
|
591 |
gear^.Radius:= 1; |
|
592 |
gear^.Health:= 5; |
|
593 |
gear^.Density:= _1; |
|
10589
98ea597e5cd9
expose FlightTime to lua, disable in-air flame harming moving hogs ☹ aaaand override that in ClimbHome ☺
nemo
parents:
10518
diff
changeset
|
594 |
gear^.FlightTime:= 9999999; // determines whether in-air flames do damage. disabled by default |
6581 | 595 |
if (gear^.dY.QWordValue = 0) and (gear^.dX.QWordValue = 0) then |
596 |
begin |
|
7001 | 597 |
gear^.dY:= (getrandomf - _0_8) * _0_03; |
598 |
gear^.dX:= (getrandomf - _0_5) * _0_4 |
|
6581 | 599 |
end |
600 |
end; |
|
601 |
gtFirePunch: begin |
|
9824 | 602 |
if gear^.Timer = 0 then gear^.Timer:= 3000; |
6581 | 603 |
gear^.Radius:= 15; |
604 |
gear^.Tag:= Y |
|
605 |
end; |
|
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
606 |
gtAirAttack: begin |
11171 | 607 |
gear^.Health:= 6; |
11170
22d8835beb4d
Allow for arbitrary number of airstrike bombs and spacing.
nemo
parents:
11169
diff
changeset
|
608 |
gear^.Damage:= 30; |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
609 |
gear^.Z:= cHHZ+2; |
15251
4576e41c0692
Add air plane underwater sound and add water splashes
Wuzzy <Wuzzy2@mail.ru>
parents:
15246
diff
changeset
|
610 |
gear^.Karma:= 0; // for sound effect: 0 = normal, 1 = underwater |
4576e41c0692
Add air plane underwater sound and add water splashes
Wuzzy <Wuzzy2@mail.ru>
parents:
15246
diff
changeset
|
611 |
gear^.Radius:= 150; |
15254
b189d6a2ecda
Cleanup gtAirAttack behaviour in weWrap
Wuzzy <Wuzzy2@mail.ru>
parents:
15251
diff
changeset
|
612 |
gear^.FlightTime:= 0; // for timeout in weWrap |
b189d6a2ecda
Cleanup gtAirAttack behaviour in weWrap
Wuzzy <Wuzzy2@mail.ru>
parents:
15251
diff
changeset
|
613 |
gear^.Power:= 0; // count number of wraps in weWrap |
b189d6a2ecda
Cleanup gtAirAttack behaviour in weWrap
Wuzzy <Wuzzy2@mail.ru>
parents:
15251
diff
changeset
|
614 |
gear^.WDTimer:= 0; // number of required wraps |
15251
4576e41c0692
Add air plane underwater sound and add water splashes
Wuzzy <Wuzzy2@mail.ru>
parents:
15246
diff
changeset
|
615 |
gear^.Density:= _19; |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
616 |
gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF |
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
617 |
end; |
6581 | 618 |
gtAirBomb: begin |
10891
a4c454ef80a6
enable bounce on rubber for air bombs. give them the missing elasticity they needed for the code there to work properly.
nemo
parents:
10889
diff
changeset
|
619 |
gear^.AdvBounce:= 1; |
6581 | 620 |
gear^.Radius:= 5; |
621 |
gear^.Density:= _2; |
|
10891
a4c454ef80a6
enable bounce on rubber for air bombs. give them the missing elasticity they needed for the code there to work properly.
nemo
parents:
10889
diff
changeset
|
622 |
gear^.Elasticity:= _0_55; |
a4c454ef80a6
enable bounce on rubber for air bombs. give them the missing elasticity they needed for the code there to work properly.
nemo
parents:
10889
diff
changeset
|
623 |
gear^.Friction:= _0_995 |
6581 | 624 |
end; |
625 |
gtBlowTorch: begin |
|
626 |
gear^.Radius:= cHHRadius + cBlowTorchC; |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
627 |
if gear^.Timer = 0 then gear^.Timer:= 7500 |
6581 | 628 |
end; |
629 |
gtSwitcher: begin |
|
630 |
gear^.Z:= cCurrHHZ |
|
631 |
end; |
|
632 |
gtTarget: begin |
|
633 |
gear^.ImpactSound:= sndGrenadeImpact; |
|
634 |
gear^.nImpactSounds:= 1; |
|
635 |
gear^.Radius:= 10; |
|
636 |
gear^.Elasticity:= _0_3; |
|
637 |
end; |
|
638 |
gtTardis: begin |
|
15243
deaa316af414
TimeBox: Fix buggy behaviour if hog took damage or died before time box arrived
Wuzzy <Wuzzy2@mail.ru>
parents:
15231
diff
changeset
|
639 |
gear^.Pos:= 1; // tardis phase |
deaa316af414
TimeBox: Fix buggy behaviour if hog took damage or died before time box arrived
Wuzzy <Wuzzy2@mail.ru>
parents:
15231
diff
changeset
|
640 |
gear^.Tag:= 0; // 1 = hedgehog died, disappeared, took damage or moved |
6581 | 641 |
gear^.Z:= cCurrHHZ+1; |
642 |
end; |
|
643 |
gtMortar: begin |
|
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
644 |
gear^.AdvBounce:= 1; |
6581 | 645 |
gear^.Radius:= 4; |
646 |
gear^.Elasticity:= _0_2; |
|
647 |
gear^.Friction:= _0_08; |
|
648 |
gear^.Density:= _1; |
|
649 |
end; |
|
650 |
gtWhip: gear^.Radius:= 20; |
|
651 |
gtHammer: gear^.Radius:= 20; |
|
652 |
gtKamikaze: begin |
|
653 |
gear^.Health:= 2048; |
|
654 |
gear^.Radius:= 20 |
|
655 |
end; |
|
656 |
gtCake: begin |
|
657 |
gear^.Health:= 2048; |
|
658 |
gear^.Radius:= 7; |
|
659 |
gear^.Z:= cOnHHZ; |
|
10875 | 660 |
gear^.RenderTimer:= false; |
6581 | 661 |
gear^.DirAngle:= -90 * hwSign(Gear^.dX); |
12641
f30b70976577
Fix cake taking >200s to explode when it's completely stuck and can't move (bug 194)
Wuzzy <almikes@aol.com>
parents:
12203
diff
changeset
|
662 |
gear^.FlightTime:= 100; // (roughly) ticks spent dropping, used to skip getting up anim when stuck. |
f30b70976577
Fix cake taking >200s to explode when it's completely stuck and can't move (bug 194)
Wuzzy <almikes@aol.com>
parents:
12203
diff
changeset
|
663 |
// Initially set to a high value so cake has at least one getting up anim. |
6581 | 664 |
if not dX.isNegative then |
665 |
gear^.Angle:= 1 |
|
666 |
else |
|
10874
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
667 |
gear^.Angle:= 3; |
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
668 |
New(cakeData); |
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
669 |
gear^.Data:= Pointer(cakeData); |
6581 | 670 |
end; |
671 |
gtHellishBomb: begin |
|
672 |
gear^.ImpactSound:= sndHellishImpact1; |
|
673 |
gear^.nImpactSounds:= 4; |
|
674 |
gear^.AdvBounce:= 1; |
|
675 |
gear^.Radius:= 4; |
|
676 |
gear^.Elasticity:= _0_5; |
|
677 |
gear^.Friction:= _0_96; |
|
678 |
gear^.Density:= _1_5; |
|
679 |
gear^.RenderTimer:= true; |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
680 |
if gear^.Timer = 0 then gear^.Timer:= 5000 |
6581 | 681 |
end; |
682 |
gtDrill: begin |
|
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
683 |
gear^.AdvBounce:= 1; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
684 |
gear^.Elasticity:= _0_8; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
685 |
gear^.Friction:= _0_8; |
6581 | 686 |
if gear^.Timer = 0 then |
687 |
gear^.Timer:= 5000; |
|
688 |
// Tag for drill strike. if 1 then first impact occured already |
|
689 |
gear^.Tag := 0; |
|
15059 | 690 |
// Pos for state. If 1, drill is drilling |
691 |
gear^.Pos := 0; |
|
6581 | 692 |
gear^.Radius:= 4; |
693 |
gear^.Density:= _1; |
|
694 |
end; |
|
695 |
gtBall: begin |
|
696 |
gear^.ImpactSound:= sndGrenadeImpact; |
|
697 |
gear^.nImpactSounds:= 1; |
|
698 |
gear^.AdvBounce:= 1; |
|
699 |
gear^.Radius:= 5; |
|
700 |
gear^.Tag:= random(8); |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
701 |
if gear^.Timer = 0 then gear^.Timer:= 5000; |
6581 | 702 |
gear^.Elasticity:= _0_7; |
703 |
gear^.Friction:= _0_995; |
|
704 |
gear^.Density:= _1_5; |
|
705 |
end; |
|
706 |
gtBallgun: begin |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
707 |
if gear^.Timer = 0 then gear^.Timer:= 5001; |
6581 | 708 |
end; |
709 |
gtRCPlane: begin |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
710 |
if gear^.Timer = 0 then gear^.Timer:= 15000; |
6581 | 711 |
gear^.Health:= 3; |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
712 |
gear^.Radius:= 8; |
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
713 |
gear^.Tint:= gear^.Hedgehog^.Team^.Clan^.Color shl 8 or $FF |
6581 | 714 |
end; |
715 |
gtJetpack: begin |
|
716 |
gear^.Health:= 2000; |
|
8987
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8795
diff
changeset
|
717 |
gear^.Damage:= 100; |
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
718 |
gear^.State:= Gear^.State or gstSubmersible |
6581 | 719 |
end; |
720 |
gtMolotov: begin |
|
9825 | 721 |
gear^.AdvBounce:= 1; |
6581 | 722 |
gear^.Radius:= 6; |
12664
943b258d5443
Fix molotov cocktails bouncing off vertically off rubber
Wuzzy <almikes@aol.com>
parents:
12641
diff
changeset
|
723 |
gear^.Elasticity:= _0_8; |
943b258d5443
Fix molotov cocktails bouncing off vertically off rubber
Wuzzy <almikes@aol.com>
parents:
12641
diff
changeset
|
724 |
gear^.Friction:= _0_8; |
9825 | 725 |
gear^.Density:= _2 |
6581 | 726 |
end; |
727 |
gtBirdy: begin |
|
728 |
gear^.Radius:= 16; // todo: check |
|
729 |
gear^.Health := 2000; |
|
14941
06af4f0a92bd
Fix Birdy being drawn behind hogs and other gears (bug 453)
Wuzzy <Wuzzy2@mail.ru>
parents:
14786
diff
changeset
|
730 |
gear^.FlightTime := 2; |
14990
65be598c64b9
Fix Birdy stopping turn after dropping 1st egg
Wuzzy <Wuzzy2@mail.ru>
parents:
14941
diff
changeset
|
731 |
gear^.Z:= cCurrHHZ; |
6581 | 732 |
end; |
733 |
gtEgg: begin |
|
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
734 |
gear^.AdvBounce:= 1; |
6581 | 735 |
gear^.Radius:= 4; |
736 |
gear^.Elasticity:= _0_6; |
|
737 |
gear^.Friction:= _0_96; |
|
738 |
gear^.Density:= _1; |
|
739 |
if gear^.Timer = 0 then |
|
740 |
gear^.Timer:= 3000 |
|
741 |
end; |
|
742 |
gtPortal: begin |
|
743 |
gear^.ImpactSound:= sndMelonImpact; |
|
744 |
gear^.nImpactSounds:= 1; |
|
745 |
gear^.Radius:= 17; |
|
746 |
// set color |
|
747 |
gear^.Tag:= 2 * gear^.Timer; |
|
748 |
gear^.Timer:= 15000; |
|
749 |
gear^.RenderTimer:= false; |
|
750 |
gear^.Health:= 100; |
|
13610
f1b6070a6e14
Fix projectiles reacing incorrectly with land just behind the wrap world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
751 |
gear^.Sticky:= true; |
6581 | 752 |
end; |
753 |
gtPiano: begin |
|
754 |
gear^.Radius:= 32; |
|
755 |
gear^.Density:= _50; |
|
756 |
end; |
|
757 |
gtSineGunShot: begin |
|
758 |
gear^.Radius:= 5; |
|
759 |
gear^.Health:= 6000; |
|
760 |
end; |
|
761 |
gtFlamethrower: begin |
|
762 |
gear^.Tag:= 10; |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
763 |
if gear^.Timer = 0 then gear^.Timer:= 10; |
6581 | 764 |
gear^.Health:= 500; |
765 |
gear^.Damage:= 100; |
|
766 |
end; |
|
767 |
gtLandGun: begin |
|
768 |
gear^.Tag:= 10; |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
769 |
if gear^.Timer = 0 then gear^.Timer:= 10; |
6581 | 770 |
gear^.Health:= 1000; |
771 |
gear^.Damage:= 100; |
|
772 |
end; |
|
773 |
gtPoisonCloud: begin |
|
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
774 |
if gear^.Timer = 0 then gear^.Timer:= 5000; |
6581 | 775 |
gear^.dY:= int2hwfloat(-4 + longint(getRandom(8))) / 1000; |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
776 |
gear^.Tint:= $C0C000C0 |
6581 | 777 |
end; |
778 |
gtResurrector: begin |
|
15117
eff1a080cf40
Move resurrector and seduction distance to uConsts
Wuzzy <Wuzzy2@mail.ru>
parents:
15059
diff
changeset
|
779 |
gear^.Radius := cResurrectorDist; |
10032
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
780 |
gear^.Tag := 0; |
db65298717da
This adds idle hog tinting. Active hog tinting still needed.
nemo
parents:
9998
diff
changeset
|
781 |
gear^.Tint:= $F5DB35FF |
6581 | 782 |
end; |
783 |
gtWaterUp: begin |
|
784 |
gear^.Tag := 47; |
|
785 |
end; |
|
786 |
gtNapalmBomb: begin |
|
9721
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
787 |
gear^.Elasticity:= _0_8; |
1833dadcebf0
Initial pass at bounciness. To try it out, or lfBouncy on girder in uLandGraphics (search for the word graphically)
nemo
parents:
9479
diff
changeset
|
788 |
gear^.Friction:= _0_8; |
9195
e653e96b0ec3
Many of the gears treat non-0 timer as overridden. Added that check in more places so that lua could use this a tiny bit more consistently. Also preserve state for jetpack.
nemo
parents:
9080
diff
changeset
|
789 |
if gear^.Timer = 0 then gear^.Timer:= 1000; |
6581 | 790 |
gear^.Radius:= 5; |
791 |
gear^.Density:= _1_5; |
|
792 |
end; |
|
8774
39754516eee6
Try to document TGear a bit, so people know what is commonly overridden, and what stuff is used for. Remove gtIceGun-specific values from TGear and abuse a couple of commonly abused members instead.
nemo
parents:
8751
diff
changeset
|
793 |
gtIceGun: begin |
39754516eee6
Try to document TGear a bit, so people know what is commonly overridden, and what stuff is used for. Remove gtIceGun-specific values from TGear and abuse a couple of commonly abused members instead.
nemo
parents:
8751
diff
changeset
|
794 |
gear^.Health:= 1000; |
39754516eee6
Try to document TGear a bit, so people know what is commonly overridden, and what stuff is used for. Remove gtIceGun-specific values from TGear and abuse a couple of commonly abused members instead.
nemo
parents:
8751
diff
changeset
|
795 |
gear^.Radius:= 8; |
13572
a71e6856ffab
Fix freeze ray not working through wrap world edge; add DrawLineWrapped
Wuzzy <Wuzzy2@mail.ru>
parents:
13470
diff
changeset
|
796 |
gear^.Density:= _0; |
14005 | 797 |
gear^.Tag:= 0; // sound state: 0 = no sound, 1 = ice beam sound, 2 = idle sound |
8774
39754516eee6
Try to document TGear a bit, so people know what is commonly overridden, and what stuff is used for. Remove gtIceGun-specific values from TGear and abuse a couple of commonly abused members instead.
nemo
parents:
8751
diff
changeset
|
798 |
end; |
13872
f01798038c2e
Rename amDuck and related symbols to amCreeper, gtCreeper, etc.
Wuzzy <Wuzzy2@mail.ru>
parents:
13871
diff
changeset
|
799 |
gtCreeper: begin |
f01798038c2e
Rename amDuck and related symbols to amCreeper, gtCreeper, etc.
Wuzzy <Wuzzy2@mail.ru>
parents:
13871
diff
changeset
|
800 |
// TODO: Finish creeper initialization implementation |
13605
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
801 |
gear^.Radius:= cHHRadius; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
802 |
gear^.Elasticity:= _0_35; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
803 |
gear^.Friction:= _0_93; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
804 |
gear^.Density:= _5; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
805 |
|
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
806 |
gear^.AdvBounce:= 1; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
807 |
gear^.ImpactSound:= sndAirMineImpact; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
808 |
gear^.nImpactSounds:= 1; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
809 |
gear^.Health:= 30; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
810 |
gear^.Radius:= 8; |
13872
f01798038c2e
Rename amDuck and related symbols to amCreeper, gtCreeper, etc.
Wuzzy <Wuzzy2@mail.ru>
parents:
13871
diff
changeset
|
811 |
gear^.Angle:= 175; // Radius at which it will start "seeking". $FFFFFFFF = unlimited. check is skipped. |
13605
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
812 |
gear^.Power:= cMaxWindSpeed.QWordValue div 2; // hwFloat converted. 1/2 g default. defines the "seek" speed when a gear is in range. |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
813 |
gear^.Pos:= cMaxWindSpeed.QWordValue * 3 div 2; // air friction. slows it down when not hitting stuff |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
814 |
if gear^.Timer = 0 then |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
815 |
gear^.Timer:= 5000; |
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13572
diff
changeset
|
816 |
gear^.WDTimer:= gear^.Timer |
12192 | 817 |
end; |
13154
44351ea57b71
Minigun: Move attack timer to Karma to make gear type more Lua-friendly
Wuzzy <Wuzzy2@mail.ru>
parents:
13096
diff
changeset
|
818 |
gtMinigun: begin |
44351ea57b71
Minigun: Move attack timer to Karma to make gear type more Lua-friendly
Wuzzy <Wuzzy2@mail.ru>
parents:
13096
diff
changeset
|
819 |
// Timer. First, it's the timer before shooting. Then it will become the shooting timer and is set to Karma |
44351ea57b71
Minigun: Move attack timer to Karma to make gear type more Lua-friendly
Wuzzy <Wuzzy2@mail.ru>
parents:
13096
diff
changeset
|
820 |
if gear^.Timer = 0 then |
44351ea57b71
Minigun: Move attack timer to Karma to make gear type more Lua-friendly
Wuzzy <Wuzzy2@mail.ru>
parents:
13096
diff
changeset
|
821 |
gear^.Timer:= 601; |
44351ea57b71
Minigun: Move attack timer to Karma to make gear type more Lua-friendly
Wuzzy <Wuzzy2@mail.ru>
parents:
13096
diff
changeset
|
822 |
// minigun shooting time. 1 bullet is fired every 50ms |
44351ea57b71
Minigun: Move attack timer to Karma to make gear type more Lua-friendly
Wuzzy <Wuzzy2@mail.ru>
parents:
13096
diff
changeset
|
823 |
gear^.Karma:= 3451; |
12898 | 824 |
end; |
825 |
gtMinigunBullet: begin |
|
826 |
gear^.Radius:= 1; |
|
827 |
gear^.Health:= 2; |
|
828 |
end; |
|
7389
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
829 |
gtGenericFaller:begin |
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
830 |
gear^.AdvBounce:= 1; |
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
831 |
gear^.Radius:= 1; |
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
832 |
gear^.Elasticity:= _0_9; |
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
833 |
gear^.Friction:= _0_995; |
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
834 |
gear^.Density:= _1; |
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
835 |
end; |
6581 | 836 |
end; |
837 |
||
838 |
InsertGearToList(gear); |
|
839 |
AddGear:= gear; |
|
840 |
||
841 |
ScriptCall('onGearAdd', gear^.uid); |
|
842 |
end; |
|
843 |
||
10646
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
844 |
procedure DeleteGear(Gear: PGear); |
6581 | 845 |
var team: PTeam; |
846 |
t,i: Longword; |
|
10874
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
847 |
cakeData: PCakeData; |
11043
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
848 |
iterator: PGear; |
6581 | 849 |
begin |
850 |
||
851 |
ScriptCall('onGearDelete', gear^.uid); |
|
852 |
||
853 |
DeleteCI(Gear); |
|
14027
105793e575d6
make firepunch hit moving gears (airmines are not amused)
alfadur
parents:
14009
diff
changeset
|
854 |
RemoveFromProximityCache(Gear); |
6581 | 855 |
|
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10625
diff
changeset
|
856 |
FreeAndNilTexture(Gear^.Tex); |
6581 | 857 |
|
11043
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
858 |
// remove potential links to this gear |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
859 |
// currently relevant to: gears linked by hammer |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
860 |
if (Gear^.Kind = gtHedgehog) or (Gear^.Kind = gtMine) or (Gear^.Kind = gtExplosives) then |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
861 |
begin |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
862 |
// check all gears for stuff to port through |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
863 |
iterator := nil; |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
864 |
while true do |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
865 |
begin |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
866 |
|
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
867 |
// iterate through GearsList |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
868 |
if iterator = nil then |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
869 |
iterator := GearsList |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
870 |
else |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
871 |
iterator := iterator^.NextGear; |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
872 |
|
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
873 |
// end of list? |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
874 |
if iterator = nil then |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
875 |
break; |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
876 |
|
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
877 |
if iterator^.LinkedGear = Gear then |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
878 |
iterator^.LinkedGear:= nil; |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
879 |
end; |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
880 |
|
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
881 |
end; |
79a77bef4c61
Hammer had been accessing dangling pointers under particular circumstances (e.g. when hitting a mine/barrel right when it exploded)
sheepluva
parents:
11036
diff
changeset
|
882 |
|
6581 | 883 |
// make sure that portals have their link removed before deletion |
884 |
if (Gear^.Kind = gtPortal) then |
|
885 |
begin |
|
7272
71df899c4163
Second part of the change. Make collision check use the new mask bit.
nemo
parents:
7176
diff
changeset
|
886 |
if (Gear^.LinkedGear <> nil) then |
71df899c4163
Second part of the change. Make collision check use the new mask bit.
nemo
parents:
7176
diff
changeset
|
887 |
if (Gear^.LinkedGear^.LinkedGear = Gear) then |
71df899c4163
Second part of the change. Make collision check use the new mask bit.
nemo
parents:
7176
diff
changeset
|
888 |
Gear^.LinkedGear^.LinkedGear:= nil; |
6581 | 889 |
end |
10874
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
890 |
else if Gear^.Kind = gtCake then |
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
891 |
begin |
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
892 |
cakeData:= PCakeData(Gear^.Data); |
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
893 |
Dispose(cakeData); |
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
894 |
cakeData:= nil; |
059a6492176e
allow gear specific data (with gear type specific type). applied to cake
sheepluva
parents:
10848
diff
changeset
|
895 |
end |
6581 | 896 |
else if Gear^.Kind = gtHedgehog then |
897 |
(* |
|
898 |
This behaviour dates back to revision 4, and I accidentally encountered it with TARDIS. I don't think it must apply to any modern weapon, since if it was actually hit, the best the gear could do would be to destroy itself immediately, and you'd still end up with two graves. I believe it should be removed |
|
899 |
if (CurAmmoGear <> nil) and (CurrentHedgehog^.Gear = Gear) then |
|
900 |
begin |
|
901 |
AttackBar:= 0; |
|
902 |
Gear^.Message:= gmDestroy; |
|
903 |
CurAmmoGear^.Message:= gmDestroy; |
|
904 |
exit |
|
905 |
end |
|
906 |
else*) |
|
907 |
begin |
|
10646
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
908 |
if ((CurrentHedgehog = nil) or (Gear <> CurrentHedgehog^.Gear)) or (CurAmmoGear = nil) or (CurAmmoGear^.Kind <> gtKamikaze) then |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
909 |
Gear^.Hedgehog^.Team^.Clan^.Flawless:= false; |
10663
9bbb29d2bd68
remove a not that somehow magically appeared in a prior commit.
nemo
parents:
10646
diff
changeset
|
910 |
if CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y)) then |
6581 | 911 |
begin |
10646
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
912 |
t:= max(Gear^.Damage, Gear^.Health); |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
913 |
Gear^.Damage:= t; |
13739
bbea77a8dff9
Fix damage not being displayed if hog drowns in water with 100% opacity (like in Compost theme)
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
914 |
// Display hedgehog damage in water |
bbea77a8dff9
Fix damage not being displayed if hog drowns in water with 100% opacity (like in Compost theme)
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
915 |
spawnHealthTagForHH(Gear, t); |
6581 | 916 |
end; |
917 |
||
10646
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
918 |
team:= Gear^.Hedgehog^.Team; |
10636
aba9ae27ead0
meh. will persevere. DeleteGear can't call that much stuff...
nemo
parents:
10634
diff
changeset
|
919 |
if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear = Gear) then |
6581 | 920 |
begin |
921 |
AttackBar:= 0; |
|
922 |
FreeActionsList; // to avoid ThinkThread on drawned gear |
|
923 |
if ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) |
|
924 |
and (CurrentHedgehog^.MultiShootAttacks > 0) then |
|
925 |
OnUsedAmmo(CurrentHedgehog^); |
|
926 |
end; |
|
927 |
||
928 |
Gear^.Hedgehog^.Gear:= nil; |
|
10646
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
929 |
|
6581 | 930 |
if Gear^.Hedgehog^.King then |
15231
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
931 |
// If king died, kill the rest of the team |
6581 | 932 |
begin |
15231
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
933 |
with Gear^.Hedgehog^.Team^ do |
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
934 |
begin |
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
935 |
Gear^.Hedgehog^.Team^.hasKing:= false; |
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
936 |
for t:= 0 to cMaxHHIndex do |
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
937 |
if Hedgehogs[t].Gear <> nil then |
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
938 |
Hedgehogs[t].Gear^.Health:= 0 |
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
939 |
else if (Hedgehogs[t].GearHidden <> nil) then |
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
940 |
Hedgehogs[t].GearHidden^.Health:= 0 // Hog is still hidden. If tardis should return though, Lua, eh ... |
f783f5d55717
King Mode: Fix whole clan being killed when king died
Wuzzy <Wuzzy2@mail.ru>
parents:
15167
diff
changeset
|
941 |
end; |
6581 | 942 |
end; |
10646
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
943 |
|
14637
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
944 |
// Update passive status of clan |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
945 |
if (not Gear^.Hedgehog^.Team^.Clan^.Passive) then |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
946 |
begin |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
947 |
Gear^.Hedgehog^.Team^.Clan^.Passive:= true; |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
948 |
for i:= 0 to Pred(team^.Clan^.TeamsNumber) do |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
949 |
begin |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
950 |
with team^.Clan^.Teams[i]^ do |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
951 |
if (not Passive) then |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
952 |
for t:= 0 to cMaxHHIndex do |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
953 |
if (Hedgehogs[t].Gear <> nil) or (Hedgehogs[t].GearHidden <> nil) then |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
954 |
begin |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
955 |
Gear^.Hedgehog^.Team^.Clan^.Passive:= false; |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
956 |
break; |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
957 |
end; |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
958 |
if (not Gear^.Hedgehog^.Team^.Clan^.Passive) then |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
959 |
break; |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
960 |
end; |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
961 |
end; |
4638aa2ea8f2
Update clan passive status when team died / got resurrected
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
962 |
|
10646
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
963 |
// should be not CurrentHedgehog, but hedgehog of the last gear which caused damage to this hog |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
964 |
// same stand for CheckHHDamage |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
965 |
if (Gear^.LastDamage <> nil) and (CurrentHedgehog <> nil) then |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
966 |
uStats.HedgehogDamaged(Gear, Gear^.LastDamage, 0, true) |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
967 |
else if CurrentHedgehog <> nil then |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
968 |
uStats.HedgehogDamaged(Gear, CurrentHedgehog, 0, true); |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
969 |
|
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
970 |
inc(KilledHHs); |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
971 |
RecountTeamHealth(team); |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
972 |
if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Effects[heResurrectable] <> 0) and |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
973 |
//(Gear^.Hedgehog^.Effects[heResurrectable] = 0) then |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
974 |
(Gear^.Hedgehog^.Team^.Clan <> CurrentHedgehog^.Team^.Clan) then |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
975 |
with CurrentHedgehog^ do |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
976 |
begin |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
977 |
inc(Team^.stats.AIKills); |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
978 |
FreeAndNilTexture(Team^.AIKillsTex); |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
979 |
Team^.AIKillsTex := RenderStringTex(ansistring(inttostr(Team^.stats.AIKills)), Team^.Clan^.Color, fnt16); |
0be6442946b1
put back the old uteams cleanup, leaks and all, to worry about post-release since my attempt to use DeleteGear was running into the fact that that procedure does way more than just delete a gear. might need an explicit cleanup routine for both to call.
nemo
parents:
10645
diff
changeset
|
980 |
end |
6581 | 981 |
end; |
982 |
with Gear^ do |
|
7389
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
983 |
begin |
6581 | 984 |
AddFileLog('Delete: #' + inttostr(uid) + ' (' + inttostr(hwRound(x)) + ',' + inttostr(hwRound(y)) + '), d(' + floattostr(dX) + ',' + floattostr(dY) + ') type = ' + EnumToStr(Kind)); |
7389
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
985 |
AddRandomness(X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac) |
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7366
diff
changeset
|
986 |
end; |
6581 | 987 |
if CurAmmoGear = Gear then |
988 |
CurAmmoGear:= nil; |
|
989 |
if FollowGear = Gear then |
|
990 |
FollowGear:= nil; |
|
991 |
if lastGearByUID = Gear then |
|
992 |
lastGearByUID := nil; |
|
10638 | 993 |
if (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.GearHidden <> Gear) then // hidden hedgehogs shouldn't be in the list |
10639 | 994 |
RemoveGearFromList(Gear) |
995 |
else Gear^.Hedgehog^.GearHidden:= nil; |
|
10638 | 996 |
|
6581 | 997 |
Dispose(Gear) |
998 |
end; |
|
999 |
||
1000 |
end. |