author | Wuzzy <Wuzzy2@mail.ru> |
Wed, 14 Mar 2018 23:02:39 +0100 | |
changeset 13216 | 667f28278aa4 |
parent 13166 | aa7915ceb69f |
child 13219 | 9c81e34f1933 |
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:
10105
diff
changeset
|
16 |
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
6581 | 17 |
*) |
18 |
||
19 |
{$INCLUDE "options.inc"} |
|
20 |
||
21 |
unit uGearsHedgehog; |
|
22 |
interface |
|
10015 | 23 |
uses uTypes, uGearsHandlersMess; |
6581 | 24 |
|
25 |
procedure doStepHedgehog(Gear: PGear); |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
26 |
procedure AfterAttack; |
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
27 |
procedure HedgehogStep(Gear: PGear); |
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
28 |
procedure doStepHedgehogMoving(Gear: PGear); |
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
29 |
procedure HedgehogChAngle(HHGear: PGear); |
6581 | 30 |
procedure PickUp(HH, Gear: PGear); |
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:
7375
diff
changeset
|
31 |
procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord); |
8574 | 32 |
procedure CheckIce(Gear: PGear); inline; |
12820
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
33 |
procedure PlayTaunt(taunt: Longword); |
6581 | 34 |
|
35 |
implementation |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
36 |
uses uConsts, uVariables, uFloat, uAmmos, uSound, uCaptions, |
9285 | 37 |
uCommands, uLocale, uUtils, uStats, uIO, uScript, |
38 |
uGearsList, uCollisions, uRandom, uStore, uTeams, |
|
9670
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
39 |
uGearsUtils, uVisualGearsList, uChat; |
6581 | 40 |
|
7028 | 41 |
var GHStepTicks: LongWord = 0; |
42 |
||
9670
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
43 |
procedure AFKSkip; |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
44 |
var |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
45 |
t: byte; |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
46 |
begin |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
47 |
t:= 0; |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
48 |
while (TeamsArray[t] <> CurrentTeam) do inc(t); |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
49 |
|
13161
26f0c3669b4e
Make a few more engine strings translatable
Wuzzy <Wuzzy2@mail.ru>
parents:
13101
diff
changeset
|
50 |
AddChatString(#2 + FormatA(trmsg[sidAutoSkip], CurrentTeam^.TeamName)); |
9670
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
51 |
|
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
52 |
ParseCommand('/skip', true) |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
53 |
end; |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
54 |
|
6581 | 55 |
// Shouldn't more of this ammo switching stuff be moved to uAmmos ? |
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
56 |
function ChangeAmmo(HHGear: PGear): boolean; |
6581 | 57 |
var slot, i: Longword; |
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
58 |
ammoidx: LongInt; |
7754 | 59 |
prevAmmo: TAmmoType; |
6581 | 60 |
begin |
61 |
ChangeAmmo:= false; |
|
62 |
slot:= HHGear^.MsgParam; |
|
63 |
||
64 |
with HHGear^.Hedgehog^ do |
|
65 |
begin |
|
66 |
HHGear^.Message:= HHGear^.Message and (not gmSlot); |
|
7754 | 67 |
prevAmmo:= CurAmmoType; |
6581 | 68 |
ammoidx:= 0; |
9732
a13afa6c5d21
don't abort changeammo on attacking/attacked in infattack mode, keep scrolling through slot after setweap even if a multishoot was aborted triggering gstattacked, to ensure proper ammo gets set for next turn
nemo
parents:
9731
diff
changeset
|
69 |
if (((HHGear^.State and (gstAttacking or gstAttacked)) <> 0) and (GameFlags and gfInfAttack = 0)) |
6581 | 70 |
or ((HHGear^.State and gstHHDriven) = 0) then |
71 |
exit; |
|
72 |
ChangeAmmo:= true; |
|
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
73 |
|
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
74 |
while (ammoidx < cMaxSlotAmmoIndex) and (Ammo^[slot, ammoidx].AmmoType <> CurAmmoType) do |
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
75 |
inc(ammoidx); |
6581 | 76 |
|
8553
a8e1cff496d8
Allow switching away from any weapon when during multishoot.
nemo
parents:
8494
diff
changeset
|
77 |
if (MultiShootAttacks > 0) then |
a8e1cff496d8
Allow switching away from any weapon when during multishoot.
nemo
parents:
8494
diff
changeset
|
78 |
begin |
13101
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
79 |
if (Effects[heArtillery] = 2) then |
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
80 |
Effects[heArtillery]:= 0; |
8631
796ed875aa95
Call act as if attack ended on last shot if switching while in mid multi-shoot. Thanks to AI for discovering this.
nemo
parents:
8616
diff
changeset
|
81 |
if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NoRoundEnd) = 0 then |
796ed875aa95
Call act as if attack ended on last shot if switching while in mid multi-shoot. Thanks to AI for discovering this.
nemo
parents:
8616
diff
changeset
|
82 |
begin |
796ed875aa95
Call act as if attack ended on last shot if switching while in mid multi-shoot. Thanks to AI for discovering this.
nemo
parents:
8616
diff
changeset
|
83 |
MultiShootAttacks:= Ammoz[CurAmmoType].Ammo.NumPerTurn; |
796ed875aa95
Call act as if attack ended on last shot if switching while in mid multi-shoot. Thanks to AI for discovering this.
nemo
parents:
8616
diff
changeset
|
84 |
AfterAttack |
796ed875aa95
Call act as if attack ended on last shot if switching while in mid multi-shoot. Thanks to AI for discovering this.
nemo
parents:
8616
diff
changeset
|
85 |
end |
796ed875aa95
Call act as if attack ended on last shot if switching while in mid multi-shoot. Thanks to AI for discovering this.
nemo
parents:
8616
diff
changeset
|
86 |
else OnUsedAmmo(HHGear^.Hedgehog^) |
8553
a8e1cff496d8
Allow switching away from any weapon when during multishoot.
nemo
parents:
8494
diff
changeset
|
87 |
end; |
6581 | 88 |
|
89 |
MultiShootAttacks:= 0; |
|
90 |
HHGear^.Message:= HHGear^.Message and (not (gmLJump or gmHJump)); |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
91 |
|
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
92 |
if Ammoz[CurAmmoType].Slot = slot then |
6581 | 93 |
begin |
94 |
i:= 0; |
|
95 |
repeat |
|
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
96 |
inc(ammoidx); |
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
97 |
if (ammoidx > cMaxSlotAmmoIndex) then |
6581 | 98 |
begin |
99 |
inc(i); |
|
100 |
CurAmmoType:= amNothing; |
|
101 |
ammoidx:= -1; |
|
102 |
//TryDo(i < 2, 'Engine bug: no ammo in current slot', true) |
|
103 |
end; |
|
104 |
until (i = 1) or ((Ammo^[slot, ammoidx].Count > 0) |
|
105 |
and (Team^.Clan^.TurnNumber > Ammoz[Ammo^[slot, ammoidx].AmmoType].SkipTurns)) |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
106 |
|
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
107 |
end |
6581 | 108 |
else |
109 |
begin |
|
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
110 |
i:= 0; |
6581 | 111 |
// check whether there is ammo in slot |
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
112 |
while (i <= cMaxSlotAmmoIndex) and ((Ammo^[slot, i].Count = 0) |
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
113 |
or (Team^.Clan^.TurnNumber <= Ammoz[Ammo^[slot, i].AmmoType].SkipTurns)) |
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
114 |
do inc(i); |
6581 | 115 |
|
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
116 |
if i <= cMaxSlotAmmoIndex then |
6581 | 117 |
ammoidx:= i |
118 |
else ammoidx:= -1 |
|
119 |
end; |
|
120 |
if ammoidx >= 0 then |
|
121 |
CurAmmoType:= Ammo^[slot, ammoidx].AmmoType; |
|
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
122 |
// Try again in the next slot |
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
123 |
if (CurAmmoType = prevAmmo) and (slot < cMaxSlotIndex) then |
8051
f26422ef0333
oft-requested, should make the shoppa guys happy, probably, but, knowing them, I'm sure someone will complain
nemo
parents:
8030
diff
changeset
|
124 |
begin |
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
125 |
inc(slot); |
8051
f26422ef0333
oft-requested, should make the shoppa guys happy, probably, but, knowing them, I'm sure someone will complain
nemo
parents:
8030
diff
changeset
|
126 |
HHGear^.MsgParam:= slot; |
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
127 |
ChangeAmmo(HHGear) |
7754 | 128 |
end |
6581 | 129 |
end |
130 |
end; |
|
131 |
||
132 |
procedure HHSetWeapon(HHGear: PGear); |
|
133 |
var t: LongInt; |
|
134 |
weap: TAmmoType; |
|
135 |
Hedgehog: PHedgehog; |
|
136 |
s: boolean; |
|
9732
a13afa6c5d21
don't abort changeammo on attacking/attacked in infattack mode, keep scrolling through slot after setweap even if a multishoot was aborted triggering gstattacked, to ensure proper ammo gets set for next turn
nemo
parents:
9731
diff
changeset
|
137 |
prevState, newState: LongWord; |
6581 | 138 |
begin |
139 |
s:= false; |
|
140 |
||
141 |
weap:= TAmmoType(HHGear^.MsgParam); |
|
142 |
Hedgehog:= HHGear^.Hedgehog; |
|
143 |
||
12917
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
144 |
HHGear^.Message:= HHGear^.Message and (not gmWeapon); |
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
145 |
|
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
146 |
// Special case: amNothing unselects weapon |
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
147 |
if weap = amNothing then |
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
148 |
begin |
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
149 |
HHGear^.Hedgehog^.CurAmmoType:= amNothing; |
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
150 |
ApplyAmmoChanges(HHGear^.Hedgehog^); |
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
151 |
exit |
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
152 |
end; |
a840fd55caa6
Calling SetWeapon with amNothing now unselects weapon
Wuzzy <Wuzzy2@mail.ru>
parents:
12903
diff
changeset
|
153 |
|
6581 | 154 |
if Hedgehog^.Team^.Clan^.TurnNumber <= Ammoz[weap].SkipTurns then |
155 |
exit; // weapon is not activated yet |
|
156 |
||
157 |
HHGear^.MsgParam:= Ammoz[weap].Slot; |
|
158 |
||
159 |
t:= cMaxSlotAmmoIndex; |
|
160 |
||
9732
a13afa6c5d21
don't abort changeammo on attacking/attacked in infattack mode, keep scrolling through slot after setweap even if a multishoot was aborted triggering gstattacked, to ensure proper ammo gets set for next turn
nemo
parents:
9731
diff
changeset
|
161 |
prevState:= HHGear^.State; |
a13afa6c5d21
don't abort changeammo on attacking/attacked in infattack mode, keep scrolling through slot after setweap even if a multishoot was aborted triggering gstattacked, to ensure proper ammo gets set for next turn
nemo
parents:
9731
diff
changeset
|
162 |
newState:= prevState; |
6581 | 163 |
with Hedgehog^ do |
164 |
while (CurAmmoType <> weap) and (t >= 0) do |
|
165 |
begin |
|
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
166 |
s:= ChangeAmmo(HHGear); |
9732
a13afa6c5d21
don't abort changeammo on attacking/attacked in infattack mode, keep scrolling through slot after setweap even if a multishoot was aborted triggering gstattacked, to ensure proper ammo gets set for next turn
nemo
parents:
9731
diff
changeset
|
167 |
if HHGear^.State <> prevState then // so we can keep gstAttacked out of consideration when looping |
a13afa6c5d21
don't abort changeammo on attacking/attacked in infattack mode, keep scrolling through slot after setweap even if a multishoot was aborted triggering gstattacked, to ensure proper ammo gets set for next turn
nemo
parents:
9731
diff
changeset
|
168 |
newState:= HHGear^.State; |
a13afa6c5d21
don't abort changeammo on attacking/attacked in infattack mode, keep scrolling through slot after setweap even if a multishoot was aborted triggering gstattacked, to ensure proper ammo gets set for next turn
nemo
parents:
9731
diff
changeset
|
169 |
HHGear^.State:= prevState; |
6581 | 170 |
dec(t) |
171 |
end; |
|
9732
a13afa6c5d21
don't abort changeammo on attacking/attacked in infattack mode, keep scrolling through slot after setweap even if a multishoot was aborted triggering gstattacked, to ensure proper ammo gets set for next turn
nemo
parents:
9731
diff
changeset
|
172 |
HHGear^.State:= newState; |
6581 | 173 |
|
174 |
if s then |
|
175 |
ApplyAmmoChanges(HHGear^.Hedgehog^) |
|
176 |
end; |
|
177 |
||
178 |
procedure HHSetTimer(Gear: PGear); |
|
179 |
var CurWeapon: PAmmo; |
|
180 |
color: LongWord; |
|
181 |
begin |
|
182 |
Gear^.Message:= Gear^.Message and (not gmTimer); |
|
6924 | 183 |
CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^); |
6581 | 184 |
with Gear^.Hedgehog^ do |
185 |
if ((Gear^.Message and gmPrecise) <> 0) and ((CurWeapon^.Propz and ammoprop_SetBounce) <> 0) then |
|
186 |
begin |
|
187 |
color:= Gear^.Hedgehog^.Team^.Clan^.Color; |
|
188 |
case Gear^.MsgParam of |
|
189 |
1: begin |
|
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
190 |
AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce1]), color, capgrpAmmostate); |
6581 | 191 |
CurWeapon^.Bounciness:= 350; |
192 |
end; |
|
193 |
2: begin |
|
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
194 |
AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce2]), color, capgrpAmmostate); |
6581 | 195 |
CurWeapon^.Bounciness:= 700; |
196 |
end; |
|
197 |
3: begin |
|
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
198 |
AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce3]), color, capgrpAmmostate); |
6581 | 199 |
CurWeapon^.Bounciness:= 1000; |
200 |
end; |
|
201 |
4: begin |
|
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
202 |
AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce4]), color, capgrpAmmostate); |
6581 | 203 |
CurWeapon^.Bounciness:= 2000; |
204 |
end; |
|
205 |
5: begin |
|
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
206 |
AddCaption(FormatA(trmsg[sidBounce], trmsg[sidBounce5]), color, capgrpAmmostate); |
6581 | 207 |
CurWeapon^.Bounciness:= 4000; |
208 |
end |
|
209 |
end |
|
210 |
end |
|
211 |
else if (CurWeapon^.Propz and ammoprop_Timerable) <> 0 then |
|
212 |
begin |
|
213 |
CurWeapon^.Timer:= 1000 * Gear^.MsgParam; |
|
214 |
with CurrentTeam^ do |
|
215 |
ApplyAmmoChanges(Hedgehogs[CurrHedgehog]); |
|
216 |
end; |
|
217 |
end; |
|
218 |
||
219 |
||
220 |
procedure Attack(Gear: PGear); |
|
221 |
var xx, yy, newDx, newDy, lx, ly: hwFloat; |
|
222 |
speech: PVisualGear; |
|
223 |
newGear: PGear; |
|
224 |
CurWeapon: PAmmo; |
|
10970
7341e0c3f966
LuaAPI: fix OnHogAttack the incorrect AmmoType (amNothing) under certain conditions. Thanks for CheezeMonkey for reporting this
sheepluva
parents:
10942
diff
changeset
|
225 |
usedAmmoType: TAmmoType; |
6581 | 226 |
altUse: boolean; |
227 |
elastic: hwFloat; |
|
228 |
begin |
|
229 |
newGear:= nil; |
|
230 |
bShowFinger:= false; |
|
6924 | 231 |
CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^); |
6581 | 232 |
with Gear^, |
233 |
Gear^.Hedgehog^ do |
|
234 |
begin |
|
10970
7341e0c3f966
LuaAPI: fix OnHogAttack the incorrect AmmoType (amNothing) under certain conditions. Thanks for CheezeMonkey for reporting this
sheepluva
parents:
10942
diff
changeset
|
235 |
usedAmmoType:= CurAmmoType; |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
236 |
if ((State and gstHHDriven) <> 0) and ((State and (gstAttacked or gstChooseTarget)) = 0) and (((State and gstMoving) = 0) |
6581 | 237 |
or (Power > 0) |
238 |
or (CurAmmoType = amTeleport) |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
239 |
or |
6581 | 240 |
// Allow attacks while moving on ammo with AltAttack |
241 |
((CurAmmoGear <> nil) and ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0)) |
|
242 |
or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AttackInMove) <> 0)) |
|
243 |
and ((TargetPoint.X <> NoPointX) or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget) = 0)) then |
|
244 |
begin |
|
245 |
State:= State or gstAttacking; |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
246 |
if (Power = cMaxPower) or ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) = 0) then |
6581 | 247 |
Message:= Message and (not gmAttack) |
248 |
else |
|
249 |
begin |
|
250 |
if Power = 0 then |
|
251 |
begin |
|
252 |
AttackBar:= CurrentTeam^.AttackBar; |
|
253 |
PlaySound(sndThrowPowerUp) |
|
254 |
end; |
|
255 |
inc(Power) |
|
256 |
end; |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
257 |
if ((Message and gmAttack) <> 0) then |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
258 |
exit; |
6581 | 259 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
260 |
if (Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0 then |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
261 |
begin |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
262 |
StopSound(sndThrowPowerUp); |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
263 |
PlaySound(sndThrowRelease); |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
264 |
end; |
6581 | 265 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
266 |
xx:= SignAs(AngleSin(Angle), dX); |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
267 |
yy:= -AngleCos(Angle); |
6581 | 268 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
269 |
lx:= X + int2hwfloat(round(GetLaunchX(CurAmmoType, hwSign(dX), Angle))); |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
270 |
ly:= Y + int2hwfloat(round(GetLaunchY(CurAmmoType, Angle))); |
6581 | 271 |
|
13101
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
272 |
if ((Gear^.State and gstHHHJump) <> 0) and (Effects[heArtillery] = 0) then |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
273 |
xx:= - xx; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
274 |
if Ammoz[CurAmmoType].Ammo.AttackVoice <> sndNone then |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
275 |
AddVoice(Ammoz[CurAmmoType].Ammo.AttackVoice, CurrentTeam^.voicepack); |
6581 | 276 |
|
277 |
// Initiating alt attack |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
278 |
if (CurAmmoGear <> nil) |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
279 |
and ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0) |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
280 |
and ((Gear^.Message and gmLJump) <> 0) |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
281 |
and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
282 |
begin |
8987
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
283 |
if (CurAmmoGear^.AmmoType = amJetpack) and (Gear^.Message and gmPrecise <> 0) then |
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
284 |
begin |
8992
5b0be812dcdb
Rename submersible state, increase getaway time for attack underwater, slow down gear dx/dy underwater to simulate water resistance
nemo
parents:
8987
diff
changeset
|
285 |
newDx:= xx*cMaxPower/cPowerDivisor; |
5b0be812dcdb
Rename submersible state, increase getaway time for attack underwater, slow down gear dx/dy underwater to simulate water resistance
nemo
parents:
8987
diff
changeset
|
286 |
newDy:= yy*cMaxPower/cPowerDivisor |
8987
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
287 |
end |
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
288 |
else |
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
289 |
begin |
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
290 |
newDx:= dX; |
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
291 |
newDy:= dY |
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
292 |
end; |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
293 |
altUse:= true |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
294 |
end |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
295 |
else |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
296 |
begin |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
297 |
newDx:= xx*Power/cPowerDivisor; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
298 |
newDy:= yy*Power/cPowerDivisor; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
299 |
altUse:= false |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
300 |
end; |
6581 | 301 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
302 |
case CurAmmoType of |
6581 | 303 |
amGrenade: newGear:= AddGear(hwRound(lx), hwRound(ly), gtGrenade, 0, newDx, newDy, CurWeapon^.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:
10714
diff
changeset
|
304 |
amAirMine: newGear:= AddGear(hwRound(lx), hwRound(ly), gtAirMine, 0, newDx, newDy, 0); |
6581 | 305 |
amMolotov: newGear:= AddGear(hwRound(lx), hwRound(ly), gtMolotov, 0, newDx, newDy, 0); |
306 |
amClusterBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtClusterBomb, 0, newDx, newDy, CurWeapon^.Timer); |
|
307 |
amGasBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtGasBomb, 0, newDx, newDy, CurWeapon^.Timer); |
|
308 |
amBazooka: newGear:= AddGear(hwRound(lx), hwRound(ly), gtShell, 0, newDx, newDy, 0); |
|
309 |
amSnowball: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSnowball, 0, newDx, newDy, 0); |
|
310 |
amBee: newGear:= AddGear(hwRound(lx), hwRound(ly), gtBee, 0, newDx, newDy, 0); |
|
311 |
amShotgun: begin |
|
312 |
PlaySound(sndShotgunReload); |
|
313 |
newGear:= AddGear(hwRound(lx), hwRound(ly), gtShotgunShot, 0, xx * _0_5, yy * _0_5, 0); |
|
314 |
end; |
|
315 |
amPickHammer: newGear:= AddGear(hwRound(lx), hwRound(ly) + cHHRadius, gtPickHammer, 0, _0, _0, 0); |
|
316 |
amSkip: ParseCommand('/skip', true); |
|
317 |
amRope: newGear:= AddGear(hwRound(lx), hwRound(ly), gtRope, 0, xx, yy, 0); |
|
10942
5d7dd938dedc
This probably fixes bug #839 - mine time was hardcoded to 3000 in Attack, instead of using the "0 as undefined" input that other places were using. When re653e96b0ec3 started paying attention to the input parameter, this previously ignored value became a problem.
nemo
parents:
10895
diff
changeset
|
318 |
amMine: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtMine, gstWait, SignAs(_0_02, dX), _0, 0); |
6581 | 319 |
amSMine: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSMine, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0); |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
320 |
amKnife: begin |
7754 | 321 |
newGear:= AddGear(hwRound(lx), hwRound(ly), gtKnife, 0, xx*Power/cPowerDivisor, yy*Power/cPowerDivisor, 0); |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
322 |
newGear^.State:= newGear^.State or gstMoving; |
8494
53b91a602955
Cleaver tweaks based on feedback. Nerf damage, shrink radius. This means cleaver will embed into ground quite a bit further.
nemo
parents:
8493
diff
changeset
|
323 |
newGear^.Radius:= 4 // temporarily shrink so it doesn't instantly embed in the ground |
7754 | 324 |
end; |
6581 | 325 |
amDEagle: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtDEagleShot, 0, xx * _0_5, yy * _0_5, 0); |
13166 | 326 |
amMinigun: begin |
327 |
PlaySound(sndMinigun); |
|
328 |
newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtMinigun, 0, xx * _0_5, yy * _0_5, 0); |
|
329 |
end; |
|
6581 | 330 |
amSineGun: newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSineGunShot, 0, xx * _0_5, yy * _0_5, 0); |
331 |
amPortalGun: begin |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
332 |
newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6, |
6581 | 333 |
// set selected color |
334 |
CurWeapon^.Pos); |
|
335 |
end; |
|
336 |
amSniperRifle: begin |
|
337 |
PlaySound(sndSniperReload); |
|
338 |
newGear:= AddGear(hwRound(lx + xx * cHHRadius), hwRound(ly + yy * cHHRadius), gtSniperRifleShot, 0, xx * _0_5, yy * _0_5, 0); |
|
339 |
end; |
|
340 |
amDynamite: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtDynamite, 0, SignAs(_0_03, dX), _0, 5000); |
|
12198
71c47122fbc0
Add ammotype amDuck for rubber duck
Wuzzy <almikes@aol.com>
parents:
12189
diff
changeset
|
341 |
amDuck: begin |
12209
0a7d7256d3d8
Don't play duck drop sound when duck spawns in water
Wuzzy <almikes@aol.com>
parents:
12199
diff
changeset
|
342 |
// Does duck spawn inside water? |
0a7d7256d3d8
Don't play duck drop sound when duck spawns in water
Wuzzy <almikes@aol.com>
parents:
12199
diff
changeset
|
343 |
if (LeftX > hwRound(Gear^.X) - Gear^.Karma) or (RightX < hwRound(Gear^.X) + Gear^.Karma) or (cWaterLine < hwRound(Gear^.Y) + Gear^.Karma) then |
0a7d7256d3d8
Don't play duck drop sound when duck spawns in water
Wuzzy <almikes@aol.com>
parents:
12199
diff
changeset
|
344 |
PlaySound(sndDroplet2) |
0a7d7256d3d8
Don't play duck drop sound when duck spawns in water
Wuzzy <almikes@aol.com>
parents:
12199
diff
changeset
|
345 |
else |
0a7d7256d3d8
Don't play duck drop sound when duck spawns in water
Wuzzy <almikes@aol.com>
parents:
12199
diff
changeset
|
346 |
// Duck spawned in air, normal drop sound |
0a7d7256d3d8
Don't play duck drop sound when duck spawns in water
Wuzzy <almikes@aol.com>
parents:
12199
diff
changeset
|
347 |
PlaySound(sndDuckDrop); |
12323 | 348 |
newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtDuck, 0, SignAs(_0_03, dX), _0, 0); |
12198
71c47122fbc0
Add ammotype amDuck for rubber duck
Wuzzy <almikes@aol.com>
parents:
12189
diff
changeset
|
349 |
if not ((not dX.isNegative) xor ((State and gstHHHJump) <> 0)) then |
71c47122fbc0
Add ammotype amDuck for rubber duck
Wuzzy <almikes@aol.com>
parents:
12189
diff
changeset
|
350 |
newGear^.Tag:= -1 |
71c47122fbc0
Add ammotype amDuck for rubber duck
Wuzzy <almikes@aol.com>
parents:
12189
diff
changeset
|
351 |
else |
71c47122fbc0
Add ammotype amDuck for rubber duck
Wuzzy <almikes@aol.com>
parents:
12189
diff
changeset
|
352 |
newGear^.Tag:= 1; |
71c47122fbc0
Add ammotype amDuck for rubber duck
Wuzzy <almikes@aol.com>
parents:
12189
diff
changeset
|
353 |
end; |
6581 | 354 |
amFirePunch: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtFirePunch, 0, xx, _0, 0); |
355 |
amWhip: begin |
|
356 |
newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtWhip, 0, SignAs(_1, dX), - _0_8, 0); |
|
357 |
PlaySound(sndWhipCrack) |
|
358 |
end; |
|
359 |
amHammer: begin |
|
360 |
newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtHammer, 0, SignAs(_1, dX), - _0_8, 0); |
|
361 |
PlaySound(sndWhack) |
|
362 |
end; |
|
363 |
amBaseballBat: begin |
|
364 |
newGear:= AddGear(hwRound(lx) + hwSign(dX) * 10, hwRound(ly), gtShover, gsttmpFlag, xx * _0_5, yy * _0_5, 0); |
|
365 |
PlaySound(sndBaseballBat) // TODO: Only play if something is hit? |
|
366 |
end; |
|
367 |
amParachute: begin |
|
368 |
newGear:= AddGear(hwRound(lx), hwRound(ly), gtParachute, 0, _0, _0, 0); |
|
369 |
PlaySound(sndParachute) |
|
370 |
end; |
|
371 |
// we save CurWeapon^.Pos (in this case: cursor direction) by using it as (otherwise irrelevant) X value of the new gear. |
|
372 |
amAirAttack: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 0, _0, _0, 0); |
|
373 |
amMineStrike: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 1, _0, _0, 0); |
|
374 |
amDrillStrike: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 3, _0, _0, CurWeapon^.Timer); |
|
375 |
amNapalm: newGear:= AddGear(CurWeapon^.Pos, 0, gtAirAttack, 2, _0, _0, 0); |
|
376 |
amBlowTorch: newGear:= AddGear(hwRound(lx), hwRound(ly), gtBlowTorch, 0, SignAs(_0_5, dX), _0, 0); |
|
377 |
amGirder: newGear:= AddGear(0, 0, gtGirder, CurWeapon^.Pos, _0, _0, 0); |
|
9768
08799c901a42
Add rubber utility. Graphics are still incomplete. Also flag snow/ice in theme config.
nemo
parents:
9732
diff
changeset
|
378 |
amRubber: begin |
08799c901a42
Add rubber utility. Graphics are still incomplete. Also flag snow/ice in theme config.
nemo
parents:
9732
diff
changeset
|
379 |
newGear:= AddGear(0, 0, gtGirder, CurWeapon^.Pos, _0, _0, 0); |
08799c901a42
Add rubber utility. Graphics are still incomplete. Also flag snow/ice in theme config.
nemo
parents:
9732
diff
changeset
|
380 |
newGear^.AmmoType:= amRubber |
08799c901a42
Add rubber utility. Graphics are still incomplete. Also flag snow/ice in theme config.
nemo
parents:
9732
diff
changeset
|
381 |
end; |
6581 | 382 |
amTeleport: newGear:= AddGear(CurWeapon^.Pos, 0, gtTeleport, 0, _0, _0, 0); |
383 |
amSwitch: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSwitcher, 0, _0, _0, 0); |
|
384 |
amMortar: begin |
|
385 |
playSound(sndMortar); |
|
386 |
newGear:= AddGear(hwRound(lx), hwRound(ly), gtMortar, 0, xx*cMaxPower/cPowerDivisor, yy*cMaxPower/cPowerDivisor, 0); |
|
387 |
end; |
|
388 |
amRCPlane: begin |
|
389 |
newGear:= AddGear(hwRound(lx), hwRound(ly), gtRCPlane, 0, xx * cMaxPower / cPowerDivisor / 4, yy * cMaxPower / cPowerDivisor / 4, 0); |
|
7053 | 390 |
newGear^.SoundChannel:= LoopSound(sndRCPlane) |
6581 | 391 |
end; |
392 |
amKamikaze: newGear:= AddGear(hwRound(lx), hwRound(ly), gtKamikaze, 0, xx * _0_5, yy * _0_5, 0); |
|
7832 | 393 |
amCake: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 3, hwRound(ly), gtCake, 0, SignAs(cLittle, xx), _0, 0); |
6581 | 394 |
amSeduction: newGear:= AddGear(hwRound(lx), hwRound(ly), gtSeduction, 0, _0, _0, 0); |
395 |
amWatermelon: newGear:= AddGear(hwRound(lx), hwRound(ly), gtWatermelon, 0, newDx, newDy, CurWeapon^.Timer); |
|
396 |
amHellishBomb: newGear:= AddGear(hwRound(lx), hwRound(ly), gtHellishBomb, 0, newDx, newDy, 0); |
|
397 |
amDrill: newGear:= AddGear(hwRound(lx), hwRound(ly), gtDrill, 0, newDx, newDy, 0); |
|
398 |
amBallgun: newGear:= AddGear(hwRound(X), hwRound(Y), gtBallgun, 0, xx * _0_5, yy * _0_5, 0); |
|
399 |
amJetpack: newGear:= AddGear(hwRound(lx), hwRound(ly), gtJetpack, 0, _0, _0, 0); |
|
400 |
amBirdy: begin |
|
401 |
PlaySound(sndWhistle); |
|
402 |
newGear:= AddGear(hwRound(lx), hwRound(ly) - 32, gtBirdy, 0, _0, _0, 0); |
|
403 |
end; |
|
404 |
amLowGravity: begin |
|
405 |
PlaySound(sndLowGravity); |
|
406 |
cGravity:= cMaxWindSpeed; |
|
11892
083c12795632
Show symbols at bottom right while extra damage / low grav. are active
Wuzzy <almikes@aol.com>
parents:
11853
diff
changeset
|
407 |
cGravityf:= 0.00025; |
083c12795632
Show symbols at bottom right while extra damage / low grav. are active
Wuzzy <almikes@aol.com>
parents:
11853
diff
changeset
|
408 |
cLowGravity := true |
6581 | 409 |
end; |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
410 |
amExtraDamage: begin |
6581 | 411 |
PlaySound(sndHellishImpact4); |
412 |
cDamageModifier:= _1_5 |
|
413 |
end; |
|
11916
6145efcff302
Add sounds for blowtorch, invuln., f. saucer, lasersight, portal gun
Wuzzy <almikes@aol.com>
parents:
11892
diff
changeset
|
414 |
amInvulnerable: begin |
6145efcff302
Add sounds for blowtorch, invuln., f. saucer, lasersight, portal gun
Wuzzy <almikes@aol.com>
parents:
11892
diff
changeset
|
415 |
PlaySound(sndInvulnerable); |
6145efcff302
Add sounds for blowtorch, invuln., f. saucer, lasersight, portal gun
Wuzzy <almikes@aol.com>
parents:
11892
diff
changeset
|
416 |
Effects[heInvulnerable]:= 1 |
6145efcff302
Add sounds for blowtorch, invuln., f. saucer, lasersight, portal gun
Wuzzy <almikes@aol.com>
parents:
11892
diff
changeset
|
417 |
end; |
6581 | 418 |
amExtraTime: begin |
11770
10860d4bca22
Add sound effects for: cleaver impact, air mine impact, using extra time
Wuzzy <almikes@aol.com>
parents:
11629
diff
changeset
|
419 |
PlaySound(sndExtraTime); |
6581 | 420 |
TurnTimeLeft:= TurnTimeLeft + 30000 |
421 |
end; |
|
11916
6145efcff302
Add sounds for blowtorch, invuln., f. saucer, lasersight, portal gun
Wuzzy <almikes@aol.com>
parents:
11892
diff
changeset
|
422 |
amLaserSight: begin |
6145efcff302
Add sounds for blowtorch, invuln., f. saucer, lasersight, portal gun
Wuzzy <almikes@aol.com>
parents:
11892
diff
changeset
|
423 |
PlaySound(sndLaserSight); |
6145efcff302
Add sounds for blowtorch, invuln., f. saucer, lasersight, portal gun
Wuzzy <almikes@aol.com>
parents:
11892
diff
changeset
|
424 |
cLaserSighting:= true |
6145efcff302
Add sounds for blowtorch, invuln., f. saucer, lasersight, portal gun
Wuzzy <almikes@aol.com>
parents:
11892
diff
changeset
|
425 |
end; |
6581 | 426 |
amVampiric: begin |
7053 | 427 |
PlaySoundV(sndOw1, Team^.voicepack); |
6581 | 428 |
cVampiric:= true; |
429 |
end; |
|
430 |
amPiano: begin |
|
431 |
// Tuck the hedgehog away until the piano attack is completed |
|
432 |
Unplaced:= true; |
|
433 |
X:= _0; |
|
434 |
Y:= _0; |
|
8414
c1ac0b64315e
Start piano higher (piano on maps that matched land_height was really weird before). Experiment w/ trying to make birdy shrink into distance to avoid odd birdy vanishes if tracking it.
nemo
parents:
8161
diff
changeset
|
435 |
newGear:= AddGear(TargetPoint.X, -1024, gtPiano, 0, _0, _0, 0); |
6581 | 436 |
PauseMusic |
437 |
end; |
|
438 |
amFlamethrower: newGear:= AddGear(hwRound(X), hwRound(Y), gtFlamethrower, 0, xx * _0_5, yy * _0_5, 0); |
|
439 |
amLandGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtLandGun, 0, xx * _0_5, yy * _0_5, 0); |
|
440 |
amResurrector: begin |
|
441 |
newGear:= AddGear(hwRound(lx), hwRound(ly), gtResurrector, 0, _0, _0, 0); |
|
442 |
newGear^.SoundChannel := LoopSound(sndResurrector); |
|
443 |
end; |
|
8161 | 444 |
//amStructure: newGear:= AddGear(hwRound(lx) + hwSign(dX) * 7, hwRound(ly), gtStructure, gstWait, SignAs(_0_02, dX), _0, 3000); |
9675
295636ec930a
cleanup of timer accidentally exposed prob w/ timebox
nemo
parents:
9672
diff
changeset
|
445 |
amTardis: newGear:= AddGear(hwRound(X), hwRound(Y), gtTardis, 0, _0, _0, 0); |
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:
8753
diff
changeset
|
446 |
amIceGun: newGear:= AddGear(hwRound(X), hwRound(Y), gtIceGun, 0, _0, _0, 0); |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
447 |
end; |
10015 | 448 |
if altUse and (newGear <> nil) and |
8987
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
449 |
((CurAmmoGear = nil) or (CurAmmoGear^.AmmoType <> amJetpack) or (Gear^.Message and gmPrecise = 0)) then |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
450 |
begin |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
451 |
newGear^.dX:= newDx / newGear^.Density; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
452 |
newGear^.dY:= newDY / newGear^.Density |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
453 |
end; |
8987
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
454 |
if (CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack) and |
10354 | 455 |
(Gear^.Message and gmPrecise <> 0) and CheckCoordInWater(hwRound(X), hwRound(Y)) then |
8992
5b0be812dcdb
Rename submersible state, increase getaway time for attack underwater, slow down gear dx/dy underwater to simulate water resistance
nemo
parents:
8987
diff
changeset
|
456 |
newGear^.State:= newGear^.State or gstSubmersible; |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
457 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
458 |
case CurAmmoType of |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
459 |
amGrenade, amMolotov, |
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
460 |
amClusterBomb, amGasBomb, |
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
461 |
amBazooka, amSnowball, |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
462 |
amBee, amSMine, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
463 |
amMortar, amWatermelon, |
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:
10714
diff
changeset
|
464 |
amHellishBomb, amDrill, |
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:
10714
diff
changeset
|
465 |
amAirMine: FollowGear:= newGear; |
6581 | 466 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
467 |
amShotgun, amPickHammer, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
468 |
amRope, amDEagle, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
469 |
amSineGun, amSniperRifle, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
470 |
amFirePunch, amWhip, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
471 |
amHammer, amBaseballBat, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
472 |
amParachute, amBlowTorch, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
473 |
amGirder, amTeleport, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
474 |
amSwitch, amRCPlane, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
475 |
amKamikaze, amCake, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
476 |
amSeduction, amBallgun, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
477 |
amJetpack, amBirdy, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
478 |
amFlamethrower, amLandGun, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
479 |
amResurrector, //amStructure, |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
480 |
amTardis, amPiano, |
12903 | 481 |
amIceGun, amRubber, |
482 |
amMinigun: CurAmmoGear:= newGear; |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
483 |
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:
10714
diff
changeset
|
484 |
if CurAmmoType = amCake then FollowGear:= newGear; |
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:
10714
diff
changeset
|
485 |
if CurAmmoType = amAirMine then newGear^.Hedgehog:= nil; |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
486 |
|
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:
10714
diff
changeset
|
487 |
if ((CurAmmoType = amMine) or (CurAmmoType = amSMine) or (CurAmmoType = amAirMine)) and (GameFlags and gfInfAttack <> 0) then |
11201 | 488 |
newGear^.FlightTime:= GameTicks + min(TurnTimeLeft,1000) |
6581 | 489 |
else if CurAmmoType = amDrill then |
490 |
newGear^.FlightTime:= GameTicks + 250; |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
491 |
if Ammoz[CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0 then |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
492 |
begin |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
493 |
newGear^.Target.X:= TargetPoint.X; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
494 |
newGear^.Target.Y:= TargetPoint.Y |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
495 |
end; |
8744 | 496 |
if (newGear <> nil) and (newGear^.CollisionMask and lfCurrentHog <> 0) then newGear^.CollisionMask:= newGear^.CollisionMask and (not lfCurrentHog); |
6581 | 497 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
498 |
// Clear FollowGear if using on a rope/parachute/saucer etc so focus stays with the hog's movement |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
499 |
if altUse then |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
500 |
FollowGear:= nil; |
6581 | 501 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
502 |
if (newGear <> nil) and ((Ammoz[newGear^.AmmoType].Ammo.Propz and ammoprop_SetBounce) <> 0) then |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
503 |
begin |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
504 |
elastic:= int2hwfloat(CurWeapon^.Bounciness) / _1000; |
6581 | 505 |
|
506 |
if elastic < _1 then |
|
507 |
newGear^.Elasticity:= newGear^.Elasticity * elastic |
|
508 |
else if elastic > _1 then |
|
509 |
newGear^.Elasticity:= _1 - ((_1-newGear^.Elasticity) / elastic); |
|
8330 | 510 |
(* Experimented with friction modifier. Didn't seem helpful |
6581 | 511 |
fric:= int2hwfloat(CurWeapon^.Bounciness) / _250; |
512 |
if fric < _1 then newGear^.Friction:= newGear^.Friction * fric |
|
513 |
else if fric > _1 then newGear^.Friction:= _1 - ((_1-newGear^.Friction) / fric)*) |
|
514 |
end; |
|
515 |
||
516 |
||
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
517 |
uStats.AmmoUsed(CurAmmoType); |
6581 | 518 |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
519 |
if not (SpeechText = '') then |
6581 | 520 |
begin |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
521 |
speech:= AddVisualGear(0, 0, vgtSpeechBubble); |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
522 |
if speech <> nil then |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
523 |
begin |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
524 |
speech^.Text:= SpeechText; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
525 |
speech^.Hedgehog:= Gear^.Hedgehog; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
526 |
speech^.FrameTicks:= SpeechType; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
527 |
end; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
528 |
SpeechText:= '' |
6581 | 529 |
end; |
530 |
||
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
531 |
Power:= 0; |
8833 | 532 |
if (CurAmmoGear <> nil) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) = 0){check for dropping ammo from rope} then |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
533 |
begin |
8833 | 534 |
if CurAmmoType in [amRope,amResurrector] then |
535 |
Message:= Message or gmAttack; |
|
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
536 |
CurAmmoGear^.Message:= Message |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
537 |
end |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
538 |
else |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
539 |
begin |
8833 | 540 |
if (not CurrentTeam^.ExtDriven) and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_Power) <> 0) then |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
541 |
SendIPC(_S'a'); |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
542 |
AfterAttack; |
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
543 |
end |
6581 | 544 |
end |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
545 |
else |
8492
67d2ad3b3ce9
Allow moving after firing cleaver. This changes multishoot behaviour quite a bit. Needs a lot of testing.
nemo
parents:
8414
diff
changeset
|
546 |
Message:= Message and (not gmAttack); |
10669
4c78eafe76ac
Issue 755: Lua API: Add ammo type parameter for onHogAttack
sheepluva
parents:
10579
diff
changeset
|
547 |
|
10970
7341e0c3f966
LuaAPI: fix OnHogAttack the incorrect AmmoType (amNothing) under certain conditions. Thanks for CheezeMonkey for reporting this
sheepluva
parents:
10942
diff
changeset
|
548 |
ScriptCall('onHogAttack', ord(usedAmmoType)); |
10669
4c78eafe76ac
Issue 755: Lua API: Add ammo type parameter for onHogAttack
sheepluva
parents:
10579
diff
changeset
|
549 |
end; // of with Gear^, Gear^.Hedgehog^ do |
4c78eafe76ac
Issue 755: Lua API: Add ammo type parameter for onHogAttack
sheepluva
parents:
10579
diff
changeset
|
550 |
|
6581 | 551 |
TargetPoint.X := NoPointX; |
552 |
end; |
|
553 |
||
554 |
procedure AfterAttack; |
|
10124
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10123
diff
changeset
|
555 |
var s: ansistring; |
6581 | 556 |
a: TAmmoType; |
7459
8511a3f899d3
Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents:
7426
diff
changeset
|
557 |
HHGear: PGear; |
6581 | 558 |
begin |
7459
8511a3f899d3
Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents:
7426
diff
changeset
|
559 |
with CurrentHedgehog^ do |
6581 | 560 |
begin |
7459
8511a3f899d3
Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents:
7426
diff
changeset
|
561 |
HHGear:= Gear; |
6581 | 562 |
a:= CurAmmoType; |
7459
8511a3f899d3
Allow AfterAttack to proceed even if the Hedgehog is dead. They could be resurrected after all.
nemo
parents:
7426
diff
changeset
|
563 |
if HHGear <> nil then HHGear^.State:= HHGear^.State and (not gstAttacking); |
6581 | 564 |
if (Ammoz[a].Ammo.Propz and ammoprop_Effect) = 0 then |
565 |
begin |
|
566 |
Inc(MultiShootAttacks); |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
567 |
|
6581 | 568 |
if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) then |
569 |
begin |
|
10124
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10123
diff
changeset
|
570 |
s:= ansistring(inttostr(Ammoz[a].Ammo.NumPerTurn - MultiShootAttacks + 1)); |
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10123
diff
changeset
|
571 |
AddCaption(formatA(trmsg[sidRemaining], s), cWhiteColor, capgrpAmmostate); |
6581 | 572 |
end; |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
573 |
|
6581 | 574 |
if (Ammoz[a].Ammo.NumPerTurn >= MultiShootAttacks) |
575 |
or ((GameFlags and gfMultiWeapon) <> 0) then |
|
576 |
begin |
|
577 |
isInMultiShoot:= true |
|
578 |
end |
|
579 |
else |
|
580 |
begin |
|
581 |
OnUsedAmmo(CurrentHedgehog^); |
|
582 |
if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (((GameFlags and gfInfAttack) = 0) or PlacingHogs) then |
|
583 |
begin |
|
584 |
if TagTurnTimeLeft = 0 then |
|
585 |
TagTurnTimeLeft:= TurnTimeLeft; |
|
10354 | 586 |
if (CurAmmoGear <> nil) and (CurAmmoGear^.State and gstSubmersible <> 0) and CheckCoordInWater(hwRound(CurAmmoGear^.X), hwRound(CurAmmoGear^.Y)) then |
8992
5b0be812dcdb
Rename submersible state, increase getaway time for attack underwater, slow down gear dx/dy underwater to simulate water resistance
nemo
parents:
8987
diff
changeset
|
587 |
TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 25 |
5b0be812dcdb
Rename submersible state, increase getaway time for attack underwater, slow down gear dx/dy underwater to simulate water resistance
nemo
parents:
8987
diff
changeset
|
588 |
else TurnTimeLeft:=(Ammoz[a].TimeAfterTurn * cGetAwayTime) div 100; |
11918
232b57a70aca
Make the timer red when it is the get-away time
Wuzzy <almikes@aol.com>
parents:
11916
diff
changeset
|
589 |
IsGetAwayTime := true; |
6581 | 590 |
end; |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
591 |
if ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) = 0) and (HHGear <> nil) then |
7462 | 592 |
HHGear^.State:= HHGear^.State or gstAttacked; |
12654
2837dee472cc
Show selected weapon again when using it in inf attack mode
Wuzzy <almikes@aol.com>
parents:
12605
diff
changeset
|
593 |
if (a = amNothing) or ((Ammoz[a].Ammo.Propz and ammoprop_NoRoundEnd) <> 0) or |
2837dee472cc
Show selected weapon again when using it in inf attack mode
Wuzzy <almikes@aol.com>
parents:
12605
diff
changeset
|
594 |
(((GameFlags and gfInfAttack) <> 0) and ((Ammoz[a].Ammo.Propz and ammoprop_ForceTurnEnd) = 0)) then |
6581 | 595 |
ApplyAmmoChanges(CurrentHedgehog^) |
596 |
end; |
|
597 |
end |
|
598 |
else |
|
599 |
begin |
|
600 |
OnUsedAmmo(CurrentHedgehog^); |
|
601 |
ApplyAmmoChanges(CurrentHedgehog^); |
|
602 |
end; |
|
603 |
AttackBar:= 0 |
|
604 |
end |
|
605 |
end; |
|
606 |
||
607 |
//////////////////////////////////////////////////////////////////////////////// |
|
608 |
procedure doStepHedgehogDead(Gear: PGear); |
|
609 |
const frametime = 200; |
|
610 |
timertime = frametime * 6; |
|
11206 | 611 |
var grave: PGear; |
6581 | 612 |
begin |
613 |
if Gear^.Hedgehog^.Unplaced then |
|
614 |
exit; |
|
615 |
if Gear^.Timer > 1 then |
|
616 |
begin |
|
617 |
AllInactive:= false; |
|
618 |
dec(Gear^.Timer); |
|
619 |
if (Gear^.Timer mod frametime) = 0 then |
|
620 |
inc(Gear^.Pos) |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
621 |
end |
6581 | 622 |
else if Gear^.Timer = 1 then |
623 |
begin |
|
9064 | 624 |
Gear^.Hedgehog^.Effects[heFrozen]:= 0; |
6581 | 625 |
Gear^.State:= Gear^.State or gstNoDamage; |
11473
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:
11272
diff
changeset
|
626 |
doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, CurrentHedgehog, EXPLAutoSound); |
11206 | 627 |
grave:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtGrave, 0, _0, _0, 0); |
628 |
grave^.Hedgehog:= Gear^.Hedgehog; |
|
629 |
grave^.Pos:= Gear^.uid; |
|
630 |
||
6581 | 631 |
DeleteGear(Gear); |
632 |
SetAllToActive |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
633 |
end |
6581 | 634 |
else // Gear^.Timer = 0 |
635 |
begin |
|
636 |
AllInactive:= false; |
|
637 |
Gear^.Z:= cCurrHHZ; |
|
638 |
RemoveGearFromList(Gear); |
|
639 |
InsertGearToList(Gear); |
|
7053 | 640 |
PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack); |
6581 | 641 |
Gear^.Pos:= 0; |
642 |
Gear^.Timer:= timertime |
|
643 |
end |
|
644 |
end; |
|
645 |
||
646 |
//////////////////////////////////////////////////////////////////////////////// |
|
647 |
procedure doStepHedgehogGone(Gear: PGear); |
|
648 |
const frametime = 65; |
|
649 |
timertime = frametime * 11; |
|
10178
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
650 |
var i: LongInt; |
6581 | 651 |
begin |
652 |
if Gear^.Hedgehog^.Unplaced then |
|
653 |
exit; |
|
654 |
if Gear^.Timer > 1 then |
|
655 |
begin |
|
656 |
AllInactive:= false; |
|
657 |
dec(Gear^.Timer); |
|
658 |
if (Gear^.Timer mod frametime) = 0 then |
|
659 |
inc(Gear^.Pos) |
|
660 |
end |
|
661 |
else |
|
662 |
if Gear^.Timer = 1 then |
|
663 |
begin |
|
664 |
DeleteGear(Gear); |
|
665 |
SetAllToActive |
|
666 |
end |
|
667 |
else // Gear^.Timer = 0 |
|
668 |
begin |
|
669 |
AllInactive:= false; |
|
670 |
Gear^.Z:= cCurrHHZ; |
|
671 |
RemoveGearFromList(Gear); |
|
672 |
InsertGearToList(Gear); |
|
10178
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
673 |
// only play sound for one alive hedgehog |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
674 |
with Gear^.Hedgehog^.Team^ do |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
675 |
for i:= 0 to cMaxHHIndex do |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
676 |
begin |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
677 |
if (Hedgehogs[i].Gear <> nil) then |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
678 |
begin |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
679 |
if (Hedgehogs[i].Gear = Gear) then |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
680 |
begin |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
681 |
PlaySoundV(sndByeBye, Gear^.Hedgehog^.Team^.voicepack); |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
682 |
PlaySound(sndWarp); |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
683 |
end; |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
684 |
break; |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
685 |
end; |
949b51ca18c6
don't stack bye/teleport sounds of hogs (when a team is gone)
sheepluva
parents:
10147
diff
changeset
|
686 |
end; |
6581 | 687 |
Gear^.Pos:= 0; |
688 |
Gear^.Timer:= timertime |
|
689 |
end |
|
690 |
end; |
|
691 |
||
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:
7375
diff
changeset
|
692 |
procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord); |
10124
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10123
diff
changeset
|
693 |
var s: ansistring; |
11944
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11927
diff
changeset
|
694 |
name: ansistring; |
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:
7375
diff
changeset
|
695 |
vga: PVisualGear; |
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:
7375
diff
changeset
|
696 |
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:
7375
diff
changeset
|
697 |
if cnt <> 0 then AddAmmo(HH, ammo, cnt) |
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:
7375
diff
changeset
|
698 |
else AddAmmo(HH, ammo); |
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:
7375
diff
changeset
|
699 |
|
11853
6a0d6b00dac8
Highlander: give visual and acustic feedback when weapons are collected from a kill, similar to collecting a crate
sheepluva
parents:
11852
diff
changeset
|
700 |
if IsHogLocal(@HH) then |
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:
7375
diff
changeset
|
701 |
begin |
11944
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11927
diff
changeset
|
702 |
if length(trluaammo[Ammoz[ammo].NameId]) > 0 then |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11927
diff
changeset
|
703 |
name:= trluaammo[Ammoz[ammo].NameId] |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11927
diff
changeset
|
704 |
else |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11927
diff
changeset
|
705 |
name:= trammo[Ammoz[ammo].NameId]; |
12469
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
706 |
|
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
707 |
if cnt = 0 then |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
708 |
cnt:= Ammoz[ammo].NumberInCase; |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
709 |
|
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
710 |
if (ammo = amNothing) or (cnt = 0) then |
12605 | 711 |
s:= trmsg[sidEmptyCrate] |
12469
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
712 |
else if cnt >= AMMO_INFINITE then |
12468
3223ae85fba3
Show “Ammo Type (+∞)” when taking crate w/ infinite ammo
Wuzzy <almikes@aol.com>
parents:
12436
diff
changeset
|
713 |
s:= name + ansistring(' (+∞)') |
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:
7375
diff
changeset
|
714 |
else |
12469
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
715 |
s:= name + ansistring(' (+' + IntToStr(cnt) + ')'); |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
716 |
|
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
717 |
AddCaption(s, HH.Team^.Clan^.Color, capgrpAmmoinfo); |
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:
7375
diff
changeset
|
718 |
|
12469
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
719 |
// show ammo icon (if not empty) |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
720 |
if (ammo <> amNothing) and (cnt <> 0) then |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
721 |
begin |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
722 |
vga:= AddVisualGear(X, Y, vgtAmmo); |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
723 |
if vga <> nil then |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
724 |
vga^.Frame:= Longword(ammo); |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
725 |
end |
39d780f9bf35
Show “Empty!” when collecting ammo crate with amNothing or 0 ammo
Wuzzy <almikes@aol.com>
parents:
12468
diff
changeset
|
726 |
|
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:
7375
diff
changeset
|
727 |
end; |
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:
7375
diff
changeset
|
728 |
end; |
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:
7375
diff
changeset
|
729 |
|
6581 | 730 |
//////////////////////////////////////////////////////////////////////////////// |
731 |
procedure PickUp(HH, Gear: PGear); |
|
12942
a84a05719454
Refactor health gain effects and message into util fuction HHHeal
Wuzzy <Wuzzy2@mail.ru>
parents:
12917
diff
changeset
|
732 |
var ag, gi: PGear; |
6581 | 733 |
begin |
11629 | 734 |
if Gear^.State and gstFrozen <> 0 then exit; |
735 |
||
6581 | 736 |
Gear^.Message:= gmDestroy; |
737 |
if (Gear^.Pos and posCaseExplode) <> 0 then |
|
738 |
if (Gear^.Pos and posCasePoison) <> 0 then |
|
739 |
doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned) |
|
740 |
else |
|
741 |
doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound) |
|
742 |
else if (Gear^.Pos and posCasePoison) <> 0 then |
|
743 |
doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, HH^.Hedgehog, EXPLAutoSound + EXPLPoisoned + EXPLNoDamage) |
|
744 |
else |
|
745 |
case Gear^.Pos of |
|
746 |
posCaseUtility, |
|
747 |
posCaseAmmo: begin |
|
7597
1ef520fea21c
make cheating a bit easier (mikade insisted). Also, try flipping dust for a bit more variety.
nemo
parents:
7462
diff
changeset
|
748 |
PlaySound(sndShotgunReload); |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
749 |
if Gear^.AmmoType <> amNothing then |
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:
7375
diff
changeset
|
750 |
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:
7375
diff
changeset
|
751 |
AddPickup(HH^.Hedgehog^, Gear^.AmmoType, Gear^.Power, hwRound(Gear^.X), hwRound(Gear^.Y)); |
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:
7375
diff
changeset
|
752 |
end |
6581 | 753 |
else |
754 |
begin |
|
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:
7375
diff
changeset
|
755 |
// Add spawning here... |
7409 | 756 |
AddRandomness(GameTicks); |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
757 |
|
7406
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
758 |
gi := GearsList; |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
759 |
while gi <> nil do |
7391
588eabb4b384
Apparently order of multiple getrandom in params is undefined. Also remove broken and pointless getrandom call.
nemo
parents:
7389
diff
changeset
|
760 |
begin |
8030
165aeaaaf445
Call fallers less often. Should hopefully still be about as effective at the intended purpose. Should help loads quite a bit.
nemo
parents:
8003
diff
changeset
|
761 |
if (gi^.Kind = gtGenericFaller) and (gi^.State and gstInvisible <> 0) then |
7406
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
762 |
begin |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
763 |
gi^.Active:= true; |
8030
165aeaaaf445
Call fallers less often. Should hopefully still be about as effective at the intended purpose. Should help loads quite a bit.
nemo
parents:
8003
diff
changeset
|
764 |
gi^.State:= gi^.State or gstTmpFlag; |
7406
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
765 |
gi^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX); |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
766 |
gi^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY); |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
767 |
gi^.dX:= _90-(GetRandomf*_360); |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
768 |
gi^.dY:= _90-(GetRandomf*_360) |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
769 |
end; |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7391
diff
changeset
|
770 |
gi := gi^.NextGear |
7391
588eabb4b384
Apparently order of multiple getrandom in params is undefined. Also remove broken and pointless getrandom call.
nemo
parents:
7389
diff
changeset
|
771 |
end; |
7598 | 772 |
ag:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtAddAmmo, gstInvisible, _0, _0, GetRandom(125)+25); |
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:
7375
diff
changeset
|
773 |
ag^.Pos:= Gear^.Pos; |
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:
7375
diff
changeset
|
774 |
ag^.Power:= Gear^.Power |
6581 | 775 |
end; |
776 |
end; |
|
777 |
posCaseHealth: begin |
|
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:
7375
diff
changeset
|
778 |
PlaySound(sndShotgunReload); |
6581 | 779 |
inc(HH^.Health, Gear^.Health); |
7010
10a0a31804f3
Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents:
6992
diff
changeset
|
780 |
HH^.Hedgehog^.Effects[hePoisoned] := 0; |
6581 | 781 |
RenderHealth(HH^.Hedgehog^); |
782 |
RecountTeamHealth(HH^.Hedgehog^.Team); |
|
12942
a84a05719454
Refactor health gain effects and message into util fuction HHHeal
Wuzzy <Wuzzy2@mail.ru>
parents:
12917
diff
changeset
|
783 |
HHHeal(HH^.Hedgehog, Gear^.Health, true); |
6581 | 784 |
end; |
785 |
end |
|
786 |
end; |
|
787 |
||
788 |
procedure HedgehogStep(Gear: PGear); |
|
789 |
var PrevdX: LongInt; |
|
790 |
CurWeapon: PAmmo; |
|
10435
4c8fc3aa9432
allow hogs to repeatedly enter portals placed on the ground
nemo
parents:
10354
diff
changeset
|
791 |
portals: PGearArrayS; |
6581 | 792 |
begin |
6924 | 793 |
CurWeapon:= GetCurAmmoEntry(Gear^.Hedgehog^); |
6581 | 794 |
if ((Gear^.State and (gstAttacking or gstMoving)) = 0) then |
795 |
begin |
|
796 |
if isCursorVisible then |
|
797 |
with Gear^.Hedgehog^ do |
|
798 |
with CurWeapon^ do |
|
799 |
begin |
|
800 |
if (Gear^.Message and gmLeft ) <> 0 then |
|
801 |
Pos:= (Pos - 1 + Ammoz[AmmoType].PosCount) mod Ammoz[AmmoType].PosCount |
|
802 |
else |
|
803 |
if (Gear^.Message and gmRight ) <> 0 then |
|
804 |
Pos:= (Pos + 1) mod Ammoz[AmmoType].PosCount |
|
805 |
else |
|
806 |
exit; |
|
7028 | 807 |
GHStepTicks:= 200; |
6581 | 808 |
exit |
809 |
end; |
|
810 |
||
811 |
if ((Gear^.Message and gmAnimate) <> 0) then |
|
812 |
begin |
|
813 |
Gear^.Message:= 0; |
|
814 |
Gear^.State:= Gear^.State or gstAnimation; |
|
815 |
Gear^.Tag:= Gear^.MsgParam; |
|
816 |
Gear^.Timer:= 0; |
|
817 |
Gear^.Pos:= 0 |
|
818 |
end; |
|
819 |
||
820 |
if ((Gear^.Message and gmLJump ) <> 0) then |
|
821 |
begin |
|
822 |
Gear^.Message:= Gear^.Message and (not gmLJump); |
|
823 |
DeleteCI(Gear); |
|
824 |
if TestCollisionYwithGear(Gear, -1) = 0 then |
|
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
825 |
if TestCollisionXwithXYShift(Gear, _0, -2, hwSign(Gear^.dX)) = 0 then |
6581 | 826 |
Gear^.Y:= Gear^.Y - _2 |
827 |
else |
|
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
828 |
if TestCollisionXwithXYShift(Gear, _0, -1, hwSign(Gear^.dX)) = 0 then |
6581 | 829 |
Gear^.Y:= Gear^.Y - _1; |
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
830 |
if (TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) = 0) and |
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
831 |
(TestCollisionYwithGear(Gear, -1) = 0) then |
6581 | 832 |
begin |
833 |
Gear^.dY:= -_0_15; |
|
13101
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
834 |
if Gear^.Hedgehog^.Effects[heArtillery] = 0 then |
6581 | 835 |
Gear^.dX:= SignAs(_0_15, Gear^.dX); |
836 |
Gear^.State:= Gear^.State or gstMoving or gstHHJumping; |
|
7053 | 837 |
PlaySoundV(sndJump1, Gear^.Hedgehog^.Team^.voicepack); |
6581 | 838 |
exit |
839 |
end; |
|
840 |
end; |
|
841 |
||
842 |
if ((Gear^.Message and gmHJump ) <> 0) then |
|
843 |
begin |
|
844 |
DeleteCI(Gear); |
|
845 |
Gear^.Message:= Gear^.Message and (not gmHJump); |
|
846 |
||
847 |
Gear^.dY:= -_0_2; |
|
848 |
SetLittle(Gear^.dX); |
|
849 |
Gear^.State:= Gear^.State or gstMoving or gstHHJumping; |
|
7053 | 850 |
PlaySoundV(sndJump3, Gear^.Hedgehog^.Team^.voicepack); |
6581 | 851 |
exit |
852 |
end; |
|
853 |
||
10435
4c8fc3aa9432
allow hogs to repeatedly enter portals placed on the ground
nemo
parents:
10354
diff
changeset
|
854 |
if (Gear^.Message and (gmLeft or gmRight) <> 0) and (Gear^.State and gstMoving = 0) then |
4c8fc3aa9432
allow hogs to repeatedly enter portals placed on the ground
nemo
parents:
10354
diff
changeset
|
855 |
begin |
4c8fc3aa9432
allow hogs to repeatedly enter portals placed on the ground
nemo
parents:
10354
diff
changeset
|
856 |
// slightly inefficient since it doesn't halt after one portal, maybe could add a param to GearsNear for number desired. |
4c8fc3aa9432
allow hogs to repeatedly enter portals placed on the ground
nemo
parents:
10354
diff
changeset
|
857 |
portals:= GearsNear(Gear^.X, Gear^.Y, gtPortal, 26); |
4c8fc3aa9432
allow hogs to repeatedly enter portals placed on the ground
nemo
parents:
10354
diff
changeset
|
858 |
if portals.size = 0 then Gear^.PortalCounter:= 0 |
4c8fc3aa9432
allow hogs to repeatedly enter portals placed on the ground
nemo
parents:
10354
diff
changeset
|
859 |
end; |
6581 | 860 |
PrevdX:= hwSign(Gear^.dX); |
861 |
if (Gear^.Message and gmLeft )<>0 then |
|
862 |
Gear^.dX:= -cLittle else |
|
863 |
if (Gear^.Message and gmRight )<>0 then |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
864 |
Gear^.dX:= cLittle |
7187
aff30d80bd7b
- Allow camera movement while current hedgehog is falling
unc0rr
parents:
7164
diff
changeset
|
865 |
else exit; |
6581 | 866 |
|
7187
aff30d80bd7b
- Allow camera movement while current hedgehog is falling
unc0rr
parents:
7164
diff
changeset
|
867 |
StepSoundTimer:= cHHStepTicks; |
7719
eeae1cb6b6bf
Move hedgehog's step routine into separate function, use it in both hedgehog and ai code
unc0rr
parents:
7671
diff
changeset
|
868 |
|
7028 | 869 |
GHStepTicks:= cHHStepTicks; |
6581 | 870 |
if PrevdX <> hwSign(Gear^.dX) then |
871 |
begin |
|
872 |
FollowGear:= Gear; |
|
873 |
exit |
|
874 |
end; |
|
875 |
DeleteCI(Gear); // must be after exit!! (see previous line) |
|
876 |
||
877 |
Gear^.Hedgehog^.visStepPos:= (Gear^.Hedgehog^.visStepPos + 1) and 7; |
|
7164
fad64b97947e
Some brainfucking code which greatly reduces number of TestCollision* calls in hedgehog walk routine. Especially helpful to AI optimization. Also fixes some edge cases.
unc0rr
parents:
7069
diff
changeset
|
878 |
|
13101
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
879 |
if ((Gear^.Hedgehog^.Effects[heArtillery] = 0) or |
10714 | 880 |
((CurAmmoGear <> nil) and (CurAmmoGear^.Kind = gtBlowTorch))) and |
881 |
((Gear^.Message and gmPrecise) = 0) then |
|
7719
eeae1cb6b6bf
Move hedgehog's step routine into separate function, use it in both hedgehog and ai code
unc0rr
parents:
7671
diff
changeset
|
882 |
MakeHedgehogsStep(Gear); |
6581 | 883 |
|
8576
286ebfcb3d97
workaround for frequent AllHH active call in hedgehog step
nemo
parents:
8574
diff
changeset
|
884 |
SetAllHHToActive(false); |
9291
15f7bb217b66
Make add/delete consistent (this has bugged me for so long)
nemo
parents:
9285
diff
changeset
|
885 |
AddCI(Gear) |
6581 | 886 |
end |
887 |
end; |
|
888 |
||
889 |
procedure HedgehogChAngle(HHGear: PGear); |
|
890 |
var da: LongWord; |
|
891 |
begin |
|
892 |
with HHGear^.Hedgehog^ do |
|
10015 | 893 |
if (((CurAmmoType = amRope) or ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amRope))) and |
9139
2ae44c4381cd
Restore CurAmmoType check as well, that was removed in r8f317ba10675 when trying to fix aiming during alt attack.
nemo
parents:
9080
diff
changeset
|
894 |
((HHGear^.State and (gstMoving or gstHHJumping)) = gstMoving)) |
6581 | 895 |
or ((CurAmmoType = amPortalGun) and ((HHGear^.State and gstMoving) <> 0)) then |
896 |
da:= 2 |
|
897 |
else da:= 1; |
|
898 |
||
8987
47cf32305d99
some saucer thing for firing weps underwater and aiming and such. bit drunk and sleepy so testing I guess
nemo
parents:
8947
diff
changeset
|
899 |
if ((HHGear^.Message and gmPrecise = 0) or ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amJetpack))) or (GameTicks mod 5 = 1) then |
6581 | 900 |
if ((HHGear^.Message and gmUp) <> 0) and (HHGear^.Angle >= CurMinAngle + da) then |
901 |
dec(HHGear^.Angle, da) |
|
902 |
else |
|
903 |
if ((HHGear^.Message and gmDown) <> 0) and (HHGear^.Angle + da <= CurMaxAngle) then |
|
904 |
inc(HHGear^.Angle, da) |
|
905 |
end; |
|
906 |
||
907 |
||
908 |
//////////////////////////////////////////////////////////////////////////////// |
|
11517
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
909 |
procedure moveHedgehogOutOfWall(Gear: PGear); |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
910 |
var |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
911 |
hx: hwFloat; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
912 |
colly, collxl, collxr: boolean; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
913 |
begin |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
914 |
colly:= (TestCollisionYwithGear(Gear, 1) <> 0); |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
915 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
916 |
while colly do |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
917 |
begin |
11518
d44d2ab7ce4a
fix comment; revert unintentional commit of some testing png
sheepluva
parents:
11517
diff
changeset
|
918 |
// don't use TestCollisionXwithXYShift, because it checks for gears |
11517
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
919 |
// save real x-position |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
920 |
hx:= Gear^.X; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
921 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
922 |
Gear^.X:= hx + _1; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
923 |
collxl:= (TestCollisionX(Gear, -1) <> 0); |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
924 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
925 |
Gear^.X:= hx - _1; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
926 |
collxr:= (TestCollisionX(Gear, 1) <> 0); |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
927 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
928 |
// restore original value |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
929 |
Gear^.X:= hx; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
930 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
931 |
// do nothing if trapped between 2 walls |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
932 |
if collxl = collxr then |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
933 |
break; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
934 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
935 |
// if we in a wall - fix that |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
936 |
if collxl then |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
937 |
begin |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
938 |
// check for obstacle |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
939 |
if (TestCollisionX(Gear, 1) <> 0) then |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
940 |
break; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
941 |
Gear^.X:= Gear^.X + _1; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
942 |
end |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
943 |
else |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
944 |
begin |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
945 |
// check for obstacle |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
946 |
if (TestCollisionX(Gear, -1) <> 0) then |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
947 |
break; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
948 |
Gear^.X:= Gear^.X - _1; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
949 |
end; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
950 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
951 |
colly:= (TestCollisionYwithGear(Gear, 1) <> 0); |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
952 |
end; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
953 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
954 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
955 |
end; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
956 |
|
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
957 |
//////////////////////////////////////////////////////////////////////////////// |
6581 | 958 |
procedure doStepHedgehogMoving(Gear: PGear); |
959 |
var isFalling, isUnderwater: boolean; |
|
960 |
land: Word; |
|
11489 | 961 |
cnt: LongWord; |
12189
50856782cdc4
Add support for hog name in home run message
Wuzzy <almikes@aol.com>
parents:
12174
diff
changeset
|
962 |
s: ansistring; |
6581 | 963 |
begin |
10577
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
964 |
if Gear^.Hedgehog^.Unplaced then |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
965 |
begin |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
966 |
Gear^.dY:= _0; |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
967 |
Gear^.dX:= _0; |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
968 |
Gear^.State:= Gear^.State and (not gstMoving); |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
969 |
exit |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
970 |
end; |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
971 |
|
6581 | 972 |
land:= 0; |
10354 | 973 |
isUnderwater:= CheckCoordInWater(hwRound(Gear^.X), hwRound(Gear^.Y) + Gear^.Radius); |
6581 | 974 |
if Gear^.dX.QWordValue > 8160437862 then |
975 |
Gear^.dX.QWordValue:= 8160437862; |
|
976 |
if Gear^.dY.QWordValue > 8160437862 then |
|
977 |
Gear^.dY.QWordValue:= 8160437862; |
|
978 |
||
11517
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
979 |
isFalling:= (Gear^.dY.isNegative); |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
980 |
if (not isFalling) then |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
981 |
begin |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
982 |
// make sure we're not just stuck in wall |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
983 |
moveHedgehogOutOfWall(Gear); |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
984 |
// test for floor/obstacle below |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
985 |
isFalling:= (TestCollisionYKick(Gear, 1) = 0); |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
986 |
end; |
0e305b7153e6
serious anti wall sticking protection for hedgewars
sheepluva
parents:
11515
diff
changeset
|
987 |
|
6581 | 988 |
if isFalling then |
989 |
begin |
|
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
990 |
land:= TestCollisionYKick(Gear, -1); |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
991 |
if (Gear^.dY.isNegative) and (land <> 0) then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
992 |
begin |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
993 |
if land and lfBouncy <> 0 then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
994 |
begin |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
995 |
doStepFallingGear(Gear); |
10895
bce67defd804
Make bouncing a bit less wtf for various gears tested (hog, 'zooka, saucer hog, drill strike). Less hacky is another matter.
nemo
parents:
10818
diff
changeset
|
996 |
Gear^.AdvBounce:= 1; |
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
997 |
Gear^.dX:= Gear^.dX * _0_8 |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
998 |
end; |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
999 |
if (land and lfBouncy = 0) or (Gear^.State and gstCollision <> 0) then |
9795
487e5675061f
clear gstCollision from doStepFallingGear once I'm done with it. hog "physics" doesn't use it, and was screwing up labels
nemo
parents:
9776
diff
changeset
|
1000 |
Gear^.dY:= _0; |
9954 | 1001 |
Gear^.State:= Gear^.State and (not gstCollision) |
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1002 |
end; |
6581 | 1003 |
Gear^.State:= Gear^.State or gstMoving; |
9971 | 1004 |
if (Gear^.State and gstHHDriven <> 0) and |
11272 | 1005 |
(FollowGear <> nil) and |
9499 | 1006 |
(not CurrentTeam^.ExtDriven) and (hwSqr(Gear^.dX) + hwSqr(Gear^.dY) > _0_003) then |
6581 | 1007 |
begin |
7187
aff30d80bd7b
- Allow camera movement while current hedgehog is falling
unc0rr
parents:
7164
diff
changeset
|
1008 |
// TODO: why so aggressive at setting FollowGear when falling? |
9499 | 1009 |
// because hog was being yanked out of frame by other stuff when doing a complicated jump/chute/saucer/roping. |
1010 |
// added a couple more conditions to make it a bit less aggressive, at cost of possibly spectator failing to follow a maneuver |
|
6581 | 1011 |
FollowGear:= Gear; |
1012 |
end; |
|
1013 |
if isUnderwater then |
|
1014 |
Gear^.dY:= Gear^.dY + cGravity / _2 |
|
1015 |
else |
|
1016 |
begin |
|
1017 |
Gear^.dY:= Gear^.dY + cGravity; |
|
1018 |
// this set of circumstances could be less complex if jumping was more clearly identified |
|
1019 |
if ((GameFlags and gfMoreWind) <> 0) and (((Gear^.Damage <> 0) |
|
1020 |
or ((CurAmmoGear <> nil) and ((CurAmmoGear^.AmmoType = amJetpack) or (CurAmmoGear^.AmmoType = amBirdy))) |
|
1021 |
or ((Gear^.dY.QWordValue + Gear^.dX.QWordValue) > _0_55.QWordValue))) then |
|
1022 |
Gear^.dX := Gear^.dX + cWindSpeed / Gear^.Density |
|
1023 |
end |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
1024 |
end |
6581 | 1025 |
else |
1026 |
begin |
|
1027 |
land:= TestCollisionYwithGear(Gear, 1); |
|
10015 | 1028 |
if ((Gear^.dX.QWordValue + Gear^.dY.QWordValue) < _0_55.QWordValue) and ((land and lfIce) = 0) |
1029 |
and ((land and lfBouncy = 0) or (Gear^.State and gstCollision <> 0)) |
|
11515 | 1030 |
and (Gear^.Damage = 0) |
6581 | 1031 |
and ((Gear^.State and gstHHJumping) <> 0) then |
1032 |
SetLittle(Gear^.dX); |
|
1033 |
||
1034 |
if not Gear^.dY.isNegative then |
|
1035 |
begin |
|
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1036 |
if land and lfBouncy <> 0 then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1037 |
begin |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1038 |
doStepFallingGear(Gear); |
10895
bce67defd804
Make bouncing a bit less wtf for various gears tested (hog, 'zooka, saucer hog, drill strike). Less hacky is another matter.
nemo
parents:
10818
diff
changeset
|
1039 |
Gear^.AdvBounce:= 1; |
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1040 |
// hogs for some reason have very low friction. slippery little buggers |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1041 |
Gear^.dX:= Gear^.dX * _0_8 |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1042 |
end; |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1043 |
|
6581 | 1044 |
CheckHHDamage(Gear); |
1045 |
||
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1046 |
if (land and lfBouncy = 0) or (Gear^.State and gstCollision <> 0) then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1047 |
begin |
13101
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
1048 |
if ((Gear^.State and gstHHHJump) <> 0) and (Gear^.Hedgehog^.Effects[heArtillery] = 0) |
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1049 |
and (Gear^.dX.QWordValue < _0_02.QWordValue) then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1050 |
begin |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1051 |
if land and lfBouncy <> 0 then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1052 |
Gear^.dY:= _0; |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1053 |
Gear^.dX.isNegative:= not Gear^.dX.isNegative // landing after high jump |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1054 |
end; |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1055 |
Gear^.State:= Gear^.State and (not (gstHHJumping or gstHHHJump)); |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1056 |
if (land and lfBouncy = 0) or (Gear^.dX.QWordValue < _0_02.QWordValue) then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1057 |
Gear^.dY:= _0 |
9795
487e5675061f
clear gstCollision from doStepFallingGear once I'm done with it. hog "physics" doesn't use it, and was screwing up labels
nemo
parents:
9776
diff
changeset
|
1058 |
end; |
9954 | 1059 |
Gear^.State:= Gear^.State and (not gstCollision) |
6581 | 1060 |
end |
1061 |
else |
|
1062 |
Gear^.dY:= Gear^.dY + cGravity; |
|
1063 |
||
1064 |
if ((Gear^.State and gstMoving) <> 0) then |
|
1065 |
begin |
|
1066 |
if land and lfIce <> 0 then |
|
1067 |
begin |
|
1068 |
Gear^.dX:= Gear^.dX * (_1 - (_1 - Gear^.Friction) / _2) |
|
1069 |
end |
|
1070 |
else |
|
1071 |
Gear^.dX:= Gear^.dX * Gear^.Friction; |
|
1072 |
end |
|
1073 |
end; |
|
1074 |
||
10146
1fb6d8cc4626
Should never use State like this, since some states aren't synced (thinking state for example)
unc0rr
parents:
10124
diff
changeset
|
1075 |
if (Gear^.State and (gstMoving or gstHHJumping or gstHHHJump)) <> 0 then |
6581 | 1076 |
DeleteCI(Gear); |
1077 |
||
1078 |
if isUnderwater then |
|
1079 |
begin |
|
1080 |
Gear^.dY:= Gear^.dY * _0_999; |
|
1081 |
Gear^.dX:= Gear^.dX * _0_999; |
|
1082 |
end; |
|
1083 |
||
1084 |
if (Gear^.State and gstMoving) <> 0 then |
|
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1085 |
if TestCollisionXKick(Gear, hwSign(Gear^.dX)) <> 0 then |
6581 | 1086 |
if not isFalling then |
1087 |
if hwAbs(Gear^.dX) > _0_01 then |
|
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1088 |
if (TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -1, hwSign(Gear^.dX)) = 0) and |
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1089 |
(TestCollisionYwithXYShift(Gear, hwSign(Gear^.dX) - hwRound(Gear^.dX), -1, -1) = 0) then |
6581 | 1090 |
begin |
1091 |
Gear^.X:= Gear^.X + Gear^.dX; |
|
1092 |
Gear^.dX:= Gear^.dX * _0_96; |
|
1093 |
Gear^.Y:= Gear^.Y - _1 |
|
1094 |
end |
|
1095 |
else |
|
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1096 |
if (TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -2, hwSign(Gear^.dX)) = 0) and |
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1097 |
(TestCollisionYwithXYShift(Gear, hwSign(Gear^.dX) - hwRound(Gear^.dX), -1, -1) = 0) then |
6581 | 1098 |
begin |
1099 |
Gear^.X:= Gear^.X + Gear^.dX; |
|
1100 |
Gear^.dX:= Gear^.dX * _0_93; |
|
1101 |
Gear^.Y:= Gear^.Y - _2 |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
1102 |
end |
6581 | 1103 |
else |
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1104 |
if (TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -3, hwSign(Gear^.dX)) = 0) and |
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1105 |
(TestCollisionYwithXYShift(Gear, hwSign(Gear^.dX) - hwRound(Gear^.dX), -1, -1) = 0) then |
6581 | 1106 |
begin |
1107 |
Gear^.X:= Gear^.X + Gear^.dX; |
|
1108 |
Gear^.dX:= Gear^.dX * _0_9 ; |
|
1109 |
Gear^.Y:= Gear^.Y - _3 |
|
1110 |
end |
|
1111 |
else |
|
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1112 |
if (TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -4, hwSign(Gear^.dX)) = 0) and |
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1113 |
(TestCollisionYwithXYShift(Gear, hwSign(Gear^.dX) - hwRound(Gear^.dX), -1, -1) = 0) then |
6581 | 1114 |
begin |
1115 |
Gear^.X:= Gear^.X + Gear^.dX; |
|
1116 |
Gear^.dX:= Gear^.dX * _0_87; |
|
1117 |
Gear^.Y:= Gear^.Y - _4 |
|
1118 |
end |
|
1119 |
else |
|
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1120 |
if (TestCollisionXwithXYShift(Gear, int2hwFloat(hwSign(Gear^.dX)) - Gear^.dX, -5, hwSign(Gear^.dX)) = 0) and |
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1121 |
(TestCollisionYwithXYShift(Gear, hwSign(Gear^.dX) - hwRound(Gear^.dX), -1, -1) = 0) then |
6581 | 1122 |
begin |
1123 |
Gear^.X:= Gear^.X + Gear^.dX; |
|
1124 |
Gear^.dX:= Gear^.dX * _0_84; |
|
1125 |
Gear^.Y:= Gear^.Y - _5 |
|
1126 |
end |
|
1127 |
else |
|
1128 |
if hwAbs(Gear^.dX) > _0_02 then |
|
1129 |
Gear^.dX:= -Gear^.Elasticity * Gear^.dX |
|
1130 |
else |
|
1131 |
begin |
|
1132 |
Gear^.State:= Gear^.State and (not gstMoving); |
|
11489 | 1133 |
cnt:= 0; |
1134 |
while (cnt < 6) and (not CheckGearDrowning(Gear)) and (Gear <> nil) and (TestCollisionYWithGear(Gear,1) = 0) do |
|
1135 |
begin |
|
1136 |
Gear^.Y:= Gear^.Y + _1; |
|
1137 |
inc(cnt) |
|
1138 |
end; |
|
1139 |
||
6581 | 1140 |
SetLittle(Gear^.dX) |
1141 |
end |
|
1142 |
else |
|
1143 |
begin |
|
1144 |
Gear^.State:= Gear^.State and (not gstMoving); |
|
11489 | 1145 |
cnt:= 0; |
1146 |
while (cnt < 6) and (not CheckGearDrowning(Gear)) and (Gear <> nil) and (TestCollisionYWithGear(Gear,1) = 0) do |
|
1147 |
begin |
|
1148 |
Gear^.Y:= Gear^.Y + _1; |
|
1149 |
inc(cnt) |
|
1150 |
end; |
|
6581 | 1151 |
SetLittle(Gear^.dX) |
1152 |
end |
|
1153 |
else if (hwAbs(Gear^.dX) > cLittle) |
|
1154 |
and ((Gear^.State and gstHHJumping) = 0) then |
|
1155 |
Gear^.dX:= -Gear^.Elasticity * Gear^.dX |
|
1156 |
else |
|
1157 |
SetLittle(Gear^.dX); |
|
1158 |
||
1159 |
if (not isFalling) |
|
7362
53bcfc714cb3
Fix rare condition when hog's gear stucks in an infinite loop which adds 1 to its Y coordinate not checking for drowning
unc0rr
parents:
7339
diff
changeset
|
1160 |
and (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then |
6581 | 1161 |
begin |
1162 |
Gear^.State:= Gear^.State and (not gstWinner); |
|
1163 |
Gear^.State:= Gear^.State and (not gstMoving); |
|
11489 | 1164 |
cnt:= 0; |
1165 |
while (cnt < 6) and (not CheckGearDrowning(Gear)) and (Gear <> nil) and (TestCollisionYWithGear(Gear,1) = 0) do |
|
1166 |
begin |
|
8947
e906ebd59612
CheckGearDrowning could delete hedgehogs gear! (CheckGearDrowning -> ResurrectHedgehog -> FindPlace). Fixes bug 620.
unc0rr
parents:
8818
diff
changeset
|
1167 |
Gear^.Y:= Gear^.Y + _1; |
11489 | 1168 |
inc(cnt) |
1169 |
end; |
|
8947
e906ebd59612
CheckGearDrowning could delete hedgehogs gear! (CheckGearDrowning -> ResurrectHedgehog -> FindPlace). Fixes bug 620.
unc0rr
parents:
8818
diff
changeset
|
1170 |
|
e906ebd59612
CheckGearDrowning could delete hedgehogs gear! (CheckGearDrowning -> ResurrectHedgehog -> FindPlace). Fixes bug 620.
unc0rr
parents:
8818
diff
changeset
|
1171 |
// could become nil in CheckGearDrowning if ai's hog fails to respawn in ai survival |
e906ebd59612
CheckGearDrowning could delete hedgehogs gear! (CheckGearDrowning -> ResurrectHedgehog -> FindPlace). Fixes bug 620.
unc0rr
parents:
8818
diff
changeset
|
1172 |
if Gear = nil then exit; |
6581 | 1173 |
SetLittle(Gear^.dX); |
1174 |
Gear^.dY:= _0 |
|
1175 |
end |
|
1176 |
else |
|
1177 |
Gear^.State:= Gear^.State or gstMoving; |
|
1178 |
||
1179 |
if (Gear^.State and gstMoving) <> 0 then |
|
1180 |
begin |
|
1181 |
Gear^.State:= Gear^.State and (not gstAnimation); |
|
1182 |
// ARTILLERY but not being moved by explosions |
|
1183 |
Gear^.X:= Gear^.X + Gear^.dX; |
|
1184 |
Gear^.Y:= Gear^.Y + Gear^.dY; |
|
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1185 |
if (not Gear^.dY.isNegative) and (TestCollisionYKick(Gear, 1) = 0) then |
6581 | 1186 |
begin |
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1187 |
land:= TestCollisionYwithXYShift(Gear, 0, 1, 1); |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1188 |
if land and lfBouncy <> 0 then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1189 |
doStepFallingGear(Gear); |
10895
bce67defd804
Make bouncing a bit less wtf for various gears tested (hog, 'zooka, saucer hog, drill strike). Less hacky is another matter.
nemo
parents:
10818
diff
changeset
|
1190 |
Gear^.AdvBounce:= 1; |
9731
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1191 |
|
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1192 |
if (land <> 0) and ((land and lfBouncy = 0) or (Gear^.State and gstCollision <> 0)) then |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1193 |
begin |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1194 |
CheckHHDamage(Gear); |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1195 |
Gear^.dY:= _0; |
953197ac43d8
Make sticky mine respect lfBouncy, make hogs do same, kinda... make uCollisions return land w/ mask, restrict bouncy to advbounce gears only, which means piano doesn't bounce anymore
nemo
parents:
9706
diff
changeset
|
1196 |
Gear^.Y:= Gear^.Y + _1 |
9795
487e5675061f
clear gstCollision from doStepFallingGear once I'm done with it. hog "physics" doesn't use it, and was screwing up labels
nemo
parents:
9776
diff
changeset
|
1197 |
end; |
9954 | 1198 |
Gear^.State:= Gear^.State and (not gstCollision) |
6581 | 1199 |
end; |
8947
e906ebd59612
CheckGearDrowning could delete hedgehogs gear! (CheckGearDrowning -> ResurrectHedgehog -> FindPlace). Fixes bug 620.
unc0rr
parents:
8818
diff
changeset
|
1200 |
|
e906ebd59612
CheckGearDrowning could delete hedgehogs gear! (CheckGearDrowning -> ResurrectHedgehog -> FindPlace). Fixes bug 620.
unc0rr
parents:
8818
diff
changeset
|
1201 |
// could become nil if ai's hog fails to respawn in ai survival |
e906ebd59612
CheckGearDrowning could delete hedgehogs gear! (CheckGearDrowning -> ResurrectHedgehog -> FindPlace). Fixes bug 620.
unc0rr
parents:
8818
diff
changeset
|
1202 |
if Gear = nil then exit; |
6581 | 1203 |
// hide target cursor if current hog is drowning |
1204 |
if (Gear^.State and gstDrowning) <> 0 then |
|
1205 |
if (CurrentHedgehog^.Gear = Gear) then |
|
1206 |
isCursorVisible:= false |
|
1207 |
end; |
|
7623
addc5b262617
isZero appears to be never used. Use it in a few obvious cases and add web variant.
nemo
parents:
7615
diff
changeset
|
1208 |
if (not isZero(Gear^.dY)) and (Gear^.FlightTime > 0) and ((GameFlags and gfLowGravity) = 0) then |
6581 | 1209 |
begin |
1210 |
inc(Gear^.FlightTime); |
|
8003 | 1211 |
if (Gear^.FlightTime > 1500) and ((hwRound(Gear^.X) < LongInt(leftX)-250) or (hwRound(Gear^.X) > LongInt(rightX)+250)) then |
6581 | 1212 |
begin |
7763 | 1213 |
Gear^.FlightTime:= 0; |
12189
50856782cdc4
Add support for hog name in home run message
Wuzzy <almikes@aol.com>
parents:
12174
diff
changeset
|
1214 |
s:= ansistring(CurrentHedgehog^.Name); |
50856782cdc4
Add support for hog name in home run message
Wuzzy <almikes@aol.com>
parents:
12174
diff
changeset
|
1215 |
AddCaption(FormatA(GetEventString(eidHomerun), s), cWhiteColor, capgrpMessage); |
6581 | 1216 |
PlaySound(sndHomerun) |
1217 |
end; |
|
1218 |
end |
|
1219 |
else |
|
1220 |
begin |
|
1221 |
uStats.hedgehogFlight(Gear, Gear^.FlightTime); |
|
1222 |
Gear^.FlightTime:= 0; |
|
1223 |
end; |
|
1224 |
||
1225 |
end; |
|
1226 |
||
1227 |
procedure doStepHedgehogDriven(HHGear: PGear); |
|
1228 |
var t: PGear; |
|
1229 |
wasJumping: boolean; |
|
1230 |
Hedgehog: PHedgehog; |
|
12174
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1231 |
s: ansistring; |
6581 | 1232 |
begin |
1233 |
Hedgehog:= HHGear^.Hedgehog; |
|
8658 | 1234 |
if not isInMultiShoot then |
1235 |
AllInactive:= false |
|
1236 |
else if Hedgehog^.CurAmmoType in [amShotgun, amDEagle, amSniperRifle] then |
|
12436
031af5544333
bug #230 - Precise aiming is disabled after firing first Deagle shot (when held down)
nemo
parents:
12327
diff
changeset
|
1237 |
HHGear^.Message:= HHGear^.Message and gmPrecise; |
6581 | 1238 |
|
8330 | 1239 |
if ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Utility) <> 0) and isInMultiShoot then |
6581 | 1240 |
AllInactive:= true |
7786
23a075cf4837
*sigh* revert the multishoot thingy. worked fine in my tests w/ smine and cleaver, screwed up deagle. need to find out why, but sleepy. for later
nemo
parents:
7783
diff
changeset
|
1241 |
else if not isInMultiShoot then |
6581 | 1242 |
AllInactive:= false; |
1243 |
||
12291
b4dde7035fe2
New Lua call: EndTurn to end turn
Wuzzy <almikes@aol.com>
parents:
12209
diff
changeset
|
1244 |
if (TurnTimeLeft = 0) or (HHGear^.Damage > 0) or (LuaEndTurnRequested = true) then |
6581 | 1245 |
begin |
8494
53b91a602955
Cleaver tweaks based on feedback. Nerf damage, shrink radius. This means cleaver will embed into ground quite a bit further.
nemo
parents:
8493
diff
changeset
|
1246 |
if (Hedgehog^.CurAmmoType = amKnife) then |
53b91a602955
Cleaver tweaks based on feedback. Nerf damage, shrink radius. This means cleaver will embed into ground quite a bit further.
nemo
parents:
8493
diff
changeset
|
1247 |
LoadHedgehogHat(Hedgehog^, Hedgehog^.Hat); |
6581 | 1248 |
if TagTurnTimeLeft = 0 then |
1249 |
TagTurnTimeLeft:= TurnTimeLeft; |
|
1250 |
TurnTimeLeft:= 0; |
|
12846
afd312fc270d
infinite attack resets flags so probably should skip this
nemo
parents:
12820
diff
changeset
|
1251 |
if (GameOver = false) and ((GameFlags and gfInfAttack) = 0) and ((HHGear^.State and gstAttacked) = 0) and (HHGear^.Damage = 0) and (LuaNoEndTurnTaunts = false) then |
12174
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1252 |
begin |
11927
d0296b8e60c0
Add “boring” voice to voice queue to avoid voice overlapping
Wuzzy <almikes@aol.com>
parents:
11919
diff
changeset
|
1253 |
AddVoice(sndBoring, Hedgehog^.Team^.voicepack); |
12174
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1254 |
if (GameFlags and gfInfAttack = 0) then |
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1255 |
begin |
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1256 |
s:= Hedgehog^.Name; |
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1257 |
AddCaption(FormatA(GetEventString(eidTimeout), s), cWhiteColor, capgrpMessage); |
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1258 |
end; |
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1259 |
end; |
6581 | 1260 |
isCursorVisible:= false; |
1261 |
HHGear^.State:= HHGear^.State and (not (gstHHDriven or gstAnimation or gstAttacking)); |
|
1262 |
AttackBar:= 0; |
|
12497
47be9f3e61e9
Fix charging sound continuing to play on hog damage (#236)
Wuzzy <almikes@aol.com>
parents:
12469
diff
changeset
|
1263 |
StopSound(sndThrowPowerUp); |
12291
b4dde7035fe2
New Lua call: EndTurn to end turn
Wuzzy <almikes@aol.com>
parents:
12209
diff
changeset
|
1264 |
LuaEndTurnRequested:= false; |
b4dde7035fe2
New Lua call: EndTurn to end turn
Wuzzy <almikes@aol.com>
parents:
12209
diff
changeset
|
1265 |
LuaNoEndTurnTaunts:= false; |
6581 | 1266 |
if HHGear^.Damage > 0 then |
1267 |
HHGear^.State:= HHGear^.State and (not (gstHHJumping or gstHHHJump)); |
|
1268 |
exit |
|
1269 |
end; |
|
1270 |
||
9670
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
1271 |
if isAFK and (not CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel = 0) then |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
1272 |
begin |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
1273 |
AFKSkip; |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
1274 |
exit |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
1275 |
end; |
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
1276 |
|
6581 | 1277 |
if (HHGear^.State and gstAnimation) <> 0 then |
1278 |
begin |
|
1279 |
HHGear^.Message:= 0; |
|
1280 |
if (HHGear^.Pos = Wavez[TWave(HHGear^.Tag)].VoiceDelay) and (HHGear^.Timer = 0) then |
|
7053 | 1281 |
PlaySoundV(Wavez[TWave(HHGear^.Tag)].Voice, Hedgehog^.Team^.voicepack); |
6581 | 1282 |
inc(HHGear^.Timer); |
1283 |
if HHGear^.Timer = Wavez[TWave(HHGear^.Tag)].Interval then |
|
1284 |
begin |
|
1285 |
HHGear^.Timer:= 0; |
|
1286 |
inc(HHGear^.Pos); |
|
1287 |
if HHGear^.Pos = Wavez[TWave(HHGear^.Tag)].FramesCount then |
|
1288 |
HHGear^.State:= HHGear^.State and (not gstAnimation) |
|
1289 |
end; |
|
1290 |
exit |
|
1291 |
end; |
|
1292 |
||
1293 |
if ((HHGear^.State and gstMoving) <> 0) |
|
7028 | 1294 |
or (GHStepTicks = cHHStepTicks) |
6581 | 1295 |
or (CurAmmoGear <> nil) then // we are moving |
1296 |
begin |
|
1297 |
with Hedgehog^ do |
|
1298 |
if (CurAmmoGear = nil) |
|
1299 |
and (HHGear^.dY > _0_39) |
|
1300 |
and (CurAmmoType = amParachute) then |
|
1301 |
HHGear^.Message:= HHGear^.Message or gmAttack; |
|
1302 |
// check for case with ammo |
|
1303 |
t:= CheckGearNear(HHGear, gtCase, 36, 36); |
|
11629 | 1304 |
if (t <> nil) then |
6581 | 1305 |
PickUp(HHGear, t) |
1306 |
end; |
|
1307 |
||
1308 |
if (CurAmmoGear = nil) then |
|
1309 |
if (((HHGear^.Message and gmAttack) <> 0) |
|
1310 |
or ((HHGear^.State and gstAttacking) <> 0)) then |
|
1311 |
Attack(HHGear) // should be before others to avoid desync with '/put' msg and changing weapon msgs |
|
1312 |
else |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
1313 |
else |
6581 | 1314 |
with Hedgehog^ do |
1315 |
if ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0) |
|
1316 |
and ((HHGear^.Message and gmLJump) <> 0) |
|
1317 |
and ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_AltUse) <> 0) then |
|
1318 |
begin |
|
1319 |
Attack(HHGear); |
|
1320 |
HHGear^.Message:= HHGear^.Message and (not gmLJump) |
|
1321 |
end; |
|
1322 |
||
1323 |
if (CurAmmoGear = nil) |
|
7956
61da79e83330
Causes AI fail. Needs testing 'cause at some point, I thought this was needed for portal, I don't remember *why*
nemo
parents:
7832
diff
changeset
|
1324 |
or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) <> 0) then |
6581 | 1325 |
begin |
1326 |
if ((HHGear^.Message and gmSlot) <> 0) then |
|
12309
95cd64676f73
Backed out changeset 071a05275798
Wuzzy <almikes@aol.com>
parents:
12308
diff
changeset
|
1327 |
if ChangeAmmo(HHGear) then ApplyAmmoChanges(Hedgehog^); |
6581 | 1328 |
|
1329 |
if ((HHGear^.Message and gmWeapon) <> 0) then |
|
1330 |
HHSetWeapon(HHGear); |
|
1331 |
||
1332 |
if ((HHGear^.Message and gmTimer) <> 0) then |
|
1333 |
HHSetTimer(HHGear); |
|
1334 |
end; |
|
1335 |
||
1336 |
if CurAmmoGear <> nil then |
|
1337 |
begin |
|
1338 |
CurAmmoGear^.Message:= HHGear^.Message; |
|
1339 |
exit |
|
1340 |
end; |
|
1341 |
||
1342 |
HedgehogChAngle(HHGear); |
|
1343 |
||
1344 |
if (HHGear^.State and gstMoving) <> 0 then |
|
1345 |
begin |
|
1346 |
wasJumping:= ((HHGear^.State and gstHHJumping) <> 0); |
|
1347 |
||
1348 |
if ((HHGear^.Message and gmHJump) <> 0) and wasJumping and ((HHGear^.State and gstHHHJump) = 0) then |
|
1349 |
if (not (hwAbs(HHGear^.dX) > cLittle)) and (HHGear^.dY < -_0_02) then |
|
1350 |
begin |
|
1351 |
HHGear^.State:= HHGear^.State or gstHHHJump; |
|
1352 |
HHGear^.dY:= -_0_25; |
|
13101
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
1353 |
if (Hedgehog^.Effects[heArtillery] = 0) then |
6581 | 1354 |
HHGear^.dX:= -SignAs(_0_02, HHGear^.dX); |
7053 | 1355 |
PlaySoundV(sndJump2, Hedgehog^.Team^.voicepack) |
6581 | 1356 |
end; |
1357 |
||
1358 |
HHGear^.Message:= HHGear^.Message and (not (gmLJump or gmHJump)); |
|
1359 |
||
13101
d78e65c66573
Add hedgehog effect heArtillery, allows to set per-hedgehog artillery mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13001
diff
changeset
|
1360 |
if (Hedgehog^.Effects[heArtillery] = 0) and wasJumping and (TestCollisionXwithGear(HHGear, hwSign(HHGear^.dX)) <> 0) then |
6581 | 1361 |
SetLittle(HHGear^.dX); |
1362 |
||
1363 |
if Hedgehog^.Gear <> nil then |
|
1364 |
doStepHedgehogMoving(HHGear); |
|
1365 |
||
1366 |
if ((HHGear^.State and (gstMoving or gstDrowning)) = 0) then |
|
1367 |
begin |
|
9291
15f7bb217b66
Make add/delete consistent (this has bugged me for so long)
nemo
parents:
9285
diff
changeset
|
1368 |
AddCI(HHGear); |
6581 | 1369 |
if wasJumping then |
7028 | 1370 |
GHStepTicks:= 410 |
6581 | 1371 |
else |
7028 | 1372 |
GHStepTicks:= 95 |
6581 | 1373 |
end; |
1374 |
exit |
|
1375 |
end; |
|
1376 |
||
8562
d9d1cb650ff8
Restore freezing hedgehog for shotgun, sniper rifle and deagle to make unc0rr happy. You'll still be able to get away after throwing cleaver and sticky bomb tho.
nemo
parents:
8553
diff
changeset
|
1377 |
if not(isInMultiShoot and (Hedgehog^.CurAmmoType in [amShotgun, amDEagle, amSniperRifle])) and (Hedgehog^.Gear <> nil) then |
6581 | 1378 |
begin |
7028 | 1379 |
if GHStepTicks > 0 then |
1380 |
dec(GHStepTicks); |
|
1381 |
if (GHStepTicks = 0) then |
|
6581 | 1382 |
HedgehogStep(HHGear) |
1383 |
end |
|
1384 |
end; |
|
1385 |
||
1386 |
//////////////////////////////////////////////////////////////////////////////// |
|
1387 |
procedure doStepHedgehogFree(Gear: PGear); |
|
1388 |
var prevState: Longword; |
|
10124
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10123
diff
changeset
|
1389 |
s: ansistring; |
6581 | 1390 |
begin |
1391 |
prevState:= Gear^.State; |
|
1392 |
||
1393 |
doStepHedgehogMoving(Gear); |
|
1394 |
||
1395 |
if (Gear^.State and (gstMoving or gstDrowning)) <> 0 then |
|
1396 |
begin |
|
1397 |
if Gear^.Damage > 0 then |
|
1398 |
CalcRotationDirAngle(Gear); |
|
1399 |
AllInactive:= false; |
|
1400 |
exit |
|
1401 |
end; |
|
1402 |
||
1403 |
if (Gear^.Health = 0) then |
|
1404 |
begin |
|
1405 |
if PrvInactive or ((GameFlags and gfInfAttack) <> 0) then |
|
1406 |
begin |
|
1407 |
Gear^.Timer:= 0; |
|
1408 |
FollowGear:= Gear; |
|
1409 |
PrvInactive:= false; |
|
1410 |
AllInactive:= false; |
|
1411 |
||
1412 |
if (Gear^.State and gstHHGone) = 0 then |
|
1413 |
begin |
|
7010
10a0a31804f3
Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents:
6992
diff
changeset
|
1414 |
Gear^.Hedgehog^.Effects[hePoisoned] := 0; |
10a0a31804f3
Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents:
6992
diff
changeset
|
1415 |
if Gear^.Hedgehog^.Effects[heResurrectable] <> 0 then |
6581 | 1416 |
begin |
1417 |
ResurrectHedgehog(Gear); |
|
1418 |
end |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
1419 |
else |
6581 | 1420 |
begin |
1421 |
Gear^.State:= (Gear^.State or gstHHDeath) and (not gstAnimation); |
|
1422 |
Gear^.doStep:= @doStepHedgehogDead; |
|
1423 |
// Death message |
|
10124
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10123
diff
changeset
|
1424 |
s:= ansistring(Gear^.Hedgehog^.Name); |
12174
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1425 |
if Gear^.Hedgehog^.King then |
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1426 |
AddCaption(FormatA(GetEventString(eidKingDied), s), cWhiteColor, capgrpMessage) |
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1427 |
else |
869cf5f34700
More ticker messages: Sick, king died, resurrect, time box return, timeout, kamikaze
Wuzzy <almikes@aol.com>
parents:
12053
diff
changeset
|
1428 |
AddCaption(FormatA(GetEventString(eidDied), s), cWhiteColor, capgrpMessage); |
6581 | 1429 |
end; |
1430 |
end |
|
1431 |
else |
|
1432 |
begin |
|
1433 |
Gear^.State:= Gear^.State and (not gstAnimation); |
|
1434 |
Gear^.doStep:= @doStepHedgehogGone; |
|
1435 |
||
1436 |
// Gone message |
|
10124
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10123
diff
changeset
|
1437 |
s:= ansistring(Gear^.Hedgehog^.Name); |
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10123
diff
changeset
|
1438 |
AddCaption(FormatA(GetEventString(eidGone), s), cWhiteColor, capgrpMessage); |
6581 | 1439 |
end |
1440 |
end; |
|
1441 |
exit |
|
1442 |
end; |
|
1443 |
||
1444 |
if ((Gear^.State and gstWait) = 0) and |
|
1445 |
(prevState <> Gear^.State) then |
|
1446 |
begin |
|
1447 |
Gear^.State:= Gear^.State or gstWait; |
|
1448 |
Gear^.Timer:= 150 |
|
1449 |
end |
|
1450 |
else |
|
1451 |
begin |
|
1452 |
if Gear^.Timer = 0 then |
|
1453 |
begin |
|
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
1454 |
Gear^.State:= Gear^.State and (not (gstWait or gstLoser or gstWinner or gstAttacked or gstNotKickable or gstChooseTarget)); |
8563
4d9d8287e601
Trying to improve rendering, sliding and thawing. Messing around w/ making fire thaw faster.
nemo
parents:
8560
diff
changeset
|
1455 |
if Gear^.Hedgehog^.Effects[heFrozen] = 0 then Gear^.Active:= false; |
9291
15f7bb217b66
Make add/delete consistent (this has bugged me for so long)
nemo
parents:
9285
diff
changeset
|
1456 |
AddCI(Gear); |
6581 | 1457 |
exit |
1458 |
end |
|
1459 |
else dec(Gear^.Timer) |
|
1460 |
end; |
|
1461 |
||
1462 |
AllInactive:= false |
|
1463 |
end; |
|
1464 |
||
8574 | 1465 |
procedure CheckIce(Gear: PGear); inline; |
6581 | 1466 |
(* |
1467 |
var x,y,tx,ty: LongInt; |
|
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
1468 |
tdX, tdY, slope: hwFloat; |
6581 | 1469 |
land: Word; *) |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
1470 |
var slope: hwFloat; |
6581 | 1471 |
begin |
8574 | 1472 |
if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1473 |
and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) |
|
8633 | 1474 |
and ((Gear^.Hedgehog = nil) or ((Gear^.Hedgehog^.Effects[heFrozen] = 0) or (Gear^.Hedgehog^.Effects[heFrozen] > 255))) |
9672
8663d299ba62
this should prevent sliding when game clock isn't running. sorry unc0rr, not going to bother encapsulating. maybe later. short on time right now/lazy
nemo
parents:
9670
diff
changeset
|
1475 |
and (not Gear^.dY.isNegative) and TurnClockActive and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
8574 | 1476 |
begin |
1477 |
slope:= CalcSlopeBelowGear(Gear); |
|
1478 |
if slope.QWordValue > 730144440 then // ignore mild slopes |
|
1479 |
begin |
|
1480 |
Gear^.dX:=Gear^.dX+slope*cGravity*_256; |
|
1481 |
Gear^.State:= Gear^.State or gstMoving |
|
1482 |
end |
|
1483 |
end; |
|
1484 |
(* |
|
1485 |
x:= hwRound(Gear^.X); |
|
1486 |
y:= hwRound(Gear^.Y); |
|
1487 |
AddVisualGear(x, y, vgtSmokeTrace); |
|
1488 |
AddVisualGear(x - hwRound(_5*slope), y + hwRound(_5*slope), vgtSmokeTrace); |
|
1489 |
AddVisualGear(x + hwRound(_5*slope), y - hwRound(_5*slope), vgtSmokeTrace); |
|
1490 |
AddVisualGear(x - hwRound(_20 * slope), y + hwRound(_20 * slope), vgtSmokeTrace); |
|
1491 |
AddVisualGear(x + hwRound(_20 * slope), y - hwRound(_20 * slope), vgtSmokeTrace); |
|
1492 |
AddVisualGear(x - hwRound(_30 * slope), y + hwRound(_30 * slope), vgtSmokeTrace); |
|
1493 |
AddVisualGear(x + hwRound(_30 * slope), y - hwRound(_30 * slope), vgtSmokeTrace); |
|
1494 |
AddVisualGear(x - hwRound(_40 * slope), y + hwRound(_40 * slope), vgtSmokeTrace); |
|
1495 |
AddVisualGear(x + hwRound(_40 * slope), y - hwRound(_40 * slope), vgtSmokeTrace); |
|
1496 |
AddVisualGear(x - hwRound(_50 * slope), y + hwRound(_50 * slope), vgtSmokeTrace); |
|
1497 |
AddVisualGear(x + hwRound(_50 * slope), y - hwRound(_50 * slope), vgtSmokeTrace); *) |
|
1498 |
end; |
|
1499 |
||
1500 |
//////////////////////////////////////////////////////////////////////////////// |
|
1501 |
procedure doStepHedgehog(Gear: PGear); |
|
9526 | 1502 |
var tX: hwFloat; |
8574 | 1503 |
begin |
10577
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
1504 |
// it might make sense to skip more than just drowning check here |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
1505 |
if (not Gear^.Hedgehog^.Unplaced) then |
5e075da5e0a4
don't drown unplaced hedgehogs. thanks to zimmux and Wohlstand for reporting
sheepluva
parents:
10443
diff
changeset
|
1506 |
CheckGearDrowning(Gear); |
9917 | 1507 |
if Gear = nil then exit; |
9526 | 1508 |
tX:= Gear^.X; |
1509 |
if WorldWrap(Gear) then |
|
1510 |
begin |
|
10015 | 1511 |
if (WorldEdge <> weBounce) and (Gear = CurrentHedgehog^.Gear) and |
9539 | 1512 |
(CurAmmoGear <> nil) and (CurAmmoGear^.Kind =gtRope) and (CurAmmoGear^.Elasticity <> _0) then |
9526 | 1513 |
CurAmmoGear^.PortalCounter:= 1; |
9706
5178d2263521
return land word from uCollisions to make decisions based on it. Should be handy for trampoline.
nemo
parents:
9685
diff
changeset
|
1514 |
if (WorldEdge = weWrap) and ((TestCollisionXwithGear(Gear, 1) <> 0) or (TestCollisionXwithGear(Gear, -1) <> 0)) then |
9526 | 1515 |
begin |
1516 |
Gear^.X:= tX; |
|
9809 | 1517 |
Gear^.dX.isNegative:= (hwRound(tX) > LongInt(leftX) + Gear^.Radius * 2) |
9526 | 1518 |
end |
1519 |
end; |
|
9507 | 1520 |
|
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:
7375
diff
changeset
|
1521 |
CheckSum:= CheckSum xor Gear^.Hedgehog^.BotLevel; |
6581 | 1522 |
if (Gear^.Message and gmDestroy) <> 0 then |
1523 |
begin |
|
1524 |
DeleteGear(Gear); |
|
1525 |
exit |
|
1526 |
end; |
|
9670
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9664
diff
changeset
|
1527 |
if GameTicks mod 128 = 0 then CheckIce(Gear); |
8655
9fa380a18a65
At multiple requests, change ice to be turn based. This is a more modest adjustment of existing code, that can be fairly easily flagged or reverted if desired. It also allows scripts to extend freezing, and preserves fire melting.
nemo
parents:
8633
diff
changeset
|
1528 |
(* |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
1529 |
if Gear^.Hedgehog^.Effects[heFrozen] > 0 then |
8563
4d9d8287e601
Trying to improve rendering, sliding and thawing. Messing around w/ making fire thaw faster.
nemo
parents:
8560
diff
changeset
|
1530 |
begin |
8632
b5ed76d2a1f9
Make hogs thaw only on enemy turns, make timebox counter decrement only on your turn, adjust knock for frozen hogs, increase damage on frozen hogs, make freezer fuel only reduce when not adjusting angle.
nemo
parents:
8631
diff
changeset
|
1531 |
if (Gear^.Hedgehog^.Effects[heFrozen] > 256) and (CurrentHedgehog^.Team^.Clan <> Gear^.Hedgehog^.Team^.Clan) then |
8563
4d9d8287e601
Trying to improve rendering, sliding and thawing. Messing around w/ making fire thaw faster.
nemo
parents:
8560
diff
changeset
|
1532 |
dec(Gear^.Hedgehog^.Effects[heFrozen]) |
4d9d8287e601
Trying to improve rendering, sliding and thawing. Messing around w/ making fire thaw faster.
nemo
parents:
8560
diff
changeset
|
1533 |
else if GameTicks mod 10 = 0 then |
4d9d8287e601
Trying to improve rendering, sliding and thawing. Messing around w/ making fire thaw faster.
nemo
parents:
8560
diff
changeset
|
1534 |
dec(Gear^.Hedgehog^.Effects[heFrozen]) |
4d9d8287e601
Trying to improve rendering, sliding and thawing. Messing around w/ making fire thaw faster.
nemo
parents:
8560
diff
changeset
|
1535 |
end; |
8655
9fa380a18a65
At multiple requests, change ice to be turn based. This is a more modest adjustment of existing code, that can be fairly easily flagged or reverted if desired. It also allows scripts to extend freezing, and preserves fire melting.
nemo
parents:
8633
diff
changeset
|
1536 |
*) |
8795
b5b79a8f9354
merge correction, also what's with all those trailing whitespaces?
koda
parents:
8774
diff
changeset
|
1537 |
if (GameTicks mod 10 = 0) and (Gear^.Hedgehog^.Effects[heFrozen] > 0) and (Gear^.Hedgehog^.Effects[heFrozen] < 256) then |
8655
9fa380a18a65
At multiple requests, change ice to be turn based. This is a more modest adjustment of existing code, that can be fairly easily flagged or reverted if desired. It also allows scripts to extend freezing, and preserves fire melting.
nemo
parents:
8633
diff
changeset
|
1538 |
dec(Gear^.Hedgehog^.Effects[heFrozen]); |
6581 | 1539 |
if (Gear^.State and gstHHDriven) = 0 then |
1540 |
doStepHedgehogFree(Gear) |
|
1541 |
else |
|
1542 |
begin |
|
1543 |
with Gear^.Hedgehog^ do |
|
1544 |
if Team^.hasGone then |
|
1545 |
TeamGoneEffect(Team^) |
|
1546 |
else |
|
1547 |
doStepHedgehogDriven(Gear) |
|
1548 |
end; |
|
1549 |
end; |
|
1550 |
||
12820
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1551 |
procedure PlayTaunt(taunt: Longword); |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1552 |
begin |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1553 |
if CurrentHedgehog^.Gear <> nil then |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1554 |
with CurrentHedgehog^.Gear^ do |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1555 |
begin |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1556 |
Message:= Message or (gmAnimate and InputMask); |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1557 |
MsgParam:= taunt; |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1558 |
ScriptCall('onTaunt', MsgParam); |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1559 |
end |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1560 |
end; |
92218a06c9ff
Don't send taunt message for automatically happening taunt animation
unc0rr
parents:
12654
diff
changeset
|
1561 |
|
6581 | 1562 |
end. |