[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/Client.xs

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.30 by root, Thu Apr 13 23:07:56 2006 UTC vs.
Revision 1.53 by root, Wed Apr 19 21:38:04 2006 UTC

…		…
		1	#ifdef _WIN32
		2	# include <malloc.h>
		3	#endif
		4
1	#include "EXTERN.h"	5	#include "EXTERN.h"
2	#include "perl.h"	6	#include "perl.h"
3	#include "XSUB.h"	7	#include "XSUB.h"
4		8
5	#include <string.h>	9	#include <string.h>
6	#include <stdio.h>	10	#include <stdio.h>
7		11
8	#include <SDL.h>	12	#include <SDL.h>
9	#include <SDL_image.h>	13	#include <SDL_image.h>
		14	#include <SDL_mixer.h>
10	#include <SDL_opengl.h>	15	#include <SDL_opengl.h>
11		16
12	#include <glib/gmacros.h>	17	#include <glib/gmacros.h>
13		18
14	#include <pango/pango.h>	19	#include <pango/pango.h>
15	#include <pango/pangofc-fontmap.h>	20	#include <pango/pangofc-fontmap.h>
16	#include <pango/pangoft2.h>	21	#include <pango/pangoft2.h>
17		22
		23	#ifndef _WIN32
18	#include <sys/types.h>	24	# include <sys/types.h>
19	#include <sys/socket.h>	25	# include <sys/socket.h>
20	#include <netinet/in.h>	26	# include <netinet/in.h>
21	#include <netinet/tcp.h>	27	# include <netinet/tcp.h>
22
23	#include <inttypes.h>	28	# include <inttypes.h>
		29	#else
		30	typedef unsigned char uint8_t;
		31	typedef unsigned short uint16_t;
		32	typedef unsigned int uint32_t;
		33	typedef signed char int8_t;
		34	typedef signed short int16_t;
		35	typedef signed int int32_t;
		36	#endif
24		37
25	#define FOW_DARKNESS 32	38	#define FOW_DARKNESS 32
26		39
27	#define MAP_EXTEND_X 32	40	#define MAP_EXTEND_X 32
28	#define MAP_EXTEND_Y 512	41	#define MAP_EXTEND_Y 512
		42
		43	typedef Mix_Chunk *CFClient__MixChunk;
		44	typedef Mix_Music *CFClient__MixMusic;
29		45
30	static PangoContext *context;	46	static PangoContext *context;
31	static PangoFontMap *fontmap;	47	static PangoFontMap *fontmap;
32		48
33	typedef struct cf_layout {	49	typedef struct cf_layout {
37		53
38	static void	54	static void
39	substitute_func (FcPattern *pattern, gpointer data)	55	substitute_func (FcPattern *pattern, gpointer data)
40	{	56	{
41	FcPatternAddBool (pattern, FC_HINTING , 1);	57	FcPatternAddBool (pattern, FC_HINTING , 1);
42	FcPatternAddBool (pattern, FC_AUTOHINT, 1);	58	FcPatternAddBool (pattern, FC_AUTOHINT, 0);
43	}	59	}
44		60
45	static void	61	static void
46	layout_update (CFClient__Layout self)	62	layout_update (CFClient__Layout self)
47	{	63	{
48	/* use a random scale factor to account for unknown descenders, 0.8 works	64	/* use a random scale factor to account for unknown descenders, 0.8 works
49	* reasonably well with bitstream vera	65	* reasonably well with bitstream vera
50	*/	66	*/
51	PangoFontDescription *font = pango_context_get_font_description (context);	67	PangoFontDescription *font = pango_context_get_font_description (context);
52	pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));	68
		69	int height = self->base_height * (PANGO_SCALE * 8 / 10);
		70
		71	if (pango_font_description_get_size (font) != height)
		72	{
		73	pango_font_description_set_absolute_size (font, height);
		74	pango_layout_context_changed (self->pl);
		75	}
53	}	76	}
54		77
55	static void	78	static void
56	layout_get_pixel_size (CFClient__Layout self, int w, int h)	79	layout_get_pixel_size (CFClient__Layout self, int w, int h)
57	{	80	{
…		…
61		84
62	w = (w + 3) & ~3;	85	w = (w + 3) & ~3;
63	if (!w) w = 1;	86	if (!w) w = 1;
64	if (!h) h = 1;	87	if (!h) h = 1;
65	}	88	}
		89
		90	typedef uint16_t mapface;
66		91
67	typedef struct {	92	typedef struct {
68	GLint name;	93	GLint name;
69	int w, h;	94	int w, h;
70	float s, t;	95	float s, t;
71	} mapface;	96	uint8_t r, g, b, a;
		97	} maptex;
72		98
73	typedef struct {	99	typedef struct {
74	int16_t darkness;	100	int16_t darkness;
75	uint16_t face[3];	101	mapface face[3];
76	} mapcell;	102	} mapcell;
77		103
78	typedef struct {	104	typedef struct {
79	int32_t c0, c1;	105	int32_t c0, c1;
80	mapcell *col;	106	mapcell *col;
81	} maprow;	107	} maprow;
82		108
83	typedef struct map {	109	typedef struct map {
84	int x, y, w, h;	110	int x, y, w, h;
85	int vx, vy;	111	int ox, oy; /* offset to virtual global coordinate system */
86	int faces;	112	int faces;
87	mapface *face;	113	mapface *face;
88		114
		115	int texs;
		116	maptex *tex;
		117
89	uint32_t rows;	118	int32_t rows;
90	maprow *row;	119	maprow *row;
91	} *CFClient__Map;	120	} *CFClient__Map;
92		121
93	static char *	122	static char *
94	prepend (char *ptr, int sze, int inc)	123	prepend (char *ptr, int sze, int inc)
…		…
113	}	142	}
114		143
115	#define Append(type,ptr,sze,inc) (ptr) = (type )append ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))	144	#define Append(type,ptr,sze,inc) (ptr) = (type )append ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
116	#define Prepend(type,ptr,sze,inc) (ptr) = (type )prepend ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))	145	#define Prepend(type,ptr,sze,inc) (ptr) = (type )prepend ((char )ptr, (sze) * sizeof (type), (inc) * sizeof (type))
117		146
		147	static maprow *
		148	map_get_row (CFClient__Map self, int y)
		149	{
		150	if (0 > y)
		151	{
		152	int extend = - y + MAP_EXTEND_Y;
		153	Prepend (maprow, self->row, self->rows, extend);
		154
		155	self->rows += extend;
		156	self->y += extend;
		157	y += extend;
		158	}
		159	else if (y >= self->rows)
		160	{
		161	int extend = y - self->rows + MAP_EXTEND_Y;
		162	Append (maprow, self->row, self->rows, extend);
		163	self->rows += extend;
		164	}
		165
		166	return self->row + y;
		167	}
		168
		169	static mapcell *
		170	row_get_cell (maprow *row, int x)
		171	{
		172	if (!row->col)
		173	{
		174	Newz (0, row->col, MAP_EXTEND_X, mapcell);
		175	row->c0 = x - MAP_EXTEND_X / 4;
		176	row->c1 = row->c0 + MAP_EXTEND_X;
		177	}
		178
		179	if (row->c0 > x)
		180	{
		181	int extend = row->c0 - x + MAP_EXTEND_X;
		182	Prepend (mapcell, row->col, row->c1 - row->c0, extend);
		183	row->c0 -= extend;
		184	}
		185	else if (x >= row->c1)
		186	{
		187	int extend = x - row->c1 + MAP_EXTEND_X;
		188	Append (mapcell, row->col, row->c1 - row->c0, extend);
		189	row->c1 += extend;
		190	}
		191
		192	return row->col + (x - row->c0);
		193	}
		194
		195	static mapcell *
		196	map_get_cell (CFClient__Map self, int x, int y)
		197	{
		198	return row_get_cell (map_get_row (self, y), x);
		199	}
		200
