| version 1.15 | | version 1.16 |
|---|
| | |
| %{ | | %{ |
| /* | | /* |
| * static char *rcsid_object_c = | | * static char *rcsid_object_c = |
| * "$Id: loader.l,v 1.15 2001/10/14 07:57:14 gros Exp $"; | | * "$Id: loader.l,v 1.16 2001/10/31 07:00:24 garbled Exp $"; |
| */ | | */ |
| | | |
| /* | | /* |
| | |
| "is_wooded","is_hilly","has_ready_skill","has_ready_weapon", | | "is_wooded","is_hilly","has_ready_skill","has_ready_weapon", |
| "no_skill_ident","glow_radius","is_blind","can_see_in_dark", | | "no_skill_ident","glow_radius","is_blind","can_see_in_dark", |
| "is_cauldron","randomitems","is_dust", "no_steal", "one_hit","berserk", | | "is_cauldron","randomitems","is_dust", "no_steal", "one_hit","berserk", |
| | | "weapontype", |
| /* GROS - And those are for the new plugin system */ | | /* GROS - And those are for the new plugin system */ |
| "event_apply", "event_apply_plugin", "event_apply_options", | | "event_apply", "event_apply_plugin", "event_apply_options", |
| "event_attack", "event_attack_plugin", "event_attack_options", | | "event_attack", "event_attack_plugin", "event_attack_options", |
| | |
| ^can_impale{S} { /* That these are for the new combat code */ } | | ^can_impale{S} { /* That these are for the new combat code */ } |
| ^can_cut{S} { /* just ignore for now */ } | | ^can_cut{S} { /* just ignore for now */ } |
| ^can_dam_armour{S} { } | | ^can_dam_armour{S} { } |
| | | ^weapontype{S} op->weapontype = FVAL; |
| ^event_apply{S} { char *yv=yval(); | | ^event_apply{S} { char *yv=yval(); |
| | | |
| if (*yv=='\0') LOG(llevError,"Event (apply) without val\n"); | | if (*yv=='\0') LOG(llevError,"Event (apply) without val\n"); |
| | |
| if (op->can_apply!=op2->can_apply) | | if (op->can_apply!=op2->can_apply) |
| save_long(buf,variable_const[V_CAN_APPLY],op->can_apply); | | save_long(buf,variable_const[V_CAN_APPLY],op->can_apply); |
| | | |
| | | if(op->weapontype && op->weapontype!=op2->weapontype) { |
| | | sprintf(buf2,"weapontype %d\n",op->weapontype); |
| | | strcat(buf,buf2); |
| | | } |
| | | |
| for (tmp=0; tmp <= NUM_FLAGS; tmp++) { | | for (tmp=0; tmp <= NUM_FLAGS; tmp++) { |
| if ((flag_links[tmp][0]!=-1) && (QUERY_FLAG(op, flag_links[tmp][0]) != | | if ((flag_links[tmp][0]!=-1) && (QUERY_FLAG(op, flag_links[tmp][0]) != |
| QUERY_FLAG(op2, flag_links[tmp][0]))) { | | QUERY_FLAG(op2, flag_links[tmp][0]))) { |