author | sheepluva |
Sat, 22 Oct 2011 18:24:36 +0200 | |
changeset 6185 | a6aa2d44f390 |
parent 6135 | 2172330ad52a |
child 6224 | 42b256eca362 |
child 6249 | cacab1db8af8 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
4976 | 3 |
* Copyright (c) 2004-2011 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 |
|
4357
a1fcfc341a52
Introduce unit uTypes in order to remove some cyclic unit dependencies
unC0Rr
parents:
4248
diff
changeset
|
24 |
uses SDLh, uGears, uConsts, uFloat, uRandom, uTypes; |
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; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
30 |
procedure DrawWorld(Lag: LongInt); |
3692 | 31 |
procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode); |
2905 | 32 |
procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
2786 | 33 |
procedure HideMission; |
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
34 |
procedure ShakeCamera(amount: LongInt); |
5682
06d5f561f772
some camera adjustments (should also fix cam flickering on lowerst res)
sheepluva
parents:
5675
diff
changeset
|
35 |
procedure InitCameraBorders; |
3638
33ee433749ba
touch overlay reworked, improvements to zoom and confirmation
koda
parents:
3629
diff
changeset
|
36 |
procedure MoveCamera; |
5521 | 37 |
procedure onFocusStateChanged; |
4 | 38 |
|
39 |
implementation |
|
4359 | 40 |
uses |
41 |
uStore, |
|
42 |
uMisc, |
|
43 |
uIO, |
|
44 |
uLocale, |
|
45 |
uSound, |
|
46 |
uAmmos, |
|
47 |
uVisualGears, |
|
48 |
uChat, |
|
49 |
uLandTexture, |
|
50 |
GLunit, |
|
4374 | 51 |
uVariables, |
4375 | 52 |
uUtils, |
4378 | 53 |
uTextures, |
4380 | 54 |
uRender, |
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
55 |
uCaptions, |
5521 | 56 |
uCursor, |
6016
85410eef7ba4
disable the followgear vertical offset for small screen devices
koda
parents:
6011
diff
changeset
|
57 |
uCommands, |
85410eef7ba4
disable the followgear vertical offset for small screen devices
koda
parents:
6011
diff
changeset
|
58 |
uMobile |
4359 | 59 |
; |
4 | 60 |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
61 |
var cWaveWidth, cWaveHeight: LongInt; |
3434 | 62 |
AMSlotSize, AMxOffset, AMyOffset, AMWidth, AMxShift, SlotsNum: LongInt; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
63 |
tmpSurface: PSDL_Surface; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
64 |
fpsTexture: PTexture; |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
65 |
timeTexture: PTexture; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
66 |
FPS: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
67 |
CountTicks: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
68 |
SoundTimerTicks: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
69 |
prevPoint: TPoint; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
70 |
amSel: TAmmoType = amNothing; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
71 |
missionTex: PTexture; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
72 |
missionTimer: LongInt; |
4850 | 73 |
stereoDepth: GLfloat; |
3692 | 74 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
75 |
const cStereo_Sky = 0.0500; |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
76 |
cStereo_Horizon = 0.0250; |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
77 |
cStereo_Water_distant = 0.0125; |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
78 |
cStereo_Land = 0.0075; |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
79 |
cStereo_Water_near = 0.0025; |
4818
202eef454354
rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents:
4816
diff
changeset
|
80 |
cStereo_Outside = 0.0400; |
4 | 81 |
|
82 |
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
|
83 |
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
|
84 |
cp: PClan; |
2863 | 85 |
g: ansistring; |
86 |
||
2904 | 87 |
// helper functions to create the goal/game mode string |
2908 | 88 |
function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring; |
2905 | 89 |
var t: ansistring; |
2904 | 90 |
begin |
91 |
if (GameFlags and gf) <> 0 then |
|
92 |
begin |
|
93 |
t:= inttostr(i); |
|
94 |
s:= s + format(trgoal[si], t) + '|' |
|
95 |
end; |
|
96 |
AddGoal:= s; |
|
97 |
end; |
|
98 |
||
2908 | 99 |
function AddGoal(s: ansistring; gf: longword; si: TGoalStrId): ansistring; |
2863 | 100 |
begin |
2904 | 101 |
if (GameFlags and gf) <> 0 then |
102 |
s:= s + trgoal[si] + '|'; |
|
2863 | 103 |
AddGoal:= s; |
104 |
end; |
|
4 | 105 |
begin |
3764 | 106 |
missionTimer:= 0; |
2786 | 107 |
|
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
|
108 |
if (GameFlags and gfRandomOrder) <> 0 then // shuffle them up a bit |
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
|
109 |
begin |
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
|
110 |
for i:= 0 to ClansCount * 4 do |
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
|
111 |
begin |
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 |
t:= GetRandom(ClansCount); |
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 |
if t <> 0 then |
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
|
114 |
begin |
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
|
115 |
cp:= ClansArray[0]; |
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
|
116 |
ClansArray[0]:= ClansArray[t]; |
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
|
117 |
ClansArray[t]:= cp; |
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 |
ClansArray[t]^.ClanIndex:= t; |
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
|
119 |
ClansArray[0]^.ClanIndex:= 0; |
2856
cc70797a0b75
Adjust LocalClan when shuffling, set to -1 in case all local clans are bots.
nemo
parents:
2855
diff
changeset
|
120 |
if (LocalClan = t) then LocalClan:= 0 |
cc70797a0b75
Adjust LocalClan when shuffling, set to -1 in case all local clans are bots.
nemo
parents:
2855
diff
changeset
|
121 |
else if (LocalClan = 0) then LocalClan:= t |
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
|
122 |
end; |
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
|
123 |
end; |
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
|
124 |
CurrentTeam:= ClansArray[0]^.Teams[0]; |
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
|
125 |
end; |
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
|
126 |
|
2908 | 127 |
// if special game flags/settings are changed, add them to the game mode notice window and then show it |
2863 | 128 |
g:= ''; // no text/things to note yet |
2908 | 129 |
|
4883
7cddc9201a1d
added dummy for tardis and ugly icons for tardis and structure
Henek
parents:
4850
diff
changeset
|
130 |
// add custom goals from lua script if there are any |
7cddc9201a1d
added dummy for tardis and ugly icons for tardis and structure
Henek
parents:
4850
diff
changeset
|
131 |
if LuaGoals <> '' then g:= LuaGoals + '|'; |
7cddc9201a1d
added dummy for tardis and ugly icons for tardis and structure
Henek
parents:
4850
diff
changeset
|
132 |
|
2958 | 133 |
// check different game flags (goals/game modes first for now) |
134 |
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
|
135 |
g:= AddGoal(g, gfTagTeam, gidTagTeam); // tag team mode? |
2958 | 136 |
|
137 |
// other important flags |
|
138 |
g:= AddGoal(g, gfForts, gidForts); // forts? |
|
139 |
g:= AddGoal(g, gfLowGravity, gidLowGravity); // low gravity? |
|
140 |
g:= AddGoal(g, gfInvulnerable, gidInvulnerable); // invulnerability? |
|
141 |
g:= AddGoal(g, gfVampiric, gidVampiric); // vampirism? |
|
142 |
g:= AddGoal(g, gfKarma, gidKarma); // karma? |
|
143 |
g:= AddGoal(g, gfPlaceHog, gidPlaceHog); // placement? |
|
144 |
g:= AddGoal(g, gfArtillery, gidArtillery); // artillery? |
|
145 |
g:= AddGoal(g, gfSolidLand, gidSolidLand); // solid land? |
|
146 |
g:= AddGoal(g, gfSharedAmmo, gidSharedAmmo); // shared ammo? |
|
4132 | 147 |
g:= AddGoal(g, gfResetHealth, gidResetHealth); |
148 |
g:= AddGoal(g, gfAISurvival, gidAISurvival); |
|
149 |
g:= AddGoal(g, gfInfAttack, gidInfAttack); |
|
150 |
g:= AddGoal(g, gfResetWeps, gidResetWeps); |
|
151 |
g:= AddGoal(g, gfPerHogAmmo, gidPerHogAmmo); |
|
2958 | 152 |
|
2908 | 153 |
// modified damage modificator? |
154 |
if cDamagePercent <> 100 then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
155 |
g:= AddGoal(g, gfAny, gidDamageModifier, cDamagePercent); |
2908 | 156 |
|
3107 | 157 |
// fade in |
158 |
ScreenFade:= sfFromBlack; |
|
159 |
ScreenFadeValue:= sfMax; |
|
160 |
ScreenFadeSpeed:= 1; |
|
161 |
||
2908 | 162 |
// modified mine timers? |
4482 | 163 |
if cMinesTime <> 3000 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
164 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
165 |
if cMinesTime = 0 then |
4003
ca0600ab38bf
disable gfMines and update variable names (landadds -> minesnum, cLandAdditions -> cLandMines)
koda
parents:
3976
diff
changeset
|
166 |
g:= AddGoal(g, gfAny, gidNoMineTimer) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
167 |
else if cMinesTime < 0 then |
4003
ca0600ab38bf
disable gfMines and update variable names (landadds -> minesnum, cLandAdditions -> cLandMines)
koda
parents:
3976
diff
changeset
|
168 |
g:= AddGoal(g, gfAny, gidRandomMineTimer) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
169 |
else |
4482 | 170 |
g:= AddGoal(g, gfAny, gidMineTimer, cMinesTime div 1000); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
171 |
end; |
2908 | 172 |
|
2863 | 173 |
// if the string has been set, show it for (default timeframe) seconds |
174 |
if g <> '' then ShowMission(trgoal[gidCaption], trgoal[gidSubCaption], g, 1, 0); |
|
175 |
||
1825 | 176 |
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
|
177 |
//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
|
178 |
cWaveHeight:= 32; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
179 |
|
5682
06d5f561f772
some camera adjustments (should also fix cam flickering on lowerst res)
sheepluva
parents:
5675
diff
changeset
|
180 |
InitCameraBorders(); |
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
181 |
uCursor.init(); |
2197 | 182 |
prevPoint.X:= 0; |
74 | 183 |
prevPoint.Y:= cScreenHeight div 2; |
1760 | 184 |
WorldDx:= - (LAND_WIDTH div 2) + cScreenWidth div 2; |
2139
5a083e71a71d
Properly decrement sniper rifle if timed out. Try to get camera position straight for once.
nemo
parents:
2119
diff
changeset
|
185 |
WorldDy:= - (LAND_HEIGHT - (playHeight div 2)) + (cScreenHeight div 2); |
3434 | 186 |
AMSlotSize:= 33; |
187 |
{$IFDEF IPHONEOS} |
|
188 |
AMxOffset:= 10; |
|
3464 | 189 |
AMyOffset:= 10 + 123; // moved downwards |
3434 | 190 |
AMWidth:= (cMaxSlotAmmoIndex + 1) * AMSlotSize + AMxOffset; |
191 |
{$ELSE} |
|
192 |
AMxOffset:= 10; |
|
193 |
AMyOffset:= 60; |
|
194 |
AMWidth:= (cMaxSlotAmmoIndex + 2) * AMSlotSize + AMxOffset; |
|
195 |
{$ENDIF} |
|
196 |
AMxShift:= AMWidth; |
|
3265
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
197 |
SkyOffset:= 0; |
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
198 |
HorizontOffset:= 0; |
161 | 199 |
end; |
200 |
||
5682
06d5f561f772
some camera adjustments (should also fix cam flickering on lowerst res)
sheepluva
parents:
5675
diff
changeset
|
201 |
procedure InitCameraBorders; |
06d5f561f772
some camera adjustments (should also fix cam flickering on lowerst res)
sheepluva
parents:
5675
diff
changeset
|
202 |
begin |
06d5f561f772
some camera adjustments (should also fix cam flickering on lowerst res)
sheepluva
parents:
5675
diff
changeset
|
203 |
cGearScrEdgesDist:= min(2 * cScreenHeight div 5, 2 * cScreenWidth div 5); |
06d5f561f772
some camera adjustments (should also fix cam flickering on lowerst res)
sheepluva
parents:
5675
diff
changeset
|
204 |
end; |
3405 | 205 |
|
956 | 206 |
procedure ShowAmmoMenu; |
161 | 207 |
const MENUSPEED = 15; |
3434 | 208 |
const BORDERSIZE = 2; |
209 |
var x, y, i, t, g: LongInt; |
|
210 |
Slot, Pos, STurns: LongInt; |
|
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
211 |
Ammo: PHHAmmo; |
161 | 212 |
begin |
3952
d6412423da45
moved some utilities to a separate column with round buttons
koda
parents:
3890
diff
changeset
|
213 |
if (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or ((Ammoz[CurAmmoGear^.AmmoType].Ammo.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) then |
d6412423da45
moved some utilities to a separate column with round buttons
koda
parents:
3890
diff
changeset
|
214 |
bShowAmmoMenu:= false; |
3434 | 215 |
if bShowAmmoMenu then |
216 |
begin |
|
217 |
FollowGear:= nil; |
|
218 |
if AMxShift = AMWidth then prevPoint.X:= 0; |
|
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
|
219 |
if (cReducedQuality and rqSlowMenu) <> 0 then |
3434 | 220 |
AMxShift:= 0 |
221 |
else |
|
222 |
if AMxShift > MENUSPEED then |
|
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
223 |
dec(AMxShift, MENUSPEED) |
3434 | 224 |
else |
225 |
AMxShift:= 0; |
|
226 |
end else |
|
227 |
begin |
|
228 |
if AMxShift = 0 then |
|
229 |
begin |
|
230 |
CursorPoint.X:= cScreenWidth shr 1; |
|
231 |
CursorPoint.Y:= cScreenHeight shr 1; |
|
232 |
prevPoint:= CursorPoint; |
|
233 |
end; |
|
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
|
234 |
if (cReducedQuality and rqSlowMenu) <> 0 then |
3434 | 235 |
AMxShift:= AMWidth |
236 |
else |
|
237 |
if AMxShift < (AMWidth - MENUSPEED) then |
|
238 |
inc(AMxShift, MENUSPEED) |
|
239 |
else |
|
240 |
AMxShift:= AMWidth; |
|
241 |
end; |
|
242 |
Ammo:= nil; |
|
243 |
if (CurrentTeam <> nil) and (CurrentHedgehog <> nil) and (not CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel = 0) then |
|
244 |
Ammo:= CurrentHedgehog^.Ammo |
|
245 |
else if (LocalAmmo <> -1) then |
|
246 |
Ammo:= GetAmmoByNum(LocalAmmo); |
|
247 |
Pos:= -1; |
|
248 |
if Ammo = nil then |
|
2971 | 249 |
begin |
3434 | 250 |
bShowAmmoMenu:= false; |
251 |
exit |
|
2971 | 252 |
end; |
3434 | 253 |
SlotsNum:= 0; |
254 |
x:= (cScreenWidth shr 1) - AMWidth + AMxShift; |
|
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
|
255 |
|
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
|
256 |
{$IFDEF IPHONEOS} |
3434 | 257 |
Slot:= cMaxSlotIndex; |
3463 | 258 |
x:= x - cOffsetY; |
3464 | 259 |
y:= AMyOffset; |
3434 | 260 |
dec(y, BORDERSIZE); |
261 |
DrawSprite(sprAMCorners, x - BORDERSIZE, y, 0); |
|
262 |
for i:= 0 to cMaxSlotAmmoIndex do |
|
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
263 |
DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 0); |
3434 | 264 |
DrawSprite(sprAMCorners, x + AMWidth - AMxOffset, y, 1); |
265 |
inc(y, BORDERSIZE); |
|
266 |
||
267 |
for i:= 0 to cMaxSlotIndex do |
|
268 |
if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then |
|
269 |
begin |
|
3961
cf0ca1ff6c1a
Constrain to <= to avoid a bug on bottom edge reported by Henek
nemo
parents:
3890
diff
changeset
|
270 |
if (cScreenHeight - CursorPoint.Y >= y) and (cScreenHeight - CursorPoint.Y <= y + AMSlotSize) then Slot:= i; |
3434 | 271 |
inc(SlotsNum); |
272 |
DrawSprite(sprAMBorderVertical, x - BORDERSIZE, y, 0); |
|
273 |
t:= 0; |
|
274 |
g:= 0; |
|
275 |
while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) do |
|
276 |
begin |
|
277 |
DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 1); |
|
278 |
if (Ammo^[i, t].AmmoType <> amNothing) then |
|
279 |
begin |
|
280 |
STurns:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber; |
|
281 |
||
282 |
if STurns >= 0 then |
|
283 |
begin |
|
284 |
DrawSprite(sprAMAmmosBW, x + g * AMSlotSize, y + 1, LongInt(Ammo^[i, t].AmmoType)-1); |
|
285 |
if STurns < 100 then DrawSprite(sprTurnsLeft, x + (g + 1) * AMSlotSize - 16, y + AMSlotSize - 16, STurns); |
|
286 |
end else |
|
287 |
DrawSprite(sprAMAmmos, x + g * AMSlotSize, y + 1, LongInt(Ammo^[i, t].AmmoType)-1); |
|
288 |
if (Slot = i) |
|
289 |
and (CursorPoint.X >= x + g * AMSlotSize) |
|
3967 | 290 |
and (CursorPoint.X <= x + (g + 1) * AMSlotSize) then |
3434 | 291 |
begin |
292 |
if (STurns < 0) then DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 0); |
|
293 |
Pos:= t; |
|
294 |
end; |
|
295 |
inc(g) |
|
296 |
end; |
|
297 |
inc(t) |
|
298 |
end; |
|
299 |
for g:= g to cMaxSlotAmmoIndex do |
|
300 |
DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 1); |
|
301 |
DrawSprite(sprAMBorderVertical, x + AMWidth - AMxOffset, y, 1); |
|
302 |
inc(y, AMSlotSize); |
|
303 |
end; |
|
3697 | 304 |
|
3434 | 305 |
DrawSprite(sprAMCorners, x - BORDERSIZE, y, 2); |
306 |
for i:= 0 to cMaxSlotAmmoIndex do |
|
307 |
DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 1); |
|
308 |
DrawSprite(sprAMCorners, x + AMWidth - AMxOffset, y, 3); |
|
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
|
309 |
{$ELSE} |
3434 | 310 |
Slot:= 0; |
311 |
y:= cScreenHeight - AMyOffset; |
|
312 |
DrawSprite(sprAMCorners, x - BORDERSIZE, y, 2); |
|
313 |
for i:= 0 to cMaxSlotAmmoIndex + 1 do |
|
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
314 |
DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 1); |
3434 | 315 |
DrawSprite(sprAMCorners, x + AMWidth - AMxOffset, y, 3); |
316 |
dec(y, AMSlotSize); |
|
317 |
DrawSprite(sprAMBorderVertical, x - BORDERSIZE, y, 0); |
|
318 |
for i:= 0 to cMaxSlotAmmoIndex do |
|
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
319 |
DrawSprite(sprAMSlot, x + i * AMSlotSize, y, 2); |
3434 | 320 |
DrawSprite(sprAMSlot, x + (cMaxSlotAmmoIndex + 1) * AMSlotSize, y, 1); |
321 |
DrawSprite(sprAMBorderVertical, x + AMWidth - AMxOffset, y, 1); |
|
322 |
||
323 |
for i:= cMaxSlotIndex downto 0 do |
|
324 |
if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then |
|
325 |
begin |
|
3961
cf0ca1ff6c1a
Constrain to <= to avoid a bug on bottom edge reported by Henek
nemo
parents:
3890
diff
changeset
|
326 |
if (cScreenHeight - CursorPoint.Y >= y - AMSlotSize) and (cScreenHeight - CursorPoint.Y <= y) then Slot:= i; |
3434 | 327 |
dec(y, AMSlotSize); |
328 |
inc(SlotsNum); |
|
329 |
DrawSprite(sprAMBorderVertical, x - BORDERSIZE, y, 0); |
|
330 |
DrawSprite(sprAMSlot, x, y, 1); |
|
331 |
DrawSprite(sprAMSlotKeys, x, y + 1, i); |
|
332 |
t:= 0; |
|
333 |
g:= 1; |
|
334 |
while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) do |
|
335 |
begin |
|
336 |
DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 1); |
|
337 |
if (Ammo^[i, t].AmmoType <> amNothing) then |
|
338 |
begin |
|
339 |
STurns:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber; |
|
340 |
||
341 |
if STurns >= 0 then |
|
342 |
begin |
|
343 |
DrawSprite(sprAMAmmosBW, x + g * AMSlotSize, y + 1, LongInt(Ammo^[i, t].AmmoType)-1); |
|
344 |
if STurns < 100 then DrawSprite(sprTurnsLeft, x + (g + 1) * AMSlotSize - 16, y + AMSlotSize - 16, STurns); |
|
345 |
end else |
|
346 |
DrawSprite(sprAMAmmos, x + g * AMSlotSize, y + 1, LongInt(Ammo^[i, t].AmmoType)-1); |
|
347 |
if (Slot = i) |
|
348 |
and (CursorPoint.X >= x + g * AMSlotSize) |
|
3967 | 349 |
and (CursorPoint.X <= x + (g + 1) * AMSlotSize) then |
3434 | 350 |
begin |
351 |
if (STurns < 0) then DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 0); |
|
352 |
Pos:= t; |
|
353 |
end; |
|
354 |
inc(g) |
|
355 |
end; |
|
356 |
inc(t) |
|
357 |
end; |
|
358 |
for g:= g to cMaxSlotAmmoIndex + 1 do |
|
359 |
DrawSprite(sprAMSlot, x + g * AMSlotSize, y, 1); |
|
360 |
DrawSprite(sprAMBorderVertical, x + AMWidth - AMxOffset, y, 1); |
|
361 |
end; |
|
3697 | 362 |
|
3434 | 363 |
dec(y, BORDERSIZE); |
364 |
DrawSprite(sprAMCorners, x - BORDERSIZE, y, 0); |
|
365 |
for i:= 0 to cMaxSlotAmmoIndex + 1 do |
|
5191
c7000a6b397b
- Implement a thin wrapper over real cursor, which eliminates need in SDL_WarpMouse outside game window
unc0rr
parents:
5149
diff
changeset
|
366 |
DrawSprite(sprAMBorderHorizontal, x + i * AMSlotSize, y, 0); |
3434 | 367 |
DrawSprite(sprAMCorners, x + AMWidth - AMxOffset, y, 1); |
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
|
368 |
{$ENDIF} |
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
|
369 |
|
3434 | 370 |
if (Pos >= 0) then |
371 |
begin |
|
372 |
if (Ammo^[Slot, Pos].Count > 0) and (Ammo^[Slot, Pos].AmmoType <> amNothing) then |
|
3967 | 373 |
begin |
3434 | 374 |
if (amSel <> Ammo^[Slot, Pos].AmmoType) or (WeaponTooltipTex = nil) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
375 |
begin |
3434 | 376 |
amSel:= Ammo^[Slot, Pos].AmmoType; |
377 |
RenderWeaponTooltip(amSel) |
|
378 |
end; |
|
3697 | 379 |
|
3629
86212d2b116a
redo spinning wheel, redo fix for detail selection, redo ammo quantity and name in ammomenu
koda
parents:
3611
diff
changeset
|
380 |
{$IFDEF IPHONEOS} |
86212d2b116a
redo spinning wheel, redo fix for detail selection, redo ammo quantity and name in ammomenu
koda
parents:
3611
diff
changeset
|
381 |
DrawTexture(cScreenWidth div 2 - (AMWidth - 10) + AMxShift, AMyOffset - 25, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex); |
86212d2b116a
redo spinning wheel, redo fix for detail selection, redo ammo quantity and name in ammomenu
koda
parents:
3611
diff
changeset
|
382 |
|
86212d2b116a
redo spinning wheel, redo fix for detail selection, redo ammo quantity and name in ammomenu
koda
parents:
3611
diff
changeset
|
383 |
if Ammo^[Slot, Pos].Count < AMMO_INFINITE then |
86212d2b116a
redo spinning wheel, redo fix for detail selection, redo ammo quantity and name in ammomenu
koda
parents:
3611
diff
changeset
|
384 |
DrawTexture(cScreenWidth div 2 + AMxOffset - 45, AMyOffset - 25, CountTexz[Ammo^[Slot, Pos].Count]); |
86212d2b116a
redo spinning wheel, redo fix for detail selection, redo ammo quantity and name in ammomenu
koda
parents:
3611
diff
changeset
|
385 |
{$ELSE} |
3434 | 386 |
DrawTexture(cScreenWidth div 2 - (AMWidth - 10) + AMxShift, cScreenHeight - AMyOffset - 25, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex); |
387 |
if Ammo^[Slot, Pos].Count < AMMO_INFINITE then |
|
388 |
DrawTexture(cScreenWidth div 2 + AMxOffset - 45, cScreenHeight - AMyOffset - 25, CountTexz[Ammo^[Slot, Pos].Count]); |
|
3629
86212d2b116a
redo spinning wheel, redo fix for detail selection, redo ammo quantity and name in ammomenu
koda
parents:
3611
diff
changeset
|
389 |
{$ENDIF} |
1529
3bc916b419cd
Don't hide ammo menu when user clicks on not yet available weapon
unc0rr
parents:
1439
diff
changeset
|
390 |
|
3434 | 391 |
if bSelected and (Ammoz[Ammo^[Slot, Pos].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber < 0) then |
392 |
begin |
|
393 |
bShowAmmoMenu:= false; |
|
394 |
SetWeapon(Ammo^[Slot, Pos].AmmoType); |
|
395 |
bSelected:= false; |
|
396 |
FreeWeaponTooltip; |
|
397 |
exit |
|
3405 | 398 |
end; |
3967 | 399 |
end |
3434 | 400 |
end |
401 |
else |
|
402 |
FreeWeaponTooltip; |
|
3663
8c28abf427f5
reduce the number of keywords used and switch to BMP format for screenshots
koda
parents:
3641
diff
changeset
|
403 |
if (WeaponTooltipTex <> nil) and (AMxShift = 0) then |
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
|
404 |
{$IFDEF IPHONEOS} |
3434 | 405 |
ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, AMyOffset - 1); |
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
|
406 |
{$ELSE} |
4374 | 407 |
ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, Min(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
|
408 |
{$ENDIF} |
961
a9a349b2b3fa
Use turnsleft sprites to indicate turns left to activate ammo
unc0rr
parents:
956
diff
changeset
|
409 |
|
3434 | 410 |
bSelected:= false; |
411 |
if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |
|
4 | 412 |
end; |
413 |
||
3104 | 414 |
procedure DrawWater(Alpha: byte; OffsetY: LongInt); |
1915 | 415 |
var VertexBuffer: array [0..3] of TVertex2f; |
416 |
r: TSDL_Rect; |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
417 |
lw, lh: GLfloat; |
1915 | 418 |
begin |
4748 | 419 |
if SuddenDeathDmg then |
420 |
begin |
|
421 |
SDWaterColorArray[0].a := Alpha; |
|
422 |
SDWaterColorArray[1].a := Alpha; |
|
423 |
SDWaterColorArray[2].a := Alpha; |
|
424 |
SDWaterColorArray[3].a := Alpha |
|
425 |
end |
|
426 |
else |
|
427 |
begin |
|
428 |
WaterColorArray[0].a := Alpha; |
|
429 |
WaterColorArray[1].a := Alpha; |
|
430 |
WaterColorArray[2].a := Alpha; |
|
431 |
WaterColorArray[3].a := Alpha |
|
432 |
end; |
|
2269
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
433 |
|
3463 | 434 |
lw:= cScreenWidth / cScaleFactor; |
435 |
lh:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 + 16; |
|
3697 | 436 |
|
3405 | 437 |
// Water |
438 |
r.y:= OffsetY + WorldDy + cWaterLine; |
|
3463 | 439 |
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
|
440 |
begin |
3405 | 441 |
if r.y < 0 then |
442 |
r.y:= 0; |
|
1915 | 443 |
|
3405 | 444 |
glDisable(GL_TEXTURE_2D); |
445 |
VertexBuffer[0].X:= -lw; |
|
446 |
VertexBuffer[0].Y:= r.y; |
|
447 |
VertexBuffer[1].X:= lw; |
|
448 |
VertexBuffer[1].Y:= r.y; |
|
449 |
VertexBuffer[2].X:= lw; |
|
450 |
VertexBuffer[2].Y:= lh; |
|
451 |
VertexBuffer[3].X:= -lw; |
|
452 |
VertexBuffer[3].Y:= lh; |
|
1915 | 453 |
|
3641 | 454 |
glDisableClientState(GL_TEXTURE_COORD_ARRAY); |
455 |
glEnableClientState(GL_COLOR_ARRAY); |
|
4748 | 456 |
if SuddenDeathDmg then |
457 |
glColorPointer(4, GL_UNSIGNED_BYTE, 0, @SDWaterColorArray[0]) |
|
458 |
else |
|
459 |
glColorPointer(4, GL_UNSIGNED_BYTE, 0, @WaterColorArray[0]); |
|
1915 | 460 |
|
3405 | 461 |
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
|
462 |
|
3405 | 463 |
glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer)); |
1915 | 464 |
|
3405 | 465 |
glDisableClientState(GL_COLOR_ARRAY); |
3641 | 466 |
glEnableClientState(GL_TEXTURE_COORD_ARRAY); |
3407 | 467 |
glColor4ub($FF, $FF, $FF, $FF); // must not be Tint() as color array seems to stay active and color reset is required |
3405 | 468 |
glEnable(GL_TEXTURE_2D); |
469 |
end; |
|
1915 | 470 |
end; |
471 |
||
3376 | 472 |
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
|
473 |
var VertexBuffer, TextureBuffer: array [0..3] of TVertex2f; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
474 |
lw, waves, shift: GLfloat; |
4748 | 475 |
sprite: TSprite; |
2288 | 476 |
begin |
4748 | 477 |
if SuddenDeathDmg then |
478 |
sprite:= sprSDWater |
|
479 |
else |
|
480 |
sprite:= sprWater; |
|
481 |
||
482 |
cWaveWidth:= SpritesData[sprite].Width; |
|
483 |
||
3463 | 484 |
lw:= cScreenWidth / cScaleFactor; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
485 |
waves:= lw * 2 / cWaveWidth; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
486 |
|
4748 | 487 |
if SuddenDeathDmg then |
488 |
Tint(LongInt(tnt) * SDWaterColorArray[2].r div 255 + 255 - tnt, |
|
489 |
LongInt(tnt) * SDWaterColorArray[2].g div 255 + 255 - tnt, |
|
490 |
LongInt(tnt) * SDWaterColorArray[2].b div 255 + 255 - tnt, |
|
491 |
255 |
|
492 |
) |
|
493 |
else |
|
494 |
Tint(LongInt(tnt) * WaterColorArray[2].r div 255 + 255 - tnt, |
|
495 |
LongInt(tnt) * WaterColorArray[2].g div 255 + 255 - tnt, |
|
496 |
LongInt(tnt) * WaterColorArray[2].b div 255 + 255 - tnt, |
|
497 |
255 |
|
498 |
); |
|
3089 | 499 |
|
4748 | 500 |
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
|
501 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
502 |
VertexBuffer[0].X:= -lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
503 |
VertexBuffer[0].Y:= cWaterLine + WorldDy + dY; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
504 |
VertexBuffer[1].X:= lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
505 |
VertexBuffer[1].Y:= VertexBuffer[0].Y; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
506 |
VertexBuffer[2].X:= lw; |
4748 | 507 |
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
|
508 |
VertexBuffer[3].X:= -lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
509 |
VertexBuffer[3].Y:= VertexBuffer[2].Y; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
510 |
|
2374 | 511 |
shift:= - lw / cWaveWidth; |
2495 | 512 |
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
|
513 |
TextureBuffer[0].Y:= 0; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
514 |
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
|
515 |
TextureBuffer[1].Y:= TextureBuffer[0].Y; |
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2434
diff
changeset
|
516 |
TextureBuffer[2].X:= TextureBuffer[1].X; |
4748 | 517 |
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
|
518 |
TextureBuffer[3].X:= TextureBuffer[0].X; |
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2434
diff
changeset
|
519 |
TextureBuffer[3].Y:= TextureBuffer[2].Y; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
520 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
521 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
522 |
glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
523 |
glTexCoordPointer(2, GL_FLOAT, 0, @TextureBuffer[0]); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
524 |
glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer)); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
525 |
|
3390 | 526 |
Tint($FF, $FF, $FF, $FF); |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
527 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
528 |
{for i:= -1 to cWaterSprCount do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
529 |
DrawSprite(sprWater, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
530 |
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
|
531 |
cWaterLine + WorldDy + dY, |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
532 |
0)} |
2288 | 533 |
end; |
534 |
||
3089 | 535 |
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
|
536 |
var i, w, h, lw, lh, rw, rh, sw: LongInt; |
2426 | 537 |
begin |
3405 | 538 |
sw:= round(cScreenWidth / cScaleFactor); |
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
|
539 |
if (SpritesData[sprL].Texture = nil) and (SpritesData[spr].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
|
540 |
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
|
541 |
w:= SpritesData[spr].Width * SpritesData[spr].Texture^.Scale; |
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
|
542 |
h:= SpritesData[spr].Height * SpritesData[spr].Texture^.Scale; |
3405 | 543 |
i:= Shift mod w; |
544 |
if i > 0 then dec(i, w); |
|
545 |
dec(i, w * (sw div w + 1)); |
|
546 |
repeat |
|
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
|
547 |
DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - h, SpritesData[spr].Texture, SpritesData[spr].Texture^.Scale); |
3405 | 548 |
inc(i, w) |
549 |
until i > sw |
|
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
|
550 |
end |
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
|
551 |
else if SpritesData[spr].Texture <> nil then |
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
|
552 |
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
|
553 |
w:= SpritesData[spr].Width * SpritesData[spr].Texture^.Scale; |
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
|
554 |
h:= SpritesData[spr].Height * SpritesData[spr].Texture^.Scale; |
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
|
555 |
lw:= SpritesData[sprL].Width * SpritesData[spr].Texture^.Scale; |
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
|
556 |
lh:= SpritesData[sprL].Height * SpritesData[spr].Texture^.Scale; |
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
|
557 |
if SpritesData[sprR].Texture <> nil then |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
558 |
begin |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
559 |
rw:= SpritesData[sprR].Width * SpritesData[spr].Texture^.Scale; |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
560 |
rh:= SpritesData[sprR].Height * SpritesData[spr].Texture^.Scale |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
561 |
end; |
3405 | 562 |
dec(Shift, w div 2); |
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
|
563 |
DrawTexture(Shift, WorldDy + LAND_HEIGHT + OffsetY - h, SpritesData[spr].Texture, SpritesData[spr].Texture^.Scale); |
3697 | 564 |
|
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
|
565 |
i:= Shift - lw; |
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
|
566 |
while i >= -sw - lw 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
|
567 |
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
|
568 |
DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - lh, SpritesData[sprL].Texture, SpritesData[sprL].Texture^.Scale); |
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
|
569 |
dec(i, lw); |
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
|
570 |
end; |
3697 | 571 |
|
3405 | 572 |
i:= Shift + w; |
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
|
573 |
if SpritesData[sprR].Texture <> nil then |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
574 |
while i <= sw do |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
575 |
begin |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
576 |
DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - rh, SpritesData[sprR].Texture, SpritesData[sprR].Texture^.Scale); |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
577 |
inc(i, rw) |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
578 |
end |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
579 |
else |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
580 |
while i <= sw do |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
581 |
begin |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
582 |
DrawTexture(i, WorldDy + LAND_HEIGHT + OffsetY - lh, SpritesData[sprL].Texture, SpritesData[sprL].Texture^.Scale); |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
583 |
inc(i, lw) |
2172330ad52a
Use SkyL if SkyR is not included. Saves a bit of texture memory and removes some redundant files.
nemo
parents:
6131
diff
changeset
|
584 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
585 |
end |
2426 | 586 |
end; |
587 |
||
588 |
||
956 | 589 |
procedure DrawWorld(Lag: LongInt); |
4 | 590 |
begin |
3523 | 591 |
if not isPaused then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
592 |
begin |
3523 | 593 |
if ZoomValue < zoom then |
3444 | 594 |
begin |
3523 | 595 |
zoom:= zoom - 0.002 * Lag; |
3697 | 596 |
if ZoomValue > zoom then |
3523 | 597 |
zoom:= ZoomValue |
3697 | 598 |
end |
3774 | 599 |
else |
3523 | 600 |
if ZoomValue > zoom then |
3444 | 601 |
begin |
3523 | 602 |
zoom:= zoom + 0.002 * Lag; |
603 |
if ZoomValue < zoom then |
|
604 |
zoom:= ZoomValue |
|
3611 | 605 |
end |
3444 | 606 |
end |
3611 | 607 |
else |
608 |
ZoomValue:= zoom; |
|
2376 | 609 |
|
3611 | 610 |
// Sky |
611 |
glClear(GL_COLOR_BUFFER_BIT); |
|
612 |
//glPushMatrix; |
|
613 |
//glScalef(1.0, 1.0, 1.0); |
|
756 | 614 |
|
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
|
615 |
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
|
616 |
MoveCamera; |
162 | 617 |
|
3696 | 618 |
if cStereoMode = smNone then |
619 |
begin |
|
3692 | 620 |
glClear(GL_COLOR_BUFFER_BIT); |
621 |
DrawWorldStereo(Lag, rmDefault) |
|
3696 | 622 |
end |
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
623 |
{$IFNDEF S3D_DISABLED} |
3696 | 624 |
else if (cStereoMode = smAFR) then |
625 |
begin |
|
626 |
AFRToggle:= not AFRToggle; |
|
627 |
glClear(GL_COLOR_BUFFER_BIT); |
|
628 |
if AFRToggle then |
|
629 |
DrawWorldStereo(Lag, rmLeftEye) |
|
630 |
else |
|
631 |
DrawWorldStereo(Lag, rmRightEye) |
|
632 |
end |
|
633 |
else if (cStereoMode = smHorizontal) or (cStereoMode = smVertical) then |
|
634 |
begin |
|
3692 | 635 |
// create left fb |
636 |
glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, framel); |
|
637 |
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); |
|
638 |
DrawWorldStereo(Lag, rmLeftEye); |
|
639 |
||
640 |
// create right fb |
|
641 |
glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, framer); |
|
642 |
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); |
|
643 |
DrawWorldStereo(0, rmRightEye); |
|
644 |
||
645 |
// detatch drawing from fbs |
|
646 |
glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, 0); |
|
647 |
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); |
|
648 |
SetScale(cDefaultZoomLevel); |
|
649 |
||
650 |
// draw left frame |
|
651 |
glBindTexture(GL_TEXTURE_2D, texl); |
|
652 |
glBegin(GL_QUADS); |
|
3696 | 653 |
if cStereoMode = smHorizontal then |
654 |
begin |
|
655 |
glTexCoord2f(0.0, 0.0); |
|
656 |
glVertex2d(cScreenWidth / -2, cScreenHeight); |
|
657 |
glTexCoord2f(1.0, 0.0); |
|
658 |
glVertex2d(0, cScreenHeight); |
|
659 |
glTexCoord2f(1.0, 1.0); |
|
660 |
glVertex2d(0, 0); |
|
661 |
glTexCoord2f(0.0, 1.0); |
|
662 |
glVertex2d(cScreenWidth / -2, 0); |
|
663 |
end |
|
664 |
else |
|
665 |
begin |
|
666 |
glTexCoord2f(0.0, 0.0); |
|
667 |
glVertex2d(cScreenWidth / -2, cScreenHeight / 2); |
|
668 |
glTexCoord2f(1.0, 0.0); |
|
669 |
glVertex2d(cScreenWidth / 2, cScreenHeight / 2); |
|
670 |
glTexCoord2f(1.0, 1.0); |
|
671 |
glVertex2d(cScreenWidth / 2, 0); |
|
672 |
glTexCoord2f(0.0, 1.0); |
|
673 |
glVertex2d(cScreenWidth / -2, 0); |
|
674 |
end; |
|
3692 | 675 |
glEnd(); |
676 |
||
677 |
// draw right frame |
|
678 |
glBindTexture(GL_TEXTURE_2D, texr); |
|
679 |
glBegin(GL_QUADS); |
|
3696 | 680 |
if cStereoMode = smHorizontal then |
681 |
begin |
|
682 |
glTexCoord2f(0.0, 0.0); |
|
683 |
glVertex2d(0, cScreenHeight); |
|
684 |
glTexCoord2f(1.0, 0.0); |
|
685 |
glVertex2d(cScreenWidth / 2, cScreenHeight); |
|
686 |
glTexCoord2f(1.0, 1.0); |
|
687 |
glVertex2d(cScreenWidth / 2, 0); |
|
688 |
glTexCoord2f(0.0, 1.0); |
|
689 |
glVertex2d(0, 0); |
|
690 |
end |
|
691 |
else |
|
692 |
begin |
|
693 |
glTexCoord2f(0.0, 0.0); |
|
694 |
glVertex2d(cScreenWidth / -2, cScreenHeight); |
|
695 |
glTexCoord2f(1.0, 0.0); |
|
696 |
glVertex2d(cScreenWidth / 2, cScreenHeight); |
|
697 |
glTexCoord2f(1.0, 1.0); |
|
698 |
glVertex2d(cScreenWidth / 2, cScreenHeight / 2); |
|
699 |
glTexCoord2f(0.0, 1.0); |
|
700 |
glVertex2d(cScreenWidth / -2, cScreenHeight / 2); |
|
701 |
end; |
|
3692 | 702 |
glEnd(); |
703 |
SetScale(zoom); |
|
3696 | 704 |
end |
705 |
else |
|
706 |
begin |
|
707 |
// clear scene |
|
708 |
glColorMask(GL_TRUE, GL_TRUE, GL_TRUE, GL_TRUE); |
|
709 |
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); |
|
710 |
// draw left eye in red channel only |
|
711 |
if cStereoMode = smGreenRed then |
|
712 |
glColorMask(GL_FALSE, GL_TRUE, GL_FALSE, GL_TRUE) |
|
713 |
else if cStereoMode = smBlueRed then |
|
714 |
glColorMask(GL_FALSE, GL_FALSE, GL_TRUE, GL_TRUE) |
|
715 |
else if cStereoMode = smCyanRed then |
|
716 |
glColorMask(GL_FALSE, GL_TRUE, GL_TRUE, GL_TRUE) |
|
717 |
else |
|
718 |
glColorMask(GL_TRUE, GL_FALSE, GL_FALSE, GL_TRUE); |
|
719 |
DrawWorldStereo(Lag, rmLeftEye); |
|
720 |
// draw right eye in selected channel(s) only |
|
721 |
if cStereoMode = smRedGreen then |
|
722 |
glColorMask(GL_FALSE, GL_TRUE, GL_FALSE, GL_TRUE) |
|
723 |
else if cStereoMode = smRedBlue then |
|
724 |
glColorMask(GL_FALSE, GL_FALSE, GL_TRUE, GL_TRUE) |
|
725 |
else if cStereoMode = smRedCyan then |
|
726 |
glColorMask(GL_FALSE, GL_TRUE, GL_TRUE, GL_TRUE) |
|
727 |
else |
|
728 |
glColorMask(GL_TRUE, GL_FALSE, GL_FALSE, GL_TRUE); |
|
729 |
DrawWorldStereo(Lag, rmRightEye); |
|
730 |
end |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
731 |
{$ENDIF} |
3692 | 732 |
end; |
733 |
||
734 |
procedure ChangeDepth(rm: TRenderMode; d: GLfloat); |
|
735 |
begin |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
736 |
{$IFDEF S3D_DISABLED} |
4850 | 737 |
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
|
738 |
exit; |
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
739 |
{$ELSE} |
3696 | 740 |
d:= d / 5; |
3692 | 741 |
if rm = rmDefault then exit |
3696 | 742 |
else if rm = rmLeftEye then d:= -d; |
3692 | 743 |
stereoDepth:= stereoDepth + d; |
744 |
glMatrixMode(GL_PROJECTION); |
|
745 |
glTranslatef(d, 0, 0); |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
746 |
glMatrixMode(GL_MODELVIEW); |
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
747 |
{$ENDIF} |
3692 | 748 |
end; |
749 |
||
750 |
procedure ResetDepth(rm: TRenderMode); |
|
751 |
begin |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
752 |
{$IFDEF S3D_DISABLED} |
4850 | 753 |
rm:= rm; // avoid hint |
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
754 |
exit; |
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
755 |
{$ELSE} |
3692 | 756 |
if rm = rmDefault then exit; |
757 |
glMatrixMode(GL_PROJECTION); |
|
758 |
glTranslatef(-stereoDepth, 0, 0); |
|
759 |
glMatrixMode(GL_MODELVIEW); |
|
760 |
stereoDepth:= 0; |
|
4347
0ddb100fea61
add a S3D_DISABLED symbol to disable/enable stereo rendering at compilation time
koda
parents:
4345
diff
changeset
|
761 |
{$ENDIF} |
3692 | 762 |
end; |
763 |
||
764 |
procedure DrawWorldStereo(Lag: LongInt; RM: TRenderMode); |
|
765 |
var i, t: LongInt; |
|
766 |
r: TSDL_Rect; |
|
767 |
tdx, tdy: Double; |
|
768 |
s: string[15]; |
|
769 |
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
|
770 |
smallScreenOffset, offsetX, offsetY, screenBottom: LongInt; |
3692 | 771 |
VertexBuffer: array [0..3] of TVertex2f; |
772 |
begin |
|
3611 | 773 |
if (cReducedQuality and rqNoBackground) = 0 then |
1812 | 774 |
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
|
775 |
// 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
|
776 |
ScreenBottom:= (WorldDy - trunc(cScreenHeight/cScaleFactor) - (cScreenHeight div 2) + cWaterLine); |
4374 | 777 |
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
|
778 |
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
|
779 |
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
|
780 |
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
|
781 |
HorizontOffset:= HorizontOffset + ((ScreenBottom-SkyOffset) div 20); |
3265
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
782 |
|
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
|
783 |
// background |
3688 | 784 |
ChangeDepth(RM, cStereo_Sky); |
4835
a6924450e694
added rq-sky to themes so it can set sky color for low quality. also added tint of sky on sudden death. underwater theme is an example of this
Henek
parents:
4810
diff
changeset
|
785 |
if SuddenDeathDmg then 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
|
786 |
DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8, SkyOffset); |
3688 | 787 |
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
|
788 |
DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5, HorizontOffset); |
4835
a6924450e694
added rq-sky to themes so it can set sky color for low quality. also added tint of sky on sudden death. underwater theme is an example of this
Henek
parents:
4810
diff
changeset
|
789 |
if SuddenDeathDmg then Tint($FF, $FF, $FF, $FF); |
3611 | 790 |
end; |
4 | 791 |
|
3611 | 792 |
DrawVisualGears(0); |
3697 | 793 |
|
3611 | 794 |
if (cReducedQuality and rq2DWater) = 0 then |
795 |
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
|
796 |
// 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
|
797 |
DrawWater(255, SkyOffset); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
798 |
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
|
799 |
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
|
800 |
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
|
801 |
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
|
802 |
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
|
803 |
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
|
804 |
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
|
805 |
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
|
806 |
end |
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
|
807 |
else |
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
|
808 |
DrawWaves(-1, 100, - (cWaveHeight + (cWaveHeight shr 1)), 0); |
4 | 809 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
810 |
changeDepth(RM, cStereo_Land); |
3611 | 811 |
DrawLand(WorldDx, WorldDy); |
1911 | 812 |
|
3611 | 813 |
DrawWater(255, 0); |
4 | 814 |
|
1660 | 815 |
// Attack bar |
5862 | 816 |
if CurrentTeam <> nil then |
3611 | 817 |
case AttackBar of |
1660 | 818 |
(* 1: begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
819 |
r:= StuffPoz[sPowerBar]; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
820 |
{$WARNINGS OFF} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
821 |
r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
822 |
{$WARNINGS ON} |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
823 |
DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
824 |
end;*) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
825 |
2: with CurrentHedgehog^ do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
826 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
827 |
tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
828 |
tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
829 |
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
|
830 |
DrawSprite(sprPower, |
4159
64e677349124
REmove stupid int64 conversions, provide real fixes to compiler hints
unc0rr
parents:
4132
diff
changeset
|
831 |
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
|
832 |
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
|
833 |
i) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
834 |
end |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
835 |
end; |
1660 | 836 |
|
3611 | 837 |
DrawVisualGears(1); |
838 |
DrawGears; |
|
4 | 839 |
|
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
|
840 |
if SuddenDeathDmg then |
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
|
841 |
DrawWater(cSDWaterOpacity, 0) |
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
|
842 |
else |
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
|
843 |
DrawWater(cWaterOpacity, 0); |
2269
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
844 |
|
3611 | 845 |
// Waves |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
846 |
ChangeDepth(RM, cStereo_Water_near); |
3611 | 847 |
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
|
848 |
|
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
|
849 |
if (cReducedQuality and rq2DWater) = 0 then |
3265
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
850 |
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
|
851 |
//DrawWater(cWaterOpacity, - offsetY div 40); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
852 |
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
|
853 |
DrawWaves(-1, 50 + WorldDx div 6, - cWaveHeight - offsetY div 40, 8); |
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
|
854 |
if SuddenDeathDmg then |
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
|
855 |
DrawWater(cSDWaterOpacity, - offsetY div 20) |
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
|
856 |
else |
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
|
857 |
DrawWater(cWaterOpacity, - offsetY div 20); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
858 |
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
|
859 |
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
|
860 |
if SuddenDeathDmg then |
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
|
861 |
DrawWater(cSDWaterOpacity, - offsetY div 10) |
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
|
862 |
else |
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
|
863 |
DrawWater(cWaterOpacity, - offsetY div 10); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
864 |
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
|
865 |
DrawWaves( -1, 25 + WorldDx div 3, - cWaveHeight - offsetY div 10, 0); |
3265
5fe62296fdea
- Parallax effect for horizont when water is out of sight
palewolf
parents:
3249
diff
changeset
|
866 |
end |
3611 | 867 |
else |
868 |
DrawWaves(-1, 50, - (cWaveHeight shr 1), 0); |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
869 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
870 |
// 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
|
871 |
// 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
|
872 |
ChangeDepth(RM, cStereo_Outside); |
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
873 |
DrawVisualGears(2); |
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
874 |
|
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
875 |
// 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
|
876 |
// 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
|
877 |
ResetDepth(RM); |
4818
202eef454354
rename "frame alternate" to "wiggle" as it's more appropriate
koda
parents:
4816
diff
changeset
|
878 |
DrawVisualGears(3); |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
879 |
|
2288 | 880 |
{$WARNINGS OFF} |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
881 |
// Target |
3104 | 882 |
if (TargetPoint.X <> NoPointX) and (CurrentTeam <> nil) and (CurrentHedgehog <> nil) then |
883 |
begin |
|
884 |
with PHedgehog(CurrentHedgehog)^ do |
|
885 |
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
|
886 |
if CurAmmoType = amBee then |
3110 | 887 |
DrawRotatedF(sprTargetBee, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
888 |
else |
|
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
|
889 |
DrawRotatedF(sprTargetP, TargetPoint.X + WorldDx, TargetPoint.Y + WorldDy, 0, 0, (RealTicks shr 3) mod 360) |
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
|
890 |
end |
3104 | 891 |
end; |
4 | 892 |
{$WARNINGS ON} |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
893 |
|
3523 | 894 |
// this scale is used to keep the various widgets at the same dimension at all zoom levels |
895 |
SetScale(cDefaultZoomLevel); |
|
2724 | 896 |
|
897 |
// Turn time |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
898 |
{$IFDEF IPHONEOS} |
3025 | 899 |
offsetX:= cScreenHeight - 13; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
900 |
{$ELSE} |
3025 | 901 |
offsetX:= 48; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
902 |
{$ENDIF} |
3463 | 903 |
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
|
904 |
if ((TurnTimeLeft <> 0) and (TurnTimeLeft < 1000000)) or (ReadyTimeLeft <> 0) then |
3774 | 905 |
begin |
906 |
if ReadyTimeLeft <> 0 then |
|
907 |
i:= Succ(Pred(ReadyTimeLeft) div 1000) |
|
908 |
else |
|
909 |
i:= Succ(Pred(TurnTimeLeft) div 1000); |
|
910 |
||
4 | 911 |
if i>99 then t:= 112 |
912 |
else if i>9 then t:= 96 |
|
913 |
else t:= 80; |
|
3463 | 914 |
DrawSprite(sprFrame, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, 1); |
4 | 915 |
while i > 0 do |
916 |
begin |
|
917 |
dec(t, 32); |
|
3463 | 918 |
DrawSprite(sprBigDigit, -(cScreenWidth shr 1) + t + offsetY, cScreenHeight - offsetX, i mod 10); |
4 | 919 |
i:= i div 10 |
920 |
end; |
|
3463 | 921 |
DrawSprite(sprFrame, -(cScreenWidth shr 1) + t - 4 + offsetY, cScreenHeight - offsetX, 0); |
4 | 922 |
end; |
79 | 923 |
|
4 | 924 |
// Captions |
4393 | 925 |
DrawCaptions; |
4 | 926 |
|
47 | 927 |
// Teams Healths |
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
928 |
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
|
929 |
begin |
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
930 |
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
|
931 |
smallScreenOffset:= cScreenHeight div 6; |
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
932 |
if TeamsCount * 20 > Longword(cScreenHeight) div 5 then 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
|
933 |
end |
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
934 |
else smallScreenOffset:= 0; |
547 | 935 |
for t:= 0 to Pred(TeamsCount) do |
936 |
with TeamsArray[t]^ do |
|
47 | 937 |
begin |
2839 | 938 |
highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500); |
3697 | 939 |
|
2747 | 940 |
if highlight then |
4810 | 941 |
Tint(Clan^.Color shl 8 or $FF); |
2839 | 942 |
|
943 |
// draw name |
|
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
944 |
DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY + smallScreenOffset, NameTagTex); |
3697 | 945 |
|
2839 | 946 |
// draw flag |
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
947 |
DrawTexture(-14, cScreenHeight + DrawHealthY + smallScreenOffset, FlagTex); |
3697 | 948 |
|
2839 | 949 |
// draw health bar |
690 | 950 |
r.x:= 0; |
951 |
r.y:= 0; |
|
547 | 952 |
r.w:= 2 + TeamHealthBarWidth; |
764
7513452b1d51
Now game looks almost like it did before switching to OpenGL
unc0rr
parents:
762
diff
changeset
|
953 |
r.h:= HealthTex^.h; |
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
954 |
DrawFromRect(14, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
690 | 955 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
956 |
// draw health bars right border |
83 | 957 |
inc(r.x, cTeamHealthWidth + 2); |
958 |
r.w:= 3; |
|
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
959 |
DrawFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY + smallScreenOffset, @r, HealthTex); |
3770 | 960 |
|
961 |
// draw ai kill counter for gfAISurvival |
|
962 |
if (GameFlags and gfAISurvival) <> 0 then begin |
|
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
963 |
DrawTexture(TeamHealthBarWidth + 22, cScreenHeight + DrawHealthY + smallScreenOffset, |
3773 | 964 |
AIKillsTex); |
3770 | 965 |
end; |
966 |
||
2839 | 967 |
// if highlighted, draw flag and other contents again to keep their colors |
968 |
// this approach should be faster than drawing all borders one by one tinted or not |
|
969 |
if highlight then |
|
970 |
begin |
|
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
971 |
if TeamsCount * 20 > Longword(cScreenHeight) div 5 then 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
|
972 |
else Tint($FF, $FF, $FF, $FF); |
690 | 973 |
|
2839 | 974 |
// draw name |
2747 | 975 |
r.x:= 2; |
976 |
r.y:= 2; |
|
2839 | 977 |
r.w:= NameTagTex^.w - 4; |
978 |
r.h:= NameTagTex^.h - 4; |
|
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
979 |
DrawFromRect(-NameTagTex^.w - 14, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, NameTagTex); |
2839 | 980 |
// draw flag |
2747 | 981 |
r.w:= 22; |
982 |
r.h:= 15; |
|
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
983 |
DrawFromRect(-12, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, FlagTex); |
2839 | 984 |
// draw health bar |
985 |
r.w:= TeamHealthBarWidth + 1; |
|
986 |
r.h:= HealthTex^.h - 4; |
|
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
987 |
DrawFromRect(16, cScreenHeight + DrawHealthY + smallScreenOffset + 2, @r, HealthTex); |
2747 | 988 |
end; |
47 | 989 |
end; |
5380
6ba1e40a360c
Based on some user complaints on forum, try to reduce impact of teams on small displays.
nemo
parents:
5372
diff
changeset
|
990 |
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
|
991 |
begin |
5485 | 992 |
SetScale(cDefaultZoomLevel); |
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
993 |
if TeamsCount * 20 > Longword(cScreenHeight) div 5 then 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
|
994 |
end; |
47 | 995 |
|
5 | 996 |
// Lag alert |
2567 | 997 |
if isInLag then DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12); |
4 | 998 |
|
5 | 999 |
// Wind bar |
2567 | 1000 |
{$IFDEF IPHONEOS} |
3405 | 1001 |
offsetX:= cScreenHeight - 13; |
1002 |
offsetY:= (cScreenWidth shr 1) + 74; |
|
2567 | 1003 |
{$ELSE} |
3405 | 1004 |
offsetX:= 30; |
1005 |
offsetY:= 180; |
|
2567 | 1006 |
{$ENDIF} |
3405 | 1007 |
DrawSprite(sprWindBar, (cScreenWidth shr 1) - offsetY, cScreenHeight - offsetX, 0); |
1008 |
if WindBarWidth > 0 then |
|
1009 |
begin |
|
1010 |
{$WARNINGS OFF} |
|
1011 |
r.x:= 8 - (RealTicks shr 6) mod 8; |
|
1012 |
{$WARNINGS ON} |
|
1013 |
r.y:= 0; |
|
1014 |
r.w:= WindBarWidth; |
|
1015 |
r.h:= 13; |
|
1016 |
DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - offsetY + 77, cScreenHeight - offsetX + 2, 13, 0); |
|
1017 |
end |
|
1018 |
else |
|
1019 |
if WindBarWidth < 0 then |
|
1020 |
begin |
|
1021 |
{$WARNINGS OFF} |
|
3407 | 1022 |
r.x:= (Longword(WindBarWidth) + RealTicks shr 6) mod 8; |
3405 | 1023 |
{$WARNINGS ON} |
1024 |
r.y:= 0; |
|
1025 |
r.w:= - WindBarWidth; |
|
1026 |
r.h:= 13; |
|
1027 |
DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0); |
|
1028 |
end; |
|
5 | 1029 |
|
161 | 1030 |
// AmmoMenu |
3434 | 1031 |
if (AMxShift < AMWidth) or bShowAmmoMenu then ShowAmmoMenu; |
161 | 1032 |
|
2287 | 1033 |
// Cursor |
1034 |
if isCursorVisible and bShowAmmoMenu then |
|
1035 |
DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8); |
|
942 | 1036 |
|
4816
c2575faeac3d
use a different depth for different layers (land, water, explosions)
koda
parents:
4812
diff
changeset
|
1037 |
// Chat |
2287 | 1038 |
DrawChat; |
4 | 1039 |
|
4976 | 1040 |
// various captions |
2567 | 1041 |
if fastUntilLag then DrawCentered(0, (cScreenHeight shr 1), SyncTexture); |
1042 |
if isPaused then DrawCentered(0, (cScreenHeight shr 1), PauseTexture); |
|
3774 | 1043 |
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
|
1044 |
begin |
3774 | 1045 |
if (ReadyTimeLeft = 0) and (missionTimer > 0) then dec(missionTimer, Lag); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1046 |
if missionTimer < 0 then missionTimer:= 0; // avoid subtracting below 0 |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1047 |
if missionTex <> nil then |
4374 | 1048 |
DrawCentered(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
|
1049 |
end; |
2786 | 1050 |
|
2724 | 1051 |
// fps |
1052 |
{$IFDEF IPHONEOS} |
|
3463 | 1053 |
offsetX:= 8; |
2724 | 1054 |
{$ELSE} |
3463 | 1055 |
offsetX:= 10; |
2724 | 1056 |
{$ENDIF} |
3463 | 1057 |
offsetY:= cOffsetY; |
3696 | 1058 |
if (RM = rmDefault) or (RM = rmRightEye) then |
3692 | 1059 |
begin |
1060 |
inc(Frames); |
|
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
1061 |
|
3692 | 1062 |
if cShowFPS or (GameType = gmtDemo) then |
1063 |
inc(CountTicks, Lag); |
|
1064 |
if (GameType = gmtDemo) and (CountTicks >= 1000) then |
|
1065 |
begin |
|
1066 |
i:=GameTicks div 1000; |
|
1067 |
t:= i mod 60; |
|
1068 |
s:= inttostr(t); |
|
1069 |
if t < 10 then s:= '0' + s; |
|
1070 |
i:= i div 60; |
|
1071 |
t:= i mod 60; |
|
1072 |
s:= inttostr(t) + ':' + s; |
|
1073 |
if t < 10 then s:= '0' + s; |
|
1074 |
s:= inttostr(i div 60) + ':' + s; |
|
3407 | 1075 |
|
3692 | 1076 |
if timeTexture <> nil then |
1077 |
FreeTexture(timeTexture); |
|
1078 |
timeTexture:= nil; |
|
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
|
1079 |
|
3692 | 1080 |
tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels); |
1081 |
tmpSurface:= doSurfaceConversion(tmpSurface); |
|
1082 |
timeTexture:= Surface2Tex(tmpSurface, false); |
|
1083 |
SDL_FreeSurface(tmpSurface) |
|
1084 |
end; |
|
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
1085 |
|
3692 | 1086 |
if timeTexture <> nil then |
1087 |
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
|
1088 |
|
3692 | 1089 |
if cShowFPS then |
1090 |
begin |
|
1091 |
if CountTicks >= 1000 then |
|
1092 |
begin |
|
1093 |
FPS:= Frames; |
|
1094 |
Frames:= 0; |
|
1095 |
CountTicks:= 0; |
|
1096 |
s:= inttostr(FPS) + ' fps'; |
|
1097 |
if fpsTexture <> nil then |
|
1098 |
FreeTexture(fpsTexture); |
|
1099 |
fpsTexture:= nil; |
|
1100 |
tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels); |
|
1101 |
tmpSurface:= doSurfaceConversion(tmpSurface); |
|
1102 |
fpsTexture:= Surface2Tex(tmpSurface, false); |
|
1103 |
SDL_FreeSurface(tmpSurface) |
|
1104 |
end; |
|
1105 |
if fpsTexture <> nil then |
|
1106 |
DrawTexture((cScreenWidth shr 1) - 60 - offsetY, offsetX, fpsTexture); |
|
1107 |
end; |
|
174 | 1108 |
|
3692 | 1109 |
if CountTicks >= 1000 then CountTicks:= 0; |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
1110 |
|
3692 | 1111 |
// lag warning (?) |
1112 |
inc(SoundTimerTicks, Lag); |
|
1113 |
end; |
|
1114 |
||
174 | 1115 |
if SoundTimerTicks >= 50 then |
1116 |
begin |
|
1117 |
SoundTimerTicks:= 0; |
|
1118 |
if cVolumeDelta <> 0 then |
|
1119 |
begin |
|
1120 |
str(ChangeVolume(cVolumeDelta), s); |
|
2619 | 1121 |
AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume) |
174 | 1122 |
end |
756 | 1123 |
end; |
1124 |
||
2724 | 1125 |
if GameState = gsConfirm then |
3025 | 1126 |
DrawCentered(0, (cScreenHeight shr 1), ConfirmTexture); |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
1127 |
|
3107 | 1128 |
if ScreenFade <> sfNone then |
1129 |
begin |
|
1130 |
if not isFirstFrame then |
|
1131 |
case ScreenFade of |
|
1132 |
sfToBlack, sfToWhite: if ScreenFadeValue + Lag * ScreenFadeSpeed < sfMax then |
|
1133 |
inc(ScreenFadeValue, Lag * ScreenFadeSpeed) |
|
1134 |
else |
|
3123 | 1135 |
ScreenFadeValue:= sfMax; |
3107 | 1136 |
sfFromBlack, sfFromWhite: if ScreenFadeValue - Lag * ScreenFadeSpeed > 0 then |
1137 |
dec(ScreenFadeValue, Lag * ScreenFadeSpeed) |
|
1138 |
else |
|
3123 | 1139 |
ScreenFadeValue:= 0; |
3107 | 1140 |
end; |
1141 |
if ScreenFade <> sfNone then |
|
1142 |
begin |
|
1143 |
case ScreenFade of |
|
3376 | 1144 |
sfToBlack, sfFromBlack: Tint(0, 0, 0, ScreenFadeValue * 255 div 1000); |
1145 |
sfToWhite, sfFromWhite: Tint($FF, $FF, $FF, ScreenFadeValue * 255 div 1000); |
|
3107 | 1146 |
end; |
3697 | 1147 |
|
3113 | 1148 |
VertexBuffer[0].X:= -cScreenWidth; |
1149 |
VertexBuffer[0].Y:= cScreenHeight; |
|
1150 |
VertexBuffer[1].X:= -cScreenWidth; |
|
1151 |
VertexBuffer[1].Y:= 0; |
|
1152 |
VertexBuffer[2].X:= cScreenWidth; |
|
1153 |
VertexBuffer[2].Y:= 0; |
|
1154 |
VertexBuffer[3].X:= cScreenWidth; |
|
1155 |
VertexBuffer[3].Y:= cScreenHeight; |
|
3697 | 1156 |
|
3376 | 1157 |
glDisable(GL_TEXTURE_2D); |
3641 | 1158 |
|
3113 | 1159 |
glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]); |
1160 |
glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer)); |
|
3641 | 1161 |
|
3376 | 1162 |
glEnable(GL_TEXTURE_2D); |
3390 | 1163 |
Tint($FF, $FF, $FF, $FF); |
3123 | 1164 |
if not isFirstFrame and ((ScreenFadeValue = 0) or (ScreenFadeValue = sfMax)) then ScreenFade:= sfNone |
3107 | 1165 |
end |
1166 |
end; |
|
1167 |
||
3123 | 1168 |
SetScale(zoom); |
1169 |
||
1170 |
// Cursor |
|
1171 |
if isCursorVisible then |
|
1172 |
begin |
|
1173 |
if not bShowAmmoMenu then |
|
3204 | 1174 |
begin |
3123 | 1175 |
with CurrentHedgehog^ do |
3582
4debed8656d7
fix segfault on HH-gear being 0 (e.g. after drowning) in cursor/target selection mode, thanks "ivze" for the heads-up!
sheepluva
parents:
3580
diff
changeset
|
1176 |
if (Gear <> nil) and ((Gear^.State and gstHHChooseTarget) <> 0) then |
3123 | 1177 |
begin |
5675
cd10d6cba644
add for mine strike too. as cheezemonkey points out, mine bounce is height dependent.
nemo
parents:
5523
diff
changeset
|
1178 |
if (CurAmmoType = amNapalm) or (CurAmmoType = amMineStrike) then |
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
|
1179 |
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); |
3836
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3811
diff
changeset
|
1180 |
i:= GetAmmoEntry(CurrentHedgehog^)^.Pos; |
833c0f32e326
Change all use of curslot/idx to CurAmmoType to try and avoid some bugs with use of last weapon.
nemo
parents:
3811
diff
changeset
|
1181 |
with Ammoz[CurAmmoType] do |
3123 | 1182 |
if PosCount > 1 then |
3204 | 1183 |
DrawSprite(PosSprite, CursorPoint.X - (SpritesData[PosSprite].Width shr 1), cScreenHeight - CursorPoint.Y - (SpritesData[PosSprite].Height shr 1),i); |
3123 | 1184 |
end; |
3204 | 1185 |
DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |
1186 |
end |
|
3123 | 1187 |
end; |
3107 | 1188 |
isFirstFrame:= false |
4 | 1189 |
end; |
1190 |
||
79 | 1191 |
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
|
1192 |
var EdgesDist, wdy, shs,z: LongInt; |
3638
33ee433749ba
touch overlay reworked, improvements to zoom and confirmation
koda
parents:
3629
diff
changeset
|
1193 |
PrevSentPointTime: LongWord = 0; |
4 | 1194 |
begin |
3551 | 1195 |
{$IFNDEF IPHONEOS} |
5522 | 1196 |
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
|
1197 |
uCursor.updatePosition(); |
3551 | 1198 |
{$ENDIF} |
5852 | 1199 |
z:= round(200/zoom); |
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2747
diff
changeset
|
1200 |
if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then |
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
|
1201 |
if (not autoCameraOn) or ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then |
3680 | 1202 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1203 |
FollowGear:= nil; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1204 |
prevPoint:= CursorPoint; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1205 |
exit |
3680 | 1206 |
end |
1207 |
else |
|
1208 |
begin |
|
5852 | 1209 |
CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * z + WorldDx) div 8; |
6098 | 1210 |
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
|
1211 |
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
|
1212 |
else |
85410eef7ba4
disable the followgear vertical offset for small screen devices
koda
parents:
6011
diff
changeset
|
1213 |
CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + hwSign(FollowGear^.dY) * z + WorldDy)) div 8; |
3680 | 1214 |
end; |
4 | 1215 |
|
2375 | 1216 |
wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater; |
1217 |
if WorldDy < wdy then WorldDy:= wdy; |
|
1218 |
||
2197 | 1219 |
if ((CursorPoint.X = prevPoint.X) and (CursorPoint.Y = prevpoint.Y)) then exit; |
4 | 1220 |
|
3434 | 1221 |
if AMxShift < AMWidth then |
3680 | 1222 |
begin |
3463 | 1223 |
{$IFDEF IPHONEOS} |
3434 | 1224 |
if CursorPoint.X < cScreenWidth div 2 + AMxShift - AMWidth then CursorPoint.X:= cScreenWidth div 2 + AMxShift - AMWidth; |
1225 |
if CursorPoint.X > cScreenWidth div 2 + AMxShift - AMxOffset then CursorPoint.X:= cScreenWidth div 2 + AMxShift - AMxOffset; |
|
1226 |
if CursorPoint.Y < cScreenHeight - AMyOffset - SlotsNum * AMSlotSize then CursorPoint.Y:= cScreenHeight - AMyOffset - SlotsNum * AMSlotSize; |
|
1227 |
if CursorPoint.Y > cScreenHeight - AMyOffset then CursorPoint.Y:= cScreenHeight - AMyOffset; |
|
3463 | 1228 |
{$ELSE} |
3434 | 1229 |
if CursorPoint.X < cScreenWidth div 2 + AMxShift - AMWidth + AMSlotSize then CursorPoint.X:= cScreenWidth div 2 + AMxShift - AMWidth + AMSlotSize; |
1230 |
if CursorPoint.X > cScreenWidth div 2 + AMxShift - AMxOffset then CursorPoint.X:= cScreenWidth div 2 + AMxShift - AMxOffset; |
|
1231 |
if CursorPoint.Y > AMyOffset + (SlotsNum + 1) * AMSlotSize then CursorPoint.Y:= AMyOffset + (SlotsNum + 1) * AMSlotSize; |
|
1232 |
if CursorPoint.Y < AMyOffset + AMSlotSize then CursorPoint.Y:= AMyOffset + AMSlotSize; |
|
3463 | 1233 |
{$ENDIF} |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1234 |
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
|
1235 |
//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
|
1236 |
exit |
3680 | 1237 |
end; |
162 | 1238 |
|
4 | 1239 |
if isCursorVisible then |
3680 | 1240 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1241 |
if (not CurrentTeam^.ExtDriven) and (GameTicks >= PrevSentPointTime + cSendCursorPosTime) then |
3680 | 1242 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1243 |
SendIPCXY('P', CursorPoint.X - WorldDx, cScreenHeight - CursorPoint.Y - WorldDy); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1244 |
PrevSentPointTime:= GameTicks |
3680 | 1245 |
end; |
1246 |
EdgesDist:= cCursorEdgesDist |
|
1247 |
end |
|
1248 |
else |
|
1249 |
EdgesDist:= cGearScrEdgesDist; |
|
1250 |
||
1251 |
// this generates the border around the screen that moves the camera when cursor is near it |
|
1252 |
if isCursorVisible or (FollowGear <> nil) then |
|
1253 |
begin |
|
1254 |
if CursorPoint.X < - cScreenWidth div 2 + EdgesDist then |
|
1255 |
begin |
|
1256 |
WorldDx:= WorldDx - CursorPoint.X - cScreenWidth div 2 + EdgesDist; |
|
1257 |
CursorPoint.X:= - cScreenWidth div 2 + EdgesDist |
|
1258 |
end |
|
1259 |
else |
|
1260 |
if CursorPoint.X > cScreenWidth div 2 - EdgesDist then |
|
1261 |
begin |
|
1262 |
WorldDx:= WorldDx - CursorPoint.X + cScreenWidth div 2 - EdgesDist; |
|
1263 |
CursorPoint.X:= cScreenWidth div 2 - EdgesDist |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1264 |
end; |
5149
9aa840fdf922
Try to allow cursor to reach water when zooming out
unc0rr
parents:
5022
diff
changeset
|
1265 |
|
5302 | 1266 |
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
|
1267 |
if CursorPoint.Y < shs then |
3680 | 1268 |
begin |
5149
9aa840fdf922
Try to allow cursor to reach water when zooming out
unc0rr
parents:
5022
diff
changeset
|
1269 |
WorldDy:= WorldDy + CursorPoint.Y - shs; |
9aa840fdf922
Try to allow cursor to reach water when zooming out
unc0rr
parents:
5022
diff
changeset
|
1270 |
CursorPoint.Y:= shs; |
3680 | 1271 |
end |
1272 |
else |
|
5302 | 1273 |
if (CursorPoint.Y > cScreenHeight - EdgesDist) then |
3680 | 1274 |
begin |
1275 |
WorldDy:= WorldDy + CursorPoint.Y - cScreenHeight + EdgesDist; |
|
1276 |
CursorPoint.Y:= cScreenHeight - EdgesDist |
|
1277 |
end; |
|
1278 |
end |
|
1279 |
else |
|
1280 |
if cHasFocus then |
|
1281 |
begin |
|
1282 |
WorldDx:= WorldDx - CursorPoint.X + prevPoint.X; |
|
1283 |
WorldDy:= WorldDy + CursorPoint.Y - prevPoint.Y; |
|
1284 |
CursorPoint.X:= 0; |
|
1285 |
CursorPoint.Y:= cScreenHeight div 2; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1286 |
end; |
351 | 1287 |
|
3680 | 1288 |
// this moves the camera according to CursorPoint X and Y |
4 | 1289 |
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
|
1290 |
//if cHasFocus then SDL_WarpMouse(CursorPoint.X + (cScreenWidth shr 1), cScreenHeight - CursorPoint.Y); |
1760 | 1291 |
if WorldDy > LAND_HEIGHT + 1024 then WorldDy:= LAND_HEIGHT + 1024; |
2375 | 1292 |
if WorldDy < wdy then WorldDy:= wdy; |
2426 | 1293 |
if WorldDx < - LAND_WIDTH - 1024 then WorldDx:= - LAND_WIDTH - 1024; |
1294 |
if WorldDx > 1024 then WorldDx:= 1024; |
|
4 | 1295 |
end; |
1296 |
||
2905 | 1297 |
procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
2786 | 1298 |
var r: TSDL_Rect; |
1299 |
begin |
|
1300 |
r.w:= 32; |
|
1301 |
r.h:= 32; |
|
1302 |
||
1303 |
if time = 0 then time:= 5000; |
|
1304 |
missionTimer:= time; |
|
3697 | 1305 |
if missionTex <> nil then |
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
|
1306 |
FreeTexture(missionTex); |
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
|
1307 |
missionTex:= nil; |
2786 | 1308 |
|
1309 |
if icon > -1 then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1310 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1311 |
r.x:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1312 |
r.y:= icon * 32; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1313 |
missionTex:= RenderHelpWindow(caption, subcaption, text, '', 0, MissionIcons, @r) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1314 |
end |
2786 | 1315 |
else |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1316 |
begin |
4626
775f43e90383
fixed showmission so it actually displays the right icons
Henek
parents:
4482
diff
changeset
|
1317 |
r.x:= ((-icon - 1) shr 4) * 32; |
775f43e90383
fixed showmission so it actually displays the right icons
Henek
parents:
4482
diff
changeset
|
1318 |
r.y:= ((-icon - 1) mod 16) * 32; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1319 |
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
|
1320 |
end; |
2786 | 1321 |
end; |
1322 |
||
1323 |
procedure HideMission; |
|
1324 |
begin |
|
3045 | 1325 |
missionTimer:= 0; |
1326 |
if missionTex <> nil then FreeTexture(missionTex); |
|
2786 | 1327 |
end; |
1328 |
||
6011
519f8a58c021
Fix a bunch of warnings (also improves speed a bit in 32 bit code)
unC0Rr
parents:
5862
diff
changeset
|
1329 |
procedure ShakeCamera(amount: LongInt); |
3032 | 1330 |
begin |
5800
3a04c30e5ac7
NEEDS TESTING. Try reenabling camera shake based on unc0rr's comment.
nemo
parents:
5684
diff
changeset
|
1331 |
if isCursorVisible then exit; |
5855
74c621e12baa
I do believe the only thing that was *ever* wrong with camera shake was someone decided to use getRandom on something that had always been a visual effect anyway. Pretty sure WorldDx is in fact safe to modify.
nemo
parents:
5852
diff
changeset
|
1332 |
amount:= Max(1, round(amount*zoom/2)); |
74c621e12baa
I do believe the only thing that was *ever* wrong with camera shake was someone decided to use getRandom on something that had always been a visual effect anyway. Pretty sure WorldDx is in fact safe to modify.
nemo
parents:
5852
diff
changeset
|
1333 |
WorldDx:= WorldDx - amount + LongInt(random(1 + amount * 2)); |
74c621e12baa
I do believe the only thing that was *ever* wrong with camera shake was someone decided to use getRandom on something that had always been a visual effect anyway. Pretty sure WorldDx is in fact safe to modify.
nemo
parents:
5852
diff
changeset
|
1334 |
WorldDy:= WorldDy - amount + LongInt(random(1 + amount * 2)); |
74c621e12baa
I do believe the only thing that was *ever* wrong with camera shake was someone decided to use getRandom on something that had always been a visual effect anyway. Pretty sure WorldDx is in fact safe to modify.
nemo
parents:
5852
diff
changeset
|
1335 |
//CursorPoint.X:= CursorPoint.X - amount + LongInt(random(1 + amount * 2)); |
74c621e12baa
I do believe the only thing that was *ever* wrong with camera shake was someone decided to use getRandom on something that had always been a visual effect anyway. Pretty sure WorldDx is in fact safe to modify.
nemo
parents:
5852
diff
changeset
|
1336 |
//CursorPoint.Y:= CursorPoint.Y - amount + LongInt(random(1 + amount * 2)) |
3032 | 1337 |
end; |
1338 |
||
5521 | 1339 |
|
1340 |
procedure onFocusStateChanged; |
|
1341 |
begin |
|
1342 |
if (not cHasFocus) and (GameState <> gsConfirm) then |
|
5523 | 1343 |
ParseCommand('quit', true); |
5521 | 1344 |
end; |
1345 |
||
1346 |
||
3038 | 1347 |
procedure initModule; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
1348 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1349 |
fpsTexture:= nil; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1350 |
FollowGear:= nil; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1351 |
WindBarWidth:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1352 |
bShowAmmoMenu:= false; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1353 |
bSelected:= false; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1354 |
bShowFinger:= false; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1355 |
Frames:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1356 |
WorldDx:= -512; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1357 |
WorldDy:= -256; |
3697 | 1358 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1359 |
FPS:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1360 |
CountTicks:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1361 |
SoundTimerTicks:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1362 |
prevPoint.X:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1363 |
prevPoint.Y:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2931
diff
changeset
|
1364 |
missionTimer:= 0; |
3240 | 1365 |
missionTex:= nil; |
3463 | 1366 |
cOffsetY:= 0; |
4850 | 1367 |
stereoDepth:= 0; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
1368 |
end; |
4 | 1369 |
|
3038 | 1370 |
procedure freeModule; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
1371 |
begin |
4850 | 1372 |
stereoDepth:= stereoDepth; // avoid hint |
4901 | 1373 |
FreeTexture(fpsTexture); |
1374 |
FreeTexture(timeTexture); |
|
1375 |
FreeTexture(missionTex); |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
1376 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
1377 |
|
4 | 1378 |
end. |