| Revision: | 1.23 |
| Committed: | Mon Apr 30 04:25:30 2007 UTC (17 years, 1 month ago) by root |
| Branch: | MAIN |
| CVS Tags: | rel-2_1 |
| Changes since 1.22: | +0 -1 lines |
| Log Message: | This is the first rough cut of the skill use system (use the STABLE tag).
Details will likely change, and combat skills do not work very well, but
it works quite well.
Players no longer have a shoottype or range slots, instead, each player
has these members:
combat_skill/combat_ob the currently selected skill (and weapon)
for direct attacks.
ranged_skill/ranged_ob the currently selected ranged skill (and
bow/spell/item)
golem the currently-controlled golem, if any.
|
| # | Content |
|---|---|
| 1 | val64 T_VAL64 |
| 2 | uint64 T_VAL64 |
| 3 | sint16 T_INT |
| 4 | sint8 T_INT |
| 5 | faceidx T_INT |
| 6 | animidx T_INT |
| 7 | |
| 8 | object * T_CF_OBJ |
| 9 | partylist * T_CF_OBJ |
| 10 | archetype * T_CF_OBJ |
| 11 | maptile * T_CF_OBJ |
| 12 | struct region * T_CF_OBJ |
| 13 | region * T_CF_OBJ |
| 14 | client * T_CF_OBJ |
| 15 | player * T_CF_OBJ |
| 16 | living * T_CF_OBJ |
| 17 | attachable * T_CF_OBJ |
| 18 | treasurelist * T_CF_OBJ |
| 19 | std::string T_CF_OBJ |
| 20 | const std::string T_CF_OBJ |
| 21 | |
| 22 | Settings * T_SETTINGS |
| 23 | |
| 24 | object_ornull * T_CF_OBJ_ORNULL |
| 25 | mapstruct_ornull * T_CF_OBJ_ORNULL |
| 26 | octet_string T_CF_OCTETS |
| 27 | utf8_string T_CF_UTF8 |
| 28 | const_octet_string T_CF_OCTETS |
| 29 | const_utf8_string T_CF_UTF8 |
| 30 | |
| 31 | INPUT |
| 32 | |
| 33 | T_VAL64 |
| 34 | $var = ($type)SvVAL64 ($arg); |
| 35 | |
| 36 | T_CF_OBJ |
| 37 | sv_to ($arg, $var) |
| 38 | |
| 39 | T_SETTINGS |
| 40 | $var = &settings |
| 41 | |
| 42 | T_CF_OBJ_ORNULL |
| 43 | if (SvOK ($arg)) |
| 44 | sv_to ($arg, $var); |
| 45 | else |
| 46 | $var = 0; |
| 47 | |
| 48 | T_CF_OCTETS |
| 49 | $var = SvPVbyte_nolen ($arg) |
| 50 | |
| 51 | T_CF_UTF8 |
| 52 | $var = SvPVutf8_nolen ($arg) |
| 53 | |
| 54 | OUTPUT |
| 55 | |
| 56 | T_VAL64 |
| 57 | $arg = newSVval64 ($var); |
| 58 | |
| 59 | T_CF_OBJ_NORNULL |
| 60 | $arg = to_sv ($var); |
| 61 | |
| 62 | T_CF_OBJ |
| 63 | $arg = to_sv ($var); |
| 64 | |
| 65 | T_CF_OCTETS |
| 66 | $arg = $var ? newSVpv ($var, 0) : &PL_sv_undef; |
| 67 | |
| 68 | T_CF_UTF8 |
| 69 | if ($var) |
| 70 | { |
| 71 | sv_setpv ($arg, $var); |
| 72 | SvUTF8_on ($arg); |
| 73 | } |
| 74 |