author | Wuzzy <Wuzzy2@mail.ru> |
Sun, 15 Sep 2019 15:12:48 +0200 | |
changeset 15421 | 06524f2e9a74 |
parent 15381 | c117e17b90bc |
child 15460 | 617f4c092e3d |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
11046 | 3 |
* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
4 | 4 |
* |
183 | 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 |
|
4 | 8 |
* |
183 | 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. |
|
4 | 13 |
* |
183 | 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 |
4 | 17 |
*) |
18 |
||
2622 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
4 | 21 |
unit uGears; |
5121
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
22 |
(* |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
23 |
* This unit defines the behavior of gears. |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
24 |
* |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
25 |
* Gears are "things"/"objects" that may be visible to the player or not, |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
26 |
* but always have an effect on the course of the game. |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
27 |
* |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
28 |
* E.g.: weapons, hedgehogs, etc. |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
29 |
* |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
30 |
* Note: The visual appearance of gears is defined in the unit "uGearsRender". |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
31 |
* |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
32 |
* Note: Gears that do not have an effect on the game but are just visual |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
33 |
* effects are called "Visual Gears" and defined in the respective unit! |
2d34ec60992c
added some comments in order to confuse the GSoC students as much as possible ;D
sheepluva
parents:
5063
diff
changeset
|
34 |
*) |
4 | 35 |
interface |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
36 |
uses uConsts, uFloat, uTypes, uChat, uCollisions; |
3697 | 37 |
|
3038 | 38 |
procedure initModule; |
39 |
procedure freeModule; |
|
7337
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7335
diff
changeset
|
40 |
function SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content, cnt: Longword): PGear; |
5343 | 41 |
function SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear; |
4 | 42 |
procedure ProcessGears; |
3396
e5b3e5f2818e
More portal changes. Allows for a multishoot utility. Hopefully not breaking anything.
nemo
parents:
3390
diff
changeset
|
43 |
procedure EndTurnCleanup; |
956 | 44 |
procedure DrawGears; |
13634
73c2a669c1fd
Make sure gear fuel and alt weapon overlays are always drawn on top
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
45 |
procedure DrawGearsGui; |
4 | 46 |
procedure FreeGearsList; |
10 | 47 |
procedure AddMiscGears; |
4 | 48 |
procedure AssignHHCoords; |
14786
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
49 |
procedure RandomizeHHAnim; |
12918
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
50 |
procedure StartSuddenDeath; |
3405 | 51 |
function GearByUID(uid : Longword) : PGear; |
11916
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
52 |
function IsClockRunning() : boolean; |
4 | 53 |
|
54 |
implementation |
|
14882
acb0526bf458
Refactor decimal separator to make Pas2C happy
Wuzzy <Wuzzy2@mail.ru>
parents:
14881
diff
changeset
|
55 |
uses uStore, uSound, uTeams, uRandom, uIO, uLandGraphics, |
9651 | 56 |
{$IFDEF USE_TOUCH_INTERFACE}uTouch,{$ENDIF} |
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9293
diff
changeset
|
57 |
uLocale, uAmmos, uStats, uVisualGears, uScript, uVariables, |
12621 | 58 |
uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, |
9285 | 59 |
uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlersRope |
9293
873022596d15
You better test build before committing even trivial patches
unc0rr
parents:
9291
diff
changeset
|
60 |
, uVisualGearsList, uGearsHandlersMess, uAI; |
789 | 61 |
|
7028 | 62 |
var skipFlag: boolean; |
3697 | 63 |
|
6982 | 64 |
var delay: LongWord; |
65 |
delay2: LongWord; |
|
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
66 |
step: (stInit, stDelay1, stChDmg, stSweep, stTurnStats, stChWin1, |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
67 |
stTurnReact, stDelay2, stChWin2, stWater, stChWin3, |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
68 |
stChKing, stSuddenDeath, stDelay3, stHealth, stSpawn, stDelay4, |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
69 |
stNTurn); |
8349
a1dbe148f10f
move onNewTurn, onGameTick and onGameTick20 to try and avoid ParseCommand breakage after nextturn call. Needs testing, but should be safe for most scripts. Also fix locale loading.
nemo
parents:
8204
diff
changeset
|
70 |
NewTurnTick: LongWord; |
6982 | 71 |
|
15012
dc50766f6d0c
Add tiny delay in stInit to fix some turn react problems
Wuzzy <Wuzzy2@mail.ru>
parents:
14977
diff
changeset
|
72 |
const delayInit = 50; |
dc50766f6d0c
Add tiny delay in stInit to fix some turn react problems
Wuzzy <Wuzzy2@mail.ru>
parents:
14977
diff
changeset
|
73 |
delaySDStart = 1600; |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
74 |
delaySDWarning = 1000; |
14426 | 75 |
delayDamageTagFull = 1500; |
76 |
delayDamageTagShort = 500; |
|
14429 | 77 |
delayTurnReact = 800; |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
78 |
delayFinal = 100; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
79 |
|
4 | 80 |
function CheckNoDamage: boolean; // returns TRUE in case of no damaged hhs |
81 |
var Gear: PGear; |
|
1849 | 82 |
dmg: LongInt; |
4 | 83 |
begin |
351 | 84 |
CheckNoDamage:= true; |
4 | 85 |
Gear:= GearsList; |
86 |
while Gear <> nil do |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
87 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
88 |
if (Gear^.Kind = gtHedgehog) and (((GameFlags and gfInfAttack) = 0) or ((Gear^.dX.QWordValue < _0_000004.QWordValue) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
89 |
and (Gear^.dY.QWordValue < _0_000004.QWordValue))) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
90 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
91 |
if (not isInMultiShoot) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
92 |
inc(Gear^.Damage, Gear^.Karma); |
9685
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
93 |
if (Gear^.Damage <> 0) and ((Gear^.Hedgehog^.Effects[heInvulnerable] = 0)) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
94 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
95 |
CheckNoDamage:= false; |
4824 | 96 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
97 |
dmg:= Gear^.Damage; |
14419
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
98 |
if (Gear^.Health < dmg) then |
3453 | 99 |
begin |
100 |
Gear^.Active:= true; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
101 |
Gear^.Health:= 0 |
3453 | 102 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
103 |
else |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
104 |
dec(Gear^.Health, dmg); |
7882
35dfc54ba2c6
disable this block since it doesn't fit star's new graphic. doesn't show up often anyway, since unc0rr changed gst clearing
nemo
parents:
7850
diff
changeset
|
105 |
(* |
35dfc54ba2c6
disable this block since it doesn't fit star's new graphic. doesn't show up often anyway, since unc0rr changed gst clearing
nemo
parents:
7850
diff
changeset
|
106 |
This doesn't fit well w/ the new loser sprite which is cringing from an attack. |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
107 |
if (Gear^.Hedgehog^.Team = CurrentTeam) and (Gear^.Damage <> Gear^.Karma) |
7010
10a0a31804f3
Switch effects to longint for convenience of tracking ice states. I could add a new Hedgehog value, but since we have this effects list being all useless as booleans anyway...
nemo
parents:
7007
diff
changeset
|
108 |
and (not Gear^.Hedgehog^.King) and (Gear^.Hedgehog^.Effects[hePoisoned] = 0) and (not SuddenDeathDmg) then |
2017 | 109 |
Gear^.State:= Gear^.State or gstLoser; |
7882
35dfc54ba2c6
disable this block since it doesn't fit star's new graphic. doesn't show up often anyway, since unc0rr changed gst clearing
nemo
parents:
7850
diff
changeset
|
110 |
*) |
2017 | 111 |
|
3461
0781275649e9
revert the restoration of non-vgt health gears. desyncs continued with it, and furthermore, occur in r3489 too
nemo
parents:
3460
diff
changeset
|
112 |
spawnHealthTagForHH(Gear, dmg); |
867 | 113 |
|
4365 | 114 |
RenderHealth(Gear^.Hedgehog^); |
115 |
RecountTeamHealth(Gear^.Hedgehog^.Team); |
|
1505 | 116 |
|
14419
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
117 |
end |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
118 |
else if ((GameFlags and gfKing) <> 0) and (not Gear^.Hedgehog^.Team^.hasKing) then |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
119 |
begin |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
120 |
Gear^.Active:= true; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
121 |
Gear^.Health:= 0; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
122 |
RenderHealth(Gear^.Hedgehog^); |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
123 |
RecountTeamHealth(Gear^.Hedgehog^.Team); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
124 |
end; |
14419
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
125 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
126 |
if (not isInMultiShoot) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
127 |
Gear^.Karma:= 0; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
128 |
Gear^.Damage:= 0 |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
129 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
130 |
Gear:= Gear^.NextGear |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
131 |
end; |
4 | 132 |
end; |
133 |
||
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
134 |
function DoDelay: boolean; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
135 |
begin |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
136 |
if delay <= 0 then |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
137 |
delay:= 1 |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
138 |
else |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
139 |
dec(delay); |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
140 |
DoDelay:= delay = 0; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
141 |
end; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
142 |
|
14419
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
143 |
function CheckMinionsDie: boolean; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
144 |
var Gear: PGear; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
145 |
begin |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
146 |
CheckMinionsDie:= false; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
147 |
if (GameFlags and gfKing) = 0 then |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
148 |
exit; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
149 |
|
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
150 |
Gear:= GearsList; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
151 |
while Gear <> nil do |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
152 |
begin |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
153 |
if (Gear^.Kind = gtHedgehog) and (not Gear^.Hedgehog^.King) and (not Gear^.Hedgehog^.Team^.hasKing) then |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
154 |
begin |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
155 |
CheckMinionsDie:= true; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
156 |
exit; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
157 |
end; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
158 |
Gear:= Gear^.NextGear; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
159 |
end; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
160 |
end; |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
161 |
|
1054 | 162 |
procedure HealthMachine; |
163 |
var Gear: PGear; |
|
2824
2d25e49bc2e8
Extra incentive to attack non-king hogs. If king loses his entourage, he loses 5hp per turn
nemo
parents:
2814
diff
changeset
|
164 |
team: PTeam; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
165 |
i: LongWord; |
2824
2d25e49bc2e8
Extra incentive to attack non-king hogs. If king loses his entourage, he loses 5hp per turn
nemo
parents:
2814
diff
changeset
|
166 |
flag: Boolean; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
167 |
tmp: LongWord; |
1054 | 168 |
begin |
3682 | 169 |
Gear:= GearsList; |
1054 | 170 |
|
3682 | 171 |
while Gear <> nil do |
172 |
begin |
|
173 |
if Gear^.Kind = gtHedgehog then |
|
174 |
begin |
|
175 |
tmp:= 0; |
|
14370
d35e0fdb70f6
Don't reduce InitialHealth below 1
Wuzzy <Wuzzy2@mail.ru>
parents:
14217
diff
changeset
|
176 |
// Deal poison damage (when not frozen) |
11867 | 177 |
if (Gear^.Hedgehog^.Effects[hePoisoned] <> 0) and (Gear^.Hedgehog^.Effects[heFrozen] = 0) then |
4111 | 178 |
begin |
10012
82dd9f0c88f7
Make poison damage possibly variable (might as well since effects is a count). Scripts might find it handy.
nemo
parents:
9998
diff
changeset
|
179 |
inc(tmp, ModifyDamage(Gear^.Hedgehog^.Effects[hePoisoned], Gear)); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
180 |
if (GameFlags and gfResetHealth) <> 0 then |
14370
d35e0fdb70f6
Don't reduce InitialHealth below 1
Wuzzy <Wuzzy2@mail.ru>
parents:
14217
diff
changeset
|
181 |
dec(Gear^.Hedgehog^.InitialHealth); |
4111 | 182 |
end; |
12918
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
183 |
// Apply SD health decrease as soon as SD starts |
13651
56a925256039
Add separate TotalRounds var for Lua to count the *actual* number of rounds that have been played
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
184 |
if (TotalRoundsPre > cSuddenDTurns - 1) then |
4153
6bd94e4c5d65
2 more variables to control water rise and health loss during sudden death.
henek
parents:
4148
diff
changeset
|
185 |
begin |
6bd94e4c5d65
2 more variables to control water rise and health loss during sudden death.
henek
parents:
4148
diff
changeset
|
186 |
inc(tmp, cHealthDecrease); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
187 |
if (GameFlags and gfResetHealth) <> 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
188 |
dec(Gear^.Hedgehog^.InitialHealth, cHealthDecrease) |
4153
6bd94e4c5d65
2 more variables to control water rise and health loss during sudden death.
henek
parents:
4148
diff
changeset
|
189 |
end; |
14370
d35e0fdb70f6
Don't reduce InitialHealth below 1
Wuzzy <Wuzzy2@mail.ru>
parents:
14217
diff
changeset
|
190 |
// Reduce king health when he is alone in team |
4365 | 191 |
if Gear^.Hedgehog^.King then |
3109
06c089cb739c
Reduce turns to -1 to allow processing health machine on first turn. Needs testing with Sudden Death set to 0
nemo
parents:
3107
diff
changeset
|
192 |
begin |
06c089cb739c
Reduce turns to -1 to allow processing health machine on first turn. Needs testing with Sudden Death set to 0
nemo
parents:
3107
diff
changeset
|
193 |
flag:= false; |
4365 | 194 |
team:= Gear^.Hedgehog^.Team; |
3109
06c089cb739c
Reduce turns to -1 to allow processing health machine on first turn. Needs testing with Sudden Death set to 0
nemo
parents:
3107
diff
changeset
|
195 |
for i:= 0 to Pred(team^.HedgehogsNumber) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
196 |
if (team^.Hedgehogs[i].Gear <> nil) and (not team^.Hedgehogs[i].King) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
197 |
and (team^.Hedgehogs[i].Gear^.Health > team^.Hedgehogs[i].Gear^.Damage) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
198 |
flag:= true; |
4111 | 199 |
if not flag then |
200 |
begin |
|
201 |
inc(tmp, 5); |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
202 |
if (GameFlags and gfResetHealth) <> 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
203 |
dec(Gear^.Hedgehog^.InitialHealth, 5) |
4111 | 204 |
end |
3109
06c089cb739c
Reduce turns to -1 to allow processing health machine on first turn. Needs testing with Sudden Death set to 0
nemo
parents:
3107
diff
changeset
|
205 |
end; |
14370
d35e0fdb70f6
Don't reduce InitialHealth below 1
Wuzzy <Wuzzy2@mail.ru>
parents:
14217
diff
changeset
|
206 |
// Initial health must never be below 1 because hog might be resurrected |
d35e0fdb70f6
Don't reduce InitialHealth below 1
Wuzzy <Wuzzy2@mail.ru>
parents:
14217
diff
changeset
|
207 |
if Gear^.Hedgehog^.InitialHealth < 1 then |
d35e0fdb70f6
Don't reduce InitialHealth below 1
Wuzzy <Wuzzy2@mail.ru>
parents:
14217
diff
changeset
|
208 |
Gear^.Hedgehog^.InitialHealth:= 1; |
d35e0fdb70f6
Don't reduce InitialHealth below 1
Wuzzy <Wuzzy2@mail.ru>
parents:
14217
diff
changeset
|
209 |
// Set real damage |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
210 |
if tmp > 0 then |
3845
90034acb2e43
Untested fix of r3672 - should avoid hogs dying due to multiple health machine sources, and inappropriate application of karma/vampirism to these.
nemo
parents:
3836
diff
changeset
|
211 |
begin |
13319
78f097923bcb
Don't let hedgehogs moan if they take 0 Sudden Death damage
Wuzzy <Wuzzy2@mail.ru>
parents:
13214
diff
changeset
|
212 |
// SD damage never reduces health below 1 |
78f097923bcb
Don't let hedgehogs moan if they take 0 Sudden Death damage
Wuzzy <Wuzzy2@mail.ru>
parents:
13214
diff
changeset
|
213 |
tmp:= min(tmp, max(0, Gear^.Health - 1 - Gear^.Damage)); |
78f097923bcb
Don't let hedgehogs moan if they take 0 Sudden Death damage
Wuzzy <Wuzzy2@mail.ru>
parents:
13214
diff
changeset
|
214 |
inc(Gear^.Damage, tmp); |
78f097923bcb
Don't let hedgehogs moan if they take 0 Sudden Death damage
Wuzzy <Wuzzy2@mail.ru>
parents:
13214
diff
changeset
|
215 |
if tmp > 0 then |
78f097923bcb
Don't let hedgehogs moan if they take 0 Sudden Death damage
Wuzzy <Wuzzy2@mail.ru>
parents:
13214
diff
changeset
|
216 |
// Make hedgehog moan on damage |
14062
44f20c9e6861
Add Ouch taunt for particulary damaging hits (fall, bullet, shove, hammer)
Wuzzy <Wuzzy2@mail.ru>
parents:
13897
diff
changeset
|
217 |
HHHurt(Gear^.Hedgehog, dsPoison, tmp); |
3845
90034acb2e43
Untested fix of r3672 - should avoid hogs dying due to multiple health machine sources, and inappropriate application of karma/vampirism to these.
nemo
parents:
3836
diff
changeset
|
218 |
end |
3682 | 219 |
end; |
1054 | 220 |
|
3682 | 221 |
Gear:= Gear^.NextGear |
222 |
end; |
|
1054 | 223 |
end; |
224 |
||
4 | 225 |
procedure ProcessGears; |
14789
185f07ec4d12
New callback: onCaseDrop (called when engine MIGHT drop a crate)
Wuzzy <Wuzzy2@mail.ru>
parents:
14786
diff
changeset
|
226 |
var t, tmpGear: PGear; |
14776
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
227 |
i, j, AliveCount: LongInt; |
10124
aabd1b75d5a3
Even more explicit type conversions and other stuff to help pas2c use ansistrings
unc0rr
parents:
10116
diff
changeset
|
228 |
s: ansistring; |
9672
8663d299ba62
this should prevent sliding when game clock isn't running. sorry unc0rr, not going to bother encapsulating. maybe later. short on time right now/lazy
nemo
parents:
9651
diff
changeset
|
229 |
prevtime: LongWord; |
11469 | 230 |
stirFallers: boolean; |
4 | 231 |
begin |
11469 | 232 |
stirFallers:= false; |
9672
8663d299ba62
this should prevent sliding when game clock isn't running. sorry unc0rr, not going to bother encapsulating. maybe later. short on time right now/lazy
nemo
parents:
9651
diff
changeset
|
233 |
prevtime:= TurnTimeLeft; |
8349
a1dbe148f10f
move onNewTurn, onGameTick and onGameTick20 to try and avoid ParseCommand breakage after nextturn call. Needs testing, but should be safe for most scripts. Also fix locale loading.
nemo
parents:
8204
diff
changeset
|
234 |
ScriptCall('onGameTick'); |
a1dbe148f10f
move onNewTurn, onGameTick and onGameTick20 to try and avoid ParseCommand breakage after nextturn call. Needs testing, but should be safe for most scripts. Also fix locale loading.
nemo
parents:
8204
diff
changeset
|
235 |
if GameTicks mod 20 = 0 then ScriptCall('onGameTick20'); |
8351 | 236 |
if GameTicks = NewTurnTick then |
237 |
begin |
|
238 |
ScriptCall('onNewTurn'); |
|
9651 | 239 |
{$IFDEF USE_TOUCH_INTERFACE} |
8351 | 240 |
uTouch.NewTurnBeginning(); |
241 |
{$ENDIF} |
|
242 |
end; |
|
8349
a1dbe148f10f
move onNewTurn, onGameTick and onGameTick20 to try and avoid ParseCommand breakage after nextturn call. Needs testing, but should be safe for most scripts. Also fix locale loading.
nemo
parents:
8204
diff
changeset
|
243 |
|
868 | 244 |
PrvInactive:= AllInactive; |
4 | 245 |
AllInactive:= true; |
1495 | 246 |
|
2940 | 247 |
if (StepSoundTimer > 0) and (StepSoundChannel < 0) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
248 |
StepSoundChannel:= LoopSound(sndSteps) |
2940 | 249 |
else if (StepSoundTimer = 0) and (StepSoundChannel > -1) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
250 |
begin |
7053 | 251 |
StopSoundChan(StepSoundChannel); |
2993
d83edb74e92d
Remove animation on jumping/resuming walk, only leave it in on weapon switch
nemo
parents:
2991
diff
changeset
|
252 |
StepSoundChannel:= -1 |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
253 |
end; |
2940 | 254 |
|
255 |
if StepSoundTimer > 0 then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
256 |
dec(StepSoundTimer, 1); |
2940 | 257 |
|
4 | 258 |
t:= GearsList; |
1054 | 259 |
while t <> nil do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
260 |
begin |
7395 | 261 |
curHandledGear:= t; |
262 |
t:= curHandledGear^.NextGear; |
|
11469 | 263 |
if (GameTicks and $1FFF = 0) and (curHandledGear^.Kind = gtCase) and (curHandledGear^.Pos <> posCaseHealth) then |
264 |
stirFallers := true; |
|
3123 | 265 |
|
7517 | 266 |
if curHandledGear^.Message and gmDelete <> 0 then |
7519 | 267 |
DeleteGear(curHandledGear) |
268 |
else |
|
2204
526f8165acce
Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now
nemo
parents:
2186
diff
changeset
|
269 |
begin |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
270 |
if curHandledGear^.Message and gmRemoveFromList <> 0 then |
7519 | 271 |
begin |
272 |
RemoveGearFromList(curHandledGear); |
|
273 |
// since I can't think of any good reason this would ever be separate from a remove from list, going to keep it inside this block |
|
274 |
if curHandledGear^.Message and gmAddToList <> 0 then InsertGearToList(curHandledGear); |
|
275 |
curHandledGear^.Message:= curHandledGear^.Message and (not (gmRemoveFromList or gmAddToList)) |
|
276 |
end; |
|
277 |
if curHandledGear^.Active then |
|
2204
526f8165acce
Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now
nemo
parents:
2186
diff
changeset
|
278 |
begin |
15381
c117e17b90bc
flag some of the renderstringtex which are taking up a ton of processing time with --stats-only and pas2c
nemo
parents:
15241
diff
changeset
|
279 |
if (not cOnlyStats) and curHandledGear^.RenderTimer then |
7519 | 280 |
begin |
14776
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
281 |
// Mine timer |
14771
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
282 |
if (curHandledGear^.Kind in [gtMine, gtSMine, gtAirMine]) then |
14778 | 283 |
begin |
14771
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
284 |
if curHandledGear^.Tex = nil then |
14773
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
285 |
if (curHandledGear^.Karma = 1) and (not (GameType in [gmtDemo, gmtRecord])) then |
14776
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
286 |
// Secret mine timer |
14899
4e3d81af71bf
Some fixes to make Pas2C happy again
Wuzzy <Wuzzy2@mail.ru>
parents:
14882
diff
changeset
|
287 |
curHandledGear^.Tex:= RenderStringTex(trmsg[sidUnknownGearValue], $ff808080, fntSmall) |
14771
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
288 |
else |
14773
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
289 |
begin |
14776
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
290 |
// Display mine timer with up to 1 decimal point of precision (rounded down) |
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
291 |
i:= curHandledGear^.Timer div 1000; |
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
292 |
j:= (curHandledGear^.Timer mod 1000) div 100; |
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
293 |
if j = 0 then |
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
294 |
curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i)), $ff808080, fntSmall) |
14773
56098968df90
Don't explose mine timer in game if random (using Karma value)
Wuzzy <Wuzzy2@mail.ru>
parents:
14771
diff
changeset
|
295 |
else |
14882
acb0526bf458
Refactor decimal separator to make Pas2C happy
Wuzzy <Wuzzy2@mail.ru>
parents:
14881
diff
changeset
|
296 |
curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(i) + lDecimalSeparator + inttostr(j)), $ff808080, fntSmall); |
14776
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
297 |
end |
14778 | 298 |
end |
14776
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
299 |
// Timer of other gears |
14771
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
300 |
else if ((curHandledGear^.Timer > 500) and ((curHandledGear^.Timer mod 1000) = 0)) then |
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
301 |
begin |
14776
21abb4e4ca9f
Add support for decimal point of displayed mine timer
Wuzzy <Wuzzy2@mail.ru>
parents:
14773
diff
changeset
|
302 |
// Display time in seconds as whole number, rounded up |
14771
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
303 |
FreeAndNilTexture(curHandledGear^.Tex); |
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
304 |
curHandledGear^.Tex:= RenderStringTex(ansistring(inttostr(curHandledGear^.Timer div 1000)), cWhiteColor, fntSmall); |
ab7bf5036314
Render mine timer if gear info is active
Wuzzy <Wuzzy2@mail.ru>
parents:
14770
diff
changeset
|
305 |
end; |
7519 | 306 |
end; |
307 |
curHandledGear^.doStep(curHandledGear); |
|
308 |
end |
|
2204
526f8165acce
Smaxx' idea of timers, reworked just a tad. Might need variable for offset, but seems ok for now
nemo
parents:
2186
diff
changeset
|
309 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
310 |
end; |
11469 | 311 |
if stirFallers then |
312 |
begin |
|
313 |
t := GearsList; |
|
314 |
while t <> nil do |
|
315 |
begin |
|
13214
9c81e34f1933
gtGenericFaller: Use Tag=1 to allow gtGenericFaller to be displaced randomly. Otherwise it is left alone
Wuzzy <Wuzzy2@mail.ru>
parents:
13171
diff
changeset
|
316 |
if (t^.Kind = gtGenericFaller) and (t^.Tag = 1) then |
11469 | 317 |
begin |
318 |
t^.Active:= true; |
|
319 |
t^.X:= int2hwFloat(GetRandom(rightX-leftX)+leftX); |
|
320 |
t^.Y:= int2hwFloat(GetRandom(LAND_HEIGHT-topY)+topY); |
|
321 |
t^.dX:= _90-(GetRandomf*_360); |
|
322 |
t^.dY:= _90-(GetRandomf*_360) |
|
323 |
end; |
|
324 |
t := t^.NextGear |
|
325 |
end |
|
326 |
end; |
|
327 |
||
7395 | 328 |
curHandledGear:= nil; |
89 | 329 |
|
4 | 330 |
if AllInactive then |
1343 | 331 |
case step of |
12928 | 332 |
stInit: |
333 |
begin |
|
13031
bef97cc310b0
Fix onEndTurn being called in multishoot
Wuzzy <Wuzzy2@mail.ru>
parents:
12938
diff
changeset
|
334 |
if (not bBetweenTurns) and (not isInMultiShoot) then |
bef97cc310b0
Fix onEndTurn being called in multishoot
Wuzzy <Wuzzy2@mail.ru>
parents:
12938
diff
changeset
|
335 |
ScriptCall('onEndTurn'); |
15012
dc50766f6d0c
Add tiny delay in stInit to fix some turn react problems
Wuzzy <Wuzzy2@mail.ru>
parents:
14977
diff
changeset
|
336 |
delay:= delayInit; |
12928 | 337 |
inc(step) |
338 |
end; |
|
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
339 |
stDelay1: |
15012
dc50766f6d0c
Add tiny delay in stInit to fix some turn react problems
Wuzzy <Wuzzy2@mail.ru>
parents:
14977
diff
changeset
|
340 |
begin |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
341 |
if DoDelay() then |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
342 |
inc(step); |
15012
dc50766f6d0c
Add tiny delay in stInit to fix some turn react problems
Wuzzy <Wuzzy2@mail.ru>
parents:
14977
diff
changeset
|
343 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
344 |
stChDmg: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
345 |
if CheckNoDamage then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
346 |
inc(step) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
347 |
else |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
348 |
begin |
14426 | 349 |
if (not bBetweenTurns) and (not isInMultiShoot) then |
350 |
delay:= delayDamageTagShort |
|
351 |
else |
|
352 |
delay:= delayDamageTagFull; |
|
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
353 |
step:= stDelay1; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
354 |
end; |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
355 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
356 |
stSweep: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
357 |
if SweepDirty then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
358 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
359 |
SetAllToActive; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
360 |
step:= stChDmg |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
361 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
362 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
363 |
inc(step); |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
364 |
|
13757
6908d1e65cdc
Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents:
13751
diff
changeset
|
365 |
stTurnStats: |
6908d1e65cdc
Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents:
13751
diff
changeset
|
366 |
begin |
6908d1e65cdc
Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents:
13751
diff
changeset
|
367 |
if (not bBetweenTurns) and (not isInMultiShoot) then |
6908d1e65cdc
Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents:
13751
diff
changeset
|
368 |
uStats.TurnStats; |
6908d1e65cdc
Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents:
13751
diff
changeset
|
369 |
inc(step) |
6908d1e65cdc
Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents:
13751
diff
changeset
|
370 |
end; |
6908d1e65cdc
Rip out stats code from TurnReaction and put it into new function TurnStats. Fixes buggy stats
Wuzzy <Wuzzy2@mail.ru>
parents:
13751
diff
changeset
|
371 |
|
13737
8092b54ba19d
Check for victory before stTurnReact. Fixes 382
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
372 |
stChWin1: |
8092b54ba19d
Check for victory before stTurnReact. Fixes 382
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
373 |
begin |
8092b54ba19d
Check for victory before stTurnReact. Fixes 382
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
374 |
CheckForWin(); |
8092b54ba19d
Check for victory before stTurnReact. Fixes 382
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
375 |
inc(step) |
8092b54ba19d
Check for victory before stTurnReact. Fixes 382
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
376 |
end; |
8092b54ba19d
Check for victory before stTurnReact. Fixes 382
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
377 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
378 |
stTurnReact: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
379 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
380 |
if (not bBetweenTurns) and (not isInMultiShoot) then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
381 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
382 |
uStats.TurnReaction; |
13763
6fd56a26e8b8
Fix turn reaction not working properly after turn
Wuzzy <Wuzzy2@mail.ru>
parents:
13757
diff
changeset
|
383 |
uStats.TurnStatsReset; |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
384 |
delay:= delayTurnReact; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
385 |
inc(step) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
386 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
387 |
else |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
388 |
inc(step, 2); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
389 |
end; |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
390 |
|
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
391 |
stDelay2: |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
392 |
if DoDelay() then |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
393 |
inc(step); |
13737
8092b54ba19d
Check for victory before stTurnReact. Fixes 382
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
394 |
stChWin2: |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
395 |
begin |
7669
a85e1c167b69
I didn't want to do this since it seems less clean, but...
sheepluva
parents:
7667
diff
changeset
|
396 |
CheckForWin(); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
397 |
inc(step) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
398 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
399 |
stWater: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
400 |
if (not bBetweenTurns) and (not isInMultiShoot) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
401 |
begin |
12918
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
402 |
// Start Sudden Death water rise in the 2nd round of Sudden Death |
13651
56a925256039
Add separate TotalRounds var for Lua to count the *actual* number of rounds that have been played
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
403 |
if TotalRoundsPre = cSuddenDTurns + 1 then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
404 |
bWaterRising:= true; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
405 |
if bWaterRising and (cWaterRise > 0) then |
13811
3fa9e30927f1
Fix team stats screwing up if game ends due to drowning in rising Sudden Death water
Wuzzy <Wuzzy2@mail.ru>
parents:
13763
diff
changeset
|
406 |
begin |
3fa9e30927f1
Fix team stats screwing up if game ends due to drowning in rising Sudden Death water
Wuzzy <Wuzzy2@mail.ru>
parents:
13763
diff
changeset
|
407 |
bDuringWaterRise:= true; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
408 |
AddGear(0, 0, gtWaterUp, 0, _0, _0, 0)^.Tag:= cWaterRise; |
13811
3fa9e30927f1
Fix team stats screwing up if game ends due to drowning in rising Sudden Death water
Wuzzy <Wuzzy2@mail.ru>
parents:
13763
diff
changeset
|
409 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
410 |
inc(step) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
411 |
end |
13811
3fa9e30927f1
Fix team stats screwing up if game ends due to drowning in rising Sudden Death water
Wuzzy <Wuzzy2@mail.ru>
parents:
13763
diff
changeset
|
412 |
else // since we are not raising the water, another win-check isn't needed |
7667
4346566c5a58
skip second CheckForWin if water wasn't raised after first one
sheepluva
parents:
7666
diff
changeset
|
413 |
inc(step,2); |
13737
8092b54ba19d
Check for victory before stTurnReact. Fixes 382
Wuzzy <Wuzzy2@mail.ru>
parents:
13651
diff
changeset
|
414 |
stChWin3: |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
415 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
416 |
CheckForWin; |
13811
3fa9e30927f1
Fix team stats screwing up if game ends due to drowning in rising Sudden Death water
Wuzzy <Wuzzy2@mail.ru>
parents:
13763
diff
changeset
|
417 |
bDuringWaterRise:= false; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
418 |
inc(step) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
419 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
420 |
|
14419
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
421 |
stChKing: |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
422 |
begin |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
423 |
if (not isInMultiShoot) and (CheckMinionsDie) then |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
424 |
step:= stChDmg |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
425 |
else |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
426 |
inc(step); |
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
427 |
end; |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
428 |
stSuddenDeath: |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
429 |
begin |
14427
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
430 |
if ((cWaterRise <> 0) or (cHealthDecrease <> 0)) and (not (isInMultiShoot or bBetweenTurns)) then |
14419
87562a68c41f
Fix some King Mode bugs causing minions not always being properly killed
Wuzzy <Wuzzy2@mail.ru>
parents:
14415
diff
changeset
|
431 |
begin |
14427
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
432 |
// Start Sudden Death |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
433 |
if (TotalRoundsPre = cSuddenDTurns) and (not SuddenDeath) then |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
434 |
begin |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
435 |
StartSuddenDeath(); |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
436 |
delay:= delaySDStart; |
14427
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
437 |
inc(step); |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
438 |
end |
14427
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
439 |
// Show Sudden Death warning message |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
440 |
else if (TotalRoundsPre < cSuddenDTurns) and ((LastSuddenDWarn = -2) or (LastSuddenDWarn <> TotalRoundsPre)) then |
10254 | 441 |
begin |
13651
56a925256039
Add separate TotalRounds var for Lua to count the *actual* number of rounds that have been played
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
442 |
i:= cSuddenDTurns - TotalRoundsPre; |
10254 | 443 |
s:= ansistring(inttostr(i)); |
14428
7dbc3e5f8129
Also show SD warning 3 and 7 rounds before SD
Wuzzy <Wuzzy2@mail.ru>
parents:
14427
diff
changeset
|
444 |
// X rounds before SD. X = 1, 2, 3, 5, 7, 10, 15, 20, 25, 50, 100, ... |
7dbc3e5f8129
Also show SD warning 3 and 7 rounds before SD
Wuzzy <Wuzzy2@mail.ru>
parents:
14427
diff
changeset
|
445 |
if (i > 0) and ((i <= 3) or (i = 7) or ((i mod 50 = 0) or ((i <= 25) and (i mod 5 = 0)))) then |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
446 |
begin |
14427
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
447 |
if i = 1 then |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
448 |
AddCaption(trmsg[sidRoundSD], capcolDefault, capgrpGameState) |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
449 |
else |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
450 |
AddCaption(FormatA(trmsg[sidRoundsSD], s), capcolDefault, capgrpGameState); |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
451 |
delay:= delaySDWarning; |
14427
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
452 |
inc(step); |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
453 |
LastSuddenDWarn:= TotalRoundsPre; |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
454 |
end |
14427
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
455 |
else |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
456 |
inc(step, 2); |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
457 |
end |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
458 |
else |
b48c270328a5
Show Sudden Death warning messages only once per round
Wuzzy <Wuzzy2@mail.ru>
parents:
14426
diff
changeset
|
459 |
inc(step, 2); |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
460 |
end |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
461 |
else |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
462 |
inc(step, 2); |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
463 |
end; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
464 |
stDelay3: |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
465 |
if DoDelay() then |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
466 |
inc(step); |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
467 |
stHealth: |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
468 |
begin |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
469 |
if bBetweenTurns |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
470 |
or isInMultiShoot |
14423
234bb36d3b8c
Fix poison damage not working in first round
Wuzzy <Wuzzy2@mail.ru>
parents:
14421
diff
changeset
|
471 |
or (TotalRoundsReal = -1) then |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
472 |
inc(step) |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
473 |
else |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
474 |
begin |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
475 |
bBetweenTurns:= true; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
476 |
HealthMachine; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
477 |
step:= stChDmg |
10254 | 478 |
end; |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
479 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
480 |
stSpawn: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
481 |
begin |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
482 |
if (not isInMultiShoot) then |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
483 |
begin |
14789
185f07ec4d12
New callback: onCaseDrop (called when engine MIGHT drop a crate)
Wuzzy <Wuzzy2@mail.ru>
parents:
14786
diff
changeset
|
484 |
tmpGear:= SpawnBoxOfSmth; |
185f07ec4d12
New callback: onCaseDrop (called when engine MIGHT drop a crate)
Wuzzy <Wuzzy2@mail.ru>
parents:
14786
diff
changeset
|
485 |
if tmpGear <> nil then |
185f07ec4d12
New callback: onCaseDrop (called when engine MIGHT drop a crate)
Wuzzy <Wuzzy2@mail.ru>
parents:
14786
diff
changeset
|
486 |
ScriptCall('onCaseDrop', tmpGear^.uid) |
185f07ec4d12
New callback: onCaseDrop (called when engine MIGHT drop a crate)
Wuzzy <Wuzzy2@mail.ru>
parents:
14786
diff
changeset
|
487 |
else |
185f07ec4d12
New callback: onCaseDrop (called when engine MIGHT drop a crate)
Wuzzy <Wuzzy2@mail.ru>
parents:
14786
diff
changeset
|
488 |
ScriptCall('onCaseDrop'); |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
489 |
delay:= delayFinal; |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
490 |
inc(step); |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
491 |
end |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
492 |
else |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
493 |
inc(step, 2) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
494 |
end; |
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
495 |
stDelay4: |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
496 |
if DoDelay() then |
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
497 |
inc(step); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
498 |
stNTurn: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
499 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
500 |
if isInMultiShoot then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
501 |
isInMultiShoot:= false |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
502 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
503 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
504 |
// delayed till after 0.9.12 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
505 |
// reset to default zoom |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
506 |
//ZoomValue:= ZoomDefault; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
507 |
with CurrentHedgehog^ do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
508 |
if (Gear <> nil) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
509 |
and ((Gear^.State and gstAttacked) = 0) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
510 |
and (MultiShootAttacks > 0) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
511 |
OnUsedAmmo(CurrentHedgehog^); |
3697 | 512 |
|
3396
e5b3e5f2818e
More portal changes. Allows for a multishoot utility. Hopefully not breaking anything.
nemo
parents:
3390
diff
changeset
|
513 |
EndTurnCleanup; |
2376 | 514 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
515 |
FreeActionsList; // could send -left, -right and similar commands, so should be called before /nextturn |
1298 | 516 |
|
7181
0791c1f2734c
Welp. We have a bit of a problem here. Reverting the move of nextturn. But this causes a desync in scripting unless we can find a better fix.
nemo
parents:
7174
diff
changeset
|
517 |
ParseCommand('/nextturn', true); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
518 |
SwitchHedgehog; |
1298 | 519 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
520 |
AfterSwitchHedgehog; |
8349
a1dbe148f10f
move onNewTurn, onGameTick and onGameTick20 to try and avoid ParseCommand breakage after nextturn call. Needs testing, but should be safe for most scripts. Also fix locale loading.
nemo
parents:
8204
diff
changeset
|
521 |
bBetweenTurns:= false; |
a1dbe148f10f
move onNewTurn, onGameTick and onGameTick20 to try and avoid ParseCommand breakage after nextturn call. Needs testing, but should be safe for most scripts. Also fix locale loading.
nemo
parents:
8204
diff
changeset
|
522 |
NewTurnTick:= GameTicks + 1 |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
523 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
524 |
step:= Low(step) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
525 |
end; |
3949
4c4c0a2507cc
Add the standard delay (1.25 seconds) between attacks on inf attack mode, as well as checks for damage and win.
nemo
parents:
3946
diff
changeset
|
526 |
end |
4c4c0a2507cc
Add the standard delay (1.25 seconds) between attacks on inf attack mode, as well as checks for damage and win.
nemo
parents:
3946
diff
changeset
|
527 |
else if ((GameFlags and gfInfAttack) <> 0) then |
4c4c0a2507cc
Add the standard delay (1.25 seconds) between attacks on inf attack mode, as well as checks for damage and win.
nemo
parents:
3946
diff
changeset
|
528 |
begin |
4c4c0a2507cc
Add the standard delay (1.25 seconds) between attacks on inf attack mode, as well as checks for damage and win.
nemo
parents:
3946
diff
changeset
|
529 |
if delay2 = 0 then |
5296
0bb518ad2da8
At mikade's request and w/ unc0rr's blessing, dramatically slash inactivity delay from 1.25s down to a tenth of a second.
nemo
parents:
5284
diff
changeset
|
530 |
delay2:= cInactDelay * 50 |
3949
4c4c0a2507cc
Add the standard delay (1.25 seconds) between attacks on inf attack mode, as well as checks for damage and win.
nemo
parents:
3946
diff
changeset
|
531 |
else |
3957 | 532 |
begin |
3949
4c4c0a2507cc
Add the standard delay (1.25 seconds) between attacks on inf attack mode, as well as checks for damage and win.
nemo
parents:
3946
diff
changeset
|
533 |
dec(delay2); |
4c4c0a2507cc
Add the standard delay (1.25 seconds) between attacks on inf attack mode, as well as checks for damage and win.
nemo
parents:
3946
diff
changeset
|
534 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
535 |
if ((delay2 mod cInactDelay) = 0) and (CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil) |
13833
c0a7ef988151
Fix teleport cursor briefly re-appearing after placing hog in hog placement phase + inf attack mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13811
diff
changeset
|
536 |
and (not CurrentHedgehog^.Unplaced) |
c0a7ef988151
Fix teleport cursor briefly re-appearing after placing hog in hog placement phase + inf attack mode
Wuzzy <Wuzzy2@mail.ru>
parents:
13811
diff
changeset
|
537 |
and (not PlacingHogs) then |
5507
1040c0946ef8
This should make bee/airstrikes play nicer with infinite attack mode
nemo
parents:
5501
diff
changeset
|
538 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
539 |
if (CurrentHedgehog^.Gear^.State and gstAttacked <> 0) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
540 |
and (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_NeedTarget <> 0) then |
5507
1040c0946ef8
This should make bee/airstrikes play nicer with infinite attack mode
nemo
parents:
5501
diff
changeset
|
541 |
begin |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
542 |
CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State or gstChooseTarget; |
5507
1040c0946ef8
This should make bee/airstrikes play nicer with infinite attack mode
nemo
parents:
5501
diff
changeset
|
543 |
isCursorVisible := true |
1040c0946ef8
This should make bee/airstrikes play nicer with infinite attack mode
nemo
parents:
5501
diff
changeset
|
544 |
end; |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6380
diff
changeset
|
545 |
CurrentHedgehog^.Gear^.State:= CurrentHedgehog^.Gear^.State and (not gstAttacked); |
5507
1040c0946ef8
This should make bee/airstrikes play nicer with infinite attack mode
nemo
parents:
5501
diff
changeset
|
546 |
end; |
3957 | 547 |
if delay2 = 0 then |
548 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
549 |
if (CurrentHedgehog^.Gear <> nil) and (CurrentHedgehog^.Gear^.State and gstAttacked = 0) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
550 |
and (CurAmmoGear = nil) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
551 |
SweepDirty; |
9497 | 552 |
if (CurrentHedgehog^.Gear = nil) or (CurrentHedgehog^.Gear^.State and gstHHDriven = 0) or (CurrentHedgehog^.Gear^.Damage = 0) then |
553 |
CheckNoDamage; |
|
4207
31e77dcf18fe
better end of turn in infinite attack mode. NEEDS TESTING.
nemo
parents:
4198
diff
changeset
|
554 |
AliveCount:= 0; // shorter version of check for win to allow typical step activity to proceed |
31e77dcf18fe
better end of turn in infinite attack mode. NEEDS TESTING.
nemo
parents:
4198
diff
changeset
|
555 |
for i:= 0 to Pred(ClansCount) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
556 |
if ClansArray[i]^.ClanHealth > 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
557 |
inc(AliveCount); |
4207
31e77dcf18fe
better end of turn in infinite attack mode. NEEDS TESTING.
nemo
parents:
4198
diff
changeset
|
558 |
if (AliveCount <= 1) and ((GameFlags and gfOneClanMode) = 0) then |
31e77dcf18fe
better end of turn in infinite attack mode. NEEDS TESTING.
nemo
parents:
4198
diff
changeset
|
559 |
begin |
31e77dcf18fe
better end of turn in infinite attack mode. NEEDS TESTING.
nemo
parents:
4198
diff
changeset
|
560 |
step:= stChDmg; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
561 |
if TagTurnTimeLeft = 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
562 |
TagTurnTimeLeft:= TurnTimeLeft; |
12322
9aa483762025
Fix sndBoring being played when force-ending turn due to victory
Wuzzy <almikes@aol.com>
parents:
12306
diff
changeset
|
563 |
GameOver:= true; |
4207
31e77dcf18fe
better end of turn in infinite attack mode. NEEDS TESTING.
nemo
parents:
4198
diff
changeset
|
564 |
TurnTimeLeft:= 0 |
31e77dcf18fe
better end of turn in infinite attack mode. NEEDS TESTING.
nemo
parents:
4198
diff
changeset
|
565 |
end |
3957 | 566 |
end |
3949
4c4c0a2507cc
Add the standard delay (1.25 seconds) between attacks on inf attack mode, as well as checks for damage and win.
nemo
parents:
3946
diff
changeset
|
567 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
568 |
end; |
15 | 569 |
|
4 | 570 |
if TurnTimeLeft > 0 then |
11916
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
571 |
if IsClockRunning() then |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
572 |
begin |
14431
e72ffa27492d
Also play countdown warning sounds with low initial turn time
Wuzzy <Wuzzy2@mail.ru>
parents:
14429
diff
changeset
|
573 |
if (cHedgehogTurnTime > TurnTimeLeft) |
11916
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
574 |
and (CurrentHedgehog^.Gear <> nil) |
12181 | 575 |
and ((CurrentHedgehog^.Gear^.State and gstAttacked) = 0) |
13748
1a26c472f5ef
Don't play timer countdown sounds if in ready phase
Wuzzy <Wuzzy2@mail.ru>
parents:
13737
diff
changeset
|
576 |
and (not isGetAwayTime) and (ReadyTimeLeft = 0) then |
14431
e72ffa27492d
Also play countdown warning sounds with low initial turn time
Wuzzy <Wuzzy2@mail.ru>
parents:
14429
diff
changeset
|
577 |
if (TurnTimeLeft = 5000) and (cHedgehogTurnTime >= 10000) then |
11916
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
578 |
PlaySoundV(sndHurry, CurrentTeam^.voicepack) |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
579 |
else if TurnTimeLeft = 4000 then |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
580 |
PlaySound(sndCountdown4) |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
581 |
else if TurnTimeLeft = 3000 then |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
582 |
PlaySound(sndCountdown3) |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
583 |
else if TurnTimeLeft = 2000 then |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
584 |
PlaySound(sndCountdown2) |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
585 |
else if TurnTimeLeft = 1000 then |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
586 |
PlaySound(sndCountdown1); |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
587 |
if ReadyTimeLeft > 0 then |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
588 |
begin |
14677
db05d9bf7466
Hide hog GUI extras in scripted cinematic, also suppress some voices
Wuzzy <Wuzzy2@mail.ru>
parents:
14593
diff
changeset
|
589 |
if (ReadyTimeLeft = 2000) and (LastVoice.snd = sndNone) and (not PlacingHogs) and (not CinematicScript) then |
11916
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
590 |
AddVoice(sndComeonthen, CurrentTeam^.voicepack); |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
591 |
dec(ReadyTimeLeft) |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
592 |
end |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
593 |
else |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
594 |
dec(TurnTimeLeft) |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
595 |
end; |
351 | 596 |
|
2621
956ff066f3a5
Fix desync when playing with AI via network, occuring in certain conditions
unc0rr
parents:
2619
diff
changeset
|
597 |
if skipFlag then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
598 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
599 |
if TagTurnTimeLeft = 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
600 |
TagTurnTimeLeft:= TurnTimeLeft; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
601 |
TurnTimeLeft:= 0; |
3784
75aa91bea32b
Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents:
3775
diff
changeset
|
602 |
skipFlag:= false; |
75aa91bea32b
Extend statistics collection (TeamKills, TurnSkips, TeamDamage)
burp
parents:
3775
diff
changeset
|
603 |
inc(CurrentHedgehog^.Team^.stats.TurnSkips); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
604 |
end; |
2621
956ff066f3a5
Fix desync when playing with AI via network, occuring in certain conditions
unc0rr
parents:
2619
diff
changeset
|
605 |
|
2134 | 606 |
if ((GameTicks and $FFFF) = $FFFF) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
607 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
608 |
if (not CurrentTeam^.ExtDriven) then |
5810 | 609 |
begin |
7068 | 610 |
SendIPC(_S'#'); |
5810 | 611 |
AddFileLog('hiTicks increment message sent') |
612 |
end; |
|
2134 | 613 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
614 |
if (not CurrentTeam^.ExtDriven) or CurrentTeam^.hasGone then |
10395
0d20f6fc038a
Better diagnostics in log, even though it shouldn't matter anymore
unc0rr
parents:
10254
diff
changeset
|
615 |
begin |
0d20f6fc038a
Better diagnostics in log, even though it shouldn't matter anymore
unc0rr
parents:
10254
diff
changeset
|
616 |
AddFileLog('hiTicks increment (current team is local or gone)'); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
617 |
inc(hiTicks) // we do not recieve a message for this |
10395
0d20f6fc038a
Better diagnostics in log, even though it shouldn't matter anymore
unc0rr
parents:
10254
diff
changeset
|
618 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
619 |
end; |
7407 | 620 |
AddRandomness(CheckSum); |
9672
8663d299ba62
this should prevent sliding when game clock isn't running. sorry unc0rr, not going to bother encapsulating. maybe later. short on time right now/lazy
nemo
parents:
9651
diff
changeset
|
621 |
TurnClockActive:= prevtime <> TurnTimeLeft; |
14062
44f20c9e6861
Add Ouch taunt for particulary damaging hits (fall, bullet, shove, hammer)
Wuzzy <Wuzzy2@mail.ru>
parents:
13897
diff
changeset
|
622 |
inc(GameTicks); |
44f20c9e6861
Add Ouch taunt for particulary damaging hits (fall, bullet, shove, hammer)
Wuzzy <Wuzzy2@mail.ru>
parents:
13897
diff
changeset
|
623 |
if (OuchTauntTimer > 0) then |
44f20c9e6861
Add Ouch taunt for particulary damaging hits (fall, bullet, shove, hammer)
Wuzzy <Wuzzy2@mail.ru>
parents:
13897
diff
changeset
|
624 |
dec(OuchTauntTimer); |
4 | 625 |
end; |
626 |
||
3396
e5b3e5f2818e
More portal changes. Allows for a multishoot utility. Hopefully not breaking anything.
nemo
parents:
3390
diff
changeset
|
627 |
//Purpose, to reset all transient attributes toggled by a utility and clean up various gears and effects at end of turn |
1854 | 628 |
//If any of these are set as permanent toggles in the frontend, that needs to be checked and skipped here. |
3396
e5b3e5f2818e
More portal changes. Allows for a multishoot utility. Hopefully not breaking anything.
nemo
parents:
3390
diff
changeset
|
629 |
procedure EndTurnCleanup; |
1865
ebc6dfca60d4
- nemo's patch: some animations, zero probability for infinite weapons
unc0rr
parents:
1863
diff
changeset
|
630 |
var i: LongInt; |
3480
c4c3f3512404
Prevent all portal loops the guaranteed way, at least until sheepluva's tests yield something reliable.
nemo
parents:
3476
diff
changeset
|
631 |
t: PGear; |
1849 | 632 |
begin |
2221 | 633 |
SpeechText:= ''; // in case it has not been consumed |
2017 | 634 |
|
1895 | 635 |
if (GameFlags and gfLowGravity) = 0 then |
4623 | 636 |
begin |
5872
454f246fe4c5
uh, that was just so I could look at the flame more closely, wasn't supposed to be checked in
nemo
parents:
5871
diff
changeset
|
637 |
cGravity:= cMaxWindSpeed * 2; |
11887
083c12795632
Show symbols at bottom right while extra damage / low grav. are active
Wuzzy <almikes@aol.com>
parents:
11881
diff
changeset
|
638 |
cGravityf:= 0.00025 * 2; |
083c12795632
Show symbols at bottom right while extra damage / low grav. are active
Wuzzy <almikes@aol.com>
parents:
11881
diff
changeset
|
639 |
cLowGravity:= false |
4623 | 640 |
end; |
1895 | 641 |
|
2017 | 642 |
if (GameFlags and gfVampiric) = 0 then |
643 |
cVampiric:= false; |
|
644 |
||
1849 | 645 |
cDamageModifier:= _1; |
1895 | 646 |
|
647 |
if (GameFlags and gfLaserSight) = 0 then |
|
12306
cdd884397760
Fix sniper rifle disabling laser sight utility after shooting
Wuzzy <almikes@aol.com>
parents:
12210
diff
changeset
|
648 |
begin |
1895 | 649 |
cLaserSighting:= false; |
12306
cdd884397760
Fix sniper rifle disabling laser sight utility after shooting
Wuzzy <almikes@aol.com>
parents:
12210
diff
changeset
|
650 |
cLaserSightingSniper:= false |
cdd884397760
Fix sniper rifle disabling laser sight utility after shooting
Wuzzy <almikes@aol.com>
parents:
12210
diff
changeset
|
651 |
end; |
2023
41d3afaa20c7
Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump
nemo
parents:
2020
diff
changeset
|
652 |
|
41d3afaa20c7
Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump
nemo
parents:
2020
diff
changeset
|
653 |
// have to sweep *all* current team hedgehogs since it is theoretically possible if you have enough invulnerabilities and switch turns to make your entire team invulnerable |
41d3afaa20c7
Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump
nemo
parents:
2020
diff
changeset
|
654 |
if (CurrentTeam <> nil) then |
4099 | 655 |
with CurrentTeam^ do |
656 |
for i:= 0 to cMaxHHIndex do |
|
657 |
with Hedgehogs[i] do |
|
658 |
begin |
|
2045
b0588498bc3a
- Fix network (my crappy fault, triggered by nemo's patch)
unc0rr
parents:
2042
diff
changeset
|
659 |
|
4099 | 660 |
if (Gear <> nil) then |
661 |
begin |
|
662 |
if (GameFlags and gfInvulnerable) = 0 then |
|
9685
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
663 |
Gear^.Hedgehog^.Effects[heInvulnerable]:= 0; |
13345
e54d6db06f35
Fix hog being unable to walk after using sniper rifle without firing both shots
Wuzzy <Wuzzy2@mail.ru>
parents:
13319
diff
changeset
|
664 |
if (Gear^.Hedgehog^.Effects[heArtillery] = 2) then |
e54d6db06f35
Fix hog being unable to walk after using sniper rifle without firing both shots
Wuzzy <Wuzzy2@mail.ru>
parents:
13319
diff
changeset
|
665 |
Gear^.Hedgehog^.Effects[heArtillery]:= 0; |
4099 | 666 |
end; |
667 |
end; |
|
3480
c4c3f3512404
Prevent all portal loops the guaranteed way, at least until sheepluva's tests yield something reliable.
nemo
parents:
3476
diff
changeset
|
668 |
t:= GearsList; |
c4c3f3512404
Prevent all portal loops the guaranteed way, at least until sheepluva's tests yield something reliable.
nemo
parents:
3476
diff
changeset
|
669 |
while t <> nil do |
c4c3f3512404
Prevent all portal loops the guaranteed way, at least until sheepluva's tests yield something reliable.
nemo
parents:
3476
diff
changeset
|
670 |
begin |
c4c3f3512404
Prevent all portal loops the guaranteed way, at least until sheepluva's tests yield something reliable.
nemo
parents:
3476
diff
changeset
|
671 |
t^.PortalCounter:= 0; |
4372 | 672 |
if ((GameFlags and gfResetHealth) <> 0) and (t^.Kind = gtHedgehog) and (t^.Health < t^.Hedgehog^.InitialHealth) then |
4101
c5967f360beb
Apply the reset to all hogs on all teams in uGears. Make InitialHealth same type as Health to avoid issues w/ initial health > 255. Update InitialHealth with the king buff.
nemo
parents:
4099
diff
changeset
|
673 |
begin |
12938
b075ad6112c9
Show subtle heal effect for healing hogs in health reset mode
Wuzzy <Wuzzy2@mail.ru>
parents:
12928
diff
changeset
|
674 |
i:= t^.Hedgehog^.InitialHealth - t^.Health; |
4372 | 675 |
t^.Health:= t^.Hedgehog^.InitialHealth; |
12938
b075ad6112c9
Show subtle heal effect for healing hogs in health reset mode
Wuzzy <Wuzzy2@mail.ru>
parents:
12928
diff
changeset
|
676 |
if i > 0 then |
b075ad6112c9
Show subtle heal effect for healing hogs in health reset mode
Wuzzy <Wuzzy2@mail.ru>
parents:
12928
diff
changeset
|
677 |
HHHeal(t^.Hedgehog, i, false, $00FF0040); |
4372 | 678 |
RenderHealth(t^.Hedgehog^); |
4101
c5967f360beb
Apply the reset to all hogs on all teams in uGears. Make InitialHealth same type as Health to avoid issues w/ initial health > 255. Update InitialHealth with the king buff.
nemo
parents:
4099
diff
changeset
|
679 |
end; |
3480
c4c3f3512404
Prevent all portal loops the guaranteed way, at least until sheepluva's tests yield something reliable.
nemo
parents:
3476
diff
changeset
|
680 |
t:= t^.NextGear |
3946
41e06b74c991
Enable resetting of weapons after each turn - useful in combination with a limited weaponset and unlimited attacks
nemo
parents:
3908
diff
changeset
|
681 |
end; |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
682 |
|
15241
ceb289e8a582
King Mode: Fix king placement phase not working correctly with multiple teams in a clan
Wuzzy <Wuzzy2@mail.ru>
parents:
15221
diff
changeset
|
683 |
if ((GameFlags and gfResetWeps) <> 0) and (not PlacingHogs) and (not PlacingKings) then |
4099 | 684 |
ResetWeapons; |
4101
c5967f360beb
Apply the reset to all hogs on all teams in uGears. Make InitialHealth same type as Health to avoid issues w/ initial health > 255. Update InitialHealth with the king buff.
nemo
parents:
4099
diff
changeset
|
685 |
|
4099 | 686 |
if (GameFlags and gfResetHealth) <> 0 then |
4101
c5967f360beb
Apply the reset to all hogs on all teams in uGears. Make InitialHealth same type as Health to avoid issues w/ initial health > 255. Update InitialHealth with the king buff.
nemo
parents:
4099
diff
changeset
|
687 |
for i:= 0 to Pred(TeamsCount) do |
c5967f360beb
Apply the reset to all hogs on all teams in uGears. Make InitialHealth same type as Health to avoid issues w/ initial health > 255. Update InitialHealth with the king buff.
nemo
parents:
4099
diff
changeset
|
688 |
RecountTeamHealth(TeamsArray[i]) |
1849 | 689 |
end; |
2045
b0588498bc3a
- Fix network (my crappy fault, triggered by nemo's patch)
unc0rr
parents:
2042
diff
changeset
|
690 |
|
4385 | 691 |
procedure DrawGears; |
692 |
var Gear: PGear; |
|
693 |
x, y: LongInt; |
|
2802 | 694 |
begin |
4385 | 695 |
Gear:= GearsList; |
696 |
while Gear <> nil do |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
697 |
begin |
7257
566bdf2f023b
Modified DrawGear so that it doesn't draw the gear when it has message gmRemoveFromList (it was causing havoc when I used HideHog as it could not access the position of the hog)
belphegorr <szabibibi@gmail.com>
parents:
7181
diff
changeset
|
698 |
if (Gear^.State and gstInvisible = 0) and (Gear^.Message and gmRemoveFromList = 0) then |
5348
0bc81de36e08
Don't draw snow flakes spawned in land, introduce gstInvisible flag
unc0rr
parents:
5319
diff
changeset
|
699 |
begin |
0bc81de36e08
Don't draw snow flakes spawned in land, introduce gstInvisible flag
unc0rr
parents:
5319
diff
changeset
|
700 |
x:= hwRound(Gear^.X) + WorldDx; |
0bc81de36e08
Don't draw snow flakes spawned in land, introduce gstInvisible flag
unc0rr
parents:
5319
diff
changeset
|
701 |
y:= hwRound(Gear^.Y) + WorldDy; |
0bc81de36e08
Don't draw snow flakes spawned in land, introduce gstInvisible flag
unc0rr
parents:
5319
diff
changeset
|
702 |
RenderGear(Gear, x, y); |
0bc81de36e08
Don't draw snow flakes spawned in land, introduce gstInvisible flag
unc0rr
parents:
5319
diff
changeset
|
703 |
end; |
4385 | 704 |
Gear:= Gear^.NextGear |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
705 |
end; |
10866 | 706 |
|
707 |
if SpeechHogNumber > 0 then |
|
708 |
DrawHHOrder(); |
|
2802 | 709 |
end; |
710 |
||
13634
73c2a669c1fd
Make sure gear fuel and alt weapon overlays are always drawn on top
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
711 |
// Draw gear timers and other GUI overlays |
73c2a669c1fd
Make sure gear fuel and alt weapon overlays are always drawn on top
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
712 |
procedure DrawGearsGui; |
12210
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
713 |
var Gear: PGear; |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
714 |
x, y: LongInt; |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
715 |
begin |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
716 |
Gear:= GearsList; |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
717 |
while Gear <> nil do |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
718 |
begin |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
719 |
x:= hwRound(Gear^.X) + WorldDx; |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
720 |
y:= hwRound(Gear^.Y) + WorldDy; |
15221
0879fba70510
Render contour of air mines when in highly opaque water
Wuzzy <Wuzzy2@mail.ru>
parents:
15191
diff
changeset
|
721 |
if Gear^.Kind = gtAirMine then |
0879fba70510
Render contour of air mines when in highly opaque water
Wuzzy <Wuzzy2@mail.ru>
parents:
15191
diff
changeset
|
722 |
RenderAirMineGuiExtras(Gear, x, y); |
14770
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14754
diff
changeset
|
723 |
RenderGearHealth(Gear, x, y); |
12210
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
724 |
RenderGearTimer(Gear, x, y); |
13634
73c2a669c1fd
Make sure gear fuel and alt weapon overlays are always drawn on top
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
725 |
if Gear^.Kind = gtHedgehog then |
73c2a669c1fd
Make sure gear fuel and alt weapon overlays are always drawn on top
Wuzzy <Wuzzy2@mail.ru>
parents:
13605
diff
changeset
|
726 |
RenderHHGuiExtras(Gear, x, y); |
12210
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
727 |
Gear:= Gear^.NextGear |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
728 |
end; |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
729 |
end; |
442bab755bb4
Render gear timers in front of water
Wuzzy <almikes@aol.com>
parents:
12192
diff
changeset
|
730 |
|
4 | 731 |
procedure FreeGearsList; |
732 |
var t, tt: PGear; |
|
733 |
begin |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
734 |
tt:= GearsList; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
735 |
GearsList:= nil; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
736 |
while tt <> nil do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
737 |
begin |
14977 | 738 |
FreeAndNilTexture(tt^.Tex); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
739 |
t:= tt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
740 |
tt:= tt^.NextGear; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
741 |
Dispose(t) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
742 |
end; |
4 | 743 |
end; |
744 |
||
10 | 745 |
procedure AddMiscGears; |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
746 |
var p,i,j,t,h,unplaced: Longword; |
10494 | 747 |
rx, ry: LongInt; |
7406
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7400
diff
changeset
|
748 |
rdx, rdy: hwFloat; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
749 |
Gear: PGear; |
4 | 750 |
begin |
498 | 751 |
AddGear(0, 0, gtATStartGame, 0, _0, _0, 2000); |
1435
d4b32ee3caa6
Fix using freed memory (could be the cause of queue error problem and other bugs)
unc0rr
parents:
1434
diff
changeset
|
752 |
|
4830
c5ddc3e6c8a4
Don't waste CPU cycles trying to find a piece of land when there's no free land left
unc0rr
parents:
4826
diff
changeset
|
753 |
i:= 0; |
10236
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
754 |
unplaced:= 0; |
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
755 |
while (i < cLandMines) and (unplaced < 4) do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
756 |
begin |
4148
eaff5615f976
Decouple forts from divide/mines/explosives, since those can be set individually these days
henek
parents:
4143
diff
changeset
|
757 |
Gear:= AddGear(0, 0, gtMine, 0, _0, _0, 0); |
eaff5615f976
Decouple forts from divide/mines/explosives, since those can be set individually these days
henek
parents:
4143
diff
changeset
|
758 |
FindPlace(Gear, false, 0, LAND_WIDTH); |
10236
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
759 |
|
10510 | 760 |
if Gear = nil then |
10236
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
761 |
inc(unplaced) |
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
762 |
else |
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
763 |
unplaced:= 0; |
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
764 |
|
4830
c5ddc3e6c8a4
Don't waste CPU cycles trying to find a piece of land when there's no free land left
unc0rr
parents:
4826
diff
changeset
|
765 |
inc(i) |
4148
eaff5615f976
Decouple forts from divide/mines/explosives, since those can be set individually these days
henek
parents:
4143
diff
changeset
|
766 |
end; |
4830
c5ddc3e6c8a4
Don't waste CPU cycles trying to find a piece of land when there's no free land left
unc0rr
parents:
4826
diff
changeset
|
767 |
|
c5ddc3e6c8a4
Don't waste CPU cycles trying to find a piece of land when there's no free land left
unc0rr
parents:
4826
diff
changeset
|
768 |
i:= 0; |
10236
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
769 |
unplaced:= 0; |
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
770 |
while (i < cExplosives) and (unplaced < 4) do |
4148
eaff5615f976
Decouple forts from divide/mines/explosives, since those can be set individually these days
henek
parents:
4143
diff
changeset
|
771 |
begin |
eaff5615f976
Decouple forts from divide/mines/explosives, since those can be set individually these days
henek
parents:
4143
diff
changeset
|
772 |
Gear:= AddGear(0, 0, gtExplosives, 0, _0, _0, 0); |
eaff5615f976
Decouple forts from divide/mines/explosives, since those can be set individually these days
henek
parents:
4143
diff
changeset
|
773 |
FindPlace(Gear, false, 0, LAND_WIDTH); |
10236
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
774 |
|
10510 | 775 |
if Gear = nil then |
10236
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
776 |
inc(unplaced) |
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
777 |
else |
12447
ac710bb12fbb
Add checkins so that spawning on top of things is possible too
nemo
parents:
12322
diff
changeset
|
778 |
begin |
10236
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
779 |
unplaced:= 0; |
12447
ac710bb12fbb
Add checkins so that spawning on top of things is possible too
nemo
parents:
12322
diff
changeset
|
780 |
AddCI(Gear) |
ac710bb12fbb
Add checkins so that spawning on top of things is possible too
nemo
parents:
12322
diff
changeset
|
781 |
end; |
10236
8fa1ccfba752
- Increase limits on number of mines and explosives in game scheme
unc0rr
parents:
10124
diff
changeset
|
782 |
|
4830
c5ddc3e6c8a4
Don't waste CPU cycles trying to find a piece of land when there's no free land left
unc0rr
parents:
4826
diff
changeset
|
783 |
inc(i) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
784 |
end; |
1895 | 785 |
|
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
786 |
i:= 0; |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
787 |
j:= 0; |
15191
3cc1a79de3fd
Fix air mine spawning inside land if land is almost completely full
Wuzzy <Wuzzy2@mail.ru>
parents:
15190
diff
changeset
|
788 |
p:= 0; // 0: good position, 1: bad position. |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
789 |
unplaced:= 0; |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
790 |
if cAirMines > 0 then |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
791 |
Gear:= AddGear(0, 0, gtAirMine, 0, _0, _0, 0); |
13570 | 792 |
while (i < cAirMines) and (j < 1000*cAirMines) do |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
793 |
begin |
13570 | 794 |
p:= 0; |
14585
599f136d4f32
Don't try to spawn air mines beyond the bounce world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
14493
diff
changeset
|
795 |
if (hasBorder) or (WorldEdge = weBounce) then |
599f136d4f32
Don't try to spawn air mines beyond the bounce world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
14493
diff
changeset
|
796 |
rx:= leftX+GetRandom(rightX-leftX-16)+8 |
599f136d4f32
Don't try to spawn air mines beyond the bounce world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
14493
diff
changeset
|
797 |
else |
599f136d4f32
Don't try to spawn air mines beyond the bounce world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
14493
diff
changeset
|
798 |
rx:= leftX+GetRandom(rightX-leftX+400)-200; |
13570 | 799 |
if hasBorder then |
800 |
ry:= topY+GetRandom(LAND_HEIGHT-topY-16)+8 |
|
801 |
else |
|
14585
599f136d4f32
Don't try to spawn air mines beyond the bounce world edge
Wuzzy <Wuzzy2@mail.ru>
parents:
14493
diff
changeset
|
802 |
ry:= topY+GetRandom(LAND_HEIGHT-topY+400)-200; |
13570 | 803 |
Gear^.X:= int2hwFloat(CalcWorldWrap(rx,Gear^.Radius)); |
804 |
Gear^.Y:= int2hwFloat(ry); |
|
805 |
if CheckLandValue(rx, ry, $FFFF) and |
|
806 |
(TestCollisionYwithGear(Gear,-1) = 0) and |
|
807 |
(TestCollisionXwithGear(Gear, 1) = 0) and |
|
808 |
(TestCollisionXwithGear(Gear,-1) = 0) and |
|
809 |
(TestCollisionYwithGear(Gear, 1) = 0) then |
|
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
810 |
begin |
13570 | 811 |
t:= 0; |
812 |
while (t < TeamsCount) and (p = 0) do |
|
813 |
begin |
|
814 |
h:= 0; |
|
815 |
with TeamsArray[t]^ do |
|
13571 | 816 |
while (h <= cMaxHHIndex) and (p = 0) do |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
817 |
begin |
13570 | 818 |
if (Hedgehogs[h].Gear <> nil) then |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
819 |
begin |
13570 | 820 |
rdx:=Gear^.X-Hedgehogs[h].Gear^.X; |
821 |
rdy:=Gear^.Y-Hedgehogs[h].Gear^.Y; |
|
822 |
if (Gear^.Angle < $FFFFFFFF) and |
|
823 |
((rdx.Round+rdy.Round < Gear^.Angle) and |
|
824 |
(hwRound(hwSqr(rdx) + hwSqr(rdy)) < sqr(Gear^.Angle))) then |
|
825 |
begin |
|
826 |
p:= 1 |
|
827 |
end |
|
828 |
end; |
|
829 |
inc(h) |
|
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
830 |
end; |
13570 | 831 |
inc(t) |
832 |
end; |
|
833 |
if p = 0 then |
|
834 |
begin |
|
835 |
inc(i); |
|
836 |
AddFileLog('Placed Air Mine @ (' + inttostr(rx) + ',' + inttostr(ry) + ')'); |
|
837 |
if i < cAirMines then |
|
838 |
Gear:= AddGear(0, 0, gtAirMine, 0, _0, _0, 0) |
|
839 |
end |
|
15191
3cc1a79de3fd
Fix air mine spawning inside land if land is almost completely full
Wuzzy <Wuzzy2@mail.ru>
parents:
15190
diff
changeset
|
840 |
end |
3cc1a79de3fd
Fix air mine spawning inside land if land is almost completely full
Wuzzy <Wuzzy2@mail.ru>
parents:
15190
diff
changeset
|
841 |
else |
3cc1a79de3fd
Fix air mine spawning inside land if land is almost completely full
Wuzzy <Wuzzy2@mail.ru>
parents:
15190
diff
changeset
|
842 |
p:= 1; |
13570 | 843 |
inc(j) |
10818
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
844 |
end; |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
845 |
if p <> 0 then DeleteGear(Gear); |
f642a28cab0c
Add placement of airmines in engine outside of hog proximity. Has a bug, only protecting 1st team. Also fix a spelling error and rename gstHHChooseTarget to gstChooseTarget
nemo
parents:
10789
diff
changeset
|
846 |
|
1895 | 847 |
if (GameFlags and gfLowGravity) <> 0 then |
4623 | 848 |
begin |
3355
dc9e61e67484
cWindSpeed recalculation assumed GetRandom returns a value between 0.0-1.0 while in fact is in the 0.0-0.5 range; Halve cMaxWindSpeed to compensate.
palewolf
parents:
3350
diff
changeset
|
849 |
cGravity:= cMaxWindSpeed; |
11887
083c12795632
Show symbols at bottom right while extra damage / low grav. are active
Wuzzy <almikes@aol.com>
parents:
11881
diff
changeset
|
850 |
cGravityf:= 0.00025; |
083c12795632
Show symbols at bottom right while extra damage / low grav. are active
Wuzzy <almikes@aol.com>
parents:
11881
diff
changeset
|
851 |
cLowGravity:= true |
4623 | 852 |
end; |
1895 | 853 |
|
2017 | 854 |
if (GameFlags and gfVampiric) <> 0 then |
855 |
cVampiric:= true; |
|
856 |
||
1895 | 857 |
Gear:= GearsList; |
858 |
if (GameFlags and gfInvulnerable) <> 0 then |
|
9685
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
859 |
for p:= 0 to Pred(ClansCount) do |
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
860 |
with ClansArray[p]^ do |
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
861 |
for j:= 0 to Pred(TeamsNumber) do |
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
862 |
with Teams[j]^ do |
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
863 |
for i:= 0 to cMaxHHIndex do |
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
864 |
with Hedgehogs[i] do |
7d925e82e572
Tweak trophyrace to work better w/ skip (probably, needs testing), drop Invulnerable in favour of effects - heInvulnerable is already in effects,
nemo
parents:
9672
diff
changeset
|
865 |
Effects[heInvulnerable]:= 1; |
1895 | 866 |
|
867 |
if (GameFlags and gfLaserSight) <> 0 then |
|
2023
41d3afaa20c7
Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump
nemo
parents:
2020
diff
changeset
|
868 |
cLaserSighting:= true; |
41d3afaa20c7
Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump
nemo
parents:
2020
diff
changeset
|
869 |
|
8030
165aeaaaf445
Call fallers less often. Should hopefully still be about as effective at the intended purpose. Should help loads quite a bit.
nemo
parents:
8011
diff
changeset
|
870 |
for i:= (LAND_WIDTH*LAND_HEIGHT) div 524288+2 downto 0 do |
7575
f415b3e0f3b9
Burn a random number in the override. Make sure cirbuf is reset.
nemo
parents:
7519
diff
changeset
|
871 |
begin |
f415b3e0f3b9
Burn a random number in the override. Make sure cirbuf is reset.
nemo
parents:
7519
diff
changeset
|
872 |
rx:= GetRandom(rightX-leftX)+leftX; |
7406
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7400
diff
changeset
|
873 |
ry:= GetRandom(LAND_HEIGHT-topY)+topY; |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7400
diff
changeset
|
874 |
rdx:= _90-(GetRandomf*_360); |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7400
diff
changeset
|
875 |
rdy:= _90-(GetRandomf*_360); |
13214
9c81e34f1933
gtGenericFaller: Use Tag=1 to allow gtGenericFaller to be displaced randomly. Otherwise it is left alone
Wuzzy <Wuzzy2@mail.ru>
parents:
13171
diff
changeset
|
876 |
Gear:= AddGear(rx, ry, gtGenericFaller, gstInvisible, rdx, rdy, $FFFFFFFF); |
14593
34e810295d08
Remove a bunch of dead out-commented code
Wuzzy <Wuzzy2@mail.ru>
parents:
14585
diff
changeset
|
877 |
// This allows this generic faller to be displaced randomly by events |
13214
9c81e34f1933
gtGenericFaller: Use Tag=1 to allow gtGenericFaller to be displaced randomly. Otherwise it is left alone
Wuzzy <Wuzzy2@mail.ru>
parents:
13171
diff
changeset
|
878 |
Gear^.Tag:= 1; |
7406
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7400
diff
changeset
|
879 |
end; |
1fe2c821f9bf
Try avoiding spamming the log by retaining the gears. untested.
nemo
parents:
7400
diff
changeset
|
880 |
|
7477
26706bf32ecf
First pass at variable land size. For playing a small map (forced on rqLowRes), this should save 42MiB of RAM.
nemo
parents:
7426
diff
changeset
|
881 |
snowRight:= max(LAND_WIDTH,4096)+512; |
26706bf32ecf
First pass at variable land size. For playing a small map (forced on rqLowRes), this should save 42MiB of RAM.
nemo
parents:
7426
diff
changeset
|
882 |
snowLeft:= -(snowRight-LAND_WIDTH); |
26706bf32ecf
First pass at variable land size. For playing a small map (forced on rqLowRes), this should save 42MiB of RAM.
nemo
parents:
7426
diff
changeset
|
883 |
|
9768
08799c901a42
Add rubber utility. Graphics are still incomplete. Also flag snow/ice in theme config.
nemo
parents:
9764
diff
changeset
|
884 |
if (not hasBorder) and cSnow then |
7721 | 885 |
for i:= vobCount * Longword(max(LAND_WIDTH,4096)) div 2048 downto 1 do |
9951
b776cd642d0b
pick random x/y prior to addgear (as generic faller does) to avoid random numbers picked out of order
nemo
parents:
9818
diff
changeset
|
886 |
begin |
b776cd642d0b
pick random x/y prior to addgear (as generic faller does) to avoid random numbers picked out of order
nemo
parents:
9818
diff
changeset
|
887 |
rx:=GetRandom(snowRight - snowLeft); |
b776cd642d0b
pick random x/y prior to addgear (as generic faller does) to avoid random numbers picked out of order
nemo
parents:
9818
diff
changeset
|
888 |
ry:=GetRandom(750); |
10494 | 889 |
AddGear(rx + snowLeft, LongInt(LAND_HEIGHT) + ry - 1300, gtFlake, 0, _0, _0, 0) |
9951
b776cd642d0b
pick random x/y prior to addgear (as generic faller does) to avoid random numbers picked out of order
nemo
parents:
9818
diff
changeset
|
890 |
end |
4 | 891 |
end; |
892 |
||
11702
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
893 |
// sort clans horizontally (bubble-sort, because why not) |
11703
607e2e43acf0
cleaning up team divide mode code from last night a little
sheepluva
parents:
11702
diff
changeset
|
894 |
procedure SortHHsByClan(); |
11702
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
895 |
var n, newn, i, j, k, p: LongInt; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
896 |
ar, clar: array[0..Pred(cMaxHHs)] of PHedgehog; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
897 |
Count, clCount: Longword; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
898 |
tmpX, tmpY: hwFloat; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
899 |
hh1, hh2: PHedgehog; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
900 |
begin |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
901 |
Count:= 0; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
902 |
// add hedgehogs to the array in clan order |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
903 |
for p:= 0 to (ClansCount - 1) do |
11734 | 904 |
with SpawnClansArray[p]^ do |
11702
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
905 |
begin |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
906 |
// count hogs in this clan |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
907 |
clCount:= 0; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
908 |
for j:= 0 to Pred(TeamsNumber) do |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
909 |
with Teams[j]^ do |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
910 |
for i:= 0 to cMaxHHIndex do |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
911 |
if Hedgehogs[i].Gear <> nil then |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
912 |
begin |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
913 |
clar[clCount]:= @Hedgehogs[i]; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
914 |
inc(clCount); |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
915 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
916 |
|
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
917 |
// shuffle all hogs of this clan |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
918 |
for i:= 0 to clCount - 1 do |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
919 |
begin |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
920 |
j:= GetRandom(clCount); |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
921 |
k:= GetRandom(clCount); |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
922 |
if clar[j] <> clar[k] then |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
923 |
begin |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
924 |
hh1:= clar[j]; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
925 |
clar[j]:= clar[k]; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
926 |
clar[k]:= hh1; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
927 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
928 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
929 |
|
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
930 |
// add clan's hog to sorting array |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
931 |
for i:= 0 to clCount - 1 do |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
932 |
begin |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
933 |
ar[Count]:= clar[i]; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
934 |
inc(Count); |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
935 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
936 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
937 |
|
11703
607e2e43acf0
cleaning up team divide mode code from last night a little
sheepluva
parents:
11702
diff
changeset
|
938 |
|
607e2e43acf0
cleaning up team divide mode code from last night a little
sheepluva
parents:
11702
diff
changeset
|
939 |
// bubble-sort hog array |
11702
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
940 |
n:= Count - 1; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
941 |
|
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
942 |
repeat |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
943 |
newn:= 0; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
944 |
for i:= 1 to n do |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
945 |
begin |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
946 |
hh1:= ar[i-1]; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
947 |
hh2:= ar[i]; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
948 |
if hwRound(hh1^.Gear^.X) > hwRound(hh2^.Gear^.X) then |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
949 |
begin |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
950 |
tmpX:= hh1^.Gear^.X; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
951 |
tmpY:= hh1^.Gear^.Y; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
952 |
hh1^.Gear^.X:= hh2^.Gear^.X; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
953 |
hh1^.Gear^.Y:= hh2^.Gear^.Y; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
954 |
hh2^.Gear^.X:= tmpX; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
955 |
hh2^.Gear^.Y:= tmpY; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
956 |
newn:= i; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
957 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
958 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
959 |
n:= newn; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
960 |
until n = 0; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
961 |
|
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
962 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
963 |
|
4 | 964 |
procedure AssignHHCoords; |
15128
b4a0dc4e85e8
Ensure the flowers get placed within map bounds
Wuzzy <Wuzzy2@mail.ru>
parents:
15086
diff
changeset
|
965 |
var i, t, p, j, x, y: LongInt; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
966 |
ar: array[0..Pred(cMaxHHs)] of PHedgehog; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
967 |
Count: Longword; |
11896
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
968 |
divide, sectionDivide: boolean; |
4 | 969 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
970 |
if (GameFlags and gfPlaceHog) <> 0 then |
15241
ceb289e8a582
King Mode: Fix king placement phase not working correctly with multiple teams in a clan
Wuzzy <Wuzzy2@mail.ru>
parents:
15221
diff
changeset
|
971 |
PlacingHogs:= true |
ceb289e8a582
King Mode: Fix king placement phase not working correctly with multiple teams in a clan
Wuzzy <Wuzzy2@mail.ru>
parents:
15221
diff
changeset
|
972 |
else if (GameFlags and gfKing) <> 0 then |
ceb289e8a582
King Mode: Fix king placement phase not working correctly with multiple teams in a clan
Wuzzy <Wuzzy2@mail.ru>
parents:
15221
diff
changeset
|
973 |
PlacingKings:= true; |
11703
607e2e43acf0
cleaning up team divide mode code from last night a little
sheepluva
parents:
11702
diff
changeset
|
974 |
|
607e2e43acf0
cleaning up team divide mode code from last night a little
sheepluva
parents:
11702
diff
changeset
|
975 |
divide:= ((GameFlags and gfDivideTeams) <> 0); |
607e2e43acf0
cleaning up team divide mode code from last night a little
sheepluva
parents:
11702
diff
changeset
|
976 |
|
11896
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
977 |
(* sectionDivide will determine the mode of hog distribution |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
978 |
* |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
979 |
* On generated maps or maps not designed with divided mode in mind, |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
980 |
* using spawning sections can be problematic, because some sections may |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
981 |
* contain too little land surface for sensible spawning. |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
982 |
* |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
983 |
* if sectionDivide is true, the map will be sliced into equal-width sections |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
984 |
* and one team spawned in each |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
985 |
* if false, the hogs will be spawned normally and sorted by teams after |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
986 |
* |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
987 |
*) |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
988 |
|
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
989 |
// TODO: there might be a smarter way to decide if dividing clans into equal-width map sections makes sense |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
990 |
// e.g. by checking if there is enough spawn area in each section |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
991 |
sectionDivide:= divide and ((cMapGen = mgForts) or (ClansCount = 2)); |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
992 |
|
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
993 |
// divide the map into equal-width sections and put each clan in one of them |
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
994 |
if sectionDivide then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
995 |
begin |
11705 | 996 |
t:= leftX; |
11700
ea1097d7bd27
"divided teams" modifier will now work with more than 2 teams!
sheepluva
parents:
11532
diff
changeset
|
997 |
for p:= 0 to (ClansCount - 1) do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
998 |
begin |
11734 | 999 |
with SpawnClansArray[p]^ do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1000 |
for j:= 0 to Pred(TeamsNumber) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1001 |
with Teams[j]^ do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1002 |
for i:= 0 to cMaxHHIndex do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1003 |
with Hedgehogs[i] do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1004 |
if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1005 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1006 |
if PlacingHogs then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1007 |
Unplaced:= true |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1008 |
else |
11705 | 1009 |
FindPlace(Gear, false, t, t + playWidth div ClansCount, true);// could make Gear == nil; |
15241
ceb289e8a582
King Mode: Fix king placement phase not working correctly with multiple teams in a clan
Wuzzy <Wuzzy2@mail.ru>
parents:
15221
diff
changeset
|
1010 |
if PlacingKings and King then |
ceb289e8a582
King Mode: Fix king placement phase not working correctly with multiple teams in a clan
Wuzzy <Wuzzy2@mail.ru>
parents:
15221
diff
changeset
|
1011 |
UnplacedKing:= true; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1012 |
if Gear <> nil then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1013 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1014 |
Gear^.Pos:= GetRandom(49); |
11700
ea1097d7bd27
"divided teams" modifier will now work with more than 2 teams!
sheepluva
parents:
11532
diff
changeset
|
1015 |
// unless the world is wrapping, make outter teams face to map center |
ea1097d7bd27
"divided teams" modifier will now work with more than 2 teams!
sheepluva
parents:
11532
diff
changeset
|
1016 |
if (WorldEdge <> weWrap) and ((p = 0) or (p = ClansCount - 1)) then |
ea1097d7bd27
"divided teams" modifier will now work with more than 2 teams!
sheepluva
parents:
11532
diff
changeset
|
1017 |
Gear^.dX.isNegative:= (p <> 0) |
ea1097d7bd27
"divided teams" modifier will now work with more than 2 teams!
sheepluva
parents:
11532
diff
changeset
|
1018 |
else |
ea1097d7bd27
"divided teams" modifier will now work with more than 2 teams!
sheepluva
parents:
11532
diff
changeset
|
1019 |
Gear^.dX.isNegative:= (GetRandom(2) = 1); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1020 |
end |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1021 |
end; |
11705 | 1022 |
inc(t, playWidth div ClansCount); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1023 |
end |
11477
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1024 |
end |
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1025 |
else // mix hedgehogs |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1026 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1027 |
Count:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1028 |
for p:= 0 to Pred(TeamsCount) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1029 |
with TeamsArray[p]^ do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1030 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1031 |
for i:= 0 to cMaxHHIndex do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1032 |
with Hedgehogs[i] do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1033 |
if (Gear <> nil) and (Gear^.X.QWordValue = 0) then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1034 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1035 |
ar[Count]:= @Hedgehogs[i]; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1036 |
inc(Count) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1037 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1038 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1039 |
while (Count > 0) do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1040 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1041 |
i:= GetRandom(Count); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1042 |
if PlacingHogs then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1043 |
ar[i]^.Unplaced:= true |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1044 |
else |
11805
42c11b73f68e
<unC0Rr> might be somewhere width used instead of rightx
sheepluva
parents:
11751
diff
changeset
|
1045 |
FindPlace(ar[i]^.Gear, false, leftX, rightX, true); |
15241
ceb289e8a582
King Mode: Fix king placement phase not working correctly with multiple teams in a clan
Wuzzy <Wuzzy2@mail.ru>
parents:
15221
diff
changeset
|
1046 |
if PlacingKings and ar[i]^.King then |
ceb289e8a582
King Mode: Fix king placement phase not working correctly with multiple teams in a clan
Wuzzy <Wuzzy2@mail.ru>
parents:
15221
diff
changeset
|
1047 |
ar[i]^.UnplacedKing:= true; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1048 |
if ar[i]^.Gear <> nil then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1049 |
begin |
11705 | 1050 |
ar[i]^.Gear^.dX.isNegative:= hwRound(ar[i]^.Gear^.X) > leftX + playWidth div 2; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1051 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1052 |
ar[i]:= ar[Count - 1]; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1053 |
dec(Count) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1054 |
end |
11477
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1055 |
end; |
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1056 |
for p:= 0 to Pred(TeamsCount) do |
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1057 |
with TeamsArray[p]^ do |
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1058 |
for i:= 0 to cMaxHHIndex do |
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1059 |
with Hedgehogs[i] do |
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1060 |
if (Gear <> nil) and (Gear^.State and gsttmpFlag <> 0) then |
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1061 |
begin |
e425a6eb9da3
Force locations for hogs if even TryHard fails on initial spawn.
nemo
parents:
11469
diff
changeset
|
1062 |
DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50); |
11478
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1063 |
AddFileLog('Carved a hole for hog at coordinates (' + inttostr(hwRound(Gear^.X)) + ',' + inttostr(hwRound(Gear^.Y)) + ')') |
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1064 |
end; |
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1065 |
// place flowers after in case holes overlap (we shrink search distance if we are failing to place) |
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1066 |
for p:= 0 to Pred(TeamsCount) do |
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1067 |
with TeamsArray[p]^ do |
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1068 |
for i:= 0 to cMaxHHIndex do |
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1069 |
with Hedgehogs[i] do |
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1070 |
if (Gear <> nil) and (Gear^.State and gsttmpFlag <> 0) then |
8c95d5a4366c
Tweak the hole carving to become less agressive about spacing if random points keep failing.
nemo
parents:
11477
diff
changeset
|
1071 |
begin |
15180
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1072 |
// Get flower position |
15128
b4a0dc4e85e8
Ensure the flowers get placed within map bounds
Wuzzy <Wuzzy2@mail.ru>
parents:
15086
diff
changeset
|
1073 |
x:= hwRound(Gear^.X) - SpritesData[sprTargetBee].Width div 2; |
b4a0dc4e85e8
Ensure the flowers get placed within map bounds
Wuzzy <Wuzzy2@mail.ru>
parents:
15086
diff
changeset
|
1074 |
y:= hwRound(Gear^.Y) - SpritesData[sprTargetBee].Height div 2; |
15180
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1075 |
// Calculate offset from map boundaries and border |
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1076 |
if hasBorder then |
15190
f532203c5ceb
Fix mapgen flowers being slightly offset on X axis
Wuzzy <Wuzzy2@mail.ru>
parents:
15180
diff
changeset
|
1077 |
x:= max(min(x, RightX - SpritesData[sprTargetBee].Width - cBorderWidth), LeftX + cBorderWidth) |
15180
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1078 |
else |
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1079 |
x:= max(min(x, RightX - SpritesData[sprTargetBee].Width), LeftX); |
15128
b4a0dc4e85e8
Ensure the flowers get placed within map bounds
Wuzzy <Wuzzy2@mail.ru>
parents:
15086
diff
changeset
|
1080 |
y:= max(y, TopY); |
15180
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1081 |
|
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1082 |
// Place flower |
15128
b4a0dc4e85e8
Ensure the flowers get placed within map bounds
Wuzzy <Wuzzy2@mail.ru>
parents:
15086
diff
changeset
|
1083 |
ForcePlaceOnLand(x, y, sprTargetBee, 0, lfBasic, $FFFFFFFF, false, false, false); |
15180
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1084 |
|
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1085 |
// Place hog |
15128
b4a0dc4e85e8
Ensure the flowers get placed within map bounds
Wuzzy <Wuzzy2@mail.ru>
parents:
15086
diff
changeset
|
1086 |
Gear^.Y:= int2hwFloat(hwRound(Gear^.Y) - (SpritesData[sprTargetBee].Height div 2) - Gear^.Radius); |
12447
ac710bb12fbb
Add checkins so that spawning on top of things is possible too
nemo
parents:
12322
diff
changeset
|
1087 |
AddCI(Gear); |
11503 | 1088 |
Gear^.State:= Gear^.State and (not gsttmpFlag); |
15180
fcd697bce2a8
Fix mapgen flowers being placed into indestructible map border
Wuzzy <Wuzzy2@mail.ru>
parents:
15128
diff
changeset
|
1089 |
|
15128
b4a0dc4e85e8
Ensure the flowers get placed within map bounds
Wuzzy <Wuzzy2@mail.ru>
parents:
15086
diff
changeset
|
1090 |
AddFileLog('Placed flower for hog at coordinates (' + inttostr(x) + ',' + inttostr(y) + ')') |
11702
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
1091 |
end; |
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
1092 |
|
08cbd57ffb1a
divided teams: better horizontal clan distribution
sheepluva
parents:
11700
diff
changeset
|
1093 |
|
11703
607e2e43acf0
cleaning up team divide mode code from last night a little
sheepluva
parents:
11702
diff
changeset
|
1094 |
// divided teams: sort the hedgehogs from left to right by clan and shuffle clan members |
11896
cb36d6df3814
reenable divided-mode spawning hack^Wtweak, that was accidently removed in 34ede05e4d4f
sheepluva
parents:
11895
diff
changeset
|
1095 |
if divide and (not sectionDivide) then |
11703
607e2e43acf0
cleaning up team divide mode code from last night a little
sheepluva
parents:
11702
diff
changeset
|
1096 |
SortHHsByClan(); |
4 | 1097 |
end; |
1098 |
||
14786
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1099 |
// Set random pos for all hogs so their animations have different starting points |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1100 |
procedure RandomizeHHAnim; |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1101 |
var i, j, p: LongInt; |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1102 |
begin |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1103 |
for p:= 0 to (ClansCount - 1) do |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1104 |
with SpawnClansArray[p]^ do |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1105 |
for j:= 0 to Pred(TeamsNumber) do |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1106 |
with Teams[j]^ do |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1107 |
for i:= 0 to cMaxHHIndex do |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1108 |
if (Hedgehogs[i].Gear <> nil) then |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1109 |
Hedgehogs[i].Gear^.Pos:= GetRandom(19); |
ba8dd081359d
Fix map preview not matching actual map
Wuzzy <Wuzzy2@mail.ru>
parents:
14780
diff
changeset
|
1110 |
end; |
3963
6090d2a2472e
New Weapon: Resurrector (TODO: ammo icon + sprites)
Tobias Neumann <mail@tobias-neumann.eu>
parents:
3957
diff
changeset
|
1111 |
|
1433 | 1112 |
{procedure AmmoFlameWork(Ammo: PGear); |
79 | 1113 |
var t: PGear; |
1114 |
begin |
|
1115 |
t:= GearsList; |
|
1116 |
while t <> nil do |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1117 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1118 |
if (t^.Kind = gtHedgehog) and (t^.Y < Ammo^.Y) then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1119 |
if not (hwSqr(Ammo^.X - t^.X) + hwSqr(Ammo^.Y - t^.Y - int2hwFloat(cHHRadius)) * 2 > _2) then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1120 |
begin |
2017 | 1121 |
ApplyDamage(t, 5); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1122 |
t^.dX:= t^.dX + (t^.X - Ammo^.X) * _0_02; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1123 |
t^.dY:= - _0_25; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1124 |
t^.Active:= true; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1125 |
DeleteCI(t); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1126 |
FollowGear:= t |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1127 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1128 |
t:= t^.NextGear |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1129 |
end; |
1433 | 1130 |
end;} |
79 | 1131 |
|
16 | 1132 |
|
7337
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7335
diff
changeset
|
1133 |
function SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content, cnt: Longword): PGear; |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1134 |
var gear: PGear; |
3730 | 1135 |
begin |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1136 |
gear := AddGear(x, y, gtCase, 0, _0, _0, 0); |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1137 |
if(FinishedTurnsTotal > -1) then |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1138 |
FollowGear:= gear; |
3734 | 1139 |
cCaseFactor := 0; |
1140 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1141 |
if (crate <> HealthCrate) and (content > ord(High(TAmmoType))) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1142 |
content := ord(High(TAmmoType)); |
3734 | 1143 |
|
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1144 |
gear^.Power:= cnt; |
7337
c224cd2d32f3
Allow script to set number of ammo in a crate. untested.
nemo
parents:
7335
diff
changeset
|
1145 |
|
3734 | 1146 |
case crate of |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1147 |
HealthCrate: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1148 |
begin |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1149 |
gear^.Pos := posCaseHealth; |
14770
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14754
diff
changeset
|
1150 |
gear^.RenderHealth:= true; |
10506 | 1151 |
// health crate is smaller than the other crates |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1152 |
gear^.Radius := cCaseHealthRadius; |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1153 |
gear^.Health := content; |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1154 |
if(FinishedTurnsTotal > -1) then |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1155 |
AddCaption(GetEventString(eidNewHealthPack), capcolDefault, capgrpAmmoInfo); |
3734 | 1156 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1157 |
AmmoCrate: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1158 |
begin |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1159 |
gear^.Pos := posCaseAmmo; |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1160 |
gear^.AmmoType := TAmmoType(content); |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1161 |
if(FinishedTurnsTotal > -1) then |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1162 |
AddCaption(GetEventString(eidNewAmmoPack), capcolDefault, capgrpAmmoInfo); |
3734 | 1163 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1164 |
UtilityCrate: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1165 |
begin |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1166 |
gear^.Pos := posCaseUtility; |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1167 |
gear^.AmmoType := TAmmoType(content); |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1168 |
if(FinishedTurnsTotal > -1) then |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1169 |
AddCaption(GetEventString(eidNewUtilityPack), capColDefault, capgrpAmmoInfo); |
3734 | 1170 |
end; |
1171 |
end; |
|
3750
3aa85b5f3318
SpawnCustomCrateAt: spawn crate at random position for x=y=0, also let it return the gear, and luabindings the gear uid
burp
parents:
3749
diff
changeset
|
1172 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1173 |
if ( (x = 0) and (y = 0) ) then |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1174 |
FindPlace(gear, true, 0, LAND_WIDTH); |
3750
3aa85b5f3318
SpawnCustomCrateAt: spawn crate at random position for x=y=0, also let it return the gear, and luabindings the gear uid
burp
parents:
3749
diff
changeset
|
1175 |
|
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1176 |
SpawnCustomCrateAt := gear; |
3730 | 1177 |
end; |
1178 |
||
5343 | 1179 |
function SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean): PGear; |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1180 |
var gear: PGear; |
5313
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1181 |
begin |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1182 |
gear := AddGear(x, y, gtCase, 0, _0, _0, 0); |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1183 |
if(FinishedTurnsTotal > -1) then |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1184 |
FollowGear:= gear; |
5313
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1185 |
cCaseFactor := 0; |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1186 |
gear^.Pos := posCaseDummy; |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1187 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1188 |
if explode then |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1189 |
gear^.Pos := gear^.Pos + posCaseExplode; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1190 |
if poison then |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1191 |
gear^.Pos := gear^.Pos + posCasePoison; |
5313
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1192 |
|
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1193 |
case crate of |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1194 |
HealthCrate: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1195 |
begin |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1196 |
gear^.Pos := gear^.Pos + posCaseHealth; |
14770
533ac9774279
Add key to display extra gear info tags
Wuzzy <Wuzzy2@mail.ru>
parents:
14754
diff
changeset
|
1197 |
gear^.RenderHealth:= true; |
14780 | 1198 |
gear^.Karma:= 2; |
10506 | 1199 |
// health crate is smaller than the other crates |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1200 |
gear^.Radius := cCaseHealthRadius; |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1201 |
if(FinishedTurnsTotal > -1) then |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1202 |
AddCaption(GetEventString(eidNewHealthPack), capcolDefault, capgrpAmmoInfo); |
5313
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1203 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1204 |
AmmoCrate: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1205 |
begin |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1206 |
gear^.Pos := gear^.Pos + posCaseAmmo; |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1207 |
if(FinishedTurnstotal > -1) then |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1208 |
AddCaption(GetEventString(eidNewAmmoPack), capcolDefault, capgrpAmmoInfo); |
5313
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1209 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1210 |
UtilityCrate: |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1211 |
begin |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1212 |
gear^.Pos := gear^.Pos + posCaseUtility; |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1213 |
if(FinishedTurnsTotal > -1) then |
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1214 |
AddCaption(GetEventString(eidNewUtilityPack), capcolDefault, capgrpAmmoInfo); |
5313
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1215 |
end; |
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1216 |
end; |
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1217 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1218 |
if ( (x = 0) and (y = 0) ) then |
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1219 |
FindPlace(gear, true, 0, LAND_WIDTH); |
5313
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1220 |
|
14493
8d5034f7cc19
Disable caption and FollowGear for crates that spawn before 1st turn (useful for missions)
Wuzzy <Wuzzy2@mail.ru>
parents:
14431
diff
changeset
|
1221 |
SpawnFakeCrateAt := gear; |
5313
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1222 |
end; |
5e18eaef65d0
now scripts can create unique crates: dummy (empty) crates and booby traps. scripts can also set health crate values
Henek
parents:
5296
diff
changeset
|
1223 |
|
12918
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1224 |
procedure StartSuddenDeath(); |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1225 |
begin |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1226 |
if SuddenDeath then |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1227 |
exit; |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1228 |
|
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1229 |
SuddenDeath:= true; |
12920
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1230 |
SuddenDeathActive:= true; |
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1231 |
|
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1232 |
// Special effects (only w/ health decrease) |
12918
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1233 |
if cHealthDecrease <> 0 then |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1234 |
begin |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1235 |
SuddenDeathDmg:= true; |
12920
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1236 |
// White screen flash |
12918
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1237 |
ScreenFade:= sfFromWhite; |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1238 |
ScreenFadeValue:= sfMax; |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1239 |
ScreenFadeSpeed:= 1; |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1240 |
|
12920
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1241 |
// Clouds, flakes, sky tint |
12918
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1242 |
ChangeToSDClouds; |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1243 |
ChangeToSDFlakes; |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1244 |
SetSkyColor(SDSkyColor.r * (SDTint.r/255) / 255, SDSkyColor.g * (SDTint.g/255) / 255, SDSkyColor.b * (SDTint.b/255) / 255); |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1245 |
end; |
12920
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1246 |
|
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1247 |
// Disable tardis |
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1248 |
Ammoz[amTardis].SkipTurns:= 9999; |
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1249 |
Ammoz[amTardis].Probability:= 0; |
21827fc9ca98
Fix timebox being usable in SD w/ damage=0
Wuzzy <Wuzzy2@mail.ru>
parents:
12918
diff
changeset
|
1250 |
|
13642
3d14950641a4
Refactor text color variable names, export 2 color values to Lua
Wuzzy <Wuzzy2@mail.ru>
parents:
13634
diff
changeset
|
1251 |
AddCaption(trmsg[sidSuddenDeath], capcolDefault, capgrpGameState); |
12918
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1252 |
ScriptCall('onSuddenDeath'); |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1253 |
playSound(sndSuddenDeath); |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1254 |
StopMusic; |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1255 |
if SDMusicFN <> '' then |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1256 |
PlayMusic |
6deb29364723
Refactor Sudden Death starting into own function
Wuzzy <Wuzzy2@mail.ru>
parents:
12916
diff
changeset
|
1257 |
end; |
2726 | 1258 |
|
2790 | 1259 |
function GearByUID(uid : Longword) : PGear; |
1260 |
var gear: PGear; |
|
1261 |
begin |
|
1262 |
GearByUID:= nil; |
|
4780
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1263 |
if uid = 0 then exit; |
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1264 |
if (lastGearByUID <> nil) and (lastGearByUID^.uid = uid) then |
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1265 |
begin |
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1266 |
GearByUID:= lastGearByUID; |
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1267 |
exit |
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1268 |
end; |
2790 | 1269 |
gear:= GearsList; |
1270 |
while gear <> nil do |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1271 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1272 |
if gear^.uid = uid then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1273 |
begin |
4780
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1274 |
lastGearByUID:= gear; |
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1275 |
GearByUID:= gear; |
8571151411b3
add a couple of variables to speed up UID lookups. Based on the assumption new visual gears and gears will tend to be at the end of the list. Set them on successful lookup or script gear creation, clear on delete. Oh also pick up a couple of TrevInc's translation changes
nemo
parents:
4748
diff
changeset
|
1276 |
exit |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1277 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1278 |
gear:= gear^.NextGear |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1279 |
end |
2790 | 1280 |
end; |
1281 |
||
11916
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
1282 |
function IsClockRunning() : boolean; |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
1283 |
begin |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
1284 |
IsClockRunning := |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
1285 |
(CurrentHedgehog^.Gear <> nil) |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
1286 |
and (((CurrentHedgehog^.Gear^.State and gstAttacking) = 0) |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
1287 |
or (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_DoesntStopTimerWhileAttacking <> 0) |
11918
9da78300c5d0
Fix sniper rifle making timer gray all the time
Wuzzy <almikes@aol.com>
parents:
11916
diff
changeset
|
1288 |
or ((GameFlags and gfInfAttack) <> 0) and (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_DoesntStopTimerWhileAttackingInInfAttackMode <> 0) |
9da78300c5d0
Fix sniper rifle making timer gray all the time
Wuzzy <almikes@aol.com>
parents:
11916
diff
changeset
|
1289 |
or (CurrentHedgehog^.CurAmmoType = amSniperRifle)) |
15086
39067b45d0fc
Backed out changeset 96244def1cc0—It was broken
Wuzzy <Wuzzy2@mail.ru>
parents:
15085
diff
changeset
|
1290 |
and (not(isInMultiShoot and ((Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_DoesntStopTimerInMultiShoot) <> 0))) |
14415
d670e4efe1ed
Lua API: SetTurnTimePaused/GetTurnTimePaused
Wuzzy <Wuzzy2@mail.ru>
parents:
14370
diff
changeset
|
1291 |
and (not LuaClockPaused); |
11916
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
1292 |
end; |
38fa4583e7f3
Make timer gray while the time is not running or while it is paused
Wuzzy <almikes@aol.com>
parents:
11915
diff
changeset
|
1293 |
|
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1294 |
|
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1295 |
procedure chSkip(var s: shortstring); |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1296 |
begin |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1297 |
s:= s; // avoid compiler hint |
7805 | 1298 |
if not isExternalSource then |
7068 | 1299 |
SendIPC(_S','); |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1300 |
uStats.Skipped; |
13171
9f80c08cdae9
Lua API: Add onSkipTurn callback, called when hog skips
Wuzzy <Wuzzy2@mail.ru>
parents:
13096
diff
changeset
|
1301 |
skipFlag:= true; |
9f80c08cdae9
Lua API: Add onSkipTurn callback, called when hog skips
Wuzzy <Wuzzy2@mail.ru>
parents:
13096
diff
changeset
|
1302 |
ScriptCall('onSkipTurn'); |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1303 |
end; |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1304 |
|
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1305 |
procedure chHogSay(var s: shortstring); |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1306 |
var Gear: PVisualGear; |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1307 |
text: shortstring; |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1308 |
hh: PHedgehog; |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1309 |
i, x, t, h: byte; |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1310 |
c, j: LongInt; |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1311 |
begin |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1312 |
hh:= nil; |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1313 |
i:= 0; |
4469 | 1314 |
t:= 0; |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1315 |
x:= byte(s[1]); // speech type |
4469 | 1316 |
if x < 4 then |
1317 |
begin |
|
1318 |
t:= byte(s[2]); // team |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1319 |
if Length(s) > 2 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1320 |
h:= byte(s[3]) // target hog |
10490 | 1321 |
else |
1322 |
h:= 0 |
|
4469 | 1323 |
end; |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1324 |
// allow targetting a hog by specifying a number as the first portion of the text |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1325 |
if (x < 4) and (h > byte('0')) and (h < byte('9')) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1326 |
i:= h - 48; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1327 |
if i <> 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1328 |
text:= copy(s, 4, Length(s) - 1) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1329 |
else if x < 4 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1330 |
text:= copy(s, 3, Length(s) - 1) |
4468 | 1331 |
else text:= copy(s, 2, Length(s) - 1); |
1332 |
||
9818 | 1333 |
if text = '' then text:= '...'; |
1334 |
||
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1335 |
if (x < 4) and (TeamsArray[t] <> nil) then |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1336 |
begin |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1337 |
// if team matches current hedgehog team, default to current hedgehog |
14799
bbec6b28d072
Fix bugs when entering speech bubble commands during hog placement phase
Wuzzy <Wuzzy2@mail.ru>
parents:
14789
diff
changeset
|
1338 |
if (i = 0) and (CurrentHedgehog <> nil) and (CurrentHedgehog^.Team = TeamsArray[t]) and (not CurrentHedgehog^.Unplaced) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6543
diff
changeset
|
1339 |
hh:= CurrentHedgehog |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1340 |
else |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1341 |
begin |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1342 |
// otherwise use the first living hog or the hog amongs the remaining ones indicated by i |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1343 |
j:= 0; |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1344 |
c:= 0; |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1345 |
while (j <= cMaxHHIndex) and (hh = nil) do |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1346 |
begin |
14799
bbec6b28d072
Fix bugs when entering speech bubble commands during hog placement phase
Wuzzy <Wuzzy2@mail.ru>
parents:
14789
diff
changeset
|
1347 |
if (TeamsArray[t]^.Hedgehogs[j].Gear <> nil) and (not TeamsArray[t]^.Hedgehogs[j].Unplaced) then |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1348 |
begin |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1349 |
inc(c); |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1350 |
if (i=0) or (i=c) then |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1351 |
hh:= @TeamsArray[t]^.Hedgehogs[j] |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1352 |
end; |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1353 |
inc(j) |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1354 |
end |
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1355 |
end; |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1356 |
if hh <> nil then |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1357 |
begin |
4784 | 1358 |
Gear:= AddVisualGear(0, 0, vgtSpeechBubble); |
1359 |
if Gear <> nil then |
|
1360 |
begin |
|
1361 |
Gear^.Hedgehog:= hh; |
|
1362 |
Gear^.Text:= text; |
|
1363 |
Gear^.FrameTicks:= x |
|
9764
8dc9d268330f
revert r938d1c08d0d1 in favour of putting it in the chat log. I think this addresses main concern about missing text. There've been complaints in past too about conversation in bubbles not being visible in history. If the objection is that r938d1c08d0d1 offers a more æsthetic solution, I think it should augment this, be flagged, and fix the visual issues first.
nemo
parents:
9685
diff
changeset
|
1364 |
end; |
13897
aa321e51da14
make explicit for pas2c some string casts that fpc was probably doing automatically
nemo
parents:
13891
diff
changeset
|
1365 |
AddChatString(#9+Format(shortstring(trmsg[sidChatHog]), HH^.Name, text)); |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1366 |
end |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1367 |
end |
4470
d2b8d2fc51a9
disable say, just don't do anything. trying to avoid spew on spectator join
nemo
parents:
4469
diff
changeset
|
1368 |
else if (x >= 4) then |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1369 |
begin |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4455
diff
changeset
|
1370 |
SpeechType:= x-3; |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1371 |
SpeechText:= text |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1372 |
end; |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1373 |
end; |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1374 |
|
3038 | 1375 |
procedure initModule; |
6543 | 1376 |
const handlers: array[TGearType] of TGearStepProcedure = ( |
6890 | 1377 |
@doStepFlame, |
1378 |
@doStepHedgehog, |
|
1379 |
@doStepMine, |
|
1380 |
@doStepCase, |
|
10829 | 1381 |
@doStepAirMine, |
6890 | 1382 |
@doStepCase, |
6543 | 1383 |
@doStepBomb, |
1384 |
@doStepShell, |
|
1385 |
@doStepGrave, |
|
1386 |
@doStepBee, |
|
1387 |
@doStepShotgunShot, |
|
1388 |
@doStepPickHammer, |
|
1389 |
@doStepRope, |
|
1390 |
@doStepDEagleShot, |
|
1391 |
@doStepDynamite, |
|
1392 |
@doStepBomb, |
|
1393 |
@doStepCluster, |
|
1394 |
@doStepShover, |
|
1395 |
@doStepFirePunch, |
|
1396 |
@doStepActionTimer, |
|
1397 |
@doStepActionTimer, |
|
1398 |
@doStepParachute, |
|
1399 |
@doStepAirAttack, |
|
1400 |
@doStepAirBomb, |
|
1401 |
@doStepBlowTorch, |
|
1402 |
@doStepGirder, |
|
1403 |
@doStepTeleport, |
|
1404 |
@doStepSwitcher, |
|
1405 |
@doStepTarget, |
|
1406 |
@doStepMortar, |
|
1407 |
@doStepWhip, |
|
1408 |
@doStepKamikaze, |
|
1409 |
@doStepCake, |
|
1410 |
@doStepSeduction, |
|
1411 |
@doStepBomb, |
|
1412 |
@doStepCluster, |
|
1413 |
@doStepBomb, |
|
1414 |
@doStepWaterUp, |
|
1415 |
@doStepDrill, |
|
1416 |
@doStepBallgun, |
|
1417 |
@doStepBomb, |
|
1418 |
@doStepRCPlane, |
|
1419 |
@doStepSniperRifleShot, |
|
1420 |
@doStepJetpack, |
|
1421 |
@doStepMolotov, |
|
1422 |
@doStepBirdy, |
|
1423 |
@doStepEggWork, |
|
1424 |
@doStepPortalShot, |
|
1425 |
@doStepPiano, |
|
1426 |
@doStepBomb, |
|
1427 |
@doStepSineGunShot, |
|
1428 |
@doStepFlamethrower, |
|
1429 |
@doStepSMine, |
|
1430 |
@doStepPoisonCloud, |
|
1431 |
@doStepHammer, |
|
1432 |
@doStepHammerHit, |
|
1433 |
@doStepResurrector, |
|
1434 |
@doStepNapalmBomb, |
|
1435 |
@doStepSnowball, |
|
1436 |
@doStepSnowflake, |
|
1437 |
@doStepLandGun, |
|
7007 | 1438 |
@doStepTardis, |
7389
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7370
diff
changeset
|
1439 |
@doStepIceGun, |
15c3fb4882df
Sorry about the slight delay in pickup. You can blame a few lame cheaters. This is to make their cheating a bit harder.
nemo
parents:
7370
diff
changeset
|
1440 |
@doStepAddAmmo, |
7730
2013733f9ca9
A bit more on the knife. Also add missing files to CMakeLists
nemo
parents:
7721
diff
changeset
|
1441 |
@doStepGenericFaller, |
12192 | 1442 |
@doStepKnife, |
13605
422d6062620a
hijack the duck for an attempted resurrection of the creeper. initial pass.
nemo
parents:
13571
diff
changeset
|
1443 |
@doStepCreeper, |
12898 | 1444 |
@doStepMinigun, |
1445 |
@doStepMinigunBullet); |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2695
diff
changeset
|
1446 |
begin |
6543 | 1447 |
doStepHandlers:= handlers; |
1448 |
||
6898 | 1449 |
RegisterVariable('skip', @chSkip, false); |
1450 |
RegisterVariable('hogsay', @chHogSay, true ); |
|
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4396
diff
changeset
|
1451 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1452 |
CurAmmoGear:= nil; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1453 |
GearsList:= nil; |
7395 | 1454 |
curHandledGear:= nil; |
1455 |
||
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1456 |
KilledHHs:= 0; |
4792
68f9b331014a
sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents:
4790
diff
changeset
|
1457 |
SuddenDeath:= false; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1458 |
SuddenDeathDmg:= false; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1459 |
SpeechType:= 1; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1460 |
skipFlag:= false; |
3697 | 1461 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1462 |
AllInactive:= false; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2947
diff
changeset
|
1463 |
PrvInactive:= false; |
6982 | 1464 |
|
1465 |
//typed const |
|
1466 |
delay:= 0; |
|
1467 |
delay2:= 0; |
|
14421
9c7d5f595881
Longer delays between turns for better readability
Wuzzy <Wuzzy2@mail.ru>
parents:
14419
diff
changeset
|
1468 |
step:= stDelay1; |
6982 | 1469 |
upd:= 0; |
7021
0c75512a8920
adjust the scope of a few uSound variables and functions
koda
parents:
7010
diff
changeset
|
1470 |
|
8349
a1dbe148f10f
move onNewTurn, onGameTick and onGameTick20 to try and avoid ParseCommand breakage after nextturn call. Needs testing, but should be safe for most scripts. Also fix locale loading.
nemo
parents:
8204
diff
changeset
|
1471 |
NewTurnTick:= $FFFFFFFF; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2695
diff
changeset
|
1472 |
end; |
4 | 1473 |
|
3038 | 1474 |
procedure freeModule; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2695
diff
changeset
|
1475 |
begin |
3615 | 1476 |
FreeGearsList(); |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2695
diff
changeset
|
1477 |
end; |
4 | 1478 |
|
2451
5affd0840927
New data files from Tiy, add gtFlame to avoidance list
nemo
parents:
2428
diff
changeset
|
1479 |
end. |