author | nemo |
Thu, 17 May 2018 20:04:39 -0400 | |
changeset 13394 | 7b4726ef2308 |
parent 12733 | 353cb2ce6f9c |
child 13456 | 794dcf69a5aa |
permissions | -rw-r--r-- |
393 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
11046 | 3 |
* Copyright (c) 2004-2015 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 |
|
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 |
393 | 17 |
*) |
18 |
||
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
288 | 21 |
unit uAmmos; |
22 |
interface |
|
7754 | 23 |
uses uConsts, uTypes, uStore; |
288 | 24 |
|
3038 | 25 |
procedure initModule; |
26 |
procedure freeModule; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
27 |
|
3346 | 28 |
procedure AddAmmoStore; |
6898 | 29 |
procedure SetAmmoLoadout(var s: shortstring); |
30 |
procedure SetAmmoProbability(var s: shortstring); |
|
31 |
procedure SetAmmoDelay(var s: shortstring); |
|
32 |
procedure SetAmmoReinforcement(var s: shortstring); |
|
288 | 33 |
procedure AssignStores; |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
34 |
procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
7337
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7037
diff
changeset
|
35 |
procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType; amt: LongWord); |
6924 | 36 |
procedure SetAmmo(var Hedgehog: THedgehog; ammo: TAmmoType; cnt: LongWord); |
6770
7d2c6cdb816a
Start on adding drowning bonus to bat/firepunch/whip. AI still is not smart enough to change direction when firepunching to face the water, or change the angle of the bat.
nemo
parents:
6762
diff
changeset
|
37 |
function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): LongWord; |
371 | 38 |
procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
534 | 39 |
procedure OnUsedAmmo(var Hedgehog: THedgehog); |
1964 | 40 |
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
|
41 |
procedure ApplyAmmoChanges(var Hedgehog: THedgehog); |
1922 | 42 |
procedure SwitchNotHeldAmmo(var Hedgehog: THedgehog); |
783 | 43 |
procedure SetWeapon(weap: TAmmoType); |
1784 | 44 |
procedure DisableSomeWeapons; |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
45 |
procedure ResetWeapons; |
10560 | 46 |
function GetAmmoByNum(num: LongInt): PHHAmmo; |
6924 | 47 |
function GetCurAmmoEntry(var Hedgehog: THedgehog): PAmmo; |
5272 | 48 |
function GetAmmoEntry(var Hedgehog: THedgehog; am: TAmmoType): PAmmo; |
288 | 49 |
|
10560 | 50 |
var StoreCnt: LongInt; |
1966 | 51 |
|
288 | 52 |
implementation |
12156
9755922396f5
Lua callback: onUsedAmmo, after using up an ammo
Wuzzy <almikes@aol.com>
parents:
11939
diff
changeset
|
53 |
uses uVariables, uCommands, uUtils, uCaptions, uDebug, uScript; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
54 |
|
295 | 55 |
type TAmmoCounts = array[TAmmoType] of Longword; |
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
56 |
TAmmoArray = array[TAmmoType] of TAmmo; |
288 | 57 |
var StoresList: array[0..Pred(cMaxHHs)] of PHHAmmo; |
3346 | 58 |
ammoLoadout, ammoProbability, ammoDelay, ammoReinforcement: shortstring; |
3951
c9a63db3e603
Correct another bug in slot switching, adjust width of theme list, really truly fix reset of weps (I hope) should also fix infinite teleport bug in place hogs mode. Slow update of health to 5s for inf attack mode.
nemo
parents:
3943
diff
changeset
|
59 |
InitialCounts: array[0..Pred(cMaxHHs)] of TAmmoCounts; |
288 | 60 |
|
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
61 |
procedure FillAmmoStore(Ammo: PHHAmmo; var newAmmo: TAmmoArray); |
288 | 62 |
var mi: array[0..cMaxSlotIndex] of byte; |
63 |
a: TAmmoType; |
|
295 | 64 |
begin |
3407 | 65 |
{$HINTS OFF} |
295 | 66 |
FillChar(mi, sizeof(mi), 0); |
3407 | 67 |
{$HINTS ON} |
295 | 68 |
FillChar(Ammo^, sizeof(Ammo^), 0); |
69 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
|
2764 | 70 |
begin |
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
71 |
if newAmmo[a].Count > 0 then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
72 |
begin |
11532 | 73 |
if checkFails(mi[Ammoz[a].Slot] <= cMaxSlotAmmoIndex, 'Ammo slot overflow', true) then exit; |
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
74 |
Ammo^[Ammoz[a].Slot, mi[Ammoz[a].Slot]]:= newAmmo[a]; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
75 |
inc(mi[Ammoz[a].Slot]) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
76 |
end |
6631 | 77 |
end; |
78 |
AmmoMenuInvalidated:= true; |
|
295 | 79 |
end; |
80 |
||
3346 | 81 |
procedure AddAmmoStore; |
3255
6d6f4241debe
Alter distribution of probabilities from frontend, allow utility crates in shoppa if probabilities permit (still ban health crates)
nemo
parents:
3114
diff
changeset
|
82 |
const probability: array [0..8] of LongWord = (0,20,30,60,100,200,400,600,800); |
295 | 83 |
var cnt: Longword; |
84 |
a: TAmmoType; |
|
85 |
ammos: TAmmoCounts; |
|
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
86 |
newAmmos: TAmmoArray; |
288 | 87 |
begin |
11532 | 88 |
if checkFails((byte(ammoLoadout[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoProbability[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoDelay[0]) = byte(ord(High(TAmmoType)))) and (byte(ammoReinforcement[0]) = byte(ord(High(TAmmoType)))) |
89 |
, 'Incomplete or missing ammo scheme set (incompatible frontend or demo/save?)' |
|
90 |
, true) |
|
91 |
then exit; |
|
288 | 92 |
|
11534 | 93 |
if checkFails(StoreCnt < cMaxHHs, 'Ammo stores overflow', true) then exit; |
288 | 94 |
inc(StoreCnt); |
95 |
||
96 |
new(StoresList[Pred(StoreCnt)]); |
|
97 |
||
98 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
|
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 |
if a <> amNothing then |
1895 | 101 |
begin |
3346 | 102 |
Ammoz[a].Probability:= probability[byte(ammoProbability[ord(a)]) - byte('0')]; |
103 |
Ammoz[a].SkipTurns:= (byte(ammoDelay[ord(a)]) - byte('0')); |
|
104 |
Ammoz[a].NumberInCase:= (byte(ammoReinforcement[ord(a)]) - byte('0')); |
|
105 |
cnt:= byte(ammoLoadout[ord(a)]) - byte('0'); |
|
2370 | 106 |
// 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
|
107 |
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
|
108 |
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
|
109 |
cnt:= AMMO_INFINITE; |
2370 | 110 |
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
|
111 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
112 |
if Ammoz[a].NumberInCase = 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
113 |
Ammoz[a].Probability:= 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
|
114 |
|
2370 | 115 |
// avoid things we already have by scheme |
2461 | 116 |
// merge this into DisableSomeWeapons ? |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
117 |
if ((a = amLowGravity) and ((GameFlags and gfLowGravity) <> 0)) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
118 |
or ((a = amInvulnerable) and ((GameFlags and gfInvulnerable) <> 0)) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
119 |
or ((a = amLaserSight) and ((GameFlags and gfLaserSight) <> 0)) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
120 |
or ((a = amVampiric) and ((GameFlags and gfVampiric) <> 0)) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
121 |
or ((a = amExtraTime) and (cHedgehogTurnTime >= 1000000)) then |
2128 | 122 |
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
|
123 |
cnt:= 0; |
2370 | 124 |
Ammoz[a].Probability:= 0 |
125 |
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
|
126 |
ammos[a]:= cnt; |
2730
f56592281526
Remove king invulnerability, disable everything but teleport instead.
nemo
parents:
2716
diff
changeset
|
127 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
128 |
if ((GameFlags and gfKing) <> 0) and ((GameFlags and gfPlaceHog) = 0) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
129 |
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
|
130 |
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
|
131 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
132 |
if ((GameFlags and gfPlaceHog) <> 0) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
133 |
and (a <> amTeleport) and (a <> amSkip) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
134 |
and (Ammoz[a].SkipTurns < 10000) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
135 |
inc(Ammoz[a].SkipTurns,10000); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
136 |
if ((GameFlags and gfPlaceHog) <> 0) and (a = amTeleport) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
137 |
ammos[a]:= AMMO_INFINITE |
10015 | 138 |
end |
139 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
140 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
141 |
ammos[a]:= AMMO_INFINITE; |
10015 | 142 |
if ((GameFlags and gfPlaceHog) <> 0) and (a = amTeleport) then |
5345
3c5480e91951
Simplify code using 'with', convert some tabs to spaces
unc0rr
parents:
5316
diff
changeset
|
143 |
InitialCounts[Pred(StoreCnt)][a]:= cnt |
4344
23ab3bdbf218
This should fix Chip's bug with unlimited teleports. Also remove more hog placement special behaviour and just use ResetWeapons with a check against PlacingHogs mode
nemo
parents:
4339
diff
changeset
|
144 |
else |
5345
3c5480e91951
Simplify code using 'with', convert some tabs to spaces
unc0rr
parents:
5316
diff
changeset
|
145 |
InitialCounts[Pred(StoreCnt)][a]:= ammos[a]; |
288 | 146 |
end; |
10015 | 147 |
|
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
148 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
149 |
begin |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
150 |
newAmmos[a]:= Ammoz[a].Ammo; |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
151 |
newAmmos[a].Count:= ammos[a] |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
152 |
end; |
10015 | 153 |
|
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
154 |
FillAmmoStore(StoresList[Pred(StoreCnt)], newAmmos) |
288 | 155 |
end; |
156 |
||
10560 | 157 |
function GetAmmoByNum(num: LongInt): PHHAmmo; |
288 | 158 |
begin |
11532 | 159 |
if checkFails(num < StoreCnt, 'Invalid store number', true) then |
160 |
GetAmmoByNum:= nil |
|
161 |
else |
|
162 |
GetAmmoByNum:= StoresList[num] |
|
288 | 163 |
end; |
164 |
||
6924 | 165 |
function GetCurAmmoEntry(var Hedgehog: THedgehog): PAmmo; |
5272 | 166 |
begin |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6924
diff
changeset
|
167 |
GetCurAmmoEntry:= GetAmmoEntry(Hedgehog, Hedgehog.CurAmmoType) |
5272 | 168 |
end; |
169 |
||
170 |
function GetAmmoEntry(var Hedgehog: THedgehog; am: TAmmoType): PAmmo; |
|
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
171 |
var ammoidx, slot: LongWord; |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
172 |
begin |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
173 |
with Hedgehog do |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
174 |
begin |
5272 | 175 |
slot:= Ammoz[am].Slot; |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
176 |
ammoidx:= 0; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
177 |
while (ammoidx < cMaxSlotAmmoIndex) and (Ammo^[slot, ammoidx].AmmoType <> am) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
178 |
inc(ammoidx); |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
179 |
GetAmmoEntry:= @Ammo^[slot, ammoidx]; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
180 |
if (Ammo^[slot, ammoidx].AmmoType <> am) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
181 |
GetAmmoEntry:= GetAmmoEntry(Hedgehog, amNothing) |
5676
a655dfab27d7
Scripting changes. Add override of mapgen, templatefilter. Expose waterline, add "GetAmmoCount". Default to amNothing in uAmmos if entry is not found.
nemo
parents:
5640
diff
changeset
|
182 |
end; |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
183 |
end; |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
184 |
|
288 | 185 |
procedure AssignStores; |
547 | 186 |
var t: LongInt; |
288 | 187 |
i: Longword; |
188 |
begin |
|
547 | 189 |
for t:= 0 to Pred(TeamsCount) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
190 |
with TeamsArray[t]^ do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
191 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
192 |
for i:= 0 to cMaxHHIndex do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
193 |
if Hedgehogs[i].Gear <> nil then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
194 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
195 |
Hedgehogs[i].Ammo:= GetAmmoByNum(Hedgehogs[i].AmmoStore); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
196 |
if (GameFlags and gfPlaceHog) <> 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
197 |
Hedgehogs[i].CurAmmoType:= amTeleport |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
198 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
199 |
Hedgehogs[i].CurAmmoType:= amNothing |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
200 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
201 |
end |
288 | 202 |
end; |
203 |
||
7337
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7037
diff
changeset
|
204 |
procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType; amt: LongWord); |
5273 | 205 |
var cnt: LongWord; |
5676
a655dfab27d7
Scripting changes. Add override of mapgen, templatefilter. Expose waterline, add "GetAmmoCount". Default to amNothing in uAmmos if entry is not found.
nemo
parents:
5640
diff
changeset
|
206 |
a: PAmmo; |
5272 | 207 |
begin |
5676
a655dfab27d7
Scripting changes. Add override of mapgen, templatefilter. Expose waterline, add "GetAmmoCount". Default to amNothing in uAmmos if entry is not found.
nemo
parents:
5640
diff
changeset
|
208 |
a:= GetAmmoEntry(Hedgehog, ammo); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
209 |
if (a^.AmmoType <> amNothing) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
210 |
cnt:= a^.Count |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
211 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
212 |
cnt:= 0; |
12733
353cb2ce6f9c
Fix AddAmmo setting ammo to 99 when trying to add infinite ammo
Wuzzy <Wuzzy2@mail.ru>
parents:
12691
diff
changeset
|
213 |
if (cnt >= AMMO_INFINITE) or (amt >= AMMO_INFINITE) then |
353cb2ce6f9c
Fix AddAmmo setting ammo to 99 when trying to add infinite ammo
Wuzzy <Wuzzy2@mail.ru>
parents:
12691
diff
changeset
|
214 |
cnt:= AMMO_INFINITE |
353cb2ce6f9c
Fix AddAmmo setting ammo to 99 when trying to add infinite ammo
Wuzzy <Wuzzy2@mail.ru>
parents:
12691
diff
changeset
|
215 |
else |
12671
87b3009f51c3
Fix team getting inf. ammo when stockpiling >= 100 ammo
Wuzzy <almikes@aol.com>
parents:
12649
diff
changeset
|
216 |
cnt:= min(AMMO_FINITE_MAX, cnt + amt); |
12733
353cb2ce6f9c
Fix AddAmmo setting ammo to 99 when trying to add infinite ammo
Wuzzy <Wuzzy2@mail.ru>
parents:
12691
diff
changeset
|
217 |
SetAmmo(Hedgehog, ammo, cnt); |
5272 | 218 |
end; |
219 |
||
7337
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7037
diff
changeset
|
220 |
procedure AddAmmo(var Hedgehog: THedgehog; ammo: TAmmoType); |
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7037
diff
changeset
|
221 |
begin |
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7037
diff
changeset
|
222 |
AddAmmo(Hedgehog, ammo, Ammoz[ammo].NumberInCase); |
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7037
diff
changeset
|
223 |
end; |
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7037
diff
changeset
|
224 |
|
6924 | 225 |
procedure SetAmmo(var Hedgehog: THedgehog; ammo: TAmmoType; cnt: LongWord); |
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
226 |
var ammos: TAmmoArray; |
371 | 227 |
slot, ami: LongInt; |
295 | 228 |
hhammo: PHHAmmo; |
5316
191cd6c06203
Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents:
5273
diff
changeset
|
229 |
CurWeapon: PAmmo; |
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
230 |
a: TAmmoType; |
295 | 231 |
begin |
9660 | 232 |
if ammo = amNothing then exit; |
3407 | 233 |
{$HINTS OFF} |
295 | 234 |
FillChar(ammos, sizeof(ammos), 0); |
3407 | 235 |
{$HINTS ON} |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
236 |
hhammo:= Hedgehog.Ammo; |
295 | 237 |
|
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
238 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
239 |
begin |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
240 |
ammos[a]:= Ammoz[a].Ammo; |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
241 |
ammos[a].Count:= 0 |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
242 |
end; |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
243 |
|
295 | 244 |
for slot:= 0 to cMaxSlotIndex do |
245 |
for ami:= 0 to cMaxSlotAmmoIndex do |
|
351 | 246 |
if hhammo^[slot, ami].Count > 0 then |
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
247 |
ammos[hhammo^[slot, ami].AmmoType]:= hhammo^[slot, ami]; |
295 | 248 |
|
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
249 |
ammos[ammo].Count:= cnt; |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
250 |
if ammos[ammo].Count > AMMO_INFINITE then ammos[ammo].Count:= AMMO_INFINITE; |
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
|
251 |
|
5316
191cd6c06203
Allow control of grenade bounce. Not sure if this is a good idea, but has been requested a lot, so...
nemo
parents:
5273
diff
changeset
|
252 |
FillAmmoStore(hhammo, ammos); |
6924 | 253 |
CurWeapon:= GetCurAmmoEntry(Hedgehog); |
5345
3c5480e91951
Simplify code using 'with', convert some tabs to spaces
unc0rr
parents:
5316
diff
changeset
|
254 |
with Hedgehog, CurWeapon^ do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
255 |
if (Count = 0) or (AmmoType = amNothing) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
256 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
257 |
PackAmmo(Ammo, Ammoz[AmmoType].Slot); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
258 |
CurAmmoType:= amNothing |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
259 |
end |
295 | 260 |
end; |
261 |
||
371 | 262 |
procedure PackAmmo(Ammo: PHHAmmo; Slot: LongInt); |
263 |
var ami: LongInt; |
|
295 | 264 |
b: boolean; |
265 |
begin |
|
266 |
repeat |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
267 |
b:= false; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
268 |
ami:= 0; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
269 |
while (not b) and (ami < cMaxSlotAmmoIndex) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
270 |
if (Ammo^[Slot, ami].Count = 0) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
271 |
and (Ammo^[Slot, ami + 1].Count > 0) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
272 |
b:= true |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
273 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
274 |
inc(ami); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
275 |
if b then // there is a free item in ammo stack |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
276 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
277 |
Ammo^[Slot, ami]:= Ammo^[Slot, ami + 1]; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
278 |
Ammo^[Slot, ami + 1].Count:= 0 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
279 |
end; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7754
diff
changeset
|
280 |
until (not b); |
6631 | 281 |
AmmoMenuInvalidated:= true; |
295 | 282 |
end; |
283 |
||
534 | 284 |
procedure OnUsedAmmo(var Hedgehog: THedgehog); |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
285 |
var CurWeapon: PAmmo; |
295 | 286 |
begin |
6924 | 287 |
CurWeapon:= GetCurAmmoEntry(Hedgehog); |
534 | 288 |
with Hedgehog do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
289 |
begin |
12156
9755922396f5
Lua callback: onUsedAmmo, after using up an ammo
Wuzzy <almikes@aol.com>
parents:
11939
diff
changeset
|
290 |
if CurAmmoType <> amNothing then |
9755922396f5
Lua callback: onUsedAmmo, after using up an ammo
Wuzzy <almikes@aol.com>
parents:
11939
diff
changeset
|
291 |
ScriptCall('onUsedAmmo', ord(CurAmmoType)); |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
292 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
293 |
MultiShootAttacks:= 0; |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
294 |
with CurWeapon^ do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
295 |
if Count <> AMMO_INFINITE then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
296 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
297 |
dec(Count); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
298 |
if Count = 0 then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
299 |
begin |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
300 |
PackAmmo(Ammo, Ammoz[AmmoType].Slot); |
3931
fd04228971b3
Set ammo to amNothing after using up the current ammo. This should reduce noob fail where they blow themselves up w/ bazooka.
nemo
parents:
3836
diff
changeset
|
301 |
//SwitchNotHeldAmmo(Hedgehog); |
7754 | 302 |
if CurAmmoType = amKnife then LoadHedgehogHat(Hedgehog, Hedgehog.Hat); |
9006
552517b23882
bleah. sorry for spam. this reverts the first attempt in uAmmos
nemo
parents:
9004
diff
changeset
|
303 |
CurAmmoType:= amNothing |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
304 |
end |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
305 |
end |
3935 | 306 |
end; |
295 | 307 |
end; |
308 |
||
6770
7d2c6cdb816a
Start on adding drowning bonus to bat/firepunch/whip. AI still is not smart enough to change direction when firepunching to face the water, or change the angle of the bat.
nemo
parents:
6762
diff
changeset
|
309 |
function HHHasAmmo(var Hedgehog: THedgehog; Ammo: TAmmoType): LongWord; |
371 | 310 |
var slot, ami: LongInt; |
295 | 311 |
begin |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6924
diff
changeset
|
312 |
HHHasAmmo:= 0; |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6924
diff
changeset
|
313 |
Slot:= Ammoz[Ammo].Slot; |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6924
diff
changeset
|
314 |
ami:= 0; |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6924
diff
changeset
|
315 |
while (ami <= cMaxSlotAmmoIndex) do |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6924
diff
changeset
|
316 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
317 |
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
|
318 |
if (AmmoType = Ammo) then |
6770
7d2c6cdb816a
Start on adding drowning bonus to bat/firepunch/whip. AI still is not smart enough to change direction when firepunching to face the water, or change the angle of the bat.
nemo
parents:
6762
diff
changeset
|
319 |
if Hedgehog.Team^.Clan^.TurnNumber > Ammoz[AmmoType].SkipTurns then |
7037 | 320 |
exit(Count) |
10015 | 321 |
else |
7037 | 322 |
exit(0); |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6924
diff
changeset
|
323 |
inc(ami) |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6924
diff
changeset
|
324 |
end; |
295 | 325 |
end; |
326 |
||
1964 | 327 |
procedure ApplyAngleBounds(var Hedgehog: THedgehog; AmmoType: TAmmoType); |
1922 | 328 |
begin |
7341
d70478d265ec
Fix crash when hedgehog dies while switching from it
unc0rr
parents:
7337
diff
changeset
|
329 |
if Hedgehog.Gear <> nil then |
d70478d265ec
Fix crash when hedgehog dies while switching from it
unc0rr
parents:
7337
diff
changeset
|
330 |
with Hedgehog do |
d70478d265ec
Fix crash when hedgehog dies while switching from it
unc0rr
parents:
7337
diff
changeset
|
331 |
begin |
9717
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
332 |
if (AmmoType <> amNothing) then |
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
333 |
begin |
12691
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
334 |
if ((CurAmmoGear <> nil) and (CurAmmoGear^.AmmoType = amRope)) then |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
335 |
begin |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
336 |
CurMaxAngle:= Ammoz[amRope].maxAngle; |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
337 |
CurMinAngle:= Ammoz[amRope].minAngle; |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
338 |
end |
9717
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
339 |
else |
12691
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
340 |
begin |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
341 |
CurMinAngle:= Ammoz[AmmoType].minAngle; |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
342 |
if Ammoz[AmmoType].maxAngle <> 0 then |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
343 |
CurMaxAngle:= Ammoz[AmmoType].maxAngle |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
344 |
else |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
345 |
CurMaxAngle:= cMaxAngle; |
286afe079117
Fix rope angle possible to go below 0° if having secondary weapon selected
Wuzzy <almikes@aol.com>
parents:
12671
diff
changeset
|
346 |
end; |
1964 | 347 |
|
9717
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
348 |
with Hedgehog.Gear^ do |
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
349 |
begin |
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
350 |
if Angle < CurMinAngle then |
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
351 |
Angle:= CurMinAngle; |
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
352 |
if Angle > CurMaxAngle then |
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
353 |
Angle:= CurMaxAngle; |
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
354 |
end |
7341
d70478d265ec
Fix crash when hedgehog dies while switching from it
unc0rr
parents:
7337
diff
changeset
|
355 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
356 |
end |
1922 | 357 |
end; |
358 |
||
2432
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
359 |
procedure SwitchToFirstLegalAmmo(var Hedgehog: THedgehog); |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
360 |
var slot, ammoidx: LongWord; |
2432
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
361 |
begin |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
362 |
with Hedgehog do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
363 |
begin |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
364 |
CurAmmoType:= amNothing; |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
365 |
slot:= 0; |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
366 |
ammoidx:= 0; |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
367 |
while (slot <= cMaxSlotIndex) and |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
368 |
((Ammo^[slot, ammoidx].Count = 0) or |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
369 |
(Ammoz[Ammo^[slot, ammoidx].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber >= 0)) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
370 |
do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
371 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
372 |
while (ammoidx <= cMaxSlotAmmoIndex) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
373 |
and ((Ammo^[slot, ammoidx].Count = 0) or (Ammoz[Ammo^[slot, ammoidx].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber >= 0)) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
374 |
do inc(ammoidx); |
2432
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
375 |
|
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
376 |
if (ammoidx > cMaxSlotAmmoIndex) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
377 |
begin |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
378 |
ammoidx:= 0; |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
379 |
inc(slot) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
380 |
end |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
381 |
end; |
11532 | 382 |
if checkFails(slot <= cMaxSlotIndex, 'Ammo slot index overflow', true) then exit; |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
383 |
CurAmmoType:= Ammo^[slot, ammoidx].AmmoType; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
384 |
end |
2432
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
385 |
end; |
1a0bb82d55f0
Switch to first legal ammo when hedgehog can't hold current one
unc0rr
parents:
2431
diff
changeset
|
386 |
|
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
387 |
procedure ApplyAmmoChanges(var Hedgehog: THedgehog); |
10123 | 388 |
var s: ansistring; |
12649
2837dee472cc
Show selected weapon again when using it in inf attack mode
Wuzzy <almikes@aol.com>
parents:
12156
diff
changeset
|
389 |
OldWeapon, CurWeapon: PAmmo; |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
390 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
391 |
TargetPoint.X:= NoPointX; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
392 |
|
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
393 |
with Hedgehog do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
394 |
begin |
6924 | 395 |
CurWeapon:= GetCurAmmoEntry(Hedgehog); |
12649
2837dee472cc
Show selected weapon again when using it in inf attack mode
Wuzzy <almikes@aol.com>
parents:
12156
diff
changeset
|
396 |
OldWeapon:= GetCurAmmoEntry(Hedgehog); |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
397 |
|
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
398 |
if (CurWeapon^.Count = 0) then |
6131 | 399 |
SwitchToFirstLegalAmmo(Hedgehog) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
400 |
else if CurWeapon^.AmmoType = amNothing then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
401 |
Hedgehog.CurAmmoType:= amNothing; |
2431
23242609c44b
Real fix to ammo slot overflow (bug triggered by r2411 fix)
unc0rr
parents:
2409
diff
changeset
|
402 |
|
6924 | 403 |
CurWeapon:= GetCurAmmoEntry(Hedgehog); |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
404 |
|
12649
2837dee472cc
Show selected weapon again when using it in inf attack mode
Wuzzy <almikes@aol.com>
parents:
12156
diff
changeset
|
405 |
// Weapon selection animation (if new ammo type) |
2837dee472cc
Show selected weapon again when using it in inf attack mode
Wuzzy <almikes@aol.com>
parents:
12156
diff
changeset
|
406 |
if CurWeapon^.AmmoType <> OldWeapon^.AmmoType then |
2837dee472cc
Show selected weapon again when using it in inf attack mode
Wuzzy <almikes@aol.com>
parents:
12156
diff
changeset
|
407 |
Timer:= 10; |
2837dee472cc
Show selected weapon again when using it in inf attack mode
Wuzzy <almikes@aol.com>
parents:
12156
diff
changeset
|
408 |
|
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
409 |
ApplyAngleBounds(Hedgehog, CurWeapon^.AmmoType); |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
410 |
|
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3697
diff
changeset
|
411 |
with CurWeapon^ do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
412 |
begin |
11939
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11534
diff
changeset
|
413 |
if length(trluaammo[Ammoz[AmmoType].NameId]) > 0 then |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11534
diff
changeset
|
414 |
s:= trluaammo[Ammoz[AmmoType].NameId] |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11534
diff
changeset
|
415 |
else |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11534
diff
changeset
|
416 |
s:= trammo[Ammoz[AmmoType].NameId]; |
7426
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7341
diff
changeset
|
417 |
if (Count <> AMMO_INFINITE) and (not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0))) then |
10123 | 418 |
s:= s + ansistring(' (' + IntToStr(Count) + ')'); |
4807
180dbfb13903
display caption for ammotype amNothing when switched to so that players know what just happened
sheepluva
parents:
4403
diff
changeset
|
419 |
if (Propz and ammoprop_Timerable) <> 0 then |
10123 | 420 |
s:= s + ansistring(', ' + IntToStr(Timer div 1000) + ' ') + trammo[sidSeconds]; |
10116
dd27562b6f21
rolling back my PChar stuff, because unC0Rr improves string handling pas2c instead <3
sheepluva
parents:
10108
diff
changeset
|
421 |
AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
422 |
if (Propz and ammoprop_NeedTarget) <> 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
423 |
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:
10560
diff
changeset
|
424 |
if Gear <> nil then Gear^.State:= Gear^.State or gstChooseTarget; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
425 |
isCursorVisible:= true |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
426 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
427 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
428 |
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:
10560
diff
changeset
|
429 |
if Gear <> nil then Gear^.State:= Gear^.State and (not gstChooseTarget); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
430 |
isCursorVisible:= false |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
431 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
432 |
end |
3935 | 433 |
end; |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
434 |
end; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
435 |
|
1922 | 436 |
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
|
437 |
begin |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
438 |
with Hedgehog do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
439 |
if ((Ammoz[CurAmmoType].Ammo.Propz and ammoprop_DontHold) <> 0) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
440 |
or (Ammoz[CurAmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber >= 0) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
441 |
SwitchToFirstLegalAmmo(Hedgehog); |
553
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
442 |
end; |
5478386d935f
- Switch to bazooka (or whatever) after use of some weapon (fixes problem with bots)
unc0rr
parents:
547
diff
changeset
|
443 |
|
783 | 444 |
procedure SetWeapon(weap: TAmmoType); |
445 |
begin |
|
1850 | 446 |
ParseCommand('/setweap ' + char(weap), true) |
783 | 447 |
end; |
448 |
||
1784 | 449 |
procedure DisableSomeWeapons; |
450 |
var i, slot, a: Longword; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
451 |
t: TAmmoType; |
1784 | 452 |
begin |
453 |
for i:= 0 to Pred(StoreCnt) do |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
454 |
for slot:= 0 to cMaxSlotIndex do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
455 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
456 |
for a:= 0 to cMaxSlotAmmoIndex do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
457 |
with StoresList[i]^[slot, a] do |
3697 | 458 |
if (Propz and ammoprop_NotBorder) <> 0 then |
3319 | 459 |
begin |
460 |
Count:= 0; |
|
3951
c9a63db3e603
Correct another bug in slot switching, adjust width of theme list, really truly fix reset of weps (I hope) should also fix infinite teleport bug in place hogs mode. Slow update of health to 5s for inf attack mode.
nemo
parents:
3943
diff
changeset
|
461 |
InitialCounts[i][AmmoType]:= 0 |
3319 | 462 |
end; |
1784 | 463 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
464 |
PackAmmo(StoresList[i], slot) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
465 |
end; |
1784 | 466 |
|
467 |
for t:= Low(TAmmoType) to High(TAmmoType) do |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
468 |
if (Ammoz[t].Ammo.Propz and ammoprop_NotBorder) <> 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
469 |
Ammoz[t].Probability:= 0 |
1784 | 470 |
end; |
471 |
||
6898 | 472 |
procedure SetAmmoLoadout(var s: shortstring); |
3346 | 473 |
begin |
474 |
ammoLoadout:= s; |
|
475 |
end; |
|
476 |
||
6898 | 477 |
procedure SetAmmoProbability(var s: shortstring); |
3346 | 478 |
begin |
479 |
ammoProbability:= s; |
|
480 |
end; |
|
481 |
||
6898 | 482 |
procedure SetAmmoDelay(var s: shortstring); |
3346 | 483 |
begin |
484 |
ammoDelay:= s; |
|
485 |
end; |
|
486 |
||
6898 | 487 |
procedure SetAmmoReinforcement(var s: shortstring); |
3346 | 488 |
begin |
489 |
ammoReinforcement:= s; |
|
490 |
end; |
|
491 |
||
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
492 |
// 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
|
493 |
procedure ResetWeapons; |
3955 | 494 |
var i, t: Longword; |
495 |
a: TAmmoType; |
|
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
496 |
newAmmos: TAmmoArray; |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
497 |
begin |
3955 | 498 |
for t:= 0 to Pred(TeamsCount) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
499 |
with TeamsArray[t]^ do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
500 |
for i:= 0 to cMaxHHIndex do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
501 |
Hedgehogs[i].CurAmmoType:= amNothing; |
6519 | 502 |
|
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
503 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
504 |
newAmmos[a]:= Ammoz[a].Ammo; |
10015 | 505 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
506 |
for i:= 0 to Pred(StoreCnt) do |
9391
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
507 |
begin |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
508 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
509 |
newAmmos[a].Count:= InitialCounts[i][a]; |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
510 |
FillAmmoStore(StoresList[i], newAmmos); |
2af25494f3bb
Preserve weapon settings in AddAmmo. Fixes issue 450.
unc0rr
parents:
9080
diff
changeset
|
511 |
end; |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
512 |
|
3955 | 513 |
for a:= Low(TAmmoType) to High(TAmmoType) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
514 |
if Ammoz[a].SkipTurns >= 10000 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
515 |
dec(Ammoz[a].SkipTurns,10000) |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
516 |
end; |
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2732
diff
changeset
|
517 |
|
4401 | 518 |
|
519 |
||
520 |
procedure chAddAmmoStore(var descr: shortstring); |
|
521 |
begin |
|
10015 | 522 |
descr:= ''; // avoid compiler hint |
523 |
AddAmmoStore |
|
4401 | 524 |
end; |
525 |
||
3038 | 526 |
procedure initModule; |
6762
85ba0c55d077
Set default empty ammo sets. Current mission handling appears to not pass any default ammo set, so script was never getting a chance to set its own.
nemo
parents:
6700
diff
changeset
|
527 |
var i: Longword; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
528 |
begin |
6898 | 529 |
RegisterVariable('ammloadt', @SetAmmoLoadout, false); |
530 |
RegisterVariable('ammdelay', @SetAmmoDelay, false); |
|
531 |
RegisterVariable('ammprob', @SetAmmoProbability, false); |
|
532 |
RegisterVariable('ammreinf', @SetAmmoReinforcement, false); |
|
533 |
RegisterVariable('ammstore', @chAddAmmoStore , false); |
|
4401 | 534 |
|
9717
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
535 |
CurMinAngle:= 0; |
b8b7ef99a084
don't let (am)Nothing change allowed aiming angles. e.g. fixes aiming problems when on last rope. please test for possible side effects (flying saucer and whatnot)
sheepluva
parents:
9660
diff
changeset
|
536 |
CurMaxAngle:= cMaxAngle; |
3346 | 537 |
StoreCnt:= 0; |
538 |
ammoLoadout:= ''; |
|
539 |
ammoProbability:= ''; |
|
540 |
ammoDelay:= ''; |
|
3951
c9a63db3e603
Correct another bug in slot switching, adjust width of theme list, really truly fix reset of weps (I hope) should also fix infinite teleport bug in place hogs mode. Slow update of health to 5s for inf attack mode.
nemo
parents:
3943
diff
changeset
|
541 |
ammoReinforcement:= ''; |
6762
85ba0c55d077
Set default empty ammo sets. Current mission handling appears to not pass any default ammo set, so script was never getting a chance to set its own.
nemo
parents:
6700
diff
changeset
|
542 |
for i:=1 to ord(High(TAmmoType)) do |
85ba0c55d077
Set default empty ammo sets. Current mission handling appears to not pass any default ammo set, so script was never getting a chance to set its own.
nemo
parents:
6700
diff
changeset
|
543 |
begin |
85ba0c55d077
Set default empty ammo sets. Current mission handling appears to not pass any default ammo set, so script was never getting a chance to set its own.
nemo
parents:
6700
diff
changeset
|
544 |
ammoLoadout:= ammoLoadout + '0'; |
85ba0c55d077
Set default empty ammo sets. Current mission handling appears to not pass any default ammo set, so script was never getting a chance to set its own.
nemo
parents:
6700
diff
changeset
|
545 |
ammoProbability:= ammoProbability + '0'; |
85ba0c55d077
Set default empty ammo sets. Current mission handling appears to not pass any default ammo set, so script was never getting a chance to set its own.
nemo
parents:
6700
diff
changeset
|
546 |
ammoDelay:= ammoDelay + '0'; |
85ba0c55d077
Set default empty ammo sets. Current mission handling appears to not pass any default ammo set, so script was never getting a chance to set its own.
nemo
parents:
6700
diff
changeset
|
547 |
ammoReinforcement:= ammoReinforcement + '0' |
85ba0c55d077
Set default empty ammo sets. Current mission handling appears to not pass any default ammo set, so script was never getting a chance to set its own.
nemo
parents:
6700
diff
changeset
|
548 |
end; |
3951
c9a63db3e603
Correct another bug in slot switching, adjust width of theme list, really truly fix reset of weps (I hope) should also fix infinite teleport bug in place hogs mode. Slow update of health to 5s for inf attack mode.
nemo
parents:
3943
diff
changeset
|
549 |
FillChar(InitialCounts, sizeof(InitialCounts), 0) |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
550 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2715
diff
changeset
|
551 |
|
3038 | 552 |
procedure freeModule; |
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
553 |
var i: LongWord; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
554 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2860
diff
changeset
|
555 |
if StoreCnt > 0 then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
556 |
for i:= 0 to Pred(StoreCnt) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6519
diff
changeset
|
557 |
Dispose(StoresList[i]) |
2715
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
558 |
end; |
0e4e0db79e2a
Free up some unfreed memory. Needed for Koda's iphone lib work
nemo
parents:
2630
diff
changeset
|
559 |
|
288 | 560 |
end. |