author | nemo |
Tue, 06 Nov 2018 12:44:38 -0500 | |
changeset 14168 | 89acfded7722 |
parent 14011 | b9b1d74b7fef |
child 14212 | a1178e1b57a6 |
permissions | -rw-r--r-- |
4 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
11046 | 3 |
* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
4 | 4 |
* |
183 | 5 |
* This program is free software; you can redistribute it and/or modify |
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
4 | 8 |
* |
183 | 9 |
* This program is distributed in the hope that it will be useful, |
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
4 | 13 |
* |
183 | 14 |
* You should have received a copy of the GNU General Public License |
15 |
* along with this program; if not, write to the Free Software |
|
10108
c68cf030eded
update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents:
10104
diff
changeset
|
16 |
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
4 | 17 |
*) |
18 |
||
2623 | 19 |
{$INCLUDE "options.inc"} |
4850 | 20 |
{$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF} |
2623 | 21 |
|
4 | 22 |
unit uStore; |
23 |
interface |
|
7043
7c080e5ac8d0
Some work to make more units compile after conversion to c
unc0rr
parents:
7028
diff
changeset
|
24 |
uses SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat; |
3692 | 25 |
|
3038 | 26 |
procedure initModule; |
27 |
procedure freeModule; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2705
diff
changeset
|
28 |
|
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
29 |
procedure LoadFonts(); |
6986
409dd3851309
add support for default pascal mode by removing default arguments value (maybe this also helps the parser)
koda
parents:
6982
diff
changeset
|
30 |
procedure StoreLoad(reload: boolean); |
409dd3851309
add support for default pascal mode by removing default arguments value (maybe this also helps the parser)
koda
parents:
6982
diff
changeset
|
31 |
procedure StoreRelease(reload: boolean); |
4 | 32 |
procedure RenderHealth(var Hedgehog: THedgehog); |
9656 | 33 |
function makeHealthBarTexture(w, h, Color: Longword): PTexture; |
4 | 34 |
procedure AddProgress; |
510 | 35 |
procedure FinishProgress; |
2905 | 36 |
function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
37 |
|
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8138
diff
changeset
|
38 |
// loads an image from the games data files |
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
39 |
function LoadDataImage(const path: TPathType; const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
40 |
// like LoadDataImage but uses altPath as fallback-path if file not found/loadable in path |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
41 |
function LoadDataImageAltPath(const path, altPath: TPathType; const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
42 |
// like LoadDataImage but uses altFile as fallback-filename if file cannot be loaded |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
43 |
function LoadDataImageAltFile(const path: TPathType; const filename, altFile: shortstring; imageFlags: LongInt): PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
44 |
|
7754 | 45 |
procedure LoadHedgehogHat(var HH: THedgehog; newHat: shortstring); |
10262 | 46 |
procedure LoadHedgehogHat2(var HH: THedgehog; newHat: shortstring; allowSurfReuse: boolean); |
47 |
||
13586
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
48 |
procedure LoadDefaultClanColors(s: shortstring); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
49 |
|
10302
ea0b0e2efd95
huh? me? nono, don't mind me. I'm just here to clean up.
sheepluva
parents:
10276
diff
changeset
|
50 |
procedure InitZoom(zoom: real); |
ea0b0e2efd95
huh? me? nono, don't mind me. I'm just here to clean up.
sheepluva
parents:
10276
diff
changeset
|
51 |
|
753 | 52 |
procedure SetupOpenGL; |
3394
47b51e22e670
Henek's patch - adds a column to ammoMenu and removes the F* column in iphone version
koda
parents:
3390
diff
changeset
|
53 |
function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture; |
2747 | 54 |
procedure RenderWeaponTooltip(atype: TAmmoType); |
55 |
procedure ShowWeaponTooltip(x, y: LongInt); |
|
4889
f71e30eb1d37
Reset things using team colour on change in SetClanColor in lua. This routine had better have been worth it.
nemo
parents:
4874
diff
changeset
|
56 |
procedure MakeCrossHairs; |
7235
baa69bd025d9
1. Implement new page in frontend with options for video recording.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
57 |
{$IFDEF USE_VIDEO_RECORDING} |
7180 | 58 |
procedure InitOffscreenOpenGL; |
7235
baa69bd025d9
1. Implement new page in frontend with options for video recording.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
59 |
{$ENDIF} |
4 | 60 |
|
7049 | 61 |
procedure WarpMouse(x, y: Word); inline; |
7866
58d10edc5d21
apparently we are forced to use a (dummy) callback for glut 3.0 compatibility
koda
parents:
7754
diff
changeset
|
62 |
procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF}; |
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
63 |
procedure SetSkyColor(r, g, b: real); |
7049 | 64 |
|
4 | 65 |
implementation |
10015 | 66 |
uses uMisc, uConsole, uVariables, uUtils, uTextures, uRender, uRenderUtils, |
13044
1df5b407f368
Fix quit menu showing incorrect key when using non-default bindings
Wuzzy <Wuzzy2@mail.ru>
parents:
13018
diff
changeset
|
67 |
uCommands, uPhysFSLayer, uDebug, uLocale, uInputHandler, adler32 |
11360 | 68 |
{$IFDEF USE_CONTEXT_RESTORE}, uWorld{$ENDIF}; |
4 | 69 |
|
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
70 |
//type TGPUVendor = (gvUnknown, gvNVIDIA, gvATI, gvIntel, gvApple); |
2568
e654cbfb23ba
Bunch of neat stuff by Smaxx. ATI check, translucent name tags to reduce terrain fail, disabling health crates on invulnerable hogs. Also tweaks to prior stuff.
nemo
parents:
2567
diff
changeset
|
71 |
|
11362 | 72 |
var |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8138
diff
changeset
|
73 |
squaresize : LongInt; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8138
diff
changeset
|
74 |
numsquares : LongInt; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8138
diff
changeset
|
75 |
ProgrTex: PTexture; |
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
76 |
LoadingText: PTexture; |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8138
diff
changeset
|
77 |
|
10262 | 78 |
prevHat: shortstring; |
79 |
tmpHatSurf: PSDL_Surface; |
|
80 |
||
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
81 |
const |
8145
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8138
diff
changeset
|
82 |
cHHFileName = 'Hedgehog'; |
6408c0ba4ba1
Move global variables to units that use them
Joe Doyle (Ginto8) <ginto8@gmail.com>
parents:
8138
diff
changeset
|
83 |
cCHFileName = 'Crosshair'; |
4 | 84 |
|
10262 | 85 |
procedure freeTmpHatSurf(); |
86 |
begin |
|
87 |
if tmpHatSurf = nil then exit; |
|
88 |
SDL_FreeSurface(tmpHatSurf); |
|
89 |
tmpHatSurf:= nil; |
|
90 |
prevHat:= 'NoHat'; |
|
91 |
end; |
|
7188
580cd247511e
Removed leftover FFP code: We should now be GL2 GLSL1.30+ forward compatible.
Wolfgang Steffens <WolfgangSteff@gmail.com>
parents:
7186
diff
changeset
|
92 |
|
10302
ea0b0e2efd95
huh? me? nono, don't mind me. I'm just here to clean up.
sheepluva
parents:
10276
diff
changeset
|
93 |
procedure InitZoom(zoom: real); |
ea0b0e2efd95
huh? me? nono, don't mind me. I'm just here to clean up.
sheepluva
parents:
10276
diff
changeset
|
94 |
begin |
ea0b0e2efd95
huh? me? nono, don't mind me. I'm just here to clean up.
sheepluva
parents:
10276
diff
changeset
|
95 |
SetScale(zoom); |
10644
3b8290381fcb
make sure view limits are updated at start of game
sheepluva
parents:
10640
diff
changeset
|
96 |
// make sure view limits are updated |
3b8290381fcb
make sure view limits are updated at start of game
sheepluva
parents:
10640
diff
changeset
|
97 |
// because SetScale() doesn't do it, if zoom=cScaleFactor |
3b8290381fcb
make sure view limits are updated at start of game
sheepluva
parents:
10640
diff
changeset
|
98 |
updateViewLimits(); |
10302
ea0b0e2efd95
huh? me? nono, don't mind me. I'm just here to clean up.
sheepluva
parents:
10276
diff
changeset
|
99 |
end; |
7188
580cd247511e
Removed leftover FFP code: We should now be GL2 GLSL1.30+ forward compatible.
Wolfgang Steffens <WolfgangSteff@gmail.com>
parents:
7186
diff
changeset
|
100 |
|
10102 | 101 |
function WriteInRect(Surface: PSDL_Surface; X, Y: LongInt; Color: LongWord; Font: THWFont; s: PChar): TSDL_Rect; |
2747 | 102 |
var w, h: LongInt; |
103 |
tmpsurf: PSDL_Surface; |
|
104 |
clr: TSDL_Color; |
|
105 |
finalRect: TSDL_Rect; |
|
106 |
begin |
|
3407 | 107 |
w:= 0; h:= 0; // avoid compiler hints |
10102 | 108 |
TTF_SizeUTF8(Fontz[Font].Handle, s, @w, @h); |
6982 | 109 |
finalRect.x:= X + cFontBorder + 2; |
110 |
finalRect.y:= Y + cFontBorder; |
|
111 |
finalRect.w:= w + cFontBorder * 2 + 4; |
|
112 |
finalRect.h:= h + cFontBorder * 2; |
|
2747 | 113 |
clr.r:= Color shr 16; |
114 |
clr.g:= (Color shr 8) and $FF; |
|
115 |
clr.b:= Color and $FF; |
|
10102 | 116 |
tmpsurf:= TTF_RenderUTF8_Blended(Fontz[Font].Handle, s, clr); |
11507 | 117 |
if tmpsurf = nil then exit; |
2747 | 118 |
tmpsurf:= doSurfaceConversion(tmpsurf); |
11507 | 119 |
|
120 |
if tmpsurf <> nil then |
|
121 |
begin |
|
122 |
SDL_UpperBlit(tmpsurf, nil, Surface, @finalRect); |
|
123 |
SDL_FreeSurface(tmpsurf); |
|
124 |
finalRect.x:= X; |
|
125 |
finalRect.y:= Y; |
|
126 |
finalRect.w:= w + cFontBorder * 2 + 4; |
|
127 |
finalRect.h:= h + cFontBorder * 2; |
|
128 |
end; |
|
129 |
||
2747 | 130 |
WriteInRect:= finalRect |
131 |
end; |
|
132 |
||
4889
f71e30eb1d37
Reset things using team colour on change in SetClanColor in lua. This routine had better have been worth it.
nemo
parents:
4874
diff
changeset
|
133 |
procedure MakeCrossHairs; |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
134 |
var tmpsurf: PSDL_Surface; |
4889
f71e30eb1d37
Reset things using team colour on change in SetClanColor in lua. This routine had better have been worth it.
nemo
parents:
4874
diff
changeset
|
135 |
begin |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
136 |
tmpsurf:= LoadDataImage(ptGraphics, cCHFileName, ifAlpha or ifCritical); |
4889
f71e30eb1d37
Reset things using team colour on change in SetClanColor in lua. This routine had better have been worth it.
nemo
parents:
4874
diff
changeset
|
137 |
|
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
138 |
CrosshairTexture:= Surface2Tex(tmpsurf, false); |
4889
f71e30eb1d37
Reset things using team colour on change in SetClanColor in lua. This routine had better have been worth it.
nemo
parents:
4874
diff
changeset
|
139 |
|
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
140 |
SDL_FreeSurface(tmpsurf) |
4889
f71e30eb1d37
Reset things using team colour on change in SetClanColor in lua. This routine had better have been worth it.
nemo
parents:
4874
diff
changeset
|
141 |
end; |
f71e30eb1d37
Reset things using team colour on change in SetClanColor in lua. This routine had better have been worth it.
nemo
parents:
4874
diff
changeset
|
142 |
|
9656 | 143 |
function makeHealthBarTexture(w, h, Color: Longword): PTexture; |
144 |
var |
|
145 |
rr: TSDL_Rect; |
|
146 |
texsurf: PSDL_Surface; |
|
147 |
begin |
|
148 |
rr.x:= 0; |
|
149 |
rr.y:= 0; |
|
150 |
rr.w:= w; |
|
151 |
rr.h:= h; |
|
152 |
||
153 |
texsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, w, h, 32, RMask, GMask, BMask, AMask); |
|
11532 | 154 |
if not checkFails(texsurf <> nil, errmsgCreateSurface, true) then |
12591 | 155 |
checkFails(SDL_SetColorKey(texsurf, SDL_TRUE, 0) = 0, errmsgTransparentSet, true); |
11532 | 156 |
|
157 |
if not allOK then exit(nil); |
|
9656 | 158 |
|
159 |
DrawRoundRect(@rr, cWhiteColor, cNearBlackColor, texsurf, true); |
|
160 |
||
161 |
rr.x:= 2; |
|
162 |
rr.y:= 2; |
|
163 |
rr.w:= w - 4; |
|
164 |
rr.h:= h - 4; |
|
165 |
||
166 |
DrawRoundRect(@rr, Color, Color, texsurf, false); |
|
167 |
makeHealthBarTexture:= Surface2Tex(texsurf, false); |
|
168 |
SDL_FreeSurface(texsurf); |
|
169 |
end; |
|
4 | 170 |
|
6492 | 171 |
procedure WriteNames(Font: THWFont); |
172 |
var t: LongInt; |
|
7495 | 173 |
i, maxLevel: LongInt; |
9656 | 174 |
r: TSDL_Rect; |
6492 | 175 |
drY: LongInt; |
176 |
texsurf, flagsurf, iconsurf: PSDL_Surface; |
|
7495 | 177 |
foundBot: boolean; |
9773 | 178 |
year, month, md : word; |
6492 | 179 |
begin |
10139 | 180 |
if cOnlyStats then exit; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
181 |
r.x:= 0; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
182 |
r.y:= 0; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
183 |
drY:= - 4; |
9954 | 184 |
{$IFNDEF PAS2C} |
9773 | 185 |
DecodeDate(Date, year, month, md); |
9954 | 186 |
{$ELSE} |
187 |
year:= 0; |
|
188 |
month:= 0; |
|
189 |
md:= 0; |
|
190 |
{$ENDIF} |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
191 |
for t:= 0 to Pred(TeamsCount) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
192 |
with TeamsArray[t]^ do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
193 |
begin |
13085
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
194 |
if ExtDriven then |
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
195 |
NameTagTex:= RenderStringTexLim(ansistring(TeamName), Clan^.Color, Font, cTeamHealthWidth) |
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
196 |
else NameTagTex:= RenderStringTex(ansistring(TeamName), Clan^.Color, Font); |
9791
446e4919b738
Display team owner in teams widget (addresses issue 174)
unc0rr
parents:
9774
diff
changeset
|
197 |
if length(Owner) > 0 then |
13085
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
198 |
if ExtDriven then |
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
199 |
OwnerTex:= RenderStringTexLim(ansistring(Owner), Clan^.Color, Font, cTeamHealthWidth) |
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
200 |
else OwnerTex:= RenderStringTex(ansistring(Owner), Clan^.Color, Font); |
690 | 201 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
202 |
r.x:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
203 |
r.y:= 0; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
204 |
r.w:= 32; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
205 |
r.h:= 32; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
206 |
texsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, r.w, r.h, 32, RMask, GMask, BMask, AMask); |
11532 | 207 |
if not checkFails(texsurf <> nil, errmsgCreateSurface, true) then |
12591 | 208 |
checkFails(SDL_SetColorKey(texsurf, SDL_TRUE, 0) = 0, errmsgTransparentSet, true); |
11532 | 209 |
if not allOK then exit; |
2747 | 210 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
211 |
r.w:= 26; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
212 |
r.h:= 19; |
2747 | 213 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
214 |
DrawRoundRect(@r, cWhiteColor, cNearBlackColor, texsurf, true); |
3697 | 215 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
216 |
// overwrite flag for cpu teams and keep players from using it |
7495 | 217 |
foundBot:= false; |
218 |
maxLevel:= -1; |
|
219 |
for i:= 0 to cMaxHHIndex do |
|
220 |
with Hedgehogs[i] do |
|
221 |
if (Gear <> nil) and (BotLevel > 0) then |
|
222 |
begin |
|
223 |
foundBot:= true; |
|
224 |
// initially was going to do the highest botlevel of the team, but for now, just apply if entire team has same bot level |
|
225 |
if maxLevel = -1 then maxLevel:= BotLevel |
|
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
226 |
else if (maxLevel > 0) and (maxLevel <> BotLevel) then maxLevel:= 0; |
7495 | 227 |
//if (maxLevel > 0) and (BotLevel < maxLevel) then maxLevel:= BotLevel |
228 |
end |
|
229 |
else if Gear <> nil then maxLevel:= 0; |
|
230 |
||
231 |
if foundBot then |
|
232 |
begin |
|
233 |
// disabled the plain flag - I think it looks ok even w/ full bars obscuring CPU |
|
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
234 |
//if (maxLevel > 0) and (maxLevel < 3) then Flag:= 'cpu_plain' else |
7495 | 235 |
Flag:= 'cpu' |
236 |
end |
|
237 |
else if (Flag = 'cpu') or (Flag = 'cpu_plain') then |
|
238 |
Flag:= 'hedgewars'; |
|
3697 | 239 |
|
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
240 |
flagsurf:= LoadDataImageAltFile(ptFlags, Flag, 'hedgewars', ifNone); |
11532 | 241 |
if not checkFails(flagsurf <> nil, 'Failed to load flag "' + Flag + '" as well as the default flag', true) then |
242 |
begin |
|
243 |
case maxLevel of |
|
244 |
1: copyToXY(SpritesData[sprBotlevels].Surface, flagsurf, 0, 0); |
|
245 |
2: copyToXYFromRect(SpritesData[sprBotlevels].Surface, flagsurf, 5, 2, 17, 13, 5, 2); |
|
246 |
3: copyToXYFromRect(SpritesData[sprBotlevels].Surface, flagsurf, 9, 5, 13, 10, 9, 5); |
|
247 |
4: copyToXYFromRect(SpritesData[sprBotlevels].Surface, flagsurf, 13, 9, 9, 6, 13, 9); |
|
248 |
5: copyToXYFromRect(SpritesData[sprBotlevels].Surface, flagsurf, 17, 11, 5, 4, 17, 11) |
|
249 |
end; |
|
7495 | 250 |
|
11532 | 251 |
copyToXY(flagsurf, texsurf, 2, 2); |
252 |
SDL_FreeSurface(flagsurf); |
|
253 |
flagsurf:= nil; |
|
254 |
end; |
|
7495 | 255 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
256 |
// restore black border pixels inside the flag |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
257 |
PLongwordArray(texsurf^.pixels)^[32 * 2 + 2]:= cNearBlackColor; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
258 |
PLongwordArray(texsurf^.pixels)^[32 * 2 + 23]:= cNearBlackColor; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
259 |
PLongwordArray(texsurf^.pixels)^[32 * 16 + 2]:= cNearBlackColor; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
260 |
PLongwordArray(texsurf^.pixels)^[32 * 16 + 23]:= cNearBlackColor; |
2747 | 261 |
|
7495 | 262 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
263 |
FlagTex:= Surface2Tex(texsurf, false); |
3041 | 264 |
SDL_FreeSurface(texsurf); |
4874 | 265 |
texsurf:= nil; |
3041 | 266 |
|
11532 | 267 |
if not allOK then exit; |
268 |
||
10127 | 269 |
AIKillsTex := RenderStringTex(ansistring(inttostr(stats.AIKills)), Clan^.Color, fnt16); |
13018
0248cf0da834
Add SetTeamLabel to Lua API, can set arbitrary string as team label
Wuzzy <Wuzzy2@mail.ru>
parents:
12920
diff
changeset
|
270 |
LuaTeamValueTex := RenderStringTex(LuaTeamValue, Clan^.Color, fnt16); |
3773 | 271 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
272 |
dec(drY, r.h + 2); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
273 |
DrawHealthY:= drY; |
7495 | 274 |
for i:= 0 to cMaxHHIndex do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
275 |
with Hedgehogs[i] do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
276 |
if Gear <> nil then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
277 |
begin |
13085
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
278 |
if ExtDriven then |
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
279 |
NameTagTex:= RenderStringTexLim(ansistring(Name), Clan^.Color, fnt16, cTeamHealthWidth) |
26173dd0c606
the clipping was just due to remote abuse anyway - this addresses a couple of the concerns from the bug
nemo
parents:
13044
diff
changeset
|
280 |
else NameTagTex:= RenderStringTex(ansistring(Name), Clan^.Color, fnt16); |
9773 | 281 |
if Hat = 'NoHat' then |
282 |
begin |
|
9807 | 283 |
if (month = 4) and (md = 20) then |
284 |
Hat := 'eastertop' // Easter |
|
9938 | 285 |
else if (month = 12) and ((md = 24) or (md = 25) or (md = 26)) then |
286 |
Hat := 'Santa' // Christmas Eve/Christmas/Boxing Day |
|
9807 | 287 |
else if (month = 10) and (md = 31) then |
9773 | 288 |
Hat := 'fr_pumpkin'; // Halloween/Hedgewars' birthday |
289 |
end; |
|
10526
b43d175d1577
Avoid promoting violence to hedgehogs. At least once a year.
nemo
parents:
10510
diff
changeset
|
290 |
if (month = 4) and (md = 1) then |
b43d175d1577
Avoid promoting violence to hedgehogs. At least once a year.
nemo
parents:
10510
diff
changeset
|
291 |
begin |
b43d175d1577
Avoid promoting violence to hedgehogs. At least once a year.
nemo
parents:
10510
diff
changeset
|
292 |
AprilOne:= true; |
13512
36f3f77e9b1b
Switch from http:// to https:// URLs where possible
Wuzzy <Wuzzy2@mail.ru>
parents:
13504
diff
changeset
|
293 |
Hat := 'fr_tomato'; // avoid promoting violence to hedgehogs. see https://hedgewars.org/node/5818 |
10526
b43d175d1577
Avoid promoting violence to hedgehogs. At least once a year.
nemo
parents:
10510
diff
changeset
|
294 |
end; |
10015 | 295 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
296 |
if Hat <> 'NoHat' then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
297 |
begin |
2874
3c7c2bf1ba38
A simple hat reservation mechanism. Can be worked around with a little effort, but to make it useful, you'd have to get everyone you played with to work around it too. Quite a bit of effort for a small reward feature.
nemo
parents:
2873
diff
changeset
|
298 |
if (Length(Hat) > 39) and (Copy(Hat,1,8) = 'Reserved') and (Copy(Hat,9,32) = PlayerHash) then |
10262 | 299 |
LoadHedgehogHat2(Hedgehogs[i], 'Reserved/' + Copy(Hat,9,Length(Hat)-8), true) |
2874
3c7c2bf1ba38
A simple hat reservation mechanism. Can be worked around with a little effort, but to make it useful, you'd have to get everyone you played with to work around it too. Quite a bit of effort for a small reward feature.
nemo
parents:
2873
diff
changeset
|
300 |
else |
10262 | 301 |
LoadHedgehogHat2(Hedgehogs[i], Hat, true); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
302 |
end |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
303 |
end; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
304 |
end; |
10262 | 305 |
|
306 |
freeTmpHatSurf(); |
|
307 |
||
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
308 |
MissionIcons:= LoadDataImage(ptGraphics, 'missions', ifCritical); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
309 |
iconsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, 28, 28, 32, RMask, GMask, BMask, AMask); |
3862 | 310 |
if iconsurf <> nil then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
311 |
begin |
3862 | 312 |
r.x:= 0; |
313 |
r.y:= 0; |
|
314 |
r.w:= 28; |
|
315 |
r.h:= 28; |
|
316 |
DrawRoundRect(@r, cWhiteColor, cNearBlackColor, iconsurf, true); |
|
317 |
ropeIconTex:= Surface2Tex(iconsurf, false); |
|
318 |
SDL_FreeSurface(iconsurf); |
|
319 |
iconsurf:= nil; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
320 |
end; |
9656 | 321 |
|
322 |
||
323 |
for t:= 0 to Pred(ClansCount) do |
|
324 |
with ClansArray[t]^ do |
|
325 |
HealthTex:= makeHealthBarTexture(cTeamHealthWidth + 5, Teams[0]^.NameTagTex^.h, Color); |
|
326 |
||
327 |
GenericHealthTexture:= makeHealthBarTexture(cTeamHealthWidth + 5, TeamsArray[0]^.NameTagTex^.h, cWhiteColor) |
|
6492 | 328 |
end; |
4 | 329 |
|
9656 | 330 |
|
6492 | 331 |
procedure InitHealth; |
332 |
var i, t: LongInt; |
|
333 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
334 |
for t:= 0 to Pred(TeamsCount) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
335 |
if TeamsArray[t] <> nil then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
336 |
with TeamsArray[t]^ do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
337 |
begin |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
338 |
for i:= 0 to cMaxHHIndex do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
339 |
if Hedgehogs[i].Gear <> nil then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
340 |
RenderHealth(Hedgehogs[i]); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
341 |
end |
6492 | 342 |
end; |
4 | 343 |
|
6492 | 344 |
procedure LoadGraves; |
345 |
var t: LongInt; |
|
346 |
texsurf: PSDL_Surface; |
|
347 |
begin |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
348 |
for t:= 0 to Pred(TeamsCount) do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
349 |
if TeamsArray[t] <> nil then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
350 |
with TeamsArray[t]^ do |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
351 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
352 |
if GraveName = '' then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
353 |
GraveName:= 'Statue'; |
12592 | 354 |
texsurf:= LoadDataImageAltFile(ptGraves, GraveName, 'Statue', ifCritical or ifColorKey); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
355 |
GraveTex:= Surface2Tex(texsurf, false); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
356 |
SDL_FreeSurface(texsurf) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
357 |
end |
6492 | 358 |
end; |
4 | 359 |
|
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
360 |
procedure LoadFonts(); |
6492 | 361 |
var s: shortstring; |
844 | 362 |
fi: THWFont; |
4 | 363 |
begin |
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
364 |
AddFileLog('LoadFonts();'); |
5714 | 365 |
|
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
366 |
if (not cOnlyStats) then |
5714 | 367 |
for fi:= Low(THWFont) to High(THWFont) do |
368 |
with Fontz[fi] do |
|
369 |
begin |
|
8025 | 370 |
s:= cPathz[ptFonts] + '/' + Name; |
5714 | 371 |
WriteToConsole(msgLoading + s + ' (' + inttostr(Height) + 'pt)... '); |
8028 | 372 |
Handle:= TTF_OpenFontRW(rwopsOpenRead(s), true, Height); |
11507 | 373 |
if SDLCheck(Handle <> nil, 'TTF_OpenFontRW', true) then exit; |
5714 | 374 |
TTF_SetFontStyle(Handle, style); |
375 |
WriteLnToConsole(msgOK) |
|
376 |
end; |
|
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
377 |
end; |
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
378 |
|
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
379 |
procedure StoreLoad(reload: boolean); |
12621 | 380 |
var ii: TSprite; |
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
381 |
ai: TAmmoType; |
12324 | 382 |
tmpsurf, tmpoverlay: PSDL_Surface; |
12711
20dbb3a03e61
extend land digest to all surfaces that could possibly be loaded into Land[] - i.e. ones that impact sync
nemo
parents:
12701
diff
changeset
|
383 |
i, y, imflags: LongInt; |
13343
93325e13d329
Change KeyBindToName to shortstring
Wuzzy <Wuzzy2@mail.ru>
parents:
13316
diff
changeset
|
384 |
keyConfirm, keyQuit: shortstring; |
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
385 |
begin |
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
386 |
AddFileLog('StoreLoad()'); |
53 | 387 |
|
10510 | 388 |
if not cOnlyStats then |
10139 | 389 |
begin |
390 |
MakeCrossHairs; |
|
391 |
LoadGraves; |
|
11100
c348a8afff6e
- Resolves problem with wrong path to chef hat on iOS
antonc27 <antonc27@mail.ru>
parents:
11086
diff
changeset
|
392 |
{$IFDEF IPHONEOS} |
c348a8afff6e
- Resolves problem with wrong path to chef hat on iOS
antonc27 <antonc27@mail.ru>
parents:
11086
diff
changeset
|
393 |
tmpHatSurf:= LoadDataImage(ptHats, 'chef', ifNone); |
c348a8afff6e
- Resolves problem with wrong path to chef hat on iOS
antonc27 <antonc27@mail.ru>
parents:
11086
diff
changeset
|
394 |
{$ELSE} |
10443
42dadeb6e8ae
Remove switching of hog's hat to chef. do it in draw instead.
nemo
parents:
10309
diff
changeset
|
395 |
tmpHatSurf:= LoadDataImage(ptHats, 'Reserved/chef', ifNone); |
11100
c348a8afff6e
- Resolves problem with wrong path to chef hat on iOS
antonc27 <antonc27@mail.ru>
parents:
11086
diff
changeset
|
396 |
{$ENDIF} |
10443
42dadeb6e8ae
Remove switching of hog's hat to chef. do it in draw instead.
nemo
parents:
10309
diff
changeset
|
397 |
ChefHatTexture:= Surface2Tex(tmpHatSurf, true); |
42dadeb6e8ae
Remove switching of hog's hat to chef. do it in draw instead.
nemo
parents:
10309
diff
changeset
|
398 |
freeTmpHatSurf(); |
10139 | 399 |
end; |
10510 | 400 |
|
6394
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
401 |
if not reload then |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
402 |
AddProgress; |
4 | 403 |
|
404 |
for ii:= Low(TSprite) to High(TSprite) do |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
405 |
with SpritesData[ii] do |
5215
d4c529624460
Try and avoid problem reported by users like RDChrisco with cards that only support 512 texture size, and disable backgrounds. Also, reorganise the rq flags sprite loading a bit. Needs testing to make sure it matches the sprite uses. It should though.
nemo
parents:
5187
diff
changeset
|
406 |
// FIXME - add a sprite attribute to match on rq flags? |
d4c529624460
Try and avoid problem reported by users like RDChrisco with cards that only support 512 texture size, and disable backgrounds. Also, reorganise the rq flags sprite loading a bit. Needs testing to make sure it matches the sprite uses. It should though.
nemo
parents:
5187
diff
changeset
|
407 |
if (((cReducedQuality and (rqNoBackground or rqLowRes)) = 0) or // why rqLowRes? |
10139 | 408 |
(not (ii in [sprSky, sprSkyL, sprSkyR, sprHorizont, sprHorizontL, sprHorizontR]))) |
10510 | 409 |
and (((cReducedQuality and rqPlainSplash) = 0) or ((not (ii in [sprSplash, sprDroplet, sprSDSplash, sprSDDroplet])))) |
10139 | 410 |
and (((cReducedQuality and rqKillFlakes) = 0) or cSnow or ((not (ii in [sprFlake, sprSDFlake])))) |
411 |
and ((cCloudsNumber > 0) or (ii <> sprCloud)) |
|
10510 | 412 |
and ((vobCount > 0) or (ii <> sprFlake)) |
10139 | 413 |
and (savesurf or (not cOnlyStats)) // in stats-only only load those which are needed later |
11539 | 414 |
and allOK |
10139 | 415 |
then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
416 |
begin |
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
417 |
if reload then |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
418 |
tmpsurf:= Surface |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
419 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
420 |
begin |
12592 | 421 |
imflags := (ifAlpha or ifColorKey); |
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
422 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
423 |
// these sprites are optional |
12701
79e13080b9db
mark up sprites for uStore loading. critical is for ones needed for proper gameplay, checksum is for ones where the game will desync if they don't match. will add checksumming next...
nemo
parents:
12621
diff
changeset
|
424 |
if critical then |
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
425 |
imflags := (imflags or ifCritical); |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
426 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
427 |
// load the image |
12765
d01e9dd5c439
checksum immediately after loading because surface2tex does surface manipulation. also add some FIXMEs
nemo
parents:
12759
diff
changeset
|
428 |
tmpsurf := LoadDataImageAltPath(Path, AltPath, FileName, imflags); |
d01e9dd5c439
checksum immediately after loading because surface2tex does surface manipulation. also add some FIXMEs
nemo
parents:
12759
diff
changeset
|
429 |
if (tmpsurf <> nil) and checkSum then |
d01e9dd5c439
checksum immediately after loading because surface2tex does surface manipulation. also add some FIXMEs
nemo
parents:
12759
diff
changeset
|
430 |
for y := 0 to tmpsurf^.h-1 do |
d01e9dd5c439
checksum immediately after loading because surface2tex does surface manipulation. also add some FIXMEs
nemo
parents:
12759
diff
changeset
|
431 |
syncedPixelDigest:= Adler32Update(syncedPixelDigest, @PByteArray(tmpsurf^.pixels)^[y*tmpsurf^.pitch], tmpsurf^.w*4) |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
432 |
end; |
2426 | 433 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
434 |
if tmpsurf <> nil then |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
435 |
begin |
3558 | 436 |
if getImageDimensions then |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
437 |
begin |
3558 | 438 |
imageWidth:= tmpsurf^.w; |
439 |
imageHeight:= tmpsurf^.h |
|
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
440 |
end; |
3558 | 441 |
if getDimensions then |
12189 | 442 |
if Height = -1 then //BlueWater |
443 |
begin |
|
444 |
Width:= tmpsurf^.w; |
|
445 |
Height:= tmpsurf^.h div watFrames; |
|
446 |
end |
|
447 |
else if Height = -2 then //SDWater |
|
448 |
begin |
|
449 |
Width:= tmpsurf^.w; |
|
450 |
Height:= tmpsurf^.h div watSDFrames; |
|
451 |
end |
|
452 |
else |
|
453 |
begin |
|
454 |
Width:= tmpsurf^.w; |
|
455 |
Height:= tmpsurf^.h |
|
456 |
end; |
|
12324 | 457 |
if (ii in [sprAMAmmos, sprAMAmmosBW]) then |
458 |
begin |
|
12596
c9711561f947
fix some things that annoy pas2c and whitespaces
sheepluva
parents:
12592
diff
changeset
|
459 |
tmpoverlay := LoadDataImage(Path, copy(FileName, 1, length(FileName)-5), (imflags and (not ifCritical))); |
12324 | 460 |
if tmpoverlay <> nil then |
461 |
begin |
|
462 |
copyToXY(tmpoverlay, tmpsurf, 0, 0); |
|
463 |
SDL_FreeSurface(tmpoverlay) |
|
464 |
end |
|
465 |
end; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
466 |
if (ii in [sprSky, sprSkyL, sprSkyR, sprHorizont, sprHorizontL, sprHorizontR]) then |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
467 |
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:
3525
diff
changeset
|
468 |
Texture:= Surface2Tex(tmpsurf, true); |
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:
3525
diff
changeset
|
469 |
Texture^.Scale:= 2 |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
470 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
471 |
else |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
472 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
473 |
Texture:= Surface2Tex(tmpsurf, false); |
4809
9c7d5f802618
rearrange quality flags a little, disable snow rendering on rqLowRes
koda
parents:
4782
diff
changeset
|
474 |
// HACK: We should include some sprite attribute to define the texture wrap directions |
9c7d5f802618
rearrange quality flags a little, disable snow rendering on rqLowRes
koda
parents:
4782
diff
changeset
|
475 |
if ((ii = sprWater) or (ii = sprSDWater)) and ((cReducedQuality and (rq2DWater or rqClampLess)) = 0) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
476 |
glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE); |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
477 |
end; |
3491 | 478 |
glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_PRIORITY, priority); |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
479 |
// This should maybe be flagged. It wastes quite a bit of memory. |
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
480 |
if not reload then |
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
481 |
begin |
6674 | 482 |
{$IFDEF USE_CONTEXT_RESTORE} |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
483 |
Surface:= tmpsurf |
5714 | 484 |
{$ELSE} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
485 |
if saveSurf then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
486 |
Surface:= tmpsurf |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
487 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
488 |
SDL_FreeSurface(tmpsurf) |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
489 |
{$ENDIF} |
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
490 |
end |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
491 |
end |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
492 |
else |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
493 |
Surface:= nil |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
494 |
end; |
80 | 495 |
|
11539 | 496 |
if (not cOnlyStats) and allOK then |
10139 | 497 |
begin |
498 |
WriteNames(fnt16); |
|
7495 | 499 |
|
10139 | 500 |
if not reload then |
501 |
AddProgress; |
|
502 |
||
12592 | 503 |
tmpsurf:= LoadDataImage(ptGraphics, cHHFileName, ifAlpha or ifCritical or ifColorKey); |
567 | 504 |
|
10139 | 505 |
HHTexture:= Surface2Tex(tmpsurf, false); |
506 |
SDL_FreeSurface(tmpsurf); |
|
507 |
||
508 |
InitHealth; |
|
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
509 |
|
13642
3d14950641a4
Refactor text color variable names, export 2 color values to Lua
Wuzzy <Wuzzy2@mail.ru>
parents:
13639
diff
changeset
|
510 |
PauseTexture:= RenderStringTex(trmsg[sidPaused], cCentralMessageColor, fntBig); |
3d14950641a4
Refactor text color variable names, export 2 color values to Lua
Wuzzy <Wuzzy2@mail.ru>
parents:
13639
diff
changeset
|
511 |
AFKTexture:= RenderStringTex(trmsg[sidAFK], cCentralMessageColor, fntBig); |
13044
1df5b407f368
Fix quit menu showing incorrect key when using non-default bindings
Wuzzy <Wuzzy2@mail.ru>
parents:
13018
diff
changeset
|
512 |
keyConfirm:= KeyBindToName('confirm'); |
1df5b407f368
Fix quit menu showing incorrect key when using non-default bindings
Wuzzy <Wuzzy2@mail.ru>
parents:
13018
diff
changeset
|
513 |
keyQuit:= KeyBindToName('quit'); |
13897
aa321e51da14
make explicit for pas2c some string casts that fpc was probably doing automatically
nemo
parents:
13857
diff
changeset
|
514 |
ConfirmTexture:= RenderStringTex(FormatA(trmsg[sidConfirm], ansistring(keyConfirm), ansistring(keyQuit)), cCentralMessageColor, fntBig); |
13642
3d14950641a4
Refactor text color variable names, export 2 color values to Lua
Wuzzy <Wuzzy2@mail.ru>
parents:
13639
diff
changeset
|
515 |
SyncTexture:= RenderStringTex(trmsg[sidSync], cCentralMessageColor, fntBig); |
4 | 516 |
|
10139 | 517 |
if not reload then |
518 |
AddProgress; |
|
2601 | 519 |
|
10139 | 520 |
// name of weapons in ammo menu |
521 |
for ai:= Low(TAmmoType) to High(TAmmoType) do |
|
522 |
with Ammoz[ai] do |
|
523 |
begin |
|
11532 | 524 |
if checkFails(length(trAmmo[NameId]) > 0,'No default text/translation found for ammo type #' + intToStr(ord(ai)) + '!',true) then exit; |
10139 | 525 |
tmpsurf:= TTF_RenderUTF8_Blended(Fontz[CheckCJKFont(trAmmo[NameId],fnt16)].Handle, PChar(trAmmo[NameId]), cWhiteColorChannels); |
11532 | 526 |
if checkFails(tmpsurf <> nil,'Name-texture creation for ammo type #' + intToStr(ord(ai)) + ' failed!',true) then exit; |
10139 | 527 |
tmpsurf:= doSurfaceConversion(tmpsurf); |
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10626
diff
changeset
|
528 |
FreeAndNilTexture(NameTex); |
10139 | 529 |
NameTex:= Surface2Tex(tmpsurf, false); |
530 |
SDL_FreeSurface(tmpsurf) |
|
531 |
end; |
|
2601 | 532 |
|
10139 | 533 |
// number of weapons in ammo menu |
534 |
for i:= Low(CountTexz) to High(CountTexz) do |
|
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6379
diff
changeset
|
535 |
begin |
13982
4355b8c4099e
Add CJK font support for sidAmmoCount
Wuzzy <Wuzzy2@mail.ru>
parents:
13900
diff
changeset
|
536 |
tmpsurf:= TTF_RenderUTF8_Blended(Fontz[CheckCJKFont(trmsg[sidAmmoCount],fnt16)].Handle, Str2PChar(Format(shortstring(trmsg[sidAmmoCount]), IntToStr(i))), cWhiteColorChannels); |
14011
b9b1d74b7fef
Fix lack of message and segfault when number texture creation fails
unc0rr
parents:
14001
diff
changeset
|
537 |
if checkFails(tmpsurf <> nil,'Number texture creation for ammo type #' + intToStr(ord(ai)) + ' failed!',true) then exit; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
538 |
tmpsurf:= doSurfaceConversion(tmpsurf); |
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10626
diff
changeset
|
539 |
FreeAndNilTexture(CountTexz[i]); |
10139 | 540 |
CountTexz[i]:= Surface2Tex(tmpsurf, false); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
541 |
SDL_FreeSurface(tmpsurf) |
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6379
diff
changeset
|
542 |
end; |
2376 | 543 |
|
10139 | 544 |
if not reload then |
545 |
AddProgress; |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
546 |
end; |
844 | 547 |
|
2669 | 548 |
IMG_Quit(); |
4 | 549 |
end; |
550 |
||
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
551 |
procedure StoreRelease(reload: boolean); |
4 | 552 |
var ii: TSprite; |
4901 | 553 |
ai: TAmmoType; |
554 |
i, t: LongInt; |
|
4 | 555 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
556 |
for ii:= Low(TSprite) to High(TSprite) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
557 |
begin |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
558 |
FreeAndNilTexture(SpritesData[ii].Texture); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
559 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
560 |
if (SpritesData[ii].Surface <> nil) and (not reload) then |
5562 | 561 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
562 |
SDL_FreeSurface(SpritesData[ii].Surface); |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
563 |
SpritesData[ii].Surface:= nil |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
564 |
end |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
565 |
end; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
566 |
SDL_FreeSurface(MissionIcons); |
6394
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
567 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
568 |
// free the textures declared in uVariables |
10443
42dadeb6e8ae
Remove switching of hog's hat to chef. do it in draw instead.
nemo
parents:
10309
diff
changeset
|
569 |
FreeAndNilTexture(ChefHatTexture); |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
570 |
FreeAndNilTexture(CrosshairTexture); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
571 |
FreeAndNilTexture(WeaponTooltipTex); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
572 |
FreeAndNilTexture(PauseTexture); |
9670
1954f692e8c6
Quick and simple implementation of afk mode (toggled by /pause)
unc0rr
parents:
9656
diff
changeset
|
573 |
FreeAndNilTexture(AFKTexture); |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
574 |
FreeAndNilTexture(SyncTexture); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
575 |
FreeAndNilTexture(ConfirmTexture); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
576 |
FreeAndNilTexture(ropeIconTex); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
577 |
FreeAndNilTexture(HHTexture); |
9656 | 578 |
FreeAndNilTexture(GenericHealthTexture); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
579 |
// free all ammo name textures |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
580 |
for ai:= Low(TAmmoType) to High(TAmmoType) do |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
581 |
FreeAndNilTexture(Ammoz[ai].NameTex); |
5562 | 582 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
583 |
// free all count textures |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
584 |
for i:= Low(CountTexz) to High(CountTexz) do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
585 |
begin |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
586 |
FreeAndNilTexture(CountTexz[i]); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
587 |
CountTexz[i]:= nil |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
588 |
end; |
5562 | 589 |
|
9656 | 590 |
for t:= 0 to Pred(ClansCount) do |
591 |
begin |
|
592 |
if ClansArray[t] <> nil then |
|
593 |
FreeAndNilTexture(ClansArray[t]^.HealthTex); |
|
594 |
end; |
|
595 |
||
4901 | 596 |
// free all team and hedgehog textures |
597 |
for t:= 0 to Pred(TeamsCount) do |
|
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6379
diff
changeset
|
598 |
begin |
4901 | 599 |
if TeamsArray[t] <> nil then |
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6379
diff
changeset
|
600 |
begin |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
601 |
FreeAndNilTexture(TeamsArray[t]^.NameTagTex); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
602 |
FreeAndNilTexture(TeamsArray[t]^.GraveTex); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
603 |
FreeAndNilTexture(TeamsArray[t]^.AIKillsTex); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
604 |
FreeAndNilTexture(TeamsArray[t]^.FlagTex); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
605 |
|
4901 | 606 |
for i:= 0 to cMaxHHIndex do |
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6379
diff
changeset
|
607 |
begin |
9655
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
608 |
FreeAndNilTexture(TeamsArray[t]^.Hedgehogs[i].NameTagTex); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
609 |
FreeAndNilTexture(TeamsArray[t]^.Hedgehogs[i].HealthTagTex); |
e154ccca4dad
Tinted crosshair (without that cool white dot in the middle)
unc0rr
parents:
9530
diff
changeset
|
610 |
FreeAndNilTexture(TeamsArray[t]^.Hedgehogs[i].HatTex); |
6380
1ff5ad1d771b
Remove a bunch of unnecessary nil checks. FreeTexture does its own nil check.
nemo
parents:
6379
diff
changeset
|
611 |
end; |
4901 | 612 |
end; |
613 |
end; |
|
10869 | 614 |
|
615 |
RendererCleanup(); |
|
4 | 616 |
end; |
617 |
||
2677
83ad68ceef72
Non-hacked version of CJK handling. Should switch to CJK rendering only if a particular string needs it, instead of based on locale file.
nemo
parents:
2674
diff
changeset
|
618 |
|
4 | 619 |
procedure RenderHealth(var Hedgehog: THedgehog); |
95 | 620 |
var s: shortstring; |
4 | 621 |
begin |
11822 | 622 |
s:= IntToStr(Hedgehog.Gear^.Health); |
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10626
diff
changeset
|
623 |
FreeAndNilTexture(Hedgehog.HealthTagTex); |
10127 | 624 |
Hedgehog.HealthTagTex:= RenderStringTex(ansistring(s), Hedgehog.Team^.Clan^.Color, fnt16) |
4 | 625 |
end; |
626 |
||
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6986
diff
changeset
|
627 |
function LoadImage(const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
30 | 628 |
var tmpsurf: PSDL_Surface; |
355 | 629 |
s: shortstring; |
13484
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
630 |
logMsg: shortstring; |
10260
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
631 |
rwops: PSDL_RWops; |
4 | 632 |
begin |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6986
diff
changeset
|
633 |
LoadImage:= nil; |
13484
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
634 |
logMsg:= msgLoading + filename + '.png [flags: ' + inttostr(imageFlags) + ']'; |
2426 | 635 |
|
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6986
diff
changeset
|
636 |
s:= filename + '.png'; |
10260
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
637 |
|
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
638 |
rwops:= nil; |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
639 |
tmpsurf:= nil; |
2254 | 640 |
|
10260
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
641 |
if pfsExists(s) then |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
642 |
begin |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
643 |
// get data source |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
644 |
rwops:= rwopsOpenRead(s); |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
645 |
|
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
646 |
// load image with SDL (with freesrc param set to true) |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
647 |
if rwops <> nil then |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
648 |
tmpsurf:= IMG_Load_RW(rwops, true); |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
649 |
end; |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
650 |
|
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
651 |
// loading failed |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
652 |
if tmpsurf = nil then |
8848
e9ebd63f8a03
So. Some themes have objects that seem to be large natural extensions of the landscape. Masks allow maintaining that. Lemme know if it doesn't look good. If it doesn't, can still use for ice/bounce/indestructible. Indestructible bunker object for example.
nemo
parents:
8838
diff
changeset
|
653 |
begin |
10260
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
654 |
// output sdl error if loading failed when data source was available |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
655 |
if rwops <> nil then |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
656 |
begin |
10735 | 657 |
// anounce that loading failed |
13484
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
658 |
OutError(logMsg + ' ' + msgFailed, false); |
10735 | 659 |
|
13484
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
660 |
if SDLCheck(false, 'LoadImage: ' + logMsg + ' ' + msgFailed, (imageFlags and ifCritical) <> 0) then |
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
661 |
exit; |
10260
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
662 |
// rwops was already freed by IMG_Load_RW |
25155aaede77
clean up image loading a bit. gets rid of useless "Passed NULL data source" or PhysFS file not found errors
sheepluva
parents:
10229
diff
changeset
|
663 |
rwops:= nil; |
13484
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
664 |
end |
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
665 |
else |
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
666 |
OutError(logMsg + ' ' + msgFailed, (imageFlags and ifCritical) <> 0); |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6986
diff
changeset
|
667 |
exit; |
8848
e9ebd63f8a03
So. Some themes have objects that seem to be large natural extensions of the landscape. Masks allow maintaining that. Lemme know if it doesn't look good. If it doesn't, can still use for ice/bounce/indestructible. Indestructible bunker object for example.
nemo
parents:
8838
diff
changeset
|
668 |
end; |
2153 | 669 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
670 |
if ((imageFlags and ifIgnoreCaps) = 0) and ((tmpsurf^.w > MaxTextureSize) or (tmpsurf^.h > MaxTextureSize)) then |
8848
e9ebd63f8a03
So. Some themes have objects that seem to be large natural extensions of the landscape. Masks allow maintaining that. Lemme know if it doesn't look good. If it doesn't, can still use for ice/bounce/indestructible. Indestructible bunker object for example.
nemo
parents:
8838
diff
changeset
|
671 |
begin |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
672 |
SDL_FreeSurface(tmpsurf); |
13484
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
673 |
OutError(logMsg + ' ' + msgFailedSize, ((not cOnlyStats) and ((imageFlags and ifCritical) <> 0))); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
674 |
// dummy surface to replace non-critical textures that failed to load due to their size |
6990
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6986
diff
changeset
|
675 |
LoadImage:= SDL_CreateRGBSurface(SDL_SWSURFACE, 2, 2, 32, RMask, GMask, BMask, AMask); |
40e5af28d026
change every return value into a more pascal-ish form, using the name of the fucntion (helps the parser and macpas compaitilibity)
koda
parents:
6986
diff
changeset
|
676 |
exit; |
8848
e9ebd63f8a03
So. Some themes have objects that seem to be large natural extensions of the landscape. Masks allow maintaining that. Lemme know if it doesn't look good. If it doesn't, can still use for ice/bounce/indestructible. Indestructible bunker object for example.
nemo
parents:
8838
diff
changeset
|
677 |
end; |
351 | 678 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
679 |
tmpsurf:= doSurfaceConversion(tmpsurf); |
2630 | 680 |
|
12592 | 681 |
if (imageFlags and ifColorKey) <> 0 then |
12591 | 682 |
if checkFails(SDL_SetColorKey(tmpsurf, SDL_TRUE, 0) = 0, errmsgTransparentSet, true) then exit; |
2630 | 683 |
|
13484
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
684 |
// log success |
480ea997036b
Send proper failure error message when image loading has failed
Wuzzy <Wuzzy2@mail.ru>
parents:
13455
diff
changeset
|
685 |
WriteLnToConsole(logMsg + ' ' + msgOK + ' (' + inttostr(tmpsurf^.w) + 'x' + inttostr(tmpsurf^.h) + ')'); |
2630 | 686 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
687 |
LoadImage:= tmpsurf //Result |
753 | 688 |
end; |
689 |
||
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
690 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
691 |
function LoadDataImage(const path: TPathType; const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
692 |
var tmpsurf: PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
693 |
begin |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
694 |
// check for file in user dir (never critical) |
8022 | 695 |
tmpsurf:= LoadImage(cPathz[path] + '/' + filename, imageFlags); |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
696 |
|
8370 | 697 |
LoadDataImage:= tmpsurf; |
7640
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
698 |
end; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
699 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
700 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
701 |
function LoadDataImageAltPath(const path, altPath: TPathType; const filename: shortstring; imageFlags: LongInt): PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
702 |
var tmpsurf: PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
703 |
begin |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
704 |
// if there is no alternative path, just forward and return result |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
705 |
if (altPath = ptNone) then |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
706 |
exit(LoadDataImage(path, filename, imageFlags)); |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
707 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
708 |
// since we have a fallback path this search isn't critical yet |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
709 |
tmpsurf:= LoadDataImage(path, filename, imageFlags and (not ifCritical)); |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
710 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
711 |
// if image still not found try alternative path |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
712 |
if (tmpsurf = nil) then |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
713 |
tmpsurf:= LoadDataImage(altPath, filename, imageFlags); |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
714 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
715 |
LoadDataImageAltPath:= tmpsurf; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
716 |
end; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
717 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
718 |
function LoadDataImageAltFile(const path: TPathType; const filename, altFile: shortstring; imageFlags: LongInt): PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
719 |
var tmpsurf: PSDL_Surface; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
720 |
begin |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
721 |
// if there is no alternative filename, just forward and return result |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
722 |
if (altFile = '') then |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
723 |
exit(LoadDataImage(path, filename, imageFlags)); |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
724 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
725 |
// since we have a fallback filename this search isn't critical yet |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
726 |
tmpsurf:= LoadDataImage(path, filename, imageFlags and (not ifCritical)); |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
727 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
728 |
// if image still not found try alternative filename |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
729 |
if (tmpsurf = nil) then |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
730 |
tmpsurf:= LoadDataImage(path, altFile, imageFlags); |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
731 |
|
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
732 |
LoadDataImageAltFile:= tmpsurf; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
733 |
end; |
e9e6b4d740f6
clean up LoadImage and UserPathz/AltPath/etc related redundancy by introducing 3 new functions in uStore.pas
sheepluva
parents:
7637
diff
changeset
|
734 |
|
7754 | 735 |
procedure LoadHedgehogHat(var HH: THedgehog; newHat: shortstring); |
10262 | 736 |
begin |
737 |
LoadHedgehogHat2(HH, newHat, false); |
|
738 |
end; |
|
739 |
||
740 |
procedure LoadHedgehogHat2(var HH: THedgehog; newHat: shortstring; allowSurfReuse: boolean); |
|
4874 | 741 |
begin |
9774 | 742 |
// free the mem of any previously assigned texture. This was previously only if the new one could be loaded, but, NoHat is usually a better choice |
743 |
if HH.HatTex <> nil then |
|
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10626
diff
changeset
|
744 |
FreeAndNilTexture(HH.HatTex); |
10262 | 745 |
|
746 |
// load new hat surface if this hat is different than the one already loaded |
|
747 |
if newHat <> prevHat then |
|
9774 | 748 |
begin |
10262 | 749 |
freeTmpHatSurf(); |
750 |
tmpHatSurf:= LoadDataImage(ptHats, newHat, ifNone); |
|
9774 | 751 |
end; |
10262 | 752 |
|
7754 | 753 |
AddFileLog('Hat => '+newHat); |
4874 | 754 |
// only do something if the hat could be loaded |
10262 | 755 |
if tmpHatSurf <> nil then |
4874 | 756 |
begin |
7754 | 757 |
AddFileLog('Got Hat'); |
4874 | 758 |
|
759 |
// assign new hat to hedgehog |
|
10262 | 760 |
HH.HatTex:= Surface2Tex(tmpHatSurf, true); |
4874 | 761 |
|
10262 | 762 |
// remember that this hat was used last |
763 |
if allowSurfReuse then |
|
764 |
prevHat:= newHat |
|
4874 | 765 |
// cleanup: free temporary surface mem |
10262 | 766 |
else |
767 |
freeTmpHatSurf(); |
|
4874 | 768 |
end; |
2428 | 769 |
end; |
770 |
||
13586
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
771 |
// Load default clan colors from config fiile |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
772 |
procedure LoadDefaultClanColors(s: shortstring); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
773 |
var i: LongInt; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
774 |
f: PFSFile; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
775 |
key, value, l, temp: shortstring; |
13844
94d0d1ab7a0e
Rewrite StrToInt code in uStore; get rid of "try" and "except" keywords
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
776 |
color, tempColor: Longword; |
94d0d1ab7a0e
Rewrite StrToInt code in uStore; get rid of "try" and "except" keywords
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
777 |
clanID, tempClanID: byte; |
13586
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
778 |
begin |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
779 |
if cOnlyStats then exit; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
780 |
|
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
781 |
WriteLnToConsole('Loading default clan colors from: ' + s); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
782 |
|
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
783 |
l:= ''; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
784 |
if pfsExists(s) then |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
785 |
begin |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
786 |
f:= pfsOpenRead(s); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
787 |
while (not pfsEOF(f)) and (l <> '[colors]') do |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
788 |
pfsReadLn(f, l); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
789 |
|
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
790 |
while (not pfsEOF(f)) and (l <> '') do |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
791 |
begin |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
792 |
pfsReadLn(f, l); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
793 |
|
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
794 |
key:= ''; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
795 |
i:= 1; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
796 |
while (i <= length(l)) and (l[i] <> '=') do |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
797 |
begin |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
798 |
key:= key + l[i]; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
799 |
inc(i) |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
800 |
end; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
801 |
temp:= copy(key, 1, 5); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
802 |
if temp = 'color' then |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
803 |
begin |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
804 |
temp:= copy(key, 6, length(key) - 5); |
13900
6b2c87490f0a
drop the error checked StrToInt as non-critical - pas2c did not implement it.
nemo
parents:
13897
diff
changeset
|
805 |
tempClanID:= StrToInt(temp); |
6b2c87490f0a
drop the error checked StrToInt as non-critical - pas2c did not implement it.
nemo
parents:
13897
diff
changeset
|
806 |
clanID:= tempClanID |
13586
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
807 |
end |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
808 |
else |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
809 |
continue; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
810 |
|
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
811 |
if i < length(l) then |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
812 |
begin |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
813 |
value:= copy(l, i + 1, length(l) - i); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
814 |
if (length(value) = 2) and (value[1] = '\') then |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
815 |
value:= value[1] + '' |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
816 |
else if (value[1] = '"') and (value[length(value)] = '"') then |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
817 |
value:= copy(value, 2, length(value) - 2); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
818 |
if value[1] <> '#' then |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
819 |
continue; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
820 |
temp:= copy(value, 2, length(value) - 1); |
13900
6b2c87490f0a
drop the error checked StrToInt as non-critical - pas2c did not implement it.
nemo
parents:
13897
diff
changeset
|
821 |
tempColor:= StrToInt('0x'+temp); |
6b2c87490f0a
drop the error checked StrToInt as non-critical - pas2c did not implement it.
nemo
parents:
13897
diff
changeset
|
822 |
color:= tempColor |
13586
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
823 |
end; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
824 |
|
13844
94d0d1ab7a0e
Rewrite StrToInt code in uStore; get rid of "try" and "except" keywords
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
825 |
if clanID <= cClanColors then |
94d0d1ab7a0e
Rewrite StrToInt code in uStore; get rid of "try" and "except" keywords
Wuzzy <Wuzzy2@mail.ru>
parents:
13642
diff
changeset
|
826 |
ClanColorArray[clanID]:= color; |
13586
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
827 |
|
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
828 |
end; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
829 |
|
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
830 |
pfsClose(f) |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
831 |
end |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
832 |
else |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
833 |
WriteLnToConsole('Settings file not found'); |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
834 |
end; |
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
835 |
|
41e0446fb254
Load default clan colors from settings file
Wuzzy <Wuzzy2@mail.ru>
parents:
13568
diff
changeset
|
836 |
|
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
837 |
procedure SetupOpenGLAttributes; |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
838 |
begin |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
839 |
{$IFDEF IPHONEOS} |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
840 |
SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 0); |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
841 |
SDL_GL_SetAttribute(SDL_GL_RETAINED_BACKING, 1); |
11106
2953f858a196
- Actually fix for rendering on iOS ]:->
antonc27 <antonc27@mail.ru>
parents:
11100
diff
changeset
|
842 |
|
2953f858a196
- Actually fix for rendering on iOS ]:->
antonc27 <antonc27@mail.ru>
parents:
11100
diff
changeset
|
843 |
SDL_GL_SetAttribute(SDL_GL_CONTEXT_MAJOR_VERSION, 1); |
2953f858a196
- Actually fix for rendering on iOS ]:->
antonc27 <antonc27@mail.ru>
parents:
11100
diff
changeset
|
844 |
SDL_GL_SetAttribute(SDL_GL_CONTEXT_MINOR_VERSION, 1); |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
845 |
{$ELSE} |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
846 |
SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1); |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
847 |
{$ENDIF} |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
848 |
SDL_GL_SetAttribute(SDL_GL_RED_SIZE, 5); |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
849 |
SDL_GL_SetAttribute(SDL_GL_GREEN_SIZE, 6); |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
850 |
SDL_GL_SetAttribute(SDL_GL_BLUE_SIZE, 5); |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
851 |
SDL_GL_SetAttribute(SDL_GL_DEPTH_SIZE, 0); // no depth buffer |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
852 |
SDL_GL_SetAttribute(SDL_GL_ALPHA_SIZE, 0); // no alpha channel |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
853 |
SDL_GL_SetAttribute(SDL_GL_BUFFER_SIZE, 16); // buffer should be 16 |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
854 |
SDL_GL_SetAttribute(SDL_GL_ACCELERATED_VISUAL, 1); // prefer hw rendering |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
855 |
end; |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
856 |
|
753 | 857 |
procedure SetupOpenGL; |
5505
a55aab592950
Ditch the renderer system in sdl1.3 and use the 'old fashioned' sdl/opengl context. This gives us more flexibility and less problem in receiving video events (expecially on mobile platform) as well as not having to care to reset the gl context every time sdl interferes.
koda
parents:
5285
diff
changeset
|
858 |
begin |
9530 | 859 |
AddFileLog('Setting up OpenGL (using driver: ' + shortstring(SDL_GetCurrentVideoDriver()) + ')'); |
6021 | 860 |
|
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
861 |
// TODO: this function creates an opengles1.1 context |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
862 |
// un-comment below and add proper logic to support opengles2.0 |
6885 | 863 |
//SDL_GL_SetAttribute(SDL_GL_CONTEXT_MAJOR_VERSION, 2); |
864 |
//SDL_GL_SetAttribute(SDL_GL_CONTEXT_MINOR_VERSION, 0); |
|
6611 | 865 |
if SDLGLcontext = nil then |
866 |
SDLGLcontext:= SDL_GL_CreateContext(SDLwindow); |
|
11507 | 867 |
if SDLCheck(SDLGLcontext <> nil, 'SDLGLcontext', true) then exit; |
11408
55fc715435ea
- Workaround for problems with SDL_GL_SetSwapInterval on iOS
antonc27 <antonc27@mail.ru>
parents:
11373
diff
changeset
|
868 |
SDL_GL_SetSwapInterval(1); |
3405 | 869 |
|
10869 | 870 |
RendererSetup(); |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
871 |
|
11362 | 872 |
// gl2 init/matrix code was here, but removed |
2161
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2154
diff
changeset
|
873 |
end; |
0c8634241fa4
Some work on zooming. Hedgewars are now unplayable.
unc0rr
parents:
2154
diff
changeset
|
874 |
|
510 | 875 |
//////////////////////////////////////////////////////////////////////////////// |
876 |
procedure AddProgress; |
|
877 |
var r: TSDL_Rect; |
|
766 | 878 |
texsurf: PSDL_Surface; |
510 | 879 |
begin |
8027
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7866
diff
changeset
|
880 |
if cOnlyStats then exit; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
881 |
if Step = 0 then |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
882 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
883 |
WriteToConsole(msgLoading + 'progress sprite: '); |
12592 | 884 |
texsurf:= LoadDataImage(ptGraphics, 'Progress', ifCritical or ifColorKey); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2705
diff
changeset
|
885 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
886 |
ProgrTex:= Surface2Tex(texsurf, false); |
3697 | 887 |
|
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
888 |
LoadingText:= RenderStringTex(trmsg[sidLoading], $FFF39EE8, fntBig); |
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
889 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
890 |
squaresize:= texsurf^.w shr 1; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
891 |
numsquares:= texsurf^.h div squaresize; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
892 |
SDL_FreeSurface(texsurf); |
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
893 |
|
8446
c18ba8726f5a
Fix sources so pas2c written in haskell could render them again
unc0rr
parents:
8444
diff
changeset
|
894 |
{$IFNDEF PAS2C} |
8204 | 895 |
with mobileRecord do |
896 |
if GameLoading <> nil then |
|
897 |
GameLoading(); |
|
8446
c18ba8726f5a
Fix sources so pas2c written in haskell could render them again
unc0rr
parents:
8444
diff
changeset
|
898 |
{$ENDIF} |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
899 |
end; |
1045 | 900 |
|
13504
c41b16ac2e05
Clarify the wording of a few checkFails messages
Wuzzy <Wuzzy2@mail.ru>
parents:
13490
diff
changeset
|
901 |
if checkFails((ProgrTex <> nil) and (LoadingText <> nil), 'Error - Progress or Loading texture is nil!', true) then exit; |
2284 | 902 |
|
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10302
diff
changeset
|
903 |
RenderClear(); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
904 |
if Step < numsquares then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
905 |
r.x:= 0 |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
906 |
else |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
907 |
r.x:= squaresize; |
3697 | 908 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
909 |
r.y:= (Step mod numsquares) * squaresize; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
910 |
r.w:= squaresize; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
911 |
r.h:= squaresize; |
3697 | 912 |
|
6999 | 913 |
DrawTextureFromRect( -squaresize div 2, (cScreenHeight - squaresize) shr 1, @r, ProgrTex); |
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
914 |
DrawTexture( -LoadingText^.w div 2, (cScreenHeight - LoadingText^.h) shr 1 - (squaresize div 2) - (LoadingText^.h div 2) - 8, LoadingText); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2705
diff
changeset
|
915 |
|
7049 | 916 |
SwapBuffers; |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7866
diff
changeset
|
917 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
918 |
inc(Step); |
510 | 919 |
end; |
920 |
||
921 |
procedure FinishProgress; |
|
922 |
begin |
|
8446
c18ba8726f5a
Fix sources so pas2c written in haskell could render them again
unc0rr
parents:
8444
diff
changeset
|
923 |
{$IFNDEF PAS2C} |
8204 | 924 |
with mobileRecord do |
925 |
if GameLoaded <> nil then |
|
926 |
GameLoaded(); |
|
8446
c18ba8726f5a
Fix sources so pas2c written in haskell could render them again
unc0rr
parents:
8444
diff
changeset
|
927 |
{$ENDIF} |
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
928 |
WriteLnToConsole('Freeing progress textures... '); |
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10626
diff
changeset
|
929 |
FreeAndNilTexture(ProgrTex); |
12186
322aaad4a93d
Load screen: Move “LOADING” from image into text box
Wuzzy <almikes@aol.com>
parents:
12175
diff
changeset
|
930 |
FreeAndNilTexture(LoadingText); |
5714 | 931 |
Step:= 0 |
510 | 932 |
end; |
933 |
||
2905 | 934 |
function RenderHelpWindow(caption, subcaption, description, extra: ansistring; extracolor: LongInt; iconsurf: PSDL_Surface; iconrect: PSDL_Rect): PTexture; |
2747 | 935 |
var tmpsurf: PSDL_SURFACE; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
936 |
w, h, i, j: LongInt; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
937 |
font: THWFont; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
938 |
r, r2: TSDL_Rect; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
939 |
wa, ha: LongInt; |
14000
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
940 |
tmpline, tmpline2, tmpline3, tmpdesc: ansistring; |
2747 | 941 |
begin |
2843 | 942 |
// make sure there is a caption as well as a sub caption - description is optional |
10123 | 943 |
if length(caption) = 0 then |
944 |
caption:= ansistring('???'); |
|
10229 | 945 |
if length(subcaption) = 0 then |
10123 | 946 |
subcaption:= ansistring(_S' '); |
2843 | 947 |
|
2841 | 948 |
font:= CheckCJKFont(caption,fnt16); |
949 |
font:= CheckCJKFont(subcaption,font); |
|
950 |
font:= CheckCJKFont(description,font); |
|
951 |
font:= CheckCJKFont(extra,font); |
|
2747 | 952 |
|
953 |
w:= 0; |
|
954 |
h:= 0; |
|
6982 | 955 |
wa:= cFontBorder * 2 + 4; |
956 |
ha:= cFontBorder * 2; |
|
2747 | 957 |
|
3407 | 958 |
i:= 0; j:= 0; // avoid compiler hints |
959 |
||
2747 | 960 |
// TODO: Recheck height/position calculation |
961 |
||
962 |
// get caption's dimensions |
|
10122
cefede760264
Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents:
10120
diff
changeset
|
963 |
TTF_SizeUTF8(Fontz[font].Handle, PChar(caption), @i, @j); |
2747 | 964 |
// width adds 36 px (image + space) |
965 |
w:= i + 36 + wa; |
|
966 |
h:= j + ha; |
|
967 |
||
968 |
// get sub caption's dimensions |
|
10122
cefede760264
Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents:
10120
diff
changeset
|
969 |
TTF_SizeUTF8(Fontz[font].Handle, PChar(subcaption), @i, @j); |
2747 | 970 |
// width adds 36 px (image + space) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
971 |
if w < (i + 36 + wa) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
972 |
w:= i + 36 + wa; |
2747 | 973 |
inc(h, j + ha); |
974 |
||
975 |
// get description's dimensions |
|
976 |
tmpdesc:= description; |
|
10120 | 977 |
while length(tmpdesc) > 0 do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
978 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
979 |
tmpline:= tmpdesc; |
14001
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
980 |
EscapeCharA(tmpline, '|'); |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10130
diff
changeset
|
981 |
SplitByCharA(tmpline, tmpdesc, '|'); |
14001
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
982 |
UnEscapeCharA(tmpline, '|'); |
10120 | 983 |
if length(tmpline) > 0 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
984 |
begin |
10120 | 985 |
TTF_SizeUTF8(Fontz[font].Handle, PChar(tmpline), @i, @j); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
986 |
if w < (i + wa) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
987 |
w:= i + wa; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
988 |
inc(h, j + ha) |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
989 |
end |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
990 |
end; |
2747 | 991 |
|
10123 | 992 |
if length(extra) > 0 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
993 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
994 |
// get extra label's dimensions |
10122
cefede760264
Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents:
10120
diff
changeset
|
995 |
TTF_SizeUTF8(Fontz[font].Handle, PChar(extra), @i, @j); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
996 |
if w < (i + wa) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
997 |
w:= i + wa; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
998 |
inc(h, j + ha); |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
999 |
end; |
3697 | 1000 |
|
2747 | 1001 |
// add borders space |
1002 |
inc(w, wa); |
|
1003 |
inc(h, ha + 8); |
|
1004 |
||
1005 |
tmpsurf:= SDL_CreateRGBSurface(SDL_SWSURFACE, w, h, 32, RMask, GMask, BMask, AMask); |
|
11532 | 1006 |
if checkFails(tmpsurf <> nil, 'RenderHelpWindow: fail to create surface', true) then exit(nil); |
2747 | 1007 |
|
1008 |
// render border and background |
|
1009 |
r.x:= 0; |
|
1010 |
r.y:= 0; |
|
1011 |
r.w:= w; |
|
1012 |
r.h:= h; |
|
1013 |
DrawRoundRect(@r, cWhiteColor, cNearBlackColor, tmpsurf, true); |
|
1014 |
||
1015 |
// render caption |
|
10122
cefede760264
Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents:
10120
diff
changeset
|
1016 |
r:= WriteInRect(tmpsurf, 36 + cFontBorder + 2, ha, $ffffffff, font, PChar(caption)); |
2747 | 1017 |
// render sub caption |
10122
cefede760264
Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents:
10120
diff
changeset
|
1018 |
r:= WriteInRect(tmpsurf, 36 + cFontBorder + 2, r.y + r.h, $ffc7c7c7, font, PChar(subcaption)); |
2747 | 1019 |
|
1020 |
// render all description lines |
|
1021 |
tmpdesc:= description; |
|
10120 | 1022 |
while length(tmpdesc) > 0 do |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1023 |
begin |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1024 |
tmpline:= tmpdesc; |
14001
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
1025 |
EscapeCharA(tmpline, '|'); |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10130
diff
changeset
|
1026 |
SplitByCharA(tmpline, tmpdesc, '|'); |
14001
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
1027 |
UnEscapeCharA(tmpline, '|'); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1028 |
r2:= r; |
10120 | 1029 |
if length(tmpline) > 0 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1030 |
begin |
3697 | 1031 |
|
14000
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1032 |
// Render highlighted caption if there is a ':', |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1033 |
// from the beginning of the line to (and including) the ':'. |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1034 |
// With '::', the colons will be suppressed in the final text. |
14001
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
1035 |
EscapeCharA(tmpline, ':'); |
7134 | 1036 |
tmpline2:= _S''; |
10131
4b4a043111f4
- pas2c recognizes typecasts in initialization expressions
unc0rr
parents:
10130
diff
changeset
|
1037 |
SplitByCharA(tmpline, tmpline2, ':'); |
10120 | 1038 |
if length(tmpline2) > 0 then |
10128 | 1039 |
begin |
14000
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1040 |
if (tmpline2[1] <> ':') then |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1041 |
begin |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1042 |
tmpline:= tmpline + ':'; |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1043 |
tmpline3:= tmpline + tmpline2; |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1044 |
end |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1045 |
else |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1046 |
tmpline3:= tmpline + Copy(tmpline2, 2, Length(tmpline2)-1); |
14001
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
1047 |
UnEscapeCharA(tmpline3, ':'); |
14000
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1048 |
r:= WriteInRect(tmpsurf, cFontBorder + 2, r.y + r.h, $ff707070, font, PChar(tmpline3)); |
10128 | 1049 |
WriteInRect(tmpsurf, cFontBorder + 2, r2.y + r2.h, $ffc7c7c7, font, PChar(tmpline)); |
14000
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1050 |
end |
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1051 |
else |
14001
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
1052 |
begin |
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
1053 |
UnEscapeCharA(tmpline, ':'); |
14000
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1054 |
r:= WriteInRect(tmpsurf, cFontBorder + 2, r.y + r.h, $ff707070, font, PChar(tmpline)); |
14001
3183c4dc6e53
Allow to escape | and : character in engine translation files
Wuzzy <Wuzzy2@mail.ru>
parents:
14000
diff
changeset
|
1055 |
end |
14000
6938cab93016
Engine translation: With '::' can now suppress colons for highlighting
Wuzzy <Wuzzy2@mail.ru>
parents:
13982
diff
changeset
|
1056 |
end; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1057 |
end; |
2747 | 1058 |
|
10123 | 1059 |
if length(extra) > 0 then |
10122
cefede760264
Revert 88929358d2e1 in favor of ansistrings implementation in pas2c
unc0rr
parents:
10120
diff
changeset
|
1060 |
r:= WriteInRect(tmpsurf, cFontBorder + 2, r.y + r.h, extracolor, font, PChar(extra)); |
2747 | 1061 |
|
6982 | 1062 |
r.x:= cFontBorder + 6; |
1063 |
r.y:= cFontBorder + 4; |
|
2747 | 1064 |
r.w:= 32; |
1065 |
r.h:= 32; |
|
13490
8935dcc0e130
Always use SDL_Map(A)RGB in SDL_FillRect for color
Wuzzy <Wuzzy2@mail.ru>
parents:
13484
diff
changeset
|
1066 |
SDL_FillRect(tmpsurf, @r, SDL_MapRGB(tmpsurf^.format, 0, 0, 0)); |
2747 | 1067 |
SDL_UpperBlit(iconsurf, iconrect, tmpsurf, @r); |
3697 | 1068 |
|
2747 | 1069 |
RenderHelpWindow:= Surface2Tex(tmpsurf, true); |
1070 |
SDL_FreeSurface(tmpsurf) |
|
1071 |
end; |
|
1072 |
||
1073 |
procedure RenderWeaponTooltip(atype: TAmmoType); |
|
1074 |
var r: TSDL_Rect; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1075 |
i: LongInt; |
11939
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1076 |
ammoname: ansistring; |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1077 |
ammocap: ansistring; |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1078 |
ammodesc: ansistring; |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1079 |
extra: ansistring; |
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1080 |
extracolor: LongInt; |
2747 | 1081 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
1082 |
// don't do anything if the window shouldn't be shown |
3634 | 1083 |
if (cReducedQuality and rqTooltipsOff) <> 0 then |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
1084 |
begin |
3634 | 1085 |
WeaponTooltipTex:= nil; |
1086 |
exit |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
1087 |
end; |
2747 | 1088 |
|
1089 |
// free old texture |
|
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10626
diff
changeset
|
1090 |
FreeAndNilTexture(WeaponTooltipTex); |
2747 | 1091 |
|
1092 |
// image region |
|
1093 |
i:= LongInt(atype) - 1; |
|
3853 | 1094 |
r.x:= (i shr 4) * 32; |
1095 |
r.y:= (i mod 16) * 32; |
|
2747 | 1096 |
r.w:= 32; |
1097 |
r.h:= 32; |
|
1098 |
||
1099 |
// default (no extra text) |
|
7134 | 1100 |
extra:= _S''; |
2747 | 1101 |
extracolor:= 0; |
1102 |
||
13370
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1103 |
if (trluaammoe[Ammoz[atype].NameId] = true) then |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1104 |
if (CurrentTeam <> nil) and (Ammoz[atype].SkipTurns >= CurrentTeam^.Clan^.TurnNumber) then // weapon or utility is not yet available |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1105 |
begin |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1106 |
if (atype = amTardis) and (SuddenDeathActive) then |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1107 |
extra:= trmsg[sidNotAvailableInSD] |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1108 |
else |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1109 |
extra:= trmsg[sidNotYetAvailable]; |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1110 |
extracolor:= LongInt($ffc77070); |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1111 |
end |
13455
8f746b6a477c
Fix teleport tooltip claiming it doesn't end turn, while in in hog placing phase with inf. attack
Wuzzy <Wuzzy2@mail.ru>
parents:
13370
diff
changeset
|
1112 |
else if ((((GameFlags and gfInfAttack) <> 0) and ((Ammoz[atype].Ammo.Propz and ammoprop_ForceTurnEnd) = 0)) or ((Ammoz[atype].Ammo.Propz and ammoprop_NoRoundEnd) <> 0)) and (not (PlacingHogs and (atype = amTeleport))) then |
13370
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1113 |
// weapon or utility will not end your turn |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1114 |
begin |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1115 |
extra:= trmsg[sidNoEndTurn]; |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1116 |
extracolor:= LongInt($ff70c770); |
e202d58236b1
Lua API: Add 5th parameter showExtra to SetAmmoTexts to hide extra text
Wuzzy <Wuzzy2@mail.ru>
parents:
13343
diff
changeset
|
1117 |
end; |
2747 | 1118 |
|
11939
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1119 |
if length(trluaammo[Ammoz[atype].NameId]) > 0 then |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1120 |
ammoname := trluaammo[Ammoz[atype].NameId] |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1121 |
else |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1122 |
ammoname := trammo[Ammoz[atype].NameId]; |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1123 |
|
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1124 |
if length(trluaammoc[Ammoz[atype].NameId]) > 0 then |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1125 |
ammocap := trluaammoc[Ammoz[atype].NameId] |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1126 |
else |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1127 |
ammocap := trammoc[Ammoz[atype].NameId]; |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1128 |
|
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1129 |
if length(trluaammod[Ammoz[atype].NameId]) > 0 then |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1130 |
ammodesc := trluaammod[Ammoz[atype].NameId] |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1131 |
else |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1132 |
ammodesc := trammod[Ammoz[atype].NameId]; |
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1133 |
|
11941
7ece39a537bd
Add SetAmmoDescriptionAppendix to Lua API, see issue 82
Wuzzy <almikes@aol.com>
parents:
11939
diff
changeset
|
1134 |
if length(trluaammoa[Ammoz[atype].NameId]) > 0 then |
7ece39a537bd
Add SetAmmoDescriptionAppendix to Lua API, see issue 82
Wuzzy <almikes@aol.com>
parents:
11939
diff
changeset
|
1135 |
ammodesc := ammodesc + '|' + trluaammoa[Ammoz[atype].NameId]; |
7ece39a537bd
Add SetAmmoDescriptionAppendix to Lua API, see issue 82
Wuzzy <almikes@aol.com>
parents:
11939
diff
changeset
|
1136 |
|
2747 | 1137 |
// render window and return the texture |
11939
c7ec309cd685
Add Lua API function SetAmmoTexts (see issue 82)
Wuzzy <almikes@aol.com>
parents:
11895
diff
changeset
|
1138 |
WeaponTooltipTex:= RenderHelpWindow(ammoname, ammocap, ammodesc, extra, extracolor, SpritesData[sprAMAmmos].Surface, @r) |
2753 | 1139 |
end; |
2747 | 1140 |
|
1141 |
procedure ShowWeaponTooltip(x, y: LongInt); |
|
1142 |
begin |
|
1143 |
// draw the texture if it exists |
|
1144 |
if WeaponTooltipTex <> nil then |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2910
diff
changeset
|
1145 |
DrawTexture(x, y, WeaponTooltipTex) |
2747 | 1146 |
end; |
1147 |
||
7235
baa69bd025d9
1. Implement new page in frontend with options for video recording.
Stepan777 <stepik-777@mail.ru>
parents:
7198
diff
changeset
|
1148 |
{$IFDEF USE_VIDEO_RECORDING} |
7350
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1149 |
procedure InitOffscreenOpenGL; |
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1150 |
begin |
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1151 |
// create hidden window |
11367 | 1152 |
SDLwindow:= SDL_CreateWindow(PChar('hedgewars video rendering (SDL2 hidden window)'), |
7350
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1153 |
SDL_WINDOWPOS_CENTERED_MASK, SDL_WINDOWPOS_CENTERED_MASK, |
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1154 |
cScreenWidth, cScreenHeight, |
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1155 |
SDL_WINDOW_HIDDEN or SDL_WINDOW_OPENGL); |
11507 | 1156 |
if SDLCheck(SDLwindow <> nil, 'SDL_CreateWindow', true) then exit; |
7350
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1157 |
SetupOpenGL(); |
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1158 |
end; |
1dbf3f4340e0
When compiling with sdl2 use it instead of glut for creating hidden window (as suggested by koda).
Stepan777 <stepik-777@mail.ru>
parents:
7235
diff
changeset
|
1159 |
{$ENDIF} // USE_VIDEO_RECORDING |
7180 | 1160 |
|
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1161 |
procedure chFullScr(var s: shortstring); |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1162 |
var flags: Longword = 0; |
6072 | 1163 |
reinit: boolean = false; |
1164 |
{$IFNDEF DARWIN}ico: PSDL_Surface;{$ENDIF} |
|
11360 | 1165 |
x, y: LongInt; |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1166 |
begin |
8027
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7866
diff
changeset
|
1167 |
if cOnlyStats then |
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7866
diff
changeset
|
1168 |
begin |
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7866
diff
changeset
|
1169 |
MaxTextureSize:= 1024; |
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7866
diff
changeset
|
1170 |
exit |
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7866
diff
changeset
|
1171 |
end; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
1172 |
if Length(s) = 0 then |
8027
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7866
diff
changeset
|
1173 |
cFullScreen:= (not cFullScreen) |
e5ba3dd12531
make stats-only mode work headless. also skip a few things to save time/memory.
nemo
parents:
7866
diff
changeset
|
1174 |
else cFullScreen:= s = '1'; |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1175 |
|
8354
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1176 |
if cFullScreen then |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1177 |
begin |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1178 |
cScreenWidth:= cFullscreenWidth; |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1179 |
cScreenHeight:= cFullscreenHeight; |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1180 |
end |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1181 |
else |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1182 |
begin |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1183 |
cScreenWidth:= cWindowedWidth; |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1184 |
cScreenHeight:= cWindowedHeight; |
c25bee85d6f8
Separated fullscreen and windowed hwengine resolution parameters.
vitiv <nikita.utiu@gmail.com>
parents:
8309
diff
changeset
|
1185 |
end; |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1186 |
|
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1187 |
AddFileLog('Preparing to change video parameters...'); |
6598
fa518383563b
added pause/resume functionality for android, android need the opengl context to be recreated along with textures and whatnot
Xeli
parents:
6580
diff
changeset
|
1188 |
if SDLwindow = nil then |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1189 |
begin |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1190 |
// set window title |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1191 |
WriteToConsole('Init SDL_image... '); |
11507 | 1192 |
if SDLCheck(IMG_Init(IMG_INIT_PNG) <> 0, 'IMG_Init', true) then exit; |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1193 |
WriteLnToConsole(msgOK); |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1194 |
end |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1195 |
else |
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1196 |
begin |
6675
dab56311daa5
tipped by xeli, ammomenu texture needs to be redrawn on resize to update its position
koda
parents:
6674
diff
changeset
|
1197 |
AmmoMenuInvalidated:= true; |
6611 | 1198 |
{$IFDEF IPHONEOS} |
1199 |
// chFullScr is called when there is a rotation event and needs the SetScale and SetupOpenGL to set up the new resolution |
|
1200 |
// this 6 gl functions are the relevant ones and are hacked together here for optimisation |
|
1201 |
glMatrixMode(GL_MODELVIEW); |
|
1202 |
glPopMatrix; |
|
1203 |
glLoadIdentity(); |
|
1204 |
glScalef(2.0 / cScreenWidth, -2.0 / cScreenHeight, 1.0); |
|
1205 |
glTranslatef(0, -cScreenHeight / 2, 0); |
|
1206 |
glViewport(0, 0, cScreenWidth, cScreenHeight); |
|
1207 |
exit; |
|
1208 |
{$ELSE} |
|
5847 | 1209 |
SetScale(cDefaultZoomLevel); |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1210 |
{$IFDEF USE_CONTEXT_RESTORE} |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
1211 |
reinit:= true; |
6394
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
1212 |
StoreRelease(true); |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
1213 |
ResetLand; |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
1214 |
ResetWorldTex; |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
1215 |
//uTextures.freeModule; //DEBUG ONLY |
6598
fa518383563b
added pause/resume functionality for android, android need the opengl context to be recreated along with textures and whatnot
Xeli
parents:
6580
diff
changeset
|
1216 |
{$ENDIF} |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1217 |
AddFileLog('Freeing old primary surface...'); |
6611 | 1218 |
{$ENDIF} |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1219 |
end; |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1220 |
|
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1221 |
// these attributes must be set up before creating the sdl window |
5883
a6d764786905
Disable GL SetAttributes for Windows due to many testers with problems. This restores .15 behaviour.
nemo
parents:
5847
diff
changeset
|
1222 |
{$IFNDEF WIN32} |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1223 |
(* On a large number of testers machines, SDL default to software rendering |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1224 |
when opengl attributes were set. These attributes were "set" after |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1225 |
CreateWindow in .15, which probably did nothing. |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1226 |
IMO we should rely on the gl_config defaults from SDL, and use |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1227 |
SDL_GL_GetAttribute to possibly post warnings if any bad values are set. |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1228 |
*) |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1229 |
SetupOpenGLAttributes(); |
5883
a6d764786905
Disable GL SetAttributes for Windows due to many testers with problems. This restores .15 behaviour.
nemo
parents:
5847
diff
changeset
|
1230 |
{$ENDIF} |
11518
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1231 |
|
5187 | 1232 |
// these values in x and y make the window appear in the center |
1233 |
x:= SDL_WINDOWPOS_CENTERED_MASK; |
|
1234 |
y:= SDL_WINDOWPOS_CENTERED_MASK; |
|
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1235 |
|
6021 | 1236 |
if SDLwindow = nil then |
11518
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1237 |
begin |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1238 |
|
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1239 |
// SDL_WINDOW_RESIZABLE makes the window resizable and |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1240 |
// respond to rotation events on mobile devices |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1241 |
flags:= SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN or SDL_WINDOW_RESIZABLE; |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1242 |
|
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1243 |
{$IFDEF MOBILE} |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1244 |
if isPhone() then |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1245 |
SDL_SetHint('SDL_IOS_ORIENTATIONS','LandscapeLeft LandscapeRight'); |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1246 |
// no need for borders on mobile devices |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1247 |
flags:= flags or SDL_WINDOW_BORDERLESS; |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1248 |
{$ENDIF} |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1249 |
|
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1250 |
if cFullScreen then |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1251 |
flags:= flags or SDL_WINDOW_FULLSCREEN; |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1252 |
|
11367 | 1253 |
SDLwindow:= SDL_CreateWindow(PChar('Hedgewars'), x, y, cScreenWidth, cScreenHeight, flags); |
11518
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1254 |
end |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1255 |
// we're toggling |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1256 |
else if Length(s) = 0 then |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1257 |
begin |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1258 |
if cFullScreen then |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1259 |
begin |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1260 |
SDL_SetWindowSize(SDLwindow, cScreenWidth, cScreenHeight); |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1261 |
SDL_SetWindowFullscreen(SDLwindow, SDL_WINDOW_FULLSCREEN); |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1262 |
end |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1263 |
else |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1264 |
begin |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1265 |
SDL_SetWindowFullscreen(SDLwindow, 0); |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1266 |
SDL_SetWindowSize(SDLwindow, cScreenWidth, cScreenHeight); |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1267 |
SDL_SetWindowPosition(SDLwindow, x, y); |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1268 |
end; |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1269 |
updateViewLimits(); |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1270 |
end; |
02a13be714d2
SDL2: fix toggling fullscreen. dunno how well this works on non-linux-OS
sheepluva
parents:
11507
diff
changeset
|
1271 |
|
11507 | 1272 |
if SDLCheck(SDLwindow <> nil, 'SDL_CreateWindow', true) then exit; |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1273 |
|
11373 | 1274 |
// load engine ico |
1275 |
{$IFNDEF DARWIN} |
|
1276 |
ico:= LoadDataImage(ptGraphics, 'hwengine', ifIgnoreCaps); |
|
1277 |
if ico <> nil then |
|
1278 |
begin |
|
1279 |
SDL_SetWindowIcon(SDLwindow, ico); |
|
1280 |
SDL_FreeSurface(ico); |
|
1281 |
end; |
|
1282 |
{$ENDIF} |
|
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1283 |
SetupOpenGL(); |
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7866
diff
changeset
|
1284 |
|
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
1285 |
if reinit then |
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
1286 |
begin |
6394
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
1287 |
// clean the window from any previous content |
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10302
diff
changeset
|
1288 |
RenderClear(); |
5704 | 1289 |
if SuddenDeathDmg then |
11895
19cb0de79287
Make sd-tint a theme variable so cophernue can tweak his sky tinting
nemo
parents:
11822
diff
changeset
|
1290 |
SetSkyColor(SDSkyColor.r * (SDTint.r/255) / 255, SDSkyColor.g * (SDTint.g/255) / 255, SDSkyColor.b * (SDTint.b/255) / 255) |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1291 |
else if ((cReducedQuality and rqNoBackground) = 0) then |
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1292 |
SetSkyColor(SkyColor.r / 255, SkyColor.g / 255, SkyColor.b / 255) |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6515
diff
changeset
|
1293 |
else |
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1294 |
SetSkyColor(RQSkyColor.r / 255, RQSkyColor.g / 255, RQSkyColor.b / 255); |
5704 | 1295 |
|
6394
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
1296 |
// reload everything we had before |
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
1297 |
ReloadCaptions(false); |
6382
0e76c5cd4250
move the order of reloading texture to workaround buggy drivers
koda
parents:
6380
diff
changeset
|
1298 |
ReloadLines; |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
1299 |
StoreLoad(true); |
6394
f0a9042e7387
yay, finally osx (and likely windows) fullscreen switch works like on linux! ALL textures had to be destroyed and recreated only after the new window got created. In other news, the new window must be cleaned with glClear to skip a first frame of garbage and AddProgress is only called the first time.
koda
parents:
6382
diff
changeset
|
1300 |
// redraw all land |
7170
84ac6c6d2d8e
Only create textures for non-empty LandPixel chunks. This should save a fair amount of memory, especially on smaller maps, and eliminate a number of draws
nemo
parents:
7151
diff
changeset
|
1301 |
UpdateLandTexture(0, LAND_WIDTH, 0, LAND_HEIGHT, false); |
5608
1e5d925dde9d
Attempt to recreate all textures if using Windows or OSX which lose textures on context recreation.
nemo
parents:
5565
diff
changeset
|
1302 |
end; |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1303 |
end; |
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1304 |
|
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1305 |
// for sdl1.2 we directly call SDL_WarpMouse() |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1306 |
// for sdl2 we provide a SDL_WarpMouse() which just calls this function |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1307 |
// this has the advantage of reducing 'uses' and 'ifdef' statements |
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1308 |
// (SDLwindow is a private member of this module) |
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1309 |
procedure WarpMouse(x, y: Word); inline; |
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1310 |
begin |
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1311 |
SDL_WarpMouseInWindow(SDLwindow, x, y); |
9317
a04c30940d2d
use SDL2 as ifdef symbol because we're not really sdl1.3 compatible, change the compatibility layer, drop unused code, add some documentation
koda
parents:
9295
diff
changeset
|
1312 |
end; |
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1313 |
|
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1314 |
procedure SwapBuffers; {$IFDEF USE_VIDEO_RECORDING}cdecl{$ELSE}inline{$ENDIF}; |
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1315 |
begin |
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1316 |
if GameType = gmtRecord then |
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1317 |
exit; |
9684 | 1318 |
SDL_GL_SwapWindow(SDLwindow); |
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1319 |
end; |
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1320 |
|
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1321 |
procedure SetSkyColor(r, g, b: real); |
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1322 |
begin |
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10302
diff
changeset
|
1323 |
RenderSetClearColor(r, g, b, 0.99) |
9295
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1324 |
end; |
f8819c3dde54
Remove some GLunit dependencies noticed on graph. uUtils was using it for GLfloat - but, the stuff it was returning to was usually converting to "real" anyway. uLand was including it unnecessarily. Minor refactor
nemo
parents:
9080
diff
changeset
|
1325 |
|
3038 | 1326 |
procedure initModule; |
4925 | 1327 |
var ai: TAmmoType; |
1328 |
i: LongInt; |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
1329 |
begin |
6898 | 1330 |
RegisterVariable('fullscr', @chFullScr, true); |
4398
36d7e4b6ca81
Move some command handlers out of uCommands into more appropriate places, thus removing some dependencies. Ideally uCommands shouldn't depend on anything (except for uTypes and uConsts probably)
unc0rr
parents:
4390
diff
changeset
|
1331 |
|
7121
ce5e70fe4eb3
http://www.demoties.com/wp-content/uploads/2011/03/mar-01-6.jpg
nemo
parents:
7102
diff
changeset
|
1332 |
cScaleFactor:= 2.0; |
10266 | 1333 |
updateViewLimits(); |
3394
47b51e22e670
Henek's patch - adds a column to ammoMenu and removes the F* column in iphone version
koda
parents:
3390
diff
changeset
|
1334 |
Step:= 0; |
47b51e22e670
Henek's patch - adds a column to ammoMenu and removes the F* column in iphone version
koda
parents:
3390
diff
changeset
|
1335 |
ProgrTex:= nil; |
5660
1647244b3ffe
set gl attributes before creating the window, or some of them might be ignored (like vsync on osx); also don't skip some reloads when switching to fullscreen and back; finally did a little code re-organisation
koda
parents:
5654
diff
changeset
|
1336 |
SupportNPOTT:= false; |
4925 | 1337 |
|
1338 |
// init all ammo name texture pointers |
|
1339 |
for ai:= Low(TAmmoType) to High(TAmmoType) do |
|
1340 |
begin |
|
1341 |
Ammoz[ai].NameTex := nil; |
|
1342 |
end; |
|
1343 |
// init all count texture pointers |
|
1344 |
for i:= Low(CountTexz) to High(CountTexz) do |
|
1345 |
CountTexz[i] := nil; |
|
7049 | 1346 |
SDLwindow:= nil; |
1347 |
SDLGLcontext:= nil; |
|
10262 | 1348 |
|
1349 |
prevHat:= 'NoHat'; |
|
1350 |
tmpHatSurf:= nil; |
|
2699
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
1351 |
end; |
249adefa9c1c
replace initialization/finalization statements with custom init functions
koda
parents:
2698
diff
changeset
|
1352 |
|
3038 | 1353 |
procedure freeModule; |
10640 | 1354 |
var fi: THWFont; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2705
diff
changeset
|
1355 |
begin |
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7013
diff
changeset
|
1356 |
StoreRelease(false); |
10640 | 1357 |
// make sure fonts are cleaned up |
1358 |
for fi:= Low(THWFont) to High(THWFont) do |
|
1359 |
with Fontz[fi] do |
|
1360 |
begin |
|
1361 |
if Handle <> nil then |
|
1362 |
begin |
|
1363 |
TTF_CloseFont(Handle); |
|
1364 |
Handle:= nil; |
|
1365 |
end; |
|
1366 |
end; |
|
1367 |
||
7026
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7013
diff
changeset
|
1368 |
TTF_Quit(); |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7013
diff
changeset
|
1369 |
SDL_GL_DeleteContext(SDLGLcontext); |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7013
diff
changeset
|
1370 |
SDL_DestroyWindow(SDLwindow); |
8d1724e1337e
split OnDestroy across the appropriate modules (this doen't cause leaks on mobile, right?)
koda
parents:
7013
diff
changeset
|
1371 |
SDL_Quit(); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2705
diff
changeset
|
1372 |
end; |
4 | 1373 |
end. |