author | unc0rr |
Wed, 25 Jul 2012 22:46:03 +0400 | |
changeset 7437 | a46ce1812419 |
parent 7426 | 55b49cc1f33a |
child 7442 | 9bb6abdb5675 |
child 7468 | 1333ca7554dc |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
6700 | 3 |
* Copyright (c) 2004-2012 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 |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
4 | 17 |
*) |
18 |
||
2630 | 19 |
{$INCLUDE "options.inc"} |
4850 | 20 |
{$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF} |
2630 | 21 |
|
4 | 22 |
unit uWorld; |
23 |
interface |
|
6622 | 24 |
uses SDLh, uGears, uConsts, uFloat, uRandom, uTypes, uRenderUtils; |
3697 | 25 |
|
3038 | 26 |
procedure initModule; |
27 |
procedure freeModule; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
28 |
|
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
29 |
procedure InitWorld; |
6394
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
30 |
procedure ResetWorldTex; |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
31 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
32 |
procedure DrawWorld(Lag: LongInt); |
3692 | 33 |
procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode); |
2905 | 34 |
procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
2786 | 35 |
procedure HideMission; |
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
36 |
procedure ShakeCamera(amount: LongInt); |
5682
06d5f561f772
some camera adjustments (should also fix cam flickering on lowerst res)
sheepluva
parents:
5675
diff
changeset
|
37 |
procedure InitCameraBorders; |
6682 | 38 |
procedure InitTouchInterface; |
7023 | 39 |
procedure SetUtilityWidgetState(ammoType: TAmmoType); |
6688 | 40 |
procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
3638
33ee433749ba
touch overlay reworked, improvements to zoom and confirmation
koda
parents:
3629
diff
changeset
|
41 |
procedure MoveCamera; |
5521 | 42 |
procedure onFocusStateChanged; |
4 | 43 |
|
44 |
implementation |
|
4359 | 45 |
uses |
46 |
uStore, |
|
47 |
uMisc, |
|
48 |
uIO, |
|
49 |
uLocale, |
|
50 |
uSound, |
|
51 |
uAmmos, |
|
52 |
uVisualGears, |
|
53 |
uChat, |
|
54 |
uLandTexture, |
|
55 |
GLunit, |
|
4374 | 56 |
uVariables, |
4375 | 57 |
uUtils, |
4378 | 58 |
uTextures, |
4380 | 59 |
uRender, |
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
60 |
uCaptions, |
5521 | 61 |
uCursor, |
6016
85410eef7ba4
disable the followgear vertical offset for small screen devices
koda
parents:
6011
diff
changeset
|
62 |
uCommands, |
85410eef7ba4
disable the followgear vertical offset for small screen devices
koda
parents:
6011
diff
changeset
|
63 |
uMobile |
4359 | 64 |
; |
4 | 65 |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
66 |
var cWaveWidth, cWaveHeight: LongInt; |
6622 | 67 |
AMShiftTargetX, AMShiftTargetY, AMShiftX, AMShiftY, SlotsNum: LongInt; |
6796
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
68 |
AMAnimStartTime, AMState : LongInt; |
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
69 |
AMAnimState: Single; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
70 |
tmpSurface: PSDL_Surface; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
71 |
fpsTexture: PTexture; |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
72 |
timeTexture: PTexture; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
73 |
FPS: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
74 |
CountTicks: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
75 |
SoundTimerTicks: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
76 |
prevPoint: TPoint; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
77 |
amSel: TAmmoType = amNothing; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
78 |
missionTex: PTexture; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
79 |
missionTimer: LongInt; |
4850 | 80 |
stereoDepth: GLfloat; |
7027 | 81 |
isFirstFrame: boolean; |
7028 | 82 |
AMAnimType: LongInt; |
3692 | 83 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
84 |
const cStereo_Sky = 0.0500; |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
85 |
cStereo_Horizon = 0.0250; |
6302
db8bdbb34e03
Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents:
6296
diff
changeset
|
86 |
cStereo_MidDistance = 0.0175; |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
87 |
cStereo_Water_distant = 0.0125; |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
88 |
cStereo_Land = 0.0075; |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
89 |
cStereo_Water_near = 0.0025; |
6289
95ffd59d0f4a
Increase rarity of near flakes (don't want them intruding in game much). Also fix stereo. Near flakes were being drawn far.
nemo
parents:
6276
diff
changeset
|
90 |
cStereo_Outside = -0.0400; |
4 | 91 |
|
6492 | 92 |
// helper functions to create the goal/game mode string |
93 |
function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring; |
|
94 |
var t: ansistring; |
|
95 |
begin |
|
96 |
if (GameFlags and gf) <> 0 then |
|
97 |
begin |
|
98 |
t:= inttostr(i); |
|
7069 | 99 |
s:= s + FormatA(trgoal[si], t) + '|' |
6492 | 100 |
end; |
101 |
AddGoal:= s; |
|
102 |
end; |
|
103 |
||
104 |
function AddGoal(s: ansistring; gf: longword; si: TGoalStrId): ansistring; |
|
105 |
begin |
|
106 |
if (GameFlags and gf) <> 0 then |
|
107 |
s:= s + trgoal[si] + '|'; |
|
108 |
AddGoal:= s; |
|
109 |
end; |
|
110 |
||
4 | 111 |
procedure InitWorld; |
2704
51cda17b7c3b
Rolling random numbers before land is generated is bad, m'kay? InitWorld probably not the best place for it.
nemo
parents:
2699
diff
changeset
|
112 |
var i, t: LongInt; |
51cda17b7c3b
Rolling random numbers before land is generated is bad, m'kay? InitWorld probably not the best place for it.
nemo
parents:
2699
diff
changeset
|
113 |
cp: PClan; |
2863 | 114 |
g: ansistring; |
4 | 115 |
begin |
3764 | 116 |
missionTimer:= 0; |
2786 | 117 |
|
2704
51cda17b7c3b
Rolling random numbers before land is generated is bad, m'kay? InitWorld probably not the best place for it.
nemo
parents:
2699
diff
changeset
|
118 |
if (GameFlags and gfRandomOrder) <> 0 then // shuffle them up a bit |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
119 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
120 |
for i:= 0 to ClansCount * 4 do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
121 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
122 |
t:= GetRandom(ClansCount); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
123 |
if t <> 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
124 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
125 |
cp:= ClansArray[0]; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
126 |
ClansArray[0]:= ClansArray[t]; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
127 |
ClansArray[t]:= cp; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
128 |
ClansArray[t]^.ClanIndex:= t; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
129 |
ClansArray[0]^.ClanIndex:= 0; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
130 |
if (LocalClan = t) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
131 |
LocalClan:= 0 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
132 |
else if (LocalClan = 0) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
133 |
LocalClan:= t |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
134 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
135 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
136 |
CurrentTeam:= ClansArray[0]^.Teams[0]; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
137 |
end; |
2704
51cda17b7c3b
Rolling random numbers before land is generated is bad, m'kay? InitWorld probably not the best place for it.
nemo
parents:
2699
diff
changeset
|
138 |
|
2908 | 139 |
// if special game flags/settings are changed, add them to the game mode notice window and then show it |
2863 | 140 |
g:= ''; // no text/things to note yet |
2908 | 141 |
|
4883
7cddc9201a1d
added dummy for tardis and ugly icons for tardis and structure
Henek
parents:
4850
diff
changeset
|
142 |
// add custom goals from lua script if there are any |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
143 |
if LuaGoals <> '' then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
144 |
g:= LuaGoals + '|'; |
4883
7cddc9201a1d
added dummy for tardis and ugly icons for tardis and structure
Henek
parents:
4850
diff
changeset
|
145 |
|
2958 | 146 |
// check different game flags (goals/game modes first for now) |
147 |
g:= AddGoal(g, gfKing, gidKing); // king? |
|
5022
d2a2f6c9b236
some final work and buggfix for Tag Team, it is now playable
Henek
parents:
4976
diff
changeset
|
148 |
g:= AddGoal(g, gfTagTeam, gidTagTeam); // tag team mode? |
2958 | 149 |
|
150 |
// other important flags |
|
151 |
g:= AddGoal(g, gfForts, gidForts); // forts? |
|
152 |
g:= AddGoal(g, gfLowGravity, gidLowGravity); // low gravity? |
|
153 |
g:= AddGoal(g, gfInvulnerable, gidInvulnerable); // invulnerability? |
|
154 |
g:= AddGoal(g, gfVampiric, gidVampiric); // vampirism? |
|
155 |
g:= AddGoal(g, gfKarma, gidKarma); // karma? |
|
156 |
g:= AddGoal(g, gfPlaceHog, gidPlaceHog); // placement? |
|
157 |
g:= AddGoal(g, gfArtillery, gidArtillery); // artillery? |
|
158 |
g:= AddGoal(g, gfSolidLand, gidSolidLand); // solid land? |
|
159 |
g:= AddGoal(g, gfSharedAmmo, gidSharedAmmo); // shared ammo? |
|
4132 | 160 |
g:= AddGoal(g, gfResetHealth, gidResetHealth); |
161 |
g:= AddGoal(g, gfAISurvival, gidAISurvival); |
|
162 |
g:= AddGoal(g, gfInfAttack, gidInfAttack); |
|
163 |
g:= AddGoal(g, gfResetWeps, gidResetWeps); |
|
164 |
g:= AddGoal(g, gfPerHogAmmo, gidPerHogAmmo); |
|
2958 | 165 |
|
2908 | 166 |
// modified damage modificator? |
167 |
if cDamagePercent <> 100 then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
168 |
g:= AddGoal(g, gfAny, gidDamageModifier, cDamagePercent); |
2908 | 169 |
|
3107 | 170 |
// fade in |
171 |
ScreenFade:= sfFromBlack; |
|
172 |
ScreenFadeValue:= sfMax; |
|
173 |
ScreenFadeSpeed:= 1; |
|
174 |
||
2908 | 175 |
// modified mine timers? |
4482 | 176 |
if cMinesTime <> 3000 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
177 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
178 |
if cMinesTime = 0 then |
4003
ca0600ab38bf
disable gfMines and update variable names (landadds -> minesnum, cLandAdditions -> cLandMines)
koda
parents:
3976
diff
changeset
|
179 |
g:= AddGoal(g, gfAny, gidNoMineTimer) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
180 |
else if cMinesTime < 0 then |
4003
ca0600ab38bf
disable gfMines and update variable names (landadds -> minesnum, cLandAdditions -> cLandMines)
koda
parents:
3976
diff
changeset
|
181 |
g:= AddGoal(g, gfAny, gidRandomMineTimer) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
182 |
else |
4482 | 183 |
g:= AddGoal(g, gfAny, gidMineTimer, cMinesTime div 1000); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
184 |
end; |
2908 | 185 |
|
2863 | 186 |
// if the string has been set, show it for (default timeframe) seconds |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
187 |
if g <> '' then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
188 |
ShowMission(trgoal[gidCaption], trgoal[gidSubCaption], g, 1, 0); |
2863 | 189 |
|
1825 | 190 |
cWaveWidth:= SpritesData[sprWater].Width; |
2268
053eb81e60ee
little experiment to see if this improve appearance of laser/ufo/cake/laser guided missile - of course, can't actually see it until unc0rr restores waves
nemo
parents:
2226
diff
changeset
|
191 |
//cWaveHeight:= SpritesData[sprWater].Height; |
053eb81e60ee
little experiment to see if this improve appearance of laser/ufo/cake/laser guided missile - of course, can't actually see it until unc0rr restores waves
nemo
parents:
2226
diff
changeset
|
192 |
cWaveHeight:= 32; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
193 |
|
5682
06d5f561f772
some camera adjustments (should also fix cam flickering on lowerst res)
sheepluva
parents:
5675
diff
changeset
|
194 |
InitCameraBorders(); |
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
195 |
uCursor.init(); |
2197 | 196 |
prevPoint.X:= 0; |
74 | 197 |
prevPoint.Y:= cScreenHeight div 2; |
6609 | 198 |
WorldDx:= -(LAND_WIDTH div 2) + cScreenWidth div 2; |
199 |
WorldDy:= -(LAND_HEIGHT - (playHeight div 2)) + (cScreenHeight div 2); |
|
200 |
||
201 |
//aligns it to the bottom of the screen, minus the border |
|
202 |
SkyOffset:= 0; |
|
203 |
HorizontOffset:= 0; |
|
204 |
||
6682 | 205 |
InitTouchInterface(); |
6796
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
206 |
AMAnimType:= AMTypeMaskX or AMTypeMaskAlpha; |
6682 | 207 |
end; |
208 |
||
209 |
procedure InitCameraBorders; |
|
210 |
begin |
|
211 |
cGearScrEdgesDist:= min(2 * cScreenHeight div 5, 2 * cScreenWidth div 5); |
|
212 |
end; |
|
213 |
||
214 |
procedure InitTouchInterface; |
|
215 |
begin |
|
6676
21cf35a570a7
add keywords for landscape ammomenu and touch interface
koda
parents:
6652
diff
changeset
|
216 |
{$IFDEF USE_TOUCH_INTERFACE} |
7167
0b3b306f129a
Android: added a callback to java to determine dpi/dip how much we should scale the ui
Xeli
parents:
7086
diff
changeset
|
217 |
|
6637
b4a3310f2974
show buttons on the screen, similar to the iOS overlay
Xeli
parents:
6631
diff
changeset
|
218 |
//positioning of the buttons |
7237 | 219 |
buttonScale:= uMobile.getScreenDPI/cDefaultZoomLevel; |
6683
75a1d84ac606
small refactoring to touch screen buttons, use a record to store values, added 'offset' fields to adjust active button area
koda
parents:
6682
diff
changeset
|
220 |
|
6714
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
221 |
|
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
222 |
with JumpWidget do |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
223 |
begin |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
224 |
show:= true; |
6714
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
225 |
sprite:= sprJumpWidget; |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
226 |
frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
227 |
frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale); |
6714
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
228 |
frame.x:= (cScreenWidth shr 1) - Round(frame.w * 1.2); |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
229 |
frame.y:= cScreenHeight - frame.h * 2; |
6710
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
230 |
active.x:= frame.x; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
231 |
active.y:= frame.y; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
232 |
active.w:= frame.w; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
233 |
active.h:= frame.h; |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
234 |
end; |
6637
b4a3310f2974
show buttons on the screen, similar to the iOS overlay
Xeli
parents:
6631
diff
changeset
|
235 |
|
6714
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
236 |
with AMWidget do |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
237 |
begin |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
238 |
show:= true; |
6714
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
239 |
sprite:= sprAMWidget; |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
240 |
frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
241 |
frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
242 |
frame.x:= (cScreenWidth shr 1) - frame.w * 2; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
243 |
frame.y:= cScreenHeight - Round(frame.h * 1.2); |
6710
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
244 |
active.x:= frame.x; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
245 |
active.y:= frame.y; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
246 |
active.w:= frame.w; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
247 |
active.h:= frame.h; |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
248 |
end; |
6637
b4a3310f2974
show buttons on the screen, similar to the iOS overlay
Xeli
parents:
6631
diff
changeset
|
249 |
|
6688 | 250 |
with arrowLeft do |
251 |
begin |
|
252 |
show:= true; |
|
253 |
sprite:= sprArrowLeft; |
|
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
254 |
frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
255 |
frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
256 |
frame.x:= -(cScreenWidth shr 1) + Round(frame.w * 0.25); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
257 |
frame.y:= cScreenHeight - Round(frame.h * 1.5); |
6710
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
258 |
active.x:= frame.x; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
259 |
active.y:= frame.y; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
260 |
active.w:= frame.w; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
261 |
active.h:= frame.h; |
6688 | 262 |
end; |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
263 |
|
6688 | 264 |
with arrowRight do |
265 |
begin |
|
266 |
show:= true; |
|
267 |
sprite:= sprArrowRight; |
|
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
268 |
frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
269 |
frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
270 |
frame.x:= -(cScreenWidth shr 1) + Round(frame.w * 1.5); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
271 |
frame.y:= cScreenHeight - Round(frame.h * 1.5); |
6710
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
272 |
active.x:= frame.x; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
273 |
active.y:= frame.y; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
274 |
active.w:= frame.w; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
275 |
active.h:= frame.h; |
6688 | 276 |
end; |
6637
b4a3310f2974
show buttons on the screen, similar to the iOS overlay
Xeli
parents:
6631
diff
changeset
|
277 |
|
6714
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
278 |
with firebutton do |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
279 |
begin |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
280 |
show:= true; |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
281 |
sprite:= sprFireButton; |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
282 |
frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale); |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
283 |
frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale); |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
284 |
frame.x:= arrowRight.frame.x + arrowRight.frame.w; |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
285 |
frame.y:= arrowRight.frame.y + (arrowRight.frame.w shr 1) - (frame.w shr 1); |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
286 |
active.x:= frame.x; |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
287 |
active.y:= frame.y; |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
288 |
active.w:= frame.w; |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
289 |
active.h:= frame.h; |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
290 |
end; |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
291 |
|
6688 | 292 |
with arrowUp do |
293 |
begin |
|
294 |
show:= false; |
|
295 |
sprite:= sprArrowUp; |
|
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
296 |
frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
297 |
frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
298 |
frame.x:= (cScreenWidth shr 1) - frame.w * 2; |
6798 | 299 |
frame.y:= jumpWidget.frame.y - Round(frame.h * 1.25); |
6710
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
300 |
active.x:= frame.x; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
301 |
active.y:= frame.y; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
302 |
active.w:= frame.w; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
303 |
active.h:= frame.h; |
6688 | 304 |
with moveAnim do |
305 |
begin |
|
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
306 |
target.x:= frame.x; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
307 |
target.y:= frame.y; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
308 |
source.x:= frame.x - Round(frame.w * 0.75); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
309 |
source.y:= frame.y; |
6688 | 310 |
end; |
311 |
end; |
|
6637
b4a3310f2974
show buttons on the screen, similar to the iOS overlay
Xeli
parents:
6631
diff
changeset
|
312 |
|
6688 | 313 |
with arrowDown do |
314 |
begin |
|
315 |
show:= false; |
|
316 |
sprite:= sprArrowDown; |
|
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
317 |
frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
318 |
frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
319 |
frame.x:= (cScreenWidth shr 1) - frame.w * 2; |
6798 | 320 |
frame.y:= jumpWidget.frame.y - Round(frame.h * 1.25); |
6710
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
321 |
active.x:= frame.x; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
322 |
active.y:= frame.y; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
323 |
active.w:= frame.w; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
324 |
active.h:= frame.h; |
6688 | 325 |
with moveAnim do |
326 |
begin |
|
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
327 |
target.x:= frame.x; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
328 |
target.y:= frame.y; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
329 |
source.x:= frame.x + Round(frame.w * 0.75); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
330 |
source.y:= frame.y; |
6688 | 331 |
end; |
332 |
end; |
|
6685
ef706fccfb0a
moved other widgets under the USE_TOUCH_INTERFACE, added pause button (at least, graphically...)
koda
parents:
6683
diff
changeset
|
333 |
|
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
334 |
with pauseButton do |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
335 |
begin |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
336 |
show:= true; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
337 |
sprite:= sprPauseButton; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
338 |
frame.w:= Round(spritesData[sprPauseButton].Texture^.w * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
339 |
frame.h:= Round(spritesData[sprPauseButton].Texture^.h * buttonScale); |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
340 |
frame.x:= cScreenWidth div 2 - frame.w; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
341 |
frame.y:= 0; |
6710
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
342 |
active.x:= frame.x; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
343 |
active.y:= frame.y; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
344 |
active.w:= frame.w; |
42504695122d
fixed the active region on widgets when they are animated, added active.x:= in uWorld too
Xeli
parents:
6706
diff
changeset
|
345 |
active.h:= frame.h; |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
346 |
end; |
6685
ef706fccfb0a
moved other widgets under the USE_TOUCH_INTERFACE, added pause button (at least, graphically...)
koda
parents:
6683
diff
changeset
|
347 |
|
6806
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
348 |
with utilityWidget do |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
349 |
begin |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
350 |
show:= false; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
351 |
sprite:= sprTimerButton; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
352 |
frame.w:= Round(spritesData[sprite].Texture^.w * buttonScale); |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
353 |
frame.h:= Round(spritesData[sprite].Texture^.h * buttonScale); |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
354 |
frame.x:= arrowLeft.frame.x; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
355 |
frame.y:= arrowLeft.frame.y - Round(frame.h * 1.25); |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
356 |
active.x:= frame.x; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
357 |
active.y:= frame.y; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
358 |
active.w:= frame.w; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
359 |
active.h:= frame.h; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
360 |
with moveAnim do |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
361 |
begin |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
362 |
target.x:= frame.x; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
363 |
target.y:= frame.y; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
364 |
source.x:= frame.x; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
365 |
source.y:= frame.y; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
366 |
end; |
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
367 |
end; |
6637
b4a3310f2974
show buttons on the screen, similar to the iOS overlay
Xeli
parents:
6631
diff
changeset
|
368 |
{$ENDIF} |
161 | 369 |
end; |
370 |
||
6394
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
371 |
// for uStore texture resetting |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
372 |
procedure ResetWorldTex; |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
373 |
begin |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
374 |
FreeTexture(fpsTexture); |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
375 |
fpsTexture:= nil; |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
376 |
FreeTexture(timeTexture); |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
377 |
timeTexture:= nil; |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
378 |
FreeTexture(missionTex); |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
379 |
missionTex:= nil; |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
380 |
end; |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6380
diff
changeset
|
381 |
|
6622 | 382 |
function GetAmmoMenuTexture(Ammo: PHHAmmo): PTexture; |
3434 | 383 |
const BORDERSIZE = 2; |
6622 | 384 |
var x, y, i, t, SlotsNumY, SlotsNumX, AMFrame: LongInt; |
385 |
STurns: LongInt; |
|
386 |
amSurface: PSDL_Surface; |
|
387 |
AMRect: TSDL_Rect; |
|
7049 | 388 |
{$IFDEF USE_AM_NUMCOLUMN}tmpsurf: PSDL_Surface;{$ENDIF} |
161 | 389 |
begin |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
390 |
SlotsNum:= 0; |
6606
fb6163ff4ebf
changed the ammomenu to be landscape for MOBILE, also tweaked the positions a bit, needs testing on iOS
Xeli
parents:
6603
diff
changeset
|
391 |
for i:= 0 to cMaxSlotIndex do |
fb6163ff4ebf
changed the ammomenu to be landscape for MOBILE, also tweaked the positions a bit, needs testing on iOS
Xeli
parents:
6603
diff
changeset
|
392 |
if((i = 0) and (Ammo^[i,1].Count > 0)) or ((i <> 0) and (Ammo^[i,0].Count > 0)) then |
fb6163ff4ebf
changed the ammomenu to be landscape for MOBILE, also tweaked the positions a bit, needs testing on iOS
Xeli
parents:
6603
diff
changeset
|
393 |
inc(SlotsNum); |
6676
21cf35a570a7
add keywords for landscape ammomenu and touch interface
koda
parents:
6652
diff
changeset
|
394 |
{$IFDEF USE_LANDSCAPE_AMMOMENU} |
6622 | 395 |
SlotsNumX:= SlotsNum; |
396 |
SlotsNumY:= cMaxSlotAmmoIndex + 2; |
|
6899 | 397 |
{$IFDEF USE_AM_NUMCOLUMN} |
398 |
inc(SlotsNumY); |
|
399 |
{$ENDIF} |
|
6622 | 400 |
{$ELSE} |
401 |
SlotsNumX:= cMaxSlotAmmoIndex + 1; |
|
402 |
SlotsNumY:= SlotsNum + 1; |
|
6899 | 403 |
{$IFDEF USE_AM_NUMCOLUMN} |
404 |
inc(SlotsNumX); |
|
405 |
{$ENDIF} |
|
6622 | 406 |
{$ENDIF} |
6606
fb6163ff4ebf
changed the ammomenu to be landscape for MOBILE, also tweaked the positions a bit, needs testing on iOS
Xeli
parents:
6603
diff
changeset
|
407 |
|
6899 | 408 |
|
6631 | 409 |
AmmoRect.w:= (BORDERSIZE*2) + (SlotsNumX * AMSlotSize) + (SlotsNumX-1); |
410 |
AmmoRect.h:= (BORDERSIZE*2) + (SlotsNumY * AMSlotSize) + (SlotsNumY-1); |
|
411 |
amSurface := SDL_CreateRGBSurface(SDL_SWSURFACE, AmmoRect.w, AmmoRect.h, 32, RMask, GMask, BMask, AMask); |
|
6622 | 412 |
|
413 |
AMRect.x:= BORDERSIZE; |
|
414 |
AMRect.y:= BORDERSIZE; |
|
6631 | 415 |
AMRect.w:= AmmoRect.w - (BORDERSIZE*2); |
416 |
AMRect.h:= AmmoRect.h - (BORDERSIZE*2); |
|
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
417 |
|
6622 | 418 |
SDL_FillRect(amSurface, @AMRect, SDL_MapRGB(amSurface^.format, 0,0,0)); |
419 |
||
6650
56a0b7bf6c15
fixed the blackpixel in the ammomenu, x,y in GetAmmoMenuTexture now initialized correctly
Xeli
parents:
6648
diff
changeset
|
420 |
x:= AMRect.x; |
56a0b7bf6c15
fixed the blackpixel in the ammomenu, x,y in GetAmmoMenuTexture now initialized correctly
Xeli
parents:
6648
diff
changeset
|
421 |
y:= AMRect.y; |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
422 |
for i:= 0 to cMaxSlotIndex do |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
423 |
if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then |
3434 | 424 |
begin |
6676
21cf35a570a7
add keywords for landscape ammomenu and touch interface
koda
parents:
6652
diff
changeset
|
425 |
{$IFDEF USE_LANDSCAPE_AMMOMENU} |
6650
56a0b7bf6c15
fixed the blackpixel in the ammomenu, x,y in GetAmmoMenuTexture now initialized correctly
Xeli
parents:
6648
diff
changeset
|
426 |
y:= AMRect.y; |
6622 | 427 |
{$ELSE} |
6650
56a0b7bf6c15
fixed the blackpixel in the ammomenu, x,y in GetAmmoMenuTexture now initialized correctly
Xeli
parents:
6648
diff
changeset
|
428 |
x:= AMRect.x; |
6622 | 429 |
{$ENDIF} |
6899 | 430 |
{$IFDEF USE_AM_NUMCOLUMN} |
6918 | 431 |
tmpsurf:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar('F' + IntToStr(i+1)), cWhiteColorChannels); |
6899 | 432 |
copyToXY(tmpsurf, amSurface, |
433 |
x + AMSlotPadding + (AMSlotSize shr 1) - (tmpsurf^.w shr 1), |
|
434 |
y + AMSlotPadding + (AMSlotSize shr 1) - (tmpsurf^.h shr 1)); |
|
435 |
||
436 |
SDL_FreeSurface(tmpsurf); |
|
437 |
{$IFDEF USE_LANDSCAPE_AMMOMENU} |
|
438 |
y:= AMRect.y + AMSlotSize + 1; |
|
439 |
{$ELSE} |
|
440 |
x:= AMRect.x + AMSlotSize + 1; |
|
441 |
{$ENDIF} |
|
442 |
{$ENDIF} |
|
443 |
||
444 |
||
6606
fb6163ff4ebf
changed the ammomenu to be landscape for MOBILE, also tweaked the positions a bit, needs testing on iOS
Xeli
parents:
6603
diff
changeset
|
445 |
for t:=0 to cMaxSlotAmmoIndex do |
3434 | 446 |
begin |
6622 | 447 |
if (Ammo^[i, t].Count > 0) and (Ammo^[i, t].AmmoType <> amNothing) then |
3434 | 448 |
begin |
6622 | 449 |
STurns:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber; |
450 |
AMFrame:= LongInt(Ammo^[i,t].AmmoType) - 1; |
|
451 |
if STurns >= 0 then //weapon not usable yet, draw grayed out with turns remaining |
|
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
452 |
begin |
7013 | 453 |
DrawSpriteFrame2Surf(sprAMAmmosBW, amSurface, x + AMSlotPadding, |
6650
56a0b7bf6c15
fixed the blackpixel in the ammomenu, x,y in GetAmmoMenuTexture now initialized correctly
Xeli
parents:
6648
diff
changeset
|
454 |
y + AMSlotPadding, AMFrame); |
6622 | 455 |
if STurns < 100 then |
7013 | 456 |
DrawSpriteFrame2Surf(sprTurnsLeft, amSurface, |
457 |
x + AMSlotSize-16, |
|
458 |
y + AMSlotSize + 1 - 16, STurns); |
|
6622 | 459 |
end |
460 |
else //draw colored version |
|
461 |
begin |
|
7013 | 462 |
DrawSpriteFrame2Surf(sprAMAmmos, amSurface, x + AMSlotPadding, |
6899 | 463 |
y + AMSlotPadding, AMFrame); |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
464 |
end; |
6676
21cf35a570a7
add keywords for landscape ammomenu and touch interface
koda
parents:
6652
diff
changeset
|
465 |
{$IFDEF USE_LANDSCAPE_AMMOMENU} |
6622 | 466 |
inc(y, AMSlotSize + 1); //the plus one is for the border |
467 |
{$ELSE} |
|
468 |
inc(x, AMSlotSize + 1); |
|
469 |
{$ENDIF} |
|
470 |
end; |
|
471 |
end; |
|
6676
21cf35a570a7
add keywords for landscape ammomenu and touch interface
koda
parents:
6652
diff
changeset
|
472 |
{$IFDEF USE_LANDSCAPE_AMMOMENU} |
6622 | 473 |
inc(x, AMSlotSize + 1); |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
474 |
{$ELSE} |
6622 | 475 |
inc(y, AMSlotSize + 1); |
476 |
{$ENDIF} |
|
477 |
end; |
|
478 |
||
479 |
for i:= 1 to SlotsNumX -1 do |
|
6652 | 480 |
DrawLine2Surf(amSurface, i * (AMSlotSize+1)+1, BORDERSIZE, i * (AMSlotSize+1)+1, AMRect.h + BORDERSIZE - AMSlotSize - 2,160,160,160); |
6622 | 481 |
for i:= 1 to SlotsNumY -1 do |
6652 | 482 |
DrawLine2Surf(amSurface, BORDERSIZE, i * (AMSlotSize+1)+1, AMRect.w + BORDERSIZE, i * (AMSlotSize+1)+1,160,160,160); |
6622 | 483 |
|
484 |
//draw outer border |
|
7013 | 485 |
DrawSpriteFrame2Surf(sprAMCorners, amSurface, 0 , 0 , 0); |
486 |
DrawSpriteFrame2Surf(sprAMCorners, amSurface, AMRect.w + BORDERSIZE, AMRect.y , 1); |
|
487 |
DrawSpriteFrame2Surf(sprAMCorners, amSurface, AMRect.x , AMRect.h + BORDERSIZE, 2); |
|
488 |
DrawSpriteFrame2Surf(sprAMCorners, amSurface, AMRect.w + BORDERSIZE, AMRect.h + BORDERSIZE, 3); |
|
6622 | 489 |
|
490 |
for i:=0 to BORDERSIZE-1 do |
|
491 |
begin |
|
492 |
DrawLine2Surf(amSurface, BORDERSIZE, i, AMRect.w + BORDERSIZE, i,160,160,160);//top |
|
493 |
DrawLine2Surf(amSurface, BORDERSIZE, AMRect.h+BORDERSIZE+i, AMRect.w + BORDERSIZE, AMRect.h+BORDERSIZE+i,160,160,160);//bottom |
|
494 |
DrawLine2Surf(amSurface, i, BORDERSIZE, i, AMRect.h + BORDERSIZE,160,160,160);//left |
|
495 |
DrawLine2Surf(amSurface, AMRect.w+BORDERSIZE+i, BORDERSIZE, AMRect.w + BORDERSIZE+i, AMRect.h + BORDERSIZE, 160,160,160);//right |
|
496 |
end; |
|
497 |
||
498 |
GetAmmoMenuTexture:= Surface2Tex(amSurface, false); |
|
499 |
if amSurface <> nil then SDL_FreeSurface(amSurface); |
|
500 |
end; |
|
501 |
||
502 |
procedure ShowAmmoMenu; |
|
503 |
const BORDERSIZE = 2; |
|
504 |
var Slot, Pos: LongInt; |
|
505 |
Ammo: PHHAmmo; |
|
6648
025473a2c420
prevent the cursor from being shown on the mobile version, and close the menu on tap when the tap is not on the ammo menu
Xeli
parents:
6647
diff
changeset
|
506 |
c,i,g,t,STurns: LongInt; |
6622 | 507 |
begin |
508 |
if (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) |
|
509 |
or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) then |
|
6918 | 510 |
bShowAmmoMenu:= false; |
6622 | 511 |
|
512 |
// give the assigned ammo to hedgehog |
|
513 |
Ammo:= nil; |
|
514 |
if (CurrentTeam <> nil) and (CurrentHedgehog <> nil) |
|
515 |
and (not CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel = 0) then |
|
6918 | 516 |
Ammo:= CurrentHedgehog^.Ammo |
6622 | 517 |
else if (LocalAmmo <> -1) then |
6918 | 518 |
Ammo:= GetAmmoByNum(LocalAmmo); |
6622 | 519 |
Pos:= -1; |
520 |
if Ammo = nil then |
|
6918 | 521 |
begin |
522 |
bShowAmmoMenu:= false; |
|
523 |
AMState:= AMHidden; |
|
524 |
exit |
|
525 |
end; |
|
6622 | 526 |
|
527 |
//Init the menu |
|
528 |
if(AmmoMenuInvalidated) then |
|
529 |
begin |
|
530 |
AmmoMenuInvalidated:= false; |
|
531 |
FreeTexture(AmmoMenuTex); |
|
532 |
AmmoMenuTex:= GetAmmoMenuTexture(Ammo); |
|
3697 | 533 |
|
6676
21cf35a570a7
add keywords for landscape ammomenu and touch interface
koda
parents:
6652
diff
changeset
|
534 |
{$IFDEF USE_LANDSCAPE_AMMOMENU} |
6622 | 535 |
if isPhone() then |
536 |
begin |
|
537 |
AmmoRect.x:= -(AmmoRect.w shr 1); |
|
538 |
AmmoRect.y:= (cScreenHeight shr 1) - (AmmoRect.h shr 1); |
|
539 |
end |
|
540 |
else |
|
541 |
begin |
|
542 |
AmmoRect.x:= -(AmmoRect.w shr 1); |
|
543 |
AmmoRect.y:= cScreenHeight - (AmmoRect.h + AMSlotSize); |
|
544 |
end; |
|
545 |
{$ELSE} |
|
546 |
AmmoRect.x:= (cScreenWidth shr 1) - AmmoRect.w - AMSlotSize; |
|
547 |
AmmoRect.y:= cScreenHeight - (AmmoRect.h + AMSlotSize); |
|
548 |
{$ENDIF} |
|
6799
b45c38282566
revert this until someone makes it not screw up camera focus
nemo
parents:
6798
diff
changeset
|
549 |
AMShiftTargetX:= (cScreenWidth shr 1) - AmmoRect.x; |
b45c38282566
revert this until someone makes it not screw up camera focus
nemo
parents:
6798
diff
changeset
|
550 |
AMShiftTargetY:= cScreenHeight - AmmoRect.y; |
6802 | 551 |
|
6796
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
552 |
if (AMAnimType and AMTypeMaskX) <> 0 then AMShiftTargetX:= (cScreenWidth shr 1) - AmmoRect.x |
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
553 |
else AMShiftTargetX:= 0; |
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
554 |
if (AMAnimType and AMTypeMaskY) <> 0 then AMShiftTargetY:= cScreenHeight - AmmoRect.y |
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
555 |
else AMShiftTargetY:= 0; |
6802 | 556 |
|
6622 | 557 |
AMShiftX:= AMShiftTargetX; |
558 |
AMShiftY:= AMShiftTargetY; |
|
559 |
end; |
|
560 |
||
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
561 |
AMAnimState:= (RealTicks - AMAnimStartTime) / AMAnimDuration; |
6802 | 562 |
|
563 |
if AMState = AMShowing then |
|
564 |
begin |
|
565 |
FollowGear:=nil; |
|
566 |
end; |
|
567 |
||
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
568 |
if AMState = AMShowingUp then // show ammo menu |
6622 | 569 |
begin |
570 |
if (cReducedQuality and rqSlowMenu) <> 0 then |
|
571 |
begin |
|
572 |
AMShiftX:= 0; |
|
573 |
AMShiftY:= 0; |
|
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
574 |
AMState:= AMShowing; |
6622 | 575 |
end |
576 |
else |
|
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
577 |
if AMAnimState < 1 then |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
578 |
begin |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
579 |
AMShiftX:= Round(AMShiftTargetX * (1 - AMAnimState)); |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
580 |
AMShiftY:= Round(AMShiftTargetY * (1 - AMAnimState)); |
6796
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
581 |
if (AMAnimType and AMTypeMaskAlpha) <> 0 then |
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
582 |
Tint($FF, $ff, $ff, Round($ff * AMAnimState)); |
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
583 |
end |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
584 |
else |
6622 | 585 |
begin |
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
586 |
AMShiftX:= 0; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
587 |
AMShiftY:= 0; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
588 |
CursorPoint.X:= AmmoRect.x + AmmoRect.w; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
589 |
CursorPoint.Y:= AmmoRect.y; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
590 |
AMState:= AMShowing; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
591 |
end; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
592 |
end; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
593 |
if AMState = AMHiding then // hide ammo menu |
6622 | 594 |
begin |
595 |
if (cReducedQuality and rqSlowMenu) <> 0 then |
|
596 |
begin |
|
597 |
AMShiftX:= AMShiftTargetX; |
|
598 |
AMShiftY:= AMShiftTargetY; |
|
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
599 |
AMState:= AMHidden; |
6622 | 600 |
end |
601 |
else |
|
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
602 |
if AMAnimState < 1 then |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
603 |
begin |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
604 |
AMShiftX:= Round(AMShiftTargetX * AMAnimState); |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
605 |
AMShiftY:= Round(AMShiftTargetY * AMAnimState); |
6796
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
606 |
if (AMAnimType and AMTypeMaskAlpha) <> 0 then |
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
607 |
Tint($FF, $ff, $ff, Round($ff * (1-AMAnimState))); |
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
608 |
end |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
609 |
else |
6622 | 610 |
begin |
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
611 |
AMShiftX:= AMShiftTargetX; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
612 |
AMShiftY:= AMShiftTargetY; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
613 |
prevPoint:= CursorPoint; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
614 |
AMState:= AMHidden; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
615 |
end; |
6622 | 616 |
end; |
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
617 |
|
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
618 |
DrawTexture(AmmoRect.x + AMShiftX, AmmoRect.y + AMShiftY, AmmoMenuTex); |
6796
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
619 |
|
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
620 |
if ((AMState = AMHiding) or (AMState = AMShowingUp)) and ((AMAnimType and AMTypeMaskAlpha) <> 0 )then |
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
621 |
Tint($FF, $ff, $ff, $ff); |
6622 | 622 |
|
6796
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
623 |
Pos:= -1; |
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
624 |
Slot:= -1; |
6899 | 625 |
{$IFDEF USE_LANDSCAPE_AMMOMENU} |
6918 | 626 |
{$IFDEF USE_AM_NUMCOLUMN} |
627 |
c:= 0; |
|
628 |
{$ELSE} |
|
6796
3e89dbdc7db9
You can now change AMAnimType to enable the animation through the x/y axis and alpha for example
Xeli
parents:
6795
diff
changeset
|
629 |
c:= -1; |
6918 | 630 |
{$ENDIF} |
6622 | 631 |
for i:= 0 to cMaxSlotIndex do |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
632 |
if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
633 |
begin |
6631 | 634 |
inc(c); |
6918 | 635 |
{$IFDEF USE_AM_NUMCOLUMN} |
6899 | 636 |
g:= 1; |
6918 | 637 |
{$ELSE} |
6622 | 638 |
g:= 0; |
6918 | 639 |
{$ENDIF} |
6622 | 640 |
for t:=0 to cMaxSlotAmmoIndex do |
641 |
if (Ammo^[i, t].Count > 0) and (Ammo^[i, t].AmmoType <> amNothing) then |
|
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
642 |
begin |
6622 | 643 |
if (CursorPoint.Y <= (cScreenHeight - AmmoRect.y) - ( g * (AMSlotSize+1))) and |
644 |
(CursorPoint.Y >= (cScreenHeight - AmmoRect.y) - ((g+1) * (AMSlotSize+1))) and |
|
6631 | 645 |
(CursorPoint.X >= AmmoRect.x + ( c * (AMSlotSize+1))) and |
646 |
(CursorPoint.X <= AmmoRect.x + ((c+1) * (AMSlotSize+1))) then |
|
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
647 |
begin |
6622 | 648 |
Slot:= i; |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
649 |
Pos:= t; |
6622 | 650 |
STurns:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber; |
651 |
if (STurns < 0) and (AMShiftX = 0) and (AMShiftY = 0) then |
|
652 |
DrawSprite(sprAMSlot, |
|
6645
9ff40cf44827
Fixes slot sprite and ammo sprites overlapping left side border. There is still the issue that boxes should be 32px between borders, but right now they are 33px on all but the first row (since the outside border overlaps it by 1px) causing the slot sprite to have 2px of border on the left and 1px of border on the right.
nemo
parents:
6644
diff
changeset
|
653 |
AmmoRect.x + BORDERSIZE + (c * (AMSlotSize+1)) + AMSlotPadding, |
6622 | 654 |
AmmoRect.y + BORDERSIZE + (g * (AMSlotSize+1)) + AMSlotPadding -1, 0); |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
655 |
end; |
6622 | 656 |
inc(g); |
657 |
end; |
|
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
658 |
end; |
6622 | 659 |
{$ELSE} |
6918 | 660 |
{$IFDEF USE_AM_NUMCOLUMN} |
661 |
c:= -1; |
|
662 |
{$ELSE} |
|
6899 | 663 |
c:= 0; |
6918 | 664 |
{$ENDIF} |
6622 | 665 |
for i:= 0 to cMaxSlotIndex do |
666 |
if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then |
|
667 |
begin |
|
6631 | 668 |
inc(c); |
6918 | 669 |
{$IFDEF USE_AM_NUMCOLUMN} |
6899 | 670 |
g:= 1; |
6918 | 671 |
{$ELSE} |
6622 | 672 |
g:= 0; |
6918 | 673 |
{$ENDIF} |
6622 | 674 |
for t:=0 to cMaxSlotAmmoIndex do |
675 |
if (Ammo^[i, t].Count > 0) and (Ammo^[i, t].AmmoType <> amNothing) then |
|
676 |
begin |
|
6631 | 677 |
if (CursorPoint.Y <= (cScreenHeight - AmmoRect.y) - ( c * (AMSlotSize+1))) and |
678 |
(CursorPoint.Y >= (cScreenHeight - AmmoRect.y) - ((c+1) * (AMSlotSize+1))) and |
|
6622 | 679 |
(CursorPoint.X >= AmmoRect.x + ( g * (AMSlotSize+1))) and |
680 |
(CursorPoint.X <= AmmoRect.x + ((g+1) * (AMSlotSize+1))) then |
|
681 |
begin |
|
682 |
Slot:= i; |
|
683 |
Pos:= t; |
|
684 |
STurns:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber; |
|
685 |
if (STurns < 0) and (AMShiftX = 0) and (AMShiftY = 0) then |
|
686 |
DrawSprite(sprAMSlot, |
|
6645
9ff40cf44827
Fixes slot sprite and ammo sprites overlapping left side border. There is still the issue that boxes should be 32px between borders, but right now they are 33px on all but the first row (since the outside border overlaps it by 1px) causing the slot sprite to have 2px of border on the left and 1px of border on the right.
nemo
parents:
6644
diff
changeset
|
687 |
AmmoRect.x + BORDERSIZE + (g * (AMSlotSize+1)) + AMSlotPadding, |
6631 | 688 |
AmmoRect.y + BORDERSIZE + (c * (AMSlotSize+1)) + AMSlotPadding -1, 0); |
6622 | 689 |
end; |
690 |
inc(g); |
|
691 |
end; |
|
692 |
end; |
|
3395
095273ad0e08
adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits)
koda
parents:
3390
diff
changeset
|
693 |
{$ENDIF} |
6622 | 694 |
if (Pos >= 0) and (Pos <= cMaxSlotAmmoIndex) and (Slot >= 0) and (Slot <= cMaxSlotIndex)then |
3967 | 695 |
begin |
6622 | 696 |
if (AMShiftX = 0) and (AMShiftY = 0) then |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
697 |
if (Ammo^[Slot, Pos].Count > 0) and (Ammo^[Slot, Pos].AmmoType <> amNothing) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
698 |
begin |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
699 |
if (amSel <> Ammo^[Slot, Pos].AmmoType) or (WeaponTooltipTex = nil) then |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
700 |
begin |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
701 |
amSel:= Ammo^[Slot, Pos].AmmoType; |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
702 |
RenderWeaponTooltip(amSel) |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
703 |
end; |
3697 | 704 |
|
6622 | 705 |
DrawTexture(AmmoRect.x + (AMSlotSize shr 1), |
706 |
AmmoRect.y + AmmoRect.h - BORDERSIZE - (AMSlotSize shr 1) - (Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex^.h shr 1), |
|
6608 | 707 |
Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex); |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
708 |
if Ammo^[Slot, Pos].Count < AMMO_INFINITE then |
6622 | 709 |
DrawTexture(AmmoRect.x + AmmoRect.w - 20 - (CountTexz[Ammo^[Slot, Pos].Count]^.w), |
710 |
AmmoRect.y + AmmoRect.h - BORDERSIZE - (AMslotSize shr 1) - (CountTexz[Ammo^[Slot, Pos].Count]^.w shr 1), |
|
6608 | 711 |
CountTexz[Ammo^[Slot, Pos].Count]); |
1529
3bc916b419cd
Don't hide ammo menu when user clicks on not yet available weapon
unc0rr
parents:
1439
diff
changeset
|
712 |
|
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
713 |
if bSelected and (Ammoz[Ammo^[Slot, Pos].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber < 0) then |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
714 |
begin |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
715 |
bShowAmmoMenu:= false; |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
716 |
SetWeapon(Ammo^[Slot, Pos].AmmoType); |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
717 |
bSelected:= false; |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
718 |
FreeWeaponTooltip; |
6691
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
719 |
{$IFDEF USE_TOUCH_INTERFACE}//show the aiming buttons + animation |
6941
228c0ab239f1
add ammoprop to enable to up and down buttons on for the touch interface
Xeli
parents:
6924
diff
changeset
|
720 |
if (Ammo^[Slot, Pos].Propz and ammoprop_NeedUpDown) <> 0 then |
6691
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
721 |
begin |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
722 |
if not(arrowUp.show) then |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
723 |
begin |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
724 |
animateWidget(@arrowUp, true, true); |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
725 |
animateWidget(@arrowDown, true, true); |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
726 |
end; |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
727 |
end |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
728 |
else |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
729 |
if arrowUp.show then |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
730 |
begin |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
731 |
animateWidget(@arrowUp, true, false); |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
732 |
animateWidget(@arrowDown, true, false); |
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
733 |
end; |
6961
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
734 |
SetUtilityWidgetState(Ammo^[Slot, Pos].AmmoType); |
6691
79c96abd06d6
added hide/show animation for the aiming keys (should animateWidget() be moved to another unit?)
Xeli
parents:
6688
diff
changeset
|
735 |
{$ENDIF} |
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
736 |
exit |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
737 |
end; |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
738 |
end |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
739 |
end |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
740 |
else |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
741 |
FreeWeaponTooltip; |
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
742 |
|
6622 | 743 |
if (WeaponTooltipTex <> nil) and (AMShiftX = 0) and (AMShiftY = 0) then |
6676
21cf35a570a7
add keywords for landscape ammomenu and touch interface
koda
parents:
6652
diff
changeset
|
744 |
{$IFDEF USE_LANDSCAPE_AMMOMENU} |
6622 | 745 |
if not isPhone() then |
746 |
ShowWeaponTooltip(-WeaponTooltipTex^.w div 2, AmmoRect.y - WeaponTooltipTex^.h - AMSlotSize); |
|
3395
095273ad0e08
adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits)
koda
parents:
3390
diff
changeset
|
747 |
{$ELSE} |
6622 | 748 |
ShowWeaponTooltip(AmmoRect.x - WeaponTooltipTex^.w - 3, Min(AmmoRect.y + 1, cScreenHeight - WeaponTooltipTex^.h - 40)); |
3395
095273ad0e08
adding a somewhat working autoration for ipad (uStore.pas and uWorld.pas got mixed in the last two commits)
koda
parents:
3390
diff
changeset
|
749 |
{$ENDIF} |
961
a9a349b2b3fa
Use turnsleft sprites to indicate turns left to activate ammo
unc0rr
parents:
956
diff
changeset
|
750 |
|
6276
1e2f8da1860a
while formatting the ammomenu code i found out that it's simpler to move than i thought, and fixed a small glitch when animation was disabled
koda
parents:
6250
diff
changeset
|
751 |
bSelected:= false; |
6899 | 752 |
{$IFNDEF USE_TOUCH_INTERFACE} |
6648
025473a2c420
prevent the cursor from being shown on the mobile version, and close the menu on tap when the tap is not on the ammo menu
Xeli
parents:
6647
diff
changeset
|
753 |
if (AMShiftX = 0) and (AMShiftY = 0) then |
6622 | 754 |
DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8); |
6648
025473a2c420
prevent the cursor from being shown on the mobile version, and close the menu on tap when the tap is not on the ammo menu
Xeli
parents:
6647
diff
changeset
|
755 |
{$ENDIF} |
4 | 756 |
end; |
757 |
||
3104 | 758 |
procedure DrawWater(Alpha: byte; OffsetY: LongInt); |
1915 | 759 |
var VertexBuffer: array [0..3] of TVertex2f; |
760 |
r: TSDL_Rect; |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
761 |
lw, lh: GLfloat; |
1915 | 762 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
763 |
if SuddenDeathDmg then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
764 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
765 |
SDWaterColorArray[0].a := Alpha; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
766 |
SDWaterColorArray[1].a := Alpha; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
767 |
SDWaterColorArray[2].a := Alpha; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
768 |
SDWaterColorArray[3].a := Alpha |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
769 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
770 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
771 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
772 |
WaterColorArray[0].a := Alpha; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
773 |
WaterColorArray[1].a := Alpha; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
774 |
WaterColorArray[2].a := Alpha; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
775 |
WaterColorArray[3].a := Alpha |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
776 |
end; |
2269
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
777 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
778 |
lw:= cScreenWidth / cScaleFactor; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
779 |
lh:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 + 16; |
3697 | 780 |
|
3405 | 781 |
// Water |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
782 |
r.y:= OffsetY + WorldDy + cWaterLine; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
783 |
if WorldDy < trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
784 |
begin |
3405 | 785 |
if r.y < 0 then |
786 |
r.y:= 0; |
|
1915 | 787 |
|
3405 | 788 |
glDisable(GL_TEXTURE_2D); |
789 |
VertexBuffer[0].X:= -lw; |
|
790 |
VertexBuffer[0].Y:= r.y; |
|
791 |
VertexBuffer[1].X:= lw; |
|
792 |
VertexBuffer[1].Y:= r.y; |
|
793 |
VertexBuffer[2].X:= lw; |
|
794 |
VertexBuffer[2].Y:= lh; |
|
795 |
VertexBuffer[3].X:= -lw; |
|
796 |
VertexBuffer[3].Y:= lh; |
|
1915 | 797 |
|
3641 | 798 |
glDisableClientState(GL_TEXTURE_COORD_ARRAY); |
799 |
glEnableClientState(GL_COLOR_ARRAY); |
|
4748 | 800 |
if SuddenDeathDmg then |
801 |
glColorPointer(4, GL_UNSIGNED_BYTE, 0, @SDWaterColorArray[0]) |
|
802 |
else |
|
803 |
glColorPointer(4, GL_UNSIGNED_BYTE, 0, @WaterColorArray[0]); |
|
1915 | 804 |
|
3405 | 805 |
glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]); |
2171
8208946331ba
Smaxx refactor of LoadImage to use flags, iphone changes by koda (mostly use of rgba instead of rgb)
nemo
parents:
2162
diff
changeset
|
806 |
|
3405 | 807 |
glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer)); |
1915 | 808 |
|
3405 | 809 |
glDisableClientState(GL_COLOR_ARRAY); |
3641 | 810 |
glEnableClientState(GL_TEXTURE_COORD_ARRAY); |
3407 | 811 |
glColor4ub($FF, $FF, $FF, $FF); // must not be Tint() as color array seems to stay active and color reset is required |
3405 | 812 |
glEnable(GL_TEXTURE_2D); |
813 |
end; |
|
1915 | 814 |
end; |
815 |
||
3376 | 816 |
procedure DrawWaves(Dir, dX, dY: LongInt; tnt: Byte); |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
817 |
var VertexBuffer, TextureBuffer: array [0..3] of TVertex2f; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
818 |
lw, waves, shift: GLfloat; |
4748 | 819 |
sprite: TSprite; |
2288 | 820 |
begin |
4748 | 821 |
if SuddenDeathDmg then |
822 |
sprite:= sprSDWater |
|
823 |
else |
|
824 |
sprite:= sprWater; |
|
825 |
||
826 |
cWaveWidth:= SpritesData[sprite].Width; |
|
827 |
||
3463 | 828 |
lw:= cScreenWidth / cScaleFactor; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
829 |
waves:= lw * 2 / cWaveWidth; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
830 |
|
4748 | 831 |
if SuddenDeathDmg then |
832 |
Tint(LongInt(tnt) * SDWaterColorArray[2].r div 255 + 255 - tnt, |
|
833 |
LongInt(tnt) * SDWaterColorArray[2].g div 255 + 255 - tnt, |
|
834 |
LongInt(tnt) * SDWaterColorArray[2].b div 255 + 255 - tnt, |
|
835 |
255 |
|
836 |
) |
|
837 |
else |
|
838 |
Tint(LongInt(tnt) * WaterColorArray[2].r div 255 + 255 - tnt, |
|
839 |
LongInt(tnt) * WaterColorArray[2].g div 255 + 255 - tnt, |
|
840 |
LongInt(tnt) * WaterColorArray[2].b div 255 + 255 - tnt, |
|
841 |
255 |
|
842 |
); |
|
3089 | 843 |
|
4748 | 844 |
glBindTexture(GL_TEXTURE_2D, SpritesData[sprite].Texture^.id); |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
845 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
846 |
VertexBuffer[0].X:= -lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
847 |
VertexBuffer[0].Y:= cWaterLine + WorldDy + dY; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
848 |
VertexBuffer[1].X:= lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
849 |
VertexBuffer[1].Y:= VertexBuffer[0].Y; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
850 |
VertexBuffer[2].X:= lw; |
4748 | 851 |
VertexBuffer[2].Y:= VertexBuffer[0].Y + SpritesData[sprite].Height; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
852 |
VertexBuffer[3].X:= -lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
853 |
VertexBuffer[3].Y:= VertexBuffer[2].Y; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
854 |
|
2374 | 855 |
shift:= - lw / cWaveWidth; |
2495 | 856 |
TextureBuffer[0].X:= shift + (( - WorldDx + LongInt(RealTicks shr 6) * Dir + dX) mod cWaveWidth) / (cWaveWidth - 1); |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
857 |
TextureBuffer[0].Y:= 0; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
858 |
TextureBuffer[1].X:= TextureBuffer[0].X + waves; |
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2434
diff
changeset
|
859 |
TextureBuffer[1].Y:= TextureBuffer[0].Y; |
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2434
diff
changeset
|
860 |
TextureBuffer[2].X:= TextureBuffer[1].X; |
4748 | 861 |
TextureBuffer[2].Y:= SpritesData[sprite].Texture^.ry; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
862 |
TextureBuffer[3].X:= TextureBuffer[0].X; |
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2434
diff
changeset
|
863 |
TextureBuffer[3].Y:= TextureBuffer[2].Y; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
864 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
865 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
866 |
glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
867 |
glTexCoordPointer(2, GL_FLOAT, 0, @TextureBuffer[0]); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
868 |
glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer)); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
869 |
|
3390 | 870 |
Tint($FF, $FF, $FF, $FF); |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
871 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
872 |
{for i:= -1 to cWaterSprCount do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
873 |
DrawSprite(sprWater, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
874 |
i * cWaveWidth + ((WorldDx + (RealTicks shr 6) * Dir + dX) mod cWaveWidth) - (cScreenWidth div 2), |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
875 |
cWaterLine + WorldDy + dY, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
876 |
0)} |
2288 | 877 |
end; |
878 |
||
3089 | 879 |
procedure DrawRepeated(spr, sprL, sprR: TSprite; Shift, OffsetY: LongInt); |
3537
8f5b3108f29c
New approach to the low-res problem. Basically, we already have a 1024 minimum, and the tallest maps are restricting themselves to 2048 maximum. All backgrounds are scaled down 50%, then scaled up on draw. Saves memory, and backgrounds are already deliberately fuzzed for depth of field anyway.
nemo
parents:
3523
diff
changeset
|
880 |
var i, w, h, lw, lh, rw, rh, sw: LongInt; |
2426 | 881 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
882 |
sw:= round(cScreenWidth / cScaleFactor); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
883 |
if (SpritesData[sprL].Texture = nil) and (SpritesData[spr].Texture <> nil) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
884 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
885 |
w:= SpritesData[spr].Width * SpritesData[spr].Texture^.Scale; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
886 |
h:= SpritesData[spr].Height * SpritesData[spr].Texture^.Scale; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
887 |
i:= Shift mod w; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
888 |
if i > 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
889 |
dec(i, w); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
890 |
dec(i, w * (sw div w + 1)); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
891 |
repeat |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
892 |
DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - h, SpritesData[spr].Texture, SpritesData[spr].Texture^.Scale); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
893 |
inc(i, w) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
894 |
until i > sw |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
895 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
896 |
else if SpritesData[spr].Texture <> nil then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
897 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
898 |
w:= SpritesData[spr].Width * SpritesData[spr].Texture^.Scale; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
899 |
h:= SpritesData[spr].Height * SpritesData[spr].Texture^.Scale; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
900 |
lw:= SpritesData[sprL].Width * SpritesData[spr].Texture^.Scale; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
901 |
lh:= SpritesData[sprL].Height * SpritesData[spr].Texture^.Scale; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
902 |
if SpritesData[sprR].Texture <> nil then |
5285
af4dc03dd60d
Make sky, horizon, flakes and clouds optional, replace repeated strips of skyL/skyR with 2x2 transparent PNGs instead of larger images of variable dimensions, remove a number of empty unused images
nemo
parents:
5191
diff
changeset
|
903 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
904 |
rw:= SpritesData[sprR].Width * SpritesData[spr].Texture^.Scale; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
905 |
rh:= SpritesData[sprR].Height * SpritesData[spr].Texture^.Scale |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
906 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
907 |
dec(Shift, w div 2); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
908 |
DrawTexture(Shift, WorldDy + LAND_HEIGHT + OffsetY - h, SpritesData[spr].Texture, SpritesData[spr].Texture^.Scale); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
909 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
910 |
i:= Shift - lw; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
911 |
while i >= -sw - lw do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
912 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
913 |
DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - lh, SpritesData[sprL].Texture, SpritesData[sprL].Texture^.Scale); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
914 |
dec(i, lw); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
915 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
916 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
917 |
i:= Shift + w; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
918 |
if SpritesData[sprR].Texture <> nil then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
919 |
while i <= sw do |
6135
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
920 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
921 |
DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - rh, SpritesData[sprR].Texture, SpritesData[sprR].Texture^.Scale); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
922 |
inc(i, rw) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
923 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
924 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
925 |
while i <= sw do |
5285
af4dc03dd60d
Make sky, horizon, flakes and clouds optional, replace repeated strips of skyL/skyR with 2x2 transparent PNGs instead of larger images of variable dimensions, remove a number of empty unused images
nemo
parents:
5191
diff
changeset
|
926 |
begin |
3537
8f5b3108f29c
New approach to the low-res problem. Basically, we already have a 1024 minimum, and the tallest maps are restricting themselves to 2048 maximum. All backgrounds are scaled down 50%, then scaled up on draw. Saves memory, and backgrounds are already deliberately fuzzed for depth of field anyway.
nemo
parents:
3523
diff
changeset
|
927 |
DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - lh, SpritesData[sprL].Texture, SpritesData[sprL].Texture^.Scale); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
928 |
inc(i, lw) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
929 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
930 |
end |
2426 | 931 |
end; |
932 |
||
933 |
||
956 | 934 |
procedure DrawWorld(Lag: LongInt); |
4 | 935 |
begin |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
936 |
if ZoomValue < zoom then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
937 |
begin |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
938 |
zoom:= zoom - 0.002 * Lag; |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
939 |
if ZoomValue > zoom then |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
940 |
zoom:= ZoomValue |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
941 |
end |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
942 |
else |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
943 |
if ZoomValue > zoom then |
3444 | 944 |
begin |
6734
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
945 |
zoom:= zoom + 0.002 * Lag; |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
946 |
if ZoomValue < zoom then |
9709d15dabfa
Revert most of 033e4a8a9c74 and 9d501dc22f71 (see bug #362)
nemo
parents:
6714
diff
changeset
|
947 |
zoom:= ZoomValue |
3444 | 948 |
end |
3611 | 949 |
else |
950 |
ZoomValue:= zoom; |
|
2376 | 951 |
|
3611 | 952 |
// Sky |
953 |
glClear(GL_COLOR_BUFFER_BIT); |
|
954 |
//glPushMatrix; |
|
955 |
//glScalef(1.0, 1.0, 1.0); |
|
756 | 956 |
|
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
957 |
if not isPaused then |
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
958 |
MoveCamera; |
162 | 959 |
|
3696 | 960 |
if cStereoMode = smNone then |
961 |
begin |
|
3692 | 962 |
glClear(GL_COLOR_BUFFER_BIT); |
963 |
DrawWorldStereo(Lag, rmDefault) |
|
3696 | 964 |
end |
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
965 |
{$IFNDEF S3D_DISABLED} |
3696 | 966 |
else if (cStereoMode = smAFR) then |
967 |
begin |
|
968 |
AFRToggle:= not AFRToggle; |
|
969 |
glClear(GL_COLOR_BUFFER_BIT); |
|
970 |
if AFRToggle then |
|
971 |
DrawWorldStereo(Lag, rmLeftEye) |
|
972 |
else |
|
973 |
DrawWorldStereo(Lag, rmRightEye) |
|
974 |
end |
|
975 |
else if (cStereoMode = smHorizontal) or (cStereoMode = smVertical) then |
|
976 |
begin |
|
3692 | 977 |
// create left fb |
978 |
glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, framel); |
|
979 |
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); |
|
980 |
DrawWorldStereo(Lag, rmLeftEye); |
|
981 |
||
982 |
// create right fb |
|
983 |
glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, framer); |
|
984 |
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); |
|
985 |
DrawWorldStereo(0, rmRightEye); |
|
986 |
||
987 |
// detatch drawing from fbs |
|
988 |
glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, 0); |
|
989 |
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); |
|
990 |
SetScale(cDefaultZoomLevel); |
|
991 |
||
992 |
// draw left frame |
|
993 |
glBindTexture(GL_TEXTURE_2D, texl); |
|
994 |
glBegin(GL_QUADS); |
|
3696 | 995 |
if cStereoMode = smHorizontal then |
996 |
begin |
|
997 |
glTexCoord2f(0.0, 0.0); |
|
998 |
glVertex2d(cScreenWidth / -2, cScreenHeight); |
|
999 |
glTexCoord2f(1.0, 0.0); |
|
1000 |
glVertex2d(0, cScreenHeight); |
|
1001 |
glTexCoord2f(1.0, 1.0); |
|
1002 |
glVertex2d(0, 0); |
|
1003 |
glTexCoord2f(0.0, 1.0); |
|
1004 |
glVertex2d(cScreenWidth / -2, 0); |
|
1005 |
end |
|
1006 |
else |
|
1007 |
begin |
|
1008 |
glTexCoord2f(0.0, 0.0); |
|
1009 |
glVertex2d(cScreenWidth / -2, cScreenHeight / 2); |
|
1010 |
glTexCoord2f(1.0, 0.0); |
|
1011 |
glVertex2d(cScreenWidth / 2, cScreenHeight / 2); |
|
1012 |
glTexCoord2f(1.0, 1.0); |
|
1013 |
glVertex2d(cScreenWidth / 2, 0); |
|
1014 |
glTexCoord2f(0.0, 1.0); |
|
1015 |
glVertex2d(cScreenWidth / -2, 0); |
|
1016 |
end; |
|
3692 | 1017 |
glEnd(); |
1018 |
||
1019 |
// draw right frame |
|
1020 |
glBindTexture(GL_TEXTURE_2D, texr); |
|
1021 |
glBegin(GL_QUADS); |
|
3696 | 1022 |
if cStereoMode = smHorizontal then |
1023 |
begin |
|
1024 |
glTexCoord2f(0.0, 0.0); |
|
1025 |
glVertex2d(0, cScreenHeight); |
|
1026 |
glTexCoord2f(1.0, 0.0); |
|
1027 |
glVertex2d(cScreenWidth / 2, cScreenHeight); |
|
1028 |
glTexCoord2f(1.0, 1.0); |
|
1029 |
glVertex2d(cScreenWidth / 2, 0); |
|
1030 |
glTexCoord2f(0.0, 1.0); |
|
1031 |
glVertex2d(0, 0); |
|
1032 |
end |
|
1033 |
else |
|
1034 |
begin |
|
1035 |
glTexCoord2f(0.0, 0.0); |
|
1036 |
glVertex2d(cScreenWidth / -2, cScreenHeight); |
|
1037 |
glTexCoord2f(1.0, 0.0); |
|
1038 |
glVertex2d(cScreenWidth / 2, cScreenHeight); |
|
1039 |
glTexCoord2f(1.0, 1.0); |
|
1040 |
glVertex2d(cScreenWidth / 2, cScreenHeight / 2); |
|
1041 |
glTexCoord2f(0.0, 1.0); |
|
1042 |
glVertex2d(cScreenWidth / -2, cScreenHeight / 2); |
|
1043 |
end; |
|
3692 | 1044 |
glEnd(); |
1045 |
SetScale(zoom); |
|
3696 | 1046 |
end |
1047 |
else |
|
1048 |
begin |
|
1049 |
// clear scene |
|
1050 |
glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE); |
|
1051 |
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); |
|
1052 |
// draw left eye in red channel only |
|
1053 |
if cStereoMode = smGreenRed then |
|
1054 |
glColorMask(GL_FALSE, GL_TRUE, GL_FALSE, GL_TRUE) |
|
1055 |
else if cStereoMode = smBlueRed then |
|
1056 |
glColorMask(GL_FALSE, GL_FALSE, GL_TRUE, GL_TRUE) |
|
1057 |
else if cStereoMode = smCyanRed then |
|
1058 |
glColorMask(GL_FALSE, GL_TRUE, GL_TRUE, GL_TRUE) |
|
1059 |
else |
|
1060 |
glColorMask(GL_TRUE, GL_FALSE, GL_FALSE, GL_TRUE); |
|
1061 |
DrawWorldStereo(Lag, rmLeftEye); |
|
1062 |
// draw right eye in selected channel(s) only |
|
1063 |
if cStereoMode = smRedGreen then |
|
1064 |
glColorMask(GL_FALSE, GL_TRUE, GL_FALSE, GL_TRUE) |
|
1065 |
else if cStereoMode = smRedBlue then |
|
1066 |
glColorMask(GL_FALSE, GL_FALSE, GL_TRUE, GL_TRUE) |
|
1067 |
else if cStereoMode = smRedCyan then |
|
1068 |
glColorMask(GL_FALSE, GL_TRUE, GL_TRUE, GL_TRUE) |
|
1069 |
else |
|
1070 |
glColorMask(GL_TRUE, GL_FALSE, GL_FALSE, GL_TRUE); |
|
1071 |
DrawWorldStereo(Lag, rmRightEye); |
|
1072 |
end |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1073 |
{$ENDIF} |
3692 | 1074 |
end; |
1075 |
||
1076 |
procedure ChangeDepth(rm: TRenderMode; d: GLfloat); |
|
1077 |
begin |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1078 |
{$IFDEF S3D_DISABLED} |
4850 | 1079 |
rm:= rm; d:= d; // avoid hint |
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1080 |
exit; |
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1081 |
{$ELSE} |
3696 | 1082 |
d:= d / 5; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1083 |
if rm = rmDefault then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1084 |
exit |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1085 |
else if rm = rmLeftEye then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1086 |
d:= -d; |
3692 | 1087 |
stereoDepth:= stereoDepth + d; |
1088 |
glMatrixMode(GL_PROJECTION); |
|
1089 |
glTranslatef(d, 0, 0); |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1090 |
glMatrixMode(GL_MODELVIEW); |
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1091 |
{$ENDIF} |
3692 | 1092 |
end; |
1093 |
||
1094 |
procedure ResetDepth(rm: TRenderMode); |
|
1095 |
begin |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1096 |
{$IFDEF S3D_DISABLED} |
4850 | 1097 |
rm:= rm; // avoid hint |
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1098 |
exit; |
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1099 |
{$ELSE} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1100 |
if rm = rmDefault then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1101 |
exit; |
3692 | 1102 |
glMatrixMode(GL_PROJECTION); |
1103 |
glTranslatef(-stereoDepth, 0, 0); |
|
1104 |
glMatrixMode(GL_MODELVIEW); |
|
1105 |
stereoDepth:= 0; |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
1106 |
{$ENDIF} |
3692 | 1107 |
end; |
1108 |
||
1109 |
procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode); |
|
6627 | 1110 |
var i, t, h: LongInt; |
3692 | 1111 |
r: TSDL_Rect; |
1112 |
tdx, tdy: Double; |
|
7016 | 1113 |
s: shortstring; |
3692 | 1114 |
highlight: Boolean; |
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1115 |
smallScreenOffset, offsetX, offsetY, screenBottom: LongInt; |
3692 | 1116 |
VertexBuffer: array [0..3] of TVertex2f; |
1117 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1118 |
if (cReducedQuality and rqNoBackground) = 0 then |
1812 | 1119 |
begin |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1120 |
// Offsets relative to camera - spare them to wimpier cpus, no bg or flakes for them anyway |
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1121 |
ScreenBottom:= (WorldDy - trunc(cScreenHeight/cScaleFactor) - (cScreenHeight div 2) + cWaterLine); |
4374 | 1122 |
offsetY:= 10 * Min(0, -145 - ScreenBottom); |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1123 |
SkyOffset:= offsetY div 35 + cWaveHeight; |
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1124 |
HorizontOffset:= SkyOffset; |
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1125 |
if ScreenBottom > SkyOffset then |
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1126 |
HorizontOffset:= HorizontOffset + ((ScreenBottom-SkyOffset) div 20); |
3265
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
1127 |
|
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1128 |
// background |
3688 | 1129 |
ChangeDepth(RM, cStereo_Sky); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1130 |
if SuddenDeathDmg then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1131 |
Tint(SDTint, SDTint, SDTint, $FF); |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1132 |
DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset); |
3688 | 1133 |
ChangeDepth(RM, -cStereo_Horizon); |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1134 |
DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1135 |
if SuddenDeathDmg then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1136 |
Tint($FF, $FF, $FF, $FF); |
3611 | 1137 |
end; |
4 | 1138 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1139 |
DrawVisualGears(0); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1140 |
ChangeDepth(RM, -cStereo_MidDistance); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1141 |
DrawVisualGears(4); |
3697 | 1142 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1143 |
if (cReducedQuality and rq2DWater) = 0 then |
3611 | 1144 |
begin |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1145 |
// Waves |
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1146 |
DrawWater(255, SkyOffset); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1147 |
ChangeDepth(RM, -cStereo_Water_distant); |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1148 |
DrawWaves( 1, 0 - WorldDx div 32, - cWaveHeight + offsetY div 35, 64); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1149 |
ChangeDepth(RM, -cStereo_Water_distant); |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1150 |
DrawWaves( -1, 25 + WorldDx div 25, - cWaveHeight + offsetY div 38, 48); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1151 |
ChangeDepth(RM, -cStereo_Water_distant); |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1152 |
DrawWaves( 1, 75 - WorldDx div 19, - cWaveHeight + offsetY div 45, 32); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1153 |
ChangeDepth(RM, -cStereo_Water_distant); |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1154 |
DrawWaves(-1, 100 + WorldDx div 14, - cWaveHeight + offsetY div 70, 24); |
3265
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
1155 |
end |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1156 |
else |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1157 |
DrawWaves(-1, 100, - (cWaveHeight + (cWaveHeight shr 1)), 0); |
4 | 1158 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1159 |
changeDepth(RM, cStereo_Land); |
6302
db8bdbb34e03
Spread flakes out over 5 layers now (far back, mid distance, just behind land, just in front of lands and hog, near distance). Spread clouds out over 3 layers (far back, mid distance, just behind land). Add a flatten clouds option, use
nemo
parents:
6296
diff
changeset
|
1160 |
DrawVisualGears(5); |
3611 | 1161 |
DrawLand(WorldDx, WorldDy); |
1911 | 1162 |
|
3611 | 1163 |
DrawWater(255, 0); |
4 | 1164 |
|
1660 | 1165 |
// Attack bar |
5862 | 1166 |
if CurrentTeam <> nil then |
3611 | 1167 |
case AttackBar of |
1660 | 1168 |
(* 1: begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1169 |
r:= StuffPoz[sPowerBar]; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1170 |
{$WARNINGS OFF} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1171 |
r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1172 |
{$WARNINGS ON} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1173 |
DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1174 |
end;*) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1175 |
2: with CurrentHedgehog^ do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1176 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1177 |
tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1178 |
tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1179 |
for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1180 |
DrawSprite(sprPower, |
4159
64e677349124
REmove stupid int64 conversions, provide real fixes to compiler hints
unc0rr
parents:
4132
diff
changeset
|
1181 |
hwRound(Gear^.X) + GetLaunchX(CurAmmoType, hwSign(Gear^.dX), Gear^.Angle) + LongInt(round(WorldDx + tdx * (24 + i * 2))) - 16, |
64e677349124
REmove stupid int64 conversions, provide real fixes to compiler hints
unc0rr
parents:
4132
diff
changeset
|
1182 |
hwRound(Gear^.Y) + GetLaunchY(CurAmmoType, Gear^.Angle) + LongInt(round(WorldDy + tdy * (24 + i * 2))) - 16, |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1183 |
i) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1184 |
end |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1185 |
end; |
1660 | 1186 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1187 |
DrawVisualGears(1); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1188 |
DrawGears; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1189 |
DrawVisualGears(6); |
4 | 1190 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1191 |
if SuddenDeathDmg then |
6982 | 1192 |
DrawWater(SDWaterOpacity, 0) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1193 |
else |
6982 | 1194 |
DrawWater(WaterOpacity, 0); |
2269
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
1195 |
|
3611 | 1196 |
// Waves |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1197 |
ChangeDepth(RM, cStereo_Water_near); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1198 |
DrawWaves( 1, 25 - WorldDx div 9, - cWaveHeight, 12); |
3265
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
1199 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1200 |
if (cReducedQuality and rq2DWater) = 0 then |
3265
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
1201 |
begin |
6982 | 1202 |
//DrawWater(WaterOpacity, - offsetY div 40); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1203 |
ChangeDepth(RM, cStereo_Water_near); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1204 |
DrawWaves(-1, 50 + WorldDx div 6, - cWaveHeight - offsetY div 40, 8); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1205 |
if SuddenDeathDmg then |
6982 | 1206 |
DrawWater(SDWaterOpacity, - offsetY div 20) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1207 |
else |
6982 | 1208 |
DrawWater(WaterOpacity, - offsetY div 20); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1209 |
ChangeDepth(RM, cStereo_Water_near); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1210 |
DrawWaves( 1, 75 - WorldDx div 4, - cWaveHeight - offsetY div 20, 2); |
4792
68f9b331014a
sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents:
4748
diff
changeset
|
1211 |
if SuddenDeathDmg then |
6982 | 1212 |
DrawWater(SDWaterOpacity, - offsetY div 10) |
4792
68f9b331014a
sudden death changes: only change visual bit on health decrease and support for water transparancy change and clouds number change
Henek
parents:
4748
diff
changeset
|
1213 |
else |
6982 | 1214 |
DrawWater(WaterOpacity, - offsetY div 10); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1215 |
ChangeDepth(RM, cStereo_Water_near); |
3594
aeca3d8f1b29
turn cReducedQuality into a LongInt and provide a series of quality flags (and best of all, this is still compatible with current frontend)
koda
parents:
3582
diff
changeset
|
1216 |
DrawWaves( -1, 25 + WorldDx div 3, - cWaveHeight - offsetY div 10, 0); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1217 |
end |
3611 | 1218 |
else |
1219 |
DrawWaves(-1, 50, - (cWaveHeight shr 1), 0); |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
1220 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1221 |
// everything after this ChangeDepth will be drawn outside the screen |
4818
202eef454354
rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents:
4816
diff
changeset
|
1222 |
// note: negative parallax gears should last very little for a smooth stereo effect |
202eef454354
rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents:
4816
diff
changeset
|
1223 |
ChangeDepth(RM, cStereo_Outside); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1224 |
DrawVisualGears(2); |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1225 |
|
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1226 |
// everything after this ResetDepth will be drawn at screen level (depth = 0) |
4818
202eef454354
rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents:
4816
diff
changeset
|
1227 |
// note: everything that needs to be readable should be on this level |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1228 |
ResetDepth(RM); |
4818
202eef454354
rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents:
4816
diff
changeset
|
1229 |
DrawVisualGears(3); |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
1230 |
|
2288 | 1231 |
{$WARNINGS OFF} |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
1232 |
// Target |
3104 | 1233 |
if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then |
1234 |
begin |
|
1235 |
with PHedgehog(CurrentHedgehog)^ do |
|
1236 |
begin |
|
5372
7283bc768228
Change bee pos sprite, make aiming napalm a little easier, adjust napalm flames to be more centred on the target
nemo
parents:
5302
diff
changeset
|
1237 |
if CurAmmoType = amBee then |
6999 | 1238 |
DrawSpriteRotatedF(sprTargetBee, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
3110 | 1239 |
else |
6999 | 1240 |
DrawSpriteRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
5372
7283bc768228
Change bee pos sprite, make aiming napalm a little easier, adjust napalm flames to be more centred on the target
nemo
parents:
5302
diff
changeset
|
1241 |
end |
3104 | 1242 |
end; |
4 | 1243 |
{$WARNINGS ON} |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
1244 |
|
3523 | 1245 |
// this scale is used to keep the various widgets at the same dimension at all zoom levels |
1246 |
SetScale(cDefaultZoomLevel); |
|
2724 | 1247 |
|
1248 |
// Turn time |
|
6685
ef706fccfb0a
moved other widgets under the USE_TOUCH_INTERFACE, added pause button (at least, graphically...)
koda
parents:
6683
diff
changeset
|
1249 |
{$IFDEF USE_TOUCH_INTERFACE} |
3025 | 1250 |
offsetX:= cScreenHeight - 13; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
1251 |
{$ELSE} |
3025 | 1252 |
offsetX:= 48; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
1253 |
{$ENDIF} |
3463 | 1254 |
offsetY:= cOffsetY; |
3890
e4b7b30232fd
Extend time limit to 9999, remove ready timer if time is over 999 and stop drawing time if it is over 999 (draws wrong over 999 anyway) - this has the effect of allowing an "unlimited" time appearance if turns are over a quarter hour or so. This can be used to add an unlimited time scheme or button to ipad
nemo
parents:
3836
diff
changeset
|
1255 |
if ((TurnTimeLeft <> 0) and (TurnTimeLeft < 1000000)) or (ReadyTimeLeft <> 0) then |
3774 | 1256 |
begin |
1257 |
if ReadyTimeLeft <> 0 then |
|
1258 |
i:= Succ(Pred(ReadyTimeLeft) div 1000) |
|
1259 |
else |
|
1260 |
i:= Succ(Pred(TurnTimeLeft) div 1000); |
|
1261 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1262 |
if i>99 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1263 |
t:= 112 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1264 |
else if i>9 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1265 |
t:= 96 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1266 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1267 |
t:= 80; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1268 |
DrawSprite(sprFrame, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, 1); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1269 |
while i > 0 do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1270 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1271 |
dec(t, 32); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1272 |
DrawSprite(sprBigDigit, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, i mod 10); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1273 |
i:= i div 10 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1274 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1275 |
DrawSprite(sprFrame, -(cScreenWidth shr 1) + t - 4 + offsetY, cScreenHeight - offsetX, 0); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1276 |
end; |
79 | 1277 |
|
4 | 1278 |
// Captions |
4393 | 1279 |
DrawCaptions; |
4 | 1280 |
|
6676
21cf35a570a7
add keywords for landscape ammomenu and touch interface
koda
parents:
6652
diff
changeset
|
1281 |
{$IFDEF USE_TOUCH_INTERFACE} |
5828
667fb58d7f18
Changed firebutton, parameters in uTouch might need to be tweaked some more
Xeli
parents:
5824
diff
changeset
|
1282 |
// Draw buttons Related to the Touch interface |
6688 | 1283 |
DrawScreenWidget(@arrowLeft); |
1284 |
DrawScreenWidget(@arrowRight); |
|
1285 |
DrawScreenWidget(@arrowUp); |
|
1286 |
DrawScreenWidget(@arrowDown); |
|
1287 |
||
1288 |
DrawScreenWidget(@fireButton); |
|
6714
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
1289 |
DrawScreenWidget(@jumpWidget); |
f2f93017132c
moved the firebutton, added the AMWidget button and removed the forwardjump widget(it's longpress on backjump now)
Xeli
parents:
6710
diff
changeset
|
1290 |
DrawScreenWidget(@AMWidget); |
6688 | 1291 |
DrawScreenWidget(@pauseButton); |
6806
cdfb6c7099e5
first part of the utilitywidget (grenade timer/swap hogs) code
Xeli
parents:
6802
diff
changeset
|
1292 |
DrawScreenWidget(@utilityWidget); |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
1293 |
{$ENDIF} |
6601
5965e2927b3d
fixed the ammo menu on android, on tablets all weapons are 'choosable' and on phones I've moved the ammomenu up a bit
Xeli
parents:
6580
diff
changeset
|
1294 |
|
47 | 1295 |
// Teams Healths |
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
1296 |
if TeamsCount * 20 > Longword(cScreenHeight) div 7 then // take up less screen on small displays |
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1297 |
begin |
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1298 |
SetScale(1.5); |
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1299 |
smallScreenOffset:= cScreenHeight div 6; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1300 |
if TeamsCount * 20 > Longword(cScreenHeight) div 5 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1301 |
Tint($FF,$FF,$FF,$80); |
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1302 |
end |
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1303 |
else smallScreenOffset:= 0; |
547 | 1304 |
for t:= 0 to Pred(TeamsCount) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1305 |
with TeamsArray[t]^ do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1306 |
begin |
6627 | 1307 |
h:= 0; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1308 |
highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500); |
3697 | 1309 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1310 |
if highlight then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1311 |
Tint(Clan^.Color shl 8 or $FF); |
690 | 1312 |
|
2839 | 1313 |
// draw name |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1314 |
DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY + smallScreenOffset, NameTagTex); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1315 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1316 |
// draw flag |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1317 |
DrawTexture(-14, cScreenHeight + DrawHealthY + smallScreenOffset, FlagTex); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1318 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1319 |
// draw health bar |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1320 |
r.x:= 0; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1321 |
r.y:= 0; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1322 |
r.w:= 2 + TeamHealthBarWidth; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1323 |
r.h:= HealthTex^.h; |
6999 | 1324 |
DrawTextureFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1325 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1326 |
// draw health bars right border |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1327 |
inc(r.x, cTeamHealthWidth + 2); |
6706
c4272519b128
Experiment. This has bugged me for a long time. Should be possible to tell a team with 1 health from a team with 0
nemo
parents:
6700
diff
changeset
|
1328 |
if TeamHealth = 0 then inc(r.x); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1329 |
r.w:= 3; |
6999 | 1330 |
DrawTextureFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1331 |
|
7426
55b49cc1f33a
Changes for the benefit of pas2c. Use downto in for loops to avoid repeated calls of Random/GetRandom. Wrap nots.
nemo
parents:
7404
diff
changeset
|
1332 |
if not highlight and (not hasGone) and (TeamHealth > 1) then |
6627 | 1333 |
for i:= 0 to cMaxHHIndex do |
1334 |
if Hedgehogs[i].Gear <> nil then |
|
1335 |
begin |
|
6644 | 1336 |
inc(h,Hedgehogs[i].Gear^.Health); |
6647 | 1337 |
if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture); |
6627 | 1338 |
end; |
1339 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1340 |
// draw ai kill counter for gfAISurvival |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1341 |
if (GameFlags and gfAISurvival) <> 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1342 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1343 |
DrawTexture(TeamHealthBarWidth + 22, cScreenHeight + DrawHealthY + smallScreenOffset, AIKillsTex); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1344 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1345 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1346 |
// if highlighted, draw flag and other contents again to keep their colors |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1347 |
// this approach should be faster than drawing all borders one by one tinted or not |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1348 |
if highlight then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1349 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1350 |
if TeamsCount * 20 > Longword(cScreenHeight) div 5 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1351 |
Tint($FF,$FF,$FF,$80) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1352 |
else Tint($FF, $FF, $FF, $FF); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1353 |
|
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1354 |
// draw name |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1355 |
r.x:= 2; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1356 |
r.y:= 2; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1357 |
r.w:= NameTagTex^.w - 4; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1358 |
r.h:= NameTagTex^.h - 4; |
6999 | 1359 |
DrawTextureFromRect(-NameTagTex^.w - 14, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, NameTagTex); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1360 |
// draw flag |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1361 |
r.w:= 22; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1362 |
r.h:= 15; |
6999 | 1363 |
DrawTextureFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1364 |
// draw health bar |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1365 |
r.w:= TeamHealthBarWidth + 1; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1366 |
r.h:= HealthTex^.h - 4; |
6999 | 1367 |
DrawTextureFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex); |
7368 | 1368 |
if not hasGone and (TeamHealth > 1) then |
1369 |
begin |
|
1370 |
Tint(Clan^.Color shl 8 or $FF); |
|
1371 |
for i:= 0 to cMaxHHIndex do |
|
1372 |
if Hedgehogs[i].Gear <> nil then |
|
1373 |
begin |
|
1374 |
inc(h,Hedgehogs[i].Gear^.Health); |
|
1375 |
if h < TeamHealth then DrawTexture(15 + h*TeamHealthBarWidth div TeamHealth, cScreenHeight + DrawHealthY + smallScreenOffset + 1, SpritesData[sprSlider].Texture); |
|
1376 |
end; |
|
1377 |
if TeamsCount * 20 > Longword(cScreenHeight) div 5 then |
|
1378 |
Tint($FF,$FF,$FF,$80) |
|
1379 |
else Tint($FF, $FF, $FF, $FF); |
|
1380 |
end; |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1381 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1382 |
end; |
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1383 |
if smallScreenOffset <> 0 then |
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1384 |
begin |
5485 | 1385 |
SetScale(cDefaultZoomLevel); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1386 |
if TeamsCount * 20 > Longword(cScreenHeight) div 5 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1387 |
Tint($FF,$FF,$FF,$FF); |
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
1388 |
end; |
47 | 1389 |
|
5 | 1390 |
// Lag alert |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1391 |
if isInLag then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1392 |
DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12); |
4 | 1393 |
|
5 | 1394 |
// Wind bar |
6685
ef706fccfb0a
moved other widgets under the USE_TOUCH_INTERFACE, added pause button (at least, graphically...)
koda
parents:
6683
diff
changeset
|
1395 |
{$IFDEF USE_TOUCH_INTERFACE} |
3405 | 1396 |
offsetX:= cScreenHeight - 13; |
1397 |
offsetY:= (cScreenWidth shr 1) + 74; |
|
2567 | 1398 |
{$ELSE} |
3405 | 1399 |
offsetX:= 30; |
1400 |
offsetY:= 180; |
|
2567 | 1401 |
{$ENDIF} |
3405 | 1402 |
DrawSprite(sprWindBar, (cScreenWidth shr 1) - offsetY, cScreenHeight - offsetX, 0); |
1403 |
if WindBarWidth > 0 then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1404 |
begin |
3405 | 1405 |
{$WARNINGS OFF} |
1406 |
r.x:= 8 - (RealTicks shr 6) mod 8; |
|
1407 |
{$WARNINGS ON} |
|
1408 |
r.y:= 0; |
|
1409 |
r.w:= WindBarWidth; |
|
1410 |
r.h:= 13; |
|
1411 |
DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - offsetY + 77, cScreenHeight - offsetX + 2, 13, 0); |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1412 |
end |
3405 | 1413 |
else |
1414 |
if WindBarWidth < 0 then |
|
1415 |
begin |
|
1416 |
{$WARNINGS OFF} |
|
3407 | 1417 |
r.x:= (Longword(WindBarWidth) + RealTicks shr 6) mod 8; |
3405 | 1418 |
{$WARNINGS ON} |
1419 |
r.y:= 0; |
|
1420 |
r.w:= - WindBarWidth; |
|
1421 |
r.h:= 13; |
|
1422 |
DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0); |
|
1423 |
end; |
|
5 | 1424 |
|
161 | 1425 |
// AmmoMenu |
6795
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1426 |
if bShowAmmoMenu and ((AMState = AMHidden) or (AMState = AMHiding)) then |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1427 |
begin |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1428 |
if (AMState = AMHidden) then |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1429 |
AMAnimStartTime:= RealTicks |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1430 |
else |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1431 |
AMAnimStartTime:= RealTicks - (AMAnimDuration - (RealTicks - AMAnimStartTime)); |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1432 |
AMState:= AMShowingUp; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1433 |
end; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1434 |
if not(bShowAmmoMenu) and ((AMstate = AMShowing) or (AMState = AMShowingUp)) then |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1435 |
begin |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1436 |
if (AMState = AMShowing) then |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1437 |
AMAnimStartTime:= RealTicks |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1438 |
else |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1439 |
AMAnimStartTime:= RealTicks - (AMAnimDuration - (RealTicks - AMAnimStartTime)); |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1440 |
AMState:= AMHiding; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1441 |
end; |
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1442 |
|
e4831e13e04a
make ammomenu's speed dependent on RealTicks rather than frames
Xeli
parents:
6794
diff
changeset
|
1443 |
if bShowAmmoMenu or (AMState = AMHiding) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1444 |
ShowAmmoMenu; |
161 | 1445 |
|
2287 | 1446 |
// Cursor |
1447 |
if isCursorVisible and bShowAmmoMenu then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1448 |
DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8); |
942 | 1449 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1450 |
// Chat |
2287 | 1451 |
DrawChat; |
4 | 1452 |
|
4976 | 1453 |
// various captions |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1454 |
if fastUntilLag then |
6999 | 1455 |
DrawTextureCentered(0, (cScreenHeight shr 1), SyncTexture); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1456 |
if isPaused then |
6999 | 1457 |
DrawTextureCentered(0, (cScreenHeight shr 1), PauseTexture); |
3774 | 1458 |
if not isFirstFrame and (missionTimer <> 0) or isPaused or fastUntilLag or (GameState = gsConfirm) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1459 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1460 |
if (ReadyTimeLeft = 0) and (missionTimer > 0) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1461 |
dec(missionTimer, Lag); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1462 |
if missionTimer < 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1463 |
missionTimer:= 0; // avoid subtracting below 0 |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1464 |
if missionTex <> nil then |
6999 | 1465 |
DrawTextureCentered(0, Min((cScreenHeight shr 1) + 100, cScreenHeight - 48 - missionTex^.h), missionTex); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1466 |
end; |
2786 | 1467 |
|
2724 | 1468 |
// fps |
6685
ef706fccfb0a
moved other widgets under the USE_TOUCH_INTERFACE, added pause button (at least, graphically...)
koda
parents:
6683
diff
changeset
|
1469 |
{$IFDEF USE_TOUCH_INTERFACE} |
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
1470 |
offsetX:= pauseButton.frame.y + pauseButton.frame.h + 12; |
2724 | 1471 |
{$ELSE} |
3463 | 1472 |
offsetX:= 10; |
2724 | 1473 |
{$ENDIF} |
3463 | 1474 |
offsetY:= cOffsetY; |
3696 | 1475 |
if (RM = rmDefault) or (RM = rmRightEye) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1476 |
begin |
3692 | 1477 |
inc(Frames); |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
1478 |
|
3692 | 1479 |
if cShowFPS or (GameType = gmtDemo) then |
1480 |
inc(CountTicks, Lag); |
|
1481 |
if (GameType = gmtDemo) and (CountTicks >= 1000) then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1482 |
begin |
7016 | 1483 |
i:= GameTicks div 1000; |
3692 | 1484 |
t:= i mod 60; |
1485 |
s:= inttostr(t); |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1486 |
if t < 10 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1487 |
s:= '0' + s; |
3692 | 1488 |
i:= i div 60; |
1489 |
t:= i mod 60; |
|
1490 |
s:= inttostr(t) + ':' + s; |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1491 |
if t < 10 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1492 |
s:= '0' + s; |
3692 | 1493 |
s:= inttostr(i div 60) + ':' + s; |
3407 | 1494 |
|
3513
f589230fa21b
now it's possible to select the scheme file in the ifrontendfix a type about loading an image (iphone file system IS case senstive)
koda
parents:
3483
diff
changeset
|
1495 |
|
3692 | 1496 |
tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels); |
1497 |
tmpSurface:= doSurfaceConversion(tmpSurface); |
|
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6302
diff
changeset
|
1498 |
FreeTexture(timeTexture); |
3692 | 1499 |
timeTexture:= Surface2Tex(tmpSurface, false); |
1500 |
SDL_FreeSurface(tmpSurface) |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1501 |
end; |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
1502 |
|
3692 | 1503 |
if timeTexture <> nil then |
1504 |
DrawTexture((cScreenWidth shr 1) - 20 - timeTexture^.w - offsetY, offsetX + timeTexture^.h+5, timeTexture); |
|
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
1505 |
|
3692 | 1506 |
if cShowFPS then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1507 |
begin |
3692 | 1508 |
if CountTicks >= 1000 then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1509 |
begin |
3692 | 1510 |
FPS:= Frames; |
1511 |
Frames:= 0; |
|
1512 |
CountTicks:= 0; |
|
1513 |
s:= inttostr(FPS) + ' fps'; |
|
1514 |
tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels); |
|
1515 |
tmpSurface:= doSurfaceConversion(tmpSurface); |
|
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6302
diff
changeset
|
1516 |
FreeTexture(fpsTexture); |
3692 | 1517 |
fpsTexture:= Surface2Tex(tmpSurface, false); |
1518 |
SDL_FreeSurface(tmpSurface) |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1519 |
end; |
3692 | 1520 |
if fpsTexture <> nil then |
1521 |
DrawTexture((cScreenWidth shr 1) - 60 - offsetY, offsetX, fpsTexture); |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1522 |
end; |
174 | 1523 |
|
3692 | 1524 |
// lag warning (?) |
1525 |
inc(SoundTimerTicks, Lag); |
|
1526 |
end; |
|
1527 |
||
174 | 1528 |
if SoundTimerTicks >= 50 then |
7403 | 1529 |
begin |
1530 |
SoundTimerTicks:= 0; |
|
1531 |
if cVolumeDelta <> 0 then |
|
1532 |
begin |
|
1533 |
str(ChangeVolume(cVolumeDelta), s); |
|
1534 |
AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume); |
|
1535 |
end; |
|
7404 | 1536 |
if isAudioMuted then |
1537 |
AddCaption(trmsg[sidMute], cWhiteColor, capgrpVolume) |
|
7403 | 1538 |
end; |
756 | 1539 |
|
2724 | 1540 |
if GameState = gsConfirm then |
6999 | 1541 |
DrawTextureCentered(0, (cScreenHeight shr 1), ConfirmTexture); |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
1542 |
|
3107 | 1543 |
if ScreenFade <> sfNone then |
1544 |
begin |
|
1545 |
if not isFirstFrame then |
|
1546 |
case ScreenFade of |
|
1547 |
sfToBlack, sfToWhite: if ScreenFadeValue + Lag * ScreenFadeSpeed < sfMax then |
|
1548 |
inc(ScreenFadeValue, Lag * ScreenFadeSpeed) |
|
1549 |
else |
|
3123 | 1550 |
ScreenFadeValue:= sfMax; |
3107 | 1551 |
sfFromBlack, sfFromWhite: if ScreenFadeValue - Lag * ScreenFadeSpeed > 0 then |
1552 |
dec(ScreenFadeValue, Lag * ScreenFadeSpeed) |
|
1553 |
else |
|
3123 | 1554 |
ScreenFadeValue:= 0; |
3107 | 1555 |
end; |
1556 |
if ScreenFade <> sfNone then |
|
1557 |
begin |
|
1558 |
case ScreenFade of |
|
3376 | 1559 |
sfToBlack, sfFromBlack: Tint(0, 0, 0, ScreenFadeValue * 255 div 1000); |
1560 |
sfToWhite, sfFromWhite: Tint($FF, $FF, $FF, ScreenFadeValue * 255 div 1000); |
|
3107 | 1561 |
end; |
3697 | 1562 |
|
3113 | 1563 |
VertexBuffer[0].X:= -cScreenWidth; |
1564 |
VertexBuffer[0].Y:= cScreenHeight; |
|
1565 |
VertexBuffer[1].X:= -cScreenWidth; |
|
1566 |
VertexBuffer[1].Y:= 0; |
|
1567 |
VertexBuffer[2].X:= cScreenWidth; |
|
1568 |
VertexBuffer[2].Y:= 0; |
|
1569 |
VertexBuffer[3].X:= cScreenWidth; |
|
1570 |
VertexBuffer[3].Y:= cScreenHeight; |
|
3697 | 1571 |
|
3376 | 1572 |
glDisable(GL_TEXTURE_2D); |
3641 | 1573 |
|
3113 | 1574 |
glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]); |
1575 |
glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer)); |
|
3641 | 1576 |
|
3376 | 1577 |
glEnable(GL_TEXTURE_2D); |
3390 | 1578 |
Tint($FF, $FF, $FF, $FF); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1579 |
if not isFirstFrame and ((ScreenFadeValue = 0) or (ScreenFadeValue = sfMax)) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1580 |
ScreenFade:= sfNone |
3107 | 1581 |
end |
1582 |
end; |
|
1583 |
||
3123 | 1584 |
SetScale(zoom); |
1585 |
||
1586 |
// Cursor |
|
1587 |
if isCursorVisible then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1588 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1589 |
if not bShowAmmoMenu then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1590 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1591 |
with CurrentHedgehog^ do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1592 |
if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1593 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1594 |
if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1595 |
DrawLine(-3000, topY-300, 7000, topY-300, 3.0, (Team^.Clan^.Color shr 16), (Team^.Clan^.Color shr 8) and $FF, Team^.Clan^.Color and $FF, $FF); |
6924 | 1596 |
i:= GetCurAmmoEntry(CurrentHedgehog^)^.Pos; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1597 |
with Ammoz[CurAmmoType] do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1598 |
if PosCount > 1 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1599 |
DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1600 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1601 |
DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1602 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1603 |
end; |
3107 | 1604 |
isFirstFrame:= false |
4 | 1605 |
end; |
1606 |
||
7343 | 1607 |
var PrevSentPointTime: LongWord = 0; |
1608 |
||
79 | 1609 |
procedure MoveCamera; |
5851
e6151aca2d7c
Focus camera on moving current hog (probably more important to player). Should make tumbler, sine gun play, attacking off rope and saucer more playable. Also fix a typo in prior offset, and compensate for zoom.
nemo
parents:
5848
diff
changeset
|
1610 |
var EdgesDist, wdy, shs,z: LongInt; |
4 | 1611 |
begin |
5502 | 1612 |
{$IFNDEF MOBILE} |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6415
diff
changeset
|
1613 |
if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then |
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
1614 |
uCursor.updatePosition(); |
3551 | 1615 |
{$ENDIF} |
5852 | 1616 |
z:= round(200/zoom); |
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6415
diff
changeset
|
1617 |
if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then |
7187
aff30d80bd7b
- Allow camera movement while current hedgehog is falling
unc0rr
parents:
7167
diff
changeset
|
1618 |
if (not autoCameraOn) then |
aff30d80bd7b
- Allow camera movement while current hedgehog is falling
unc0rr
parents:
7167
diff
changeset
|
1619 |
FollowGear:= nil |
7343 | 1620 |
else |
7187
aff30d80bd7b
- Allow camera movement while current hedgehog is falling
unc0rr
parents:
7167
diff
changeset
|
1621 |
if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then |
6296 | 1622 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1623 |
FollowGear:= nil; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1624 |
prevPoint:= CursorPoint; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1625 |
exit |
6296 | 1626 |
end |
3680 | 1627 |
else |
6296 | 1628 |
begin |
5852 | 1629 |
CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * z + WorldDx) div 8; |
6098 | 1630 |
if isPhone() or (cScreenHeight < 600) or ((hwSign(FollowGear^.dY) * z) < 10) then |
6016
85410eef7ba4
disable the followgear vertical offset for small screen devices
koda
parents:
6011
diff
changeset
|
1631 |
CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8 |
85410eef7ba4
disable the followgear vertical offset for small screen devices
koda
parents:
6011
diff
changeset
|
1632 |
else |
85410eef7ba4
disable the followgear vertical offset for small screen devices
koda
parents:
6011
diff
changeset
|
1633 |
CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * z + WorldDy)) div 8; |
6296 | 1634 |
end; |
4 | 1635 |
|
2375 | 1636 |
wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1637 |
if WorldDy < wdy then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1638 |
WorldDy:= wdy; |
2375 | 1639 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1640 |
if ((CursorPoint.X = prevPoint.X) and (CursorPoint.Y = prevpoint.Y)) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1641 |
exit; |
4 | 1642 |
|
6802 | 1643 |
if (AMState = AMShowingUp) or (AMState = AMShowing) then |
3680 | 1644 |
begin |
6622 | 1645 |
if CursorPoint.X < AmmoRect.x then//check left |
1646 |
CursorPoint.X:= AmmoRect.x; |
|
1647 |
if CursorPoint.X > AmmoRect.x + AmmoRect.w then//check right |
|
1648 |
CursorPoint.X:= AmmoRect.x + AmmoRect.w; |
|
1649 |
if CursorPoint.Y > cScreenHeight - AmmoRect.y then//check top |
|
1650 |
CursorPoint.Y:= cScreenHeight - AmmoRect.y; |
|
1651 |
if CursorPoint.Y < cScreenHeight - (AmmoRect.y + AmmoRect.h - AMSlotSize - 2) then//check bottom |
|
1652 |
CursorPoint.Y:= cScreenHeight - (AmmoRect.y + AmmoRect.h - AMSlotSize - 2); |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1653 |
prevPoint:= CursorPoint; |
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
1654 |
//if cHasFocus then SDL_WarpMouse(CursorPoint.X + cScreenWidth div 2, cScreenHeight - CursorPoint.Y); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1655 |
exit |
3680 | 1656 |
end; |
162 | 1657 |
|
4 | 1658 |
if isCursorVisible then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1659 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1660 |
if (not CurrentTeam^.ExtDriven) and (GameTicks >= PrevSentPointTime + cSendCursorPosTime) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1661 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1662 |
SendIPCXY('P', CursorPoint.X - WorldDx, cScreenHeight - CursorPoint.Y - WorldDy); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1663 |
PrevSentPointTime:= GameTicks |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1664 |
end; |
3680 | 1665 |
EdgesDist:= cCursorEdgesDist |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1666 |
end |
3680 | 1667 |
else |
1668 |
EdgesDist:= cGearScrEdgesDist; |
|
1669 |
||
1670 |
// this generates the border around the screen that moves the camera when cursor is near it |
|
7187
aff30d80bd7b
- Allow camera movement while current hedgehog is falling
unc0rr
parents:
7167
diff
changeset
|
1671 |
if isCursorVisible or ((FollowGear <> nil) and autoCameraOn) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1672 |
begin |
3680 | 1673 |
if CursorPoint.X < - cScreenWidth div 2 + EdgesDist then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1674 |
begin |
3680 | 1675 |
WorldDx:= WorldDx - CursorPoint.X - cScreenWidth div 2 + EdgesDist; |
1676 |
CursorPoint.X:= - cScreenWidth div 2 + EdgesDist |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1677 |
end |
3680 | 1678 |
else |
1679 |
if CursorPoint.X > cScreenWidth div 2 - EdgesDist then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1680 |
begin |
3680 | 1681 |
WorldDx:= WorldDx - CursorPoint.X + cScreenWidth div 2 - EdgesDist; |
1682 |
CursorPoint.X:= cScreenWidth div 2 - EdgesDist |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1683 |
end; |
5149
9aa840fdf922
Try to allow cursor to reach water when zooming out
unc0rr
parents:
5022
diff
changeset
|
1684 |
|
5302 | 1685 |
shs:= min(cScreenHeight div 2 - trunc(cScreenHeight / cScaleFactor) + EdgesDist, cScreenHeight - EdgesDist); |
5149
9aa840fdf922
Try to allow cursor to reach water when zooming out
unc0rr
parents:
5022
diff
changeset
|
1686 |
if CursorPoint.Y < shs then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1687 |
begin |
5149
9aa840fdf922
Try to allow cursor to reach water when zooming out
unc0rr
parents:
5022
diff
changeset
|
1688 |
WorldDy:= WorldDy + CursorPoint.Y - shs; |
9aa840fdf922
Try to allow cursor to reach water when zooming out
unc0rr
parents:
5022
diff
changeset
|
1689 |
CursorPoint.Y:= shs; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1690 |
end |
3680 | 1691 |
else |
5302 | 1692 |
if (CursorPoint.Y > cScreenHeight - EdgesDist) then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1693 |
begin |
3680 | 1694 |
WorldDy:= WorldDy + CursorPoint.Y - cScreenHeight + EdgesDist; |
1695 |
CursorPoint.Y:= cScreenHeight - EdgesDist |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1696 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1697 |
end |
3680 | 1698 |
else |
1699 |
if cHasFocus then |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1700 |
begin |
3680 | 1701 |
WorldDx:= WorldDx - CursorPoint.X + prevPoint.X; |
1702 |
WorldDy:= WorldDy + CursorPoint.Y - prevPoint.Y; |
|
1703 |
CursorPoint.X:= 0; |
|
1704 |
CursorPoint.Y:= cScreenHeight div 2; |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1705 |
end; |
351 | 1706 |
|
3680 | 1707 |
// this moves the camera according to CursorPoint X and Y |
4 | 1708 |
prevPoint:= CursorPoint; |
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
1709 |
//if cHasFocus then SDL_WarpMouse(CursorPoint.X + (cScreenWidth shr 1), cScreenHeight - CursorPoint.Y); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1710 |
if WorldDy > LAND_HEIGHT + 1024 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1711 |
WorldDy:= LAND_HEIGHT + 1024; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1712 |
if WorldDy < wdy then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1713 |
WorldDy:= wdy; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1714 |
if WorldDx < - LAND_WIDTH - 1024 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1715 |
WorldDx:= - LAND_WIDTH - 1024; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1716 |
if WorldDx > 1024 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1717 |
WorldDx:= 1024; |
4 | 1718 |
end; |
1719 |
||
2905 | 1720 |
procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
2786 | 1721 |
var r: TSDL_Rect; |
1722 |
begin |
|
1723 |
r.w:= 32; |
|
1724 |
r.h:= 32; |
|
1725 |
||
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1726 |
if time = 0 then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1727 |
time:= 5000; |
2786 | 1728 |
missionTimer:= time; |
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6302
diff
changeset
|
1729 |
FreeTexture(missionTex); |
2786 | 1730 |
|
1731 |
if icon > -1 then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1732 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1733 |
r.x:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1734 |
r.y:= icon * 32; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1735 |
missionTex:= RenderHelpWindow(caption, subcaption, text, '', 0, MissionIcons, @r) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1736 |
end |
2786 | 1737 |
else |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1738 |
begin |
4626
775f43e90383
fixed showmission so it actually displays the right icons
Henek
parents:
4482
diff
changeset
|
1739 |
r.x:= ((-icon - 1) shr 4) * 32; |
775f43e90383
fixed showmission so it actually displays the right icons
Henek
parents:
4482
diff
changeset
|
1740 |
r.y:= ((-icon - 1) mod 16) * 32; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1741 |
missionTex:= RenderHelpWindow(caption, subcaption, text, '', 0, SpritesData[sprAMAmmos].Surface, @r) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1742 |
end; |
2786 | 1743 |
end; |
1744 |
||
1745 |
procedure HideMission; |
|
1746 |
begin |
|
3045 | 1747 |
missionTimer:= 0; |
2786 | 1748 |
end; |
1749 |
||
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
1750 |
procedure ShakeCamera(amount: LongInt); |
3032 | 1751 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1752 |
if isCursorVisible then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1753 |
exit; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1754 |
amount:= Max(1, round(amount*zoom/2)); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1755 |
WorldDx:= WorldDx - amount + LongInt(random(1 + amount * 2)); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1756 |
WorldDy:= WorldDy - amount + LongInt(random(1 + amount * 2)); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1757 |
//CursorPoint.X:= CursorPoint.X - amount + LongInt(random(1 + amount * 2)); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6492
diff
changeset
|
1758 |
//CursorPoint.Y:= CursorPoint.Y - amount + LongInt(random(1 + amount * 2)) |
3032 | 1759 |
end; |
1760 |
||
5521 | 1761 |
|
1762 |
procedure onFocusStateChanged; |
|
1763 |
begin |
|
1764 |
if (not cHasFocus) and (GameState <> gsConfirm) then |
|
5523 | 1765 |
ParseCommand('quit', true); |
6862 | 1766 |
|
1767 |
if not cHasFocus then DampenAudio() |
|
1768 |
else UndampenAudio(); |
|
5521 | 1769 |
end; |
1770 |
||
6961
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1771 |
procedure SetUtilityWidgetState(ammoType: TAmmoType); |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1772 |
begin |
7086 | 1773 |
{$IFDEF USE_TOUCH_INTERFACE} |
6961
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1774 |
if(ammoType = amNothing)then |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1775 |
ammoType:= CurrentHedgehog^.CurAmmoType; |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1776 |
|
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1777 |
if(CurrentHedgehog <> nil)then |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1778 |
if (Ammoz[ammoType].Ammo.Propz and ammoprop_Timerable) <> 0 then |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1779 |
begin |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1780 |
utilityWidget.sprite:= sprTimerButton; |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1781 |
animateWidget(@utilityWidget, true, true); |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1782 |
end |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1783 |
else if (Ammoz[ammoType].Ammo.Propz and ammoprop_NeedTarget) <> 0 then |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1784 |
begin |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1785 |
utilityWidget.sprite:= sprTargetButton; |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1786 |
animateWidget(@utilityWidget, true, true); |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1787 |
end |
6962 | 1788 |
else if ammoType = amSwitch then |
1789 |
begin |
|
1790 |
utilityWidget.sprite:= sprTargetButton; |
|
1791 |
animateWidget(@utilityWidget, true, true); |
|
1792 |
end |
|
6961
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1793 |
else if utilityWidget.show then |
6992 | 1794 |
animateWidget(@utilityWidget, true, false); |
1795 |
{$ELSE} |
|
1796 |
ammoType:= ammoType; // avoid hint |
|
6963 | 1797 |
{$ENDIF} |
6961
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1798 |
end; |
d5ac09894a1b
hide utilitywidget when changing turns, this also fixes some inconsistency when using targetting weapons
Xeli
parents:
6957
diff
changeset
|
1799 |
|
6688 | 1800 |
procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
1801 |
begin |
|
1802 |
with widget^ do |
|
1803 |
begin |
|
1804 |
show:= showWidget; |
|
1805 |
if fade then fadeAnimStart:= RealTicks; |
|
1806 |
||
1807 |
with moveAnim do |
|
1808 |
begin |
|
1809 |
animate:= true; |
|
1810 |
startTime:= RealTicks; |
|
6695
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
1811 |
source.x:= source.x xor target.x; //swap source <-> target |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
1812 |
target.x:= source.x xor target.x; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
1813 |
source.x:= source.x xor target.x; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
1814 |
source.y:= source.y xor target.y; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
1815 |
target.y:= source.y xor target.y; |
32de8965c62c
refactored a few types involved in the touch interface and corrected a few invisible mistakes
koda
parents:
6692
diff
changeset
|
1816 |
source.y:= source.y xor target.y; |
6688 | 1817 |
end; |
1818 |
end; |
|
1819 |
end; |
|
1820 |
||
5521 | 1821 |
|
3038 | 1822 |
procedure initModule; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
1823 |
begin |
7027 | 1824 |
fpsTexture:= nil; |
1825 |
FollowGear:= nil; |
|
1826 |
WindBarWidth:= 0; |
|
1827 |
bShowAmmoMenu:= false; |
|
1828 |
bSelected:= false; |
|
1829 |
bShowFinger:= false; |
|
1830 |
Frames:= 0; |
|
1831 |
WorldDx:= -512; |
|
1832 |
WorldDy:= -256; |
|
7343 | 1833 |
PrevSentPointTime:= 0; |
3697 | 1834 |
|
7027 | 1835 |
FPS:= 0; |
1836 |
CountTicks:= 0; |
|
1837 |
SoundTimerTicks:= 0; |
|
1838 |
prevPoint.X:= 0; |
|
1839 |
prevPoint.Y:= 0; |
|
1840 |
missionTimer:= 0; |
|
1841 |
missionTex:= nil; |
|
1842 |
cOffsetY:= 0; |
|
1843 |
stereoDepth:= 0; |
|
1844 |
AMState:= AMHidden; |
|
1845 |
isFirstFrame:= true; |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
1846 |
end; |
4 | 1847 |
|
3038 | 1848 |
procedure freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
1849 |
begin |
7027 | 1850 |
stereoDepth:= stereoDepth; // avoid hint |
1851 |
FreeTexture(fpsTexture); |
|
1852 |
fpsTexture:= nil; |
|
1853 |
FreeTexture(timeTexture); |
|
1854 |
timeTexture:= nil; |
|
1855 |
FreeTexture(missionTex); |
|
1856 |
missionTex:= nil |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
1857 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
1858 |
|
4 | 1859 |
end. |