author | nemo |
Tue, 02 Jun 2009 18:27:15 +0000 | |
changeset 2143 | ad05f6b2d1c0 |
parent 2128 | 903fdb9f44b0 |
child 2145 | fa43619eb3e7 |
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); |
|
61 |
var cnt: Longword; |
|
62 |
a: TAmmoType; |
|
63 |
ammos: TAmmoCounts; |
|
2017 | 64 |
substr: shortstring; // TEMPORARY |
288 | 65 |
begin |
66 |
TryDo(byte(s[0]) = byte(ord(High(TAmmoType)) + 1), 'Invalid ammo scheme (incompatible frontend)', true); |
|
67 |
||
1966 | 68 |
// TEMPORARY hardcoded check on shoppa pending creation of probability editor |
2017 | 69 |
substr:= Copy(s,1,15); |
70 |
if (substr = '000000990000009') or |
|
71 |
(substr = '000000990000000') then |
|
1966 | 72 |
shoppa:= true; |
2017 | 73 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
74 |
if (ord(a) > 14) and (s[ord(a)+1] <> '0') then shoppa:= false; // TEMPORARY etc - this just avoids updating every time new wep is added |
|
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 |
|
82 |
cnt:= byte(s[ord(a) + 1]) - byte('0'); |
|
1865
ebc6dfca60d4
- nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents:
1850
diff
changeset
|
83 |
if cnt = 9 then |
ebc6dfca60d4
- nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents:
1850
diff
changeset
|
84 |
begin |
ebc6dfca60d4
- nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents:
1850
diff
changeset
|
85 |
cnt:= AMMO_INFINITE; |
ebc6dfca60d4
- nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents:
1850
diff
changeset
|
86 |
Ammoz[a].Probability:= 0 |
ebc6dfca60d4
- nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents:
1850
diff
changeset
|
87 |
end; |
1895 | 88 |
if ((a = amLowGravity) and ((GameFlags and gfLowGravity) <> 0)) or |
89 |
((a = amInvulnerable) and ((GameFlags and gfInvulnerable) <> 0)) or |
|
2017 | 90 |
((a = amLaserSight) and ((GameFlags and gfLaserSight) <> 0)) or |
91 |
((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) then |
|
1895 | 92 |
begin |
93 |
cnt:= 0; |
|
94 |
Ammoz[a].Probability:= 0 |
|
1966 | 95 |
end |
96 |
else if shoppa then // TEMPORARY REMOVE WHEN CRATE PROBABILITY IS ADDED |
|
2073 | 97 |
if cnt <> AMMO_INFINITE then |
2128 | 98 |
begin |
2061
0f99aa28b9f4
Should disable construction in the shoppa hack, I think. Construction is annoying
nemo
parents:
2017
diff
changeset
|
99 |
if a = amGirder then |
0f99aa28b9f4
Should disable construction in the shoppa hack, I think. Construction is annoying
nemo
parents:
2017
diff
changeset
|
100 |
Ammoz[a].Probability:= 0 |
0f99aa28b9f4
Should disable construction in the shoppa hack, I think. Construction is annoying
nemo
parents:
2017
diff
changeset
|
101 |
else |
2073 | 102 |
Ammoz[a].Probability:= 100; |
2128 | 103 |
end; |
295 | 104 |
ammos[a]:= cnt |
288 | 105 |
end; |
295 | 106 |
|
107 |
FillAmmoStore(StoresList[Pred(StoreCnt)], ammos) |
|
288 | 108 |
end; |
109 |
||
110 |
function GetAmmoByNum(num: Longword): PHHAmmo; |
|
111 |
begin |
|
112 |
TryDo(num < StoreCnt, 'Invalid store number', true); |
|
351 | 113 |
exit(StoresList[num]) |
288 | 114 |
end; |
115 |
||
116 |
procedure AssignStores; |
|
547 | 117 |
var t: LongInt; |
288 | 118 |
i: Longword; |
119 |
begin |
|
547 | 120 |
for t:= 0 to Pred(TeamsCount) do |
121 |
with TeamsArray[t]^ do |
|
288 | 122 |
begin |
123 |
for i:= 0 to cMaxHHIndex do |
|
547 | 124 |
if Hedgehogs[i].Gear <> nil then |
125 |
Hedgehogs[i].Ammo:= GetAmmoByNum(Hedgehogs[i].AmmoStore); |
|
288 | 126 |
end |
127 |
end; |
|
128 |
||
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
129 |
procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
295 | 130 |
var ammos: TAmmoCounts; |
371 | 131 |
slot, ami: LongInt; |
295 | 132 |
hhammo: PHHAmmo; |
133 |
begin |
|
134 |
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
|
135 |
hhammo:= Hedgehog.Ammo; |
295 | 136 |
|
137 |
for slot:= 0 to cMaxSlotIndex do |
|
138 |
for ami:= 0 to cMaxSlotAmmoIndex do |
|
351 | 139 |
if hhammo^[slot, ami].Count > 0 then |
140 |
ammos[hhammo^[slot, ami].AmmoType]:= hhammo^[slot, ami].Count; |
|
295 | 141 |
|
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
|
142 |
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
|
143 |
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
|
144 |
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
|
145 |
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
|
146 |
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
|
147 |
|
295 | 148 |
FillAmmoStore(hhammo, ammos) |
149 |
end; |
|
150 |
||
371 | 151 |
procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
152 |
var ami: LongInt; |
|
295 | 153 |
b: boolean; |
154 |
begin |
|
155 |
repeat |
|
156 |
b:= false; |
|
157 |
ami:= 0; |
|
158 |
while (not b) and (ami < cMaxSlotAmmoIndex) do |
|
351 | 159 |
if (Ammo^[Slot, ami].Count = 0) |
160 |
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
|
161 |
else inc(ami); |
295 | 162 |
if b then // there's a free item in ammo stack |
163 |
begin |
|
351 | 164 |
Ammo^[Slot, ami]:= Ammo^[Slot, ami + 1]; |
165 |
Ammo^[Slot, ami + 1].Count:= 0 |
|
295 | 166 |
end; |
167 |
until not b; |
|
168 |
end; |
|
169 |
||
534 | 170 |
procedure OnUsedAmmo(var Hedgehog: THedgehog); |
295 | 171 |
begin |
534 | 172 |
with Hedgehog do |
971
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
173 |
begin |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
174 |
with Ammo^[CurSlot, CurAmmo] do |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
175 |
if Count <> AMMO_INFINITE then |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
176 |
begin |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
177 |
dec(Count); |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
178 |
if Count = 0 then |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
179 |
begin |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
180 |
PackAmmo(Ammo, CurSlot); |
1922 | 181 |
SwitchNotHeldAmmo(Hedgehog) |
971
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
182 |
end |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
183 |
end |
d2c49b730771
Fix a bug with automatic weapon switching when attacking from rope
unc0rr
parents:
941
diff
changeset
|
184 |
end |
295 | 185 |
end; |
186 |
||
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
187 |
function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): boolean; |
371 | 188 |
var slot, ami: LongInt; |
295 | 189 |
begin |
190 |
Slot:= Ammoz[Ammo].Slot; |
|
191 |
ami:= 0; |
|
351 | 192 |
while (ami <= cMaxSlotAmmoIndex) do |
295 | 193 |
begin |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
194 |
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
|
195 |
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
|
196 |
exit((Count > 0) and (Hedgehog.Team^.Clan^.TurnNumber > Ammoz[AmmoType].SkipTurns)); |
295 | 197 |
inc(ami) |
351 | 198 |
end; |
199 |
HHHasAmmo:= false |
|
295 | 200 |
end; |
201 |
||
1964 | 202 |
procedure ApplyAngleBounds(var Hedgehog: THedgehog; AmmoType: TAmmoType); |
1922 | 203 |
begin |
204 |
with Hedgehog do |
|
1964 | 205 |
begin |
206 |
CurMinAngle:= Ammoz[AmmoType].minAngle; |
|
207 |
if Ammoz[AmmoType].maxAngle <> 0 then |
|
208 |
CurMaxAngle:= Ammoz[AmmoType].maxAngle |
|
209 |
else |
|
210 |
CurMaxAngle:= cMaxAngle; |
|
211 |
||
212 |
with Hedgehog.Gear^ do |
|
1922 | 213 |
begin |
1964 | 214 |
if Angle < CurMinAngle then Angle:= CurMinAngle; |
215 |
if Angle > CurMaxAngle then Angle:= CurMaxAngle; |
|
1922 | 216 |
end |
1964 | 217 |
end |
1922 | 218 |
end; |
219 |
||
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
220 |
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
|
221 |
var s: shortstring; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
222 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
223 |
TargetPoint.X:= NoPointX; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
224 |
|
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
225 |
with Hedgehog do |
1922 | 226 |
begin |
227 |
if (Ammo^[CurSlot, CurAmmo].Count = 0) then |
|
228 |
begin |
|
229 |
CurAmmo:= 0; |
|
230 |
CurSlot:= 0; |
|
231 |
while (CurSlot <= cMaxSlotIndex) and (Ammo^[CurSlot, CurAmmo].Count = 0) do inc(CurSlot) |
|
232 |
end; |
|
233 |
||
1964 | 234 |
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
|
235 |
|
1922 | 236 |
with Ammo^[CurSlot, CurAmmo] do |
237 |
begin |
|
238 |
s:= trammo[Ammoz[AmmoType].NameId]; |
|
239 |
if Count <> AMMO_INFINITE then |
|
240 |
s:= s + ' (' + IntToStr(Count) + ')'; |
|
241 |
if (Propz and ammoprop_Timerable) <> 0 then |
|
242 |
s:= s + ', ' + inttostr(Timer div 1000) + ' ' + trammo[sidSeconds]; |
|
243 |
AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo); |
|
244 |
if (Propz and ammoprop_NeedTarget) <> 0 |
|
245 |
then begin |
|
246 |
Gear^.State:= Gear^.State or gstHHChooseTarget; |
|
247 |
isCursorVisible:= true |
|
248 |
end else begin |
|
249 |
Gear^.State:= Gear^.State and not gstHHChooseTarget; |
|
250 |
isCursorVisible:= false |
|
251 |
end; |
|
252 |
ShowCrosshair:= (Propz and ammoprop_NoCrosshair) = 0 |
|
253 |
end |
|
254 |
end |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
255 |
end; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
256 |
|
1922 | 257 |
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
|
258 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
259 |
with Hedgehog do |
1909 | 260 |
if ((Ammo^[CurSlot, CurAmmo].Propz and ammoprop_DontHold) <> 0) or |
1915 | 261 |
(Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber >= 0) then |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
262 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
263 |
CurAmmo:= 0; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
264 |
CurSlot:= 0; |
1909 | 265 |
while (CurSlot <= cMaxSlotIndex) and |
266 |
(Ammo^[CurSlot, CurAmmo].Count = 0) and |
|
1915 | 267 |
(Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber >= 0) |
1909 | 268 |
do inc(CurSlot) |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
269 |
end |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
270 |
end; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
271 |
|
783 | 272 |
procedure SetWeapon(weap: TAmmoType); |
273 |
begin |
|
1850 | 274 |
ParseCommand('/setweap ' + char(weap), true) |
783 | 275 |
end; |
276 |
||
1784 | 277 |
procedure DisableSomeWeapons; |
278 |
var i, slot, a: Longword; |
|
279 |
t: TAmmoType; |
|
280 |
begin |
|
281 |
for i:= 0 to Pred(StoreCnt) do |
|
282 |
for slot:= 0 to cMaxSlotIndex do |
|
283 |
begin |
|
284 |
for a:= 0 to cMaxSlotAmmoIndex do |
|
285 |
with StoresList[i]^[slot, a] do |
|
286 |
if (Propz and ammoprop_NotBorder) <> 0 then Count:= 0; |
|
287 |
||
288 |
PackAmmo(StoresList[i], slot) |
|
289 |
end; |
|
290 |
||
291 |
for t:= Low(TAmmoType) to High(TAmmoType) do |
|
292 |
if (Ammoz[t].Ammo.Propz and ammoprop_NotBorder) <> 0 then Ammoz[t].Probability:= 0 |
|
293 |
end; |
|
294 |
||
288 | 295 |
end. |