| author | darkvater |
| Sun, 12 Sep 2004 21:49:38 +0000 | |
| changeset 222 | b88456001397 |
| parent 206 | 7f8c26d8526b |
| child 223 | 0e5cc5a65df6 |
| permissions | -rw-r--r-- |
| 0 | 1 |
#include "stdafx.h" |
2 |
#include "ttd.h" |
|
3 |
#include "gfx.h" |
|
4 |
#include "sound.h" |
|
5 |
#include "window.h" |
|
6 |
#include <windows.h> |
|
7 |
#include <mmsystem.h> |
|
8 |
#include "hal.h" |
|
9 |
#include <winnt.h> |
|
10 |
#include <wininet.h> |
|
11 |
#include <io.h> |
|
12 |
#include <fcntl.h> |
|
13 |
||
14 |
#define SMART_PALETTE_ANIM |
|
15 |
||
16 |
static struct {
|
|
17 |
HWND main_wnd; |
|
18 |
HBITMAP dib_sect; |
|
19 |
void *bitmap_bits; |
|
20 |
void *buffer_bits; |
|
21 |
void *alloced_bits; |
|
22 |
HPALETTE gdi_palette; |
|
23 |
int width,height; |
|
24 |
int width_org, height_org; |
|
25 |
bool cursor_visible; |
|
26 |
bool switch_driver; |
|
27 |
bool fullscreen; |
|
28 |
bool double_size; |
|
29 |
bool has_focus; |
|
30 |
bool running; |
|
31 |
} _wnd; |
|
32 |
||
33 |
static HINSTANCE _inst; |
|
34 |
static bool _has_console; |
|
35 |
||
36 |
#if defined(MINGW32) || defined(__CYGWIN__) |
|
37 |
#define __TIMESTAMP__ __DATE__ __TIME__ |
|
38 |
#endif |
|
39 |
||
40 |
#ifdef WIN32_ENABLE_DIRECTMUSIC_SUPPORT |
|
41 |
extern const HalMusicDriver _dmusic_midi_driver; |
|
42 |
#endif |
|
43 |
||
44 |
static void MakePalette() |
|
45 |
{
|
|
46 |
LOGPALETTE *pal; |
|
47 |
int i; |
|
48 |
byte *b; |
|
49 |
||
50 |
pal = alloca(sizeof(LOGPALETTE) + (256-1) * sizeof(PALETTEENTRY)); |
|
51 |
||
52 |
pal->palVersion = 0x300; |
|
53 |
pal->palNumEntries = 256; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
54 |
|
| 0 | 55 |
for(i=0,b=_cur_palette; i!=256;i++,b+=3) {
|
56 |
pal->palPalEntry[i].peRed = b[0]; |
|
57 |
pal->palPalEntry[i].peGreen = b[1]; |
|
58 |
pal->palPalEntry[i].peBlue = b[2]; |
|
59 |
pal->palPalEntry[i].peFlags = 0; |
|
60 |
||
61 |
} |
|
62 |
_wnd.gdi_palette = CreatePalette(pal); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
63 |
if (_wnd.gdi_palette == NULL) |
| 0 | 64 |
error("CreatePalette failed!\n");
|
65 |
} |
|
66 |
||
67 |
static void UpdatePalette(HDC dc, uint start, uint count) |
|
68 |
{
|
|
69 |
RGBQUAD rgb[256]; |
|
70 |
uint i; |
|
71 |
byte *b; |
|
72 |
||
73 |
for(i=0,b = _cur_palette + start*3; i!=count; i++,b+=3) {
|
|
74 |
rgb[i].rgbRed = b[0]; |
|
75 |
rgb[i].rgbGreen = b[1]; |
|
76 |
rgb[i].rgbBlue = b[2]; |
|
77 |
rgb[i].rgbReserved = 0; |
|
78 |
} |
|
79 |
||
80 |
SetDIBColorTable(dc, start, count, rgb); |
|
81 |
} |
|
82 |
||
83 |
static bool MyShowCursor(bool show) |
|
84 |
{
|
|
85 |
if (_wnd.cursor_visible == show) |
|
86 |
return show; |
|
87 |
||
88 |
_wnd.cursor_visible = show; |
|
89 |
ShowCursor(show); |
|
90 |
||
91 |
return !show; |
|
92 |
} |
|
93 |
||
94 |
typedef struct {
|
|
95 |
byte vk_from; |
|
96 |
byte vk_count; |
|
97 |
byte map_to; |
|
98 |
} VkMapping; |
|
99 |
||
100 |
#define AS(x,z) {x,0,z}
|
|
101 |
#define AM(x,y,z,w) {x,y-x,z}
|
|
102 |
||
|
153
3dbe2cfd7b3c
(svn r154) -Fix: some people while using MSVC don't have VK_OEM_3 defined? Or it could be Win2000/XP only
darkvater
parents:
151
diff
changeset
|
103 |
#ifndef VK_OEM_3 |
|
3dbe2cfd7b3c
(svn r154) -Fix: some people while using MSVC don't have VK_OEM_3 defined? Or it could be Win2000/XP only
darkvater
parents:
151
diff
changeset
|
104 |
#define VK_OEM_3 0xC0 |
|
3dbe2cfd7b3c
(svn r154) -Fix: some people while using MSVC don't have VK_OEM_3 defined? Or it could be Win2000/XP only
darkvater
parents:
151
diff
changeset
|
105 |
#endif |
|
3dbe2cfd7b3c
(svn r154) -Fix: some people while using MSVC don't have VK_OEM_3 defined? Or it could be Win2000/XP only
darkvater
parents:
151
diff
changeset
|
106 |
|
| 0 | 107 |
static const VkMapping _vk_mapping[] = {
|
108 |
// Pageup stuff + up/down |
|
109 |
AM(VK_PRIOR,VK_DOWN, WKC_PAGEUP, WKC_DOWN), |
|
110 |
// Map letters & digits |
|
111 |
AM('A','Z','A','Z'),
|
|
112 |
AM('0','9','0','9'),
|
|
113 |
||
|
151
e90bf7f77216
(svn r152) -Fix: [1021061] windows WKC_BACKQUOTE [US] (sign_de)
darkvater
parents:
135
diff
changeset
|
114 |
AS(VK_OEM_3, WKC_BACKQUOTE), |
|
135
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
115 |
AS(220, WKC_BACKQUOTE), |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
116 |
|
| 0 | 117 |
AS(VK_ESCAPE, WKC_ESC), |
118 |
AS(VK_BACK, WKC_BACKSPACE), |
|
119 |
AM(VK_INSERT,VK_DELETE,WKC_INSERT, WKC_DELETE), |
|
120 |
||
121 |
AS(VK_SPACE, WKC_SPACE), |
|
122 |
AS(VK_RETURN, WKC_RETURN), |
|
123 |
AS(VK_TAB, WKC_TAB), |
|
124 |
||
125 |
// Function keys |
|
126 |
AM(VK_F1, VK_F12, WKC_F1, WKC_F12), |
|
127 |
||
128 |
// Numeric part. |
|
129 |
// What is the virtual keycode for numeric enter?? |
|
130 |
AM(VK_NUMPAD0,VK_NUMPAD9, WKC_NUM_0, WKC_NUM_9), |
|
131 |
AS(VK_DIVIDE, WKC_NUM_DIV), |
|
132 |
AS(VK_MULTIPLY, WKC_NUM_MUL), |
|
133 |
AS(VK_SUBTRACT, WKC_NUM_MINUS), |
|
134 |
AS(VK_ADD, WKC_NUM_PLUS), |
|
135 |
AS(VK_DECIMAL, WKC_NUM_DECIMAL), |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
136 |
{0}
|
| 0 | 137 |
}; |
138 |
||
139 |
static uint MapWindowsKey(uint key) |
|
140 |
{
|
|
141 |
const VkMapping *map = _vk_mapping - 1; |
|
142 |
uint from; |
|
143 |
do {
|
|
144 |
map++; |
|
145 |
from = map->vk_from; |
|
|
135
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
146 |
if (from == 0) {
|
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
147 |
return 0; // Unknown key pressed. |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
148 |
} |
| 0 | 149 |
} while ((uint)(key - from) > map->vk_count); |
150 |
||
151 |
key = key - from + map->map_to; |
|
|
135
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
152 |
|
| 0 | 153 |
if (GetAsyncKeyState(VK_SHIFT)<0) key |= WKC_SHIFT; |
154 |
if (GetAsyncKeyState(VK_CONTROL)<0) key |= WKC_CTRL; |
|
155 |
if (GetAsyncKeyState(VK_MENU)<0) key |= WKC_ALT; |
|
156 |
return key; |
|
157 |
} |
|
158 |
||
159 |
static void MakeWindow(bool full_screen); |
|
160 |
static bool AllocateDibSection(int w, int h); |
|
161 |
||
162 |
static void ClientSizeChanged(int w, int h) |
|
163 |
{
|
|
164 |
if (_wnd.double_size) { w >>= 1; h >>= 1; }
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
165 |
|
| 0 | 166 |
// allocate new dib section of the new size |
167 |
if (AllocateDibSection(w, h)) {
|
|
168 |
// mark all palette colors dirty |
|
169 |
_pal_first_dirty = 0; |
|
170 |
_pal_last_dirty = 255; |
|
171 |
GameSizeChanged(); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
172 |
|
| 0 | 173 |
// redraw screen |
174 |
if (_wnd.running) {
|
|
175 |
_screen.dst_ptr = _wnd.buffer_bits; |
|
176 |
UpdateWindows(); |
|
177 |
} |
|
178 |
} |
|
179 |
} |
|
180 |
||
181 |
static LRESULT CALLBACK WndProcGdi(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) |
|
182 |
{
|
|
183 |
switch(msg) {
|
|
184 |
case WM_PAINT: {
|
|
185 |
PAINTSTRUCT ps; |
|
186 |
HDC dc,dc2; |
|
187 |
HBITMAP old_bmp; |
|
188 |
HPALETTE old_palette; |
|
189 |
BeginPaint(hwnd, &ps); |
|
190 |
dc = ps.hdc; |
|
191 |
dc2 = CreateCompatibleDC(dc); |
|
192 |
old_bmp = SelectObject(dc2, _wnd.dib_sect); |
|
193 |
old_palette = SelectPalette(dc, _wnd.gdi_palette, FALSE); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
194 |
|
| 0 | 195 |
if (_pal_last_dirty != -1) {
|
196 |
UpdatePalette(dc2, _pal_first_dirty, _pal_last_dirty - _pal_first_dirty + 1); |
|
197 |
_pal_last_dirty = -1; |
|
198 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
199 |
|
| 0 | 200 |
BitBlt(dc, 0, 0, _wnd.width, _wnd.height, dc2, 0, 0, SRCCOPY); |
201 |
SelectPalette(dc, old_palette, TRUE); |
|
202 |
SelectObject(dc2, old_bmp); |
|
203 |
DeleteDC(dc2); |
|
204 |
EndPaint(hwnd, &ps); |
|
205 |
} |
|
206 |
return 0; |
|
207 |
||
208 |
case WM_PALETTECHANGED: |
|
209 |
if ((HWND)wParam == hwnd) |
|
210 |
return 0; |
|
211 |
// FALL THROUGH |
|
212 |
case WM_QUERYNEWPALETTE: {
|
|
213 |
HDC hDC = GetWindowDC(hwnd); |
|
214 |
HPALETTE hOldPalette = SelectPalette(hDC, _wnd.gdi_palette, FALSE); |
|
215 |
UINT nChanged = RealizePalette(hDC); |
|
216 |
SelectPalette(hDC, hOldPalette, TRUE); |
|
217 |
ReleaseDC(hwnd, hDC); |
|
218 |
if (nChanged) |
|
219 |
InvalidateRect(hwnd, NULL, FALSE); |
|
220 |
return 0; |
|
221 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
222 |
|
| 0 | 223 |
case WM_CLOSE: |
224 |
AskExitGame(); |
|
225 |
return 0; |
|
226 |
||
227 |
case WM_LBUTTONDOWN: |
|
228 |
SetCapture(hwnd); |
|
229 |
_left_button_down = true; |
|
230 |
return 0; |
|
231 |
||
232 |
case WM_LBUTTONUP: |
|
233 |
ReleaseCapture(); |
|
234 |
_left_button_down = false; |
|
235 |
_left_button_clicked = false; |
|
236 |
return 0; |
|
237 |
||
238 |
case WM_RBUTTONDOWN: |
|
239 |
SetCapture(hwnd); |
|
240 |
_right_button_down = true; |
|
241 |
_right_button_clicked = true; |
|
242 |
return 0; |
|
243 |
||
244 |
case WM_RBUTTONUP: |
|
245 |
ReleaseCapture(); |
|
246 |
_right_button_down = false; |
|
247 |
return 0; |
|
248 |
||
249 |
case WM_MOUSEMOVE: {
|
|
250 |
int x = (int16)LOWORD(lParam); |
|
251 |
int y = (int16)HIWORD(lParam); |
|
252 |
POINT pt; |
|
253 |
||
254 |
if (_wnd.double_size) {
|
|
255 |
x >>= 1; |
|
256 |
y >>= 1; |
|
257 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
258 |
|
| 0 | 259 |
if (_cursor.fix_at) {
|
260 |
int dx = x - _cursor.pos.x; |
|
261 |
int dy = y - _cursor.pos.y; |
|
262 |
if (dx != 0 || dy != 0) {
|
|
263 |
_cursor.delta.x += dx; |
|
264 |
_cursor.delta.y += dy; |
|
265 |
||
266 |
pt.x = _cursor.pos.x; |
|
267 |
pt.y = _cursor.pos.y; |
|
268 |
||
269 |
if (_wnd.double_size) {
|
|
270 |
pt.x *= 2; |
|
271 |
pt.y *= 2; |
|
272 |
} |
|
273 |
ClientToScreen(hwnd, &pt); |
|
274 |
SetCursorPos(pt.x, pt.y); |
|
275 |
} |
|
276 |
} else {
|
|
277 |
_cursor.delta.x += x - _cursor.pos.x; |
|
278 |
_cursor.delta.y += y - _cursor.pos.y; |
|
279 |
_cursor.pos.x = x; |
|
280 |
_cursor.pos.y = y; |
|
281 |
_cursor.dirty = true; |
|
282 |
} |
|
283 |
MyShowCursor(false); |
|
284 |
return 0; |
|
285 |
} |
|
286 |
||
287 |
case WM_KEYDOWN: |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
288 |
{
|
|
135
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
289 |
// this is the rewritten ascii input function |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
290 |
// it disables windows deadkey handling --> more linux like :D |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
291 |
unsigned short w = 0; |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
292 |
int r = 0; |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
293 |
byte ks[256]; |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
294 |
unsigned int scan=0; |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
295 |
GetKeyboardState(ks); |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
296 |
r=ToAscii(wParam,scan,ks,&w,0); |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
297 |
if (r=0) w=0; |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
298 |
|
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
299 |
_pressed_key = w | MapWindowsKey(wParam) << 16; |
|
638fb31434eb
(svn r136) -Feature/Fix: Console Rev #2 and WKC_BACKQUOTE this patch adds new features to the ingame console and inserts a new keymanagement for windows pcs... (sign_de)
darkvater
parents:
49
diff
changeset
|
300 |
} |
| 0 | 301 |
if ((_pressed_key>>16) == ('D' | WKC_CTRL) && !_wnd.fullscreen) {
|
302 |
_double_size ^= 1; |
|
303 |
_wnd.double_size = _double_size; |
|
304 |
ClientSizeChanged(_wnd.width, _wnd.height); |
|
305 |
MarkWholeScreenDirty(); |
|
306 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
307 |
break; |
| 0 | 308 |
|
309 |
||
|
198
0f3481fa50e1
(svn r199) -Fix: [993374] Pressing alt locks the game - sort of a bug. I hope I didn't break anything :O
darkvater
parents:
196
diff
changeset
|
310 |
case WM_SYSKEYDOWN: /* user presses F10 or Alt, both activating the title-menu */ |
| 0 | 311 |
switch(wParam) {
|
|
198
0f3481fa50e1
(svn r199) -Fix: [993374] Pressing alt locks the game - sort of a bug. I hope I didn't break anything :O
darkvater
parents:
196
diff
changeset
|
312 |
case VK_RETURN: /* Full Screen */ |
| 0 | 313 |
MakeWindow(!_wnd.fullscreen); |
314 |
return 0; |
|
|
199
10f6a586bfa6
(svn r200) -Fix: oops, ALT+F4 didn't work anymore. Fixed now.
darkvater
parents:
198
diff
changeset
|
315 |
case VK_MENU: /* Just ALT */ |
|
10f6a586bfa6
(svn r200) -Fix: oops, ALT+F4 didn't work anymore. Fixed now.
darkvater
parents:
198
diff
changeset
|
316 |
return 0; // do nothing |
|
10f6a586bfa6
(svn r200) -Fix: oops, ALT+F4 didn't work anymore. Fixed now.
darkvater
parents:
198
diff
changeset
|
317 |
default: /* ALT in combination with something else */ |
| 0 | 318 |
_pressed_key = MapWindowsKey(wParam) << 16; |
|
199
10f6a586bfa6
(svn r200) -Fix: oops, ALT+F4 didn't work anymore. Fixed now.
darkvater
parents:
198
diff
changeset
|
319 |
break; |
| 0 | 320 |
} |
321 |
break; |
|
322 |
case WM_NCMOUSEMOVE: |
|
323 |
MyShowCursor(true); |
|
324 |
return 0; |
|
325 |
||
326 |
case WM_SIZE: {
|
|
327 |
if (wParam != SIZE_MINIMIZED) {
|
|
328 |
ClientSizeChanged(LOWORD(lParam), HIWORD(lParam)); |
|
329 |
} |
|
330 |
return 0; |
|
331 |
} |
|
332 |
case WM_SIZING: {
|
|
333 |
RECT* r = (RECT*)lParam; |
|
334 |
RECT r2; |
|
335 |
int w, h; |
|
336 |
||
337 |
SetRect(&r2, 0, 0, 0, 0); |
|
338 |
AdjustWindowRect(&r2, GetWindowLong(hwnd, GWL_STYLE), FALSE); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
339 |
|
| 0 | 340 |
w = r->right - r->left - (r2.right - r2.left); |
341 |
h = r->bottom - r->top - (r2.bottom - r2.top); |
|
342 |
if (_wnd.double_size) { w >>= 1; h >>= 1; }
|
|
343 |
w = clamp(w & ~0x7, 64, MAX_SCREEN_WIDTH); |
|
344 |
h = clamp(h & ~0x7, 64, MAX_SCREEN_HEIGHT); |
|
345 |
if (_wnd.double_size) { w <<= 1; h <<= 1; }
|
|
346 |
SetRect(&r2, 0, 0, w, h); |
|
347 |
||
348 |
AdjustWindowRect(&r2, GetWindowLong(hwnd, GWL_STYLE), FALSE); |
|
349 |
w = r2.right - r2.left; |
|
350 |
h = r2.bottom - r2.top; |
|
351 |
||
352 |
switch (wParam) {
|
|
353 |
case WMSZ_BOTTOM: |
|
354 |
r->bottom = r->top + h; |
|
355 |
break; |
|
356 |
case WMSZ_BOTTOMLEFT: |
|
357 |
r->bottom = r->top + h; |
|
358 |
r->left = r->right - w; |
|
359 |
break; |
|
360 |
case WMSZ_BOTTOMRIGHT: |
|
361 |
r->bottom = r->top + h; |
|
362 |
r->right = r->left + w; |
|
363 |
break; |
|
364 |
case WMSZ_LEFT: |
|
365 |
r->left = r->right - w; |
|
366 |
break; |
|
367 |
case WMSZ_RIGHT: |
|
368 |
r->right = r->left + w; |
|
369 |
break; |
|
370 |
case WMSZ_TOP: |
|
371 |
r->top = r->bottom - h; |
|
372 |
break; |
|
373 |
case WMSZ_TOPLEFT: |
|
374 |
r->top = r->bottom - h; |
|
375 |
r->left = r->right - w; |
|
376 |
break; |
|
377 |
case WMSZ_TOPRIGHT: |
|
378 |
r->top = r->bottom - h; |
|
379 |
r->right = r->left + w; |
|
380 |
break; |
|
381 |
} |
|
382 |
return TRUE; |
|
383 |
} |
|
384 |
||
385 |
// needed for wheel |
|
386 |
#if !defined(WM_MOUSEWHEEL) |
|
387 |
# define WM_MOUSEWHEEL 0x020A |
|
388 |
#endif //WM_MOUSEWHEEL |
|
389 |
#if !defined(GET_WHEEL_DELTA_WPARAM) |
|
390 |
# define GET_WHEEL_DELTA_WPARAM(wparam) ((short)HIWORD(wparam)) |
|
391 |
#endif //GET_WHEEL_DELTA_WPARAM |
|
392 |
||
393 |
case WM_MOUSEWHEEL: {
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
394 |
int delta = GET_WHEEL_DELTA_WPARAM(wParam); |
| 0 | 395 |
if (delta < 0) {
|
396 |
_cursor.wheel++; |
|
397 |
} else if (delta > 0) {
|
|
398 |
_cursor.wheel--; |
|
399 |
} |
|
400 |
return 0; |
|
401 |
} |
|
402 |
||
403 |
case WM_ACTIVATEAPP: |
|
404 |
_wnd.has_focus = (bool)wParam; |
|
405 |
break; |
|
406 |
} |
|
407 |
return DefWindowProc(hwnd, msg, wParam, lParam); |
|
408 |
} |
|
409 |
||
410 |
static void RegisterWndClass() |
|
411 |
{
|
|
412 |
static bool registered; |
|
413 |
if (!registered) {
|
|
414 |
HINSTANCE hinst = GetModuleHandle(NULL); |
|
415 |
WNDCLASS wnd = {
|
|
416 |
0, |
|
417 |
WndProcGdi, |
|
418 |
0, |
|
419 |
0, |
|
420 |
hinst, |
|
421 |
LoadIcon(hinst, MAKEINTRESOURCE(100)), |
|
422 |
LoadCursor(NULL, IDC_ARROW), |
|
423 |
0, |
|
424 |
0, |
|
425 |
"TTD" |
|
426 |
}; |
|
427 |
registered = true; |
|
428 |
if (!RegisterClass(&wnd)) |
|
429 |
error("RegisterClass failed");
|
|
430 |
} |
|
431 |
} |
|
432 |
||
433 |
static void MakeWindow(bool full_screen) |
|
434 |
{
|
|
435 |
_fullscreen = full_screen; |
|
436 |
||
437 |
_wnd.double_size = _double_size && !full_screen; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
438 |
|
| 0 | 439 |
// recreate window? |
440 |
if ((full_screen|_wnd.fullscreen) && _wnd.main_wnd) {
|
|
441 |
DestroyWindow(_wnd.main_wnd); |
|
442 |
_wnd.main_wnd = 0; |
|
443 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
444 |
|
| 0 | 445 |
if (full_screen) {
|
446 |
DEVMODE settings; |
|
447 |
memset(&settings, 0, sizeof(DEVMODE)); |
|
448 |
settings.dmSize = sizeof(DEVMODE); |
|
449 |
settings.dmFields = DM_PELSWIDTH | DM_PELSHEIGHT; |
|
450 |
||
451 |
if (_fullscreen_bpp) {
|
|
452 |
settings.dmBitsPerPel = _fullscreen_bpp; |
|
453 |
settings.dmFields |= DM_BITSPERPEL; |
|
454 |
} |
|
455 |
settings.dmPelsWidth = _wnd.width_org; |
|
456 |
settings.dmPelsHeight = _wnd.height_org; |
|
457 |
if ((settings.dmDisplayFrequency = _display_hz) != 0) |
|
458 |
settings.dmFields |= DM_DISPLAYFREQUENCY; |
|
459 |
if ( !ChangeDisplaySettings(&settings, CDS_FULLSCREEN) == DISP_CHANGE_SUCCESSFUL ) {
|
|
460 |
MakeWindow(false); |
|
461 |
return; |
|
462 |
} |
|
463 |
} else if (_wnd.fullscreen) {
|
|
464 |
// restore display? |
|
465 |
ChangeDisplaySettings(NULL, 0); |
|
466 |
} |
|
467 |
||
468 |
{
|
|
469 |
RECT r; |
|
470 |
uint style; |
|
471 |
int x, y, w, h; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
472 |
|
| 0 | 473 |
if ((_wnd.fullscreen=full_screen) != false) {
|
474 |
style = WS_POPUP | WS_VISIBLE; |
|
475 |
SetRect(&r, 0, 0, _wnd.width_org, _wnd.height_org); |
|
476 |
} else {
|
|
477 |
style = WS_OVERLAPPEDWINDOW | WS_VISIBLE; |
|
478 |
SetRect(&r, 0, 0, _wnd.width, _wnd.height); |
|
479 |
} |
|
480 |
||
481 |
AdjustWindowRect(&r, style, FALSE); |
|
482 |
w = r.right - r.left; |
|
483 |
h = r.bottom - r.top; |
|
484 |
x = (GetSystemMetrics(SM_CXSCREEN)-w)>>1; |
|
485 |
y = (GetSystemMetrics(SM_CYSCREEN)-h)>>1; |
|
486 |
||
487 |
if (_wnd.main_wnd) {
|
|
488 |
SetWindowPos(_wnd.main_wnd, 0, x, y, w, h, SWP_NOACTIVATE | SWP_NOOWNERZORDER | SWP_NOZORDER); |
|
489 |
} else {
|
|
490 |
_wnd.main_wnd = CreateWindow("TTD", "OpenTTD", style, x, y, w, h, 0, 0, _inst, 0);
|
|
491 |
if (_wnd.main_wnd == NULL) |
|
492 |
error("CreateWindow failed");
|
|
493 |
} |
|
494 |
} |
|
495 |
} |
|
496 |
||
497 |
static bool AllocateDibSection(int w, int h) |
|
498 |
{
|
|
499 |
BITMAPINFO *bi; |
|
500 |
HDC dc; |
|
501 |
||
502 |
w = clamp(w & ~7, 64, MAX_SCREEN_WIDTH); |
|
503 |
h = clamp(h & ~7, 64, MAX_SCREEN_HEIGHT); |
|
504 |
||
505 |
if (w == _screen.width && h == _screen.height) |
|
506 |
return false; |
|
507 |
||
508 |
_screen.width = _screen.pitch = w; |
|
509 |
_screen.height = h; |
|
510 |
||
511 |
if (_wnd.alloced_bits) {
|
|
512 |
free(_wnd.alloced_bits); |
|
513 |
_wnd.alloced_bits = NULL; |
|
514 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
515 |
|
| 0 | 516 |
bi = alloca(sizeof(BITMAPINFOHEADER) + sizeof(RGBQUAD)*256); |
517 |
memset(bi, 0, sizeof(BITMAPINFOHEADER) + sizeof(RGBQUAD)*256); |
|
518 |
bi->bmiHeader.biSize = sizeof(BITMAPINFOHEADER); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
519 |
|
| 0 | 520 |
{
|
521 |
if (_wnd.double_size) {
|
|
522 |
_wnd.alloced_bits = _wnd.buffer_bits = (byte*)malloc(w * h); |
|
523 |
w *= 2; |
|
524 |
h *= 2; |
|
525 |
} |
|
526 |
||
527 |
bi->bmiHeader.biWidth = _wnd.width = w; |
|
528 |
bi->bmiHeader.biHeight = -(_wnd.height = h); |
|
529 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
530 |
|
| 0 | 531 |
bi->bmiHeader.biPlanes = 1; |
532 |
bi->bmiHeader.biBitCount = 8; |
|
533 |
bi->bmiHeader.biCompression = BI_RGB; |
|
534 |
||
535 |
if (_wnd.dib_sect) |
|
536 |
DeleteObject(_wnd.dib_sect); |
|
537 |
||
538 |
dc = GetDC(0); |
|
539 |
_wnd.dib_sect = CreateDIBSection(dc, bi, DIB_RGB_COLORS, &_wnd.bitmap_bits, NULL, 0); |
|
540 |
if (_wnd.dib_sect == NULL) |
|
541 |
error("CreateDIBSection failed");
|
|
542 |
ReleaseDC(0, dc); |
|
543 |
||
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
544 |
if (!_wnd.double_size) |
| 0 | 545 |
_wnd.buffer_bits = _wnd.bitmap_bits; |
546 |
||
547 |
return true; |
|
548 |
} |
|
549 |
||
550 |
static const uint16 default_resolutions[][2] = {
|
|
551 |
{640,480},
|
|
552 |
{800,600},
|
|
553 |
{1024,768},
|
|
554 |
{1152,864},
|
|
555 |
{1280,960},
|
|
556 |
{1280,1024},
|
|
557 |
{1400,1050},
|
|
558 |
{1600,1200},
|
|
559 |
}; |
|
560 |
||
561 |
static void FindResolutions() |
|
562 |
{
|
|
563 |
int i = 0, n = 0; |
|
564 |
DEVMODE dm; |
|
565 |
||
566 |
while (EnumDisplaySettings(NULL, i++, &dm)) {
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
567 |
if (dm.dmBitsPerPel == 8 && |
| 0 | 568 |
IS_INT_INSIDE(dm.dmPelsWidth, 640, MAX_SCREEN_WIDTH+1) && |
569 |
IS_INT_INSIDE(dm.dmPelsHeight, 480, MAX_SCREEN_HEIGHT+1) && |
|
570 |
(n == 0 || _resolutions[n-1][0] != dm.dmPelsWidth || _resolutions[n-1][1] != dm.dmPelsHeight)) {
|
|
571 |
_resolutions[n][0] = dm.dmPelsWidth; |
|
572 |
_resolutions[n][1] = dm.dmPelsHeight; |
|
573 |
if (++n == sizeof(_resolutions) / (sizeof(uint16)*2)) break; |
|
574 |
} |
|
575 |
} |
|
576 |
||
577 |
if (n == 0) {
|
|
578 |
memcpy(_resolutions, default_resolutions, sizeof(default_resolutions)); |
|
579 |
n = 6; |
|
580 |
} |
|
581 |
||
582 |
_num_resolutions = n; |
|
583 |
} |
|
584 |
||
585 |
||
|
8
9ab81ef450f2
(svn r9) Fixed a couple of warnings and minor coding issues
dominik
parents:
0
diff
changeset
|
586 |
static const char *Win32GdiStart(char **parm) |
| 0 | 587 |
{
|
588 |
memset(&_wnd, 0, sizeof(_wnd)); |
|
589 |
_wnd.cursor_visible = true; |
|
590 |
||
591 |
RegisterWndClass(); |
|
592 |
||
593 |
MakePalette(); |
|
594 |
||
595 |
FindResolutions(); |
|
596 |
||
597 |
// fullscreen uses those |
|
598 |
_wnd.width_org = _cur_resolution[0]; |
|
599 |
_wnd.height_org = _cur_resolution[1]; |
|
600 |
||
601 |
AllocateDibSection(_cur_resolution[0], _cur_resolution[1]); |
|
602 |
MarkWholeScreenDirty(); |
|
603 |
||
604 |
MakeWindow(_fullscreen); |
|
605 |
||
606 |
return NULL; |
|
607 |
} |
|
608 |
||
609 |
static void Win32GdiStop() |
|
610 |
{
|
|
611 |
if ( _wnd.fullscreen ) {
|
|
612 |
ChangeDisplaySettings(NULL, 0); |
|
613 |
} |
|
614 |
MyShowCursor(true); |
|
615 |
DeleteObject(_wnd.gdi_palette); |
|
616 |
DeleteObject(_wnd.dib_sect); |
|
617 |
DestroyWindow(_wnd.main_wnd); |
|
618 |
} |
|
619 |
||
620 |
// simple upscaler by 2 |
|
621 |
static void filter(int left, int top, int width, int height) |
|
622 |
{
|
|
623 |
uint p = _screen.pitch; |
|
624 |
byte *s = (byte*)_wnd.buffer_bits + top * p + left; |
|
625 |
byte *d = (byte*)_wnd.bitmap_bits + top * p * 4 + left * 2; |
|
626 |
int i; |
|
627 |
||
628 |
while (height) {
|
|
629 |
for(i=0; i!=width; i++) {
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
630 |
d[i*2] = d[i*2+1] = d[i*2+p*2] = d[i*2+1+p*2] = s[i]; |
| 0 | 631 |
} |
632 |
s += p; |
|
633 |
d += p * 4; |
|
634 |
height--; |
|
635 |
} |
|
636 |
} |
|
637 |
||
638 |
static void Win32GdiMakeDirty(int left, int top, int width, int height) |
|
639 |
{
|
|
640 |
RECT r = {left, top, left+width, top+height};
|
|
641 |
if (_wnd.double_size) {
|
|
642 |
filter(left, top, width, height); |
|
643 |
//filter(0, 0, 640, 480); |
|
644 |
r.left *= 2;r.top *= 2;r.right *= 2;r.bottom *= 2; |
|
645 |
} |
|
646 |
InvalidateRect(_wnd.main_wnd, &r, FALSE); |
|
647 |
} |
|
648 |
||
649 |
static void CheckPaletteAnim() |
|
650 |
{
|
|
651 |
if (_pal_last_dirty == -1) |
|
652 |
return; |
|
653 |
InvalidateRect(_wnd.main_wnd, NULL, FALSE); |
|
654 |
} |
|
655 |
||
656 |
static int Win32GdiMainLoop() |
|
657 |
{
|
|
658 |
MSG mesg; |
|
659 |
uint32 next_tick = GetTickCount() + 30, cur_ticks; |
|
660 |
||
661 |
_wnd.running = true; |
|
662 |
||
663 |
while(true) {
|
|
664 |
while (PeekMessage(&mesg, NULL, 0, 0, PM_REMOVE)) {
|
|
665 |
InteractiveRandom(); // randomness |
|
666 |
TranslateMessage(&mesg); |
|
667 |
DispatchMessage(&mesg); |
|
668 |
} |
|
669 |
if (_exit_game) return ML_QUIT; |
|
670 |
if (_wnd.switch_driver) return ML_SWITCHDRIVER; |
|
671 |
||
672 |
#if defined(_DEBUG) |
|
673 |
if (_wnd.has_focus && GetAsyncKeyState(VK_SHIFT) < 0) {
|
|
674 |
#else |
|
675 |
if (_wnd.has_focus && GetAsyncKeyState(VK_TAB) < 0) {
|
|
676 |
#endif |
|
|
196
c4c33c0764a0
(svn r197) -Fix: Disable Fast Forward in network games visually (didn't work anyways, just showed graphical output)
darkvater
parents:
193
diff
changeset
|
677 |
if (!_networking) _fast_forward |= 2; |
| 0 | 678 |
} else if (_fast_forward&2) {
|
679 |
_fast_forward = 0; |
|
680 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
681 |
|
| 0 | 682 |
|
683 |
cur_ticks=GetTickCount(); |
|
684 |
if ((_fast_forward && !_pause) || cur_ticks > next_tick) |
|
685 |
next_tick = cur_ticks; |
|
686 |
||
687 |
if (cur_ticks == next_tick) {
|
|
688 |
next_tick += 30; |
|
689 |
_ctrl_pressed = _wnd.has_focus && GetAsyncKeyState(VK_CONTROL)<0; |
|
690 |
_shift_pressed = _wnd.has_focus && GetAsyncKeyState(VK_SHIFT)<0; |
|
691 |
_dbg_screen_rect = _wnd.has_focus && GetAsyncKeyState(VK_CAPITAL)<0; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
692 |
|
| 0 | 693 |
// determine which directional keys are down |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
694 |
_dirkeys = |
|
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
695 |
(GetAsyncKeyState(VK_LEFT) < 0 ? 1 : 0) + |
|
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
696 |
(GetAsyncKeyState(VK_UP) < 0 ? 2 : 0) + |
|
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
697 |
(GetAsyncKeyState(VK_RIGHT) < 0 ? 4 : 0) + |
| 0 | 698 |
(GetAsyncKeyState(VK_DOWN) < 0 ? 8 : 0); |
699 |
||
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
700 |
GameLoop(); |
| 0 | 701 |
_cursor.delta.x = _cursor.delta.y = 0; |
702 |
||
703 |
if (_force_full_redraw) |
|
704 |
MarkWholeScreenDirty(); |
|
705 |
||
706 |
GdiFlush(); |
|
707 |
_screen.dst_ptr = _wnd.buffer_bits; |
|
708 |
UpdateWindows(); |
|
709 |
CheckPaletteAnim(); |
|
710 |
} else {
|
|
711 |
Sleep(1); |
|
712 |
GdiFlush(); |
|
713 |
_screen.dst_ptr = _wnd.buffer_bits; |
|
714 |
DrawMouseCursor(); |
|
715 |
} |
|
716 |
} |
|
717 |
} |
|
718 |
||
719 |
static bool Win32GdiChangeRes(int w, int h) |
|
720 |
{
|
|
721 |
_wnd.width = _wnd.width_org = w; |
|
722 |
_wnd.height = _wnd.height_org = h; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
723 |
|
| 0 | 724 |
MakeWindow(_wnd.fullscreen); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
725 |
|
| 0 | 726 |
return true; |
727 |
} |
|
728 |
||
729 |
const HalVideoDriver _win32_video_driver = {
|
|
730 |
Win32GdiStart, |
|
731 |
Win32GdiStop, |
|
732 |
Win32GdiMakeDirty, |
|
733 |
Win32GdiMainLoop, |
|
734 |
Win32GdiChangeRes, |
|
735 |
}; |
|
736 |
||
737 |
||
738 |
/********************** |
|
739 |
* WIN32 MIDI PLAYER |
|
740 |
**********************/ |
|
741 |
||
742 |
struct {
|
|
743 |
bool stop_song; |
|
744 |
bool terminate; |
|
745 |
bool playing; |
|
746 |
int new_vol; |
|
747 |
HANDLE wait_obj; |
|
748 |
char start_song[260]; |
|
749 |
} _midi; |
|
750 |
||
751 |
static void Win32MidiPlaySong(const char *filename) |
|
752 |
{
|
|
753 |
strcpy(_midi.start_song, filename); |
|
754 |
_midi.playing = true; |
|
755 |
_midi.stop_song = false; |
|
756 |
SetEvent(_midi.wait_obj); |
|
757 |
} |
|
758 |
||
759 |
static void Win32MidiStopSong() |
|
760 |
{
|
|
761 |
if (_midi.playing) {
|
|
762 |
_midi.stop_song = true; |
|
763 |
_midi.start_song[0] = 0; |
|
764 |
SetEvent(_midi.wait_obj); |
|
765 |
} |
|
766 |
} |
|
767 |
||
768 |
static bool Win32MidiIsSongPlaying() |
|
769 |
{
|
|
770 |
return _midi.playing; |
|
771 |
} |
|
772 |
||
773 |
static void Win32MidiSetVolume(byte vol) |
|
774 |
{
|
|
775 |
_midi.new_vol = vol; |
|
776 |
SetEvent(_midi.wait_obj); |
|
777 |
} |
|
778 |
||
779 |
static long CDECL MidiSendCommand(const char *cmd, ...) {
|
|
780 |
va_list va; |
|
781 |
char buf[512]; |
|
782 |
va_start(va, cmd); |
|
783 |
vsprintf(buf, cmd, va); |
|
784 |
va_end(va); |
|
785 |
return mciSendStringA(buf, NULL, 0, 0); |
|
786 |
} |
|
787 |
||
788 |
static bool MidiIntPlaySong(const char *filename) |
|
789 |
{
|
|
790 |
MidiSendCommand("close all");
|
|
791 |
if (MidiSendCommand("open %s type sequencer alias song", filename) != 0)
|
|
792 |
return false; |
|
793 |
||
794 |
if (MidiSendCommand("play song from 0") != 0)
|
|
795 |
return false; |
|
796 |
return true; |
|
797 |
} |
|
798 |
||
799 |
static void MidiIntStopSong() |
|
800 |
{
|
|
801 |
MidiSendCommand("close all");
|
|
802 |
} |
|
803 |
||
804 |
static void MidiIntSetVolume(int vol) |
|
805 |
{
|
|
806 |
uint v = (vol * 65535 / 127); |
|
807 |
midiOutSetVolume((HMIDIOUT)-1, v + (v<<16)); |
|
808 |
} |
|
809 |
||
810 |
static bool MidiIntIsSongPlaying() |
|
811 |
{
|
|
812 |
char buf[16]; |
|
813 |
mciSendStringA("status song mode", buf, sizeof(buf), 0);
|
|
814 |
return strcmp(buf, "playing") == 0 || strcmp(buf, "seeking") == 0; |
|
815 |
} |
|
816 |
||
817 |
static DWORD WINAPI MidiThread(LPVOID arg) |
|
818 |
{
|
|
819 |
char *s; |
|
820 |
int vol; |
|
821 |
||
822 |
_midi.wait_obj = CreateEvent(NULL, FALSE, FALSE, NULL); |
|
823 |
||
824 |
do {
|
|
825 |
if ((vol=_midi.new_vol) != -1) {
|
|
826 |
_midi.new_vol = -1; |
|
827 |
MidiIntSetVolume(vol); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
828 |
|
| 0 | 829 |
} |
830 |
if ((s=_midi.start_song)[0]) {
|
|
831 |
_midi.playing = MidiIntPlaySong(s); |
|
832 |
s[0] = 0; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
833 |
|
| 0 | 834 |
// Delay somewhat in case we don't manage to play. |
835 |
if (!_midi.playing) {
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
836 |
Sleep(5000); |
| 0 | 837 |
} |
838 |
} |
|
839 |
if (_midi.stop_song != false && _midi.playing) {
|
|
840 |
_midi.stop_song = false; |
|
841 |
_midi.playing = false; |
|
842 |
MidiIntStopSong(); |
|
843 |
} |
|
844 |
||
845 |
if (_midi.playing && !MidiIntIsSongPlaying()) |
|
846 |
_midi.playing = false; |
|
847 |
||
848 |
WaitForMultipleObjects(1, &_midi.wait_obj, FALSE, 1000); |
|
849 |
} while (!_midi.terminate); |
|
850 |
||
851 |
DeleteObject(_midi.wait_obj); |
|
852 |
return 0; |
|
853 |
} |
|
854 |
||
855 |
static char *Win32MidiStart(char **parm) |
|
856 |
{
|
|
857 |
DWORD threadId; |
|
858 |
memset(&_midi, 0, sizeof(_midi)); |
|
859 |
_midi.new_vol = -1; |
|
860 |
CreateThread(NULL, 8192, MidiThread, 0, 0, &threadId); |
|
861 |
return 0; |
|
862 |
} |
|
863 |
||
864 |
static void Win32MidiStop() |
|
865 |
{
|
|
866 |
_midi.terminate = true; |
|
867 |
SetEvent(_midi.wait_obj); |
|
868 |
} |
|
869 |
||
870 |
const HalMusicDriver _win32_music_driver = {
|
|
871 |
Win32MidiStart, |
|
872 |
Win32MidiStop, |
|
873 |
Win32MidiPlaySong, |
|
874 |
Win32MidiStopSong, |
|
875 |
Win32MidiIsSongPlaying, |
|
876 |
Win32MidiSetVolume, |
|
877 |
}; |
|
878 |
||
879 |
// WIN32 Sound code. |
|
880 |
||
881 |
static HWAVEOUT _waveout; |
|
882 |
static WAVEHDR _wave_hdr[2]; |
|
883 |
static int _bufsize; |
|
884 |
static void PrepareHeader(WAVEHDR *hdr) |
|
885 |
{
|
|
886 |
hdr->dwBufferLength = _bufsize*4; |
|
887 |
hdr->dwFlags = 0; |
|
888 |
hdr->lpData = malloc(_bufsize*4); |
|
889 |
if (hdr->lpData == NULL || waveOutPrepareHeader(_waveout, hdr, sizeof(WAVEHDR)) != MMSYSERR_NOERROR) |
|
890 |
error("waveOutPrepareHeader failed");
|
|
891 |
} |
|
892 |
||
893 |
static void FillHeaders() |
|
894 |
{
|
|
895 |
WAVEHDR *hdr; |
|
896 |
for(hdr=_wave_hdr; hdr != endof(_wave_hdr); hdr++) {
|
|
897 |
if (!(hdr->dwFlags & WHDR_INQUEUE)) {
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
898 |
MxMixSamples(_mixer, hdr->lpData, hdr->dwBufferLength >> 2); |
| 0 | 899 |
if (waveOutWrite(_waveout, hdr, sizeof(WAVEHDR)) != MMSYSERR_NOERROR) |
900 |
error("waveOutWrite failed");
|
|
901 |
} |
|
902 |
} |
|
903 |
} |
|
904 |
||
905 |
static void CALLBACK waveOutProc(HWAVEOUT hwo, UINT uMsg, DWORD dwInstance, DWORD dwParam1, DWORD dwParam2) |
|
906 |
{
|
|
907 |
switch(uMsg) {
|
|
908 |
case WOM_DONE: |
|
909 |
if (_waveout) |
|
910 |
FillHeaders(); |
|
911 |
break; |
|
912 |
} |
|
913 |
} |
|
914 |
||
915 |
static char *Win32SoundStart(char **parm) |
|
916 |
{
|
|
917 |
WAVEFORMATEX wfex; |
|
918 |
int hz; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
919 |
|
| 0 | 920 |
_bufsize = GetDriverParamInt(parm, "bufsize", 1024); |
921 |
hz = GetDriverParamInt(parm, "hz", 11025); |
|
922 |
wfex.wFormatTag = WAVE_FORMAT_PCM; |
|
923 |
wfex.nChannels = 2; |
|
924 |
wfex.nSamplesPerSec = hz; |
|
925 |
wfex.nAvgBytesPerSec = hz*2*2; |
|
926 |
wfex.nBlockAlign = 4; |
|
927 |
wfex.wBitsPerSample = 16; |
|
928 |
if (waveOutOpen(&_waveout, WAVE_MAPPER, &wfex, (DWORD)&waveOutProc, 0, CALLBACK_FUNCTION) != MMSYSERR_NOERROR) |
|
929 |
return "waveOutOpen failed"; |
|
930 |
PrepareHeader(&_wave_hdr[0]); |
|
931 |
PrepareHeader(&_wave_hdr[1]); |
|
932 |
FillHeaders(); |
|
933 |
return NULL; |
|
934 |
} |
|
935 |
||
936 |
static void Win32SoundStop() |
|
937 |
{
|
|
938 |
HWAVEOUT waveout = _waveout; |
|
939 |
_waveout = NULL; |
|
940 |
waveOutReset(waveout); |
|
941 |
waveOutUnprepareHeader(waveout, &_wave_hdr[0], sizeof(WAVEHDR)); |
|
942 |
waveOutUnprepareHeader(waveout, &_wave_hdr[1], sizeof(WAVEHDR)); |
|
943 |
waveOutClose(waveout); |
|
944 |
} |
|
945 |
||
946 |
const HalSoundDriver _win32_sound_driver = {
|
|
947 |
Win32SoundStart, |
|
948 |
Win32SoundStop, |
|
949 |
}; |
|
950 |
||
951 |
// Helper function needed by dynamically loading SDL |
|
952 |
bool LoadLibraryList(void **proc, const char *dll) |
|
953 |
{
|
|
954 |
HMODULE lib; |
|
955 |
void *p; |
|
956 |
||
957 |
while (*dll) {
|
|
958 |
lib = LoadLibrary(dll); |
|
959 |
if (lib == NULL) |
|
960 |
return false; |
|
961 |
while (true) {
|
|
962 |
while(*dll++); |
|
963 |
if (!*dll) |
|
964 |
break; |
|
965 |
p = GetProcAddress(lib, dll); |
|
966 |
if (p == NULL) |
|
967 |
return false; |
|
968 |
*proc++ = p; |
|
969 |
} |
|
970 |
dll++; |
|
971 |
} |
|
972 |
return true; |
|
973 |
} |
|
974 |
||
975 |
static const char *_exception_string; |
|
976 |
static void *_safe_esp; |
|
977 |
static char *_crash_msg; |
|
978 |
static bool _expanded; |
|
979 |
static bool _did_emerg_save; |
|
980 |
static int _ident; |
|
981 |
||
982 |
void ShowOSErrorBox(const char *buf) |
|
983 |
{
|
|
984 |
MyShowCursor(true); |
|
985 |
MessageBoxA(GetActiveWindow(), buf, "Error!", MB_ICONSTOP); |
|
986 |
||
987 |
// if exception tracker is enabled, we crash here to let the exception handler handle it. |
|
988 |
#if defined(WIN32_EXCEPTION_TRACKER) && !defined(_DEBUG) |
|
989 |
if (*buf == '!') {
|
|
990 |
_exception_string = buf; |
|
991 |
*(byte*)0 = 0; |
|
992 |
} |
|
993 |
#endif |
|
994 |
||
995 |
} |
|
996 |
||
997 |
#ifdef _MSC_VER |
|
998 |
||
999 |
typedef struct DebugFileInfo {
|
|
1000 |
uint32 size; |
|
1001 |
uint32 crc32; |
|
1002 |
SYSTEMTIME file_time; |
|
1003 |
} DebugFileInfo; |
|
1004 |
||
1005 |
||
1006 |
||
1007 |
static uint32 *_crc_table; |
|
1008 |
||
1009 |
static void MakeCRCTable(uint32 *table) {
|
|
1010 |
uint32 crc, poly = 0xEDB88320L; |
|
1011 |
int i, j; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1012 |
|
| 0 | 1013 |
_crc_table = table; |
1014 |
||
1015 |
for (i=0; i!=256; i++) {
|
|
1016 |
crc = i; |
|
1017 |
for (j=8; j!=0; j--) {
|
|
1018 |
if (crc & 1) |
|
1019 |
crc = (crc >> 1) ^ poly; |
|
1020 |
else |
|
1021 |
crc>>=1; |
|
1022 |
} |
|
1023 |
table[i] = crc; |
|
1024 |
} |
|
1025 |
} |
|
1026 |
||
1027 |
static uint32 CalcCRC(byte *data, uint size, uint32 crc) {
|
|
1028 |
do {
|
|
1029 |
crc = ((crc>>8) & 0x00FFFFFF) ^ _crc_table[ (crc^(*data++)) & 0xFF ]; |
|
1030 |
} while (--size); |
|
1031 |
return crc; |
|
1032 |
} |
|
1033 |
||
1034 |
static void GetFileInfo(DebugFileInfo *dfi, const char *filename) |
|
1035 |
{
|
|
1036 |
memset(dfi, 0, sizeof(dfi)); |
|
1037 |
||
1038 |
{
|
|
1039 |
HANDLE file; |
|
1040 |
byte buffer[1024]; |
|
1041 |
DWORD numread; |
|
1042 |
uint32 filesize = 0; |
|
1043 |
FILETIME write_time; |
|
1044 |
uint32 crc = (uint32)-1; |
|
1045 |
||
1046 |
file = CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, 0); |
|
1047 |
if (file != INVALID_HANDLE_VALUE) {
|
|
1048 |
while(true) {
|
|
1049 |
if (ReadFile(file, buffer, sizeof(buffer), &numread, NULL) == 0 || numread==0) |
|
1050 |
break; |
|
1051 |
filesize += numread; |
|
1052 |
crc = CalcCRC(buffer, numread, crc); |
|
1053 |
} |
|
1054 |
dfi->size = filesize; |
|
1055 |
dfi->crc32 = crc ^ (uint32)-1; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1056 |
|
| 0 | 1057 |
if (GetFileTime(file, NULL, NULL, &write_time)) {
|
1058 |
FileTimeToSystemTime(&write_time, &dfi->file_time); |
|
1059 |
} |
|
1060 |
CloseHandle(file); |
|
1061 |
} |
|
1062 |
} |
|
1063 |
} |
|
1064 |
||
1065 |
||
1066 |
static char *PrintModuleInfo(char *output, HMODULE mod) |
|
1067 |
{
|
|
1068 |
char *buffer = alloca(MAX_PATH); |
|
1069 |
DebugFileInfo dfi; |
|
1070 |
GetModuleFileName(mod, buffer, MAX_PATH); |
|
1071 |
GetFileInfo(&dfi, buffer); |
|
1072 |
output += sprintf(output, " %-20s handle: %.8X size: %d crc: %.8X date: %d-%.2d-%.2d %.2d:%.2d:%.2d\r\n", |
|
1073 |
buffer, |
|
1074 |
mod, |
|
1075 |
dfi.size, |
|
1076 |
dfi.crc32, |
|
1077 |
dfi.file_time.wYear, |
|
1078 |
dfi.file_time.wMonth, |
|
1079 |
dfi.file_time.wDay, |
|
1080 |
dfi.file_time.wHour, |
|
1081 |
dfi.file_time.wMinute, |
|
1082 |
dfi.file_time.wSecond |
|
1083 |
); |
|
1084 |
return output; |
|
1085 |
} |
|
1086 |
||
1087 |
static char *PrintModuleList(char *output) |
|
1088 |
{
|
|
1089 |
BOOL (WINAPI *EnumProcessModules)(HANDLE,HMODULE*,DWORD,LPDWORD); |
|
1090 |
HANDLE proc; |
|
1091 |
HMODULE modules[100]; |
|
1092 |
DWORD needed; |
|
1093 |
BOOL res; |
|
1094 |
int count,i; |
|
1095 |
||
1096 |
if (LoadLibraryList((void*)&EnumProcessModules, "psapi.dll\0EnumProcessModules\0")) {
|
|
1097 |
proc = OpenProcess(PROCESS_ALL_ACCESS, FALSE, GetCurrentProcessId()); |
|
1098 |
if (proc) {
|
|
1099 |
res = EnumProcessModules(proc, modules, sizeof(modules), &needed); |
|
1100 |
CloseHandle(proc); |
|
1101 |
if (res) {
|
|
1102 |
count = min(needed/sizeof(HMODULE*), sizeof(modules)/sizeof(HMODULE*)); |
|
1103 |
for(i=0; i!=count; i++) |
|
1104 |
output = PrintModuleInfo(output, modules[i]); |
|
1105 |
return output; |
|
1106 |
} |
|
1107 |
} |
|
1108 |
} |
|
1109 |
output = PrintModuleInfo(output, NULL); |
|
1110 |
return output; |
|
1111 |
} |
|
1112 |
||
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1113 |
static const char _crash_desc[] = |
| 0 | 1114 |
"A serious fault condition occured in the game. The game will shut down.\n" |
1115 |
"Press \"Submit report\" to send crash information to the developers. " |
|
1116 |
"This will greatly help debugging. The information contained in the report is " |
|
1117 |
"displayed below.\n" |
|
1118 |
"Press \"Emergency save\" to attempt saving the game."; |
|
1119 |
||
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1120 |
static const char _save_succeeded[] = |
| 0 | 1121 |
"Emergency save succeeded.\nBe aware that critical parts of the internal game state " |
1122 |
"may have become corrupted. The saved game is not guaranteed to work."; |
|
1123 |
||
1124 |
bool EmergencySave(); |
|
1125 |
||
1126 |
||
1127 |
typedef struct {
|
|
1128 |
HINTERNET (WINAPI *InternetOpenA)(LPCSTR,DWORD, LPCSTR, LPCSTR, DWORD); |
|
1129 |
HINTERNET (WINAPI *InternetConnectA)(HINTERNET, LPCSTR, INTERNET_PORT, LPCSTR, LPCSTR, DWORD, DWORD, DWORD); |
|
1130 |
HINTERNET (WINAPI *HttpOpenRequestA)(HINTERNET, LPCSTR, LPCSTR, LPCSTR, LPCSTR, LPCSTR *, DWORD, DWORD); |
|
1131 |
BOOL (WINAPI *HttpSendRequestA)(HINTERNET, LPCSTR, DWORD, LPVOID, DWORD); |
|
1132 |
BOOL (WINAPI *InternetCloseHandle)(HINTERNET); |
|
1133 |
BOOL (WINAPI *HttpQueryInfo)(HINTERNET, DWORD, LPVOID, LPDWORD, LPDWORD); |
|
1134 |
} WinInetProcs; |
|
1135 |
||
1136 |
#define M(x) x "\0" |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1137 |
static const char wininet_files[] = |
| 0 | 1138 |
M("wininet.dll")
|
1139 |
M("InternetOpenA")
|
|
1140 |
M("InternetConnectA")
|
|
1141 |
M("HttpOpenRequestA")
|
|
1142 |
M("HttpSendRequestA")
|
|
1143 |
M("InternetCloseHandle")
|
|
1144 |
M("HttpQueryInfoA")
|
|
1145 |
M("");
|
|
1146 |
#undef M |
|
1147 |
||
1148 |
static WinInetProcs _wininet; |
|
1149 |
||
1150 |
||
1151 |
static char *SubmitCrashReport(HWND wnd, void *msg, size_t msglen, const char *arg) |
|
1152 |
{
|
|
1153 |
HINTERNET inet, conn, http; |
|
1154 |
char *err = NULL; |
|
1155 |
DWORD code, len; |
|
1156 |
static char buf[100]; |
|
1157 |
char buff[100]; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1158 |
|
| 0 | 1159 |
if (_wininet.InternetOpen == NULL && !LoadLibraryList((void**)&_wininet, wininet_files)) return "can't load wininet.dll"; |
1160 |
||
1161 |
inet = _wininet.InternetOpen("TTD", INTERNET_OPEN_TYPE_PRECONFIG, NULL, NULL, 0 );
|
|
1162 |
if (inet == NULL) { err = "internetopen failed"; goto error1; }
|
|
1163 |
||
1164 |
conn = _wininet.InternetConnect(inet, "openttd.com", INTERNET_DEFAULT_HTTP_PORT, "", "", INTERNET_SERVICE_HTTP, 0, 0); |
|
1165 |
if (conn == NULL) { err = "internetconnect failed"; goto error2; }
|
|
1166 |
||
1167 |
sprintf(buff, "/crash.php?file=%s&ident=%d", arg, _ident); |
|
1168 |
||
1169 |
http = _wininet.HttpOpenRequest(conn, "POST", buff, NULL, NULL, NULL, INTERNET_FLAG_NO_CACHE_WRITE , 0); |
|
1170 |
if (http == NULL) { err = "httpopenrequest failed"; goto error3; }
|
|
1171 |
||
1172 |
if (!_wininet.HttpSendRequest(http, "Content-type: application/binary", -1, msg, msglen)) { err = "httpsendrequest failed"; goto error4; }
|
|
1173 |
||
1174 |
len = sizeof(code); |
|
1175 |
if (!_wininet.HttpQueryInfo(http, HTTP_QUERY_STATUS_CODE | HTTP_QUERY_FLAG_NUMBER, &code, &len, 0)) { err = "httpqueryinfo failed"; goto error4; }
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1176 |
|
| 0 | 1177 |
if (code != 200) {
|
1178 |
int l = sprintf(buf, "Server said: %d ", code); |
|
1179 |
len = sizeof(buf) - l; |
|
1180 |
_wininet.HttpQueryInfo(http, HTTP_QUERY_STATUS_TEXT, buf + l, &len, 0); |
|
1181 |
err = buf; |
|
1182 |
} |
|
1183 |
||
1184 |
error4: |
|
1185 |
_wininet.InternetCloseHandle(http); |
|
1186 |
error3: |
|
1187 |
_wininet.InternetCloseHandle(conn); |
|
1188 |
error2: |
|
1189 |
_wininet.InternetCloseHandle(inet); |
|
1190 |
error1: |
|
1191 |
return err; |
|
1192 |
} |
|
1193 |
||
1194 |
static void SubmitFile(HWND wnd, const char *file) |
|
1195 |
{
|
|
1196 |
HANDLE h; |
|
1197 |
unsigned long size; |
|
1198 |
unsigned long read; |
|
1199 |
void *mem; |
|
1200 |
||
1201 |
h = CreateFile(file, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL); |
|
1202 |
if (h == NULL) return; |
|
1203 |
||
1204 |
size = GetFileSize(h, NULL); |
|
1205 |
if (size > 500000) goto error1; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1206 |
|
| 0 | 1207 |
mem = malloc(size); |
1208 |
if (mem == NULL) goto error1; |
|
1209 |
||
1210 |
if (!ReadFile(h, mem, size, &read, NULL) || read != size) goto error2; |
|
1211 |
||
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1212 |
SubmitCrashReport(wnd, mem, size, file); |
| 0 | 1213 |
|
1214 |
error2: |
|
1215 |
free(mem); |
|
1216 |
error1: |
|
1217 |
CloseHandle(h); |
|
1218 |
} |
|
1219 |
||
1220 |
static const char * const _expand_texts[] = {"S&how report >>", "&Hide report <<" };
|
|
1221 |
||
1222 |
static void SetWndSize(HWND wnd, int mode) |
|
1223 |
{
|
|
1224 |
RECT r,r2; |
|
1225 |
int offs; |
|
1226 |
||
1227 |
GetWindowRect(wnd, &r); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1228 |
|
| 0 | 1229 |
SetDlgItemText(wnd, 15, _expand_texts[mode == 1]); |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1230 |
|
| 0 | 1231 |
if (mode >= 0) {
|
1232 |
GetWindowRect(GetDlgItem(wnd, 11), &r2); |
|
1233 |
offs = r2.bottom - r2.top + 10; |
|
1234 |
if (!mode) offs=-offs; |
|
1235 |
SetWindowPos(wnd, HWND_TOPMOST, 0, 0, r.right - r.left, r.bottom - r.top + offs, SWP_NOMOVE | SWP_NOZORDER); |
|
1236 |
} else {
|
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1237 |
SetWindowPos(wnd, HWND_TOPMOST, |
| 0 | 1238 |
(GetSystemMetrics(SM_CXSCREEN) - (r.right - r.left)) >> 1, |
1239 |
(GetSystemMetrics(SM_CYSCREEN) - (r.bottom - r.top)) >> 1, |
|
1240 |
0, 0, SWP_NOSIZE); |
|
1241 |
} |
|
1242 |
} |
|
1243 |
||
1244 |
static bool DoEmergencySave(HWND wnd) |
|
1245 |
{
|
|
1246 |
bool b = false; |
|
1247 |
||
1248 |
EnableWindow(GetDlgItem(wnd, 13), FALSE); |
|
1249 |
_did_emerg_save = true; |
|
1250 |
__try {
|
|
1251 |
b = EmergencySave(); |
|
1252 |
} __except (1) {}
|
|
1253 |
return b; |
|
1254 |
} |
|
1255 |
||
1256 |
static BOOL CALLBACK CrashDialogFunc(HWND wnd,UINT msg,WPARAM wParam,LPARAM lParam) |
|
1257 |
{
|
|
1258 |
switch(msg) {
|
|
1259 |
case WM_INITDIALOG: |
|
1260 |
SetDlgItemText(wnd, 10, _crash_desc); |
|
1261 |
SetDlgItemText(wnd, 11, _crash_msg); |
|
1262 |
SendDlgItemMessage(wnd, 11, WM_SETFONT, (WPARAM)GetStockObject(ANSI_FIXED_FONT), FALSE); |
|
1263 |
SetWndSize(wnd, -1); |
|
1264 |
return TRUE; |
|
1265 |
case WM_COMMAND: |
|
1266 |
switch(wParam) {
|
|
1267 |
case 12: // Close |
|
1268 |
ExitProcess(0); |
|
1269 |
case 13: { // Emergency save
|
|
1270 |
if (DoEmergencySave(wnd)) |
|
1271 |
MessageBoxA(wnd, _save_succeeded, "Save successful", MB_ICONINFORMATION); |
|
1272 |
else |
|
1273 |
MessageBoxA(wnd, "Save failed", "Save failed", MB_ICONINFORMATION); |
|
1274 |
break; |
|
1275 |
} |
|
1276 |
case 14: { // Submit crash report
|
|
1277 |
char *s; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1278 |
|
| 0 | 1279 |
SetCursor(LoadCursor(NULL, IDC_WAIT)); |
1280 |
||
1281 |
s = SubmitCrashReport(wnd, _crash_msg, strlen(_crash_msg), ""); |
|
1282 |
if (s) {
|
|
1283 |
MessageBoxA(wnd, s, "Error", MB_ICONSTOP); |
|
1284 |
break; |
|
1285 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1286 |
|
| 0 | 1287 |
// try to submit emergency savegame |
1288 |
if (_did_emerg_save || DoEmergencySave(wnd)) {
|
|
1289 |
SubmitFile(wnd, "crash.sav"); |
|
1290 |
} |
|
1291 |
// try to submit the autosaved game |
|
1292 |
if (_opt.autosave) {
|
|
1293 |
char buf[40]; |
|
1294 |
sprintf(buf, "autosave%d.sav", (_autosave_ctr - 1) & 3); |
|
1295 |
SubmitFile(wnd, buf); |
|
1296 |
} |
|
1297 |
EnableWindow(GetDlgItem(wnd, 14), FALSE); |
|
1298 |
SetCursor(LoadCursor(NULL, IDC_ARROW)); |
|
1299 |
MessageBoxA(wnd, "Crash report submitted. Thank you.", "Crash Report", MB_ICONINFORMATION); |
|
1300 |
break; |
|
1301 |
} |
|
1302 |
case 15: // Expand |
|
1303 |
_expanded ^= 1; |
|
1304 |
SetWndSize(wnd, _expanded); |
|
1305 |
break; |
|
1306 |
} |
|
1307 |
return TRUE; |
|
1308 |
case WM_CLOSE: |
|
1309 |
ExitProcess(0); |
|
1310 |
} |
|
1311 |
||
1312 |
return FALSE; |
|
1313 |
} |
|
1314 |
||
1315 |
static void Handler2() |
|
1316 |
{
|
|
1317 |
ShowCursor(TRUE); |
|
1318 |
ShowWindow(GetActiveWindow(), FALSE); |
|
1319 |
DialogBox(GetModuleHandle(NULL), MAKEINTRESOURCE(100), NULL, CrashDialogFunc); |
|
1320 |
} |
|
1321 |
||
1322 |
static LONG WINAPI ExceptionHandler(EXCEPTION_POINTERS *ep) |
|
1323 |
{
|
|
1324 |
char *output; |
|
1325 |
static bool had_exception; |
|
1326 |
||
1327 |
if (had_exception) { ExitProcess(0); }
|
|
1328 |
had_exception = true; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1329 |
|
| 0 | 1330 |
_ident = GetTickCount(); // something pretty unique |
1331 |
||
1332 |
MakeCRCTable(alloca(256 * sizeof(uint32))); |
|
1333 |
_crash_msg = output = LocalAlloc(LMEM_FIXED, 8192); |
|
1334 |
||
1335 |
{
|
|
1336 |
SYSTEMTIME time; |
|
1337 |
GetLocalTime(&time); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1338 |
output += sprintf(output, |
| 0 | 1339 |
"*** OpenTTD Crash Report ***\r\n" |
1340 |
"Date: %d-%.2d-%.2d %.2d:%.2d:%.2d\r\n" |
|
1341 |
"Build: %s built on " __TIMESTAMP__ "\r\n", |
|
1342 |
time.wYear, |
|
1343 |
time.wMonth, |
|
1344 |
time.wDay, |
|
1345 |
time.wHour, |
|
1346 |
time.wMinute, |
|
1347 |
time.wSecond, |
|
1348 |
"???" |
|
1349 |
); |
|
1350 |
} |
|
1351 |
||
1352 |
if (_exception_string) output += sprintf(output, "Reason: %s\r\n", _exception_string); |
|
1353 |
||
1354 |
output += sprintf(output, "Exception %.8X at %.8X\r\n" |
|
1355 |
"Registers:\r\n" |
|
1356 |
" EAX: %.8X EBX: %.8X ECX: %.8X EDX: %.8X\r\n" |
|
1357 |
" ESI: %.8X EDI: %.8X EBP: %.8X ESP: %.8X\r\n" |
|
1358 |
" EIP: %.8X EFLAGS: %.8X\r\n" |
|
1359 |
"\r\nBytes at CS:EIP:\r\n", |
|
1360 |
ep->ExceptionRecord->ExceptionCode, |
|
1361 |
ep->ExceptionRecord->ExceptionAddress, |
|
1362 |
ep->ContextRecord->Eax, |
|
1363 |
ep->ContextRecord->Ebx, |
|
1364 |
ep->ContextRecord->Ecx, |
|
1365 |
ep->ContextRecord->Edx, |
|
1366 |
ep->ContextRecord->Esi, |
|
1367 |
ep->ContextRecord->Edi, |
|
1368 |
ep->ContextRecord->Ebp, |
|
1369 |
ep->ContextRecord->Esp, |
|
1370 |
ep->ContextRecord->Eip, |
|
1371 |
ep->ContextRecord->EFlags |
|
1372 |
); |
|
1373 |
||
1374 |
{
|
|
1375 |
byte *b = (byte*)ep->ContextRecord->Eip; |
|
1376 |
int i; |
|
1377 |
for(i=0; i!=24; i++) {
|
|
1378 |
if (IsBadReadPtr(b, 1)) {
|
|
1379 |
output += sprintf(output, " ??"); // OCR: WAS: , 0); |
|
1380 |
} else {
|
|
1381 |
output += sprintf(output, " %.2X", *b); |
|
1382 |
} |
|
1383 |
b++; |
|
1384 |
} |
|
1385 |
output += sprintf(output, |
|
1386 |
"\r\n" |
|
1387 |
"\r\nStack trace: \r\n" |
|
1388 |
); |
|
1389 |
} |
|
1390 |
||
1391 |
{
|
|
1392 |
int i,j; |
|
1393 |
uint32 *b = (uint32*)ep->ContextRecord->Esp; |
|
1394 |
for(j=0; j!=24; j++) {
|
|
1395 |
for(i=0; i!=8; i++) {
|
|
1396 |
if (IsBadReadPtr(b,sizeof(uint32))) {
|
|
1397 |
output += sprintf(output, " ????????"); //OCR: WAS - , 0); |
|
1398 |
} else {
|
|
1399 |
output += sprintf(output, " %.8X", *b); |
|
1400 |
} |
|
1401 |
b++; |
|
1402 |
} |
|
1403 |
output += sprintf(output, "\r\n"); |
|
1404 |
} |
|
1405 |
} |
|
1406 |
||
1407 |
output += sprintf(output, "\r\nModule information:\r\n"); |
|
1408 |
output = PrintModuleList(output); |
|
1409 |
||
1410 |
{
|
|
1411 |
OSVERSIONINFO os; |
|
1412 |
os.dwOSVersionInfoSize = sizeof(os); |
|
1413 |
GetVersionEx(&os); |
|
1414 |
output += sprintf(output, "\r\nSystem information:\r\n" |
|
1415 |
" Windows version %d.%d %d %s\r\n", os.dwMajorVersion, os.dwMinorVersion, os.dwBuildNumber, os.szCSDVersion); |
|
1416 |
} |
|
1417 |
||
1418 |
{
|
|
1419 |
HANDLE file = CreateFile("crash.log", GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, 0, 0);
|
|
1420 |
DWORD num_written; |
|
1421 |
if (file != INVALID_HANDLE_VALUE) {
|
|
1422 |
WriteFile(file, _crash_msg, output - _crash_msg, &num_written, NULL); |
|
1423 |
CloseHandle(file); |
|
1424 |
} |
|
1425 |
} |
|
1426 |
||
1427 |
if (_safe_esp) {
|
|
1428 |
ep->ContextRecord->Eip = (DWORD)Handler2; |
|
1429 |
ep->ContextRecord->Esp = (DWORD)_safe_esp; |
|
1430 |
return EXCEPTION_CONTINUE_EXECUTION; |
|
1431 |
} else {
|
|
1432 |
return EXCEPTION_EXECUTE_HANDLER; |
|
1433 |
} |
|
1434 |
} |
|
1435 |
||
1436 |
static void Win32InitializeExceptions() |
|
1437 |
{
|
|
1438 |
_asm {
|
|
1439 |
mov _safe_esp,esp |
|
1440 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1441 |
|
| 0 | 1442 |
SetUnhandledExceptionFilter(ExceptionHandler); |
1443 |
} |
|
1444 |
#endif |
|
1445 |
||
1446 |
static char *_fios_path; |
|
1447 |
static char *_fios_save_path; |
|
1448 |
static char *_fios_scn_path; |
|
1449 |
static FiosItem *_fios_items; |
|
1450 |
static int _fios_count, _fios_alloc; |
|
1451 |
||
1452 |
static FiosItem *FiosAlloc() |
|
1453 |
{
|
|
1454 |
if (_fios_count == _fios_alloc) {
|
|
1455 |
_fios_alloc += 256; |
|
1456 |
_fios_items = realloc(_fios_items, _fios_alloc * sizeof(FiosItem)); |
|
1457 |
} |
|
1458 |
return &_fios_items[_fios_count++]; |
|
1459 |
} |
|
1460 |
||
1461 |
static HANDLE MyFindFirstFile(char *path, char *file, WIN32_FIND_DATA *fd) |
|
1462 |
{
|
|
1463 |
char paths[MAX_PATH]; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1464 |
|
| 0 | 1465 |
sprintf(paths, "%s\\%s", path, file); |
1466 |
return FindFirstFile(paths, fd); |
|
1467 |
} |
|
1468 |
||
1469 |
int CDECL compare_FiosItems (const void *a, const void *b) {
|
|
1470 |
const FiosItem *da = (const FiosItem *) a; |
|
1471 |
const FiosItem *db = (const FiosItem *) b; |
|
1472 |
int r; |
|
1473 |
||
1474 |
if (_savegame_sort_order < 2) // sort by date |
|
|
164
0cbdf3c9bde1
(svn r165) -Feature: Option to sort vehicles in vehicle-list window by different criteria. Total independent sort for all types and players. Periodic resort of list every 10 TTD days. Thank you for your graphical inspiration follow and buxo (since none of you provided any code).
darkvater
parents:
153
diff
changeset
|
1475 |
r = da->mtime < db->mtime ? -1 : 1; |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1476 |
else |
| 0 | 1477 |
r = stricmp(da->title[0] ? da->title : da->name, db->title[0] ? db->title : db->name); |
1478 |
||
1479 |
if (_savegame_sort_order & 1) r = -r; |
|
1480 |
return r; |
|
1481 |
} |
|
1482 |
||
1483 |
// Get a list of savegames |
|
1484 |
FiosItem *FiosGetSavegameList(int *num, int mode) |
|
1485 |
{
|
|
1486 |
WIN32_FIND_DATA fd; |
|
1487 |
HANDLE h; |
|
1488 |
FiosItem *fios; |
|
1489 |
int sort_start; |
|
1490 |
char buf[MAX_PATH]; |
|
1491 |
||
1492 |
if (_fios_save_path == NULL) {
|
|
1493 |
_fios_save_path = malloc(MAX_PATH); |
|
1494 |
strcpy(_fios_save_path, _path.save_dir); |
|
1495 |
} |
|
1496 |
||
1497 |
if (_game_mode == GM_EDITOR) |
|
1498 |
_fios_path = _fios_scn_path; |
|
1499 |
else |
|
1500 |
_fios_path = _fios_save_path; |
|
1501 |
||
1502 |
// Parent directory, only if not of the type C:\. |
|
1503 |
if (_fios_path[3] != 0) {
|
|
1504 |
fios = FiosAlloc(); |
|
1505 |
fios->type = FIOS_TYPE_PARENT; |
|
1506 |
strcpy(fios->title, ".. (Parent directory)"); |
|
1507 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1508 |
|
| 0 | 1509 |
|
1510 |
// Show subdirectories first |
|
1511 |
h = MyFindFirstFile(_fios_path, "*.*", &fd); |
|
1512 |
if (h != INVALID_HANDLE_VALUE) {
|
|
1513 |
do {
|
|
1514 |
if (fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY && |
|
1515 |
!(fd.cFileName[0]=='.' && (fd.cFileName[1]==0 || fd.cFileName[1]=='.' && fd.cFileName[2]==0))) {
|
|
1516 |
fios = FiosAlloc(); |
|
1517 |
fios->type = FIOS_TYPE_DIR; |
|
1518 |
strcpy(fios->name, fd.cFileName); |
|
1519 |
sprintf(fios->title, "\\%s (Directory)", fd.cFileName); |
|
1520 |
} |
|
1521 |
} while (FindNextFile(h, &fd)); |
|
1522 |
FindClose(h); |
|
1523 |
} |
|
1524 |
||
1525 |
// this is where to start sorting |
|
1526 |
sort_start = _fios_count; |
|
1527 |
||
1528 |
/* Show savegame files |
|
1529 |
* .SAV OpenTTD saved game |
|
1530 |
* .SS1 Transport Tycoon Deluxe preset game |
|
1531 |
* .SV1 Transport Tycoon Deluxe (Patch) saved game |
|
1532 |
* .SV2 Transport Tycoon Deluxe (Patch) saved 2-player game |
|
1533 |
*/ |
|
1534 |
h = MyFindFirstFile(_fios_path, "*.*", &fd); |
|
1535 |
if (h != INVALID_HANDLE_VALUE) {
|
|
1536 |
do {
|
|
1537 |
if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) {
|
|
1538 |
char *t = strrchr(fd.cFileName, '.'); |
|
1539 |
if (t && !stricmp(t, ".SAV")) { // OpenTTD
|
|
1540 |
fios = FiosAlloc(); |
|
1541 |
fios->mtime = *(uint64*)&fd.ftLastWriteTime; |
|
1542 |
sprintf(buf, "%s\\%s", _fios_path, fd.cFileName); |
|
1543 |
fios->type = FIOS_TYPE_FILE; |
|
1544 |
fios->title[0] = 0; |
|
1545 |
ttd_strlcpy(fios->name, fd.cFileName, strlen(fd.cFileName)-3); |
|
1546 |
} else if (mode == SLD_LOAD_GAME || mode == SLD_LOAD_SCENARIO) {
|
|
1547 |
int ext = 0; // start of savegame extensions in _old_extensions[] |
|
1548 |
if (t && ((ext++, !stricmp(t, ".SS1")) || (ext++, !stricmp(t, ".SV1")) || (ext++, !stricmp(t, ".SV2"))) ) { // TTDLX(Patch)
|
|
1549 |
fios = FiosAlloc(); |
|
1550 |
fios->old_extension = ext-1; |
|
1551 |
fios->mtime = *(uint64*)&fd.ftLastWriteTime; |
|
1552 |
sprintf(buf, "%s\\%s", _fios_path, fd.cFileName); |
|
1553 |
fios->type = FIOS_TYPE_OLDFILE; |
|
1554 |
GetOldSaveGameName(fios->title, buf); |
|
1555 |
ttd_strlcpy(fios->name, fd.cFileName, strlen(fd.cFileName)-3); |
|
1556 |
} |
|
1557 |
} |
|
1558 |
} |
|
1559 |
} while (FindNextFile(h, &fd)); |
|
1560 |
FindClose(h); |
|
1561 |
} |
|
1562 |
||
1563 |
qsort(_fios_items + sort_start, _fios_count - sort_start, sizeof(FiosItem), compare_FiosItems); |
|
1564 |
||
1565 |
// Drives |
|
1566 |
{
|
|
1567 |
char drives[256]; |
|
1568 |
char *s; |
|
1569 |
GetLogicalDriveStrings(sizeof(drives), drives); |
|
1570 |
s=drives; |
|
1571 |
while (*s) {
|
|
1572 |
fios = FiosAlloc(); |
|
1573 |
fios->type = FIOS_TYPE_DRIVE; |
|
1574 |
fios->title[0] = s[0]; |
|
1575 |
fios->title[1] = ':'; |
|
1576 |
fios->title[2] = 0; |
|
1577 |
while (*s++) {}
|
|
1578 |
} |
|
1579 |
} |
|
1580 |
*num = _fios_count; |
|
1581 |
return _fios_items; |
|
1582 |
} |
|
1583 |
||
1584 |
// Get a list of scenarios |
|
1585 |
FiosItem *FiosGetScenarioList(int *num, int mode) |
|
1586 |
{
|
|
1587 |
FiosItem *fios; |
|
1588 |
WIN32_FIND_DATA fd; |
|
1589 |
HANDLE h; |
|
1590 |
int sort_start; |
|
1591 |
char buf[MAX_PATH]; |
|
1592 |
||
1593 |
if (mode == SLD_NEW_GAME || _fios_scn_path == NULL) {
|
|
1594 |
if (_fios_scn_path == NULL) |
|
1595 |
_fios_scn_path = malloc(MAX_PATH); |
|
1596 |
strcpy(_fios_scn_path, _path.scenario_dir); |
|
1597 |
} |
|
1598 |
||
1599 |
_fios_path = _fios_scn_path; |
|
1600 |
||
1601 |
// Parent directory, only if not of the type C:\. |
|
1602 |
if (_fios_path[3] != 0 && mode != SLD_NEW_GAME) {
|
|
1603 |
fios = FiosAlloc(); |
|
1604 |
fios->type = FIOS_TYPE_PARENT; |
|
1605 |
strcpy(fios->title, ".. (Parent directory)"); |
|
1606 |
} |
|
1607 |
||
1608 |
// Show subdirectories first |
|
1609 |
h = MyFindFirstFile(_fios_scn_path, "*.*", &fd); |
|
1610 |
if (h != INVALID_HANDLE_VALUE && mode != SLD_NEW_GAME) {
|
|
1611 |
do {
|
|
1612 |
if (fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY && |
|
1613 |
!(fd.cFileName[0]=='.' && (fd.cFileName[1]==0 || fd.cFileName[1]=='.' && fd.cFileName[2]==0))) {
|
|
1614 |
fios = FiosAlloc(); |
|
1615 |
fios->type = FIOS_TYPE_DIR; |
|
1616 |
strcpy(fios->name, fd.cFileName); |
|
1617 |
sprintf(fios->title, "\\%s (Directory)", fd.cFileName); |
|
1618 |
} |
|
1619 |
} while (FindNextFile(h, &fd)); |
|
1620 |
FindClose(h); |
|
1621 |
} |
|
1622 |
||
1623 |
// this is where to start sorting |
|
1624 |
sort_start = _fios_count; |
|
1625 |
||
1626 |
/* Show scenario files |
|
1627 |
* .SCN OpenTTD style scenario file |
|
1628 |
* .SV0 Transport Tycoon Deluxe (Patch) scenario |
|
1629 |
* .SS0 Transport Tycoon Deluxe preset scenario |
|
1630 |
*/ |
|
1631 |
h = MyFindFirstFile(_fios_scn_path, "*.*", &fd); |
|
1632 |
if (h != INVALID_HANDLE_VALUE) {
|
|
1633 |
do {
|
|
1634 |
if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) {
|
|
1635 |
char *t = strrchr(fd.cFileName, '.'); |
|
1636 |
if (t && !stricmp(t, ".SCN")) { // OpenTTD
|
|
1637 |
fios = FiosAlloc(); |
|
1638 |
fios->mtime = *(uint64*)&fd.ftLastWriteTime; |
|
1639 |
sprintf(buf, "%s\\%s", _fios_path, fd.cFileName); |
|
1640 |
fios->type = FIOS_TYPE_SCENARIO; |
|
1641 |
fios->title[0] = 0; |
|
1642 |
ttd_strlcpy(fios->name, fd.cFileName, strlen(fd.cFileName)-3); |
|
1643 |
} else if (mode == SLD_LOAD_GAME || mode == SLD_LOAD_SCENARIO || mode == SLD_NEW_GAME) {
|
|
1644 |
int ext = 3; // start of scenario extensions in _old_extensions[] |
|
1645 |
if (t && ((ext++, !stricmp(t, ".SV0")) || (ext++, !stricmp(t, ".SS0"))) ) { // TTDLX(Patch)
|
|
1646 |
fios = FiosAlloc(); |
|
1647 |
fios->old_extension = ext-1; |
|
1648 |
fios->mtime = *(uint64*)&fd.ftLastWriteTime; |
|
1649 |
sprintf(buf, "%s\\%s", _fios_path, fd.cFileName); |
|
1650 |
fios->type = FIOS_TYPE_OLD_SCENARIO; |
|
1651 |
GetOldScenarioGameName(fios->title, buf); |
|
1652 |
ttd_strlcpy(fios->name, fd.cFileName, strlen(fd.cFileName)-3); |
|
1653 |
} |
|
1654 |
} |
|
1655 |
} |
|
1656 |
} while (FindNextFile(h, &fd)); |
|
1657 |
FindClose(h); |
|
1658 |
} |
|
1659 |
||
1660 |
qsort(_fios_items + sort_start, _fios_count - sort_start, sizeof(FiosItem), compare_FiosItems); |
|
1661 |
||
1662 |
// Drives |
|
1663 |
if (mode != SLD_NEW_GAME) {
|
|
1664 |
char drives[256]; |
|
1665 |
char *s; |
|
1666 |
GetLogicalDriveStrings(sizeof(drives), drives); |
|
1667 |
s=drives; |
|
1668 |
while (*s) {
|
|
1669 |
fios = FiosAlloc(); |
|
1670 |
fios->type = FIOS_TYPE_DRIVE; |
|
1671 |
fios->title[0] = s[0]; |
|
1672 |
fios->title[1] = ':'; |
|
1673 |
fios->title[2] = 0; |
|
1674 |
while (*s++) {}
|
|
1675 |
} |
|
1676 |
} |
|
1677 |
||
1678 |
*num = _fios_count; |
|
1679 |
return _fios_items; |
|
1680 |
} |
|
1681 |
||
1682 |
// Free the list of savegames |
|
1683 |
void FiosFreeSavegameList() |
|
1684 |
{
|
|
1685 |
free(_fios_items); |
|
1686 |
_fios_items = NULL; |
|
1687 |
_fios_alloc = _fios_count = 0; |
|
1688 |
} |
|
1689 |
||
1690 |
// Browse to |
|
1691 |
char *FiosBrowseTo(const FiosItem *item) |
|
1692 |
{
|
|
1693 |
char *path = _fios_path; |
|
1694 |
char *s; |
|
1695 |
||
1696 |
switch(item->type) {
|
|
1697 |
case FIOS_TYPE_DRIVE: |
|
1698 |
sprintf(path, "%c:\\", item->title[0]); |
|
1699 |
break; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1700 |
|
| 0 | 1701 |
case FIOS_TYPE_PARENT: |
1702 |
// Skip drive part |
|
1703 |
path += 3; |
|
1704 |
s = path; |
|
1705 |
while (*path) {
|
|
1706 |
if (*path== '\\') |
|
1707 |
s = path; |
|
1708 |
path++; |
|
1709 |
} |
|
1710 |
*s = 0; |
|
1711 |
break; |
|
1712 |
||
1713 |
case FIOS_TYPE_DIR: |
|
1714 |
// Scan to end |
|
1715 |
while (*++path); |
|
1716 |
// Add backslash? |
|
1717 |
if (path[-1] != '\\') *path++ = '\\'; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1718 |
|
| 0 | 1719 |
strcpy(path, item->name); |
1720 |
break; |
|
1721 |
||
1722 |
case FIOS_TYPE_FILE: |
|
1723 |
FiosMakeSavegameName(str_buffr, item->name); |
|
1724 |
return str_buffr; |
|
1725 |
||
1726 |
case FIOS_TYPE_OLDFILE: |
|
1727 |
sprintf(str_buffr, "%s\\%s.%s", _fios_path, item->name, _old_extensions[item->old_extension]); |
|
1728 |
return str_buffr; |
|
1729 |
||
1730 |
case FIOS_TYPE_SCENARIO: |
|
1731 |
sprintf(str_buffr, "%s\\%s.scn", path, item->name); |
|
1732 |
return str_buffr; |
|
1733 |
case FIOS_TYPE_OLD_SCENARIO: |
|
1734 |
sprintf(str_buffr, "%s\\%s.%s", path, item->name, _old_extensions[item->old_extension]); |
|
1735 |
return str_buffr; |
|
1736 |
} |
|
1737 |
||
1738 |
return NULL; |
|
1739 |
} |
|
1740 |
||
1741 |
// Get descriptive texts. |
|
1742 |
// Returns a path as well as a |
|
1743 |
// string describing the path. |
|
|
222
b88456001397
(svn r223) -Fix: Const correctness and miscellaneous fixes. Thank you Tron for your diligent fixing of warnings (and some possibly bugs) (Tron)
darkvater
parents:
206
diff
changeset
|
1744 |
StringID FiosGetDescText(const char **path) |
| 0 | 1745 |
{
|
1746 |
char root[4]; |
|
1747 |
DWORD spc, bps, nfc, tnc; |
|
1748 |
*path = _fios_path; |
|
1749 |
||
1750 |
root[0] = _fios_path[0]; |
|
1751 |
root[1] = ':'; |
|
1752 |
root[2] = '\\'; |
|
1753 |
root[3] = 0; |
|
1754 |
if (GetDiskFreeSpace(root, &spc, &bps, &nfc, &tnc)) {
|
|
1755 |
uint32 tot = ((spc*bps)*(uint64)nfc) >> 20; |
|
1756 |
SET_DPARAM32(0, tot); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1757 |
return STR_4005_BYTES_FREE; |
| 0 | 1758 |
} else {
|
1759 |
return STR_4006_UNABLE_TO_READ_DRIVE; |
|
1760 |
} |
|
1761 |
} |
|
1762 |
||
1763 |
void FiosMakeSavegameName(char *buf, const char *name) |
|
1764 |
{
|
|
1765 |
if(_game_mode == GM_EDITOR) |
|
1766 |
sprintf(buf, "%s\\%s.scn", _fios_path, name); |
|
1767 |
else |
|
1768 |
sprintf(buf, "%s\\%s.sav", _fios_path, name); |
|
1769 |
} |
|
1770 |
||
1771 |
void FiosDelete(const char *name) |
|
1772 |
{
|
|
1773 |
char *path = str_buffr; |
|
1774 |
FiosMakeSavegameName(path, name); |
|
1775 |
DeleteFile(path); |
|
1776 |
} |
|
1777 |
||
1778 |
const DriverDesc _video_driver_descs[] = {
|
|
1779 |
{"null", "Null Video Driver", &_null_video_driver, 0},
|
|
1780 |
#if defined(WITH_SDL) |
|
1781 |
{"sdl", "SDL Video Driver", &_sdl_video_driver, 1},
|
|
1782 |
#endif |
|
1783 |
{"win32", "Win32 GDI Video Driver", &_win32_video_driver, 2},
|
|
1784 |
{NULL}
|
|
1785 |
}; |
|
1786 |
||
1787 |
const DriverDesc _sound_driver_descs[] = {
|
|
1788 |
{"null", "Null Sound Driver", &_null_sound_driver, 0},
|
|
1789 |
#if defined(WITH_SDL) |
|
1790 |
{"sdl", "SDL Sound Driver", &_sdl_sound_driver, 1},
|
|
1791 |
#endif |
|
1792 |
{"win32", "Win32 WaveOut Driver", &_win32_sound_driver, 2},
|
|
1793 |
{NULL}
|
|
1794 |
}; |
|
1795 |
||
1796 |
const DriverDesc _music_driver_descs[] = {
|
|
1797 |
{"null", "Null Music Driver", &_null_music_driver, 0},
|
|
1798 |
#ifdef WIN32_ENABLE_DIRECTMUSIC_SUPPORT |
|
|
49
8dd4b23924c1
(svn r50) -Fix hopefully the win98 crashes related to music/sound (orudge)
darkvater
parents:
8
diff
changeset
|
1799 |
{"dmusic", "DirectMusic MIDI Driver", &_dmusic_midi_driver, 1},
|
| 0 | 1800 |
#endif |
|
49
8dd4b23924c1
(svn r50) -Fix hopefully the win98 crashes related to music/sound (orudge)
darkvater
parents:
8
diff
changeset
|
1801 |
{"win32", "Win32 MIDI Driver", &_win32_music_driver, 2},
|
| 0 | 1802 |
{NULL}
|
1803 |
}; |
|
1804 |
||
1805 |
bool FileExists(const char *filename) |
|
1806 |
{
|
|
1807 |
HANDLE hand = CreateFile(filename, 0, 0, NULL, OPEN_EXISTING, 0, NULL); |
|
1808 |
if (hand == INVALID_HANDLE_VALUE) return false; |
|
1809 |
CloseHandle(hand); |
|
1810 |
return true; |
|
1811 |
} |
|
1812 |
||
1813 |
static int CDECL LanguageCompareFunc(const void *a, const void *b) |
|
1814 |
{
|
|
|
222
b88456001397
(svn r223) -Fix: Const correctness and miscellaneous fixes. Thank you Tron for your diligent fixing of warnings (and some possibly bugs) (Tron)
darkvater
parents:
206
diff
changeset
|
1815 |
return strcmp(*(const char* const *)a, *(const char* const *)b); |
| 0 | 1816 |
} |
1817 |
||
1818 |
int GetLanguageList(char **languages, int max) |
|
1819 |
{
|
|
1820 |
HANDLE hand; |
|
1821 |
int num = 0; |
|
1822 |
char filedir[MAX_PATH]; |
|
1823 |
WIN32_FIND_DATA fd; |
|
1824 |
sprintf(filedir, "%s*.lng", _path.lang_dir); |
|
1825 |
||
1826 |
hand = FindFirstFile(filedir, &fd); |
|
1827 |
if (hand != INVALID_HANDLE_VALUE) {
|
|
1828 |
do {
|
|
1829 |
if (!(fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)) {
|
|
1830 |
languages[num++] = strdup(fd.cFileName); |
|
1831 |
if (num == max) break; |
|
1832 |
} |
|
1833 |
} while (FindNextFile(hand, &fd)); |
|
1834 |
FindClose(hand); |
|
1835 |
} |
|
1836 |
||
1837 |
qsort(languages, num, sizeof(char*), LanguageCompareFunc); |
|
1838 |
return num; |
|
1839 |
} |
|
1840 |
||
1841 |
static int ParseCommandLine(char *line, char **argv, int max_argc) |
|
1842 |
{
|
|
1843 |
int n = 0; |
|
1844 |
||
1845 |
do {
|
|
1846 |
// skip whitespace |
|
1847 |
while (*line == ' ' || *line == '\t') |
|
1848 |
line++; |
|
1849 |
||
1850 |
// end? |
|
1851 |
if (*line == 0) |
|
1852 |
break; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1853 |
|
| 0 | 1854 |
// special handling when quoted |
1855 |
if (*line == '"') {
|
|
1856 |
argv[n++] = ++line; |
|
1857 |
while (*line != '"') {
|
|
1858 |
if (*line == 0) return n; |
|
1859 |
line++; |
|
1860 |
} |
|
1861 |
} else {
|
|
1862 |
argv[n++] = line; |
|
1863 |
while (*line != ' ' && *line != '\t') {
|
|
1864 |
if (*line == 0) return n; |
|
1865 |
line++; |
|
1866 |
} |
|
1867 |
} |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1868 |
*line++ = 0; |
| 0 | 1869 |
} while (n != max_argc); |
1870 |
||
1871 |
return n; |
|
1872 |
} |
|
1873 |
||
1874 |
||
1875 |
#if defined(_MSC_VER) |
|
1876 |
__int64 _declspec(naked) rdtsc() |
|
1877 |
{
|
|
1878 |
_asm {
|
|
1879 |
rdtsc |
|
1880 |
ret |
|
1881 |
} |
|
1882 |
} |
|
1883 |
#endif |
|
1884 |
||
1885 |
void CreateConsole() |
|
1886 |
{
|
|
1887 |
HANDLE hand; |
|
1888 |
CONSOLE_SCREEN_BUFFER_INFO coninfo; |
|
1889 |
||
1890 |
if (_has_console) return; |
|
1891 |
||
1892 |
_has_console = true; |
|
1893 |
||
1894 |
AllocConsole(); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1895 |
|
| 0 | 1896 |
hand = GetStdHandle(STD_OUTPUT_HANDLE); |
1897 |
GetConsoleScreenBufferInfo(hand, &coninfo); |
|
1898 |
coninfo.dwSize.Y = 500; |
|
1899 |
SetConsoleScreenBufferSize(hand, coninfo.dwSize); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1900 |
|
| 0 | 1901 |
// redirect unbuffered STDIN, STDOUT, STDERR to the console |
1902 |
#if !defined(__CYGWIN__) |
|
1903 |
*stdout = *_fdopen( _open_osfhandle((long)hand, _O_TEXT), "w" ); |
|
1904 |
*stdin = *_fdopen(_open_osfhandle((long)GetStdHandle(STD_INPUT_HANDLE), _O_TEXT), "w" ); |
|
1905 |
*stderr = *_fdopen(_open_osfhandle((long)GetStdHandle(STD_ERROR_HANDLE), _O_TEXT), "w" ); |
|
1906 |
#else |
|
1907 |
// open_osfhandle is not in cygwin |
|
1908 |
*stdout = *fdopen(1, "w" ); |
|
1909 |
*stdin = *fdopen(0, "w" ); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1910 |
*stderr = *fdopen(2, "w" ); |
| 0 | 1911 |
#endif |
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1912 |
|
|
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1913 |
setvbuf( stdin, NULL, _IONBF, 0 ); |
|
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1914 |
setvbuf( stdout, NULL, _IONBF, 0 ); |
| 0 | 1915 |
setvbuf( stderr, NULL, _IONBF, 0 ); |
1916 |
} |
|
1917 |
||
1918 |
void ShowInfo(const char *str) |
|
1919 |
{
|
|
1920 |
if (_has_console) |
|
1921 |
puts(str); |
|
1922 |
else {
|
|
1923 |
bool old; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1924 |
|
| 0 | 1925 |
ReleaseCapture(); |
1926 |
_left_button_clicked =_left_button_down = false; |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1927 |
|
| 0 | 1928 |
old = MyShowCursor(true); |
1929 |
if (MessageBoxA(GetActiveWindow(), str, "OpenTTD", MB_ICONINFORMATION | MB_OKCANCEL) == IDCANCEL) {
|
|
1930 |
CreateConsole(); |
|
1931 |
} |
|
1932 |
MyShowCursor(old); |
|
1933 |
} |
|
1934 |
} |
|
1935 |
||
1936 |
||
1937 |
int APIENTRY WinMain(HINSTANCE hInstance,HINSTANCE hPrevInstance,LPTSTR lpCmdLine,int nCmdShow) |
|
1938 |
{
|
|
1939 |
int argc; |
|
1940 |
char *argv[64]; // max 64 command line arguments |
|
1941 |
_inst = hInstance; |
|
1942 |
||
1943 |
#if defined(_DEBUG) |
|
1944 |
CreateConsole(); |
|
1945 |
#endif |
|
1946 |
||
1947 |
// make sure we have an autosave folder - Done in DeterminePaths |
|
1948 |
// CreateDirectory("autosave", NULL);
|
|
1949 |
||
1950 |
// setup random seed to something quite random |
|
1951 |
#if defined(_MSC_VER) |
|
1952 |
{
|
|
1953 |
uint64 seed = rdtsc(); |
|
| 206 | 1954 |
_random_seeds[0][0] = ((uint32*)&seed)[0]; |
1955 |
_random_seeds[0][1] = ((uint32*)&seed)[1]; |
|
| 0 | 1956 |
} |
1957 |
#else |
|
| 206 | 1958 |
_random_seeds[0][0] = GetTickCount(); |
1959 |
_random_seeds[0][1] = _random_seeds[0][0] * 0x1234567; |
|
| 0 | 1960 |
#endif |
1961 |
||
1962 |
argc = ParseCommandLine(GetCommandLine(), argv, lengthof(argv)); |
|
1963 |
||
1964 |
#if defined(WIN32_EXCEPTION_TRACKER) |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1965 |
{
|
| 0 | 1966 |
Win32InitializeExceptions(); |
1967 |
} |
|
1968 |
#endif |
|
1969 |
||
1970 |
#if defined(WIN32_EXCEPTION_TRACKER_DEBUG) |
|
1971 |
_try {
|
|
1972 |
uint32 _stdcall ExceptionHandler(void *ep); |
|
1973 |
#endif |
|
1974 |
ttd_main(argc, argv); |
|
1975 |
||
1976 |
#if defined(WIN32_EXCEPTION_TRACKER_DEBUG) |
|
1977 |
} _except (ExceptionHandler(_exception_info())) {}
|
|
1978 |
#endif |
|
1979 |
||
1980 |
return 0; |
|
1981 |
} |
|
1982 |
||
1983 |
void DeterminePaths() |
|
1984 |
{
|
|
1985 |
char *s; |
|
1986 |
char *cfg; |
|
1987 |
||
1988 |
_path.personal_dir = _path.game_data_dir = cfg = malloc(MAX_PATH); |
|
1989 |
GetCurrentDirectory(MAX_PATH - 1, cfg); |
|
|
193
0a7025304867
(svn r194) -Codechange: stripping trailing-spaces. Please keep this that way!
truelight
parents:
164
diff
changeset
|
1990 |
|
| 0 | 1991 |
|
1992 |
s = strchr(cfg, 0); |
|
1993 |
if (s[-1] != '\\') { s[0] = '\\'; s[1] = 0; }
|
|
1994 |
||
1995 |
_path.save_dir = str_fmt("%ssave", cfg);
|
|
1996 |
_path.autosave_dir = str_fmt("%s\\autosave", _path.save_dir);
|
|
1997 |
_path.scenario_dir = str_fmt("%sscenario", cfg);
|
|
1998 |
_path.gm_dir = str_fmt("%sgm\\", cfg);
|
|
1999 |
_path.data_dir = str_fmt("%sdata\\", cfg);
|
|
2000 |
_path.lang_dir = str_fmt("%slang\\", cfg);
|
|
2001 |
||
2002 |
_config_file = str_fmt("%sopenttd.cfg", _path.personal_dir);
|
|
2003 |
||
2004 |
// make (auto)save and scenario folder |
|
2005 |
CreateDirectory(_path.save_dir, NULL); |
|
2006 |
CreateDirectory(_path.autosave_dir, NULL); |
|
2007 |
CreateDirectory(_path.scenario_dir, NULL); |
|
2008 |
} |
|
2009 |