| … | |
… | |
| 1220 | bool matched = count && SvTRUE (TOPs); |
1220 | bool matched = count && SvTRUE (TOPs); |
| 1221 | |
1221 | |
| 1222 | CALL_END; |
1222 | CALL_END; |
| 1223 | |
1223 | |
| 1224 | return matched; |
1224 | return matched; |
|
|
1225 | } |
|
|
1226 | |
|
|
1227 | object * |
|
|
1228 | match_one (const char *expr, object *ob, object *self, object *source, object *originator) |
|
|
1229 | { |
|
|
1230 | if (!strncmp (expr, "match ", sizeof ("match ") - 1)) |
|
|
1231 | expr += sizeof ("match ") - 1; |
|
|
1232 | |
|
|
1233 | CALL_BEGIN (5); |
|
|
1234 | CALL_ARG (expr); |
|
|
1235 | CALL_ARG (ob); |
|
|
1236 | CALL_ARG (self); |
|
|
1237 | CALL_ARG (source); |
|
|
1238 | CALL_ARG (originator); |
|
|
1239 | CALL_CALL (cv_cf_match_match, G_ARRAY); |
|
|
1240 | |
|
|
1241 | object *one = 0; |
|
|
1242 | |
|
|
1243 | if (count) |
|
|
1244 | sv_to (TOPs, one); |
|
|
1245 | |
|
|
1246 | CALL_END; |
|
|
1247 | |
|
|
1248 | return one; |
| 1225 | } |
1249 | } |
| 1226 | |
1250 | |
| 1227 | ///////////////////////////////////////////////////////////////////////////// |
1251 | ///////////////////////////////////////////////////////////////////////////// |
| 1228 | |
1252 | |
| 1229 | struct EVAPI *evapi::GEVAPI; |
1253 | struct EVAPI *evapi::GEVAPI; |
| … | |
… | |
| 2140 | CODE: |
2164 | CODE: |
| 2141 | player_apply_below (op); |
2165 | player_apply_below (op); |
| 2142 | |
2166 | |
| 2143 | int cast_heal (object *op, object *caster, object *spell, int dir = 0) |
2167 | int cast_heal (object *op, object *caster, object *spell, int dir = 0) |
| 2144 | |
2168 | |
|
|
2169 | int casting_level (object *caster, object *spell) |
|
|
2170 | |
| 2145 | int pay_item (object *op, object *buyer) |
2171 | int pay_item (object *op, object *buyer) |
| 2146 | CODE: |
2172 | CODE: |
| 2147 | RETVAL = pay_for_item (op, buyer); |
2173 | RETVAL = pay_for_item (op, buyer); |
| 2148 | OUTPUT: RETVAL |
2174 | OUTPUT: RETVAL |
| 2149 | |
2175 | |
