| version 1.23 | | version 1.24 |
|---|
| | |
| /* | | /* |
| * static char *rcsid_time_c = | | * static char *rcsid_time_c = |
| * "$Id: time.c,v 1.23 2001/04/30 06:34:29 mwedel Exp $"; | | * "$Id: time.c,v 1.24 2001/06/13 10:52:20 michtoen Exp $"; |
| */ | | */ |
| | | |
| /* | | /* |
| | |
| | | |
| static void stop_arrow (object *op) | | static void stop_arrow (object *op) |
| { | | { |
| | | /* GROS - Handling stop event */ |
| | | if (op->script_stop!=NULL) |
| | | { |
| | | guile_call_event(NULL, op, NULL, 0, NULL,0,0,op->script_stop, SCRIPT_FIX_NOTHING); |
| | | }; |
| | | if (op->script_str_stop!=NULL) |
| | | { |
| | | guile_call_event_str(NULL, op, NULL, 0, NULL,0,0,op->script_str_stop, SCRIPT_FIX_NOTHING); |
| | | }; |
| if (op->inv) { | | if (op->inv) { |
| object *payload = op->inv; | | object *payload = op->inv; |
| remove_ob (payload); | | remove_ob (payload); |
| | |
| } | | } |
| return 1; | | return 1; |
| } | | } |
| | | /* GROS: Executing the script_time event */ |
| | | if (op->script_time!=NULL) |
| | | { |
| | | guile_call_event(NULL, op, NULL, 0, NULL,0,0,op->script_time, SCRIPT_FIX_NOTHING); |
| | | }; |
| | | if (op->script_str_time!=NULL) |
| | | { |
| | | guile_call_event_str(NULL, op, NULL, 0, NULL,0,0,op->script_str_time, SCRIPT_FIX_NOTHING); |
| | | }; |
| switch(op->type) { | | switch(op->type) { |
| case ROD: | | case ROD: |
| case HORN: | | case HORN: |