118	static void	201	static void
119	map_clear (CFClient__Map self)	202	map_clear (CFClient__Map self)
120	{	203	{
121	int r;	204	int r;
122		205
…		…
125		208
126	Safefree (self->row);	209	Safefree (self->row);
127		210
128	self->x = 0;	211	self->x = 0;
129	self->y = 0;	212	self->y = 0;
130	self->vx = 0;	213	self->ox = 0;
131	self->vy = 0;	214	self->oy = 0;
132	self->row = 0;	215	self->row = 0;
133	self->rows = 0;	216	self->rows = 0;
134	}	217	}
135		218
136	static void	219	static void
137	map_blank (CFClient__Map self, int x0, int y0, int w, int h)	220	map_blank (CFClient__Map self, int x0, int y0, int w, int h)
138	{	221	{
139	int x, y;	222	int x, y;
		223	maprow *row;
140		224
141	for (y = y0; y < y0 + h; y++)	225	for (y = y0; y < y0 + h; y++)
142	if (y >= 0)	226	if (y >= 0)
143	{	227	{
144	if (y >= self->rows)	228	if (y >= self->rows)
145	break;	229	break;
146		230
147	maprow *row = self->row + y;	231	row = self->row + y;
148		232
149	for (x = x0; x < x0 + w; x++)	233	for (x = x0; x < x0 + w; x++)
150	if (x >= row->c0)	234	if (x >= row->c0)
151	{	235	{
152	if (x >= row->c1)	236	if (x >= row->c1)
153	break;	237	break;
154		238
155	mapcell *cell = row->col + (x - row->c0);	239	row->col[x - row->c0].darkness = -1;
156	cell->darkness = -1;
157	cell->face [2] = 0;
158	}	240	}
159	}	241	}
160	}	242	}
161		243
162	MODULE = CFClient PACKAGE = CFClient	244	MODULE = CFClient PACKAGE = CFClient
163		245
164	PROTOTYPES: ENABLE	246	PROTOTYPES: ENABLE
165		247
166	BOOT:	248	BOOT:
167	{	249	{
		250	HV *stash = gv_stashpv ("CFClient", 1);
		251	static const struct {
		252	const char *name;
		253	IV iv;
		254	} *civ, const_iv[] = {
		255	# define const_iv(name) { # name, (IV)name }
		256	const_iv (SDL_ACTIVEEVENT),
		257	const_iv (SDL_KEYDOWN),
		258	const_iv (SDL_KEYUP),
		259	const_iv (SDL_MOUSEMOTION),
		260	const_iv (SDL_MOUSEBUTTONDOWN),
		261	const_iv (SDL_MOUSEBUTTONUP),
		262	const_iv (SDL_JOYAXISMOTION),
		263	const_iv (SDL_JOYBALLMOTION),
		264	const_iv (SDL_JOYHATMOTION),
		265	const_iv (SDL_JOYBUTTONDOWN),
		266	const_iv (SDL_JOYBUTTONUP),
		267	const_iv (SDL_QUIT),
		268	const_iv (SDL_SYSWMEVENT),
		269	const_iv (SDL_EVENT_RESERVEDA),
		270	const_iv (SDL_EVENT_RESERVEDB),
		271	const_iv (SDL_VIDEORESIZE),
		272	const_iv (SDL_VIDEOEXPOSE),
		273	const_iv (SDL_USEREVENT),
		274	const_iv (SDLK_KP0),
		275	const_iv (SDLK_KP1),
		276	const_iv (SDLK_KP2),
		277	const_iv (SDLK_KP3),
		278	const_iv (SDLK_KP4),
		279	const_iv (SDLK_KP5),
		280	const_iv (SDLK_KP6),
		281	const_iv (SDLK_KP7),
		282	const_iv (SDLK_KP8),
		283	const_iv (SDLK_KP9),
		284	const_iv (SDLK_KP_PERIOD),
		285	const_iv (SDLK_KP_DIVIDE),
		286	const_iv (SDLK_KP_MULTIPLY),
		287	const_iv (SDLK_KP_MINUS),
		288	const_iv (SDLK_KP_PLUS),
		289	const_iv (SDLK_KP_ENTER),
		290	const_iv (SDLK_KP_EQUALS),
		291	const_iv (SDLK_UP),
		292	const_iv (SDLK_DOWN),
		293	const_iv (SDLK_RIGHT),
		294	const_iv (SDLK_LEFT),
		295	const_iv (SDLK_INSERT),
		296	const_iv (SDLK_HOME),
		297	const_iv (SDLK_END),
		298	const_iv (SDLK_PAGEUP),
		299	const_iv (SDLK_PAGEDOWN),
		300	const_iv (SDLK_F1),
		301	const_iv (SDLK_F2),
		302	const_iv (SDLK_F3),
		303	const_iv (SDLK_F4),
		304	const_iv (SDLK_F5),
		305	const_iv (SDLK_F6),
		306	const_iv (SDLK_F7),
		307	const_iv (SDLK_F8),
		308	const_iv (SDLK_F9),
		309	const_iv (SDLK_F10),
		310	const_iv (SDLK_F11),
		311	const_iv (SDLK_F12),
		312	const_iv (SDLK_F13),
		313	const_iv (SDLK_F14),
		314	const_iv (SDLK_F15),
		315	const_iv (SDLK_NUMLOCK),
		316	const_iv (SDLK_CAPSLOCK),
		317	const_iv (SDLK_SCROLLOCK),
		318	const_iv (SDLK_RSHIFT),
		319	const_iv (SDLK_LSHIFT),
		320	const_iv (SDLK_RCTRL),
		321	const_iv (SDLK_LCTRL),
		322	const_iv (SDLK_RALT),
		323	const_iv (SDLK_LALT),
		324	const_iv (SDLK_RMETA),
		325	const_iv (SDLK_LMETA),
		326	const_iv (SDLK_LSUPER),
		327	const_iv (SDLK_RSUPER),
		328	const_iv (SDLK_MODE),
		329	const_iv (SDLK_COMPOSE),
		330	const_iv (SDLK_HELP),
		331	const_iv (SDLK_PRINT),
		332	const_iv (SDLK_SYSREQ),
		333	const_iv (SDLK_BREAK),
		334	const_iv (SDLK_MENU),
		335	const_iv (SDLK_POWER),
		336	const_iv (SDLK_EURO),
		337	const_iv (SDLK_UNDO),
		338	const_iv (KMOD_NONE),
		339	const_iv (KMOD_LSHIFT),
		340	const_iv (KMOD_RSHIFT),
		341	const_iv (KMOD_LCTRL),
		342	const_iv (KMOD_RCTRL),
		343	const_iv (KMOD_LALT),
		344	const_iv (KMOD_RALT),
		345	const_iv (KMOD_LMETA),
		346	const_iv (KMOD_RMETA),
		347	const_iv (KMOD_NUM),
		348	const_iv (KMOD_CAPS),
		349	const_iv (KMOD_MODE),
		350	const_iv (KMOD_CTRL),
		351	const_iv (KMOD_SHIFT),
		352	const_iv (KMOD_ALT),
		353	const_iv (KMOD_META)
		354	# undef const_iv
		355	};
		356
		357	for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
		358	newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
		359
168	fontmap = pango_ft2_font_map_new ();	360	fontmap = pango_ft2_font_map_new ();
169	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);	361	pango_ft2_font_map_set_default_substitute ((PangoFT2FontMap *)fontmap, substitute_func, 0, 0);
170	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);	362	context = pango_ft2_font_map_create_context ((PangoFT2FontMap *)fontmap);
171	}	363	}
		364
		365	int
		366	SDL_Init (U32 flags = SDL_INIT_VIDEO \| SDL_INIT_AUDIO)
		367
		368	void
		369	SDL_Quit ()
		370
		371	void
		372	SDL_ListModes ()
		373	PPCODE:
		374	{
		375	SDL_Rect **m;
		376
		377	SDL_GL_SetAttribute (SDL_GL_RED_SIZE, 5);
		378	SDL_GL_SetAttribute (SDL_GL_GREEN_SIZE, 5);
		379	SDL_GL_SetAttribute (SDL_GL_BLUE_SIZE, 5);
		380	SDL_GL_SetAttribute (SDL_GL_ALPHA_SIZE, 1);
		381
		382	SDL_GL_SetAttribute (SDL_GL_ACCUM_RED_SIZE, 0);
		383	SDL_GL_SetAttribute (SDL_GL_ACCUM_GREEN_SIZE, 0);
		384	SDL_GL_SetAttribute (SDL_GL_ACCUM_BLUE_SIZE, 0);
		385	SDL_GL_SetAttribute (SDL_GL_ACCUM_ALPHA_SIZE, 0);
		386
		387	SDL_GL_SetAttribute (SDL_GL_DOUBLEBUFFER, 1);
		388	SDL_GL_SetAttribute (SDL_GL_BUFFER_SIZE, 15);
		389	SDL_GL_SetAttribute (SDL_GL_DEPTH_SIZE, 0);
		390
		391	SDL_EnableUNICODE (1);
		392	SDL_EnableKeyRepeat (SDL_DEFAULT_REPEAT_DELAY, SDL_DEFAULT_REPEAT_INTERVAL);
		393
		394	m = SDL_ListModes (0, SDL_FULLSCREEN \| SDL_OPENGL);
		395
		396	if (m && m != (SDL_Rect **)-1)
		397	while (*m)
		398	{
		399	AV *av = newAV ();
		400	av_push (av, newSViv ((*m)->w));
		401	av_push (av, newSViv ((*m)->h));
		402	XPUSHs (sv_2mortal (newRV_noinc ((SV *)av)));
		403
		404	++m;
		405	}
		406	}
		407
		408	int
		409	SDL_SetVideoMode (int w, int h, int fullscreen)
		410	CODE:
		411	RETVAL = !!SDL_SetVideoMode (
		412	w, h, 0, SDL_OPENGL \| (fullscreen ? SDL_FULLSCREEN : 0)
		413	);
		414	SDL_WM_SetCaption ("Crossfire+ Client " VERSION, "Crossfire+");
		415	OUTPUT:
		416	RETVAL
		417
		418	void
		419	SDL_PollEvent ()
		420	PPCODE:
		421	{
		422	SDL_Event ev;
		423
		424	while (SDL_PollEvent (&ev))
		425	{
		426	HV *hv = newHV ();
		427	hv_store (hv, "type", 4, newSViv (ev.type), 0);
		428	switch (ev.type)
		429	{
		430	case SDL_KEYDOWN:
		431	case SDL_KEYUP:
		432	hv_store (hv, "state", 5, newSViv (ev.key.state), 0);
		433	hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0);
		434	hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0);
		435	hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
		436	break;
		437
		438	case SDL_ACTIVEEVENT:
		439	hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0);
		440	hv_store (hv, "state", 5, newSViv (ev.active.state), 0);
		441	break;
		442
		443	case SDL_MOUSEMOTION:
		444	hv_store (hv, "state", 5, newSViv (ev.motion.state), 0);
		445	hv_store (hv, "x", 1, newSViv (ev.motion.x), 0);
		446	hv_store (hv, "y", 1, newSViv (ev.motion.y), 0);
		447	hv_store (hv, "xrel", 4, newSViv (ev.motion.xrel), 0);
		448	hv_store (hv, "yrel", 4, newSViv (ev.motion.yrel), 0);
		449	break;
		450
		451	case SDL_MOUSEBUTTONDOWN:
		452	case SDL_MOUSEBUTTONUP:
		453	hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
		454	hv_store (hv, "state", 5, newSViv (ev.button.state), 0);
		455	hv_store (hv, "x", 1, newSViv (ev.button.x), 0);
		456	hv_store (hv, "y", 1, newSViv (ev.button.y), 0);
		457	}
		458
		459	XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
		460	}
		461	}
		462
		463	int
		464	Mix_OpenAudio (int frequency = 22050, int format = MIX_DEFAULT_FORMAT, int channels = 1, int chunksize = 512)
		465
		466	void
		467	Mix_CloseAudio ()
		468
		469	int
		470	Mix_AllocateChannels (int numchans = -1)
