| version 1.4 | | version 1.5 |
|---|
| | |
| %{ | | %{ |
| /* | | /* |
| * static char *rcsid_object_c = | | * static char *rcsid_object_c = |
| * "$Id: loader.l,v 1.4 2000/04/27 07:04:18 cvs Exp $"; | | * "$Id: loader.l,v 1.5 2000/06/09 12:01:46 jec Exp $"; |
| */ | | */ |
| | | |
| /* | | /* |
| | |
| | | |
| ^other_arch{S} op->other_arch=find_archetype(yval()); | | ^other_arch{S} op->other_arch=find_archetype(yval()); |
| ^animation{S} { | | ^animation{S} { |
| | | if (strcmp (yval(), "NONE") == 0) { |
| | | op->animation_id = 0; |
| | | CLEAR_FLAG (op, FLAG_ANIMATE); |
| | | } else { |
| op->animation_id = find_animation(yval()); | | op->animation_id = find_animation(yval()); |
| SET_FLAG(op,FLAG_ANIMATE); | | SET_FLAG(op,FLAG_ANIMATE); |
| } | | } |
| | | } |
| | | |
| ^more{WS}$ { /* We need to record that this is a multipart object, | | ^more{WS}$ { /* We need to record that this is a multipart object, |
| * so the calling function can glue things back together | | * so the calling function can glue things back together |
| | |
| strcat(buf,buf2); | | strcat(buf,buf2); |
| } | | } |
| if (op->animation_id != op2->animation_id) { | | if (op->animation_id != op2->animation_id) { |
| | | if (op->animation_id) { |
| sprintf(buf2,"animation %s\n", animations[GET_ANIM_ID(op)].name); | | sprintf(buf2,"animation %s\n", animations[GET_ANIM_ID(op)].name); |
| | | if ( ! QUERY_FLAG (op, FLAG_ANIMATE)) { |
| | | strcat (buf, buf2); |
| | | sprintf (buf2, "is_animated 0\n"); |
| | | } |
| | | } else { |
| | | sprintf (buf2, "animation NONE\n"); |
| | | } |
| strcat(buf, buf2); | | strcat(buf, buf2); |
| } | | } |
| if(op->stats.Str!=op2->stats.Str) | | if(op->stats.Str!=op2->stats.Str) |