author | smxx |
Mon, 01 Mar 2010 22:25:57 +0000 (2010-03-01) | |
changeset 2908 | bd1909984a09 |
parent 2905 | f3c79f7193a9 |
child 2921 | b7a636503298 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
1689 | 3 |
* Copyright (c) 2004-2009 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"} |
20 |
||
4 | 21 |
unit uWorld; |
22 |
interface |
|
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
|
23 |
uses SDLh, uGears, uConsts, uFloat, uRandom; |
2630 | 24 |
|
4 | 25 |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
26 |
var FollowGear: PGear; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
27 |
WindBarWidth: LongInt; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
28 |
bShowAmmoMenu: boolean; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
29 |
bSelected: boolean; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
30 |
bShowFinger: boolean; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
31 |
Frames: Longword; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
32 |
WaterColor, DeepWaterColor: TSDL_Color; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
33 |
WorldDx: LongInt; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
34 |
WorldDy: LongInt; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
35 |
{$IFDEF COUNTTICKS} |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
36 |
cntTicks: LongWord; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
37 |
{$ENDIF} |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
38 |
|
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
39 |
procedure init_uWorld; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
40 |
procedure free_uWorld; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
41 |
|
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
42 |
procedure InitWorld; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
43 |
procedure DrawWorld(Lag: LongInt); |
2905 | 44 |
procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup); |
45 |
procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
|
2786 | 46 |
procedure HideMission; |
4 | 47 |
|
48 |
implementation |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
49 |
uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, uAmmos, uVisualGears, uChat, uLandTexture, uLand, |
2152 | 50 |
{$IFDEF GLES11} |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
51 |
gles11; |
1906 | 52 |
{$ELSE} |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
53 |
GL; |
1906 | 54 |
{$ENDIF} |
1807 | 55 |
|
4 | 56 |
type TCaptionStr = record |
762 | 57 |
Tex: PTexture; |
4 | 58 |
EndTime: LongWord; |
59 |
end; |
|
60 |
||
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
61 |
var cWaveWidth, cWaveHeight: LongInt; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
62 |
Captions: array[TCapGroup] of TCaptionStr; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
63 |
AMxShift, SlotsNum: LongInt; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
64 |
tmpSurface: PSDL_Surface; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
65 |
fpsTexture: PTexture; |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
66 |
timeTexture: PTexture; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
67 |
FPS: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
68 |
CountTicks: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
69 |
SoundTimerTicks: Longword; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
70 |
prevPoint: TPoint; |
2747 | 71 |
amSel: TAmmoType = amNothing; |
2786 | 72 |
missionTex: PTexture; |
73 |
missionTimer: LongInt; |
|
4 | 74 |
|
75 |
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
|
76 |
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
|
77 |
cp: PClan; |
2863 | 78 |
g: ansistring; |
79 |
||
2904 | 80 |
// helper functions to create the goal/game mode string |
2908 | 81 |
function AddGoal(s: ansistring; gf: longword; si: TGoalStrId; i: LongInt): ansistring; |
2905 | 82 |
var t: ansistring; |
2904 | 83 |
begin |
84 |
if (GameFlags and gf) <> 0 then |
|
85 |
begin |
|
86 |
t:= inttostr(i); |
|
87 |
s:= s + format(trgoal[si], t) + '|' |
|
88 |
end; |
|
89 |
AddGoal:= s; |
|
90 |
end; |
|
91 |
||
2908 | 92 |
function AddGoal(s: ansistring; gf: longword; si: TGoalStrId): ansistring; |
2863 | 93 |
begin |
2904 | 94 |
if (GameFlags and gf) <> 0 then |
95 |
s:= s + trgoal[si] + '|'; |
|
2863 | 96 |
AddGoal:= s; |
97 |
end; |
|
4 | 98 |
begin |
2786 | 99 |
missionTimer:= 0; |
100 |
||
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
|
101 |
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
|
102 |
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
|
103 |
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
|
104 |
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
|
105 |
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
|
106 |
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
|
107 |
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
|
108 |
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
|
109 |
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
|
110 |
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
|
111 |
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
|
112 |
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
|
113 |
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
|
114 |
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
|
115 |
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
|
116 |
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
|
117 |
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
|
118 |
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
|
119 |
|
2908 | 120 |
// if special game flags/settings are changed, add them to the game mode notice window and then show it |
2863 | 121 |
g:= ''; // no text/things to note yet |
2908 | 122 |
|
123 |
// modified damage modificator? |
|
124 |
if cDamagePercent <> 100 then |
|
125 |
g:= AddGoal(g, gfAny, gidDamageModifier, cDamagePercent); |
|
126 |
||
127 |
// modified mine timers? |
|
128 |
if cMinesTime <> 3000 then |
|
129 |
begin |
|
130 |
if cMinesTime = 0 then |
|
131 |
g:= AddGoal(g, gfMines, gidNoMineTimer) |
|
132 |
else if cMinesTime < 0 then |
|
133 |
g:= AddGoal(g, gfMines, gidRandomMineTimer) |
|
134 |
else |
|
135 |
g:= AddGoal(g, gfMines, gidMineTimer, cMinesTime div 1000); |
|
136 |
end; |
|
137 |
||
138 |
// check different game flags |
|
2863 | 139 |
g:= AddGoal(g, gfForts, gidForts); // forts? |
140 |
g:= AddGoal(g, gfLowGravity, gidLowGravity); // low gravity? |
|
141 |
g:= AddGoal(g, gfInvulnerable, gidInvulnerable); // invulnerability? |
|
142 |
g:= AddGoal(g, gfVampiric, gidVampiric); // vampirism? |
|
143 |
g:= AddGoal(g, gfKarma, gidKarma); // karma? |
|
144 |
g:= AddGoal(g, gfKing, gidKing); // king? |
|
145 |
g:= AddGoal(g, gfPlaceHog, gidPlaceHog); // placement? |
|
146 |
g:= AddGoal(g, gfArtillery, gidArtillery); // artillery? |
|
147 |
g:= AddGoal(g, gfSolidLand, gidSolidLand); // solid land? |
|
2903 | 148 |
g:= AddGoal(g, gfSharedAmmo, gidSharedAmmo); // shared ammo? |
2908 | 149 |
|
2863 | 150 |
// if the string has been set, show it for (default timeframe) seconds |
151 |
if g <> '' then ShowMission(trgoal[gidCaption], trgoal[gidSubCaption], g, 1, 0); |
|
152 |
||
1825 | 153 |
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
|
154 |
//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
|
155 |
cWaveHeight:= 32; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
156 |
|
284 | 157 |
cGearScrEdgesDist:= Min(cScreenWidth div 2 - 100, cScreenHeight div 2 - 50); |
74 | 158 |
SDL_WarpMouse(cScreenWidth div 2, cScreenHeight div 2); |
2197 | 159 |
prevPoint.X:= 0; |
74 | 160 |
prevPoint.Y:= cScreenHeight div 2; |
1760 | 161 |
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
|
162 |
WorldDy:= - (LAND_HEIGHT - (playHeight div 2)) + (cScreenHeight div 2); |
1120 | 163 |
AMxShift:= 210 |
161 | 164 |
end; |
165 |
||
956 | 166 |
procedure ShowAmmoMenu; |
161 | 167 |
const MENUSPEED = 15; |
2360
d4d545da9dbe
Ok. This time I think I have it. amNothing should work.
nemo
parents:
2359
diff
changeset
|
168 |
var x, y, i, t, l, g: LongInt; |
371 | 169 |
Slot, Pos: 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
|
170 |
Ammo: PHHAmmo; |
161 | 171 |
begin |
2885 | 172 |
if (TurnTimeLeft = 0) or (not CurrentTeam^.ExtDriven and (((CurAmmoGear = nil) or ((CurAmmoGear^.Ammo^.Propz and ammoprop_AltAttack) = 0)) and hideAmmoMenu)) then bShowAmmoMenu:= false; |
165 | 173 |
if bShowAmmoMenu then |
174 |
begin |
|
2226
e35b62cb7a1c
Try turning off follow gear while ammo menu is open - needs testing w/ rope/parachute/jetpack
nemo
parents:
2224
diff
changeset
|
175 |
FollowGear:= nil; |
1120 | 176 |
if AMxShift = 210 then prevPoint.X:= 0; |
1812 | 177 |
if cReducedQuality then |
178 |
AMxShift:= 0 |
|
179 |
else |
|
180 |
if AMxShift > 0 then dec(AMxShift, MENUSPEED); |
|
165 | 181 |
end else |
182 |
begin |
|
1120 | 183 |
if AMxShift = 0 then |
165 | 184 |
begin |
2579 | 185 |
CursorPoint.X:= cScreenWidth shr 1; |
186 |
CursorPoint.Y:= cScreenHeight shr 1; |
|
165 | 187 |
prevPoint:= CursorPoint; |
2197 | 188 |
SDL_WarpMouse(CursorPoint.X + cScreenWidth div 2, cScreenHeight - CursorPoint.Y) |
165 | 189 |
end; |
1812 | 190 |
if cReducedQuality then |
191 |
AMxShift:= 210 |
|
192 |
else |
|
193 |
if AMxShift < 210 then inc(AMxShift, MENUSPEED); |
|
165 | 194 |
end; |
2857
768dfbe276a5
Fix spectator crash due to missing nil check in new dust gear, init Ammo to nil in World prior to nil check
nemo
parents:
2856
diff
changeset
|
195 |
Ammo:= nil; |
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
196 |
if (CurrentTeam <> nil) and (CurrentHedgehog <> nil) and (not CurrentTeam^.ExtDriven) and (CurrentHedgehog^.BotLevel = 0) then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
197 |
Ammo:= CurrentHedgehog^.Ammo |
2856
cc70797a0b75
Adjust LocalClan when shuffling, set to -1 in case all local clans are bots.
nemo
parents:
2855
diff
changeset
|
198 |
else if (LocalAmmo <> -1) then |
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
199 |
Ammo:= GetAmmoByNum(LocalAmmo); |
162 | 200 |
Slot:= 0; |
201 |
Pos:= -1; |
|
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
202 |
if Ammo = nil then exit; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
203 |
SlotsNum:= 0; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
204 |
x:= (cScreenWidth shr 1) - 210 + AMxShift; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
205 |
y:= cScreenHeight - 40; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
206 |
dec(y); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
207 |
DrawSprite(sprAMBorders, x, y, 0); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
208 |
dec(y); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
209 |
DrawSprite(sprAMBorders, x, y, 1); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
210 |
dec(y, 33); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
211 |
DrawSprite(sprAMSlotName, x, y, 0); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
212 |
for i:= cMaxSlotIndex downto 0 do |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
213 |
if ((i = 0) and (Ammo^[i, 1].Count > 0)) or ((i <> 0) and (Ammo^[i, 0].Count > 0)) then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
214 |
begin |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
215 |
if (cScreenHeight - CursorPoint.Y >= y - 33) and (cScreenHeight - CursorPoint.Y < y) then Slot:= i; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
216 |
dec(y, 33); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
217 |
inc(SlotsNum); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
218 |
DrawSprite(sprAMSlot, x, y, 0); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
219 |
DrawSprite(sprAMSlotKeys, x + 2, y + 1, i); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
220 |
t:= 0; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
221 |
g:= 0; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
222 |
while (t <= cMaxSlotAmmoIndex) and (Ammo^[i, t].Count > 0) do |
1529
3bc916b419cd
Don't hide ammo menu when user clicks on not yet available weapon
unc0rr
parents:
1439
diff
changeset
|
223 |
begin |
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
224 |
if (Ammo^[i, t].AmmoType <> amNothing) then |
1529
3bc916b419cd
Don't hide ammo menu when user clicks on not yet available weapon
unc0rr
parents:
1439
diff
changeset
|
225 |
begin |
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
226 |
l:= Ammoz[Ammo^[i, t].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber; |
1529
3bc916b419cd
Don't hide ammo menu when user clicks on not yet available weapon
unc0rr
parents:
1439
diff
changeset
|
227 |
|
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
228 |
if l >= 0 then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
229 |
begin |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
230 |
DrawSprite(sprAMAmmosBW, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
231 |
if l < 100 then DrawSprite(sprTurnsLeft, x + g * 33 + 51, y + 17, l); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
232 |
end else |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
233 |
DrawSprite(sprAMAmmos, x + g * 33 + 35, y + 1, LongInt(Ammo^[i, t].AmmoType)-1); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
234 |
if (Slot = i) |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
235 |
and (CursorPoint.X >= x + g * 33 + 35) |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
236 |
and (CursorPoint.X < x + g * 33 + 68) then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
237 |
begin |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
238 |
if (l < 0) then DrawSprite(sprAMSelection, x + g * 33 + 35, y + 1, 0); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
239 |
Pos:= t; |
2379 | 240 |
end; |
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
241 |
inc(g) |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
242 |
end; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
243 |
inc(t) |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
244 |
end |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
245 |
end; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
246 |
dec(y, 1); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
247 |
DrawSprite(sprAMBorders, x, y, 0); |
961
a9a349b2b3fa
Use turnsleft sprites to indicate turns left to activate ammo
unc0rr
parents:
956
diff
changeset
|
248 |
|
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
249 |
if (Pos >= 0) then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
250 |
begin |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
251 |
if (Ammo^[Slot, Pos].Count > 0) and (Ammo^[Slot, Pos].AmmoType <> amNothing) then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
252 |
if (amSel <> Ammo^[Slot, Pos].AmmoType) or (WeaponTooltipTex = nil) then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
253 |
begin |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
254 |
amSel:= Ammo^[Slot, Pos].AmmoType; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
255 |
RenderWeaponTooltip(amSel) |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
256 |
end; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
257 |
|
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
258 |
DrawTexture(cScreenWidth div 2 - 200 + AMxShift, cScreenHeight - 68, Ammoz[Ammo^[Slot, Pos].AmmoType].NameTex); |
2376 | 259 |
|
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
260 |
if Ammo^[Slot, Pos].Count < AMMO_INFINITE then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
261 |
DrawTexture(cScreenWidth div 2 + AMxShift - 35, cScreenHeight - 68, CountTexz[Ammo^[Slot, Pos].Count]); |
2376 | 262 |
|
2855
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
263 |
if bSelected and (Ammoz[Ammo^[Slot, Pos].AmmoType].SkipTurns - CurrentTeam^.Clan^.TurnNumber < 0) then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
264 |
begin |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
265 |
bShowAmmoMenu:= false; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
266 |
SetWeapon(Ammo^[Slot, Pos].AmmoType); |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
267 |
bSelected:= false; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
268 |
FreeWeaponTooltip; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
269 |
exit |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
270 |
end; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
271 |
end |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
272 |
else |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
273 |
FreeWeaponTooltip; |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
274 |
|
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
275 |
if (WeaponTooltipTex <> nil) and (AMxShift = 0) then |
7e6adeb57427
Show the ammo menu of the last local non-bot team when not local turn. needs testing
nemo
parents:
2851
diff
changeset
|
276 |
ShowWeaponTooltip(x - WeaponTooltipTex^.w - 3, y); |
162 | 277 |
|
278 |
bSelected:= false; |
|
2197 | 279 |
if AMxShift = 0 then DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |
4 | 280 |
end; |
281 |
||
162 | 282 |
procedure MoveCamera; forward; |
283 |
||
2269
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
284 |
procedure DrawWater(Alpha: byte); |
1915 | 285 |
var VertexBuffer: array [0..3] of TVertex2f; |
286 |
r: TSDL_Rect; |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
287 |
lw, lh: GLfloat; |
1915 | 288 |
begin |
2269
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
289 |
WaterColorArray[0].a := Alpha; |
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
290 |
WaterColorArray[1].a := Alpha; |
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
291 |
WaterColorArray[2].a := Alpha; |
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
292 |
WaterColorArray[3].a := Alpha; |
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
293 |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
294 |
lw:= cScreenWidth / cScaleFactor; |
2378 | 295 |
lh:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 + 16; |
1915 | 296 |
// Water |
2378 | 297 |
r.y:= WorldDy + cWaterLine; |
298 |
if WorldDy < trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine then |
|
1915 | 299 |
begin |
300 |
if r.y < 0 then r.y:= 0; |
|
301 |
||
302 |
glDisable(GL_TEXTURE_2D); |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
303 |
VertexBuffer[0].X:= -lw; |
1915 | 304 |
VertexBuffer[0].Y:= r.y; |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
305 |
VertexBuffer[1].X:= lw; |
1915 | 306 |
VertexBuffer[1].Y:= r.y; |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
307 |
VertexBuffer[2].X:= lw; |
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
308 |
VertexBuffer[2].Y:= lh; |
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
309 |
VertexBuffer[3].X:= -lw; |
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
310 |
VertexBuffer[3].Y:= lh; |
1915 | 311 |
|
312 |
glEnableClientState (GL_COLOR_ARRAY); |
|
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
|
313 |
glColorPointer(4, GL_UNSIGNED_BYTE, 0, @WaterColorArray[0]); |
1915 | 314 |
|
315 |
glEnableClientState(GL_VERTEX_ARRAY); |
|
316 |
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
|
317 |
|
1915 | 318 |
glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer)); |
319 |
||
2330 | 320 |
glDisableClientState(GL_VERTEX_ARRAY); |
1915 | 321 |
glDisableClientState(GL_COLOR_ARRAY); |
322 |
||
323 |
glColor4f(1, 1, 1, 1); // disable coloring |
|
324 |
glEnable(GL_TEXTURE_2D) |
|
325 |
end |
|
326 |
end; |
|
327 |
||
2288 | 328 |
procedure DrawWaves(Dir, dX, dY: LongInt); |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
329 |
var VertexBuffer, TextureBuffer: array [0..3] of TVertex2f; |
2374 | 330 |
lw, waves, shift: GLfloat; |
2288 | 331 |
begin |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
332 |
lw:= cScreenWidth / cScaleFactor; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
333 |
waves:= lw * 2 / cWaveWidth; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
334 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
335 |
glBindTexture(GL_TEXTURE_2D, SpritesData[sprWater].Texture^.id); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
336 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
337 |
VertexBuffer[0].X:= -lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
338 |
VertexBuffer[0].Y:= cWaterLine + WorldDy + dY; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
339 |
VertexBuffer[1].X:= lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
340 |
VertexBuffer[1].Y:= VertexBuffer[0].Y; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
341 |
VertexBuffer[2].X:= lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
342 |
VertexBuffer[2].Y:= VertexBuffer[0].Y + SpritesData[sprWater].Height; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
343 |
VertexBuffer[3].X:= -lw; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
344 |
VertexBuffer[3].Y:= VertexBuffer[2].Y; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
345 |
|
2374 | 346 |
shift:= - lw / cWaveWidth; |
2495 | 347 |
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
|
348 |
TextureBuffer[0].Y:= 0; |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
349 |
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
|
350 |
TextureBuffer[1].Y:= TextureBuffer[0].Y; |
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2434
diff
changeset
|
351 |
TextureBuffer[2].X:= TextureBuffer[1].X; |
2553 | 352 |
TextureBuffer[2].Y:= SpritesData[sprWater].Texture^.ry; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
353 |
TextureBuffer[3].X:= TextureBuffer[0].X; |
2447
08d623a494e6
Smaxx's updated german translation + texture gap fixes + updated room list
koda
parents:
2434
diff
changeset
|
354 |
TextureBuffer[3].Y:= TextureBuffer[2].Y; |
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
355 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
356 |
glEnableClientState(GL_VERTEX_ARRAY); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
357 |
glEnableClientState(GL_TEXTURE_COORD_ARRAY); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
358 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
359 |
glVertexPointer(2, GL_FLOAT, 0, @VertexBuffer[0]); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
360 |
glTexCoordPointer(2, GL_FLOAT, 0, @TextureBuffer[0]); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
361 |
glDrawArrays(GL_TRIANGLE_FAN, 0, Length(VertexBuffer)); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
362 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
363 |
glDisableClientState(GL_TEXTURE_COORD_ARRAY); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
364 |
glDisableClientState(GL_VERTEX_ARRAY); |
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
365 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
366 |
|
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
367 |
{for i:= -1 to cWaterSprCount do |
2288 | 368 |
DrawSprite(sprWater, |
369 |
i * cWaveWidth + ((WorldDx + (RealTicks shr 6) * Dir + dX) mod cWaveWidth) - (cScreenWidth div 2), |
|
370 |
cWaterLine + WorldDy + dY, |
|
2292
87af4ad0ec98
New waves rendering procedure based on using texture coodrinates > 1.0
unc0rr
parents:
2290
diff
changeset
|
371 |
0)} |
2288 | 372 |
end; |
373 |
||
2426 | 374 |
procedure DrawRepeated(spr, sprL, sprR: TSprite; Shift: LongInt); |
375 |
var i, w, sw: LongInt; |
|
376 |
begin |
|
377 |
sw:= round(cScreenWidth / cScaleFactor); |
|
378 |
if (SpritesData[sprL].Texture = nil) or (SpritesData[sprR].Texture = nil) then |
|
379 |
begin |
|
380 |
w:= SpritesData[spr].Width; |
|
381 |
i:= Shift mod w; |
|
382 |
if i > 0 then dec(i, w); |
|
383 |
dec(i, w * (sw div w + 1)); |
|
384 |
repeat |
|
385 |
DrawSprite(spr, i, WorldDy + LAND_HEIGHT - SpritesData[spr].Height, 0); |
|
386 |
inc(i, w) |
|
387 |
until i > sw |
|
388 |
end else |
|
389 |
begin |
|
390 |
w:= SpritesData[spr].Width; |
|
391 |
dec(Shift, w div 2); |
|
392 |
DrawSprite(spr, Shift, WorldDy + LAND_HEIGHT - SpritesData[spr].Height, 0); |
|
393 |
||
394 |
sw:= round(cScreenWidth / cScaleFactor); |
|
395 |
||
396 |
i:= Shift - SpritesData[sprL].Width; |
|
397 |
while i >= -sw - SpritesData[sprL].Width do |
|
398 |
begin |
|
399 |
DrawSprite(sprL, i, WorldDy + LAND_HEIGHT - SpritesData[sprL].Height, 0); |
|
400 |
dec(i, SpritesData[sprL].Width); |
|
401 |
end; |
|
402 |
||
403 |
i:= Shift + w; |
|
404 |
while i <= sw do |
|
405 |
begin |
|
406 |
DrawSprite(sprR, i, WorldDy + LAND_HEIGHT - SpritesData[sprR].Height, 0); |
|
407 |
inc(i, SpritesData[sprR].Width) |
|
408 |
end |
|
409 |
end |
|
410 |
end; |
|
411 |
||
412 |
||
956 | 413 |
procedure DrawWorld(Lag: LongInt); |
371 | 414 |
var i, t: LongInt; |
4 | 415 |
r: TSDL_Rect; |
107 | 416 |
tdx, tdy: Double; |
175 | 417 |
grp: TCapGroup; |
174 | 418 |
s: string[15]; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
419 |
highlight: Boolean; |
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
420 |
offset, offsetX, offsetY: LongInt; |
2724 | 421 |
scale: GLfloat; |
4 | 422 |
begin |
2372 | 423 |
if ZoomValue < zoom then |
424 |
begin |
|
2379 | 425 |
zoom:= zoom - 0.002 * Lag; |
2374 | 426 |
if ZoomValue > zoom then zoom:= ZoomValue |
2372 | 427 |
end else |
428 |
if ZoomValue > zoom then |
|
429 |
begin |
|
2379 | 430 |
zoom:= zoom + 0.002 * Lag; |
2374 | 431 |
if ZoomValue < zoom then zoom:= ZoomValue |
2372 | 432 |
end; |
2376 | 433 |
|
770 | 434 |
// Sky |
756 | 435 |
glClear(GL_COLOR_BUFFER_BIT); |
436 |
glEnable(GL_BLEND); |
|
775 | 437 |
glEnable(GL_TEXTURE_2D); |
777 | 438 |
//glPushMatrix; |
439 |
//glScalef(1.0, 1.0, 1.0); |
|
756 | 440 |
|
281
5b483aa9f2ab
Pause support (mouse cursor is released when the game is paused)
unc0rr
parents:
244
diff
changeset
|
441 |
if not isPaused then MoveCamera; |
162 | 442 |
|
1812 | 443 |
if not cReducedQuality then |
444 |
begin |
|
445 |
// background |
|
2426 | 446 |
DrawRepeated(sprSky, sprSkyL, sprSkyR, (WorldDx + LAND_WIDTH div 2) * 3 div 8); |
447 |
DrawRepeated(sprHorizont, sprHorizontL, sprHorizontR, (WorldDx + LAND_WIDTH div 2) * 3 div 5); |
|
4 | 448 |
|
1812 | 449 |
DrawVisualGears(0); |
2288 | 450 |
end; |
803 | 451 |
|
2288 | 452 |
// Waves |
2579 | 453 |
DrawWaves( 1, 0, - (cWaveHeight shl 1)); |
454 |
DrawWaves(-1, 100, - (cWaveHeight + (cWaveHeight shr 1))); |
|
1812 | 455 |
|
4 | 456 |
|
762 | 457 |
DrawLand(WorldDx, WorldDy); |
1911 | 458 |
|
2269
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
459 |
DrawWater(255); |
4 | 460 |
|
1660 | 461 |
// Attack bar |
462 |
if CurrentTeam <> nil then |
|
463 |
case AttackBar of |
|
464 |
(* 1: begin |
|
465 |
r:= StuffPoz[sPowerBar]; |
|
466 |
{$WARNINGS OFF} |
|
467 |
r.w:= (CurrentHedgehog^.Gear^.Power * 256) div cPowerDivisor; |
|
468 |
{$WARNINGS ON} |
|
469 |
DrawSpriteFromRect(r, cScreenWidth - 272, cScreenHeight - 48, 16, 0, Surface); |
|
470 |
end;*) |
|
471 |
2: with CurrentHedgehog^ do |
|
472 |
begin |
|
473 |
tdx:= hwSign(Gear^.dX) * Sin(Gear^.Angle * Pi / cMaxAngle); |
|
474 |
tdy:= - Cos(Gear^.Angle * Pi / cMaxAngle); |
|
475 |
for i:= (Gear^.Power * 24) div cPowerDivisor downto 0 do |
|
476 |
DrawSprite(sprPower, |
|
2609 | 477 |
hwRound(Gear^.X) + round(WorldDx + tdx * (24 + i * 2)) - 16, |
478 |
hwRound(Gear^.Y) + round(WorldDy + tdy * (24 + i * 2)) - 12, |
|
1660 | 479 |
i) |
480 |
end |
|
481 |
end; |
|
482 |
||
2713 | 483 |
DrawVisualGears(1); |
484 |
||
956 | 485 |
DrawGears; |
4 | 486 |
|
2713 | 487 |
DrawVisualGears(2); |
1045 | 488 |
|
2273 | 489 |
DrawWater(cWaterOpacity); |
2269
00f5704f5f39
add extra semi-opaque layer of water to discolour objects in the water.
nemo
parents:
2268
diff
changeset
|
490 |
|
5 | 491 |
// Waves |
2288 | 492 |
DrawWaves( 1, 25, - cWaveHeight); |
2567 | 493 |
DrawWaves(-1, 50, - (cWaveHeight shr 1)); |
2288 | 494 |
DrawWaves( 1, 75, 0); |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
495 |
|
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
496 |
|
2288 | 497 |
{$WARNINGS OFF} |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
498 |
// Target |
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
499 |
if TargetPoint.X <> NoPointX then DrawSprite(sprTargetP, TargetPoint.X + WorldDx - 16, TargetPoint.Y + WorldDy - 16, 0); |
4 | 500 |
{$WARNINGS ON} |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
501 |
|
2567 | 502 |
{$IFDEF IPHONEOS} |
2724 | 503 |
scale:= 1.5; |
2567 | 504 |
{$ELSE} |
2724 | 505 |
scale:= 2.0; |
506 |
{$ENDIF} |
|
507 |
SetScale(scale); |
|
508 |
||
509 |
||
510 |
// Turn time |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
511 |
{$IFDEF IPHONEOS} |
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
512 |
offset:= 313; |
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
513 |
{$ELSE} |
2567 | 514 |
offset:= 48; |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
515 |
{$ENDIF} |
4 | 516 |
if TurnTimeLeft <> 0 then |
517 |
begin |
|
518 |
i:= Succ(Pred(TurnTimeLeft) div 1000); |
|
519 |
if i>99 then t:= 112 |
|
520 |
else if i>9 then t:= 96 |
|
521 |
else t:= 80; |
|
2567 | 522 |
DrawSprite(sprFrame, -cScreenWidth div 2 + t, cScreenHeight - offset, 1); |
4 | 523 |
while i > 0 do |
524 |
begin |
|
525 |
dec(t, 32); |
|
2567 | 526 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, cScreenHeight - offset, i mod 10); |
4 | 527 |
i:= i div 10 |
528 |
end; |
|
2567 | 529 |
DrawSprite(sprFrame, -cScreenWidth div 2 + t - 4, cScreenHeight - offset, 0); |
4 | 530 |
end; |
79 | 531 |
|
2567 | 532 |
{$IFNDEF IPHONEOS} |
2428 | 533 |
// Timetrial |
534 |
if ((TrainingFlags and tfTimeTrial) <> 0) and (TimeTrialStartTime > 0) then |
|
535 |
begin |
|
536 |
if TimeTrialStopTime = 0 then i:= RealTicks - TimeTrialStartTime else i:= TimeTrialStopTime - TimeTrialStartTime; |
|
537 |
t:= 272; |
|
538 |
// right frame |
|
539 |
DrawSprite(sprFrame, -cScreenWidth div 2 + t, 8, 1); |
|
540 |
dec(t, 32); |
|
541 |
// 1 ms |
|
542 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 10); |
|
543 |
dec(t, 32); |
|
544 |
i:= i div 10; |
|
545 |
// 10 ms |
|
546 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 10); |
|
547 |
dec(t, 32); |
|
548 |
i:= i div 10; |
|
549 |
// 100 ms |
|
550 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 10); |
|
551 |
dec(t, 16); |
|
552 |
// Point |
|
553 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, 11); |
|
554 |
dec(t, 32); |
|
555 |
i:= i div 10; |
|
556 |
// 1 s |
|
557 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 10); |
|
558 |
dec(t, 32); |
|
559 |
i:= i div 10; |
|
560 |
// 10s |
|
561 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 6); |
|
562 |
dec(t, 16); |
|
563 |
// Point |
|
564 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, 10); |
|
565 |
dec(t, 32); |
|
566 |
i:= i div 6; |
|
567 |
// 1 m |
|
568 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 10); |
|
569 |
dec(t, 32); |
|
570 |
i:= i div 10; |
|
571 |
// 10 m |
|
572 |
DrawSprite(sprBigDigit, -cScreenWidth div 2 + t, 8, i mod 10); |
|
573 |
// left frame |
|
574 |
DrawSprite(sprFrame, -cScreenWidth div 2 + t - 4, 8, 0); |
|
575 |
end; |
|
2567 | 576 |
{$ENDIF} |
577 |
||
4 | 578 |
// Captions |
2567 | 579 |
{$IFDEF IPHONEOS} |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
580 |
offset:= 40; |
2567 | 581 |
{$ELSE} |
2724 | 582 |
if ((TrainingFlags and tfTimeTrial) <> 0) and (TimeTrialStartTime > 0) then offset:= 48 |
583 |
else offset:= 8; |
|
2567 | 584 |
{$ENDIF} |
2428 | 585 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
586 |
for grp:= Low(TCapGroup) to High(TCapGroup) do |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
587 |
with Captions[grp] do |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
588 |
if Tex <> nil then |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
589 |
begin |
2724 | 590 |
DrawCentered(0, offset, Tex); |
591 |
inc(offset, Tex^.h + 2); |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
592 |
if EndTime <= RealTicks then |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
593 |
begin |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
594 |
FreeTexture(Tex); |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
595 |
Tex:= nil; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
596 |
EndTime:= 0 |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
597 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
598 |
end; |
4 | 599 |
|
47 | 600 |
// Teams Healths |
2747 | 601 |
|
547 | 602 |
for t:= 0 to Pred(TeamsCount) do |
603 |
with TeamsArray[t]^ do |
|
47 | 604 |
begin |
2839 | 605 |
highlight:= bShowFinger and (CurrentTeam = TeamsArray[t]) and ((RealTicks mod 1000) < 500); |
606 |
||
2747 | 607 |
if highlight then |
608 |
glColor4f(((Clan^.Color shr 16) and $ff) / $ff, ((Clan^.Color shr 8) and $ff) / $ff, (Clan^.Color and $ff) / $ff, 1); |
|
2839 | 609 |
|
610 |
// draw name |
|
611 |
DrawTexture(-NameTagTex^.w - 16, cScreenHeight + DrawHealthY, NameTagTex); |
|
612 |
||
613 |
// draw flag |
|
614 |
DrawTexture(-14, cScreenHeight + DrawHealthY, FlagTex); |
|
615 |
||
616 |
// draw health bar |
|
690 | 617 |
r.x:= 0; |
618 |
r.y:= 0; |
|
547 | 619 |
r.w:= 2 + TeamHealthBarWidth; |
764
7513452b1d51
Now game looks almost like it did before switching to OpenGL
unc0rr
parents:
762
diff
changeset
|
620 |
r.h:= HealthTex^.h; |
2747 | 621 |
DrawFromRect(14, cScreenHeight + DrawHealthY, @r, HealthTex); |
690 | 622 |
|
2839 | 623 |
// draw health bar's right border |
83 | 624 |
inc(r.x, cTeamHealthWidth + 2); |
625 |
r.w:= 3; |
|
2839 | 626 |
DrawFromRect(TeamHealthBarWidth + 16, cScreenHeight + DrawHealthY, @r, HealthTex); |
627 |
// if highlighted, draw flag and other contents again to keep their colors |
|
628 |
// this approach should be faster than drawing all borders one by one tinted or not |
|
629 |
if highlight then |
|
630 |
begin |
|
631 |
glColor4f(1, 1, 1, 1); |
|
690 | 632 |
|
2839 | 633 |
// draw name |
2747 | 634 |
r.x:= 2; |
635 |
r.y:= 2; |
|
2839 | 636 |
r.w:= NameTagTex^.w - 4; |
637 |
r.h:= NameTagTex^.h - 4; |
|
638 |
DrawFromRect(-NameTagTex^.w - 14, cScreenHeight + DrawHealthY + 2, @r, NameTagTex); |
|
639 |
// draw flag |
|
2747 | 640 |
r.w:= 22; |
641 |
r.h:= 15; |
|
642 |
DrawFromRect(-12, cScreenHeight + DrawHealthY + 2, @r, FlagTex); |
|
2839 | 643 |
// draw health bar |
644 |
r.w:= TeamHealthBarWidth + 1; |
|
645 |
r.h:= HealthTex^.h - 4; |
|
646 |
DrawFromRect(16, cScreenHeight + DrawHealthY + 2, @r, HealthTex); |
|
2747 | 647 |
end; |
47 | 648 |
end; |
649 |
||
5 | 650 |
// Lag alert |
2567 | 651 |
if isInLag then DrawSprite(sprLag, 32 - (cScreenWidth shr 1), 32, (RealTicks shr 7) mod 12); |
4 | 652 |
|
5 | 653 |
// Wind bar |
2567 | 654 |
{$IFDEF IPHONEOS} |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
655 |
offsetX:= 305; |
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
656 |
offsetY:= 315; |
2567 | 657 |
{$ELSE} |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
658 |
offsetX:= 30; |
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
659 |
offsetY:= 180; |
2567 | 660 |
{$ENDIF} |
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
661 |
DrawSprite(sprWindBar, (cScreenWidth shr 1) - offsetY, cScreenHeight - offsetX, 0); |
6 | 662 |
if WindBarWidth > 0 then |
5 | 663 |
begin |
689 | 664 |
{$WARNINGS OFF} |
665 |
r.x:= 8 - (RealTicks shr 6) mod 8; |
|
666 |
{$WARNINGS ON} |
|
667 |
r.y:= 0; |
|
668 |
r.w:= WindBarWidth; |
|
669 |
r.h:= 13; |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
670 |
DrawSpriteFromRect(sprWindR, r, (cScreenWidth shr 1) - offsetY + 77, cScreenHeight - offsetX + 2, 13, 0); |
5 | 671 |
end else |
6 | 672 |
if WindBarWidth < 0 then |
5 | 673 |
begin |
689 | 674 |
{$WARNINGS OFF} |
675 |
r.x:= (WindBarWidth + RealTicks shr 6) mod 8; |
|
676 |
{$WARNINGS ON} |
|
677 |
r.y:= 0; |
|
678 |
r.w:= - WindBarWidth; |
|
679 |
r.h:= 13; |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
680 |
DrawSpriteFromRect(sprWindL, r, (cScreenWidth shr 1) - offsetY + 74 + WindBarWidth, cScreenHeight - offsetX + 2, 13, 0); |
5 | 681 |
end; |
682 |
||
161 | 683 |
// AmmoMenu |
1120 | 684 |
if (AMxShift < 210) or bShowAmmoMenu then ShowAmmoMenu; |
161 | 685 |
|
2287 | 686 |
// Cursor |
687 |
if isCursorVisible and bShowAmmoMenu then |
|
688 |
DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8); |
|
942 | 689 |
|
2287 | 690 |
DrawChat; |
4 | 691 |
|
2567 | 692 |
if fastUntilLag then DrawCentered(0, (cScreenHeight shr 1), SyncTexture); |
693 |
if isPaused then DrawCentered(0, (cScreenHeight shr 1), PauseTexture); |
|
281
5b483aa9f2ab
Pause support (mouse cursor is released when the game is paused)
unc0rr
parents:
244
diff
changeset
|
694 |
|
2786 | 695 |
if missionTimer <> 0 then |
696 |
begin |
|
697 |
if missionTimer > 0 then dec(missionTimer, Lag); |
|
698 |
if missionTimer < 0 then missionTimer:= 0; // avoid subtracting below 0 |
|
699 |
if missionTex <> nil then |
|
2905 | 700 |
DrawCentered(0, min((cScreenHeight shr 1) + 100, cScreenHeight - 48 - missionTex^.h), missionTex); |
2786 | 701 |
end; |
702 |
||
2724 | 703 |
// fps |
704 |
{$IFDEF IPHONEOS} |
|
2803
1f446fc5c8ec
allow to compile engine as library with HWLIBRARY symbol
koda
parents:
2786
diff
changeset
|
705 |
offset:= 300; |
2724 | 706 |
{$ELSE} |
707 |
offset:= 10; |
|
708 |
{$ENDIF} |
|
4 | 709 |
inc(Frames); |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
710 |
|
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
711 |
if cShowFPS or (GameType = gmtDemo) then inc(CountTicks, Lag); |
2851 | 712 |
if (GameType = gmtDemo) and (CountTicks >= 1000) then |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
713 |
begin |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
714 |
i:=GameTicks div 60000; |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
715 |
t:=(GameTicks-(i*60000)) div 1000; |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
716 |
s:=''; |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
717 |
if i<10 then s:='0'; |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
718 |
s:= s+inttostr(i)+':'; |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
719 |
if t<10 then s:=s+'0'; |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
720 |
s:= s+inttostr(t); |
2851 | 721 |
if timeTexture <> nil then FreeTexture(timeTexture); |
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
722 |
tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels); |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
723 |
tmpSurface:= doSurfaceConversion(tmpSurface); |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
724 |
timeTexture:= Surface2Tex(tmpSurface, false); |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
725 |
SDL_FreeSurface(tmpSurface) |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
726 |
end; |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
727 |
|
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
728 |
if timeTexture <> nil then |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
729 |
DrawTexture((cScreenWidth shr 1) - 10 - timeTexture^.w, offset + timeTexture^.h+5, timeTexture); |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
730 |
|
298
112e61bd2cc2
Render FPS value to its own surface one time a second
unc0rr
parents:
295
diff
changeset
|
731 |
if cShowFPS then |
4 | 732 |
begin |
298
112e61bd2cc2
Render FPS value to its own surface one time a second
unc0rr
parents:
295
diff
changeset
|
733 |
if CountTicks >= 1000 then |
112e61bd2cc2
Render FPS value to its own surface one time a second
unc0rr
parents:
295
diff
changeset
|
734 |
begin |
112e61bd2cc2
Render FPS value to its own surface one time a second
unc0rr
parents:
295
diff
changeset
|
735 |
FPS:= Frames; |
112e61bd2cc2
Render FPS value to its own surface one time a second
unc0rr
parents:
295
diff
changeset
|
736 |
Frames:= 0; |
112e61bd2cc2
Render FPS value to its own surface one time a second
unc0rr
parents:
295
diff
changeset
|
737 |
CountTicks:= 0; |
112e61bd2cc2
Render FPS value to its own surface one time a second
unc0rr
parents:
295
diff
changeset
|
738 |
s:= inttostr(FPS) + ' fps'; |
759 | 739 |
if fpsTexture <> nil then FreeTexture(fpsTexture); |
2665
50b4e544c163
complete transition of longword->sdl_color for TTF bindings
koda
parents:
2630
diff
changeset
|
740 |
tmpSurface:= TTF_RenderUTF8_Blended(Fontz[fnt16].Handle, Str2PChar(s), cWhiteColorChannels); |
2670 | 741 |
tmpSurface:= doSurfaceConversion(tmpSurface); |
2290
bf87ca44782e
Selectively enable clamping - seeing if this helps avoid weird flake problems while still fixing vertical lines in waves and sky
nemo
parents:
2288
diff
changeset
|
742 |
fpsTexture:= Surface2Tex(tmpSurface, false); |
759 | 743 |
SDL_FreeSurface(tmpSurface) |
298
112e61bd2cc2
Render FPS value to its own surface one time a second
unc0rr
parents:
295
diff
changeset
|
744 |
end; |
759 | 745 |
if fpsTexture <> nil then |
2724 | 746 |
DrawTexture((cScreenWidth shr 1) - 50, offset, fpsTexture); |
4 | 747 |
end; |
174 | 748 |
|
2850
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
749 |
if CountTicks >= 1000 then CountTicks:= 0; |
f6f8db825ce7
A little clock for convenience in finding things in demos
nemo
parents:
2839
diff
changeset
|
750 |
|
2724 | 751 |
// lag warning (?) |
174 | 752 |
inc(SoundTimerTicks, Lag); |
753 |
if SoundTimerTicks >= 50 then |
|
754 |
begin |
|
755 |
SoundTimerTicks:= 0; |
|
756 |
if cVolumeDelta <> 0 then |
|
757 |
begin |
|
758 |
str(ChangeVolume(cVolumeDelta), s); |
|
2619 | 759 |
AddCaption(Format(trmsg[sidVolume], s), cWhiteColor, capgrpVolume) |
174 | 760 |
end |
756 | 761 |
end; |
762 |
||
2724 | 763 |
if GameState = gsConfirm then |
764 |
DrawCentered(0, cScreenHeight div 2, ConfirmTexture); |
|
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
765 |
|
2162 | 766 |
SetScale(zoom); |
1023 | 767 |
|
2287 | 768 |
// Cursor |
769 |
if isCursorVisible then |
|
770 |
begin |
|
771 |
if not bShowAmmoMenu then |
|
772 |
with CurrentHedgehog^ do |
|
773 |
if (Gear^.State and gstHHChooseTarget) <> 0 then |
|
774 |
begin |
|
775 |
i:= Ammo^[CurSlot, CurAmmo].Pos; |
|
776 |
with Ammoz[Ammo^[CurSlot, CurAmmo].AmmoType] do |
|
777 |
if PosCount > 1 then |
|
778 |
DrawSprite(PosSprite, CursorPoint.X - SpritesData[PosSprite].Width div 2, |
|
779 |
cScreenHeight - CursorPoint.Y - SpritesData[PosSprite].Height div 2, |
|
780 |
i); |
|
781 |
end; |
|
782 |
DrawSprite(sprArrow, CursorPoint.X, cScreenHeight - CursorPoint.Y, (RealTicks shr 6) mod 8) |
|
783 |
end; |
|
784 |
||
785 |
||
775 | 786 |
glDisable(GL_TEXTURE_2D); |
756 | 787 |
glDisable(GL_BLEND) |
4 | 788 |
end; |
789 |
||
2905 | 790 |
procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup); |
4 | 791 |
begin |
2142 | 792 |
//if Group in [capgrpGameState] then WriteLnToConsole(s); |
762 | 793 |
if Captions[Group].Tex <> nil then FreeTexture(Captions[Group].Tex); |
4 | 794 |
|
762 | 795 |
Captions[Group].Tex:= RenderStringTex(s, Color, fntBig); |
2142 | 796 |
|
797 |
case Group of |
|
798 |
capgrpGameState: Captions[Group].EndTime:= RealTicks + 2200 |
|
799 |
else |
|
2735 | 800 |
Captions[Group].EndTime:= RealTicks + 1400 + LongWord(Captions[Group].Tex^.w) * 3; |
2142 | 801 |
end; |
4 | 802 |
end; |
803 |
||
79 | 804 |
procedure MoveCamera; |
4 | 805 |
const PrevSentPointTime: LongWord = 0; |
2428 | 806 |
var EdgesDist, wdy: LongInt; |
4 | 807 |
begin |
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
|
808 |
if (not (CurrentTeam^.ExtDriven and isCursorVisible)) and cHasFocus then |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
809 |
begin |
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
810 |
SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y); |
2567 | 811 |
CursorPoint.X:= CursorPoint.X - (cScreenWidth shr 1); |
2197 | 812 |
CursorPoint.Y:= cScreenHeight - CursorPoint.Y; |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2152
diff
changeset
|
813 |
end; |
678 | 814 |
|
2762
2fbc8d35eb52
Mode to place hogs at start of game. Will probably need a bit more testing.
nemo
parents:
2747
diff
changeset
|
815 |
if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then |
1689 | 816 |
if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then |
817 |
begin |
|
818 |
FollowGear:= nil; |
|
2197 | 819 |
prevPoint:= CursorPoint; |
1689 | 820 |
exit |
821 |
end |
|
822 |
else begin |
|
2198 | 823 |
CursorPoint.x:= (prevPoint.x * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * 100 + WorldDx) div 8; |
2197 | 824 |
CursorPoint.y:= (prevPoint.y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8; |
1689 | 825 |
end; |
4 | 826 |
|
2375 | 827 |
wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater; |
828 |
if WorldDy < wdy then WorldDy:= wdy; |
|
829 |
||
2197 | 830 |
if ((CursorPoint.X = prevPoint.X) and (CursorPoint.Y = prevpoint.Y)) then exit; |
4 | 831 |
|
1120 | 832 |
if AMxShift < 210 then |
1689 | 833 |
begin |
2178
d8b3417b2704
Some fixes on camera broken by zoom code (ammo menu should work now)
unc0rr
parents:
2171
diff
changeset
|
834 |
if CursorPoint.X < cScreenWidth div 2 + AMxShift - 175 then CursorPoint.X:= cScreenWidth div 2 + AMxShift - 175; |
d8b3417b2704
Some fixes on camera broken by zoom code (ammo menu should work now)
unc0rr
parents:
2171
diff
changeset
|
835 |
if CursorPoint.X > cScreenWidth div 2 + AMxShift - 10 then CursorPoint.X:= cScreenWidth div 2 + AMxShift - 10; |
2197 | 836 |
if CursorPoint.Y > 75 + SlotsNum * 33 then CursorPoint.Y:= 75 + SlotsNum * 33; |
837 |
if CursorPoint.Y < 76 then CursorPoint.Y:= 76; |
|
1689 | 838 |
prevPoint:= CursorPoint; |
2197 | 839 |
if cHasFocus then SDL_WarpMouse(CursorPoint.X + cScreenWidth div 2, cScreenHeight - CursorPoint.Y); |
1689 | 840 |
exit |
841 |
end; |
|
162 | 842 |
|
4 | 843 |
if isCursorVisible then |
1689 | 844 |
begin |
2197 | 845 |
if (not CurrentTeam^.ExtDriven) and (GameTicks >= PrevSentPointTime + cSendCursorPosTime) then |
1689 | 846 |
begin |
2407
9f413bd5150e
- Fix mouse cursor bugs in net game (still has a bug near water)
unc0rr
parents:
2397
diff
changeset
|
847 |
SendIPCXY('P', CursorPoint.X - WorldDx, cScreenHeight - CursorPoint.Y - WorldDy); |
1689 | 848 |
PrevSentPointTime:= GameTicks |
849 |
end; |
|
850 |
end; |
|
351 | 851 |
|
4 | 852 |
if isCursorVisible or (FollowGear <> nil) then |
853 |
begin |
|
284 | 854 |
if isCursorVisible then EdgesDist:= cCursorEdgesDist |
855 |
else EdgesDist:= cGearScrEdgesDist; |
|
2197 | 856 |
if CursorPoint.X < - cScreenWidth div 2 + EdgesDist then |
4 | 857 |
begin |
2197 | 858 |
WorldDx:= WorldDx - CursorPoint.X - cScreenWidth div 2 + EdgesDist; |
859 |
CursorPoint.X:= - cScreenWidth div 2 + EdgesDist |
|
4 | 860 |
end else |
2197 | 861 |
if CursorPoint.X > cScreenWidth div 2 - EdgesDist then |
4 | 862 |
begin |
2197 | 863 |
WorldDx:= WorldDx - CursorPoint.X + cScreenWidth div 2 - EdgesDist; |
2198 | 864 |
CursorPoint.X:= cScreenWidth div 2 - EdgesDist |
4 | 865 |
end; |
284 | 866 |
if CursorPoint.Y < EdgesDist then |
4 | 867 |
begin |
2197 | 868 |
WorldDy:= WorldDy + CursorPoint.Y - EdgesDist; |
284 | 869 |
CursorPoint.Y:= EdgesDist |
4 | 870 |
end else |
284 | 871 |
if CursorPoint.Y > cScreenHeight - EdgesDist then |
4 | 872 |
begin |
2197 | 873 |
WorldDy:= WorldDy + CursorPoint.Y - cScreenHeight + EdgesDist; |
284 | 874 |
CursorPoint.Y:= cScreenHeight - EdgesDist |
4 | 875 |
end; |
876 |
end else |
|
308 | 877 |
if cHasFocus then |
878 |
begin |
|
70 | 879 |
WorldDx:= WorldDx - CursorPoint.X + prevPoint.X; |
2197 | 880 |
WorldDy:= WorldDy + CursorPoint.Y - prevPoint.Y; |
2162 | 881 |
CursorPoint.X:= 0; |
882 |
CursorPoint.Y:= cScreenHeight div 2; |
|
308 | 883 |
end; |
351 | 884 |
|
4 | 885 |
prevPoint:= CursorPoint; |
2567 | 886 |
if cHasFocus then SDL_WarpMouse(CursorPoint.X + (cScreenWidth shr 1), cScreenHeight - CursorPoint.Y); |
1760 | 887 |
if WorldDy > LAND_HEIGHT + 1024 then WorldDy:= LAND_HEIGHT + 1024; |
2375 | 888 |
if WorldDy < wdy then WorldDy:= wdy; |
2426 | 889 |
if WorldDx < - LAND_WIDTH - 1024 then WorldDx:= - LAND_WIDTH - 1024; |
890 |
if WorldDx > 1024 then WorldDx:= 1024; |
|
4 | 891 |
end; |
892 |
||
2905 | 893 |
procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
2786 | 894 |
var r: TSDL_Rect; |
895 |
begin |
|
896 |
r.w:= 32; |
|
897 |
r.h:= 32; |
|
898 |
||
899 |
if time = 0 then time:= 5000; |
|
900 |
missionTimer:= time; |
|
901 |
if missionTex <> nil then FreeTexture(missionTex); |
|
902 |
||
903 |
if icon > -1 then |
|
904 |
begin |
|
905 |
r.x:= 0; |
|
906 |
r.y:= icon * 32; |
|
907 |
missionTex:= RenderHelpWindow(caption, subcaption, text, '', 0, MissionIcons, @r) |
|
908 |
end |
|
909 |
else |
|
910 |
begin |
|
911 |
r.x:= ((-icon - 1) shr 5) * 32; |
|
912 |
r.y:= ((-icon - 1) mod 32) * 32; |
|
913 |
missionTex:= RenderHelpWindow(caption, subcaption, text, '', 0, SpritesData[sprAMAmmos].Surface, @r) |
|
914 |
end; |
|
915 |
end; |
|
916 |
||
917 |
procedure HideMission; |
|
918 |
begin |
|
919 |
missionTimer:= 0 |
|
920 |
end; |
|
921 |
||
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
922 |
procedure init_uWorld; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
923 |
begin |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
924 |
fpsTexture:= nil; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
925 |
FollowGear:= nil; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
926 |
WindBarWidth:= 0; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
927 |
bShowAmmoMenu:= false; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
928 |
bSelected:= false; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
929 |
bShowFinger:= false; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
930 |
Frames:= 0; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
931 |
WorldDx:= -512; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
932 |
WorldDy:= -256; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
933 |
|
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
934 |
FPS:= 0; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
935 |
CountTicks:= 0; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
936 |
SoundTimerTicks:= 0; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
937 |
prevPoint.X:= 0; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
938 |
prevPoint.Y:= 0; |
2786 | 939 |
missionTimer:= 0; |
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
940 |
|
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
941 |
FillChar(Captions, sizeof(Captions), 0) |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2682
diff
changeset
|
942 |
end; |
4 | 943 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
944 |
procedure free_uWorld; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
945 |
begin |
2786 | 946 |
if missionTex <> nil then FreeTexture(missionTex); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
947 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2713
diff
changeset
|
948 |
|
4 | 949 |
end. |