172		471
173	void	472	void
174	lowdelay (int fd, int val = 1)	473	lowdelay (int fd, int val = 1)
175	CODE:	474	CODE:
		475	#ifndef _WIN32
176	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));	476	setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
		477	#endif
177		478
178	char *	479	char *
179	gl_version ()	480	gl_version ()
180	CODE:	481	CODE:
181	RETVAL = (char *)glGetString (GL_VERSION);	482	RETVAL = (char *)glGetString (GL_VERSION);
…		…
218	SDL_RWops *rw = ix	519	SDL_RWops *rw = ix
219	? SDL_RWFromFile (image, "r")	520	? SDL_RWFromFile (image, "r")
220	: SDL_RWFromConstMem (image, image_len);	521	: SDL_RWFromConstMem (image, image_len);
221		522
222	if (!rw)	523	if (!rw)
223	croak ("load_image: unable to open file");	524	croak ("load_image: %s", SDL_GetError ());
224		525
225	surface = IMG_Load_RW (rw, 1);	526	surface = IMG_Load_RW (rw, 1);
226	if (!surface)	527	if (!surface)
227	croak ("load_image: unable to read file");	528	croak ("load_image: %s", SDL_GetError ());
228		529
229	fmt.palette = NULL;	530	fmt.palette = NULL;
230	fmt.BitsPerPixel = 32;	531	fmt.BitsPerPixel = 32;
231	fmt.BytesPerPixel = 4;	532	fmt.BytesPerPixel = 4;
		533	#if SDL_BYTEORDER == SDL_LIL_ENDIAN
232	fmt.Rmask = 0x000000ff;	534	fmt.Rmask = 0x000000ff;
233	fmt.Gmask = 0x0000ff00;	535	fmt.Gmask = 0x0000ff00;
234	fmt.Bmask = 0x00ff0000;	536	fmt.Bmask = 0x00ff0000;
235	fmt.Amask = 0xff000000;	537	fmt.Amask = 0xff000000;
		538	#else
		539	fmt.Rmask = 0xff000000;
		540	fmt.Gmask = 0x00ff0000;
		541	fmt.Bmask = 0x0000ff00;
		542	fmt.Amask = 0x000000ff;
		543	#endif
236	fmt.Rloss = 0;	544	fmt.Rloss = 0;
237	fmt.Gloss = 0;	545	fmt.Gloss = 0;
238	fmt.Bloss = 0;	546	fmt.Bloss = 0;
239	fmt.Aloss = 0;	547	fmt.Aloss = 0;
240	fmt.Rshift = 0;	548	fmt.Rshift = 0;
…		…
244	fmt.colorkey = 0;	552	fmt.colorkey = 0;
245	fmt.alpha = 0;	553	fmt.alpha = 0;
246		554
247	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);	555	surface2 = SDL_ConvertSurface (surface, &fmt, SDL_SWSURFACE);
248		556
		557	assert (surface2->pitch == surface2->w * 4);
		558
249	EXTEND (SP, 5);	559	EXTEND (SP, 5);
250	PUSHs (sv_2mortal (newSViv (surface2->w)));	560	PUSHs (sv_2mortal (newSViv (surface2->w)));
251	PUSHs (sv_2mortal (newSViv (surface2->h)));	561	PUSHs (sv_2mortal (newSViv (surface2->h)));
252	SDL_LockSurface (surface2);	562	SDL_LockSurface (surface2);
253	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));	563	PUSHs (sv_2mortal (newSVpvn (surface2->pixels, surface2->h * surface2->pitch)));
254	SDL_UnlockSurface (surface2);	564	SDL_UnlockSurface (surface2);
255	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));	565	PUSHs (sv_2mortal (newSViv (surface->flags & (SDL_SRCCOLORKEY \| SDL_SRCALPHA) ? GL_RGBA : GL_RGB)));
256	PUSHs (sv_2mortal (newSViv (GL_RGBA)));	566	PUSHs (sv_2mortal (newSViv (GL_RGBA)));
257	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_INT_8_8_8_8_REV)));	567	PUSHs (sv_2mortal (newSViv (GL_UNSIGNED_BYTE)));
258		568
259	SDL_FreeSurface (surface);	569	SDL_FreeSurface (surface);
260	SDL_FreeSurface (surface2);	570	SDL_FreeSurface (surface2);
261	}	571	}
262		572
263	void	573	void
		574	average (int x, int y, uint32_t *data)
		575	PPCODE:
		576	{
		577	uint32_t r = 0, g = 0, b = 0, a = 0;
		578
		579	x = y = x * y;
		580
		581	while (x--)
		582	{
		583	uint32_t p = *data++;
		584
		585	r += (p ) & 255;
		586	g += (p >> 8) & 255;
		587	b += (p >> 16) & 255;
		588	a += (p >> 24) & 255;
		589	}
		590
		591	EXTEND (SP, 4);
		592	PUSHs (sv_2mortal (newSViv (r / y)));
		593	PUSHs (sv_2mortal (newSViv (g / y)));
		594	PUSHs (sv_2mortal (newSViv (b / y)));
		595	PUSHs (sv_2mortal (newSViv (a / y)));
		596	}
		597
		598	void
264	fatal (char *message)	599	fatal (char *message)
265	CODE:	600	CODE:
266	#ifdef WIN32	601	#ifdef _WIN32
267	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);	602	MessageBox (0, message, "Crossfire+ Fatal Error", MB_OK \| MB_ICONERROR \| MB_SETFOREGROUND);
268	#else	603	#else
269	fprintf (stderr, "%s\n", message);	604	fprintf (stderr, "FATAL: %s\n", message);
270	#endif	605	#endif
271	exit (1);	606	exit (1);
272		607
273	MODULE = CFClient PACKAGE = CFClient::Layout	608	MODULE = CFClient PACKAGE = CFClient::Layout
274		609
…		…
287	CODE:	622	CODE:
288	g_object_unref (self->pl);	623	g_object_unref (self->pl);
289	Safefree (self);	624	Safefree (self);
290		625
291	void	626	void
292	set_markup (CFClient::Layout self, SV *text_)	627	set_text (CFClient::Layout self, SV *text_)
293	CODE:	628	CODE:
294	{	629	{
295	STRLEN textlen;	630	STRLEN textlen;
296	char *text = SvPVutf8 (text_, textlen);	631	char *text = SvPVutf8 (text_, textlen);
297		632
		633	pango_layout_set_text (self->pl, text, textlen);
		634	}
		635
		636	void
		637	set_markup (CFClient::Layout self, SV *text_)
		638	CODE:
		639	{
		640	STRLEN textlen;
		641	char *text = SvPVutf8 (text_, textlen);
		642
298	pango_layout_set_markup (self->pl, text, textlen);	643	pango_layout_set_markup (self->pl, text, textlen);
299	}	644	}
		645
		646	SV *
		647	get_text (CFClient::Layout self)
		648	CODE:
		649	RETVAL = newSVpv (pango_layout_get_text (self->pl), 0);
		650	SvUTF8_on (RETVAL);
		651	OUTPUT:
		652	RETVAL
300		653
301	void	654	void
302	set_height (CFClient::Layout self, int base_height)	655	set_height (CFClient::Layout self, int base_height)
303	CODE:	656	CODE:
304	self->base_height = base_height;	657	self->base_height = base_height;
…		…
383	}	736	}
384		737
385	MODULE = CFClient PACKAGE = CFClient::Texture	738	MODULE = CFClient PACKAGE = CFClient::Texture
386		739
387	void	740	void
388	draw_quad (SV *self, double x, double y, double w = 0, double h = 0)	741	draw_quad (SV *self, float x, float y, float w = 0, float h = 0)
389	PROTOTYPE: $$$;$$	742	PROTOTYPE: $$$;$$
390	CODE:	743	CODE:
391	{	744	{
392	HV hv = (HV )SvRV (self);	745	HV hv = (HV )SvRV (self);
393	double s = SvNV (*hv_fetch (hv, "s", 1, 1));	746	float s = SvNV (*hv_fetch (hv, "s", 1, 1));
394	double t = SvNV (*hv_fetch (hv, "t", 1, 1));	747	float t = SvNV (*hv_fetch (hv, "t", 1, 1));
395	int name = SvIV (*hv_fetch (hv, "name", 4, 1));	748	int name = SvIV (*hv_fetch (hv, "name", 4, 1));
		749	int wrap_mode = SvIV (*hv_fetch (hv, "wrap_mode", 9, 1));
396		750
397	if (items < 5)	751	if (items < 5)
398	{	752	{
399	w = SvNV (*hv_fetch (hv, "w", 1, 1));	753	w = SvNV (*hv_fetch (hv, "w", 1, 1));
400	h = SvNV (*hv_fetch (hv, "h", 1, 1));	754	h = SvNV (*hv_fetch (hv, "h", 1, 1));
401	}	755	}
402		756
403	glBindTexture (GL_TEXTURE_2D, name);	757	glBindTexture (GL_TEXTURE_2D, name);
		758	if (wrap_mode) {
		759	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
		760	glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
		761	}
404	glBegin (GL_QUADS);	762	glBegin (GL_QUADS);
405	glTexCoord2d (0, 0); glVertex2d (x , y );	763	glTexCoord2f (0, 0); glVertex2f (x , y );
406	glTexCoord2d (0, t); glVertex2d (x , y + h);	764	glTexCoord2f (0, t); glVertex2f (x , y + h);
407	glTexCoord2d (s, t); glVertex2d (x + w, y + h);	765	glTexCoord2f (s, t); glVertex2f (x + w, y + h);
408	glTexCoord2d (s, 0); glVertex2d (x + w, y );	766	glTexCoord2f (s, 0); glVertex2f (x + w, y );
409	glEnd ();	767	glEnd ();
410	}	768	}
411		769
412	MODULE = CFClient PACKAGE = CFClient::Map	770	MODULE = CFClient PACKAGE = CFClient::Map
413		771
414	CFClient::Map	772	CFClient::Map
415	new (SV *class, int map_width, int map_height)	773	new (SV *class, int map_width, int map_height)
416	CODE:	774	CODE:
417	New (0, RETVAL, 1, struct map);	775	New (0, RETVAL, 1, struct map);
418	RETVAL->x = 0;	776	RETVAL->x = 0;
419	RETVAL->y = 0;	777	RETVAL->y = 0;
420	RETVAL->w = map_width;	778	RETVAL->w = map_width;
421	RETVAL->h = map_height;	779	RETVAL->h = map_height;
422	RETVAL->vx = 0;	780	RETVAL->ox = 0;
423	RETVAL->vy = 0;	781	RETVAL->oy = 0;
424	RETVAL->faces = 8192;	782	RETVAL->faces = 8192;
425	Newz (0, RETVAL->face, RETVAL->faces, mapface);	783	Newz (0, RETVAL->face, RETVAL->faces, mapface);
		784	RETVAL->texs = 8192;
		785	Newz (0, RETVAL->tex, RETVAL->texs, maptex);
426	RETVAL->rows = 0;	786	RETVAL->rows = 0;
427	RETVAL->row = 0;	787	RETVAL->row = 0;
428	OUTPUT:	788	OUTPUT:
429	RETVAL	789	RETVAL
430		790
…		…
441	clear (CFClient::Map self)	801	clear (CFClient::Map self)
442	CODE:	802	CODE:
443	map_clear (self);	803	map_clear (self);
444		804
445	void	805	void
446	set_texture (CFClient::Map self, int face, int name, int w, int h, float s, float t)	806	set_face (CFClient::Map self, int face, int texid)
447	CODE:	807	CODE:
448	{	808	{
449	while (self->faces < face)	809	while (self->faces <= face)
450	{	810	{
451	Append (mapface, self->face, self->faces, self->faces);	811	Append (mapface, self->face, self->faces, self->faces);
452	self->faces *= 2;	812	self->faces *= 2;
453	}	813	}
454		814
455	self->face [face].name = name;
456	self->face [face].w = w;	815	self->face [face] = texid;
457	self->face [face].h = h;
458	self->face [face].s = s;
459	self->face [face].t = t;
460	}	816	}
		817
		818	void
		819	set_texture (CFClient::Map self, int texid, int name, int w, int h, float s, float t, int r, int g, int b, int a)
		820	CODE:
		821	{
		822	while (self->texs <= texid)
		823	{
		824	Append (maptex, self->tex, self->texs, self->texs);
		825	self->texs *= 2;
		826	}
		827
		828	{
		829	maptex *tex = self->tex + texid;
		830
		831	tex->name = name;
		832	tex->w = w;
		833	tex->h = h;
		834	tex->s = s;
		835	tex->t = t;
		836	tex->r = r;
		837	tex->g = g;
		838	tex->b = b;
		839	tex->a = a;
		840	}
		841	}
		842
		843	int
		844	ox (CFClient::Map self)
		845	ALIAS:
		846	oy = 1
		847	CODE:
		848	switch (ix)
		849	{
		850	case 0: RETVAL = self->ox; break;
		851	case 1: RETVAL = self->oy; break;
		852	}
		853	OUTPUT:
		854	RETVAL
461		855
462	void	856	void
463	scroll (CFClient::Map self, int dx, int dy)	857	scroll (CFClient::Map self, int dx, int dy)
464	CODE:	858	CODE:
465	{	859	{
…		…
471	if (dy > 0)	865	if (dy > 0)
472	map_blank (self, self->x, self->y, self->w, dy - 1);	866	map_blank (self, self->x, self->y, self->w, dy - 1);
473	else if (dy < 0)	867	else if (dy < 0)
474	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);	868	map_blank (self, self->x, self->y + self->h + dy + 1, self->w, 1 - dy);
475		869
476	self->x += dx;	870	self->ox += dx; self->x += dx;
477	self->y += dy;	871	self->oy += dy; self->y += dy;
478		872
479	while (self->y < 0)	873	while (self->y < 0)
480	{	874	{
481	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);	875	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
482		876
…		…
489	map1a_update (CFClient::Map self, SV *data_)	883	map1a_update (CFClient::Map self, SV *data_)
490	CODE:	884	CODE:
491	{	885	{
492	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);	886	uint8_t data = (uint8_t )SvPVbyte_nolen (data_);
493	uint8_t data_end = (uint8_t )SvEND (data_);	887	uint8_t data_end = (uint8_t )SvEND (data_);
494		888	mapcell *cell;
		889	int x, y, flags;
		890
495	while (data < data_end)	891	while (data < data_end)
496	{	892	{
497	int flags = (data [0] << 8) + data [1]; data += 2;	893	flags = (data [0] << 8) + data [1]; data += 2;
498		894
499	int x = ((flags >> 10) & 63) + self->x;	895	x = ((flags >> 10) & 63) + self->x;
500	int y = ((flags >> 4) & 63) + self->y;	896	y = ((flags >> 4) & 63) + self->y;
501		897
502	while (y >= self->rows)	898	cell = map_get_cell (self, x, y);
503	{
504	Prepend (maprow, self->row, self->rows, MAP_EXTEND_Y);
505
506	self->rows += MAP_EXTEND_Y;
507	}
508
509	maprow *row = self->row + y;
510
511	if (!row->col)
512	{
513	Newz (0, row->col, MAP_EXTEND_X, mapcell);
514	row->c0 = self->x - MAP_EXTEND_X / 4;
515	row->c1 = row->c0 + MAP_EXTEND_X;
516	}
517
518	if (row->c0 > x)
519	{
520	int extend = row->c0 - x + MAP_EXTEND_X;
521	Prepend (mapcell, row->col, row->c1 - row->c0, extend);
522	row->c0 -= extend;
523	}
524	else if (x >= row->c1)
525	{
526	int extend = x - row->c1 + MAP_EXTEND_X;
527	Append (mapcell, row->col, row->c1 - row->c0, extend);
528	row->c1 += extend;
529	}
530
531	assert (y >= 0);
532	assert (y < self->rows);
533	assert (x >= row->c0);
534	assert (x < row->c1);
535	mapcell *cell = row->col + (x - row->c0);
536		899
537	if (flags & 15)	900	if (flags & 15)
538	{	901	{
539	if (cell->darkness < 0 && x < self->w && y < self->h)	902	if (cell->darkness < 0)
540	{	903	{
541	cell->darkness = 0;	904	cell->darkness = 0;
542	cell->face [0] = 0;	905	cell->face [0] = 0;
543	cell->face [1] = 0;	906	cell->face [1] = 0;
544	cell->face [2] = 0;	907	cell->face [2] = 0;
545	}	908	}
546		909
547	cell->darkness = flags & 8 ? *data++ : 255;	910	cell->darkness = flags & 8 ? *data++ : 255;
		911
		912	//TODO: don't trust server data to be in-range(!)
548		913
549	if (flags & 4)	914	if (flags & 4)
550	{	915	{
551	cell->face [0] = (data [0] << 8) + data [1]; data += 2;	916	cell->face [0] = self->face [(data [0] << 8) + data [1]]; data += 2;
552	}	917	}
553		918
554	if (flags & 2)	919	if (flags & 2)
555	{	920	{
556	cell->face [1] = (data [0] << 8) + data [1]; data += 2;	921	cell->face [1] = self->face [(data [0] << 8) + data [1]]; data += 2;
557	}	922	}
558		923
559	if (flags & 1)	924	if (flags & 1)
560	{	925	{
561	cell->face [2] = (data [0] << 8) + data [1]; data += 2;	926	cell->face [2] = self->face [(data [0] << 8) + data [1]]; data += 2;
562	}	927	}
563	}	928	}
564	else	929	else
		930	cell->darkness = -1;
		931	}
		932	}
		933
		934	SV *
		935	mapmap (CFClient::Map self, int w, int h)
		936	CODE:
		937	{
		938	int x0, x1, x;
		939	int y0, y1, y;
		940	int z;
		941	SV map_sv = newSV (w h * sizeof (uint32_t));
		942	uint32_t map = (uint32_t )SvPVX (map_sv);
		943
		944	SvPOK_only (map_sv);
		945	SvCUR_set (map_sv, w * h * sizeof (uint32_t));
		946
		947	x0 = self->x - w / 2; x1 = x0 + w;
		948	y0 = self->y - h / 2; y1 = y0 + h;
		949
		950	for (y = y0; y < y1; y++)
		951	{
		952	maprow *row = 0 <= y && y < self->rows
		953	? self->row + y
		954	: 0;
		955
		956	for (x = x0; x < x1; x++)
565	{	957	{
566	cell->darkness = -1;	958	int r = 32, g = 32, b = 32, a = 192;
567	cell->face [2] = 0;	959
		960	if (row && row->c0 <= x && x < row->c1)
		961	{
		962	mapcell *cell = row->col + (x - row->c0);
		963
		964	for (z = 0; z <= 0; z++)
		965	{
		966	mapface face = cell->face [z];
		967
		968	if (face)
		969	{
		970	maptex tex = self->tex [face];
		971	int a0 = 255 - tex.a;
		972	int a1 = tex.a;
		973
		974	r = (r * a0 + tex.r * a1) / 255;
		975	g = (g * a0 + tex.g * a1) / 255;
		976	b = (b * a0 + tex.b * a1) / 255;
		977	a = (a * a0 + tex.a * a1) / 255;
		978	}
		979	}
		980	}
		981
		982	*map++ = (r )
		983	\| (g << 8)
		984	\| (b << 16)
		985	\| (a << 24);
568	}	986	}
569	}	987	}
570	}
571		988
		989	RETVAL = map_sv;
		990	}
		991	OUTPUT:
		992	RETVAL
		993
572	void	994	void
573	draw (CFClient::Map self, int x0, int y0, int sw, int sh)	995	draw (CFClient::Map self, int shift_x, int shift_y, int x0, int y0, int sw, int sh)
574	CODE:	996	PPCODE:
575	{	997	{
		998	int vx, vy;
		999	int x, y, z;
		1000	int last_name;
		1001	mapface face;
		1002	int sw4 = (sw + 3) & ~3;
		1003	SV darkness_sv = sv_2mortal (newSV (sw4 sh));
		1004	uint8_t darkness = (uint8_t )SvPVX (darkness_sv);
		1005
		1006	memset (darkness, 255, sw4 * sh);
		1007	SvPOK_only (darkness_sv);
		1008	SvCUR_set (darkness_sv, sw4 * sh);
		1009
		1010	vx = self->x + (self->w - sw) / 2 - shift_x;
		1011	vy = self->y + (self->h - sh) / 2 - shift_y;
		1012
		1013	/*
576	int vx = self->vx = self->w >= sw	1014	int vx = self->vx = self->w >= sw
577	? self->x + (self->w - sw) / 2	1015	? self->x + (self->w - sw) / 2
578	: MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));	1016	: MIN (self->x, MAX (self->x + self->w - sw + 1, self->vx));
579		1017
580	int vy = self->vy = self->h >= sh	1018	int vy = self->vy = self->h >= sh
581	? self->y + (self->h - sh) / 2	1019	? self->y + (self->h - sh) / 2
582	: MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));	1020	: MIN (self->y, MAX (self->y + self->h - sh + 1, self->vy));
		1021	*/
583		1022
584	glColor4ub (255, 255, 255, 255);	1023	glColor4ub (255, 255, 255, 255);
585		1024
586	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);	1025	glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
587	glEnable (GL_BLEND);	1026	glEnable (GL_BLEND);
588	glEnable (GL_TEXTURE_2D);	1027	glEnable (GL_TEXTURE_2D);
589	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);	1028	glTexEnvi (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE);
590		1029
591	int x, y, z;
592
593	int last_name = 0;
594
595	glBegin (GL_QUADS);	1030	glBegin (GL_QUADS);
		1031
		1032	last_name = 0;
596		1033
597	for (z = 0; z < 3; z++)	1034	for (z = 0; z < 3; z++)
598	for (y = 0; y < sh; y++)	1035	for (y = 0; y < sh; y++)
599	if (0 <= y + vy && y + vy < self->rows)	1036	if (0 <= y + vy && y + vy < self->rows)
600	{	1037	{
…		…
602		1039
603	for (x = 0; x < sw; x++)	1040	for (x = 0; x < sw; x++)
604	if (row->c0 <= x + vx && x + vx < row->c1)	1041	if (row->c0 <= x + vx && x + vx < row->c1)
605	{	1042	{
606	mapcell *cell = row->col + (x + vx - row->c0);	1043	mapcell *cell = row->col + (x + vx - row->c0);
		1044
		1045	darkness[y * sw4 + x] = cell->darkness < 0
		1046	? 255 - FOW_DARKNESS
		1047	: 255 - cell->darkness;
		1048
607	uint16_t face = cell->face [z];	1049	face = cell->face [z];
608		1050
609	if (face)	1051	if (face)
610	{	1052	{
611	mapface tex = self->face [face];	1053	maptex tex = self->tex [face];
612		1054
613	int px = (x + 1) * 32 - tex.w;	1055	int px = (x + 1) * 32 - tex.w;
614	int py = (y + 1) * 32 - tex.h;	1056	int py = (y + 1) * 32 - tex.h;
615		1057
616	if (last_name != tex.name)	1058	if (last_name != tex.name)
…		…
628	}	1070	}
629	}	1071	}
630	}	1072	}
631		1073
632	glEnd ();	1074	glEnd ();
633	}
634		1075
		1076	glDisable (GL_TEXTURE_2D);
		1077	glDisable (GL_BLEND);
		1078
		1079	EXTEND (SP, 3);
		1080	PUSHs (sv_2mortal (newSViv (sw4)));
		1081	PUSHs (sv_2mortal (newSViv (sh)));
		1082	PUSHs (darkness_sv);
		1083	}
		1084
		1085	SV *
		1086	get_rect (CFClient::Map self, int x0, int y0, int w, int h)
		1087	CODE:
		1088	{
		1089	int x, y, x1, y1;
		1090	SV data_sv = newSV (w h * 7 + 5);
		1091	uint8_t data = (uint8_t )SvPVX (data_sv);
		1092
		1093	data++ = 0; / version 0 format */
		1094	data++ = w >> 8; data++ = w;
		1095	data++ = h >> 8; data++ = h;
		1096
		1097	// we need to do this 'cause we don't keep an absolute coord system for rows
		1098	// TODO: treat rows as we treat
		1099	map_get_row (self, y0 + self->y - self->oy);//D
		1100	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
		1101
		1102	x0 += self->x - self->ox;
		1103	y0 += self->y - self->oy;
		1104
		1105	x1 = x0 + w;
		1106	y1 = y0 + h;
		1107
		1108	for (y = y0; y < y1; y++)
		1109	{
		1110	maprow *row = 0 <= y && y < self->rows
		1111	? self->row + y
		1112	: 0;
		1113
		1114	for (x = x0; x < x1; x++)
		1115	{
		1116	if (row && row->c0 <= x && x < row->c1)
		1117	{
		1118	mapcell *cell = row->col + (x - row->c0);
		1119	uint8_t flags = 0;
		1120
		1121	if (cell->face [0]) flags \|= 1;
		1122	if (cell->face [1]) flags \|= 2;
		1123	if (cell->face [2]) flags \|= 4;
		1124
		1125	*data++ = flags;
		1126
		1127	if (flags & 1)
		1128	{
		1129	*data++ = cell->face [0] >> 8;
		1130	*data++ = cell->face [0];
		1131	}
		1132
		1133	if (flags & 2)
		1134	{
		1135	*data++ = cell->face [1] >> 8;
		1136	*data++ = cell->face [1];
		1137	}
		1138
		1139	if (flags & 4)
		1140	{
		1141	*data++ = cell->face [2] >> 8;
		1142	*data++ = cell->face [2];
		1143	}
		1144	}
		1145	else
		1146	*data++ = 0;
		1147	}
		1148	}
		1149
		1150	SvPOK_only (data_sv);
		1151	SvCUR_set (data_sv, data - (uint8_t *)SvPVX (data_sv));
		1152	RETVAL = data_sv;
		1153	}
		1154	OUTPUT:
		1155	RETVAL
		1156
		1157	void
		1158	set_rect (CFClient::Map self, int x0, int y0, uint8_t *data)
		1159	PPCODE:
		1160	{
		1161	int x, y, z;
		1162	int w, h;
		1163	int x1, y1;
		1164
		1165	if (*data++ != 0)
		1166	return; /* version mismatch */
		1167
		1168	w = data++ << 8; w \|= data++;
		1169	h = data++ << 8; h \|= data++;
		1170
		1171	// we need to do this 'cause we don't keep an absolute coord system for rows
		1172	// TODO: treat rows as we treat
		1173	map_get_row (self, y0 + self->y - self->oy);//D
		1174	map_get_row (self, y0 + self->y - self->oy + h - 1);//D
		1175
		1176	x0 += self->x - self->ox;
		1177	y0 += self->y - self->oy;
		1178
		1179	x1 = x0 + w;
		1180	y1 = y0 + h;
		1181
		1182	for (y = y0; y < y1; y++)
		1183	{
		1184	maprow *row = map_get_row (self, y);
		1185
		1186	for (x = x0; x < x1; x++)
		1187	{
		1188	uint8_t flags = *data++;
		1189
		1190	if (flags)
		1191	{
		1192	mapface face[3] = { 0, 0, 0 };
		1193
		1194	mapcell *cell = row_get_cell (row, x);
		1195
		1196	if (flags & 1) { face[0] = data++ << 8; face[0] \|= data++; }
		1197	if (flags & 2) { face[1] = data++ << 8; face[1] \|= data++; }
		1198	if (flags & 4) { face[2] = data++ << 8; face[2] \|= data++; }
		1199
		1200	if (cell->darkness <= 0)
		1201	{
		1202	cell->darkness = -1;
		1203
		1204	for (z = 0; z <= 2; z++)
		1205	{
		1206	cell->face[z] = face[z];
		1207
		1208	if (face[z] && (face[z] >= self->texs \|\| !self->tex[face [z]].name))
		1209	XPUSHs (sv_2mortal (newSViv (face[z])));
		1210	}
		1211	}
		1212	}
		1213	}
		1214	}
		1215	}
		1216
		1217	MODULE = CFClient PACKAGE = CFClient::MixChunk
		1218
		1219	CFClient::MixChunk
		1220	new_from_file (SV class, char path)
		1221	CODE:
		1222	RETVAL = Mix_LoadWAV (path);
		1223	OUTPUT:
		1224	RETVAL
		1225
		1226	void
		1227	DESTROY (CFClient::MixChunk self)
		1228	CODE:
		1229	Mix_FreeChunk (self);
		1230
		1231	int
		1232	volume (CFClient::MixChunk self, int volume = -1)
		1233	CODE:
		1234	RETVAL = Mix_VolumeChunk (self, volume);
		1235	OUTPUT:
		1236	RETVAL
		1237
		1238	int
		1239	play (CFClient::MixChunk self, int channel = -1, int loops = 0, int ticks = -1)
		1240	CODE:
		1241	RETVAL = Mix_PlayChannelTimed (channel, self, loops, ticks);
		1242	OUTPUT:
		1243	RETVAL
		1244
		1245	MODULE = CFClient PACKAGE = CFClient::MixMusic
		1246
		1247	int
		1248	volume (int volume = -1)
		1249	CODE:
		1250	RETVAL = Mix_VolumeMusic (volume);
		1251	OUTPUT:
		1252	RETVAL
		1253
		1254	CFClient::MixMusic
		1255	new_from_file (SV class, char path)
		1256	CODE:
		1257	RETVAL = Mix_LoadMUS (path);
		1258	OUTPUT:
		1259	RETVAL
		1260
		1261	void
		1262	DESTROY (CFClient::MixMusic self)
		1263	CODE:
		1264	Mix_FreeMusic (self);
		1265
		1266	int
		1267	play (CFClient::MixMusic self, int loops = -1)
		1268	CODE:
		1269	RETVAL = Mix_PlayMusic (self, loops);
		1270	OUTPUT:
		1271	RETVAL
		1272

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/Deliantra-Client/Client.xs (file contents): Revision 1.30 by root, Thu Apr 13 23:07:56 2006 UTC vs. Revision 1.53 by root, Wed Apr 19 21:38:04 2006 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/Client.xs (file contents):
Revision 1.30 by root, Thu Apr 13 23:07:56 2006 UTC vs.
Revision 1.53 by root, Wed Apr 19 21:38:04 2006 UTC