author | unc0rr |
Fri, 30 Oct 2009 19:28:44 +0000 | |
changeset 2594 | 0047e16dbacb |
parent 2461 | 5e58b1e3210b |
child 2599 | c7153d2348f3 |
permissions | -rw-r--r-- |
393 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
883 | 3 |
* Copyright (c) 2006-2008 Andrey Korotaev <unC0Rr@gmail.com> |
393 | 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 |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
17 |
*) |
|
18 |
||
288 | 19 |
unit uAmmos; |
20 |
interface |
|
534 | 21 |
uses uConsts, uTeams; |
288 | 22 |
{$INCLUDE options.inc} |
23 |
||
24 |
procedure AddAmmoStore(s: shortstring); |
|
25 |
procedure AssignStores; |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
26 |
procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
27 |
function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
371 | 28 |
procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
534 | 29 |
procedure OnUsedAmmo(var Hedgehog: THedgehog); |
1964 | 30 |
procedure ApplyAngleBounds(var Hedgehog: THedgehog; AmmoType: TAmmoType); |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
31 |
procedure ApplyAmmoChanges(var Hedgehog: THedgehog); |
1922 | 32 |
procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog); |
783 | 33 |
procedure SetWeapon(weap: TAmmoType); |
1784 | 34 |
procedure DisableSomeWeapons; |
288 | 35 |
|
1966 | 36 |
var shoppa: Boolean = false; |
37 |
||
288 | 38 |
implementation |
783 | 39 |
uses uMisc, uGears, uWorld, uLocale, uConsole; |
295 | 40 |
type TAmmoCounts = array[TAmmoType] of Longword; |
288 | 41 |
var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo; |
42 |
StoreCnt: Longword = 0; |
|
43 |
||
295 | 44 |
procedure FillAmmoStore(Ammo: PHHAmmo; var cnts: TAmmoCounts); |
288 | 45 |
var mi: array[0..cMaxSlotIndex] of byte; |
46 |
a: TAmmoType; |
|
295 | 47 |
begin |
48 |
FillChar(mi, sizeof(mi), 0); |
|
49 |
FillChar(Ammo^, sizeof(Ammo^), 0); |
|
50 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
|
51 |
if cnts[a] > 0 then |
|
52 |
begin |
|
53 |
TryDo(mi[Ammoz[a].Slot] <= cMaxSlotAmmoIndex, 'Ammo slot overflow', true); |
|
351 | 54 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo; |
55 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= cnts[a]; |
|
295 | 56 |
inc(mi[Ammoz[a].Slot]) |
57 |
end |
|
58 |
end; |
|
59 |
||
60 |
procedure AddAmmoStore(s: shortstring); |
|
2370 | 61 |
const probability: array [0..8] of LongWord = (0,20,30,60,100,150,200,400,600); |
295 | 62 |
var cnt: Longword; |
63 |
a: TAmmoType; |
|
64 |
ammos: TAmmoCounts; |
|
2453
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
65 |
substr: shortstring; // TEMPORARY |
288 | 66 |
begin |
2370 | 67 |
TryDo(byte(s[0]) = byte(ord(High(TAmmoType))) * 2, 'Invalid ammo scheme (incompatible frontend)', true); |
288 | 68 |
|
2453
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
69 |
// FIXME - TEMPORARY hardcoded check on shoppa pending creation of crate *type* probability editor |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
70 |
substr:= Copy(s,1,15); |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
71 |
if (substr = '000000990000009') or |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
72 |
(substr = '000000990000000') then |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
73 |
shoppa:= true; |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
74 |
|
288 | 75 |
inc(StoreCnt); |
76 |
TryDo(StoreCnt <= cMaxHHs, 'Ammo stores overflow', true); |
|
77 |
||
78 |
new(StoresList[Pred(StoreCnt)]); |
|
79 |
||
80 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
|
81 |
begin |
|
2357
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
82 |
if a <> amNothing then |
1895 | 83 |
begin |
2370 | 84 |
Ammoz[a].Probability:= probability[byte(s[ord(a) + ord(High(TAmmoType))]) - byte('0')]; |
2434 | 85 |
if (TrainingFlags and tfIgnoreDelays) <> 0 then Ammoz[a].SkipTurns:= 0; |
2357
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
86 |
cnt:= byte(s[ord(a)]) - byte('0'); |
2370 | 87 |
// avoid things we already have infinite number |
2357
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
88 |
if cnt = 9 then |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
89 |
begin |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
90 |
cnt:= AMMO_INFINITE; |
2370 | 91 |
Ammoz[a].Probability:= 0 |
2357
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
92 |
end; |
2370 | 93 |
// avoid things we already have by scheme |
2461 | 94 |
// merge this into DisableSomeWeapons ? |
2357
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
95 |
if ((a = amLowGravity) and ((GameFlags and gfLowGravity) <> 0)) or |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
96 |
((a = amInvulnerable) and ((GameFlags and gfInvulnerable) <> 0)) or |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
97 |
((a = amLaserSight) and ((GameFlags and gfLaserSight) <> 0)) or |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
98 |
((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) then |
2128 | 99 |
begin |
2357
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
100 |
cnt:= 0; |
2370 | 101 |
Ammoz[a].Probability:= 0 |
102 |
end; |
|
2457
ecf0c7e7995b
Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets
nemo
parents:
2453
diff
changeset
|
103 |
ammos[a]:= cnt; |
ecf0c7e7995b
Initial molotov cocktail. Still needs graphics, tweaking of fire behaviour. Also changed probabilities for default weapon sets
nemo
parents:
2453
diff
changeset
|
104 |
if shoppa then Ammoz[a].NumberInCase:= 1; // FIXME - TEMPORARY remove when crate number in case editor is added |
2360
d4d545da9dbe
Ok. This time I think I have it. amNothing should work.
nemo
parents:
2357
diff
changeset
|
105 |
end else |
2370 | 106 |
ammos[a]:= AMMO_INFINITE |
288 | 107 |
end; |
295 | 108 |
|
109 |
FillAmmoStore(StoresList[Pred(StoreCnt)], ammos) |
|
288 | 110 |
end; |
111 |
||
112 |
function GetAmmoByNum(num: Longword): PHHAmmo; |
|
113 |
begin |
|
114 |
TryDo(num < StoreCnt, 'Invalid store number', true); |
|
351 | 115 |
exit(StoresList[num]) |
288 | 116 |
end; |
117 |
||
118 |
procedure AssignStores; |
|
547 | 119 |
var t: LongInt; |
288 | 120 |
i: Longword; |
121 |
begin |
|
547 | 122 |
for t:= 0 to Pred(TeamsCount) do |
123 |
with TeamsArray[t]^ do |
|
288 | 124 |
begin |
125 |
for i:= 0 to cMaxHHIndex do |
|
547 | 126 |
if Hedgehogs[i].Gear <> nil then |
127 |
Hedgehogs[i].Ammo:= GetAmmoByNum(Hedgehogs[i].AmmoStore); |
|
288 | 128 |
end |
129 |
end; |
|
130 |
||
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
131 |
procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
295 | 132 |
var ammos: TAmmoCounts; |
371 | 133 |
slot, ami: LongInt; |
295 | 134 |
hhammo: PHHAmmo; |
135 |
begin |
|
136 |
FillChar(ammos, sizeof(ammos), 0); |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
137 |
hhammo:= Hedgehog.Ammo; |
295 | 138 |
|
139 |
for slot:= 0 to cMaxSlotIndex do |
|
140 |
for ami:= 0 to cMaxSlotAmmoIndex do |
|
351 | 141 |
if hhammo^[slot, ami].Count > 0 then |
142 |
ammos[hhammo^[slot, ami].AmmoType]:= hhammo^[slot, ami].Count; |
|
295 | 143 |
|
941
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
927
diff
changeset
|
144 |
if ammos[ammo] <> AMMO_INFINITE then |
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
927
diff
changeset
|
145 |
begin |
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
927
diff
changeset
|
146 |
inc(ammos[ammo], Ammoz[ammo].NumberInCase); |
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
927
diff
changeset
|
147 |
if ammos[ammo] > AMMO_INFINITE then ammos[ammo]:= AMMO_INFINITE |
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
927
diff
changeset
|
148 |
end; |
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
927
diff
changeset
|
149 |
|
295 | 150 |
FillAmmoStore(hhammo, ammos) |
151 |
end; |
|
152 |
||
371 | 153 |
procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
154 |
var ami: LongInt; |
|
295 | 155 |
b: boolean; |
156 |
begin |
|
157 |
repeat |
|
158 |
b:= false; |
|
159 |
ami:= 0; |
|
160 |
while (not b) and (ami < cMaxSlotAmmoIndex) do |
|
351 | 161 |
if (Ammo^[Slot, ami].Count = 0) |
162 |
and (Ammo^[Slot, ami + 1].Count > 0) then b:= true |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
163 |
else inc(ami); |
2221 | 164 |
if b then // there is a free item in ammo stack |
295 | 165 |
begin |
351 | 166 |
Ammo^[Slot, ami]:= Ammo^[Slot, ami + 1]; |
167 |
Ammo^[Slot, ami + 1].Count:= 0 |
|
295 | 168 |
end; |
169 |
until not b; |
|
170 |
end; |
|
171 |
||
534 | 172 |
procedure OnUsedAmmo(var Hedgehog: THedgehog); |
295 | 173 |
begin |
534 | 174 |
with Hedgehog do |
971
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
175 |
begin |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
176 |
with Ammo^[CurSlot, CurAmmo] do |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
177 |
if Count <> AMMO_INFINITE then |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
178 |
begin |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
179 |
dec(Count); |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
180 |
if Count = 0 then |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
181 |
begin |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
182 |
PackAmmo(Ammo, CurSlot); |
1922 | 183 |
SwitchNotHeldAmmo(Hedgehog) |
971
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
184 |
end |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
185 |
end |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
186 |
end |
295 | 187 |
end; |
188 |
||
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
189 |
function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
371 | 190 |
var slot, ami: LongInt; |
295 | 191 |
begin |
192 |
Slot:= Ammoz[Ammo].Slot; |
|
193 |
ami:= 0; |
|
351 | 194 |
while (ami <= cMaxSlotAmmoIndex) do |
295 | 195 |
begin |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
196 |
with Hedgehog.Ammo^[Slot, ami] do |
941
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
927
diff
changeset
|
197 |
if (AmmoType = Ammo) then |
b5222ddafe1f
- Fix bug with picking up ammos from cases, when total ammo count may become more than AMMO_INFINITE
unc0rr
parents:
927
diff
changeset
|
198 |
exit((Count > 0) and (Hedgehog.Team^.Clan^.TurnNumber > Ammoz[AmmoType].SkipTurns)); |
295 | 199 |
inc(ami) |
351 | 200 |
end; |
201 |
HHHasAmmo:= false |
|
295 | 202 |
end; |
203 |
||
1964 | 204 |
procedure ApplyAngleBounds(var Hedgehog: THedgehog; AmmoType: TAmmoType); |
1922 | 205 |
begin |
206 |
with Hedgehog do |
|
1964 | 207 |
begin |
208 |
CurMinAngle:= Ammoz[AmmoType].minAngle; |
|
209 |
if Ammoz[AmmoType].maxAngle <> 0 then |
|
210 |
CurMaxAngle:= Ammoz[AmmoType].maxAngle |
|
211 |
else |
|
212 |
CurMaxAngle:= cMaxAngle; |
|
213 |
||
214 |
with Hedgehog.Gear^ do |
|
1922 | 215 |
begin |
1964 | 216 |
if Angle < CurMinAngle then Angle:= CurMinAngle; |
217 |
if Angle > CurMaxAngle then Angle:= CurMaxAngle; |
|
1922 | 218 |
end |
1964 | 219 |
end |
1922 | 220 |
end; |
221 |
||
2432
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
222 |
procedure SwitchToFirstLegalAmmo(var Hedgehog: THedgehog); |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
223 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
224 |
with Hedgehog do |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
225 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
226 |
CurAmmo:= 0; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
227 |
CurSlot:= 0; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
228 |
while (CurSlot <= cMaxSlotIndex) and |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
229 |
((Ammo^[CurSlot, CurAmmo].Count = 0) or |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
230 |
(Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber >= 0)) |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
231 |
do |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
232 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
233 |
while (CurAmmo <= cMaxSlotAmmoIndex) and |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
234 |
((Ammo^[CurSlot, CurAmmo].Count = 0) or |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
235 |
(Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber >= 0)) |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
236 |
do inc(CurAmmo); |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
237 |
|
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
238 |
if (CurAmmo > cMaxSlotAmmoIndex) then |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
239 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
240 |
CurAmmo:= 0; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
241 |
inc(CurSlot) |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
242 |
end |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
243 |
end; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
244 |
TryDo(CurSlot <= cMaxSlotIndex, 'Ammo slot index overflow', true) |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
245 |
end |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
246 |
end; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
247 |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
248 |
procedure ApplyAmmoChanges(var Hedgehog: THedgehog); |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
249 |
var s: shortstring; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
250 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
251 |
TargetPoint.X:= NoPointX; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
252 |
|
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
253 |
with Hedgehog do |
1922 | 254 |
begin |
2409
dbf195c3e09c
fix a very rare bug in which CurSlot becomes greater than cMaxCurSlot
koda
parents:
2370
diff
changeset
|
255 |
|
1922 | 256 |
if (Ammo^[CurSlot, CurAmmo].Count = 0) then |
2432
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
257 |
SwitchToFirstLegalAmmo(Hedgehog); |
2431
23242609c44b
Real fix to ammo slot overflow (bug triggered by r2411 fix)
unc0rr
parents:
2409
diff
changeset
|
258 |
|
2409
dbf195c3e09c
fix a very rare bug in which CurSlot becomes greater than cMaxCurSlot
koda
parents:
2370
diff
changeset
|
259 |
//bad things could happen here in case CurSlot is overflowing |
1964 | 260 |
ApplyAngleBounds(Hedgehog, Ammo^[CurSlot, CurAmmo].AmmoType); |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
261 |
|
1922 | 262 |
with Ammo^[CurSlot, CurAmmo] do |
263 |
begin |
|
2357
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
264 |
if AmmoType <> amNothing then |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
265 |
begin |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
266 |
s:= trammo[Ammoz[AmmoType].NameId]; |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
267 |
if (Count <> AMMO_INFINITE) and not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0)) then |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
268 |
s:= s + ' (' + IntToStr(Count) + ')'; |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
269 |
if (Propz and ammoprop_Timerable) <> 0 then |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
270 |
s:= s + ', ' + inttostr(Timer div 1000) + ' ' + trammo[sidSeconds]; |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
271 |
AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo); |
babe1a55e284
Add an empty weapon to avoid selection of weapons which aren't yet ready. Might all be useful to switch to amNothing in certain situations, like after using up all ropes, instead of bazooka.
nemo
parents:
2246
diff
changeset
|
272 |
end; |
1922 | 273 |
if (Propz and ammoprop_NeedTarget) <> 0 |
274 |
then begin |
|
275 |
Gear^.State:= Gear^.State or gstHHChooseTarget; |
|
276 |
isCursorVisible:= true |
|
277 |
end else begin |
|
278 |
Gear^.State:= Gear^.State and not gstHHChooseTarget; |
|
279 |
isCursorVisible:= false |
|
280 |
end; |
|
281 |
ShowCrosshair:= (Propz and ammoprop_NoCrosshair) = 0 |
|
282 |
end |
|
283 |
end |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
284 |
end; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
285 |
|
1922 | 286 |
procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog); |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
287 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
288 |
with Hedgehog do |
2431
23242609c44b
Real fix to ammo slot overflow (bug triggered by r2411 fix)
unc0rr
parents:
2409
diff
changeset
|
289 |
if ((Ammo^[CurSlot, CurAmmo].Propz and ammoprop_DontHold) <> 0) or |
23242609c44b
Real fix to ammo slot overflow (bug triggered by r2411 fix)
unc0rr
parents:
2409
diff
changeset
|
290 |
(Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber >= 0) then |
2432
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
291 |
SwitchToFirstLegalAmmo(Hedgehog); |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
292 |
end; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
293 |
|
783 | 294 |
procedure SetWeapon(weap: TAmmoType); |
295 |
begin |
|
1850 | 296 |
ParseCommand('/setweap ' + char(weap), true) |
783 | 297 |
end; |
298 |
||
1784 | 299 |
procedure DisableSomeWeapons; |
300 |
var i, slot, a: Longword; |
|
301 |
t: TAmmoType; |
|
302 |
begin |
|
303 |
for i:= 0 to Pred(StoreCnt) do |
|
304 |
for slot:= 0 to cMaxSlotIndex do |
|
305 |
begin |
|
306 |
for a:= 0 to cMaxSlotAmmoIndex do |
|
307 |
with StoresList[i]^[slot, a] do |
|
308 |
if (Propz and ammoprop_NotBorder) <> 0 then Count:= 0; |
|
309 |
||
310 |
PackAmmo(StoresList[i], slot) |
|
311 |
end; |
|
312 |
||
313 |
for t:= Low(TAmmoType) to High(TAmmoType) do |
|
314 |
if (Ammoz[t].Ammo.Propz and ammoprop_NotBorder) <> 0 then Ammoz[t].Probability:= 0 |
|
315 |
end; |
|
316 |
||
288 | 317 |
end. |