author | nemo |
Thu, 25 Feb 2010 04:04:26 +0000 | |
changeset 2860 | 13a53315ae18 |
parent 2855 | 7e6adeb57427 |
child 2948 | 3f21a9dc93d0 |
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 |
||
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
288 | 21 |
unit uAmmos; |
22 |
interface |
|
534 | 23 |
uses uConsts, uTeams; |
288 | 24 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
25 |
procedure init_uAmmos; |
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
26 |
procedure free_uAmmos; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
27 |
|
288 | 28 |
procedure AddAmmoStore(s: shortstring); |
29 |
procedure AssignStores; |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
30 |
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
|
31 |
function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
371 | 32 |
procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
534 | 33 |
procedure OnUsedAmmo(var Hedgehog: THedgehog); |
1964 | 34 |
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
|
35 |
procedure ApplyAmmoChanges(var Hedgehog: THedgehog); |
1922 | 36 |
procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog); |
783 | 37 |
procedure SetWeapon(weap: TAmmoType); |
1784 | 38 |
procedure DisableSomeWeapons; |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
39 |
procedure ResetWeapons; |
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2838
diff
changeset
|
40 |
function GetAmmoByNum(num: Longword): PHHAmmo; |
288 | 41 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
42 |
var shoppa: boolean; |
1966 | 43 |
|
288 | 44 |
implementation |
783 | 45 |
uses uMisc, uGears, uWorld, uLocale, uConsole; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
46 |
|
295 | 47 |
type TAmmoCounts = array[TAmmoType] of Longword; |
288 | 48 |
var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
49 |
StoreCnt: Longword; |
288 | 50 |
|
295 | 51 |
procedure FillAmmoStore(Ammo: PHHAmmo; var cnts: TAmmoCounts); |
288 | 52 |
var mi: array[0..cMaxSlotIndex] of byte; |
53 |
a: TAmmoType; |
|
295 | 54 |
begin |
55 |
FillChar(mi, sizeof(mi), 0); |
|
56 |
FillChar(Ammo^, sizeof(Ammo^), 0); |
|
57 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
|
2764 | 58 |
begin |
295 | 59 |
if cnts[a] > 0 then |
60 |
begin |
|
61 |
TryDo(mi[Ammoz[a].Slot] <= cMaxSlotAmmoIndex, 'Ammo slot overflow', true); |
|
351 | 62 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo; |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
63 |
|
351 | 64 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= cnts[a]; |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
65 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].InitialCount:= cnts[a]; |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
66 |
|
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
67 |
if ((GameFlags and gfPlaceHog) <> 0) and (a = amTeleport) then |
2764 | 68 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= AMMO_INFINITE; |
295 | 69 |
inc(mi[Ammoz[a].Slot]) |
70 |
end |
|
2764 | 71 |
else if ((GameFlags and gfPlaceHog) <> 0) and (a = amTeleport) then |
72 |
begin |
|
73 |
TryDo(mi[Ammoz[a].Slot] <= cMaxSlotAmmoIndex, 'Ammo slot overflow', true); |
|
74 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= Ammoz[a].Ammo; |
|
75 |
||
2767 | 76 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].Count:= AMMO_INFINITE; |
2838 | 77 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]].InitialCount:= 0; |
2764 | 78 |
|
79 |
inc(mi[Ammoz[a].Slot]) |
|
80 |
end |
|
81 |
end |
|
295 | 82 |
end; |
83 |
||
84 |
procedure AddAmmoStore(s: shortstring); |
|
2370 | 85 |
const probability: array [0..8] of LongWord = (0,20,30,60,100,150,200,400,600); |
295 | 86 |
var cnt: Longword; |
87 |
a: TAmmoType; |
|
88 |
ammos: TAmmoCounts; |
|
2453
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
89 |
substr: shortstring; // TEMPORARY |
288 | 90 |
begin |
2860
13a53315ae18
Awesome patch from TheException - adds editing of weapon delay and crate count. Tiy might want to tweak the crate graphic, could make be smaller or less overlappy.
nemo
parents:
2855
diff
changeset
|
91 |
TryDo(byte(s[0]) = byte(ord(High(TAmmoType))) * 4, 'Invalid ammo scheme (incompatible frontend)', true); |
288 | 92 |
|
2453
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
93 |
// 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
|
94 |
substr:= Copy(s,1,15); |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
95 |
if (substr = '000000990000009') or |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
96 |
(substr = '000000990000000') then |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
97 |
shoppa:= true; |
fdb76012b688
Restore crate probability restriction for "shoppa" weapon sets
nemo
parents:
2434
diff
changeset
|
98 |
|
288 | 99 |
inc(StoreCnt); |
100 |
TryDo(StoreCnt <= cMaxHHs, 'Ammo stores overflow', true); |
|
101 |
||
102 |
new(StoresList[Pred(StoreCnt)]); |
|
103 |
||
104 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
|
105 |
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
|
106 |
if a <> amNothing then |
1895 | 107 |
begin |
2370 | 108 |
Ammoz[a].Probability:= probability[byte(s[ord(a) + ord(High(TAmmoType))]) - byte('0')]; |
2860
13a53315ae18
Awesome patch from TheException - adds editing of weapon delay and crate count. Tiy might want to tweak the crate graphic, could make be smaller or less overlappy.
nemo
parents:
2855
diff
changeset
|
109 |
Ammoz[a].SkipTurns:= (byte(s[ord(a) + ord(High(TAmmoType)) + ord(High(TAmmoType))]) - byte('0')); |
13a53315ae18
Awesome patch from TheException - adds editing of weapon delay and crate count. Tiy might want to tweak the crate graphic, could make be smaller or less overlappy.
nemo
parents:
2855
diff
changeset
|
110 |
Ammoz[a].NumberInCase:= (byte(s[ord(a) + ord(High(TAmmoType)) + ord(High(TAmmoType)) + ord(High(TAmmoType))]) - byte('0')); |
2434 | 111 |
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
|
112 |
cnt:= byte(s[ord(a)]) - byte('0'); |
2370 | 113 |
// 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
|
114 |
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
|
115 |
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
|
116 |
cnt:= AMMO_INFINITE; |
2370 | 117 |
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
|
118 |
end; |
2860
13a53315ae18
Awesome patch from TheException - adds editing of weapon delay and crate count. Tiy might want to tweak the crate graphic, could make be smaller or less overlappy.
nemo
parents:
2855
diff
changeset
|
119 |
if Ammoz[a].NumberInCase = 0 then Ammoz[a].Probability:= 0; |
13a53315ae18
Awesome patch from TheException - adds editing of weapon delay and crate count. Tiy might want to tweak the crate graphic, could make be smaller or less overlappy.
nemo
parents:
2855
diff
changeset
|
120 |
|
2370 | 121 |
// avoid things we already have by scheme |
2461 | 122 |
// 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
|
123 |
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
|
124 |
((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
|
125 |
((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
|
126 |
((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) then |
2128 | 127 |
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
|
128 |
cnt:= 0; |
2370 | 129 |
Ammoz[a].Probability:= 0 |
130 |
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
|
131 |
ammos[a]:= cnt; |
2730
f56592281526
Remove king invulnerability, disable everything but teleport instead.
nemo
parents:
2716
diff
changeset
|
132 |
|
2769
82bfcc006afb
Some handling of interaction between king mode and place hogs mode.
nemo
parents:
2767
diff
changeset
|
133 |
if ((GameFlags and gfKing) <> 0) and ((GameFlags and gfPlaceHog) = 0) and (Ammoz[a].SkipTurns = 0) and (a <> amTeleport) and (a <> amSkip) then |
2732
d893901eff4a
Only add turn timeout for weapons that don't already have a timeout
nemo
parents:
2731
diff
changeset
|
134 |
Ammoz[a].SkipTurns:= 1; |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
135 |
|
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
136 |
if ((GameFlags and gfPlaceHog) <> 0) and |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
137 |
(a <> amTeleport) and (a <> amSkip) and |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
138 |
(Ammoz[a].SkipTurns < 10000) then inc(Ammoz[a].SkipTurns,10000) |
2360
d4d545da9dbe
Ok. This time I think I have it. amNothing should work.
nemo
parents:
2357
diff
changeset
|
139 |
end else |
2370 | 140 |
ammos[a]:= AMMO_INFINITE |
288 | 141 |
end; |
295 | 142 |
|
143 |
FillAmmoStore(StoresList[Pred(StoreCnt)], ammos) |
|
288 | 144 |
end; |
145 |
||
146 |
function GetAmmoByNum(num: Longword): PHHAmmo; |
|
147 |
begin |
|
148 |
TryDo(num < StoreCnt, 'Invalid store number', true); |
|
351 | 149 |
exit(StoresList[num]) |
288 | 150 |
end; |
151 |
||
152 |
procedure AssignStores; |
|
547 | 153 |
var t: LongInt; |
288 | 154 |
i: Longword; |
155 |
begin |
|
547 | 156 |
for t:= 0 to Pred(TeamsCount) do |
157 |
with TeamsArray[t]^ do |
|
288 | 158 |
begin |
159 |
for i:= 0 to cMaxHHIndex do |
|
547 | 160 |
if Hedgehogs[i].Gear <> nil then |
161 |
Hedgehogs[i].Ammo:= GetAmmoByNum(Hedgehogs[i].AmmoStore); |
|
288 | 162 |
end |
163 |
end; |
|
164 |
||
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
165 |
procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
295 | 166 |
var ammos: TAmmoCounts; |
371 | 167 |
slot, ami: LongInt; |
295 | 168 |
hhammo: PHHAmmo; |
169 |
begin |
|
170 |
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
|
171 |
hhammo:= Hedgehog.Ammo; |
295 | 172 |
|
173 |
for slot:= 0 to cMaxSlotIndex do |
|
174 |
for ami:= 0 to cMaxSlotAmmoIndex do |
|
351 | 175 |
if hhammo^[slot, ami].Count > 0 then |
176 |
ammos[hhammo^[slot, ami].AmmoType]:= hhammo^[slot, ami].Count; |
|
295 | 177 |
|
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
|
178 |
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
|
179 |
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
|
180 |
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
|
181 |
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
|
182 |
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
|
183 |
|
295 | 184 |
FillAmmoStore(hhammo, ammos) |
185 |
end; |
|
186 |
||
371 | 187 |
procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
188 |
var ami: LongInt; |
|
295 | 189 |
b: boolean; |
190 |
begin |
|
191 |
repeat |
|
192 |
b:= false; |
|
193 |
ami:= 0; |
|
194 |
while (not b) and (ami < cMaxSlotAmmoIndex) do |
|
351 | 195 |
if (Ammo^[Slot, ami].Count = 0) |
196 |
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
|
197 |
else inc(ami); |
2221 | 198 |
if b then // there is a free item in ammo stack |
295 | 199 |
begin |
351 | 200 |
Ammo^[Slot, ami]:= Ammo^[Slot, ami + 1]; |
201 |
Ammo^[Slot, ami + 1].Count:= 0 |
|
295 | 202 |
end; |
203 |
until not b; |
|
204 |
end; |
|
205 |
||
534 | 206 |
procedure OnUsedAmmo(var Hedgehog: THedgehog); |
295 | 207 |
begin |
534 | 208 |
with Hedgehog do |
971
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
209 |
begin |
2608 | 210 |
MultiShootAttacks:= 0; |
971
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
211 |
with Ammo^[CurSlot, CurAmmo] do |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
212 |
if Count <> AMMO_INFINITE then |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
213 |
begin |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
214 |
dec(Count); |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
215 |
if Count = 0 then |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
216 |
begin |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
217 |
PackAmmo(Ammo, CurSlot); |
1922 | 218 |
SwitchNotHeldAmmo(Hedgehog) |
971
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
219 |
end |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
220 |
end |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
221 |
end |
295 | 222 |
end; |
223 |
||
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
224 |
function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
371 | 225 |
var slot, ami: LongInt; |
295 | 226 |
begin |
227 |
Slot:= Ammoz[Ammo].Slot; |
|
228 |
ami:= 0; |
|
351 | 229 |
while (ami <= cMaxSlotAmmoIndex) do |
295 | 230 |
begin |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
231 |
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
|
232 |
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
|
233 |
exit((Count > 0) and (Hedgehog.Team^.Clan^.TurnNumber > Ammoz[AmmoType].SkipTurns)); |
295 | 234 |
inc(ami) |
351 | 235 |
end; |
236 |
HHHasAmmo:= false |
|
295 | 237 |
end; |
238 |
||
1964 | 239 |
procedure ApplyAngleBounds(var Hedgehog: THedgehog; AmmoType: TAmmoType); |
1922 | 240 |
begin |
241 |
with Hedgehog do |
|
1964 | 242 |
begin |
243 |
CurMinAngle:= Ammoz[AmmoType].minAngle; |
|
244 |
if Ammoz[AmmoType].maxAngle <> 0 then |
|
245 |
CurMaxAngle:= Ammoz[AmmoType].maxAngle |
|
246 |
else |
|
247 |
CurMaxAngle:= cMaxAngle; |
|
248 |
||
249 |
with Hedgehog.Gear^ do |
|
1922 | 250 |
begin |
1964 | 251 |
if Angle < CurMinAngle then Angle:= CurMinAngle; |
252 |
if Angle > CurMaxAngle then Angle:= CurMaxAngle; |
|
1922 | 253 |
end |
1964 | 254 |
end |
1922 | 255 |
end; |
256 |
||
2432
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
257 |
procedure SwitchToFirstLegalAmmo(var Hedgehog: THedgehog); |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
258 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
259 |
with Hedgehog do |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
260 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
261 |
CurAmmo:= 0; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
262 |
CurSlot:= 0; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
263 |
while (CurSlot <= cMaxSlotIndex) and |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
264 |
((Ammo^[CurSlot, CurAmmo].Count = 0) or |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
265 |
(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
|
266 |
do |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
267 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
268 |
while (CurAmmo <= cMaxSlotAmmoIndex) and |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
269 |
((Ammo^[CurSlot, CurAmmo].Count = 0) or |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
270 |
(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
|
271 |
do inc(CurAmmo); |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
272 |
|
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
273 |
if (CurAmmo > cMaxSlotAmmoIndex) then |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
274 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
275 |
CurAmmo:= 0; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
276 |
inc(CurSlot) |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
277 |
end |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
278 |
end; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
279 |
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
|
280 |
end |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
281 |
end; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
282 |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
283 |
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
|
284 |
var s: shortstring; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
285 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
286 |
TargetPoint.X:= NoPointX; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
287 |
|
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
288 |
with Hedgehog do |
1922 | 289 |
begin |
2409
dbf195c3e09c
fix a very rare bug in which CurSlot becomes greater than cMaxCurSlot
koda
parents:
2370
diff
changeset
|
290 |
|
1922 | 291 |
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
|
292 |
SwitchToFirstLegalAmmo(Hedgehog); |
2431
23242609c44b
Real fix to ammo slot overflow (bug triggered by r2411 fix)
unc0rr
parents:
2409
diff
changeset
|
293 |
|
2409
dbf195c3e09c
fix a very rare bug in which CurSlot becomes greater than cMaxCurSlot
koda
parents:
2370
diff
changeset
|
294 |
//bad things could happen here in case CurSlot is overflowing |
1964 | 295 |
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
|
296 |
|
1922 | 297 |
with Ammo^[CurSlot, CurAmmo] do |
298 |
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
|
299 |
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
|
300 |
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
|
301 |
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
|
302 |
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
|
303 |
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
|
304 |
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
|
305 |
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
|
306 |
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
|
307 |
end; |
1922 | 308 |
if (Propz and ammoprop_NeedTarget) <> 0 |
309 |
then begin |
|
310 |
Gear^.State:= Gear^.State or gstHHChooseTarget; |
|
311 |
isCursorVisible:= true |
|
312 |
end else begin |
|
313 |
Gear^.State:= Gear^.State and not gstHHChooseTarget; |
|
314 |
isCursorVisible:= false |
|
315 |
end; |
|
316 |
ShowCrosshair:= (Propz and ammoprop_NoCrosshair) = 0 |
|
317 |
end |
|
318 |
end |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
319 |
end; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
320 |
|
1922 | 321 |
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
|
322 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
323 |
with Hedgehog do |
2431
23242609c44b
Real fix to ammo slot overflow (bug triggered by r2411 fix)
unc0rr
parents:
2409
diff
changeset
|
324 |
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
|
325 |
(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
|
326 |
SwitchToFirstLegalAmmo(Hedgehog); |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
327 |
end; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
328 |
|
783 | 329 |
procedure SetWeapon(weap: TAmmoType); |
330 |
begin |
|
1850 | 331 |
ParseCommand('/setweap ' + char(weap), true) |
783 | 332 |
end; |
333 |
||
1784 | 334 |
procedure DisableSomeWeapons; |
335 |
var i, slot, a: Longword; |
|
336 |
t: TAmmoType; |
|
337 |
begin |
|
338 |
for i:= 0 to Pred(StoreCnt) do |
|
339 |
for slot:= 0 to cMaxSlotIndex do |
|
340 |
begin |
|
341 |
for a:= 0 to cMaxSlotAmmoIndex do |
|
342 |
with StoresList[i]^[slot, a] do |
|
343 |
if (Propz and ammoprop_NotBorder) <> 0 then Count:= 0; |
|
344 |
||
345 |
PackAmmo(StoresList[i], slot) |
|
346 |
end; |
|
347 |
||
348 |
for t:= Low(TAmmoType) to High(TAmmoType) do |
|
349 |
if (Ammoz[t].Ammo.Propz and ammoprop_NotBorder) <> 0 then Ammoz[t].Probability:= 0 |
|
350 |
end; |
|
351 |
||
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
352 |
// Restore indefinitely disabled weapons and initial weapon counts. Only used for hog placement right now |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
353 |
procedure ResetWeapons; |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
354 |
var i, slot, a: Longword; |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
355 |
t: TAmmoType; |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
356 |
begin |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
357 |
for i:= 0 to Pred(StoreCnt) do |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
358 |
for slot:= 0 to cMaxSlotIndex do |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
359 |
begin |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
360 |
for a:= 0 to cMaxSlotAmmoIndex do |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
361 |
with StoresList[i]^[slot, a] do |
2818 | 362 |
Count:= InitialCount; |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
363 |
|
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
364 |
PackAmmo(StoresList[i], slot) |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
365 |
end; |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
366 |
for t:= Low(TAmmoType) to High(TAmmoType) do |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
367 |
if Ammoz[t].SkipTurns >= 10000 then dec(Ammoz[t].SkipTurns,10000); |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
368 |
end; |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
369 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
370 |
procedure init_uAmmos; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
371 |
begin |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
372 |
shoppa:= false; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
373 |
StoreCnt:= 0 |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
374 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
375 |
|
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
376 |
procedure free_uAmmos; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
377 |
var i: LongWord; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
378 |
begin |
2796 | 379 |
if StoreCnt > 0 then |
380 |
for i:= 0 to Pred(StoreCnt) do Dispose(StoresList[i]); |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
381 |
StoreCnt:= 0 |
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
382 |
end; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
383 |
|
288 | 384 |
end. |