… | … | ||
---|---|---|---|
2 | 2 | ||
3 | use List::Util; | 3 | use List::Util; |
4 | 4 | ||
5 | # todo: gather dynamically | 5 | # todo: gather dynamically |
6 | my @kw = qw( | 6 | my @kw = qw( |
7 | no_pass | ||
8 | walk_on | ||
9 | walk_off | ||
10 | fly_on | ||
11 | fly_off | ||
12 | flying | ||
13 | |||
7 | ac | 14 | ac |
8 | activate_on_push | 15 | activate_on_push |
9 | activate_on_release | 16 | activate_on_release |
10 | alive | 17 | alive |
11 | anim_speed | 18 | anim_speed |
… | … | ||
235 | wis | 242 | wis |
236 | wiz | 243 | wiz |
237 | x | 244 | x |
238 | xrays | 245 | xrays |
239 | y | 246 | y |
247 | |||
248 | Object | ||
249 | Str | ||
250 | Dex | ||
251 | Con | ||
252 | Wis | ||
253 | Cha | ||
254 | Int | ||
255 | Pow | ||
256 | More | ||
240 | ); | 257 | ); |
241 | 258 | ||
242 | open GPERF, "|-", "gperf -m50 >kw_hash.h" | 259 | open GPERF, "|-", "gperf -m50 >kw_hash.h" |
243 | or die "gperf: $!"; | 260 | or die "gperf: $!"; |
244 | 261 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |