wrong port
[carveJwlIkooP6JGAAIwe30JlM.git] / world_load.c
1 #ifndef WORLD_LOAD_C
2 #define WORLD_LOAD_C
3
4 #include "world_load.h"
5 #include "world_routes.h"
6 #include "world_gate.h"
7 #include "ent_skateshop.h"
8 #include "addon.h"
9 #include "save.h"
10 #include "vg/vg_msg.h"
11 #include "network.h"
12 #include "player_remote.h"
13
14 /*
15 * load the .mdl file located in path as a world instance
16 */
17 static void world_instance_load_mdl( u32 instance_id, const char *path ){
18 vg_rand_seed( 9001 );
19
20 world_instance *world = &world_static.instances[ instance_id ];
21 world_init_blank( world );
22 world->status = k_world_status_loading;
23
24 vg_info( "Loading instance[%u]: %s\n", instance_id, path );
25
26 void *allocator = NULL;
27 if( instance_id == 0 ) allocator = world_static.heap;
28 else allocator = world_static.instances[instance_id-1].heap;
29
30 u32 heap_availible = vg_linear_remaining( allocator );
31 u32 min_overhead = sizeof(vg_linear_allocator);
32
33 if( heap_availible < (min_overhead+1024) ){
34 vg_fatal_error( "out of memory" );
35 }
36
37 u32 size = heap_availible - min_overhead;
38 void *heap = vg_create_linear_allocator( allocator, size, VG_MEMORY_SYSTEM );
39
40 world->heap = heap;
41 mdl_context *meta = &world->meta;
42
43 mdl_open( meta, path, world->heap );
44 mdl_load_metadata_block( meta, world->heap );
45 mdl_load_animation_block( meta, world->heap );
46 mdl_load_mesh_block( meta, world->heap );
47
48 mdl_load_array( meta, &world->ent_gate, "ent_gate", heap );
49 mdl_load_array( meta, &world->ent_camera, "ent_camera", heap );
50 mdl_load_array( meta, &world->ent_spawn, "ent_spawn", heap );
51 mdl_load_array( meta, &world->ent_light, "ent_light", heap );
52 mdl_load_array( meta, &world->ent_route_node,"ent_route_node", heap );
53 mdl_load_array( meta, &world->ent_path_index,"ent_path_index", heap );
54 mdl_load_array( meta, &world->ent_checkpoint,"ent_checkpoint", heap );
55 mdl_load_array( meta, &world->ent_route, "ent_route", heap );
56 mdl_load_array( meta, &world->ent_water, "ent_water", heap );
57 mdl_load_array( meta, &world->ent_audio_clip,"ent_audio_clip", heap );
58 mdl_load_array( meta, &world->ent_audio, "ent_audio", heap );
59 mdl_load_array( meta, &world->ent_volume, "ent_volume", heap );
60 mdl_load_array( meta, &world->ent_traffic, "ent_traffic", heap );
61 mdl_load_array( meta, &world->ent_marker, "ent_marker", heap );
62 mdl_load_array( meta, &world->ent_skateshop, "ent_skateshop", heap );
63 mdl_load_array( meta, &world->ent_swspreview,"ent_swspreview", heap );
64 mdl_load_array( meta, &world->ent_ccmd, "ent_ccmd", heap );
65 mdl_load_array( meta, &world->ent_objective, "ent_objective", heap );
66 mdl_load_array( meta, &world->ent_challenge, "ent_challenge", heap );
67 mdl_load_array( meta, &world->ent_relay, "ent_relay", heap );
68 mdl_load_array( meta, &world->ent_cubemap, "ent_cubemap", heap );
69
70 mdl_array_ptr infos;
71 mdl_load_array( meta, &infos, "ent_worldinfo", vg_mem.scratch );
72
73 if( mdl_arrcount(&infos) ){
74 world->info = *((ent_worldinfo *)mdl_arritm(&infos,0));
75 }
76 else{
77 world->info.pstr_author = 0;
78 world->info.pstr_desc = 0;
79 world->info.pstr_name = 0;
80 world->info.timezone = 0.0f;
81 }
82
83 time_t t;
84 struct tm *tm;
85 time( &t );
86 tm = gmtime( &t );
87 world->time = (float)tm->tm_min/20.0f + (world->info.timezone/24.0f);
88
89 /* process resources from pack */
90 world_gen_load_surfaces( world );
91 world_gen_routes_ent_init( world );
92 world_gen_entities_init( world );
93
94 /* main bulk */
95 world_gen_generate_meshes( world );
96 world_gen_routes_generate( instance_id );
97 world_gen_compute_light_indices( world );
98 mdl_close( meta );
99
100 /* allocate leaderboard buffers */
101 u32 bs = mdl_arrcount(&world->ent_route)*sizeof(struct leaderboard_cache);
102 world->leaderboard_cache = vg_linear_alloc( heap, bs );
103
104 for( u32 i=0; i<mdl_arrcount( &world->ent_route ); i ++ ){
105 struct leaderboard_cache *board = &world->leaderboard_cache[i];
106 board->data = vg_linear_alloc( heap, NETWORK_LEADERBOARD_MAX_SIZE );
107 board->status = k_request_status_client_error;
108 board->cache_time = 0.0;
109 board->data_len = 0;
110 }
111
112 vg_async_call( async_world_postprocess, world, 0 );
113 vg_async_stall();
114 }
115
116 struct world_load_complete_data{
117 savedata_file save;
118 u32 instance_start, instance_count;
119 };
120
121 static void skaterift_world_load_done( void *payload, u32 size ){
122 struct world_load_complete_data *data = payload;
123
124 vg_msg sav;
125 vg_msg_init( &sav, data->save.buf, data->save.len );
126
127 for( u32 i=0; i<data->instance_count; i++ ){
128 world_instance *world = &world_static.instances[ data->instance_start+i ];
129 world_entity_start( world, &sav );
130 }
131
132 world_static.load_state = k_world_loader_none;
133 }
134
135 struct world_load_args {
136 enum world_purpose purpose;
137 addon_reg *reg;
138 };
139
140 /*
141 * Does a complete world switch using the remaining free slots
142 */
143 static void skaterift_world_load_thread( void *_args ){
144 struct world_load_args *args = _args;
145
146 addon_reg *reg = args->reg;
147 world_static.instance_addons[ args->purpose ] = reg;
148
149 char path_buf[4096];
150 vg_str path;
151 vg_strnull( &path, path_buf, 4096 );
152
153 assert( reg );
154 addon_get_content_folder( reg, &path );
155
156 vg_str folder = path;
157 if( !vg_strgood( &folder ) ) {
158 vg_error( "Load target too long\n" );
159 return;
160 }
161
162 char worlds[k_world_max-1][4096];
163 u32 i=0;
164
165 vg_dir dir;
166 if( !vg_dir_open(&dir, folder.buffer) ){
167 vg_error( "opendir('%s') failed\n", folder.buffer );
168 return;
169 }
170
171 while( vg_dir_next_entry(&dir) ){
172 if( vg_dir_entry_type(&dir) == k_vg_entry_type_file ){
173 const char *d_name = vg_dir_entry_name(&dir);
174 if( d_name[0] == '.' ) continue;
175
176 vg_str file = folder;
177 vg_strcat( &file, "/" );
178 vg_strcat( &file, d_name );
179 if( !vg_strgood( &file ) ) continue;
180
181 char *ext = vg_strch( &file, '.' );
182 if( !ext ) continue;
183 if( strcmp(ext,".mdl") ) continue;
184
185 if( i == k_world_max-1 ){
186 vg_warn( "There are too many .mdl files in the map folder!(3)\n" );
187 break;
188 }
189
190 strcpy( worlds[i++], file.buffer );
191 }
192 }
193 vg_dir_close(&dir);
194
195 if( i == 0 ){
196 vg_warn( "There are no .mdl files in the map folder.\n" );
197 }
198
199 u32 first_index = 0;
200 for( u32 j=0; j<i; j++ ){
201 vg_str name = { .buffer = worlds[j], .i=strlen(worlds[j]),
202 sizeof(worlds[j]) };
203 char *fname = vg_strch( &name, '/' );
204 if( fname ){
205 if( !strcmp( fname+1, "main.mdl" ) ){
206 first_index = j;
207 }
208 }
209 }
210
211 u32 instance_start = 0, instance_count = 1;
212 if( args->purpose == k_world_purpose_client ) instance_start = 1;
213
214 world_instance_load_mdl( instance_start, worlds[first_index] );
215
216 /* TODO: Support multiply packed worlds */
217 #if 0
218 world_loader.generate_point_cloud = 0;
219 for( u32 j=0; j<i; j++ ){
220 if( j != first_index ){
221 world_loader.world_index = j+1;
222 world_load_mdl( worlds[j] );
223 }
224 }
225 #endif
226
227 vg_async_item *final_call =
228 vg_async_alloc( sizeof(struct world_load_complete_data) );
229
230 struct world_load_complete_data *data = final_call->payload;
231 data->instance_start = instance_start;
232 data->instance_count = instance_count;
233
234 skaterift_world_get_save_path( args->purpose, data->save.path );
235 savedata_file_read( &data->save );
236
237 vg_async_dispatch( final_call, skaterift_world_load_done );
238 vg_async_stall();
239 }
240
241 /* holding pattern before we can start loading the new world, since we might be
242 * waiting for audio to stop */
243 static void skaterift_change_client_world_preupdate(void){
244 for( u32 i=1; i<k_world_max; i++ ){
245 world_instance *inst = &world_static.instances[i];
246
247 if( inst->status == k_world_status_unloading ){
248 if( world_freeable( inst ) ){
249 world_free( inst );
250 }
251 return;
252 }
253 }
254
255 if( vg_loader_availible() ){
256 vg_info( "worlds cleared, begining load\n" );
257 world_static.load_state = k_world_loader_load;
258
259 vg_linear_clear( vg_async.buffer );
260 struct world_load_args *args =
261 vg_linear_alloc( vg_async.buffer, sizeof(struct world_load_args) );
262 args->purpose = k_world_purpose_client;
263 args->reg = world_static.instance_addons[ k_world_purpose_client ];
264
265 /* this is replaces the already correct reg but we have to set it again
266 * TOO BAD */
267
268 /* finally can start the loader */
269 vg_loader_start( skaterift_world_load_thread, args );
270 }
271 }
272
273 /* places all loaded worlds into unloading state */
274 static void skaterift_change_world_start( addon_reg *reg ){
275 if( world_static.active_instance != 0 )
276 vg_error( "Cannot change worlds while in non-root world\n" );
277 else{
278 if( world_static.instance_addons[ k_world_purpose_client ] == reg ){
279 vg_warn( "World is already loaded\n" );
280 return;
281 }
282
283 char buf[76];
284 addon_alias_uid( &reg->alias, buf );
285 vg_info( "switching to: %s\n", buf );
286 skaterift_autosave(1);
287
288 world_static.load_state = k_world_loader_preload;
289
290 vg_linear_clear( vg_mem.scratch ); /* ?? */
291 vg_info( "unloading old worlds\n" );
292 world_unlink_nonlocal( &world_static.instances[0] );
293
294 for( u32 i=1; i<vg_list_size(world_static.instances); i++ ){
295 world_instance *inst = &world_static.instances[i];
296
297 if( inst->status == k_world_status_loaded ){
298 inst->status = k_world_status_unloading;
299 world_fadeout_audio( inst );
300 }
301 }
302
303 world_static.instance_addons[ k_world_purpose_client ] = reg;
304 network_send_item( k_netmsg_playeritem_world1 );
305 relink_all_remote_player_worlds();
306 }
307 }
308
309 /* console command for the above function */
310 static int skaterift_change_world_command( int argc, const char *argv[] ){
311 if( !vg_loader_availible() ) return 0;
312
313 if( argc == 1 ){
314 addon_alias q;
315 q.type = k_addon_type_world;
316 q.workshop_id = 0;
317 vg_strncpy( argv[0], q.foldername, 64, k_strncpy_always_add_null );
318
319 u32 reg_id = addon_match( &q );
320 if( reg_id != 0xffffffff ){
321 addon_reg *reg = get_addon_from_index( k_addon_type_world, reg_id );
322 skaterift_change_world_start( reg );
323 }
324 else {
325 char buf[76];
326 addon_alias_uid( &q, buf );
327 vg_error( "Addon '%s' is not installed or not found.\n", buf );
328 }
329 }
330
331 return 0;
332 }
333
334 /*
335 * checks:
336 * 1. to see if all audios owned by the world have been stopped
337 * 2. that this is the least significant world
338 */
339 static int world_freeable( world_instance *world ){
340 if( world->status != k_world_status_unloading ) return 0;
341 u8 world_id = (world - world_static.instances) + 1;
342
343 for( u32 i=world_id; i<vg_list_size(world_static.instances); i++ ){
344 if( world_static.instances[i].status != k_world_status_unloaded ){
345 return 0;
346 }
347 }
348
349 int freeable = 1;
350 audio_lock();
351 for( u32 i=0; i<AUDIO_CHANNELS; i++ ){
352 audio_channel *ch = &vg_audio.channels[i];
353
354 if( ch->allocated && (ch->world_id == world_id)){
355 if( !audio_channel_finished( ch ) ){
356 freeable = 0;
357 break;
358 }
359 }
360 }
361 audio_unlock();
362 return freeable;
363 }
364
365 /*
366 * Free all resources for world instance
367 */
368 static void world_free( world_instance *world ){
369 vg_info( "Free world @%p\n", world );
370
371 /* free meshes */
372 mesh_free( &world->mesh_route_lines );
373 mesh_free( &world->mesh_geo );
374 mesh_free( &world->mesh_no_collide );
375 mesh_free( &world->mesh_water );
376
377 /* glDeleteBuffers silently ignores 0's and names that do not correspond to
378 * existing buffer objects.
379 * */
380 glDeleteBuffers( 1, &world->tbo_light_entities );
381 glDeleteTextures( 1, &world->tex_light_entities );
382 glDeleteTextures( 1, &world->tex_light_cubes );
383
384 /* delete textures and meshes */
385 glDeleteTextures( world->texture_count, world->textures );
386
387 u32 world_index = world - world_static.instances;
388 if( world_index ){
389 vg_linear_del( world_static.instances[world_index-1].heap,
390 vg_linear_header(world->heap) );
391 }
392
393 for( u32 i=0; i<mdl_arrcount(&world->ent_cubemap); i++ ){
394 ent_cubemap *cm = mdl_arritm(&world->ent_cubemap,i);
395 glDeleteTextures( 1, &cm->texture_id );
396 glDeleteFramebuffers( 1, &cm->framebuffer_id );
397 glDeleteRenderbuffers( 1, &cm->renderbuffer_id );
398 }
399
400 world->status = k_world_status_unloaded;
401 }
402
403 /*
404 * reset the world structure without deallocating persistent buffers
405 * TODO: Make this a memset(0), and have persistent items live in a static loc
406 */
407 static void world_init_blank( world_instance *world ){
408 memset( &world->meta, 0, sizeof(mdl_context) );
409
410 world->textures = NULL;
411 world->texture_count = 0;
412 world->surfaces = NULL;
413 world->surface_count = 0;
414
415 world->geo_bh = NULL;
416 world->entity_bh = NULL;
417 world->entity_list = NULL;
418 world->rendering_gate = NULL;
419
420 world->water.enabled = 0;
421 world->time = 0.0;
422
423 /* default lighting conditions
424 * -------------------------------------------------------------*/
425 struct ub_world_lighting *state = &world->ub_lighting;
426
427 state->g_light_preview = 0;
428 state->g_shadow_samples = 8;
429 state->g_water_fog = 0.04f;
430
431 v4_zero( state->g_water_plane );
432 v4_zero( state->g_depth_bounds );
433
434 state->g_shadow_length = 9.50f;
435 state->g_shadow_spread = 0.65f;
436
437 v3_copy( (v3f){0.37f, 0.54f, 0.97f}, state->g_daysky_colour );
438 v3_copy( (v3f){0.03f, 0.05f, 0.20f}, state->g_nightsky_colour );
439 v3_copy( (v3f){1.00f, 0.32f, 0.01f}, state->g_sunset_colour );
440 v3_copy( (v3f){0.13f, 0.17f, 0.35f}, state->g_ambient_colour );
441 v3_copy( (v3f){0.25f, 0.17f, 0.51f}, state->g_sunset_ambient );
442 v3_copy( (v3f){1.10f, 0.89f, 0.35f}, state->g_sun_colour );
443 }
444
445 #endif /* WORLD_LOAD_C */