1 | /* |
1 | /* |
2 | * static char *rcsid_map_c = |
2 | * static char *rcsid_map_c = |
3 | * "$Id: map.C,v 1.19 2006/08/31 18:59:23 root Exp $"; |
3 | * "$Id: map.C,v 1.24 2006/09/04 16:46:32 root Exp $"; |
4 | */ |
4 | */ |
5 | |
5 | |
6 | /* |
6 | /* |
7 | CrossFire, A Multiplayer game for X-windows |
7 | CrossFire, A Multiplayer game for X-windows |
8 | |
8 | |
… | |
… | |
482 | op->x += tmp->x; |
482 | op->x += tmp->x; |
483 | op->y += tmp->y; |
483 | op->y += tmp->y; |
484 | op->head = tmp; |
484 | op->head = tmp; |
485 | op->map = m; |
485 | op->map = m; |
486 | last->more = op; |
486 | last->more = op; |
487 | if (tmp->name != op->name) { |
|
|
488 | if (op->name) free_string(op->name); |
|
|
489 | op->name = add_string(tmp->name); |
487 | op->name = tmp->name; |
490 | } |
|
|
491 | if (tmp->title != op->title) { |
|
|
492 | if (op->title) free_string(op->title); |
|
|
493 | op->title = add_string(tmp->title); |
488 | op->title = tmp->title; |
494 | } |
|
|
495 | /* we could link all the parts onto tmp, and then just |
489 | /* we could link all the parts onto tmp, and then just |
496 | * call insert_ob_in_map once, but the effect is the same, |
490 | * call insert_ob_in_map once, but the effect is the same, |
497 | * as insert_ob_in_map will call itself with each part, and |
491 | * as insert_ob_in_map will call itself with each part, and |
498 | * the coding is simpler to just to it here with each part. |
492 | * the coding is simpler to just to it here with each part. |
499 | */ |
493 | */ |
500 | insert_ob_in_map(op, op->map, tmp,INS_NO_MERGE|INS_ABOVE_FLOOR_ONLY|INS_NO_WALK_ON); |
494 | insert_ob_in_map(op, op->map, tmp,INS_NO_MERGE|INS_ABOVE_FLOOR_ONLY|INS_NO_WALK_ON); |
501 | } /* for at = tmp->arch->more */ |
495 | } /* for at = tmp->arch->more */ |
502 | } /* for objects on this space */ |
496 | } /* for objects on this space */ |
503 | } |
497 | } |
504 | |
498 | |
505 | |
|
|
506 | |
|
|
507 | /* |
499 | /* |
508 | * Loads (ands parses) the objects into a given map from the specified |
500 | * Loads (ands parses) the objects into a given map from the specified |
509 | * file pointer. |
501 | * file pointer. |
510 | * mapflags is the same as we get with load_original_map |
502 | * mapflags is the same as we get with load_original_map |
511 | */ |
503 | */ |
512 | |
504 | void |
513 | void load_objects (mapstruct *m, object_thawer &fp, int mapflags) { |
505 | load_objects (mapstruct *m, object_thawer &fp, int mapflags) |
514 | int i,j,bufstate=LO_NEWFILE; |
506 | { |
|
|
507 | int i, j; |
515 | int unique; |
508 | int unique; |
516 | object *op, *prev=NULL,*last_more=NULL, *otmp; |
509 | object *op, *prev = NULL, *last_more = NULL, *otmp; |
517 | |
510 | |
518 | op=get_object(); |
511 | op = get_object (); |
519 | op->map = m; /* To handle buttons correctly */ |
512 | op->map = m; /* To handle buttons correctly */ |
520 | |
513 | |
521 | while((i = load_object (fp, op, bufstate, mapflags))) { |
514 | while ((i = load_object (fp, op, mapflags))) |
522 | /* Since the loading of the map header does not load an object |
515 | { |
523 | * anymore, we need to pass LO_NEWFILE for the first object loaded, |
|
|
524 | * and then switch to LO_REPEAT for faster loading. |
|
|
525 | */ |
|
|
526 | bufstate = LO_REPEAT; |
|
|
527 | |
|
|
528 | /* if the archetype for the object is null, means that we |
516 | /* if the archetype for the object is null, means that we |
529 | * got an invalid object. Don't do anything with it - the game |
517 | * got an invalid object. Don't do anything with it - the game |
530 | * or editor will not be able to do anything with it either. |
518 | * or editor will not be able to do anything with it either. |
531 | */ |
519 | */ |
532 | if (op->arch==NULL) { |
520 | if (op->arch == NULL) |
533 | LOG(llevDebug,"Discarding object without arch: %s\n", op->name?(const char *)op->name:"(null)"); |
521 | { |
|
|
522 | LOG (llevDebug, "Discarding object without arch: %s\n", |
|
|
523 | op->name ? (const char *) op->name : "(null)"); |
534 | continue; |
524 | continue; |
|
|
525 | } |
|
|
526 | |
|
|
527 | |
|
|
528 | switch (i) |
535 | } |
529 | { |
536 | |
|
|
537 | |
|
|
538 | switch(i) { |
|
|
539 | case LL_NORMAL: |
530 | case LL_NORMAL: |
540 | /* if we are loading an overlay, put the floors on the bottom */ |
531 | /* if we are loading an overlay, put the floors on the bottom */ |
541 | if ((QUERY_FLAG(op, FLAG_IS_FLOOR) || |
532 | if ((QUERY_FLAG (op, FLAG_IS_FLOOR) || |
542 | QUERY_FLAG(op, FLAG_OVERLAY_FLOOR)) && mapflags & MAP_OVERLAY) |
533 | QUERY_FLAG (op, FLAG_OVERLAY_FLOOR)) && mapflags & MAP_OVERLAY) |
543 | insert_ob_in_map(op,m,op,INS_NO_MERGE | INS_NO_WALK_ON | INS_ABOVE_FLOOR_ONLY | INS_MAP_LOAD); |
534 | insert_ob_in_map (op, m, op, |
|
|
535 | INS_NO_MERGE | INS_NO_WALK_ON | |
|
|
536 | INS_ABOVE_FLOOR_ONLY | INS_MAP_LOAD); |
544 | else |
537 | else |
545 | insert_ob_in_map(op,m,op,INS_NO_MERGE | INS_NO_WALK_ON | INS_ON_TOP | INS_MAP_LOAD); |
538 | insert_ob_in_map (op, m, op, |
|
|
539 | INS_NO_MERGE | INS_NO_WALK_ON | INS_ON_TOP | |
|
|
540 | INS_MAP_LOAD); |
546 | |
541 | |
547 | if (op->inv) |
542 | if (op->inv) |
548 | sum_weight(op); |
543 | sum_weight (op); |
549 | |
544 | |
550 | prev=op,last_more=op; |
545 | prev = op, last_more = op; |
551 | break; |
546 | break; |
552 | |
547 | |
553 | case LL_MORE: |
548 | case LL_MORE: |
554 | insert_ob_in_map(op,m, op, INS_NO_MERGE | INS_NO_WALK_ON | INS_ABOVE_FLOOR_ONLY); |
549 | insert_ob_in_map (op, m, op, |
|
|
550 | INS_NO_MERGE | INS_NO_WALK_ON | |
|
|
551 | INS_ABOVE_FLOOR_ONLY); |
555 | op->head=prev,last_more->more=op,last_more=op; |
552 | op->head = prev, last_more->more = op, last_more = op; |
556 | break; |
553 | break; |
557 | } |
554 | } |
|
|
555 | |
558 | if (mapflags & MAP_STYLE) { |
556 | if (mapflags & MAP_STYLE) |
559 | remove_from_active_list(op); |
557 | remove_from_active_list (op); |
560 | } |
558 | |
561 | op=get_object(); |
559 | op = get_object (); |
562 | op->map = m; |
560 | op->map = m; |
563 | } |
561 | } |
|
|
562 | |
564 | for (i=0;i<m->width;i++){ |
563 | for (i = 0; i < m->width; i++) |
|
|
564 | { |
565 | for (j=0;j<m->height;j++){ |
565 | for (j = 0; j < m->height; j++) |
|
|
566 | { |
566 | unique =0; |
567 | unique = 0; |
567 | /* check for unique items, or unique squares */ |
568 | /* check for unique items, or unique squares */ |
568 | for (otmp = get_map_ob(m, i, j); otmp; otmp = otmp->above) { |
569 | for (otmp = get_map_ob (m, i, j); otmp; otmp = otmp->above) |
569 | if (QUERY_FLAG(otmp, FLAG_UNIQUE) || QUERY_FLAG(otmp, FLAG_OBJ_SAVE_ON_OVL)) |
570 | { |
|
|
571 | if (QUERY_FLAG (otmp, FLAG_UNIQUE) |
|
|
572 | || QUERY_FLAG (otmp, FLAG_OBJ_SAVE_ON_OVL)) |
570 | unique = 1; |
573 | unique = 1; |
571 | if (!(mapflags & (MAP_OVERLAY|MAP_PLAYER_UNIQUE) || unique)) |
574 | if (!(mapflags & (MAP_OVERLAY | MAP_PLAYER_UNIQUE) || unique)) |
572 | SET_FLAG(otmp, FLAG_OBJ_ORIGINAL); |
575 | SET_FLAG (otmp, FLAG_OBJ_ORIGINAL); |
573 | } |
576 | } |
574 | } |
577 | } |
575 | } |
578 | } |
|
|
579 | |
576 | free_object(op); |
580 | free_object (op); |
577 | link_multipart_objects(m); |
581 | link_multipart_objects (m); |
578 | } |
582 | } |
579 | |
583 | |
580 | /* This saves all the objects on the map in a non destructive fashion. |
584 | /* This saves all the objects on the map in a non destructive fashion. |
581 | * Modified by MSW 2001-07-01 to do in a single pass - reduces code, |
585 | * Modified by MSW 2001-07-01 to do in a single pass - reduces code, |
582 | * and we only save the head of multi part objects - this is needed |
586 | * and we only save the head of multi part objects - this is needed |
… | |
… | |
618 | * Modified to no longer take a path option which was not being |
622 | * Modified to no longer take a path option which was not being |
619 | * used anyways. MSW 2001-07-01 |
623 | * used anyways. MSW 2001-07-01 |
620 | */ |
624 | */ |
621 | |
625 | |
622 | mapstruct *get_linked_map(void) { |
626 | mapstruct *get_linked_map(void) { |
623 | mapstruct *map=(mapstruct *) calloc(1,sizeof(mapstruct)); |
627 | mapstruct *map = new mapstruct; |
624 | mapstruct *mp; |
628 | mapstruct *mp; |
625 | |
|
|
626 | if(map==NULL) |
|
|
627 | fatal(OUT_OF_MEMORY); |
|
|
628 | |
629 | |
629 | for(mp=first_map;mp!=NULL&&mp->next!=NULL;mp=mp->next); |
630 | for(mp=first_map;mp!=NULL&&mp->next!=NULL;mp=mp->next); |
630 | if(mp==NULL) |
631 | if(mp==NULL) |
631 | first_map=map; |
632 | first_map=map; |
632 | else |
633 | else |
… | |
… | |
815 | value = NULL; |
816 | value = NULL; |
816 | break; |
817 | break; |
817 | } |
818 | } |
818 | } |
819 | } |
819 | } |
820 | } |
|
|
821 | |
820 | if (!end) { |
822 | if (!end) { |
821 | LOG(llevError, "Error loading map header - did not find a newline - perhaps file is truncated? Buf=%s\n", |
823 | LOG(llevError, "Error loading map header - did not find a newline - perhaps file is truncated? Buf=%s\n", |
822 | buf); |
824 | buf); |
823 | return 1; |
825 | return 1; |
824 | } |
826 | } |
825 | |
|
|
826 | |
827 | |
827 | /* key is the field name, value is what it should be set |
828 | /* key is the field name, value is what it should be set |
828 | * to. We've already done the work to null terminate key, |
829 | * to. We've already done the work to null terminate key, |
829 | * and strip off any leading spaces for both of these. |
830 | * and strip off any leading spaces for both of these. |
830 | * We have not touched the newline at the end of the line - |
831 | * We have not touched the newline at the end of the line - |
… | |
… | |
888 | * what really should be used. |
889 | * what really should be used. |
889 | */ |
890 | */ |
890 | else if (!strcmp(key,"oid")) { |
891 | else if (!strcmp(key,"oid")) { |
891 | fp.get (m, atoi(value)); |
892 | fp.get (m, atoi(value)); |
892 | } else if (!strcmp(key, "attach")) { |
893 | } else if (!strcmp(key, "attach")) { |
893 | m->attach = add_string (value); |
894 | m->attach = value; |
894 | } else if (!strcmp(key,"hp") || !strcmp(key, "enter_x")) { |
895 | } else if (!strcmp(key,"hp") || !strcmp(key, "enter_x")) { |
895 | m->enter_x = atoi(value); |
896 | m->enter_x = atoi(value); |
896 | } else if (!strcmp(key,"sp") || !strcmp(key, "enter_y")) { |
897 | } else if (!strcmp(key,"sp") || !strcmp(key, "enter_y")) { |
897 | m->enter_y = atoi(value); |
898 | m->enter_y = atoi(value); |
898 | } else if (!strcmp(key,"x") || !strcmp(key, "width")) { |
899 | } else if (!strcmp(key,"x") || !strcmp(key, "width")) { |
… | |
… | |
1010 | |
1011 | |
1011 | mapstruct *load_original_map(const char *filename, int flags) { |
1012 | mapstruct *load_original_map(const char *filename, int flags) { |
1012 | mapstruct *m; |
1013 | mapstruct *m; |
1013 | char pathname[MAX_BUF]; |
1014 | char pathname[MAX_BUF]; |
1014 | |
1015 | |
1015 | LOG(llevDebug, "load_original_map: %s (%x)\n", filename,flags); |
|
|
1016 | if (flags & MAP_PLAYER_UNIQUE) |
1016 | if (flags & MAP_PLAYER_UNIQUE) |
1017 | strcpy(pathname, filename); |
1017 | strcpy(pathname, filename); |
1018 | else if (flags & MAP_OVERLAY) |
1018 | else if (flags & MAP_OVERLAY) |
1019 | strcpy(pathname, create_overlay_pathname(filename)); |
1019 | strcpy(pathname, create_overlay_pathname(filename)); |
1020 | else |
1020 | else |
1021 | strcpy(pathname, create_pathname(filename)); |
1021 | strcpy(pathname, create_pathname(filename)); |
|
|
1022 | |
|
|
1023 | LOG(llevDebug, "load_original_map(%x): %s (%s)\n", flags, filename, pathname); |
1022 | |
1024 | |
1023 | object_thawer thawer (pathname); |
1025 | object_thawer thawer (pathname); |
1024 | |
1026 | |
1025 | if (!thawer) |
1027 | if (!thawer) |
1026 | return 0; |
1028 | return 0; |
… | |
… | |
1179 | return; |
1181 | return; |
1180 | |
1182 | |
1181 | m->in_memory=MAP_LOADING; |
1183 | m->in_memory=MAP_LOADING; |
1182 | if (m->tmpname == NULL) /* if we have loaded unique items from */ |
1184 | if (m->tmpname == NULL) /* if we have loaded unique items from */ |
1183 | delete_unique_items(m); /* original map before, don't duplicate them */ |
1185 | delete_unique_items(m); /* original map before, don't duplicate them */ |
1184 | load_object(thawer, NULL, LO_NOREAD,0); |
|
|
1185 | load_objects (m, thawer, 0); |
1186 | load_objects (m, thawer, 0); |
1186 | |
1187 | |
1187 | m->in_memory=MAP_IN_MEMORY; |
1188 | m->in_memory=MAP_IN_MEMORY; |
1188 | } |
1189 | } |
1189 | |
1190 | |
… | |
… | |
1482 | m->path); |
1483 | m->path); |
1483 | } |
1484 | } |
1484 | else |
1485 | else |
1485 | last->next = m->next; |
1486 | last->next = m->next; |
1486 | |
1487 | |
1487 | free (m); |
1488 | delete m; |
1488 | } |
1489 | } |
1489 | |
1490 | |
1490 | |
1491 | |
1491 | |
1492 | |
1492 | /* |
1493 | /* |
… | |
… | |
1535 | if (flags & MAP_PLAYER_UNIQUE) |
1536 | if (flags & MAP_PLAYER_UNIQUE) |
1536 | LOG(llevDebug, "Trying to load map %s.\n", name); |
1537 | LOG(llevDebug, "Trying to load map %s.\n", name); |
1537 | else |
1538 | else |
1538 | LOG(llevDebug, "Trying to load map %s.\n", create_pathname(name)); |
1539 | LOG(llevDebug, "Trying to load map %s.\n", create_pathname(name)); |
1539 | |
1540 | |
|
|
1541 | //0.427459955215454 /var/crossfire/players/Saladon/_scorn_apartment_apartments |
|
|
1542 | //0.414906024932861 |
|
|
1543 | //0.427063941955566 |
|
|
1544 | eval_pv ("$x = Event::time", 1);//D |
1540 | if (!(m = load_original_map(name, (flags & MAP_PLAYER_UNIQUE)))) |
1545 | if (!(m = load_original_map(name, (flags & MAP_PLAYER_UNIQUE)))) |
1541 | return (NULL); |
1546 | return (NULL); |
|
|
1547 | eval_pv ("warn \"LOAD \", Event::time - $x", 1);//D |
1542 | |
1548 | |
1543 | fix_auto_apply(m); /* Chests which open as default */ |
1549 | fix_auto_apply(m); /* Chests which open as default */ |
1544 | |
1550 | |
1545 | /* If a player unique map, no extra unique object file to load. |
1551 | /* If a player unique map, no extra unique object file to load. |
1546 | * if from the editor, likewise. |
1552 | * if from the editor, likewise. |
1547 | */ |
1553 | */ |
1548 | if (! (flags & (MAP_FLUSH|MAP_PLAYER_UNIQUE))) |
1554 | if (!(flags & (MAP_FLUSH|MAP_PLAYER_UNIQUE))) |
1549 | load_unique_objects(m); |
1555 | load_unique_objects(m); |
1550 | |
1556 | |
1551 | if (! (flags & (MAP_FLUSH|MAP_PLAYER_UNIQUE|MAP_OVERLAY))) { |
1557 | if (! (flags & (MAP_FLUSH|MAP_PLAYER_UNIQUE|MAP_OVERLAY))) { |
1552 | m=load_overlay_map(name, m); |
1558 | m=load_overlay_map(name, m); |
1553 | if (m==NULL) |
1559 | if (m==NULL) |